In [ ]:
. ./nbs_header.ps1
. ./core.ps1
In [ ]:
{ . "$ScriptDir/../apps/builder/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 577.29ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 52.69ms - stdout ]─────────────────────────────────────────────────────────╮
│ a │
│ #!magic │
│ b │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 43.31ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #! │
│ Item2: <null> │
│ Item3: Position │
│ Index: 2 │
│ Line: 1 │
│ Column: 3 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 57.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 49.13ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: magic │
│ Item2: <null> │
│ Item3: Position │
│ Index: 8 │
│ Line: 2 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 36.22ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 34.40ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #!magic │
│ │
│ │
│ a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 41.42ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: Block │
│ magic: magic │
│ content: a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 47.19ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: FSharpList<Block> │
│ - magic: magic1 │
│ content: a │
│ - magic: magic2 │
│ content: b │
│ Item2: <null> │
│ Item3: Position │
│ Index: 26 │
│ Line: 9 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "// // "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment |> SpiralSm.trim
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "// // test" || trimmedContent
|> SpiralSm.starts_with "// // ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 65.64ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ /// │
│ /// c │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (fun block ->
block, formatBlock output block
)
|> List.filter (snd >> (<>) "")
|> fun list ->
(list, (None, [[]]))
||> List.foldBack (fun (block, content) (lastMagic, acc) ->
let lineBreak =
if block.magic = "markdown" && lastMagic <> Some "markdown" &&
lastMagic <> None
then ""
else "\n"
Some block.magic, $"{content}{lineBreak}" :: acc
)
|> snd
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 73.65ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ let a = 1 │
│ │
│ /// e │
│ let a = 3 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
// // test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 185.45ms - stdout ]────────────────────────────────────────────────────────╮
│ #if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ open System │
│ │
│ /// ### TextInput │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 174.54ms - stdout ]────────────────────────────────────────────────────────╮
│ # TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "// // # TestModule (TestNamespace)
// // ## ParserLibrary
inl x = 0i32
// // ### TextInput
"
╭─[ 183.41ms - stdout ]────────────────────────────────────────────────────────╮
│ // // # TestModule (TestNamespace) │
│ │
│ // // ## ParserLibrary │
│ inl x = 0i32 │
│ │
│ // // ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
trace Debug
(fun () -> "parseDibCode")
(fun () -> $"output: {output} / file: {file} / {_locals ()}")
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
trace Debug
(fun () -> "writeDibCode")
(fun () -> $"output: {output} / path: {path} / {_locals ()}")
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 98.91ms - return value ]───────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 147.44ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 160.03ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:05 debug #1 writeDibCode / output: Fs / path: Builder.dib │
│ 00:00:05 debug #2 parseDibCode / output: Fs / file: Builder.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\builder / path: Builder.dib / _args: [
"-EnvironmentVariables",
{
"ARGS": "Builder.fs --packages Argu FSharp.Control.AsyncSeq System.CommandLine System.Reactive.Linq --modules lib/spiral/common.fsx lib/spiral/sm.fsx lib/spiral/crypto.fsx lib/spiral/date_time.fsx lib/spiral/async_.fsx lib/spiral/threading.fsx lib/spiral/networking.fsx lib/spiral/runtime.fsx lib/spiral/file_system.fsx lib/spiral/trace.fsx lib/spiral/lib.fsx lib/fsharp/Common.fs lib/fsharp/CommonFSharp.fs lib/fsharp/Async.fs lib/fsharp/AsyncSeq.fs lib/fsharp/Runtime.fs lib/fsharp/FileSystem.fs"
}
]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Builder (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildProject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildProject runtime outputDir path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let extension = fullPath |> System.IO.Path.GetExtension
trace Debug
(fun () -> "buildProject")
(fun () -> $"fullPath: {fullPath} / {_locals ()}")
match extension with
| ".fsproj" -> ()
| _ -> failwith "Invalid project file"
let runtimes =
runtime
|> Option.map List.singleton
|> Option.defaultValue [[ "linux-x64"; "win-x64" ]]
let outputDir = outputDir |> Option.defaultValue "dist"
return!
runtimes
|> List.map (fun runtime -> async {
let command = $@"dotnet publish ""{path}"" --configuration Release
--output ""{outputDir}"" --runtime {runtime}"
let! exitCode, _result =
SpiralRuntime.execute_with_options_async struct (None, command,
None, Some fileDir)
return exitCode
})
|> Async.Sequential
|> Async.map Array.sum
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCodeProject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCodeProject packages modules name code = async {
trace Debug
(fun () -> "persistCodeProject")
(fun () -> $"packages: {packages} / modules: {modules} / name: {name} /
code.Length: {code |> String.length} / {_locals ()}")
let repositoryRoot = SpiralFileSystem.get_repository_root ()
let targetDir = repositoryRoot </> "target/polyglot/builder" </> name
System.IO.Directory.CreateDirectory targetDir |> ignore
let filePath = targetDir </> $"{name}.fs" |> System.IO.Path.GetFullPath
do! code |> SpiralFileSystem.write_all_text_exists filePath
let modulesCode =
modules
|> List.map (fun path -> $"""<Compile Include="{repositoryRoot </>
path}" />""")
|> SpiralSm.concat "\n "
let fsprojPath = targetDir </> $"{name}.fsproj"
let fsprojCode = $"""<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<TargetFramework>net9.0</TargetFramework>
<LangVersion>preview</LangVersion>
<RollForward>Major</RollForward>
<TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>
<PublishAot>false</PublishAot>
<PublishTrimmed>false</PublishTrimmed>
<PublishSingleFile>true</PublishSingleFile>
<SelfContained>true</SelfContained>
<Version>0.0.1-alpha.1</Version>
<OutputType>Exe</OutputType>
</PropertyGroup>
<ItemGroup>
{modulesCode}
<Compile Include="{filePath}" />
</ItemGroup>
<Import Project="{repositoryRoot}/.paket/Paket.Restore.targets" />
</Project>
"""
do! fsprojCode |> SpiralFileSystem.write_all_text_exists fsprojPath
let paketReferencesPath = targetDir </> "paket.references"
let paketReferencesCode =
"FSharp.Core" :: packages
|> SpiralSm.concat "\n"
do! paketReferencesCode |> SpiralFileSystem.write_all_text_exists
paketReferencesPath
return fsprojPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode runtime packages modules outputDir name code = async {
let! fsprojPath = code |> persistCodeProject packages modules name
return! fsprojPath |> buildProject runtime outputDir
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"1 + 1 |> ignore"
|> buildCode None [[]] [[]] None "test1"
|> Async.runWithTimeout 180000
|> _assertEqual (Some 0)
╭─[ 15.32s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:02 debug #1 persistCodeProject / packages: [] / modules: [] / name: │
│ test1 / code.Length: 15 │
│ 00:00:02 debug #2 buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj │
│ 00:00:04 debug #1 execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test1\test1.fsproj" │
│ --configuration Release --output "dist" --runtime linux-x64", │
│ None, Some "C:\home\git\polyglot\target\polyglot\builder\test1") │
│ 00:00:04 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for │
│ .NET │
│ 00:00:05 verbose #3 > Determining projects to restore... │
│ 00:00:07 verbose #4 > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj (in 1.34 │
│ sec). │
│ 00:00:07 verbose #5 > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj] │
│ 00:00:08 verbose #6 > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\bin\Release\net9.0\linux- │
│ x64\test1.dll │
│ 00:00:10 verbose #7 > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\dist\ │
│ 00:00:10 debug #8 execute_with_options_async / exit_code: 0 / output.Length: │
│ 695 │
│ 00:00:10 debug #9 execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test1\test1.fsproj" │
│ --configuration Release --output "dist" --runtime win-x64", │
│ None, Some "C:\home\git\polyglot\target\polyglot\builder\test1") │
│ 00:00:10 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:11 verbose #11 > Determining projects to restore... │
│ 00:00:11 verbose #12 > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj (in 450 ms). │
│ 00:00:11 verbose #13 > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj] │
│ 00:00:12 verbose #14 > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\bin\Release\net9.0\win-x6 │
│ 4\test1.dll │
│ 00:00:19 verbose #15 > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\dist\ │
│ 00:00:19 debug #16 execute_with_options_async / exit_code: 0 / │
│ output.Length: 691 │
│ FSharpOption<Int32> │
│ Value: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"1 + a |> ignore"
|> buildCode None [[]] [[]] None "test2"
|> Async.runWithTimeout 180000
|> _assertEqual (Some 2)
╭─[ 7.71s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:18 debug #3 persistCodeProject / packages: [] / modules: [] / name: │
│ test2 / code.Length: 15 │
│ 00:00:18 debug #4 buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj │
│ 00:00:20 debug #17 execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test2\test2.fsproj" │
│ --configuration Release --output "dist" --runtime linux-x64", │
│ None, Some "C:\home\git\polyglot\target\polyglot\builder\test2") │
│ 00:00:20 verbose #18 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:20 verbose #19 > Determining projects to restore... │
│ 00:00:21 verbose #20 > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj (in 390 ms). │
│ 00:00:21 verbose #21 > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:23 verbose #22 > │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fs(1,5): error │
│ FS0039: The value or constructor 'a' is not defined. [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:24 debug #23 execute_with_options_async / exit_code: 1 / │
│ output.Length: 715 │
│ 00:00:24 debug #24 execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test2\test2.fsproj" │
│ --configuration Release --output "dist" --runtime win-x64", │
│ None, Some "C:\home\git\polyglot\target\polyglot\builder\test2") │
│ 00:00:24 verbose #25 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:24 verbose #26 > Determining projects to restore... │
│ 00:00:25 verbose #27 > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj (in 343 ms). │
│ 00:00:25 verbose #28 > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:27 verbose #29 > │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fs(1,5): error │
│ FS0039: The value or constructor 'a' is not defined. [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:27 debug #30 execute_with_options_async / exit_code: 1 / │
│ output.Length: 715 │
│ FSharpOption<Int32> │
│ Value: 2 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## readFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline readFile path = async {
let! code = path |> SpiralFileSystem.read_all_text_async
let code = System.Text.RegularExpressions.Regex.Replace (
code,
@"( *)(let\s+main\s+.*?\s*=)",
fun m -> m.Groups.[[1]].Value + "[[<EntryPoint>]]\n" +
m.Groups.[[1]].Value + m.Groups.[[2]].Value
)
let codeTrim = code |> SpiralSm.trim_end [[||]]
return
if codeTrim |> SpiralSm.ends_with "\n()"
then codeTrim |> SpiralSm.slice 0 ((codeTrim |> String.length) - 3)
else code
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile runtime packages modules path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let dir = fullPath |> System.IO.Path.GetDirectoryName
let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> readFile
return! code |> buildCode runtime packages modules (dir </> "dist" |> Some)
name
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistFile packages modules path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> readFile
return! code |> persistCodeProject packages modules name
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce>]]
Path of path : string
| [[<Argu.ArguAttributes.Unique>]] Packages of packages : string list
| [[<Argu.ArguAttributes.Unique>]] Modules of modules : string list
| [[<Argu.ArguAttributes.Unique>]] Runtime of runtime : string
| [[<Argu.ArguAttributes.Unique>]] Persist_Only
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Path _ -> nameof Path
| Packages _ -> nameof Packages
| Modules _ -> nameof Modules
| Runtime _ -> nameof Runtime
| Persist_Only -> nameof Persist_Only
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 122.80ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] [--packages [<packages>...]] │
│ [--modules [<modules>...]] [--runtime <runtime>] │
│ [--persist-only] <path> │
│ │
│ PATH: │
│ │
│ <path> Path │
│ │
│ OPTIONS: │
│ │
│ --packages [<packages>...] │
│ Packages │
│ --modules [<modules>...] │
│ Modules │
│ --runtime <runtime> Runtime │
│ --persist-only Persist_Only │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let path =
match argsMap.[[nameof Arguments.Path]] with
| [[ Arguments.Path path ]] -> Some path
| _ -> None
|> Option.get
let packages =
match argsMap |> Map.tryFind (nameof Arguments.Packages) with
| Some [[ Arguments.Packages packages ]] -> packages
| _ -> [[]]
let modules =
match argsMap |> Map.tryFind (nameof Arguments.Modules) with
| Some [[ Arguments.Modules modules ]] -> modules
| _ -> [[]]
let runtime =
match argsMap |> Map.tryFind (nameof Arguments.Runtime) with
| Some [[ Arguments.Runtime runtime ]] -> Some runtime
| _ -> None
let persistOnly = argsMap |> Map.containsKey (nameof Arguments.Persist_Only)
if persistOnly
then path |> persistFile packages modules |> Async.map (fun _ -> 0)
else path |> buildFile runtime packages modules
|> Async.runWithTimeout (60000 * 60)
|> function
| Some exitCode -> exitCode
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 30.20s - return value ]────────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 30.21s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:26 debug #5 persistCodeProject / packages: [Argu; │
│ FSharp.Control.AsyncSeq; System.CommandLine; ... ] / modules: [ │
│ lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / │
│ name: Builder / code.Length: 6962 │
│ 00:00:26 debug #6 buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj │
│ 00:00:28 debug #31 execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\Builder\Builder.fsproj" │
│ --configuration Release --output "C:\home\git\polyglot\apps\builder\dist" │
│ --runtime linux-x64", │
│ None, Some "C:\home\git\polyglot\target\polyglot\builder\Builder") │
│ 00:00:28 verbose #32 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:29 verbose #33 > Determining projects to restore... │
│ 00:00:30 verbose #34 > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj (in 419 │
│ ms). │
│ 00:00:30 verbose #35 > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj] │
│ 00:00:38 verbose #36 > Builder -> │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\bin\Release\net9.0\linu │
│ x-x64\Builder.dll │
│ 00:00:40 verbose #37 > Builder -> C:\home\git\polyglot\apps\builder\dist\ │
│ 00:00:40 debug #38 execute_with_options_async / exit_code: 0 / │
│ output.Length: 692 │
│ 00:00:40 debug #39 execute_with_options_async / options: struct (None, │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\Builder\Builder.fsproj" │
│ --configuration Release --output "C:\home\git\polyglot\apps\builder\dist" │
│ --runtime win-x64", │
│ None, Some "C:\home\git\polyglot\target\polyglot\builder\Builder") │
│ 00:00:40 verbose #40 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:41 verbose #41 > Determining projects to restore... │
│ 00:00:42 verbose #42 > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj (in 529 │
│ ms). │
│ 00:00:42 verbose #43 > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj] │
│ 00:00:51 verbose #44 > Builder -> │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\bin\Release\net9.0\win- │
│ x64\Builder.dll │
│ 00:00:58 verbose #45 > Builder -> C:\home\git\polyglot\apps\builder\dist\ │
│ 00:00:58 debug #46 execute_with_options_async / exit_code: 0 / │
│ output.Length: 690 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook Builder.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 327251 bytes to Builder.dib.html
In [ ]:
{ . "$ScriptDir/../apps/parser/build.ps1" } | Invoke-Block
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\parser / path: DibParser.dib / _args: [
"-EnvironmentVariables",
{
"ARGS": "DibParser.dib fs"
}
]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 589.61ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 61.72ms - stdout ]─────────────────────────────────────────────────────────╮
│ a │
│ #!magic │
│ b │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 61.08ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #! │
│ Item2: <null> │
│ Item3: Position │
│ Index: 2 │
│ Line: 1 │
│ Column: 3 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 56.26ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 39.53ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: magic │
│ Item2: <null> │
│ Item3: Position │
│ Index: 8 │
│ Line: 2 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 37.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 33.41ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #!magic │
│ │
│ │
│ a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 41.14ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: Block │
│ magic: magic │
│ content: a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 52.60ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: FSharpList<Block> │
│ - magic: magic1 │
│ content: a │
│ - magic: magic2 │
│ content: b │
│ Item2: <null> │
│ Item3: Position │
│ Index: 26 │
│ Line: 9 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "// // "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment |> SpiralSm.trim
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "// // test" || trimmedContent
|> SpiralSm.starts_with "// // ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 62.25ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ /// │
│ /// c │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (fun block ->
block, formatBlock output block
)
|> List.filter (snd >> (<>) "")
|> fun list ->
(list, (None, [[]]))
||> List.foldBack (fun (block, content) (lastMagic, acc) ->
let lineBreak =
if block.magic = "markdown" && lastMagic <> Some "markdown" &&
lastMagic <> None
then ""
else "\n"
Some block.magic, $"{content}{lineBreak}" :: acc
)
|> snd
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 81.37ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ let a = 1 │
│ │
│ /// e │
│ let a = 3 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
// // test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 204.22ms - stdout ]────────────────────────────────────────────────────────╮
│ #if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ open System │
│ │
│ /// ### TextInput │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 181.31ms - stdout ]────────────────────────────────────────────────────────╮
│ # TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "// // # TestModule (TestNamespace)
// // ## ParserLibrary
inl x = 0i32
// // ### TextInput
"
╭─[ 178.08ms - stdout ]────────────────────────────────────────────────────────╮
│ // // # TestModule (TestNamespace) │
│ │
│ // // ## ParserLibrary │
│ inl x = 0i32 │
│ │
│ // // ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
trace Debug
(fun () -> "parseDibCode")
(fun () -> $"output: {output} / file: {file} / {_locals ()}")
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
trace Debug
(fun () -> "writeDibCode")
(fun () -> $"output: {output} / path: {path} / {_locals ()}")
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 111.46ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 156.60ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 170.47ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:06 debug #1 writeDibCode / output: Fs / path: DibParser.dib │
│ 00:00:06 debug #2 parseDibCode / output: Fs / file: DibParser.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook DibParser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 371324 bytes to DibParser.dib.html
00:00:00 debug #1 persistCodeProject / packages: [Argu; FParsec; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DibParser / code.Length: 9602
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj
00:00:00 debug #1 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime linux-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\DibParser")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:01 verbose #4 > Restored C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj (in 380 ms).
00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj]
00:00:10 verbose #6 > DibParser -> C:\home\git\polyglot\target\polyglot\builder\DibParser\bin\Release\net9.0\linux-x64\DibParser.dll
00:00:12 verbose #7 > DibParser -> C:\home\git\polyglot\apps\parser\dist\
00:00:12 debug #8 execute_with_options_async / exit_code: 0 / output.Length: 707
00:00:12 debug #9 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime win-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\DibParser")
00:00:12 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:13 verbose #11 > Determining projects to restore...
00:00:13 verbose #12 > Restored C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj (in 387 ms).
00:00:13 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj]
00:00:22 verbose #14 > DibParser -> C:\home\git\polyglot\target\polyglot\builder\DibParser\bin\Release\net9.0\win-x64\DibParser.dll
00:00:26 verbose #15 > DibParser -> C:\home\git\polyglot\apps\parser\dist\
00:00:26 debug #16 execute_with_options_async / exit_code: 0 / output.Length: 705
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\parser / path: JsonParser.dib / _args: null
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # JsonParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import Parser.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Parser =
open Common
/// ### TextInput
type Position =
{
line : int
column : int
}
let initialPos = { line = 0; column = 0 }
let inline incrCol (pos : Position) =
{ pos with column = pos.column + 1 }
let inline incrLine pos =
{ line = pos.line + 1; column = 0 }
type InputState =
{
lines : string[[]]
position : Position
}
let inline fromStr str =
{
lines =
if str |> String.IsNullOrEmpty
then [[||]]
else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]]
position = initialPos
}
...
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open Parser
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## JsonParser │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
(*
// --------------------------------
JSON spec from http://www.json.org/
// --------------------------------
The JSON spec is available at [[json.org]](http://www.json.org/). I'll paraphase
it here:
* A `value` can be a `string` or a `number` or a `bool` or `null` or an `object`
or an `array`.
* These structures can be nested.
* A `string` is a sequence of zero or more Unicode characters, wrapped in double
quotes, using backslash escapes.
* A `number` is very much like a C or Java number, except that the octal and
hexadecimal formats are not used.
* A `boolean` is the literal `true` or `false`
* A `null` is the literal `null`
* An `object` is an unordered set of name/value pairs.
* An object begins with { (left brace) and ends with } (right brace).
* Each name is followed by : (colon) and the name/value pairs are separated by
, (comma).
* An `array` is an ordered collection of values.
* An array begins with [[ (left bracket) and ends with ]] (right bracket).
* Values are separated by , (comma).
* Whitespace can be inserted between any pair of tokens.
*)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline parserEqual (expected : ParseResult<'a>) (actual : ParseResult<'a *
Input>) =
match actual, expected with
| Success (_actual, _), Success _expected ->
printResult actual
_actual |> _assertEqual _expected
| Failure (l1, e1, p1), Failure (l2, e2, p2) when l1 = l2 && e1 = e2 && p1 =
p2 ->
printResult actual
| _ ->
printfn $"Actual: {actual}"
printfn $"Expected: {expected}"
failwith "Parse failed"
actual
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### JValue │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type JValue =
| JString of string
| JNumber of float
| JBool of bool
| JNull
| JObject of Map<string, JValue>
| JArray of JValue list
── fsharp ──────────────────────────────────────────────────────────────────────
let jValue, jValueRef = createParserForwardedToRef<JValue> ()
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jNull │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jNull =
pstring "null"
>>% JNull
<?> "null"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jValue "null"
|> parserEqual (Success JNull)
╭─[ 254.10ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNull, { lines = [ │
│ |"null"|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNull, { lines = [|"null"|]<br/> │
│ position = { line = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNull</code></span></summary><div><table><thead> │
│ <tr></tr></thead><tbody><tr><td>IsJString</td><td><d... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 264.25ms - stdout ]────────────────────────────────────────────────────────╮
│ JNull │
│ JValue │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: True │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNull "nulp"
|> parserEqual (
Failure (
"null",
"Unexpected 'p'",
{ currentLine = "nulp"; line = 0; column = 3 }
)
)
╭─[ 64.80ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("null", "Unexpected │
│ 'p'", { currentLine = "nulp"<br/> │
│ line = 0<br/> column = 3 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>null</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ 'p'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "nulp"<br/> line = 0<br/> column = 3 │
│ }</code></span></summary><div><table><thead><tr></tr></thead... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 72.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:3 Error parsing null │
│ nulp │
│ ^Unexpected 'p' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jBool │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jBool =
let jtrue =
pstring "true"
>>% JBool true
let jfalse =
pstring "false"
>>% JBool false
jtrue <|> jfalse
<?> "bool"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "true"
|> parserEqual (Success (JBool true))
╭─[ 66.62ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JBool true, { lines = [ │
│ |"true"|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JBool true, { lines = [|"true"|]<br/> │
│ position = { line = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JBool │
│ true</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr.. │
│ . │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 74.87ms - stdout ]─────────────────────────────────────────────────────────╮
│ JBool true │
│ JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "false"
|> parserEqual (Success (JBool false))
╭─[ 46.38ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JBool false, { lines = [ │
│ |"false"|]<br/> position = { line = 0<br/> │
│ column = 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JBool false, { lines = [ │
│ |"false"|]<br/> position = { line = 0<br/> column = │
│ 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JBool │
│ false</code></span></summary><div><table><thead><tr></tr></thead><tb... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 54.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ JBool false │
│ JBool │
│ Item: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "truX"
|> parserEqual (
Failure (
"bool",
"Unexpected 't'",
{ currentLine = "truX"; line = 0; column = 0 }
)
)
╭─[ 30.51ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("bool", "Unexpected │
│ 't'", { currentLine = "truX"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>bool</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ 't'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "truX"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><table><thead><tr></tr></thead... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 37.25ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing bool │
│ truX │
│ ^Unexpected 't' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jUnescapedChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jUnescapedChar =
satisfy (fun ch -> ch <> '\\' && ch <> '\"') "char"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnescapedChar "a"
|> parserEqual (Success 'a')
╭─[ 60.30ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('a', { lines = [ │
│ |"a"|]<br/> position = { line = 0<br/> │
│ column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(a, { lines = [|"a"|]<br/> position = │
│ { line = 0<br/> column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>a</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"a"|]<br/... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 68.31ms - stdout ]─────────────────────────────────────────────────────────╮
│ 'a' │
│ a │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnescapedChar "\\"
|> parserEqual (
Failure (
"char",
"Unexpected '\\'",
{ currentLine = "\\"; line = 0; column = 0 }
)
)
╭─[ 48.85ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("char", "Unexpected │
│ '\'", { currentLine = "\"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>char</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ '\'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "\"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 58.52ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing char │
│ \ │
│ ^Unexpected '\' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jEscapedChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jEscapedChar =
[[
("\\\"",'\"')
("\\\\",'\\')
("\\/",'/')
("\\b",'\b')
("\\f",'\f')
("\\n",'\n')
("\\r",'\r')
("\\t",'\t')
]]
|> List.map (fun (toMatch, result) ->
pstring toMatch >>% result
)
|> choice
<?> "escaped char"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "\\\\"
|> parserEqual (Success '\\')
╭─[ 52.65ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\\', { lines = [ │
│ |"\\"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br/> position │
│ = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>\</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\\"... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 61.26ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\\' │
│ \ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "\\t"
|> parserEqual (Success '\t')
╭─[ 66.01ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\009', { lines = [ │
│ |"\t"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>( , { lines = [|"\t"|]<br/> position = │
│ { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre> │
│ </pre></div></td></tr><tr><td>Item2</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │
│ |"\t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 76.09ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\009' │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar @"\\"
|> parserEqual (Success '\\')
╭─[ 43.09ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\\', { lines = [ │
│ |"\\"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br/> position │
│ = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>\</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\\"... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 50.84ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\\' │
│ \ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar @"\n"
|> parserEqual (Success '\n')
╭─[ 46.04ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\010', { lines = [ │
│ |"<br/>"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(<br/>, { lines = [|"<br/>"|]<br/> │
│ position = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre> │
│ </pre></div></td></tr><tr><td>Item2</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = │
│ ... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 52.62ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\010' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "a"
|> parserEqual (
Failure (
"escaped char",
"Unexpected 'a'",
{ currentLine = "a"; line = 0; column = 0 }
)
)
╭─[ 32.53ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("escaped char", │
│ "Unexpected 'a'", { currentLine = "a"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>escaped │
│ char</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ 'a'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "a"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><tab... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.03ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing escaped char │
│ a │
│ ^Unexpected 'a' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jUnicodeChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jUnicodeChar =
let backslash = pchar '\\'
let uChar = pchar 'u'
let hexdigit = anyOf ([[ '0' .. '9' ]] @ [[ 'A' .. 'F' ]] @ [[ 'a' .. 'f'
]])
let fourHexDigits = hexdigit .>>. hexdigit .>>. hexdigit .>>. hexdigit
let inline convertToChar (((h1, h2), h3), h4) =
let str = $"%c{h1}%c{h2}%c{h3}%c{h4}"
Int32.Parse (str, Globalization.NumberStyles.HexNumber) |> char
backslash >>. uChar >>. fourHexDigits
|>> convertToChar
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnicodeChar "\\u263A"
|> parserEqual (Success '☺')
╭─[ 47.07ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('☺', { lines = [ │
│ |"\u263A"|]<br/> position = { line = 0<br/> │
│ column = 6 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(☺, { lines = [|"\u263A"|]<br/> │
│ position = { line = 0<br/> column = 6 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>☺</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\u2... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 53.99ms - stdout ]─────────────────────────────────────────────────────────╮
│ '☺' │
│ ☺ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jString │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let quotedString =
let quote = pchar '\"' <?> "quote"
let jchar = jUnescapedChar <|> jEscapedChar <|> jUnicodeChar
quote >>. manyChars jchar .>> quote
── fsharp ──────────────────────────────────────────────────────────────────────
let jString =
quotedString
|>> JString
<?> "quoted string"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"\""
|> parserEqual (Success (JString ""))
╭─[ 59.76ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "", { lines = [ │
│ |""""|]<br/> position = { line = │
│ 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "", { lines = [ │
│ |""""|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString ""</code></span></summary>... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 66.96ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "" │
│ JString │
│ Item: │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"a\""
|> parserEqual (Success (JString "a"))
╭─[ 38.51ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "a", { lines = [ │
│ |""a""|]<br/> position = { line = │
│ 0<br/> column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "a", { lines = [ │
│ |""a""|]<br/> position = { line = 0<br/> │
│ column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString "a"</code></span></s... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 45.14ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "a" │
│ JString │
│ Item: a │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\""
|> parserEqual (Success (JString "ab"))
╭─[ 34.73ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab", { lines = [ │
│ |""ab""|]<br/> position = { line │
│ = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab", { lines = [ │
│ |""ab""|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString "ab"</code></s... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.51ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab" │
│ JString │
│ Item: ab │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\\tde\""
|> parserEqual (Success (JString "ab\tde"))
╭─[ 46.56ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab de", { lines = [ │
│ |""ab\tde""|]<br/> position = │
│ { line = 0<br/> column = 8 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab de", { lines = [ │
│ |""ab\tde""|]<br/> position = { line = 0<br/> │
│ column = 8 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString &quo... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 53.12ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab de" │
│ JString │
│ Item: ab de │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\\u263Ade\""
|> parserEqual (Success (JString "ab☺de"))
╭─[ 41.21ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab☺de", { lines = [ │
│ |""ab\u263Ade""|]<br/> │
│ position = { line = 0<br/> column = │
│ 12 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab☺de", { lines = [ │
│ |""ab\u263Ade""|]<br/> position = { line = 0<br/> │
│ column = 12 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JS... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 48.69ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab☺de" │
│ JString │
│ Item: ab☺de │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jNumber │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jNumber =
let optSign = opt (pchar '-')
let zero = pstring "0"
let digitOneNine =
satisfy (fun ch -> Char.IsDigit ch && ch <> '0') "1-9"
let digit =
satisfy Char.IsDigit "digit"
let point = pchar '.'
let e = pchar 'e' <|> pchar 'E'
let optPlusMinus = opt (pchar '-' <|> pchar '+')
let nonZeroInt =
digitOneNine .>>. manyChars digit
|>> fun (first, rest) -> string first + rest
let intPart = zero <|> nonZeroInt
let fractionPart = point >>. manyChars1 digit
let exponentPart = e >>. optPlusMinus .>>. manyChars1 digit
let inline (|>?) opt f =
match opt with
| None -> ""
| Some x -> f x
let inline convertToJNumber (((optSign, intPart), fractionPart), expPart) =
let signStr =
optSign
|>? string
let fractionPartStr =
fractionPart
|>? (fun digits -> "." + digits)
let expPartStr =
expPart
|>? fun (optSign, digits) ->
let sign = optSign |>? string
"e" + sign + digits
(signStr + intPart + fractionPartStr + expPartStr)
|> float
|> JNumber
optSign .>>. intPart .>>. opt fractionPart .>>. opt exponentPart
|>> convertToJNumber
<?> "number"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "123"
|> parserEqual (Success (JNumber 123.0))
╭─[ 65.90ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 0<br/> │
│ column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 0<br/> column = 3 │
│ } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.0</code></span></summary><div><table><thead><tr></tr></the... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 73.10ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.0 │
│ JNumber │
│ Item: 123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "-123"
|> parserEqual (Success (JNumber -123.0))
╭─[ 39.11ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = │
│ 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = 0<br/> column = │
│ 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr></t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 46.29ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "123.4"
|> parserEqual (Success (JNumber 123.4))
╭─[ 46.96ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = │
│ 0<br/> column = 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = 0<br/> column = │
│ 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.4</code></span></summary><div><table><thead><tr></tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 53.46ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.4 │
│ JNumber │
│ Item: 123.4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "-123."
|> parserEqual (Success (JNumber -123.0))
╭─[ 35.65ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123."|]<br/> position = { line = │
│ 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123."|]<br/> position = { line = 0<br/> column = │
│ 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 43.45ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "00.1"
|> parserEqual (Success (JNumber 0.0))
╭─[ 41.19ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 0.0, { lines = [ │
│ |"00.1"|]<br/> position = { line = 0<br/> │
│ column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 0.0, { lines = [ │
│ |"00.1"|]<br/> position = { line = 0<br/> column = │
│ 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 0.0</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 48.46ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 0.0 │
│ JNumber │
│ Item: 0 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let jNumber_ = jNumber .>> spaces1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123"
|> parserEqual (Success (JNumber 123.0))
╭─[ 53.04ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 1<br/> column = 0 │
│ } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.0</code></span></summary><div><table><thead><tr></tr></the... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 61.35ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.0 │
│ JNumber │
│ Item: 123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "-123"
|> parserEqual (Success (JNumber -123.0))
╭─[ 47.28ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr></t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 55.24ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "-123."
|> parserEqual (
Failure (
"number andThen many1 whitespace",
"Unexpected '.'",
{ currentLine = "-123."; line = 0; column = 4 }
)
)
╭─[ 38.67ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure<br/> ("number andThen many1 │
│ whitespace", "Unexpected '.'", { currentLine = │
│ "-123."<br/> │
│ line = 0<br/> │
│ column = 4 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>number andThen many1 │
│ whitespace</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ '.'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 47.45ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:4 Error parsing number andThen many1 whitespace │
│ -123. │
│ ^Unexpected '.' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4"
|> parserEqual (Success (JNumber 123.4))
╭─[ 49.97ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.4</code></span></summary><div><table><thead><tr></tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 57.78ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.4 │
│ JNumber │
│ Item: 123.4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "00.4"
|> parserEqual (
Failure (
"number andThen many1 whitespace",
"Unexpected '0'",
{ currentLine = "00.4"; line = 0; column = 1 }
)
)
╭─[ 35.24ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure<br/> ("number andThen many1 │
│ whitespace", "Unexpected '0'", { currentLine = │
│ "00.4"<br/> │
│ line = 0<br/> │
│ column = 1 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>number andThen many1 │
│ whitespace</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ '0'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "0... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.77ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:1 Error parsing number andThen many1 whitespace │
│ 00.4 │
│ ^Unexpected '0' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123e4"
|> parserEqual (Success (JNumber 1230000.0))
╭─[ 43.40ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 1230000.0, { lines = [ │
│ |"123e4"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 1230000.0, { lines = [ │
│ |"123e4"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 1230000.0</code></span></summary><div><tab... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 52.83ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 1230000.0 │
│ JNumber │
│ Item: 1230000 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4e5"
|> parserEqual (Success (JNumber 12340000.0))
╭─[ 49.32ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 12340000.0, { lines = [ │
│ |"123.4e5"|]<br/> position = { line │
│ = 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 12340000.0, { lines = [ │
│ |"123.4e5"|]<br/> position = { line = 1<br/> column │
│ = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber 12340000.0</code></span></summary>... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 56.65ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 12340000.0 │
│ JNumber │
│ Item: 12340000 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4e-5"
|> parserEqual (Success (JNumber 0.001234))
╭─[ 41.68ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 0.001234, { lines = [ │
│ |"123.4e-5"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 0.001234, { lines = [ │
│ |"123.4e-5"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 0.001234</code></span></summary><div><ta... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 49.43ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 0.001234 │
│ JNumber │
│ Item: 0.001234 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jArray │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jArray =
let left = pchar '[[' .>> spaces
let right = pchar ']]' .>> spaces
let comma = pchar ',' .>> spaces
let value = jValue .>> spaces
let values = sepBy value comma
between left values right
|>> JArray
<?> "array"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
jArray
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jArray "[[ 1, 2 ]]"
|> parserEqual (Success (JArray [[ JNumber 1.0; JNumber 2.0 ]]))
╭─[ 103.37ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JArray [JNumber 1.0; JNumber 2.0], { │
│ lines = [|"[ 1, 2 ]"|]<br/> │
│ position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JArray [JNumber 1.0; JNumber 2.0], { lines = [ │
│ |"[ 1, 2 ]"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span class="d... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 110.18ms - stdout ]────────────────────────────────────────────────────────╮
│ JArray [JNumber 1.0; JNumber 2.0] │
│ JArray │
│ Item: FSharpList<JValue> │
│ - Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jArray "[[ 1, 2, ]]"
|> parserEqual (
Failure (
"array",
"Unexpected ','",
{ currentLine = "[[ 1, 2, ]]"; line = 0; column = 6 }
)
)
╭─[ 56.88ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("array", "Unexpected │
│ ','", { currentLine = "[ 1, 2, ]"<br/> │
│ line = 0<br/> column = 6 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>array</pre></div></td></tr><tr><td>Item2</td><td> │
│ <div class="dni-plaintext"><pre>Unexpected │
│ ','</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "[ 1, 2, ]"<br/> line = 0<br/> column = 6 │
│ }</code></span></summary><div><table><thead><t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 64.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:6 Error parsing array │
│ [ 1, 2, ] │
│ ^Unexpected ',' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jObject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jObject =
let left = spaces >>. pchar '{' .>> spaces
let right = pchar '}' .>> spaces
let colon = pchar ':' .>> spaces
let comma = pchar ',' .>> spaces
let key = quotedString .>> spaces
let value = jValue .>> spaces
let keyValue = (key .>> colon) .>>. value
let keyValues = sepBy keyValue comma
between left keyValues right
|>> Map.ofList
|>> JObject
<?> "object"
── fsharp ──────────────────────────────────────────────────────────────────────
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
jArray
jObject
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jObject """{ "a":1, "b" : 2 }"""
|> parserEqual (
Success (
JObject (
Map.ofList [[
"a", JNumber 1.0
"b", JNumber 2.0
]]
)
)
)
╭─[ 94.63ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject (map [("a", │
│ JNumber 1.0); ("b", JNumber 2.0)]),<br/> { lines = [|"{ │
│ "a":1, "b" : 2 }"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject (map [("a", JNumber 1.0); │
│ ("b", JNumber 2.0)]), { lines = [|"{ "a":1, │
│ "b" : 2 }"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 101.50ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: a │
│ Value: JNumber │
│ Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: b │
│ Value: JNumber │
│ Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jObject """{ "a":1, "b" : 2, }"""
|> parserEqual (
Failure (
"object",
"Unexpected ','",
{ currentLine = """{ "a":1, "b" : 2, }"""; line = 0; column = 18 }
)
)
╭─[ 58.78ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("object", "Unexpected │
│ ','", { currentLine = "{ "a":1, "b" : │
│ 2, }"<br/> line = 0<br/> │
│ column = 18 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>object</pre></div></td></tr><tr><td>Item2</td><td │
│ ><div class="dni-plaintext"><pre>Unexpected │
│ ','</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "{ "a":1, "b" : 2, }"<br/> │
│ lin... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 69.89ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:18 Error parsing object │
│ { "a":1, "b" : 2, } │
│ ^Unexpected ',' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jValue │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 = """{
"name" : "Scott",
"isMale" : true,
"bday" : {"year":2001, "month":12, "day":25 },
"favouriteColors" : [["blue", "green"]],
"emptyArray" : [[]],
"emptyObject" : {}
}"""
run jValue example1
|> parserEqual (
Success (
JObject (
Map.ofList [[
"name", JString "Scott"
"isMale", JBool true
"bday", JObject (
Map.ofList [[
"year", JNumber 2001.0
"month", JNumber 12.0
"day", JNumber 25.0
]]
)
"favouriteColors", JArray [[ JString "blue"; JString "green" ]]
"emptyArray", JArray [[]]
"emptyObject", JObject Map.empty
]]
)
)
)
╭─[ 211.01ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("bday",<br/> JObject<br/> (map<br/> │
│ [("day", JNumber 25.0); ("month", JNumber 12.0);<br/> │
│ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │
│ ]);<br/> ("emptyObject", JObject (map []));<br/> │
│ ("favouriteColors", │
│ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │
│ d>Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("bday",<br/> JObject<br/> (map<br/> [ │
│ (... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 220.66ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("bday", │
│ JObject │
│ (map │
│ [("day", JNumber 25.0); ("month", JNumber 12.0); │
│ ("year", JNumber 2001.0)])); ("emptyArray", JArray []); │
│ ("emptyObject", JObject (map [])); │
│ ("favouriteColors", JArray [JString "blue"; JString "green"]); │
│ ("isMale", JBool true); ("name", JString "Scott")]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: bday │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: day │
│ Value: JNumber 25.0 │
│ - Key: month │
│ Value: JNumber 12.0 │
│ - Key: year │
│ Value: JNumber 2001.0 │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: emptyArray │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: emptyObject │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: favouriteColors │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: blue │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: green │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: isMale │
│ Value: JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: name │
│ Value: JString │
│ Item: Scott │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example2 = """{"widget": {
"debug": "on",
"window": {
"title": "Sample Konfabulator Widget",
"name": "main_window",
"width": 500,
"height": 500
},
"image": {
"src": "Images/Sun.png",
"name": "sun1",
"hOffset": 250,
"vOffset": 250,
"alignment": "center"
},
"text": {
"data": "Click Here",
"size": 36,
"style": "bold",
"name": "text1",
"hOffset": 250,
"vOffset": 100,
"alignment": "center",
"onMouseUp": "sun1.opacity = (sun1.opacity / 100) * 90;"
}
}}"""
run jValue example2
|> parserEqual (
Success (
JObject (
Map.ofList [[
"widget", JObject (
Map.ofList [[
"debug", JString "on"
"window", JObject (
Map.ofList [[
"title", JString "Sample Konfabulator Widget"
"name", JString "main_window"
"width", JNumber 500.0
"height", JNumber 500.0
]]
)
"image", JObject (
Map.ofList [[
"src", JString "Images/Sun.png"
"name", JString "sun1"
"hOffset", JNumber 250.0
"vOffset", JNumber 250.0
"alignment", JString "center"
]]
)
"text", JObject (
Map.ofList [[
"data", JString "Click Here"
"size", JNumber 36.0
"style", JString "bold"
"name", JString "text1"
"hOffset", JNumber 250.0
"vOffset", JNumber 100.0
"alignment", JString "center"
"onMouseUp", JString "sun1.opacity =
(sun1.opacity / 100) * 90;"
]]
)
]]
)
]]
)
)
)
╭─[ 560.29ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("widget",<br/> JObject<br/> (map<br/> │
│ [("debug", JString "on");<br/> │
│ ("image",<br/> JObject<br/> │
│ (map<br/> [("alignment", JString │
│ "center");<br/> │
│ ("hOffset"...</code></span></summary><div><table><thead><tr></tr>< │
│ /thead><tbody><tr><td>Item</td><td><details │
│ class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("widget",<br/> JObject<br/> (map<br/> ... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 572.33ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("widget", │
│ JObject │
│ (map │
│ [("debug", JString "on"); │
│ ("image", │
│ JObject │
│ (map │
│ [("alignment", JString "center"); ("hOffset", JNumber │
│ 250.0); │
│ ("name", JString "sun1"); ("src", JString │
│ "Images/Sun.png"); │
│ ("vOffset", JNumber 250.0)])); │
│ ("text", │
│ JObject │
│ (map │
│ [("alignment", JString "center"); │
│ ("data", JString "Click Here"); ("hOffset", JNumber │
│ 250.0); │
│ ("name", JString "text1"); │
│ ("onMouseUp", │
│ JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │
│ ("size", JNumber 36.0); ("style", JString "bold"); │
│ ("vOffset", JNumber 100.0)])); │
│ ("window", │
│ JObject │
│ (map │
│ [("height", JNumber 500.0); ("name", JString │
│ "main_window"); │
│ ("title", JString "Sample Konfabulator Widget"); │
│ ("width", JNumber 500.0)]))]))]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: widget │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: debug │
│ Value: JString "on" │
│ - Key: image │
│ Value: JObject │
│ (map │
│ [("alignment", JString "center"); ("hOffset", JNumber 250.0); │
│ ("name", JString "sun1"); ("src", JString "Images/Sun.png"); │
│ ("vOffset", JNumber 250.0)]) │
│ - Key: text │
│ Value: JObject │
│ (map │
│ [("alignment", JString "center"); ("data", JString "Click Here"); │
│ ("hOffset", JNumber 250.0); ("name", JString "text1"); │
│ ("onMouseUp", JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │
│ ("size", JNumber 36.0); ("style", JString "bold"); │
│ ("vOffset", JNumber 100.0)]) │
│ - Key: window │
│ Value: JObject │
│ (map │
│ [("height", JNumber 500.0); ("name", JString "main_window"); │
│ ("title", JString "Sample Konfabulator Widget"); ("width", JNumber │
│ 500.0)]) │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example3 = """{
"string": "Hello, \"World\"!",
"escapedString": "This string contains \\/\\\\\\b\\f\\n\\r\\t\\\"\\'",
"number": 42,
"scientificNumber": 3.14e-10,
"boolean": true,
"nullValue": null,
"array": [[1, 2, 3, 4, 5]],
"unicodeString1": "프리마",
"unicodeString2": "\u0048\u0065\u006C\u006C\u006F,
\u0022\u0057\u006F\u0072\u006C\u0064\u0022!",
"specialCharacters": "!@#$%^&*()",
"emptyArray": [[]],
"emptyObject": {},
"nestedArrays": [[[[1, 2, 3]], [[4, 5, 6]]]],
"object": {
"nestedString": "Nested Value",
"nestedNumber": 3.14,
"nestedBoolean": false,
"nestedNull": null,
"nestedArray": [["a", "b", "c"]],
"nestedObject": {
"nestedProperty": "Nested Object Value"
}
},
"nestedObjects": [[
{"name": "Alice", "age": 25},
{"name": "Bob", "age": 30}
]]
}"""
run jValue example3
|> parserEqual (
Success (
JObject (
Map.ofList [[
"string", JString @"Hello, ""World""!"
"escapedString", JString @"This string contains
\/\\\b\f\n\r\t\""\'"
"number", JNumber 42.0
"scientificNumber", JNumber 3.14e-10
"boolean", JBool true
"nullValue", JNull
"array", JArray [[
JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber
5.0
]]
"unicodeString1", JString "프리마"
"unicodeString2", JString @"Hello, ""World""!"
"specialCharacters", JString "!@#$%^&*()"
"emptyArray", JArray [[]]
"emptyObject", JObject Map.empty
"nestedArrays", JArray [[
JArray [[ JNumber 1.0; JNumber 2.0; JNumber 3.0 ]]
JArray [[ JNumber 4.0; JNumber 5.0; JNumber 6.0 ]]
]]
"object", JObject (
Map.ofList [[
"nestedString", JString "Nested Value"
"nestedNumber", JNumber 3.14
"nestedBoolean", JBool false
"nestedNull", JNull
"nestedArray", JArray [[JString "a"; JString "b";
JString "c"]]
"nestedObject", JObject (
Map.ofList [[
"nestedProperty", JString "Nested Object Value"
]]
)
]]
)
"nestedObjects", JArray [[
JObject (Map.ofList [[ "name", JString "Alice"; "age", JNumber
25.0 ]])
JObject (Map.ofList [[ "name", JString "Bob"; "age", JNumber
30.0 ]])
]]
]]
)
)
)
╭─[ 672.38ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("array",<br/> JArray<br/> [JNumber 1.0; │
│ JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber 5.0]);<br/> │
│ ("boolean", JBool true); ("emptyArray", JArray []);<br/> │
│ ("emptyObject", JObject (map []));<br/> │
│ ("escapedString", JString "This │
│ s...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │
│ td>Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("array",<br/> JArray [JNumber 1.0; JNumber 2.0; JNumber │
│ 3.0; JNumber 4.0; J... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 681.94ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("array", │
│ JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber │
│ 5.0]); │
│ ("boolean", JBool true); ("emptyArray", JArray []); │
│ ("emptyObject", JObject (map [])); │
│ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │
│ ("nestedArrays", │
│ JArray │
│ [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; │
│ JArray [JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │
│ ("nestedObjects", │
│ JArray │
│ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │
│ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │
│ ("nullValue", JNull); ("number", JNumber 42.0); ...]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: array │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 3 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 5 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: boolean │
│ Value: JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: emptyArray │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: emptyObject │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: escapedString │
│ Value: JString │
│ Item: This string contains \/\\\b\f\n\r\t\"\' │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: nestedArrays │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: [ JNumber 1.0, JNumber 2.0, JNumber 3.0 ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Item: [ JNumber 4.0, JNumber 5.0, JNumber 6.0 ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: nestedObjects │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: [ [age, JNumber 25.0], [name, JString "Alice"] ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Item: [ [age, JNumber 30.0], [name, JString "Bob"] ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: nullValue │
│ Value: JValue │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: True │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: number │
│ Value: JNumber │
│ Item: 42 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: object │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: nestedArray │
│ Value: JArray [JString "a"; JString "b"; JString "c"] │
│ - Key: nestedBoolean │
│ Value: JBool false │
│ - Key: nestedNull │
│ Value: JNull │
│ - Key: nestedNumber │
│ Value: JNumber 3.14 │
│ - Key: nestedObject │
│ Value: JObject (map [("nestedProperty", JString "Nested │
│ Object Value")]) │
│ - Key: nestedString │
│ Value: JString "Nested Value" │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: scientificNumber │
│ Value: JNumber │
│ Item: 3.14E-10 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: specialCharacters │
│ Value: JString │
│ Item: !@#$%^&*() │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: string │
│ Value: JString │
│ Item: Hello, "World"! │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: unicodeString1 │
│ Value: JString │
│ Item: 프리마 │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: unicodeString2 │
│ Value: JString │
│ Item: Hello, "World"! │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook JsonParser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 545453 bytes to JsonParser.dib.html
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\parser / path: Parser.dib / _args: null
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Parser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### TextInput │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Position =
{
line : int
column : int
}
── fsharp ──────────────────────────────────────────────────────────────────────
let initialPos = { line = 0; column = 0 }
── fsharp ──────────────────────────────────────────────────────────────────────
let inline incrCol (pos : Position) =
{ pos with column = pos.column + 1 }
── fsharp ──────────────────────────────────────────────────────────────────────
let inline incrLine pos =
{ line = pos.line + 1; column = 0 }
── fsharp ──────────────────────────────────────────────────────────────────────
type InputState =
{
lines : string[[]]
position : Position
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline fromStr str =
{
lines =
if str |> String.IsNullOrEmpty
then [[||]]
else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]]
position = initialPos
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
fromStr "" |> _assertEqual {
lines = [[||]]
position = { line = 0; column = 0 }
}
╭─[ 50.42ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
fromStr "Hello \n World" |> _assertEqual {
lines = [[| "Hello "; " World" |]]
position = { line = 0; column = 0 }
}
╭─[ 24.48ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello , World ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline currentLine inputState =
let linePos = inputState.position.line
if linePos < inputState.lines.Length
then inputState.lines.[[linePos]]
else "end of file"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline nextChar input =
let linePos = input.position.line
let colPos = input.position.column
if linePos >= input.lines.Length
then input, None
else
let currentLine = currentLine input
if colPos < currentLine.Length then
let char = currentLine.[[colPos]]
let newPos = incrCol input.position
let newState = { input with position = newPos }
newState, Some char
else
let char = '\n'
let newPos = incrLine input.position
let newState = { input with position = newPos }
newState, Some char
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let newInput, charOpt = fromStr "Hello World" |> nextChar
newInput |> _assertEqual {
lines = [[| "Hello World" |]]
position = { line = 0; column = 1 }
}
charOpt |> _assertEqual (Some 'H')
╭─[ 41.02ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello World ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ FSharpOption<Char> │
│ Value: H │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let newInput, charOpt = fromStr "Hello\n\nWorld" |> nextChar
newInput |> _assertEqual {
lines = [[| "Hello"; ""; "World" |]]
position = { line = 0; column = 1 }
}
charOpt |> _assertEqual (Some 'H')
╭─[ 30.12ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello, , World ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ FSharpOption<Char> │
│ Value: H │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### Parser │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Input = InputState
type ParserLabel = string
type ParserError = string
type ParserPosition =
{
currentLine : string
line : int
column : int
}
type ParseResult<'a> =
| Success of 'a
| Failure of ParserLabel * ParserError * ParserPosition
type Parser<'a> =
{
label : ParserLabel
parseFn : Input -> ParseResult<'a * Input>
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline printResult result =
match result with
| Success (value, input) ->
printfn $"%A{value}"
| Failure (label, error, parserPos) ->
let errorLine = parserPos.currentLine
let colPos = parserPos.column
let linePos = parserPos.line
let failureCaret = $"{' ' |> string |> String.replicate colPos}^{error}"
printfn $"Line:%i{linePos} Col:%i{colPos} Error parsing
%s{label}\n%s{errorLine}\n%s{failureCaret}"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline runOnInput parser input =
parser.parseFn input
── fsharp ──────────────────────────────────────────────────────────────────────
let inline run parser inputStr =
runOnInput parser (fromStr inputStr)
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parserPositionFromInputState (inputState : Input) =
{
currentLine = currentLine inputState
line = inputState.position.line
column = inputState.position.column
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getLabel parser =
parser.label
── fsharp ──────────────────────────────────────────────────────────────────────
let inline setLabel parser newLabel =
{
label = newLabel
parseFn = fun input ->
match parser.parseFn input with
| Success s -> Success s
| Failure (oldLabel, err, pos) -> Failure (newLabel, err, pos)
}
── fsharp ──────────────────────────────────────────────────────────────────────
let (<?>) = setLabel
── fsharp ──────────────────────────────────────────────────────────────────────
let inline satisfy predicate label =
{
label = label
parseFn = fun input ->
let remainingInput, charOpt = nextChar input
match charOpt with
| None ->
let err = "No more input"
let pos = parserPositionFromInputState input
Failure (label, err, pos)
| Some first ->
if predicate first
then Success (first, remainingInput)
else
let err = $"Unexpected '%c{first}'"
let pos = parserPositionFromInputState input
Failure (label, err, pos)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
runOnInput parser input |> _assertEqual (
Success (
'H',
{
lines = [[| "Hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 41.88ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - H │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "World"
let parser = satisfy (fun c -> c = 'H') "H"
runOnInput parser input |> _assertEqual (
Failure (
"H",
"Unexpected 'W'",
{
currentLine = "World"
line = 0
column = 0
}
)
)
╭─[ 31.19ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: H │
│ Item2: Unexpected 'W' │
│ Item3: ParserPosition │
│ currentLine: World │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline bindP f p =
{
label = "unknown"
parseFn = fun input ->
match runOnInput p input with
| Failure (label, err, pos) -> Failure (label, err, pos)
| Success (value1, remainingInput) -> runOnInput (f value1)
remainingInput
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>=) p f = bindP f p
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e"
runOnInput parser2 input |> _assertEqual (
Success (
'e',
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 49.10ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - e │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "World"
let parser = satisfy (fun c -> c = 'W') "W"
let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e"
runOnInput parser2 input |> _assertEqual (
Failure (
"e",
"Unexpected 'o'",
{
currentLine = "World"
line = 0
column = 1
}
)
)
╭─[ 51.25ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: e │
│ Item2: Unexpected 'o' │
│ Item3: ParserPosition │
│ currentLine: World │
│ line: 0 │
│ column: 1 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline returnP x =
{
label = $"%A{x}"
parseFn = fun input -> Success (x, input)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = returnP "Hello"
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 57.85ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline mapP f =
bindP (f >> returnP)
── fsharp ──────────────────────────────────────────────────────────────────────
let (<!>) = mapP
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (|>>) x f = f <!> x
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = parser |>> string
runOnInput parser2 input |> _assertEqual (
Success (
"H",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 38.60ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - H │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline applyP fP xP =
fP >>=
fun f ->
xP >>=
fun x ->
returnP (f x)
── fsharp ──────────────────────────────────────────────────────────────────────
let (<*>) = applyP
── fsharp ──────────────────────────────────────────────────────────────────────
let inline lift2 f xP yP =
returnP f <*> xP <*> yP
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = lift2 (fun c1 c2 -> string c1 + string c2) parser parser2
runOnInput parser3 input |> _assertEqual (
Success (
"He",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 61.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - He │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline andThen p1 p2 =
p1 >>=
fun p1Result ->
p2 >>=
fun p2Result ->
returnP (p1Result, p2Result)
<?> $"{getLabel p1} andThen {getLabel p2}"
── fsharp ──────────────────────────────────────────────────────────────────────
let (.>>.) = andThen
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = parser .>>. parser2
runOnInput parser3 input |> _assertEqual (
Success (
('H', 'e'),
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 66.89ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - ( H, e ) │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline orElse p1 p2 =
{
label = $"{getLabel p1} orElse {getLabel p2}"
parseFn = fun input ->
match runOnInput p1 input with
| Success _ as result -> result
| Failure _ -> runOnInput p2 input
}
── fsharp ──────────────────────────────────────────────────────────────────────
let (<|>) = orElse
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'h') "h"
let parser3 = parser <|> parser2
runOnInput parser3 input |> _assertEqual (
Success (
'h',
{
lines = [[| "hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 42.07ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - h │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline choice listOfParsers =
listOfParsers |> List.reduce (<|>)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'h') "h"
let parser3 = choice [[ parser; parser2 ]]
runOnInput parser3 input |> _assertEqual (
Success (
'h',
{
lines = [[| "hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 35.35ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - h │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let rec sequence parserList =
match parserList with
| [[]] -> returnP [[]]
| head :: tail -> (lift2 cons) head (sequence tail)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = sequence [[ parser; parser2 ]]
runOnInput parser3 input |> _assertEqual (
Success (
[[ 'H'; 'e' ]],
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 146.44ms - stdout ]────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e ] │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let rec parseZeroOrMore parser input =
match runOnInput parser input with
| Failure (_, _, _) ->
[[]], input
| Success (firstValue, inputAfterFirstParse) ->
let subsequentValues, remainingInput = parseZeroOrMore parser
inputAfterFirstParse
firstValue :: subsequentValues, remainingInput
── fsharp ──────────────────────────────────────────────────────────────────────
let inline many parser =
{
label = $"many {getLabel parser}"
parseFn = fun input -> Success (parseZeroOrMore parser input)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = many parser
runOnInput parser2 input |> _assertEqual (
Success (
[[]],
{
lines = [[| "hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 36.85ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ ] │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline many1 p =
p >>=
fun head ->
many p >>=
fun tail ->
returnP (head :: tail)
<?> $"many1 {getLabel p}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = many1 parser
runOnInput parser2 input |> _assertEqual (
Failure (
"many1 H",
"Unexpected 'h'",
{
currentLine = "hello"
line = 0
column = 0
}
)
)
╭─[ 57.88ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: many1 H │
│ Item2: Unexpected 'h' │
│ Item3: ParserPosition │
│ currentLine: hello │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline opt p =
let some = p |>> Some
let none = returnP None
(some <|> none)
<?> $"opt {getLabel p}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = opt parser
runOnInput parser2 input |> _assertEqual (
Success (
None,
{
lines = [[| "hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 48.24ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - <null> │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (.>>) p1 p2 =
p1 .>>. p2
|> mapP fst
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>.) p1 p2 =
p1 .>>. p2
|> mapP snd
── fsharp ──────────────────────────────────────────────────────────────────────
let inline between p1 p2 p3 =
p1 >>. p2 .>> p3
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "[[Hello]]"
let parser =
between
(satisfy (fun c -> c = '[[') "[[")
(many (satisfy (fun c -> [[ 'a' .. 'z' ]] @ [[ 'A' .. 'Z' ]] |>
List.contains c) "letter"))
(satisfy (fun c -> c = ']]') "]]")
runOnInput parser input |> _assertEqual (
Success (
[[ 'H'; 'e'; 'l'; 'l'; 'o' ]],
{
lines = [[| "[[Hello]]" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 133.03ms - stdout ]────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e, l, l, o ] │
│ - InputState │
│ lines: [ [Hello] ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sepBy1 p sep =
let sepThenP = sep >>. p
p .>>. many sepThenP
|>> fun (p, pList) -> p :: pList
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sepBy p sep =
sepBy1 p sep <|> returnP [[]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello,World"
let parser = sepBy (many (satisfy (fun c -> c <> ',') "not comma")) (satisfy
(fun c -> c = ',') "comma")
runOnInput parser input |> _assertEqual (
Success (
[[ [[ 'H'; 'e'; 'l'; 'l'; 'o' ]]; [[ 'W'; 'o'; 'r'; 'l'; 'd'; '\n' ]]
]],
{
lines = [[| "Hello,World" |]]
position = { line = 1; column = 0 }
}
)
)
╭─[ 93.78ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - FSharpList<FSharpList<Char>> │
│ [ H, e, l, l, o ] │
│ [ W, o, r, l, d, │
│ ] │
│ - InputState │
│ lines: [ Hello,World ] │
│ position: Position │
│ line: 1 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline pchar charToMatch =
satisfy ((=) charToMatch) $"%c{charToMatch}"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline anyOf listOfChars =
listOfChars
|> List.map pchar
|> choice
<?> $"anyOf %A{listOfChars}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = anyOf [[ 'H'; 'e'; 'l'; 'o' ]] |> many
runOnInput parser input |> _assertEqual (
Success (
[[ 'H'; 'e'; 'l'; 'l'; 'o' ]],
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 45.14ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e, l, l, o ] │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline charListToStr charList =
charList |> List.toArray |> String
── fsharp ──────────────────────────────────────────────────────────────────────
let inline manyChars cp =
many cp
|>> charListToStr
── fsharp ──────────────────────────────────────────────────────────────────────
let inline manyChars1 cp =
many1 cp
|>> charListToStr
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = manyChars1 (anyOf [[ 'H'; 'e'; 'l'; 'o' ]])
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 80.53ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline pstring str =
str
|> List.ofSeq
|> List.map pchar
|> sequence
|> mapP charListToStr
<?> str
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = pstring "Hello"
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 60.42ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let whitespaceChar =
satisfy Char.IsWhiteSpace "whitespace"
── fsharp ──────────────────────────────────────────────────────────────────────
let spaces = many whitespaceChar
── fsharp ──────────────────────────────────────────────────────────────────────
let spaces1 = many1 whitespaceChar
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr " Hello"
let parser = spaces1 .>>. pstring "Hello"
runOnInput parser input |> _assertEqual (
Success (
([[ ' '; ' ' ]], "Hello"),
{
lines = [[| " Hello" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 62.06ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - - [ , ] │
│ - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let digitChar =
satisfy Char.IsDigit "digit"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = digitChar
runOnInput parser input |> _assertEqual (
Failure (
"digit",
"Unexpected 'H'",
{
currentLine = "Hello"
line = 0
column = 0
}
)
)
╭─[ 22.98ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: digit │
│ Item2: Unexpected 'H' │
│ Item3: ParserPosition │
│ currentLine: Hello │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let pint =
let inline resultToInt (sign, digits) =
let i = int digits
match sign with
| Some ch -> -i
| None -> i
let digits = manyChars1 digitChar
opt (pchar '-') .>>. digits
|> mapP resultToInt
<?> "integer"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run pint "-123"
|> _assertEqual (
Success (
-123,
{
lines = [[| "-123" |]]
position = { line = 0; column = 4 }
}
)
)
╭─[ 40.13ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - -123 │
│ - InputState │
│ lines: [ -123 ] │
│ position: Position │
│ line: 0 │
│ column: 4 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let pfloat =
let inline resultToFloat (((sign, digits1), point), digits2) =
let fl = float $"{digits1}.{digits2}"
match sign with
| Some ch -> -fl
| None -> fl
let digits = manyChars1 digitChar
opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits
|> mapP resultToFloat
<?> "float"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run pfloat "-123.45"
|> _assertEqual (
Success (
-123.45,
{
lines = [[| "-123.45" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 41.91ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - -123.45 │
│ - InputState │
│ lines: [ -123.45 ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline createParserForwardedToRef<'a> () =
let mutable parserRef : Parser<'a> =
{
label = "unknown"
parseFn = fun _ -> failwith "unfixed forwarded parser"
}
let wrapperParser =
{ parserRef with
parseFn = fun input -> runOnInput parserRef input
}
wrapperParser, (fun v -> parserRef <- v)
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>%) p x =
p
|>> fun _ -> x
[NbConvertApp] Converting notebook Parser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 415273 bytes to Parser.dib.html
00:00:00 debug #1 writeDibCode / output: Fs / path: Parser.dib
00:00:00 debug #1 writeDibCode / output: Fs / path: JsonParser.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: Parser.dib
00:00:00 debug #3 parseDibCode / output: Fs / file: JsonParser.dib
In [ ]:
{ . "$ScriptDir/../apps/spiral/build.ps1" } | Invoke-Block
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\spiral / path: Supervisor.dib / _args: [
"-Retries",
3
]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Supervisor (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r @"../../../../../../../.nuget/packages/micros...
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendJson │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendJson (port : int) (json : string) = async {
let! portOpen = SpiralNetworking.test_port_open port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result = connection.InvokeAsync<string>("ClientToServerMsg",
json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Verbose (fun () -> $"sendJson / port: {port} / json: {json |>
SpiralSm.ellipsis_end 200} / result: {result |> Option.ofObj |> Option.map
(SpiralSm.ellipsis_end 200)}") _locals
return Some result
with ex ->
trace Critical (fun () -> $"sendJson / port: {port} / json: {json |>
SpiralSm.ellipsis_end 200} / ex: {ex |> SpiralSm.format_exception}") _locals
return None
else
trace Debug (fun () -> "sendJson / error: port not open") _locals
return None
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendObj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendObj port obj =
obj
|> System.Text.Json.JsonSerializer.Serialize
|> sendJson port
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## awaitCompiler │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type VSCPos = {| line : int; character : int |}
type VSCRange = VSCPos * VSCPos
type RString = VSCRange * string
type TracedError = {| trace : string list; message : string |}
type ClientErrorsRes =
| FatalError of string
| TracedError of TracedError
| PackageErrors of {| uri : string; errors : RString list |}
| TokenizerErrors of {| uri : string; errors : RString list |}
| ParserErrors of {| uri : string; errors : RString list |}
| TypeErrors of {| uri : string; errors : RString list |}
── fsharp ──────────────────────────────────────────────────────────────────────
let repositoryRoot = SpiralFileSystem.get_repository_root ()
── fsharp ──────────────────────────────────────────────────────────────────────
let inline awaitCompiler port cancellationToken = async {
let struct (ct, disposable) = cancellationToken |>
SpiralThreading.new_disposable_token
let! ct = ct |> SpiralAsync.merge_cancellation_token_with_default_async
let compiler = MailboxProcessor.Start (fun inbox -> async {
let! availablePort = SpiralNetworking.get_available_port (Some 60) port
if availablePort <> port then
inbox.Post (port, false)
else
let compilerPath =
repositoryRoot </> "deps/The-Spiral-Language/The Spiral Language
2/artifacts/bin/The Spiral Language 2/release"
|> System.IO.Path.GetFullPath
let dllPath = compilerPath </> "Spiral.dll"
let command = $@"dotnet ""{dllPath}"" --port {availablePort}
--default-int i32 --default-float f64"
let onLine = fun struct (_, line, _) -> async {
if line |> SpiralSm.contains $"Server bound to:
http://localhost:{availablePort}" then
do! SpiralNetworking.wait_for_port_access (Some 500) true
availablePort |> Async.Ignore
let rec loop retry = async {
let _locals () = $"port: {availablePort} / retry:
{retry} / {_locals ()}"
try
let pingObj = {| Ping = true |}
let! pingResult = pingObj |> sendObj availablePort
trace Verbose (fun () -> $"awaitCompiler / Ping /
result: {pingResult}") _locals
with ex ->
trace Verbose (fun () -> $"awaitCompiler / Ping /
ex: {ex |> SpiralSm.format_exception}") _locals
do! Async.Sleep 10
do! loop (retry + 1)
}
do! loop 0
inbox.Post (availablePort, true)
}
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (Some ct,
command, Some onLine, Some repositoryRoot)
trace Debug (fun () -> $"awaitCompiler / exitCode: {exitCode} /
result: {result}") _locals
disposable.Dispose ()
}, ct)
let! serverPort, managed = compiler.Receive ()
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{serverPort}").Build ()
do! connection.StartAsync () |> Async.AwaitTask
let event = Event<_> ()
let disposable' = connection.On<string> ("ServerToClientMsg", event.Trigger)
let stream =
FSharp.Control.AsyncSeq.unfoldAsync
(fun () -> async {
let! msg = event.Publish |> Async.AwaitEvent
return Some (msg |>
FSharp.Json.Json.deserialize<ClientErrorsRes>, ())
})
()
let disposable' =
new_disposable (fun () ->
async {
disposable'.Dispose ()
do! connection.StopAsync () |> Async.AwaitTask
disposable.Dispose ()
if managed
then do! SpiralNetworking.wait_for_port_access (Some 2000) false
serverPort |> Async.Ignore
}
|> Async.RunSynchronously
)
return
serverPort,
stream,
ct,
disposable'
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFilePathFromUri │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFilePathFromUri uri =
match System.Uri.TryCreate (uri, System.UriKind.Absolute) with
| true, uri -> uri.AbsolutePath |> System.IO.Path.GetFullPath
| _ -> failwith "invalid uri"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCompilerPort │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCompilerPort () =
13805
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## serialize_obj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let serializeObj obj =
obj
|> FSharp.Json.Json.serialize
|> SpiralSm.replace "\\\\" "\\"
|> SpiralSm.replace "\\r\\n" "\n"
|> SpiralSm.replace "\\n" "\n"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile timeout port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let fileName = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let stream, disposable = fileDir |> FileSystem.watchDirectory (fun _ ->
false)
use _ = disposable
let struct (token, disposable) = SpiralThreading.new_disposable_token
cancellationToken
use _ = disposable
let! serverPort, errors, ct, disposable = awaitCompiler port (Some token)
use _ = disposable
let fsxContentSeq =
stream
|> FSharp.Control.AsyncSeq.chooseAsync (function
| _, (FileSystem.FileSystemChange.Changed (path, _))
when (path |> System.IO.Path.GetFileName) = $"{fileName}.fsx"
->
fileDir </> path |>
SpiralFileSystem.read_all_text_retry_async
| _ -> None |> Async.init
)
|> FSharp.Control.AsyncSeq.map (fun content ->
Some (content |> SpiralSm.replace "\r\n" "\n"), None
)
let inline printErrorData (data : {| uri : string; errors : RString list |})
=
let fileName = data.uri |> System.IO.Path.GetFileName
let errors =
data.errors
|> List.map snd
|> SpiralSm.concat "\n"
$"{fileName}:\n{errors}"
let errorsSeq =
errors
|> FSharp.Control.AsyncSeq.choose (fun error ->
match error with
| FatalError message ->
Some (message, error)
| TracedError data ->
Some (data.message, error)
| PackageErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TokenizerErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| ParserErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TypeErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| _ -> None
)
|> FSharp.Control.AsyncSeq.map (fun (message, error) ->
None, Some (message, error)
)
let timerSeq =
1000
|> FSharp.Control.AsyncSeq.intervalMs
|> FSharp.Control.AsyncSeq.map (fun _ -> None, None)
let outputSeq =
[[ fsxContentSeq; errorsSeq; timerSeq ]]
|> FSharp.Control.AsyncSeq.mergeAll
let! outputChild =
((None, [[]], 0), outputSeq)
||> FSharp.Control.AsyncSeq.scan (
fun (fsxContentResult, errors, typeErrorCount) (fsxContent, error)
->
match fsxContent, error with
| Some fsxContent, None -> Some fsxContent, errors,
typeErrorCount
| None, Some (_, FatalError "File main has a type error
somewhere in its path.") ->
fsxContentResult, errors, typeErrorCount + 1
| None, Some error -> fsxContentResult, error :: errors,
typeErrorCount
| None, None when typeErrorCount >= 1 ->
fsxContentResult, errors, typeErrorCount + 1
| _ -> fsxContentResult, errors, typeErrorCount
)
|> FSharp.Control.AsyncSeq.takeWhileInclusive (fun (fsxContent, errors,
typeErrorCount) ->
trace Debug (fun () -> $"buildFile / takeWhileInclusive /
fsxContent: {fsxContent |> Option.defaultValue System.String.Empty |>
SpiralSm.ellipsis_end 400} / errors: {errors |> serializeObj} / typeErrorCount:
{typeErrorCount}") _locals
#if INTERACTIVE
let errorWait = 2
#else
let errorWait = 4
#endif
match fsxContent, errors with
| None, [[]] when typeErrorCount > errorWait -> false
| None, [[]] -> true
| _ -> false
)
|> FSharp.Control.AsyncSeq.tryLast
|> Async.withCancellationToken ct
|> Async.catch
|> Async.runWithTimeoutAsync timeout
|> Async.StartChild
let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |>
SpiralFileSystem.new_file_uri
let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
do! Async.Sleep 60
let buildFileObj = {| BuildFile = {| uri = fullPathUri; backend = "Fsharp"
|} |}
let! _buildFileResult = buildFileObj |> sendObj serverPort
let! result =
outputChild
|> Async.map (function
| Some (Ok (Some (message, errors, _))) ->
message, errors |> List.distinct |> List.rev
| Some (Error ex) ->
trace Critical (fun () -> $"buildFile / error: {ex |>
serializeObj}") _locals
None, [[]]
| _ -> None, [[]]
)
if fileDir |> SpiralSm.starts_with (repositoryRoot </> "target") then
let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |>
SpiralFileSystem.new_file_uri
let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |}
let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort
()
return result
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCode code = async {
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
let packagesDir = targetDir </> "packages"
let hashHex = code |> SpiralCrypto.hash_text
let codeDir = packagesDir </> hashHex
codeDir |> System.IO.Directory.CreateDirectory |> ignore
let mainPath = codeDir </> "main.spi"
do! code |> SpiralFileSystem.write_all_text_exists mainPath
let spiprojPath = codeDir </> "package.spiproj"
let spiprojCode =
$"""packageDir: {repositoryRoot </> "lib"}
packages:
|core-
spiral-
modules:
main
"""
do! spiprojCode |> SpiralFileSystem.write_all_text_exists spiprojPath
return mainPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode timeout cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> buildFile timeout port cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let buildCode timeout cancellationToken code = buildCode timeout
cancellationToken code
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl app () =
console.write_line "text"
1i32
inl main () =
app
|> dyn
|> ignore
"""
|> buildCode 15000 None
|> Async.runWithTimeout 15000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some """let rec closure0 () () : int32 =
let v0 : string = "text"
System.Console.WriteLine v0
1
let v0 : (unit -> int32) = closure0()
()
""",
[[]]
)
)
╭─[ 6.37s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:11 debug #1 run_with_timeout_async / timeout: 60 │
│ 00:00:10 debug #1 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:11 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:11 verbose #3 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:11 verbose #4 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:11 verbose #5 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:12 debug #2 run_with_timeout_async / timeout: 500 │
│ 00:00:12 verbose #3 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:09 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:09 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:12 verbose #6 > Server bound to: http://localhost:13805 │
│ 00:00:09 debug #3 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:10 debug #4 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:10 verbose #5 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n console.write_line │
│ \u0022text\u0022\n 1i32\n\ninl main │
│ ...ot/spiral_eval/packages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e30e │
│ ba9d5e3b57a56e0/main.spi"}} / result: │
│ 00:00:10 verbose #6 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e │
│ 30eba9d5e3b57a56e0/main.spi"}} / result: │
│ 00:00:12 verbose #7 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0ad2ee90a0886647a7 │
│ d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0/main.spi │
│ 00:00:11 debug #7 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:12 debug #8 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:12 debug #9 buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:12 verbose #10 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0ad2ee90a │
│ 0886647a7d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0"]}} / result: │
│ 00:00:15 verbose #4 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:18 debug #5 run_with_timeout_async / timeout: 2000 │
│ 00:00:14 debug #11 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: let rec closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> _assertEqual None
╭─[ 12.18s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:18 debug #6 run_with_timeout_async / timeout: 60 │
│ 00:00:16 debug #8 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:17 verbose #9 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:17 verbose #10 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:17 verbose #11 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:17 verbose #12 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:19 debug #7 run_with_timeout_async / timeout: 500 │
│ 00:00:19 verbose #8 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:15 verbose #12 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:15 verbose #13 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:17 verbose #13 > Server bound to: http://localhost:13805 │
│ 00:00:15 debug #14 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:15 debug #15 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:15 verbose #16 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"","uri":"file:///c:/home/git/polyglot/target/polyglo │
│ t/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca4959 │
│ 91b7852b855/main.spi"}} / result: │
│ 00:00:15 verbose #17 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b93 │
│ 4ca495991b7852b855/main.spi"}} / result: │
│ 00:00:18 verbose #14 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855/main.spi │
│ 00:00:16 debug #18 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:17 debug #19 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:20 verbose #15 > Cannot find `main` in file main. │
│ 00:00:20 verbose #16 > Build skipped for │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855/main.spi │
│ 00:00:18 debug #20 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:19 debug #21 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:20 debug #22 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:21 debug #23 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:22 debug #24 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:23 debug #25 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:28 verbose #9 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:30 debug #10 run_with_timeout_async / timeout: 2000 │
│ 00:00:26 debug #26 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:26 debug #27 runWithTimeoutChildAsync / timeout: 10000 │
│ <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"inl app () =
0i32
inl a = 1
inl main () =
app
|> dyn
|> ignore
"
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Global inl/let statements should all return functions known at parse time." ]]
)
)
╭─[ 3.80s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:30 debug #11 run_with_timeout_async / timeout: 60 │
│ 00:00:29 debug #17 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:29 verbose #18 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:29 verbose #19 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:29 verbose #20 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:29 verbose #21 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:31 debug #12 run_with_timeout_async / timeout: 500 │
│ 00:00:31 verbose #13 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:28 verbose #28 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:28 verbose #29 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:30 verbose #22 > Server bound to: http://localhost:13805 │
│ 00:00:28 debug #30 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:28 debug #31 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:28 verbose #32 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n 0i32\n\ninl a = 1\n\ninl main () │
│ =\n app\n |\u003E │
│ d...ot/spiral_eval/packages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b84a │
│ 7038f033a002a481/main.spi"}} / result: │
│ 00:00:28 verbose #33 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b8 │
│ 4a7038f033a002a481/main.spi"}} / result: │
│ 00:00:30 verbose #23 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/348c96764a8f66af39 │
│ dd3ea799f5e487a51761b1e220b84a7038f033a002a481/main.spi │
│ 00:00:28 debug #34 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "main.spi: │
│ Global inl/let statements should all return functions known at parse time.", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 0, │
│ "line": 3 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 3 │
│ } │
│ ], │
│ "Global inl/let statements should all return functions known at │
│ parse time." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/348c96764 │
│ a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481/main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:28 verbose #35 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/348c96764 │
│ a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481"]}} / result: │
│ 00:00:32 verbose #14 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:34 debug #15 run_with_timeout_async / timeout: 2000 │
│ 00:00:30 debug #36 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Global inl/let statements should all return functions known at parse time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1i32 / 0i32
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "An attempt to divide by zero has been detected at compile time." ]]
)
)
╭─[ 5.30s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:34 debug #16 run_with_timeout_async / timeout: 60 │
│ 00:00:32 debug #24 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:33 verbose #25 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:33 verbose #26 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:33 verbose #27 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:33 verbose #28 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:35 debug #17 run_with_timeout_async / timeout: 500 │
│ 00:00:35 verbose #18 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:31 verbose #37 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:31 verbose #38 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:33 verbose #29 > Server bound to: http://localhost:13805 │
│ 00:00:31 debug #39 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:31 debug #40 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:31 verbose #41 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1i32 / │
│ 0i32\n","uri":"file:///c:/home/git/polyglot/target...ot/spiral_eval/packages │
│ /232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi"} │
│ } / result: │
│ 00:00:32 verbose #42 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb1 │
│ 7fe93dda9c433ec620/main.spi"}} / result: │
│ 00:00:34 verbose #30 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi │
│ 00:00:32 debug #43 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:33 debug #44 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:34 debug #45 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "An attempt to divide by zero has been detected at compile time.", │
│ { │
│ "TracedError": { │
│ "message": "An attempt to divide by zero has been detected at │
│ compile time.", │
│ "trace": [ │
│ "Error trace on line: 1, column: 10 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 2, column: 5 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi. │
│ 1i32 / 0i32 │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:34 verbose #46 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d86 │
│ 2bb0667133bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620"]}} / result: │
│ 00:00:37 verbose #19 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:39 debug #20 run_with_timeout_async / timeout: 2000 │
│ 00:00:36 debug #47 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ An attempt to divide by zero has been detected at compile time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1 + ""
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Constraint satisfaction error.
Got: string
Fails to satisfy: number"
]]
)
)
── fsharp ──────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ Expecto.AssertException: Testing.__expect.<br/> │
│ <span style="color: green;">expected</span>:<br/> │
│ Some<span style="color: green;"><br/> │
│ (None,<br/> │
│ ["main.spi:<br/> │
│ Constraint satisfaction error.<br/> │
│ Got: string<br/> │
│ Fails to satisfy: number"])</span><br/> │
│ <span style="color: red;"> actual</span>:<br/> │
│ Some<span style="color: red;"> (None, [])</span>
<br/> │
│ at Expecto.Expect.equalWithDiffPrinter@401-15.Invoke(String msg)
<br/> │
│ at Expecto.Expect.equalWithDiffPrinter$cont@383[a](FSharpFunc`2 │
│ diffPrinter, a actual, a expected, String message, Object e, Object a, Unit │
│ unitVar) in C:\workspaces\dotnet\expecto\Expecto\Expect.fs:line 401
<br/> │
│ at Expecto.Expect.equalWithDiffPrinter[a](FSharpFunc`2 diffPrinter, a │
│ actual, a expected, String message)
<br/> │
│ at <StartupCode$FSI_0042>.$FSI_0042.main@() │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 6.24s - stderr ]───────────────────────────────────────────────────────────╮
│ 00:00:39 debug #21 run_with_timeout_async / timeout: 60 │
│ 00:00:38 debug #31 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:38 verbose #32 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:38 verbose #33 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:38 verbose #34 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:39 verbose #35 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:40 debug #22 run_with_timeout_async / timeout: 500 │
│ 00:00:40 verbose #23 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:37 verbose #48 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:37 verbose #49 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:39 verbose #36 > Server bound to: http://localhost:13805 │
│ 00:00:37 debug #50 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:37 debug #51 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:37 verbose #52 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1 \u002B │
│ \u0022\u0022\n","uri":"file:///c:/home/git/polyg...ot/spiral_eval/packages/2 │
│ 278923ce88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d/main.spi"}} │
│ / result: │
│ 00:00:37 verbose #53 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/2278923ce88b0e473e77d4d93e25afa6e5e4f5efe80398 │
│ 2e504cc198d4c4d82d/main.spi"}} / result: │
│ 00:00:39 verbose #37 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2278923ce88b0e473e │
│ 77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d/main.spi │
│ 00:00:38 debug #54 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:38 debug #55 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 1 │
│ 00:00:39 debug #56 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 2 │
│ 00:00:40 debug #57 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 3 │
│ 00:00:40 verbose #58 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2278923ce │
│ 88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d"]}} / result: │
│ 00:00:43 verbose #24 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:45 debug #25 run_with_timeout_async / timeout: 2000 │
│ 00:00:42 debug #59 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
Exiting...
# Invoke-Block / $Retry: 3 / $Location: / Get-Location: C:\home\git\polyglot\apps\spiral / $OnError: Stop / $exitcode: -1 / $EnvVars: null / $Error: '' / $ScriptBlock:
'dotnet repl --run "$path" --output-path "$path.ipynb" --exit-after-run'
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Supervisor (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r @"../../../../../../../.nuget/packages/micros...
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendJson │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendJson (port : int) (json : string) = async {
let! portOpen = SpiralNetworking.test_port_open port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result = connection.InvokeAsync<string>("ClientToServerMsg",
json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Verbose (fun () -> $"sendJson / port: {port} / json: {json |>
SpiralSm.ellipsis_end 200} / result: {result |> Option.ofObj |> Option.map
(SpiralSm.ellipsis_end 200)}") _locals
return Some result
with ex ->
trace Critical (fun () -> $"sendJson / port: {port} / json: {json |>
SpiralSm.ellipsis_end 200} / ex: {ex |> SpiralSm.format_exception}") _locals
return None
else
trace Debug (fun () -> "sendJson / error: port not open") _locals
return None
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendObj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendObj port obj =
obj
|> System.Text.Json.JsonSerializer.Serialize
|> sendJson port
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## awaitCompiler │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type VSCPos = {| line : int; character : int |}
type VSCRange = VSCPos * VSCPos
type RString = VSCRange * string
type TracedError = {| trace : string list; message : string |}
type ClientErrorsRes =
| FatalError of string
| TracedError of TracedError
| PackageErrors of {| uri : string; errors : RString list |}
| TokenizerErrors of {| uri : string; errors : RString list |}
| ParserErrors of {| uri : string; errors : RString list |}
| TypeErrors of {| uri : string; errors : RString list |}
── fsharp ──────────────────────────────────────────────────────────────────────
let repositoryRoot = SpiralFileSystem.get_repository_root ()
── fsharp ──────────────────────────────────────────────────────────────────────
let inline awaitCompiler port cancellationToken = async {
let struct (ct, disposable) = cancellationToken |>
SpiralThreading.new_disposable_token
let! ct = ct |> SpiralAsync.merge_cancellation_token_with_default_async
let compiler = MailboxProcessor.Start (fun inbox -> async {
let! availablePort = SpiralNetworking.get_available_port (Some 60) port
if availablePort <> port then
inbox.Post (port, false)
else
let compilerPath =
repositoryRoot </> "deps/The-Spiral-Language/The Spiral Language
2/artifacts/bin/The Spiral Language 2/release"
|> System.IO.Path.GetFullPath
let dllPath = compilerPath </> "Spiral.dll"
let command = $@"dotnet ""{dllPath}"" --port {availablePort}
--default-int i32 --default-float f64"
let onLine = fun struct (_, line, _) -> async {
if line |> SpiralSm.contains $"Server bound to:
http://localhost:{availablePort}" then
do! SpiralNetworking.wait_for_port_access (Some 500) true
availablePort |> Async.Ignore
let rec loop retry = async {
let _locals () = $"port: {availablePort} / retry:
{retry} / {_locals ()}"
try
let pingObj = {| Ping = true |}
let! pingResult = pingObj |> sendObj availablePort
trace Verbose (fun () -> $"awaitCompiler / Ping /
result: {pingResult}") _locals
with ex ->
trace Verbose (fun () -> $"awaitCompiler / Ping /
ex: {ex |> SpiralSm.format_exception}") _locals
do! Async.Sleep 10
do! loop (retry + 1)
}
do! loop 0
inbox.Post (availablePort, true)
}
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (Some ct,
command, Some onLine, Some repositoryRoot)
trace Debug (fun () -> $"awaitCompiler / exitCode: {exitCode} /
result: {result}") _locals
disposable.Dispose ()
}, ct)
let! serverPort, managed = compiler.Receive ()
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{serverPort}").Build ()
do! connection.StartAsync () |> Async.AwaitTask
let event = Event<_> ()
let disposable' = connection.On<string> ("ServerToClientMsg", event.Trigger)
let stream =
FSharp.Control.AsyncSeq.unfoldAsync
(fun () -> async {
let! msg = event.Publish |> Async.AwaitEvent
return Some (msg |>
FSharp.Json.Json.deserialize<ClientErrorsRes>, ())
})
()
let disposable' =
new_disposable (fun () ->
async {
disposable'.Dispose ()
do! connection.StopAsync () |> Async.AwaitTask
disposable.Dispose ()
if managed
then do! SpiralNetworking.wait_for_port_access (Some 2000) false
serverPort |> Async.Ignore
}
|> Async.RunSynchronously
)
return
serverPort,
stream,
ct,
disposable'
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFilePathFromUri │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFilePathFromUri uri =
match System.Uri.TryCreate (uri, System.UriKind.Absolute) with
| true, uri -> uri.AbsolutePath |> System.IO.Path.GetFullPath
| _ -> failwith "invalid uri"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCompilerPort │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCompilerPort () =
13805
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## serialize_obj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let serializeObj obj =
obj
|> FSharp.Json.Json.serialize
|> SpiralSm.replace "\\\\" "\\"
|> SpiralSm.replace "\\r\\n" "\n"
|> SpiralSm.replace "\\n" "\n"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile timeout port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let fileName = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let stream, disposable = fileDir |> FileSystem.watchDirectory (fun _ ->
false)
use _ = disposable
let struct (token, disposable) = SpiralThreading.new_disposable_token
cancellationToken
use _ = disposable
let! serverPort, errors, ct, disposable = awaitCompiler port (Some token)
use _ = disposable
let fsxContentSeq =
stream
|> FSharp.Control.AsyncSeq.chooseAsync (function
| _, (FileSystem.FileSystemChange.Changed (path, _))
when (path |> System.IO.Path.GetFileName) = $"{fileName}.fsx"
->
fileDir </> path |>
SpiralFileSystem.read_all_text_retry_async
| _ -> None |> Async.init
)
|> FSharp.Control.AsyncSeq.map (fun content ->
Some (content |> SpiralSm.replace "\r\n" "\n"), None
)
let inline printErrorData (data : {| uri : string; errors : RString list |})
=
let fileName = data.uri |> System.IO.Path.GetFileName
let errors =
data.errors
|> List.map snd
|> SpiralSm.concat "\n"
$"{fileName}:\n{errors}"
let errorsSeq =
errors
|> FSharp.Control.AsyncSeq.choose (fun error ->
match error with
| FatalError message ->
Some (message, error)
| TracedError data ->
Some (data.message, error)
| PackageErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TokenizerErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| ParserErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TypeErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| _ -> None
)
|> FSharp.Control.AsyncSeq.map (fun (message, error) ->
None, Some (message, error)
)
let timerSeq =
1000
|> FSharp.Control.AsyncSeq.intervalMs
|> FSharp.Control.AsyncSeq.map (fun _ -> None, None)
let outputSeq =
[[ fsxContentSeq; errorsSeq; timerSeq ]]
|> FSharp.Control.AsyncSeq.mergeAll
let! outputChild =
((None, [[]], 0), outputSeq)
||> FSharp.Control.AsyncSeq.scan (
fun (fsxContentResult, errors, typeErrorCount) (fsxContent, error)
->
match fsxContent, error with
| Some fsxContent, None -> Some fsxContent, errors,
typeErrorCount
| None, Some (_, FatalError "File main has a type error
somewhere in its path.") ->
fsxContentResult, errors, typeErrorCount + 1
| None, Some error -> fsxContentResult, error :: errors,
typeErrorCount
| None, None when typeErrorCount >= 1 ->
fsxContentResult, errors, typeErrorCount + 1
| _ -> fsxContentResult, errors, typeErrorCount
)
|> FSharp.Control.AsyncSeq.takeWhileInclusive (fun (fsxContent, errors,
typeErrorCount) ->
trace Debug (fun () -> $"buildFile / takeWhileInclusive /
fsxContent: {fsxContent |> Option.defaultValue System.String.Empty |>
SpiralSm.ellipsis_end 400} / errors: {errors |> serializeObj} / typeErrorCount:
{typeErrorCount}") _locals
#if INTERACTIVE
let errorWait = 2
#else
let errorWait = 4
#endif
match fsxContent, errors with
| None, [[]] when typeErrorCount > errorWait -> false
| None, [[]] -> true
| _ -> false
)
|> FSharp.Control.AsyncSeq.tryLast
|> Async.withCancellationToken ct
|> Async.catch
|> Async.runWithTimeoutAsync timeout
|> Async.StartChild
let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |>
SpiralFileSystem.new_file_uri
let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
do! Async.Sleep 60
let buildFileObj = {| BuildFile = {| uri = fullPathUri; backend = "Fsharp"
|} |}
let! _buildFileResult = buildFileObj |> sendObj serverPort
let! result =
outputChild
|> Async.map (function
| Some (Ok (Some (message, errors, _))) ->
message, errors |> List.distinct |> List.rev
| Some (Error ex) ->
trace Critical (fun () -> $"buildFile / error: {ex |>
serializeObj}") _locals
None, [[]]
| _ -> None, [[]]
)
if fileDir |> SpiralSm.starts_with (repositoryRoot </> "target") then
let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |>
SpiralFileSystem.new_file_uri
let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |}
let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort
()
return result
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCode code = async {
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
let packagesDir = targetDir </> "packages"
let hashHex = code |> SpiralCrypto.hash_text
let codeDir = packagesDir </> hashHex
codeDir |> System.IO.Directory.CreateDirectory |> ignore
let mainPath = codeDir </> "main.spi"
do! code |> SpiralFileSystem.write_all_text_exists mainPath
let spiprojPath = codeDir </> "package.spiproj"
let spiprojCode =
$"""packageDir: {repositoryRoot </> "lib"}
packages:
|core-
spiral-
modules:
main
"""
do! spiprojCode |> SpiralFileSystem.write_all_text_exists spiprojPath
return mainPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode timeout cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> buildFile timeout port cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let buildCode timeout cancellationToken code = buildCode timeout
cancellationToken code
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl app () =
console.write_line "text"
1i32
inl main () =
app
|> dyn
|> ignore
"""
|> buildCode 15000 None
|> Async.runWithTimeout 15000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some """let rec closure0 () () : int32 =
let v0 : string = "text"
System.Console.WriteLine v0
1
let v0 : (unit -> int32) = closure0()
()
""",
[[]]
)
)
╭─[ 6.15s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:11 debug #1 run_with_timeout_async / timeout: 60 │
│ 00:00:10 debug #1 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:10 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:10 verbose #3 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:10 verbose #4 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:10 verbose #5 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:12 debug #2 run_with_timeout_async / timeout: 500 │
│ 00:00:12 verbose #3 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:09 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:09 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:11 verbose #6 > Server bound to: http://localhost:13805 │
│ 00:00:09 debug #3 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:09 debug #4 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:09 verbose #5 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n console.write_line │
│ \u0022text\u0022\n 1i32\n\ninl main │
│ ...ot/spiral_eval/packages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e30e │
│ ba9d5e3b57a56e0/main.spi"}} / result: │
│ 00:00:09 verbose #6 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e │
│ 30eba9d5e3b57a56e0/main.spi"}} / result: │
│ 00:00:11 verbose #7 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0ad2ee90a0886647a7 │
│ d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0/main.spi │
│ 00:00:10 debug #7 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:11 debug #8 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:11 debug #9 buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:11 verbose #10 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0ad2ee90a │
│ 0886647a7d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0"]}} / result: │
│ 00:00:15 verbose #4 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:17 debug #5 run_with_timeout_async / timeout: 2000 │
│ 00:00:13 debug #11 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: let rec closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> _assertEqual None
╭─[ 12.13s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:17 debug #6 run_with_timeout_async / timeout: 60 │
│ 00:00:16 debug #8 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:16 verbose #9 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:16 verbose #10 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:16 verbose #11 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:16 verbose #12 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:18 debug #7 run_with_timeout_async / timeout: 500 │
│ 00:00:18 verbose #8 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:15 verbose #12 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:15 verbose #13 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:17 verbose #13 > Server bound to: http://localhost:13805 │
│ 00:00:15 debug #14 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:15 debug #15 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:15 verbose #16 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"","uri":"file:///c:/home/git/polyglot/target/polyglo │
│ t/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca4959 │
│ 91b7852b855/main.spi"}} / result: │
│ 00:00:15 verbose #17 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b93 │
│ 4ca495991b7852b855/main.spi"}} / result: │
│ 00:00:17 verbose #14 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855/main.spi │
│ 00:00:16 debug #18 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:17 debug #19 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:19 verbose #15 > Cannot find `main` in file main. │
│ 00:00:19 verbose #16 > Build skipped for │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855/main.spi │
│ 00:00:18 debug #20 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:19 debug #21 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:20 debug #22 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:21 debug #23 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:22 debug #24 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:23 debug #25 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:27 verbose #9 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:29 debug #10 run_with_timeout_async / timeout: 2000 │
│ 00:00:26 debug #26 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:26 debug #27 runWithTimeoutChildAsync / timeout: 10000 │
│ <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"inl app () =
0i32
inl a = 1
inl main () =
app
|> dyn
|> ignore
"
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Global inl/let statements should all return functions known at parse time." ]]
)
)
╭─[ 3.68s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:29 debug #11 run_with_timeout_async / timeout: 60 │
│ 00:00:28 debug #17 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:28 verbose #18 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:28 verbose #19 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:28 verbose #20 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:29 verbose #21 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:30 debug #12 run_with_timeout_async / timeout: 500 │
│ 00:00:30 verbose #13 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:27 verbose #28 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:27 verbose #29 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:29 verbose #22 > Server bound to: http://localhost:13805 │
│ 00:00:27 debug #30 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:27 debug #31 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:27 verbose #32 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n 0i32\n\ninl a = 1\n\ninl main () │
│ =\n app\n |\u003E │
│ d...ot/spiral_eval/packages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b84a │
│ 7038f033a002a481/main.spi"}} / result: │
│ 00:00:27 verbose #33 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b8 │
│ 4a7038f033a002a481/main.spi"}} / result: │
│ 00:00:29 verbose #23 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/348c96764a8f66af39 │
│ dd3ea799f5e487a51761b1e220b84a7038f033a002a481/main.spi │
│ 00:00:27 debug #34 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "main.spi: │
│ Global inl/let statements should all return functions known at parse time.", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 0, │
│ "line": 3 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 3 │
│ } │
│ ], │
│ "Global inl/let statements should all return functions known at │
│ parse time." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/348c96764 │
│ a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481/main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:27 verbose #35 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/348c96764 │
│ a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481"]}} / result: │
│ 00:00:31 verbose #14 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:33 debug #15 run_with_timeout_async / timeout: 2000 │
│ 00:00:29 debug #36 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Global inl/let statements should all return functions known at parse time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1i32 / 0i32
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "An attempt to divide by zero has been detected at compile time." ]]
)
)
╭─[ 5.18s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:33 debug #16 run_with_timeout_async / timeout: 60 │
│ 00:00:32 debug #24 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:32 verbose #25 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:32 verbose #26 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:32 verbose #27 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:32 verbose #28 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:34 debug #17 run_with_timeout_async / timeout: 500 │
│ 00:00:34 verbose #18 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:31 verbose #37 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:31 verbose #38 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:33 verbose #29 > Server bound to: http://localhost:13805 │
│ 00:00:31 debug #39 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:31 debug #40 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:31 verbose #41 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1i32 / │
│ 0i32\n","uri":"file:///c:/home/git/polyglot/target...ot/spiral_eval/packages │
│ /232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi"} │
│ } / result: │
│ 00:00:31 verbose #42 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb1 │
│ 7fe93dda9c433ec620/main.spi"}} / result: │
│ 00:00:33 verbose #30 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi │
│ 00:00:32 debug #43 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:33 debug #44 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "An attempt to divide by zero has been detected at compile time.", │
│ { │
│ "TracedError": { │
│ "message": "An attempt to divide by zero has been detected at │
│ compile time.", │
│ "trace": [ │
│ "Error trace on line: 1, column: 10 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 2, column: 5 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.spi. │
│ 1i32 / 0i32 │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:33 verbose #45 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/232df6d86 │
│ 2bb0667133bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620"]}} / result: │
│ 00:00:36 verbose #19 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:38 debug #20 run_with_timeout_async / timeout: 2000 │
│ 00:00:35 debug #46 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ An attempt to divide by zero has been detected at compile time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1 + ""
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Constraint satisfaction error.
Got: string
Fails to satisfy: number"
]]
)
)
╭─[ 4.71s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:38 debug #21 run_with_timeout_async / timeout: 60 │
│ 00:00:37 debug #31 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:37 verbose #32 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:37 verbose #33 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:37 verbose #34 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:38 verbose #35 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:39 debug #22 run_with_timeout_async / timeout: 500 │
│ 00:00:39 verbose #23 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:36 verbose #47 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:36 verbose #48 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:38 verbose #36 > Server bound to: http://localhost:13805 │
│ 00:00:36 debug #49 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:36 debug #50 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:36 verbose #51 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1 \u002B │
│ \u0022\u0022\n","uri":"file:///c:/home/git/polyg...ot/spiral_eval/packages/2 │
│ 278923ce88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d/main.spi"}} │
│ / result: │
│ 00:00:36 verbose #52 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/2278923ce88b0e473e77d4d93e25afa6e5e4f5efe80398 │
│ 2e504cc198d4c4d82d/main.spi"}} / result: │
│ 00:00:38 verbose #37 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2278923ce88b0e473e │
│ 77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d/main.spi │
│ 00:00:37 debug #53 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:37 debug #54 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 1 │
│ 00:00:37 debug #55 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "main.spi: │
│ Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number", │
│ { │
│ "TypeErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 8, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 10, │
│ "line": 1 │
│ } │
│ ], │
│ "Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2278923ce │
│ 88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d/main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 1 │
│ 00:00:37 verbose #56 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2278923ce │
│ 88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d"]}} / result: │
│ 00:00:41 verbose #24 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:43 debug #25 run_with_timeout_async / timeout: 2000 │
│ 00:00:39 debug #57 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
x + y
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Unbound variable: x.
Unbound variable: y."
]]
)
)
╭─[ 4.80s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:43 debug #26 run_with_timeout_async / timeout: 60 │
│ 00:00:42 debug #38 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:42 verbose #39 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:42 verbose #40 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:42 verbose #41 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:42 verbose #42 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:44 debug #27 run_with_timeout_async / timeout: 500 │
│ 00:00:44 verbose #28 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:41 verbose #58 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:41 verbose #59 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:43 verbose #43 > Server bound to: http://localhost:13805 │
│ 00:00:41 debug #60 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:41 debug #61 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:41 verbose #62 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n x \u002B │
│ y\n","uri":"file:///c:/home/git/polyglot/target/...ot/spiral_eval/packages/5 │
│ d8d0e66f59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b/main.spi"}} │
│ / result: │
│ 00:00:41 verbose #63 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/5d8d0e66f59ab13f3bfd8d88f05ce13771ab005b08581d │
│ 99225216170ba6489b/main.spi"}} / result: │
│ 00:00:43 verbose #44 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5d8d0e66f59ab13f3b │
│ fd8d88f05ce13771ab005b08581d99225216170ba6489b/main.spi │
│ 00:00:42 debug #64 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:42 debug #65 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 1 │
│ 00:00:42 debug #66 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "main.spi: │
│ Unbound variable: x. │
│ Unbound variable: y.", │
│ { │
│ "TypeErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 4, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 5, │
│ "line": 1 │
│ } │
│ ], │
│ "Unbound variable: x." │
│ ], │
│ [ │
│ [ │
│ { │
│ "character": 8, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 1 │
│ } │
│ ], │
│ "Unbound variable: y." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5d8d0e66f │
│ 59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b/main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 1 │
│ 00:00:42 verbose #67 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5d8d0e66f │
│ 59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b"]}} / result: │
│ 00:00:46 verbose #29 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:48 debug #30 run_with_timeout_async / timeout: 2000 │
│ 00:00:44 debug #68 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Unbound variable: x. │
│ Unbound variable: y. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""union a =
| B
| c
inl main () =
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Expected: uppercase variable" ]]
)
)
╭─[ 3.77s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:48 debug #31 run_with_timeout_async / timeout: 60 │
│ 00:00:46 debug #45 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:47 verbose #46 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:47 verbose #47 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:47 verbose #48 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:47 verbose #49 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:49 debug #32 run_with_timeout_async / timeout: 500 │
│ 00:00:49 verbose #33 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:45 verbose #69 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:45 verbose #70 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:47 verbose #50 > Server bound to: http://localhost:13805 │
│ 00:00:46 debug #71 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:46 debug #72 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:46 verbose #73 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"union a =\n | B\n | c\n\ninl main () =\n │
│ ()\n","uri":"file:///c:/ho...ot/spiral_eval/packages/e711a7af82ac8ecfc9df920 │
│ 8c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a/main.spi"}} / result: │
│ 00:00:46 verbose #74 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e711a7af82ac8ecfc9df9208c576e0745b2b4e6fbb3a46 │
│ a168b4c4f56921eb3a/main.spi"}} / result: │
│ 00:00:48 verbose #51 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e711a7af82ac8ecfc9 │
│ df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a/main.spi │
│ 00:00:46 debug #75 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "main.spi: │
│ Expected: uppercase variable", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 6, │
│ "line": 2 │
│ }, │
│ { │
│ "character": 7, │
│ "line": 2 │
│ } │
│ ], │
│ "Expected: uppercase variable" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e711a7af8 │
│ 2ac8ecfc9df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a/main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:46 verbose #76 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e711a7af8 │
│ 2ac8ecfc9df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a"]}} / result: │
│ 00:00:49 verbose #34 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:51 debug #35 run_with_timeout_async / timeout: 2000 │
│ 00:00:48 debug #77 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Expected: uppercase variable ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
/// abc
inl main () =
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Expected: whitespace" ]]
)
)
╭─[ 3.67s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:52 debug #36 run_with_timeout_async / timeout: 60 │
│ 00:00:50 debug #52 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:51 verbose #53 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:51 verbose #54 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:51 verbose #55 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:51 verbose #56 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:52 debug #37 run_with_timeout_async / timeout: 500 │
│ 00:00:52 verbose #38 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:49 verbose #78 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:49 verbose #79 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:51 verbose #57 > Server bound to: http://localhost:13805 │
│ 00:00:49 debug #80 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:49 debug #81 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:49 verbose #82 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\n/// abc\ninl main () =\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/targ...ot/spiral_eval/packages/e83 │
│ 597a8ca85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631/main.spi"}} / │
│ result: │
│ 00:00:49 verbose #83 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e83597a8ca85933ec91ea140faca562c6789f98f5348e6 │
│ 41a1c44c73de804631/main.spi"}} / result: │
│ 00:00:52 verbose #58 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e83597a8ca85933ec9 │
│ 1ea140faca562c6789f98f5348e641a1c44c73de804631/main.spi │
│ 00:00:50 debug #84 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "main.spi: │
│ Expected: whitespace", │
│ { │
│ "TokenizerErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 2, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 3, │
│ "line": 1 │
│ } │
│ ], │
│ "Expected: whitespace" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e83597a8c │
│ a85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631/main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:50 verbose #85 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e83597a8c │
│ a85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631"]}} / result: │
│ 00:00:53 verbose #39 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:55 debug #40 run_with_timeout_async / timeout: 2000 │
│ 00:00:52 debug #86 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Expected: whitespace ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl main () =
real
inl real_unbox forall a. (obj : a) : a =
typecase obj with
| _ => obj
real_unbox ()
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "Cannot apply a forall with a term." ]]
)
)
╭─[ 5.73s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:55 debug #41 run_with_timeout_async / timeout: 60 │
│ 00:00:54 debug #59 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:00:54 verbose #60 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:54 verbose #61 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:54 verbose #62 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:55 verbose #63 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:56 debug #42 run_with_timeout_async / timeout: 500 │
│ 00:00:56 verbose #43 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:53 verbose #87 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:53 verbose #88 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:55 verbose #64 > Server bound to: http://localhost:13805 │
│ 00:00:53 debug #89 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:53 debug #90 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:53 verbose #91 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │
│ forall a. (obj : a) : a │
│ =\...ot/spiral_eval/packages/a2aa158e3d25dde470018a814a2045bf437bae1760d98ab │
│ 33335c72b076d4d50/main.spi"}} / result: │
│ 00:00:53 verbose #92 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/a2aa158e3d25dde470018a814a2045bf437bae1760d98a │
│ b33335c72b076d4d50/main.spi"}} / result: │
│ 00:00:55 verbose #65 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50/main.spi │
│ 00:00:54 debug #93 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:55 debug #94 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ ] / typeErrorCount: 0 │
│ 00:00:56 debug #95 buildFile / takeWhileInclusive / fsxContent: / errors: [ │
│ [ │
│ "Cannot apply a forall with a term.", │
│ { │
│ "TracedError": { │
│ "message": "Cannot apply a forall with a term.", │
│ "trace": [ │
│ "Error trace on line: 2, column: 10 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50/main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 4, column: 9 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50/main.spi. │
│ inl real_unbox forall a. (obj : a) : a = │
│ ^ │
│ ", │
│ "Error trace on line: 7, column: 9 in module: │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50/main.spi. │
│ real_unbox () │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:56 verbose #96 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2aa158e3 │
│ d25dde470018a814a2045bf437bae1760d98ab33335c72b076d4d50"]}} / result: │
│ 00:00:59 verbose #44 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:01 debug #45 run_with_timeout_async / timeout: 2000 │
│ 00:00:58 debug #97 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ Cannot apply a forall with a term. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl main () =
real
inl real_unbox forall a. (obj : a) : a =
typecase obj with
| _ => obj
real_unbox `i32 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "The main function should not have a forall." ]]
)
)
╭─[ 5.18s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:01 debug #46 run_with_timeout_async / timeout: 60 │
│ 00:01:00 debug #66 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:01:00 verbose #67 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:01:00 verbose #68 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:00 verbose #69 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:00 verbose #70 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:02 debug #47 run_with_timeout_async / timeout: 500 │
│ 00:01:02 verbose #48 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:59 verbose #98 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:59 verbose #99 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:01:01 verbose #71 > Server bound to: http://localhost:13805 │
│ 00:00:59 debug #100 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:59 debug #101 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:59 verbose #102 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │
│ forall a. (obj : a) : a │
│ =\...ot/spiral_eval/packages/84eca3865a0cfc1afd28f49a38d395e9b89071527b4bda7 │
│ 59de7cfb116593b3e/main.spi"}} / result: │
│ 00:00:59 verbose #103 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/84eca3865a0cfc1afd28f49a38d395e9b89071527b4bda │
│ 759de7cfb116593b3e/main.spi"}} / result: │
│ 00:01:01 verbose #72 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/84eca3865a0cfc1afd │
│ 28f49a38d395e9b89071527b4bda759de7cfb116593b3e/main.spi │
│ 00:01:00 debug #104 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:01 debug #105 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "The main function should not have a forall.", │
│ { │
│ "TracedError": { │
│ "message": "The main function should not have a forall.", │
│ "trace": [] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:01:01 verbose #106 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/84eca3865 │
│ a0cfc1afd28f49a38d395e9b89071527b4bda759de7cfb116593b3e"]}} / result: │
│ 00:01:04 verbose #49 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:06 debug #50 run_with_timeout_async / timeout: 2000 │
│ 00:01:03 debug #107 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ The main function should not have a forall. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl init_series start end inc =
inl total : f64 = conv ((end - start) / inc) + 1
listm.init total (conv >> (*) inc >> (+) start) : list f64
type integration = (f64 -> f64) -> f64 -> f64 -> f64
inl integral dt : integration =
fun f a b =>
init_series (a + dt / 2) (b - dt / 2) dt
|> listm.map (f >> (*) dt)
|> listm.fold (+) 0
inl main () =
integral 0.1 (fun x => x ** 2) 0 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some "0.3325000000000001\n",
[[]]
)
)
╭─[ 5.31s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:06 debug #51 run_with_timeout_async / timeout: 60 │
│ 00:01:05 debug #73 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:01:05 verbose #74 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:01:05 verbose #75 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:05 verbose #76 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:06 verbose #77 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:07 debug #52 run_with_timeout_async / timeout: 500 │
│ 00:01:07 verbose #53 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:04 verbose #108 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:01:04 verbose #109 awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:06 verbose #78 > Server bound to: http://localhost:13805 │
│ 00:01:04 debug #110 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:04 debug #111 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:04 verbose #112 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │
│ f64 = conv ((end - │
│ start)...ot/spiral_eval/packages/c0932fdbf60389c2ae8b78bb5443994f2d0ecdc6c6e │
│ 7dfddf408cecaa050d294/main.spi"}} / result: │
│ 00:01:04 verbose #113 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/c0932fdbf60389c2ae8b78bb5443994f2d0ecdc6c6e7df │
│ ddf408cecaa050d294/main.spi"}} / result: │
│ 00:01:06 verbose #79 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c0932fdbf60389c2ae │
│ 8b78bb5443994f2d0ecdc6c6e7dfddf408cecaa050d294/main.spi │
│ 00:01:05 debug #114 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:06 debug #115 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:06 debug #116 buildFile / takeWhileInclusive / fsxContent: │
│ 0.3325000000000001 │
│ / errors: [] / typeErrorCount: 0 │
│ 00:01:06 verbose #117 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c0932fdbf │
│ 60389c2ae8b78bb5443994f2d0ecdc6c6e7dfddf408cecaa050d294"]}} / result: │
│ 00:01:09 verbose #54 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:11 debug #55 run_with_timeout_async / timeout: 2000 │
│ 00:01:08 debug #118 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: 0.3325000000000001 │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl init_series start end inc =
inl total : f64 = conv ((end - start) / inc) + 1
listm.init total (conv >> (*) inc >> (+) start) : list f64
type integration = (f64 -> f64) -> f64 -> f64 -> f64
inl integral dt : integration =
fun f a b =>
init_series (a + dt / 2) (b - dt / 2) dt
|> listm.map (f >> (*) dt)
|> listm.fold (+) 0
inl main () =
integral 0.01 (fun x => x ** 2) 0 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some "0.33332500000000004\n",
[[]]
)
)
// |> _assertEqual None
// |> fun x -> printfn $"{x.ToDisplayString ()}"
╭─[ 5.23s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:12 debug #56 run_with_timeout_async / timeout: 60 │
│ 00:01:10 debug #80 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:buildCode@3-345>, Some "C:\home\git\polyglot") │
│ 00:01:11 verbose #81 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:01:11 verbose #82 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:11 verbose #83 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:11 verbose #84 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:13 debug #57 run_with_timeout_async / timeout: 500 │
│ 00:01:13 verbose #58 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:09 verbose #119 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:01:09 verbose #120 awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:11 verbose #85 > Server bound to: http://localhost:13805 │
│ 00:01:09 debug #121 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:09 debug #122 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:09 verbose #123 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │
│ f64 = conv ((end - │
│ start)...ot/spiral_eval/packages/355c36b6d259fe6b1c7527aa9b475ca37914ad348c4 │
│ a239687383dcd0daeed2c/main.spi"}} / result: │
│ 00:01:09 verbose #124 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/355c36b6d259fe6b1c7527aa9b475ca37914ad348c4a23 │
│ 9687383dcd0daeed2c/main.spi"}} / result: │
│ 00:01:12 verbose #86 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/355c36b6d259fe6b1c │
│ 7527aa9b475ca37914ad348c4a239687383dcd0daeed2c/main.spi │
│ 00:01:10 debug #125 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:11 debug #126 buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:01:11 debug #127 buildFile / takeWhileInclusive / fsxContent: │
│ 0.33332500000000004 │
│ / errors: [] / typeErrorCount: 0 │
│ 00:01:11 verbose #128 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/355c36b6d │
│ 259fe6b1c7527aa9b475ca37914ad348c4a239687383dcd0daeed2c"]}} / result: │
│ 00:01:15 verbose #59 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:17 debug #60 run_with_timeout_async / timeout: 2000 │
│ 00:01:13 debug #129 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: 0.33332500000000004 │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFileTokenRange │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFileTokenRange port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let lines = code |> SpiralSm.split "\n"
let struct (token, disposable) = SpiralThreading.new_disposable_token
cancellationToken
use _ = disposable
let! serverPort, _errors, ct, disposable =
match port with
| Some port -> awaitCompiler port (Some token)
| None -> (getCompilerPort (), FSharp.Control.AsyncSeq.empty, token,
new_disposable id) |> Async.init
use _ = disposable
let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |>
SpiralFileSystem.new_file_uri
let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
do! Async.Sleep 60
let fileTokenRangeObj =
{|
FileTokenRange =
{|
uri = fullPathUri
range =
[[|
{| line = 0; character = 0 |}
{| line = lines.Length - 1; character =
lines.[[lines.Length - 1]].Length |}
|]]
|}
|}
let! fileTokenRangeResult =
fileTokenRangeObj
|> sendObj serverPort
|> Async.withCancellationToken ct
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
if fileDir |> SpiralSm.starts_with (repositoryRoot </> "target") then
let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |>
SpiralFileSystem.new_file_uri
let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |}
let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort
()
return fileTokenRangeResult |> Option.map FSharp.Json.Json.deserialize<int
array>
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCodeTokenRange │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCodeTokenRange cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> getFileTokenRange (Some port) cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () = ()"""
|> getCodeTokenRange None
|> Async.runWithTimeout 10000
|> Option.flatten
|> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1;
8; 0; 0; 2; 1; 4; 0; 0;
2; 1; 8; 0; 0; 1; 1; 8; 0 |]])
╭─[ 4.84s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:20 debug #61 run_with_timeout_async / timeout: 60 │
│ 00:01:19 debug #87 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:it@4-196>, Some "C:\home\git\polyglot") │
│ 00:01:19 verbose #88 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:01:19 verbose #89 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:19 verbose #90 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:20 verbose #91 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:21 debug #62 run_with_timeout_async / timeout: 500 │
│ 00:01:21 verbose #63 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:18 verbose #130 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:01:18 verbose #131 awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:20 verbose #92 > Server bound to: http://localhost:13805 │
│ 00:01:18 verbose #132 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () = │
│ ()","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages │
│ /fb6c8d45c45c5bed6706c564f1573e80b77a3923967ce83cb69737ce2ce5040c/main.spi"} │
│ } / result: │
│ 00:01:18 verbose #133 sendJson / port: 13805 / json: │
│ {"FileTokenRange":{"range":[ │
│ {"character":0,"line":0},{"character":16,"line":0}],"uri":"file:///c:/ho...o │
│ t/spiral_eval/packages/fb6c8d45c45c5bed6706c564f1573e80b77a3923967ce83cb6973 │
│ 7ce2ce5040c/main.spi"}} / result: Some([ │
│ 0, │
│ 0, │
│ 3, │
│ 7, │
│ 0, │
│ 0, │
│ 4, │
│ 4, │
│ 0, │
│ 0, │
│ 0, │
│ 5, │
│ 1, │
│ 8, │
│ 0, │
│ 0, │
│ ...8, │
│ 0, │
│ 0, │
│ 2, │
│ 1, │
│ 4, │
│ 0, │
│ 0, │
│ 2, │
│ 1, │
│ 8, │
│ 0, │
│ 0, │
│ 1, │
│ 1, │
│ 8, │
│ 0 │
│ ]) │
│ 00:01:18 verbose #134 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fb6c8d45c │
│ 45c5bed6706c564f1573e80b77a3923967ce83cb69737ce2ce5040c"]}} / result: │
│ 00:01:22 verbose #64 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:24 debug #65 run_with_timeout_async / timeout: 2000 │
│ FSharpOption<Int32[]> │
│ Value: [ 0, 0, 3, 7, 0, 0, 4, 4, 0, 0, 0, 5, 1, 8, 0, 0, 1, 1, 8, 0, │
│ 0, 2, 1, 4, 0, 0, 2, 1, 8, 0, 0, 1, 1, 8, 0 ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () = 1i32"""
|> getCodeTokenRange None
|> Async.runWithTimeout 10000
|> Option.flatten
|> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1;
8; 0; 0; 2; 1; 4; 0; 0;
2; 1; 3; 0; 0; 1; 3; 12; 0 |]])
╭─[ 4.70s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:25 debug #66 run_with_timeout_async / timeout: 60 │
│ 00:01:24 debug #93 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:it@4-371>, Some "C:\home\git\polyglot") │
│ 00:01:24 verbose #94 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:01:24 verbose #95 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:24 verbose #96 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:24 verbose #97 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:26 debug #67 run_with_timeout_async / timeout: 500 │
│ 00:01:26 verbose #68 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:23 verbose #135 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:01:23 verbose #136 awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:25 verbose #98 > Server bound to: http://localhost:13805 │
│ 00:01:23 verbose #137 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () = │
│ 1i32","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/9df95a2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi │
│ "}} / result: │
│ 00:01:23 verbose #138 sendJson / port: 13805 / json: │
│ {"FileTokenRange":{"range":[ │
│ {"character":0,"line":0},{"character":18,"line":0}],"uri":"file:///c:/ho...o │
│ t/spiral_eval/packages/9df95a2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e55 │
│ 77eed14871c/main.spi"}} / result: Some([ │
│ 0, │
│ 0, │
│ 3, │
│ 7, │
│ 0, │
│ 0, │
│ 4, │
│ 4, │
│ 0, │
│ 0, │
│ 0, │
│ 5, │
│ 1, │
│ 8, │
│ 0, │
│ 0, │
│ ..., │
│ 0, │
│ 0, │
│ 2, │
│ 1, │
│ 4, │
│ 0, │
│ 0, │
│ 2, │
│ 1, │
│ 3, │
│ 0, │
│ 0, │
│ 1, │
│ 3, │
│ 12, │
│ 0 │
│ ]) │
│ 00:01:23 verbose #139 sendJson / port: 13805 / json: {"FileDelete":{"uris":[ │
│ "file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9df95a2f1 │
│ 8642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c"]}} / result: │
│ 00:01:26 verbose #69 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:01:28 debug #70 run_with_timeout_async / timeout: 2000 │
│ FSharpOption<Int32[]> │
│ Value: [ 0, 0, 3, 7, 0, 0, 4, 4, 0, 0, 0, 5, 1, 8, 0, 0, 1, 1, 8, 0, │
│ 0, 2, 1, 4, 0, 0, 2, 1, 3, 0, 0, 1, 3, 12, 0 ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| Build_File of string * string
| File_Token_Range of string * string
| Execute_Command of string
| [[<Argu.ArguAttributes.Unique>]] Timeout of int
| [[<Argu.ArguAttributes.Unique>]] Port of int
| [[<Argu.ArguAttributes.Unique>]] Parallel
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Build_File _ -> nameof Build_File
| File_Token_Range _ -> nameof File_Token_Range
| Execute_Command _ -> nameof Execute_Command
| Timeout _ -> nameof Timeout
| Port _ -> nameof Port
| Parallel -> nameof Parallel
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 117.13ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] [--build-file <string> <string>] │
│ [--file-token-range <string> <string>] │
│ [--execute-command <string>] [--timeout <int>] [--port │
│ <int>] │
│ [--parallel] │
│ │
│ OPTIONS: │
│ │
│ --build-file <string> <string> │
│ Build_File │
│ --file-token-range <string> <string> │
│ File_Token_Range │
│ --execute-command <string> │
│ Execute_Command │
│ --timeout <int> Timeout │
│ --port <int> Port │
│ --parallel Parallel │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let buildFileActions =
argsMap
|> Map.tryFind (nameof Arguments.Build_File)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.Build_File (inputPath, outputPath) -> Some (inputPath,
outputPath)
| _ -> None
)
let fileTokenRangeActions =
argsMap
|> Map.tryFind (nameof Arguments.File_Token_Range)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.File_Token_Range (inputPath, outputPath) -> Some
(inputPath, outputPath)
| _ -> None
)
let executeCommandActions =
argsMap
|> Map.tryFind (nameof Arguments.Execute_Command)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.Execute_Command command -> Some command
| _ -> None
)
let timeout =
match argsMap |> Map.tryFind (nameof Arguments.Timeout) with
| Some [[ Arguments.Timeout timeout ]] -> timeout
| _ -> 60000 * 60
let port =
match argsMap |> Map.tryFind (nameof Arguments.Port) with
| Some [[ Arguments.Port port ]] -> Some port
| _ -> None
let isParallel = argsMap |> Map.containsKey (nameof Arguments.Parallel)
async {
let port = port |> Option.defaultWith getCompilerPort
let struct (localToken, disposable) =
SpiralThreading.new_disposable_token None
let! serverPort, _errors, compilerToken, disposable = awaitCompiler port
(Some localToken)
use _ = disposable
let buildFileAsync =
buildFileActions
|> List.map (fun (inputPath, outputPath) -> async {
let! outputCode, errors = inputPath |> buildFile timeout
serverPort None
errors
|> List.map snd
|> List.iter (fun error ->
trace Critical (fun () -> $"main / error: {error |>
serializeObj}") _locals
)
match outputCode with
| Some outputCode ->
do! outputCode |> SpiralFileSystem.write_all_text_async
outputPath
return 0
| None ->
return 1
})
let fileTokenRangeAsync =
fileTokenRangeActions
|> List.map (fun (inputPath, outputPath) -> async {
let! tokenRange = inputPath |> getFileTokenRange (Some
serverPort) None
match tokenRange with
| Some tokenRange ->
do! tokenRange |> FSharp.Json.Json.serialize |>
SpiralFileSystem.write_all_text_async outputPath
return 0
| None ->
return 1
})
let executeCommandAsync =
executeCommandActions
|> List.map (fun command -> async {
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (Some
compilerToken, command, None, None)
trace Debug (fun () -> $"main / executeCommand / exitCode:
{exitCode}") _locals
return exitCode
})
return!
[[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]]
|> Seq.collect id
|> fun x ->
if isParallel
then Async.Parallel (x, float System.Environment.ProcessorCount
* 0.51 |> ceil |> int)
else Async.Sequential x
|> Async.map Array.sum
}
|> Async.runWithTimeout timeout
|> Option.defaultValue 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 59.93ms - return value ]───────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook Supervisor.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 462151 bytes to Supervisor.dib.html
00:00:00 debug #1 writeDibCode / output: Fs / path: Supervisor.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: Supervisor.dib
00:00:00 debug #1 persistCodeProject / packages: [Argu; FSharp.Control.AsyncSeq; FSharp.Json; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: Supervisor / code.Length: 20148
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj
00:00:00 debug #1 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime linux-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\Supervisor")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:01 verbose #4 > Restored C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj (in 459 ms).
00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj]
00:00:13 verbose #6 > Supervisor -> C:\home\git\polyglot\target\polyglot\builder\Supervisor\bin\Release\net9.0\linux-x64\Supervisor.dll
00:00:15 verbose #7 > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\
00:00:15 debug #8 execute_with_options_async / exit_code: 0 / output.Length: 715
00:00:15 debug #9 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime win-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\Supervisor")
00:00:15 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:16 verbose #11 > Determining projects to restore...
00:00:17 verbose #12 > Restored C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj (in 445 ms).
00:00:17 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj]
00:00:28 verbose #14 > Supervisor -> C:\home\git\polyglot\target\polyglot\builder\Supervisor\bin\Release\net9.0\win-x64\Supervisor.dll
00:00:35 verbose #15 > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\
00:00:35 debug #16 execute_with_options_async / exit_code: 0 / output.Length: 713
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\spiral / path: Eval.dib / _args: [
"-Retries",
3
]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Eval (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
#r
@"../../../../../../../.nuget/packages/system.management/7.0.0/lib/netstandard2.
0/System.Management.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r @"../../../../../../../.nuget/packages/micros...
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
#!import ../../apps/builder/Builder.fs
#!import ../../apps/spiral/Supervisor.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Builder =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## buildProject
let inline buildProject runtime outputDir path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let extension = fullPath |> System.IO.Path.GetExtension
trace Debug
(fun () -> "buildProject")
(fun () -> $"fullPath: {fullPath} / {_locals ()}")
match extension with
| ".fsproj" -> ()
| _ -> failwith "Invalid project file"
let runtimes =
runtime
|> Option.map List.singleton
|...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Supervisor =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
/// ## sendJson
let inline sendJson (port : int) (json : string) = async {
let! portOpen = SpiralNetworking.test_port_open port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result =
connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Verbose ...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── fsharp ──────────────────────────────────────────────────────────────────────
open System
open System.Collections.Generic
open System.IO
open System.Text
open System.Threading
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## mapErrors │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline mapErrors (severity, errors, lastTopLevelIndex) allCode =
let allCodeLineLength =
allCode |> SpiralSm.split "\n" |> Array.length
errors
|> List.map (fun (_, error) ->
match error with
| Supervisor.FatalError message ->
(
severity, message, 0, ("", (0, 0), (0, 0))
)
|> List.singleton
| Supervisor.TracedError data ->
data.trace
|> List.truncate 5
|> List.append [[ data.message ]]
|> List.map (fun message ->
(
severity, message, 0, ("", (0, 0), (0, 0))
)
)
| Supervisor.PackageErrors data
| Supervisor.TokenizerErrors data
| Supervisor.ParserErrors data
| Supervisor.TypeErrors data ->
data.errors
|> List.filter (fun ((rangeStart, _), _) ->
trace Debug (fun () -> $"Eval.mapErrors / rangeStart.line:
{rangeStart.line} / lastTopLevelIndex: {lastTopLevelIndex} / allCodeLineLength:
{allCodeLineLength} / filtered: {rangeStart.line > allCodeLineLength}") _locals
rangeStart.line > allCodeLineLength
)
|> List.map (fun ((rangeStart, rangeEnd), message) ->
(
severity,
message,
0,
(
(data.uri |> System.IO.Path.GetFileName),
(
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeStart.line - allCodeLineLength - 2
| _ -> rangeStart.line - allCodeLineLength),
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeStart.character - 4
| _ -> rangeStart.character)
),
(
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeEnd.line - allCodeLineLength - 2
| _ -> rangeEnd.line - allCodeLineLength),
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeEnd.character - 4
| _ -> rangeEnd.character)
)
)
)
)
)
|> List.collect id
|> List.toArray
── fsharp ──────────────────────────────────────────────────────────────────────
let repositoryRoot = SpiralFileSystem.get_repository_root ()
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
[[ targetDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
let assemblyName = Reflection.Assembly.GetEntryAssembly().GetName().Name
let mutable allCode = ""
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getParentProcessId │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let getParentProcessId () =
if SpiralRuntime.is_windows () |> not
then 0u
else
let pid = System.Diagnostics.Process.GetCurrentProcess().Id
let query = $"SELECT ParentProcessId FROM Win32_Process WHERE ProcessId
= {pid}"
use searcher = new System.Management.ManagementObjectSearcher (query)
use results = searcher.Get ()
let data = results |> Seq.cast<System.Management.ManagementObject>
if data |> Seq.isEmpty
then 0u
else data |> Seq.head |> (fun mo -> mo.[["ParentProcessId"]] :?> uint32)
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## startTokenRangeWatcher │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline startTokenRangeWatcher () =
if [[ "dotnet-repl" ]] |> List.contains assemblyName |> not then
let tokensDir = targetDir </> "tokens"
[[ tokensDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
let stream, disposable = FileSystem.watchDirectory (fun _ -> false)
tokensDir
try
let existingFilesChild =
tokensDir
|> System.IO.Directory.GetDirectories
|> Array.map (fun codeDir -> async {
try
let tokensPath = codeDir </> "tokens.json"
if tokensPath |> File.Exists |> not then
let codePath = codeDir </> "main.spi"
let! tokens = codePath |>
Supervisor.getFileTokenRange None None
match tokens with
| Some tokens ->
do!
tokens
|> FSharp.Json.Json.serialize
|> SpiralFileSystem.write_all_text_async
tokensPath
| None ->
trace Verbose (fun () ->
$"Eval.startTokenRangeWatcher / GetDirectories / tokens: None") _locals
with ex ->
trace Critical (fun () -> $"Eval.startTokenRangeWatcher
/ GetDirectories / ex: {ex |> SpiralSm.format_exception}") _locals
})
|> Async.Parallel
|> Async.Ignore
let streamAsyncChild =
stream
|> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event)
-> async {
try
match event with
| FileSystem.FileSystemChange.Changed (codePath, _)
when System.IO.Path.GetFileName codePath =
"main.spi"
->
let hashDir = codePath |>
System.IO.Directory.GetParent
let hashHex = hashDir.Name
let codePath = tokensDir </> codePath
let tokensPath = tokensDir </> hashHex </>
"tokens.json"
do!
codePath
|> SpiralFileSystem.wait_for_file_access_read
|> Async.runWithTimeoutAsync 1000
|> Async.Ignore
let! tokens = codePath |>
Supervisor.getFileTokenRange None None
match tokens with
| Some tokens ->
do!
tokens
|> FSharp.Json.Json.serialize
|> SpiralFileSystem.write_all_text_async
tokensPath
| None ->
trace Verbose (fun () ->
$"Eval.startTokenRangeWatcher / iterAsyncParallel / tokens: None") _locals
| _ -> ()
with ex ->
trace Critical (fun () -> $"Eval.startTokenRangeWatcher
/ iterAsyncParallel / ex: {ex |> SpiralSm.format_exception}") _locals
})
let parentAsyncChild = async {
let parentProcessId = getParentProcessId ()
trace Verbose
(fun () -> "Eval.parentAsyncChild")
(fun () -> $"parentProcessId: {parentProcessId} / {_locals
()}")
if parentProcessId > 0u then
let parentProcess = parentProcessId |> int |>
System.Diagnostics.Process.GetProcessById
do! parentProcess.WaitForExitAsync () |> Async.AwaitTask
trace Verbose
(fun () -> "Eval.parentAsyncChild / Parent process has
exited. Performing cleanup...")
(fun () -> $"{_locals ()}")
System.Threading.Thread.Sleep 1000
System.Environment.Exit 1
}
async {
do! Async.Sleep 3000
existingFilesChild |> Async.StartImmediate
streamAsyncChild |> Async.Start
parentAsyncChild |> Async.Start
}
|> Async.Start
with ex ->
trace Critical (fun () -> $"Eval.startTokenRangeWatcher / ex: {ex |>
SpiralSm.format_exception}") _locals
disposable
else new_disposable (fun () -> ())
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## startCommandsWatcher │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let startCommandsWatcher (uriServer : string) =
let commandsDir = targetDir </> "eval_commands"
let commandHistoryDir = targetDir </> "eval_command_history"
[[ commandsDir; commandHistoryDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
Directory.EnumerateFiles commandsDir |> Seq.iter File.Delete
let stream, disposable =
commandsDir
|> FileSystem.watchDirectory (function
| FileSystem.FileSystemChange.Created _ -> true
| _ -> false
)
let connection = HubConnectionBuilder().WithUrl(uriServer).Build()
connection.StartAsync() |> Async.AwaitTask |> Async.Start
// let _ = connection.On<string>("ServerToClientMsg", fun x ->
// printfn $"ServerToClientMsg: '{x}'"
// )
stream
|> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) -> async {
let _locals () = $"ticks: {ticks} / event: {event} / {_locals ()}"
trace Verbose (fun () -> "Eval.startCommandsWatcher /
iterAsyncParallel") _locals
match event with
| FileSystem.FileSystemChange.Created (path, Some json) ->
try
let fullPath = commandsDir </> path
let! result =
connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask
let commandHistoryPath = commandHistoryDir </> path
do! fullPath |> SpiralFileSystem.move_file_async
commandHistoryPath |> Async.Ignore
if result |> SpiralSm.trim |> String.length > 0 then
let resultPath = commandHistoryDir </>
$"{Path.GetFileNameWithoutExtension path}_result.json"
do! result |> SpiralFileSystem.write_all_text_async
resultPath
with ex ->
let _locals () = $"ex: {ex |> SpiralSm.format_exception} /
{_locals ()}"
trace Critical (fun () -> "Eval.startCommandsWatcher /
iterAsyncParallel") _locals
| _ -> ()
})
|> Async.StartChild
|> Async.Ignore
|> Async.Start
new_disposable (fun () ->
disposable.Dispose ()
)
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## eval │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline eval
(fsi_eval:
string
-> System.Threading.CancellationToken
-> Choice<'a,Exception> * (TraceLevel * string * int * (string * (int *
int) * (int * int))) array)
(cancellationToken: Option<System.Threading.CancellationToken>)
(code: string)
=
trace Verbose (fun () -> $"Eval.eval / code: %A{code}") _locals
let rawCellCode =
code |> SpiralSm.replace "\r\n" "\n"
let lines = rawCellCode |> SpiralSm.split "\n"
if lines |> Array.exists (fun line -> line |> SpiralSm.starts_with "#r " &&
line |> SpiralSm.ends_with "\"") then
let cancellationToken = defaultArg cancellationToken
System.Threading.CancellationToken.None
let ch, errors = fsi_eval code cancellationToken
match ch with
| Choice1Of2 v -> Ok(v), errors
| Choice2Of2 ex -> Error(ex), errors
else
try
let rustArgs =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // rust="
then line |> SpiralSm.split "=" |> Array.tryItem 1
else None
)
let timeout =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // timeout="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map int
else None
)
|> Option.defaultValue (60000 * 60)
let printCode =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // print_code="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map ((=) "true")
else None
)
|> Option.defaultValue true
let isTrace =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // trace="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map ((=) "true")
else None
)
|> Option.defaultValue false
let oldLevel = get_trace_level ()
if isTrace
then SpiralTrace.TraceLevel.US0_0
else SpiralTrace.TraceLevel.US0_2
|> set_trace_level
use _ = (new_disposable (fun () ->
oldLevel |> set_trace_level
))
let lastBlock =
lines
|> Array.tryFindBack (fun line ->
line |> String.length > 0
&& line.[[0]] <> ' '
)
let hasMain =
lastBlock
|> Option.exists (fun line ->
line |> SpiralSm.starts_with "inl main "
|| line |> SpiralSm.starts_with "let main "
)
let cellCode, lastTopLevelIndex =
if hasMain
then rawCellCode, None
else
let lastTopLevelIndex, _ =
(lines |> Array.indexed, (None, false))
||> Array.foldBack (fun (i, line) (lastTopLevelIndex,
finished) ->
trace Debug (fun () -> $"i: {i} / line: '{line}' /
lastTopLevelIndex: {lastTopLevelIndex} / finished: {finished}") _locals
match line with
| _ when finished -> lastTopLevelIndex, true
| "" -> lastTopLevelIndex, false
| line when
line |> SpiralSm.starts_with " "
|| line |> SpiralSm.starts_with "// " ->
lastTopLevelIndex, false
| line when
line |> SpiralSm.starts_with "open "
|| line |> SpiralSm.starts_with "prototype "
|| line |> SpiralSm.starts_with "instance "
|| line |> SpiralSm.starts_with "type "
|| line |> SpiralSm.starts_with "union "
|| line |> SpiralSm.starts_with "nominal " ->
lastTopLevelIndex, true
| line when
line |> SpiralSm.starts_with "inl "
|| line |> SpiralSm.starts_with "let " ->
let m =
System.Text.RegularExpressions.Regex.Match (
line,
@"^(inl|let) +([[~\(\w]][[\w\d']]*(?:|
*[[~\w]][[\w\d']]*\)|, *[[~\w]][[\w\d']]*)) +[[:=]](?! +function)"
)
trace Debug (fun () -> $"m: '{m}' /
m.Groups.Count: {m.Groups.Count}") _locals
if m.Groups.Count = 3
then Some i, false
else lastTopLevelIndex, true
| _ -> Some i, false
)
let code =
match lastTopLevelIndex with
| Some lastTopLevelIndex ->
lines
|> Array.mapi (fun i line ->
match i with
| i when i < lastTopLevelIndex -> line
| i when i = lastTopLevelIndex -> $"\nlet main
() =\n {line}"
| _ when line |> SpiralSm.trim = "" -> ""
| _ -> $" {line}"
)
|> SpiralSm.concat "\n"
| None -> $"{rawCellCode}\n\ninl main () = ()\n"
code, lastTopLevelIndex
let newAllCode = $"{allCode}\n\n{cellCode}"
async {
try
let! mainPath = newAllCode |> Supervisor.persistCode
let port = Supervisor.getCompilerPort ()
let! codeChoice =
mainPath
|> Supervisor.buildFile timeout port cancellationToken
|> Async.catch
|> Async.runWithTimeoutAsync timeout
let code =
match codeChoice with
| Some (Ok code) -> Some code
| Some (Error ex) ->
trace Critical (fun () -> $"Eval / errors: {ex |>
SpiralSm.format_exception}") _locals
None
| _ -> None
match code with
| Some (Some code, spiralErrors) ->
let spiralErrors =
mapErrors (Warning, spiralErrors, lastTopLevelIndex)
allCode
let inline _trace (fn : unit -> string) =
if isTrace
then trace Info (fun () -> $"Eval.eval / {fn ()}")
_locals
else fn () |> System.Console.WriteLine
if printCode
then _trace (fun () -> if rustArgs |> Option.isSome then
$".fsx:\n{code}\n" else code)
let! rustResult =
if rustArgs |> Option.isNone || lastTopLevelIndex =
None
then None |> Async.init
else
async {
// let hash = $"repl_{code |>
SpiralCrypto.hash_text}"
let hash = $"spiral_eval"
let! fsprojPath = code |>
Builder.persistCodeProject [["Fable.Core"]] [[]] hash
let projectDir = fsprojPath |>
Path.GetDirectoryName
let outDir = projectDir </> $"target/{hash}"
let libLinkTargetPath = projectDir </>
"target/fable-library-rust"
let libLinkPath = outDir </>
$"fable_modules/fable-library-rust"
if Directory.Exists libLinkTargetPath |> not
then libLinkTargetPath |>
Directory.CreateDirectory |> ignore
libLinkPath |> Path.GetDirectoryName |>
Directory.CreateDirectory |> ignore
let libLinkPathInfo = DirectoryInfo
libLinkPath
if libLinkPathInfo.Exists &&
libLinkPathInfo.LinkTarget = null then
Directory.Delete (libLinkPath, true)
if libLinkPath |> Directory.Exists |> not
then
Directory.CreateSymbolicLink
(libLinkPath, libLinkTargetPath)
|> ignore
let repositoryRoot =
let currentDir =
System.IO.Directory.GetCurrentDirectory ()
|> SpiralSm.to_lower
let repositoryRoot = repositoryRoot |>
SpiralSm.to_lower
if currentDir |> SpiralSm.starts_with
repositoryRoot
then None
else Some repositoryRoot
// try
// let path =
// repositoryRoot </>
$@"target/release/rust_builder{SpiralRuntime.get_executable_suffix ()}"
// |> System.IO.Path.GetFullPath
// let command = $"{path} {fsprojPath}
{outDir}"
// let! exitCode, result =
//
SpiralRuntime.execute_with_options_async struct (cancellationToken, command,
None, repositoryRoot)
// trace Info (fun () -> $"Eval.eval 1 /
exitCode: {exitCode} / result: {result}") _locals
// with ex ->
// trace Critical (fun () -> $"Eval.eval
1 / ex: {ex}") _locals
let command = $@"dotnet fable
""{fsprojPath}"" --optimize --lang rs --extension .rs --outDir ""{outDir}"" "
let! exitCode, result =
SpiralRuntime.execute_with_options_async
struct (cancellationToken, command, None, repositoryRoot)
if exitCode <> 0
then return Some (Error result)
else
let command = "cargo fmt --"
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (cancellationToken, command,
None, Some outDir)
if exitCode <> 0 then
trace Critical (fun () ->
$"Eval.eval / cargo fmt error / exitCode: {exitCode} / result: {result}")
_locals
let rsPath = outDir </> $"{hash}.rs"
let! rsCode = rsPath |>
SpiralFileSystem.read_all_text_async
let mainCodeHeader = "pub fn main() ->
Result<(), String> {"
let mainCode = $"{mainCodeHeader} Ok(())
}}"
let cached = rsCode |> SpiralSm.contains
mainCodeHeader
let rsCode =
if cached
then rsCode
else rsCode |> SpiralSm.replace
"),);" "));"
if printCode
then _trace (fun () ->
$".rs:\n{rsCode}")
if not cached
then do!
$"{rsCode}\n\n{mainCode}\n"
|>
SpiralFileSystem.write_all_text_async rsPath
let cargoTomlPath = outDir </>
$"Cargo.toml"
let cargoTomlContent = $"""[[package]]
name = "{hash}"
version = "0.0.1"
edition = "2021"
[[workspace]]
[[dependencies]]
fable_library_rust = {{ path = "fable_modules/fable-library-rust", optional =
true, default-features = false, features = [["static_do_bindings"]] }}
clap = "~4.5"
inline_colorization = "~0.1"
num-complex = "~0.4"
pyo3 = "~0.21"
async-std = "~1.12"
futures = "~0.3"
futures-lite = "~2.3"
async-walkdir = "~1.0"
rayon = "~1.10"
[[features]]
default = [["fable_library_rust/default",
"fable_library_rust/static_do_bindings"]]
[[[[bin]]]]
name = "{hash}"
path = "{hash}.rs"
"""
do! cargoTomlContent |>
SpiralFileSystem.write_all_text_exists cargoTomlPath
let command = $@"cargo run --release
--manifest-path {cargoTomlPath}"
let! exitCode, result =
SpiralRuntime.execute_with_options_async struct (cancellationToken, command,
None, repositoryRoot)
if exitCode = 0 then
try
let result =
result
|> SpiralSm.split "\n"
|> Array.skipWhile (fun line
->
line |>
SpiralSm.contains @"[[optimized]] target" |> not
)
|> Array.skip 2
|> SpiralSm.concat "\n"
return Some (Ok result)
with ex ->
return $"ex:
{ex}\nresult:\n{result}" |> Error |> Some
else
return Some (Error result)
}
let cancellationToken = defaultArg cancellationToken
System.Threading.CancellationToken.None
let fsxResult =
if rustArgs |> Option.isSome
then None
else
try
let ch, errors = fsi_eval code
cancellationToken
let errors =
errors
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
Some (ch, errors)
with ex ->
trace Critical (fun () -> $"Eval.eval / ex:
{ex |> SpiralSm.format_exception}") _locals
None
match fsxResult, rustResult with
| Some (ch, errors), None ->
let errors = errors |> Array.append spiralErrors
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex -> return Error ex, errors
| _, Some result ->
let result, errors =
match result with
| Ok result -> result, [[||]]
| Error error ->
"",
[[|
(
TraceLevel.Critical, error, 0, ("",
(0, 0), (0, 0))
)
|]]
let header = if printCode then ".rs output:\n" else
""
let code =
if printCode
then $"\"\"\"{header}{result}\n\n\n\"\"\""
else $"\"\"\"{header}{result}\n\"\"\""
let ch, errors2 = fsi_eval code cancellationToken
let errors =
errors
|> Array.append spiralErrors
|> Array.append errors2
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex ->
return Error ex, errors
| _ ->
let ch, errors = fsi_eval "()" cancellationToken
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex ->
return Error ex, errors
| Some (None, errors) when errors |> List.isEmpty |> not ->
return errors.[[0]] |> fst |> Exception |> Error,
mapErrors (TraceLevel.Critical, errors,
lastTopLevelIndex) allCode
| _ ->
return Error (Exception "Spiral error or timeout"),
[[|
(
TraceLevel.Critical, "Diag: Spiral error or
timeout", 0, ("", (0, 0), (0, 0))
)
|]]
with ex ->
trace Critical (fun () -> $"Eval / ex: {ex |>
SpiralSm.format_exception}") _locals
return Error (Exception $"Spiral error or timeout (4_) / ex:
{ex |> SpiralSm.format_exception}"),
[[|
(
TraceLevel.Critical, $"Diag: Spiral error or timeout
(4) / ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0))
)
|]]
}
|> Async.runWithTimeoutStrict timeout
|> Option.defaultValue (
Error (Exception "Spiral error or timeout (2)"),
[[|
(
TraceLevel.Critical, "Diag: Spiral error or timeout
(2)", 0, ("", (0, 0), (0, 0))
)
|]]
)
with ex ->
trace Critical (fun () -> $"Eval / ex: {ex |>
SpiralSm.format_exception}") _locals
Error (Exception $"Spiral error or timeout (3) / ex: {ex |>
SpiralSm.format_exception}"),
[[|
(
TraceLevel.Critical, $"Diag: Spiral error or timeout (3) /
ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0))
)
|]]
[NbConvertApp] Converting notebook Eval.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 391423 bytes to Eval.dib.html
00:00:00 debug #1 writeDibCode / output: Fs / path: Eval.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: Eval.dib
In [ ]:
{ . "$ScriptDir/../lib/rust/fable/build.ps1" } | Invoke-Block
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\rust\fable / path: build.dib / _args: null ── pwsh ──────────────────────────────────────────────────────────────────────── . ../../../scripts/nbs_header.ps1 . ../../../scripts/core.ps1 ── pwsh ──────────────────────────────────────────────────────────────────────── dotnet fable --optimize --lang rs --extension .rs ╭─[ 847.24ms - stdout ]────────────────────────────────────────────────────────╮ │ Fable 4.14.0: F# to Rust compiler (status: alpha) │ │ │ │ Thanks to the contributor! @NickDarvey │ │ Stand with Ukraine! https://standwithukraine.com.ua/ │ │ │ │ Parsing fable-library-rust.fsproj... │ │ Retrieving project options from cache, in case of issues run `dotnet fable │ │ clean` or try `--noCache` option. │ │ Project and references (1 source files) parsed in 176ms │ │ │ │ Skipped compilation because all generated files are up-to-date! │ │ │ ╰──────────────────────────────────────────────────────────────────────────────╯ [NbConvertApp] Converting notebook build.dib.ipynb to html C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. validate(nb) C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3 return _pygments_highlight( [NbConvertApp] Writing 272482 bytes to build.dib.html
In [ ]:
{ . "$ScriptDir/../apps/spiral/rust_builder/build.ps1" } | Invoke-Block
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:01 debug #7 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../../scripts/invoke-dib.ps1 rust_builder.dib"", None, None)
00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\spiral\rust_builder / path: rust_builder.dib / _args: null
00:00:05 verbose #9 >
00:00:05 verbose #10 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #11 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #12 > │ # rust_builder │
00:00:05 verbose #13 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #14 >
00:00:05 verbose #15 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #16 > open file_system_operators
00:00:05 verbose #17 > open rust_operators
00:00:05 verbose #18 > open sm'_operators
00:00:08 verbose #19 > 00:00:07 debug #4 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dbd4e241eb2e3e9a3661143aea0c86fecd75762a2bbbb339087b494077d89a25/main.spi
00:00:09 verbose #20 >
00:00:09 verbose #21 > ╭─[ 4.26s - stdout ]───────────────────────────────────────────────────────────╮
00:00:09 verbose #22 > │ () │
00:00:09 verbose #23 > │ │
00:00:09 verbose #24 > │ │
00:00:09 verbose #25 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #26 >
00:00:09 verbose #27 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #28 > // // test
00:00:09 verbose #29 >
00:00:09 verbose #30 > open testing
00:00:09 verbose #31 > 00:00:09 debug #5 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f47bc28bac291fb9de29b31c1b9771b3e562b3cef6ece99975fcc2d2413e8ee1/main.spi
00:00:10 verbose #32 >
00:00:10 verbose #33 > ╭─[ 288.79ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #34 > │ () │
00:00:10 verbose #35 > │ │
00:00:10 verbose #36 > │ │
00:00:10 verbose #37 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #38 >
00:00:10 verbose #39 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #40 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #41 > │ ## types │
00:00:10 verbose #42 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #43 >
00:00:10 verbose #44 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #45 > inl types () =
00:00:10 verbose #46 > rust.types ()
00:00:10 verbose #47 > sm'.types ()
00:00:10 verbose #48 > file_system.types ()
00:00:10 verbose #49 > runtime.types ()
00:00:10 verbose #50 > 00:00:09 debug #6 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f80a1dac77e24a8c9de376dfe0a3e760c0b4d7d2c756f2bd8a8be0be4edb0cc4/main.spi
00:00:10 verbose #51 >
00:00:10 verbose #52 > ╭─[ 280.97ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #53 > │ () │
00:00:10 verbose #54 > │ │
00:00:10 verbose #55 > │ │
00:00:10 verbose #56 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #57 >
00:00:10 verbose #58 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #59 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #60 > │ ## get_command │
00:00:10 verbose #61 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #62 >
00:00:10 verbose #63 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #64 > let get_command () =
00:00:10 verbose #65 > ##"command"
00:00:10 verbose #66 > |> runtime.new_command
00:00:10 verbose #67 > |> runtime.command_arg (
00:00:10 verbose #68 > runtime.new_arg ##"path"
00:00:10 verbose #69 > |> runtime.arg_required true
00:00:10 verbose #70 > )
00:00:10 verbose #71 > |> runtime.command_arg (
00:00:10 verbose #72 > runtime.new_arg ##"out_dir"
00:00:10 verbose #73 > |> runtime.arg_required true
00:00:10 verbose #74 > )
00:00:10 verbose #75 > 00:00:09 debug #7 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f7c3e900a93eb652c1417192166df86db2d13ca46985e6ac585d92cb84856700/main.spi
00:00:10 verbose #76 >
00:00:10 verbose #77 > ╭─[ 269.17ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #78 > │ () │
00:00:10 verbose #79 > │ │
00:00:10 verbose #80 > │ │
00:00:10 verbose #81 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #82 >
00:00:10 verbose #83 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #84 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #85 > │ ## tests │
00:00:10 verbose #86 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #87 >
00:00:10 verbose #88 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #89 > inl tests () =
00:00:10 verbose #90 > rust.run_tests [[
00:00:10 verbose #91 > "verify_app", fun _ =>
00:00:10 verbose #92 > get_command () |> runtime.command_debug_assert
00:00:10 verbose #93 > ]]
00:00:10 verbose #94 > 00:00:10 debug #8 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8aab604849ed99d13bc36d55b27b2fc187307a43a2b00a9f5b7563eeff7d688b/main.spi
00:00:10 verbose #95 >
00:00:10 verbose #96 > ╭─[ 257.07ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #97 > │ () │
00:00:10 verbose #98 > │ │
00:00:10 verbose #99 > │ │
00:00:10 verbose #100 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #101 >
00:00:10 verbose #102 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #103 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #104 > │ ## main │
00:00:10 verbose #105 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #106 >
00:00:10 verbose #107 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #108 > // // rust=
00:00:10 verbose #109 >
00:00:10 verbose #110 > inl main (args : array_base string) =
00:00:10 verbose #111 > inl repository_root = file_system.get_repository_root ()
00:00:10 verbose #112 >
00:00:10 verbose #113 > trace Debug
00:00:10 verbose #114 > fun () => $'$"rust_builder.main"'
00:00:10 verbose #115 > fun () => $'$"args: {!args} / repository_root: {!repository_root}
00:00:10 verbose #116 > {!_locals ()}"'
00:00:10 verbose #117 >
00:00:10 verbose #118 > inl command = get_command ()
00:00:10 verbose #119 > inl arg_matches = command |> runtime.command_get_matches
00:00:10 verbose #120 >
00:00:10 verbose #121 > trace Debug
00:00:10 verbose #122 > fun () => $'$"rust_builder"'
00:00:10 verbose #123 > fun () =>
00:00:10 verbose #124 > inl command = command |> sm'.format_pretty'
00:00:10 verbose #125 > inl arg_matches = arg_matches |> sm'.format_pretty'
00:00:10 verbose #126 > $'$"command: {!command} / matches: {!arg_matches} / {!_locals ()}"'
00:00:10 verbose #127 >
00:00:10 verbose #128 > 0i32
00:00:10 verbose #129 >
00:00:10 verbose #130 > inl main () =
00:00:10 verbose #131 > types ()
00:00:10 verbose #132 > $"let tests () = !tests ()" : ()
00:00:10 verbose #133 > $"let main args = !main args" : ()
00:00:10 verbose #134 > 00:00:10 debug #9 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b7b63ad9f60de8539bccc095825340e5e2358c49353b730a17c683efb6b456c9/main.spi
00:00:11 verbose #135 >
00:00:11 verbose #136 > ╭─[ 511.61ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 verbose #137 > │ .fsx: │
00:00:11 verbose #138 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:00:11 verbose #139 > │ end │
00:00:11 verbose #140 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:00:11 verbose #141 > │ class end │
00:00:11 verbose #142 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:00:11 verbose #143 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:00:11 verbose #144 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:00:11 verbose #145 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:00:11 verbose #146 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:00:11 verbose #147 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:00:11 verbose #148 > │ class end │
00:00:11 verbose #149 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:00:11 verbose #150 > │ end │
00:00:11 verbose #151 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:00:11 verbose #152 > │ class end │
00:00:11 verbose #153 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:00:11 verbose #154 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:00:11 verbose #155 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:11 verbose #156 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:00:11 verbose #157 > │ class end │
00:00:11 verbose #158 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:00:11 verbose #159 > │ class end │
00:00:11 verbose #160 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:00:11 verbose #161 > │ class end │
00:00:11 verbose #162 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:00:11 verbose #163 > │ std_cell_RefCell<'T> = class end │
00:00:11 verbose #164 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:00:11 verbose #165 > │ std_pin_Pin<'T> = class end │
00:00:11 verbose #166 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:00:11 verbose #167 > │ = class end │
00:00:11 verbose #168 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:00:11 verbose #169 > │ std_rc_Weak<'T> = class end │
00:00:11 verbose #170 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:00:11 verbose #171 > │ std_sync_Arc<'T> = class end │
00:00:11 verbose #172 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:11 verbose #173 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:00:11 verbose #174 > │ base64_DecodeError = class end │
00:00:11 verbose #175 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:00:11 verbose #176 > │ borsh_io_Error = class end │
00:00:11 verbose #177 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:00:11 verbose #178 > │ js_sys_JsString = class end │
00:00:11 verbose #179 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:00:11 verbose #180 > │ serde_json_Error = class end │
00:00:11 verbose #181 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:00:11 verbose #182 > │ serde_json_Value = class end │
00:00:11 verbose #183 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:00:11 verbose #184 > │ serde_wasm_bindgen_Error = class end │
00:00:11 verbose #185 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:00:11 verbose #186 > │ = class end │
00:00:11 verbose #187 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:00:11 verbose #188 > │ std_ffi_OsString = class end │
00:00:11 verbose #189 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:00:11 verbose #190 > │ std_str_Utf8Error = class end │
00:00:11 verbose #191 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:11 verbose #192 > │ std_string_String = class end │
00:00:11 verbose #193 > │ #if FABLE_COMPILER // file_system.types │
00:00:11 verbose #194 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>] type │
00:00:11 verbose #195 > │ std_fs_FileType = class end │
00:00:11 verbose #196 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::io::Error")>] type std_io_Error = │
00:00:11 verbose #197 > │ class end │
00:00:11 verbose #198 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>] type std_path_Path │
00:00:11 verbose #199 > │ = class end │
00:00:11 verbose #200 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>] type │
00:00:11 verbose #201 > │ std_path_PathBuf = class end │
00:00:11 verbose #202 > │ [<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>] type │
00:00:11 verbose #203 > │ async_walkdir_DirEntry = class end │
00:00:11 verbose #204 > │ [<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>] type │
00:00:11 verbose #205 > │ async_walkdir_Filtering = class end │
00:00:11 verbose #206 > │ [<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>] type │
00:00:11 verbose #207 > │ async_walkdir_WalkDir = class end │
00:00:11 verbose #208 > │ #endif // file_system.types │
00:00:11 verbose #209 > │ #if FABLE_COMPILER // runtime.types │
00:00:11 verbose #210 > │ [<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>] type clap_Arg = class end │
00:00:11 verbose #211 > │ [<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>] type clap_Command = │
00:00:11 verbose #212 > │ class end │
00:00:11 verbose #213 > │ [<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>] type │
00:00:11 verbose #214 > │ clap_ArgMatches = class end │
00:00:11 verbose #215 > │ #endif // runtime.types │
00:00:11 verbose #216 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:00:11 verbose #217 > │ string │
00:00:11 verbose #218 > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:00:11 verbose #219 > │ type IPathDirname = abstract dirname: path: string -> string │
00:00:11 verbose #220 > │ module State = let mutable trace_state = None │
00:00:11 verbose #221 > │ type [<Struct>] US0 = │
00:00:11 verbose #222 > │ | US0_0 of f0_0 : string │
00:00:11 verbose #223 > │ | US0_1 │
00:00:11 verbose #224 > │ and [<Struct>] US1 = │
00:00:11 verbose #225 > │ | US1_0 │
00:00:11 verbose #226 > │ | US1_1 │
00:00:11 verbose #227 > │ | US1_2 │
00:00:11 verbose #228 > │ | US1_3 │
00:00:11 verbose #229 > │ | US1_4 │
00:00:11 verbose #230 > │ and Mut0 = {mutable l0 : int64} │
00:00:11 verbose #231 > │ and Mut1 = {mutable l0 : bool} │
00:00:11 verbose #232 > │ and Mut2 = {mutable l0 : US1} │
00:00:11 verbose #233 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:00:11 verbose #234 > │ and [<Struct>] US2 = │
00:00:11 verbose #235 > │ | US2_0 of f0_0 : int64 │
00:00:11 verbose #236 > │ | US2_1 │
00:00:11 verbose #237 > │ and [<Struct>] US3 = │
00:00:11 verbose #238 > │ | US3_0 of f0_0 : int64 │
00:00:11 verbose #239 > │ | US3_1 │
00:00:11 verbose #240 > │ let rec method0 () : clap_Command = │
00:00:11 verbose #241 > │ let v0 : string = "command" │
00:00:11 verbose #242 > │ let v1 : string = "r#\"" + v0 + "\"#" │
00:00:11 verbose #243 > │ let v2 : StaticRef<Str> = Fable.Core.RustInterop.emitRustExpr () v1 │
00:00:11 verbose #244 > │ let v3 : string = "clap::Command::new($0)" │
00:00:11 verbose #245 > │ let v4 : clap_Command = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:00:11 verbose #246 > │ let v5 : string = "path" │
00:00:11 verbose #247 > │ let v6 : string = "r#\"" + v5 + "\"#" │
00:00:11 verbose #248 > │ let v7 : StaticRef<Str> = Fable.Core.RustInterop.emitRustExpr () v6 │
00:00:11 verbose #249 > │ let v8 : string = "clap::Arg::new($0)" │
00:00:11 verbose #250 > │ let v9 : clap_Arg = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:00:11 verbose #251 > │ let v10 : string = "$0.required($1)" │
00:00:11 verbose #252 > │ let v11 : clap_Arg = Fable.Core.RustInterop.emitRustExpr struct (v9, │
00:00:11 verbose #253 > │ true) v10 │
00:00:11 verbose #254 > │ let v12 : string = "clap::Command::arg($0, $1)" │
00:00:11 verbose #255 > │ let v13 : clap_Command = Fable.Core.RustInterop.emitRustExpr struct (v4, │
00:00:11 verbose #256 > │ v11) v12 │
00:00:11 verbose #257 > │ let v14 : string = "out_dir" │
00:00:11 verbose #258 > │ let v15 : string = "r#\"" + v14 + "\"#" │
00:00:11 verbose #259 > │ let v16 : StaticRef<Str> = Fable.Core.RustInterop.emitRustExpr () v15 │
00:00:11 verbose #260 > │ let v17 : string = "clap::Arg::new($0)" │
00:00:11 verbose #261 > │ let v18 : clap_Arg = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:00:11 verbose #262 > │ let v19 : string = "$0.required($1)" │
00:00:11 verbose #263 > │ let v20 : clap_Arg = Fable.Core.RustInterop.emitRustExpr struct (v18, │
00:00:11 verbose #264 > │ true) v19 │
00:00:11 verbose #265 > │ let v21 : string = "clap::Command::arg($0, $1)" │
00:00:11 verbose #266 > │ let v22 : clap_Command = Fable.Core.RustInterop.emitRustExpr struct │
00:00:11 verbose #267 > │ (v13, v20) v21 │
00:00:11 verbose #268 > │ v22 │
00:00:11 verbose #269 > │ and closure0 () () : unit = │
00:00:11 verbose #270 > │ let v0 : string = "true; () //" │
00:00:11 verbose #271 > │ let v1 : bool = Fable.Core.RustInterop.emitRustExpr () v0 │
00:00:11 verbose #272 > │ let v2 : string = "} /* /*" │
00:00:11 verbose #273 > │ Fable.Core.RustInterop.emitRustExpr () v2 │
00:00:11 verbose #274 > │ let v3 : string = "verify_app" │
00:00:11 verbose #275 > │ let v4 : string = $"*/ #[test] fn " + v3 + "() { //" │
00:00:11 verbose #276 > │ let v5 : bool = Fable.Core.RustInterop.emitRustExpr () v4 │
00:00:11 verbose #277 > │ let v6 : clap_Command = method0() │
00:00:11 verbose #278 > │ let v7 : string = "clap::Command::debug_assert($0)" │
00:00:11 verbose #279 > │ Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:00:11 verbose #280 > │ let v8 : string = "{ //" │
00:00:11 verbose #281 > │ Fable.Core.RustInterop.emitRustExpr () v8 │
00:00:11 verbose #282 > │ () │
00:00:11 verbose #283 > │ and method1 () : string = │
00:00:11 verbose #284 > │ let v0 : string = "polyglot" │
00:00:11 verbose #285 > │ v0 │
00:00:11 verbose #286 > │ and method2 () : string = │
00:00:11 verbose #287 > │ let v0 : string = ".paket" │
00:00:11 verbose #288 > │ v0 │
00:00:11 verbose #289 > │ and method3 () : string = │
00:00:11 verbose #290 > │ let v0 : string = "polyglot" │
00:00:11 verbose #291 > │ v0 │
00:00:11 verbose #292 > │ and method4 () : string = │
00:00:11 verbose #293 > │ let v0 : string = ".paket" │
00:00:11 verbose #294 > │ v0 │
00:00:11 verbose #295 > │ and method6 (v0 : string) : string = │
00:00:11 verbose #296 > │ v0 │
00:00:11 verbose #297 > │ and method7 (v0 : string) : string = │
00:00:11 verbose #298 > │ v0 │
00:00:11 verbose #299 > │ and method8 (v0 : string) : string = │
00:00:11 verbose #300 > │ v0 │
00:00:11 verbose #301 > │ and closure2 () (v0 : string) : string option = │
00:00:11 verbose #302 > │ let v1 : US0 option = None │
00:00:11 verbose #303 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:00:11 verbose #304 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #305 > │ let v3 : string = method6(v0) │
00:00:11 verbose #306 > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #307 > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:00:11 verbose #308 > │ let v6 : string = "String::from($0)" │
00:00:11 verbose #309 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:00:11 verbose #310 > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #311 > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:00:11 verbose #312 > │ let v10 : string = "$0.parent().map(std::path::PathBuf::from)" │
00:00:11 verbose #313 > │ let v11 : std_path_PathBuf option = Fable.Core.RustInterop.emitRustExpr │
00:00:11 verbose #314 > │ v9 v10 │
00:00:11 verbose #315 > │ let v12 : string = "$0?" │
00:00:11 verbose #316 > │ let v13 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:00:11 verbose #317 > │ let v14 : string = "$0.display().to_string()" │
00:00:11 verbose #318 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:00:11 verbose #319 > │ v14 │
00:00:11 verbose #320 > │ let v16 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #321 > │ let v17 : string = Fable.Core.RustInterop.emitRustExpr v15 v16 │
00:00:11 verbose #322 > │ let v18 : US0 = US0_0(v17) │
00:00:11 verbose #323 > │ v18 │
00:00:11 verbose #324 > │ #endif │
00:00:11 verbose #325 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #326 > │ let v19 : US0 = null |> unbox<US0> │
00:00:11 verbose #327 > │ v19 │
00:00:11 verbose #328 > │ #endif │
00:00:11 verbose #329 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #330 > │ let v20 : US0 = null |> unbox<US0> │
00:00:11 verbose #331 > │ v20 │
00:00:11 verbose #332 > │ #endif │
00:00:11 verbose #333 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #334 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #335 > │ let v21 : (string -> System.IO.DirectoryInfo) = │
00:00:11 verbose #336 > │ System.IO.Directory.GetParent │
00:00:11 verbose #337 > │ let v22 : System.IO.DirectoryInfo = v21 v0 │
00:00:11 verbose #338 > │ let v23 : System.IO.DirectoryInfo = null |> │
00:00:11 verbose #339 > │ unbox<System.IO.DirectoryInfo> │
00:00:11 verbose #340 > │ let v24 : bool = v22 = v23 │
00:00:11 verbose #341 > │ let v36 : US0 = │
00:00:11 verbose #342 > │ if v24 then │
00:00:11 verbose #343 > │ US0_1 │
00:00:11 verbose #344 > │ else │
00:00:11 verbose #345 > │ let v26 : string option = None │
00:00:11 verbose #346 > │ let v27 : bool = true in let mutable _v26 = v26 │
00:00:11 verbose #347 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #348 > │ let v28 : string = null |> unbox<string> │
00:00:11 verbose #349 > │ v28 │
00:00:11 verbose #350 > │ #endif │
00:00:11 verbose #351 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #352 > │ let v29 : string = null |> unbox<string> │
00:00:11 verbose #353 > │ v29 │
00:00:11 verbose #354 > │ #endif │
00:00:11 verbose #355 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #356 > │ let v30 : string = null |> unbox<string> │
00:00:11 verbose #357 > │ v30 │
00:00:11 verbose #358 > │ #endif │
00:00:11 verbose #359 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #360 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #361 > │ let v31 : string = v22.FullName │
00:00:11 verbose #362 > │ v31 │
00:00:11 verbose #363 > │ #endif │
00:00:11 verbose #364 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #365 > │ let v32 : string = null |> unbox<string> │
00:00:11 verbose #366 > │ v32 │
00:00:11 verbose #367 > │ #endif │
00:00:11 verbose #368 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:00:11 verbose #369 > │ FABLE_COMPILER_DART │
00:00:11 verbose #370 > │ let v33 : string = Unchecked.defaultof<string> │
00:00:11 verbose #371 > │ v33 │
00:00:11 verbose #372 > │ #endif │
00:00:11 verbose #373 > │ |> fun x -> _v26 <- Some x │
00:00:11 verbose #374 > │ let v34 : string = _v26.Value │
00:00:11 verbose #375 > │ US0_0(v34) │
00:00:11 verbose #376 > │ v36 │
00:00:11 verbose #377 > │ #endif │
00:00:11 verbose #378 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #379 > │ let v37 : string = "path" │
00:00:11 verbose #380 > │ let v38 : IPathDirname = Fable.Core.JsInterop.importAll v37 │
00:00:11 verbose #381 > │ let v39 : string = "v38.dirname($0)" │
00:00:11 verbose #382 > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr v0 v39 │
00:00:11 verbose #383 > │ let v41 : US0 = US0_0(v40) │
00:00:11 verbose #384 > │ v41 │
00:00:11 verbose #385 > │ #endif │
00:00:11 verbose #386 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #387 > │ let v42 : US0 = Unchecked.defaultof<US0> │
00:00:11 verbose #388 > │ v42 │
00:00:11 verbose #389 > │ #endif │
00:00:11 verbose #390 > │ |> fun x -> _v1 <- Some x │
00:00:11 verbose #391 > │ let v43 : US0 = _v1.Value │
00:00:11 verbose #392 > │ match v43 with │
00:00:11 verbose #393 > │ | US0_1 -> (* None *) │
00:00:11 verbose #394 > │ let v46 : string option = None │
00:00:11 verbose #395 > │ v46 │
00:00:11 verbose #396 > │ | US0_0(v44) -> (* Some *) │
00:00:11 verbose #397 > │ let v45 : string option = Some v44 │
00:00:11 verbose #398 > │ v45 │
00:00:11 verbose #399 > │ and method9 () : (string -> string option) = │
00:00:11 verbose #400 > │ closure2() │
00:00:11 verbose #401 > │ and closure3 () (v0 : string) : US0 = │
00:00:11 verbose #402 > │ US0_0(v0) │
00:00:11 verbose #403 > │ and method10 () : (string -> US0) = │
00:00:11 verbose #404 > │ closure3() │
00:00:11 verbose #405 > │ and method11 (v0 : string, v1 : string, v2 : string) : string = │
00:00:11 verbose #406 > │ let v3 : string option = None │
00:00:11 verbose #407 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:00:11 verbose #408 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #409 > │ let v5 : string = method6(v2) │
00:00:11 verbose #410 > │ let v6 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #411 > │ let v7 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:00:11 verbose #412 > │ let v8 : string = "String::from($0)" │
00:00:11 verbose #413 > │ let v9 : std_string_String = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:00:11 verbose #414 > │ let v10 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #415 > │ let v11 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:00:11 verbose #416 > │ let v12 : string = method6(v0) │
00:00:11 verbose #417 > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #418 > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:00:11 verbose #419 > │ let v15 : string = "String::from($0)" │
00:00:11 verbose #420 > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:00:11 verbose #421 > │ v15 │
00:00:11 verbose #422 > │ let v17 : string = "$0.join($1)" │
00:00:11 verbose #423 > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:00:11 verbose #424 > │ (v11, v16) v17 │
00:00:11 verbose #425 > │ let v19 : string = "$0.display().to_string()" │
00:00:11 verbose #426 > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:00:11 verbose #427 > │ v19 │
00:00:11 verbose #428 > │ let v21 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #429 > │ let v22 : string = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:00:11 verbose #430 > │ v22 │
00:00:11 verbose #431 > │ #endif │
00:00:11 verbose #432 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #433 > │ let v23 : string = null |> unbox<string> │
00:00:11 verbose #434 > │ v23 │
00:00:11 verbose #435 > │ #endif │
00:00:11 verbose #436 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #437 > │ let v24 : string = null |> unbox<string> │
00:00:11 verbose #438 > │ v24 │
00:00:11 verbose #439 > │ #endif │
00:00:11 verbose #440 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #441 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #442 > │ let v25 : string = System.IO.Path.Combine (v2, v0) │
00:00:11 verbose #443 > │ v25 │
00:00:11 verbose #444 > │ #endif │
00:00:11 verbose #445 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #446 > │ let v26 : string = "path" │
00:00:11 verbose #447 > │ let v27 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:00:11 verbose #448 > │ let v28 : string = method7(v2) │
00:00:11 verbose #449 > │ let v29 : string = method8(v0) │
00:00:11 verbose #450 > │ let v30 : string = "v27.join(v28, v29)" │
00:00:11 verbose #451 > │ let v31 : string = Fable.Core.JsInterop.emitJsExpr () v30 │
00:00:11 verbose #452 > │ v31 │
00:00:11 verbose #453 > │ #endif │
00:00:11 verbose #454 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #455 > │ let v32 : string = Unchecked.defaultof<string> │
00:00:11 verbose #456 > │ v32 │
00:00:11 verbose #457 > │ #endif │
00:00:11 verbose #458 > │ |> fun x -> _v3 <- Some x │
00:00:11 verbose #459 > │ let v33 : string = _v3.Value │
00:00:11 verbose #460 > │ let v34 : bool option = None │
00:00:11 verbose #461 > │ let v35 : bool = true in let mutable _v34 = v34 │
00:00:11 verbose #462 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #463 > │ let v36 : string = method6(v33) │
00:00:11 verbose #464 > │ let v37 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #465 > │ let v38 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v37 │
00:00:11 verbose #466 > │ let v39 : string = "String::from($0)" │
00:00:11 verbose #467 > │ let v40 : std_string_String = Fable.Core.RustInterop.emitRustExpr v38 │
00:00:11 verbose #468 > │ v39 │
00:00:11 verbose #469 > │ let v41 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #470 > │ let v42 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v40 v41 │
00:00:11 verbose #471 > │ let v43 : string = "$0.exists()" │
00:00:11 verbose #472 > │ let v44 : bool = Fable.Core.RustInterop.emitRustExpr v42 v43 │
00:00:11 verbose #473 > │ let v47 : bool = │
00:00:11 verbose #474 > │ if v44 then │
00:00:11 verbose #475 > │ let v45 : string = "$0.is_dir()" │
00:00:11 verbose #476 > │ let v46 : bool = Fable.Core.RustInterop.emitRustExpr v42 v45 │
00:00:11 verbose #477 > │ v46 │
00:00:11 verbose #478 > │ else │
00:00:11 verbose #479 > │ false │
00:00:11 verbose #480 > │ v47 │
00:00:11 verbose #481 > │ #endif │
00:00:11 verbose #482 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #483 > │ let v48 : bool = null |> unbox<bool> │
00:00:11 verbose #484 > │ v48 │
00:00:11 verbose #485 > │ #endif │
00:00:11 verbose #486 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #487 > │ let v49 : bool = null |> unbox<bool> │
00:00:11 verbose #488 > │ v49 │
00:00:11 verbose #489 > │ #endif │
00:00:11 verbose #490 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #491 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #492 > │ let v50 : (string -> bool) = System.IO.Directory.Exists │
00:00:11 verbose #493 > │ let v51 : bool = v50 v33 │
00:00:11 verbose #494 > │ v51 │
00:00:11 verbose #495 > │ #endif │
00:00:11 verbose #496 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #497 > │ let v52 : string = "fs" │
00:00:11 verbose #498 > │ let v53 : IFsExistsSync = Fable.Core.JsInterop.importAll v52 │
00:00:11 verbose #499 > │ let v54 : string = "v53.existsSync($0)" │
00:00:11 verbose #500 > │ let v55 : bool = Fable.Core.JsInterop.emitJsExpr v33 v54 │
00:00:11 verbose #501 > │ v55 │
00:00:11 verbose #502 > │ #endif │
00:00:11 verbose #503 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #504 > │ let v56 : bool = Unchecked.defaultof<bool> │
00:00:11 verbose #505 > │ v56 │
00:00:11 verbose #506 > │ #endif │
00:00:11 verbose #507 > │ |> fun x -> _v34 <- Some x │
00:00:11 verbose #508 > │ let v57 : bool = _v34.Value │
00:00:11 verbose #509 > │ if v57 then │
00:00:11 verbose #510 > │ v2 │
00:00:11 verbose #511 > │ else │
00:00:11 verbose #512 > │ let v58 : (string -> string option) = method9() │
00:00:11 verbose #513 > │ let v59 : string option = v58 v2 │
00:00:11 verbose #514 > │ let v60 : (string -> US0) = method10() │
00:00:11 verbose #515 > │ let v61 : US0 = US0_1 │
00:00:11 verbose #516 > │ let v62 : US0 = v59 |> Option.map v60 |> Option.defaultValue v61 │
00:00:11 verbose #517 > │ match v62 with │
00:00:11 verbose #518 > │ | US0_1 -> (* None *) │
00:00:11 verbose #519 > │ let v65 : string = $"""No parent for {if false then "file" else │
00:00:11 verbose #520 > │ "dir"} '{v0}' at '{v1}' (until '{v2}')""" │
00:00:11 verbose #521 > │ failwith<string> v65 │
00:00:11 verbose #522 > │ | US0_0(v63) -> (* Some *) │
00:00:11 verbose #523 > │ method11(v0, v1, v63) │
00:00:11 verbose #524 > │ and method5 (v0 : string, v1 : string) : string = │
00:00:11 verbose #525 > │ let v2 : string option = None │
00:00:11 verbose #526 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:00:11 verbose #527 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #528 > │ let v4 : string = method6(v1) │
00:00:11 verbose #529 > │ let v5 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #530 > │ let v6 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:00:11 verbose #531 > │ let v7 : string = "String::from($0)" │
00:00:11 verbose #532 > │ let v8 : std_string_String = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:00:11 verbose #533 > │ let v9 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #534 > │ let v10 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:00:11 verbose #535 > │ let v11 : string = method6(v0) │
00:00:11 verbose #536 > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #537 > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:00:11 verbose #538 > │ let v14 : string = "String::from($0)" │
00:00:11 verbose #539 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:00:11 verbose #540 > │ v14 │
00:00:11 verbose #541 > │ let v16 : string = "$0.join($1)" │
00:00:11 verbose #542 > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:00:11 verbose #543 > │ (v10, v15) v16 │
00:00:11 verbose #544 > │ let v18 : string = "$0.display().to_string()" │
00:00:11 verbose #545 > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:00:11 verbose #546 > │ v18 │
00:00:11 verbose #547 > │ let v20 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #548 > │ let v21 : string = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:00:11 verbose #549 > │ v21 │
00:00:11 verbose #550 > │ #endif │
00:00:11 verbose #551 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #552 > │ let v22 : string = null |> unbox<string> │
00:00:11 verbose #553 > │ v22 │
00:00:11 verbose #554 > │ #endif │
00:00:11 verbose #555 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #556 > │ let v23 : string = null |> unbox<string> │
00:00:11 verbose #557 > │ v23 │
00:00:11 verbose #558 > │ #endif │
00:00:11 verbose #559 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #560 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #561 > │ let v24 : string = System.IO.Path.Combine (v1, v0) │
00:00:11 verbose #562 > │ v24 │
00:00:11 verbose #563 > │ #endif │
00:00:11 verbose #564 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #565 > │ let v25 : string = "path" │
00:00:11 verbose #566 > │ let v26 : IPathJoin = Fable.Core.JsInterop.importAll v25 │
00:00:11 verbose #567 > │ let v27 : string = method7(v1) │
00:00:11 verbose #568 > │ let v28 : string = method8(v0) │
00:00:11 verbose #569 > │ let v29 : string = "v26.join(v27, v28)" │
00:00:11 verbose #570 > │ let v30 : string = Fable.Core.JsInterop.emitJsExpr () v29 │
00:00:11 verbose #571 > │ v30 │
00:00:11 verbose #572 > │ #endif │
00:00:11 verbose #573 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #574 > │ let v31 : string = Unchecked.defaultof<string> │
00:00:11 verbose #575 > │ v31 │
00:00:11 verbose #576 > │ #endif │
00:00:11 verbose #577 > │ |> fun x -> _v2 <- Some x │
00:00:11 verbose #578 > │ let v32 : string = _v2.Value │
00:00:11 verbose #579 > │ let v33 : bool option = None │
00:00:11 verbose #580 > │ let v34 : bool = true in let mutable _v33 = v33 │
00:00:11 verbose #581 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #582 > │ let v35 : string = method6(v32) │
00:00:11 verbose #583 > │ let v36 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #584 > │ let v37 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v35 v36 │
00:00:11 verbose #585 > │ let v38 : string = "String::from($0)" │
00:00:11 verbose #586 > │ let v39 : std_string_String = Fable.Core.RustInterop.emitRustExpr v37 │
00:00:11 verbose #587 > │ v38 │
00:00:11 verbose #588 > │ let v40 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #589 > │ let v41 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v39 v40 │
00:00:11 verbose #590 > │ let v42 : string = "$0.exists()" │
00:00:11 verbose #591 > │ let v43 : bool = Fable.Core.RustInterop.emitRustExpr v41 v42 │
00:00:11 verbose #592 > │ let v46 : bool = │
00:00:11 verbose #593 > │ if v43 then │
00:00:11 verbose #594 > │ let v44 : string = "$0.is_dir()" │
00:00:11 verbose #595 > │ let v45 : bool = Fable.Core.RustInterop.emitRustExpr v41 v44 │
00:00:11 verbose #596 > │ v45 │
00:00:11 verbose #597 > │ else │
00:00:11 verbose #598 > │ false │
00:00:11 verbose #599 > │ v46 │
00:00:11 verbose #600 > │ #endif │
00:00:11 verbose #601 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #602 > │ let v47 : bool = null |> unbox<bool> │
00:00:11 verbose #603 > │ v47 │
00:00:11 verbose #604 > │ #endif │
00:00:11 verbose #605 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #606 > │ let v48 : bool = null |> unbox<bool> │
00:00:11 verbose #607 > │ v48 │
00:00:11 verbose #608 > │ #endif │
00:00:11 verbose #609 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #610 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #611 > │ let v49 : (string -> bool) = System.IO.Directory.Exists │
00:00:11 verbose #612 > │ let v50 : bool = v49 v32 │
00:00:11 verbose #613 > │ v50 │
00:00:11 verbose #614 > │ #endif │
00:00:11 verbose #615 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #616 > │ let v51 : string = "fs" │
00:00:11 verbose #617 > │ let v52 : IFsExistsSync = Fable.Core.JsInterop.importAll v51 │
00:00:11 verbose #618 > │ let v53 : string = "v52.existsSync($0)" │
00:00:11 verbose #619 > │ let v54 : bool = Fable.Core.JsInterop.emitJsExpr v32 v53 │
00:00:11 verbose #620 > │ v54 │
00:00:11 verbose #621 > │ #endif │
00:00:11 verbose #622 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #623 > │ let v55 : bool = Unchecked.defaultof<bool> │
00:00:11 verbose #624 > │ v55 │
00:00:11 verbose #625 > │ #endif │
00:00:11 verbose #626 > │ |> fun x -> _v33 <- Some x │
00:00:11 verbose #627 > │ let v56 : bool = _v33.Value │
00:00:11 verbose #628 > │ if v56 then │
00:00:11 verbose #629 > │ v1 │
00:00:11 verbose #630 > │ else │
00:00:11 verbose #631 > │ let v57 : (string -> string option) = method9() │
00:00:11 verbose #632 > │ let v58 : string option = v57 v1 │
00:00:11 verbose #633 > │ let v59 : (string -> US0) = method10() │
00:00:11 verbose #634 > │ let v60 : US0 = US0_1 │
00:00:11 verbose #635 > │ let v61 : US0 = v58 |> Option.map v59 |> Option.defaultValue v60 │
00:00:11 verbose #636 > │ match v61 with │
00:00:11 verbose #637 > │ | US0_1 -> (* None *) │
00:00:11 verbose #638 > │ let v64 : string = $"""No parent for {if false then "file" else │
00:00:11 verbose #639 > │ "dir"} '{v0}' at '{v1}' (until '{v1}')""" │
00:00:11 verbose #640 > │ failwith<string> v64 │
00:00:11 verbose #641 > │ | US0_0(v62) -> (* Some *) │
00:00:11 verbose #642 > │ method11(v0, v1, v62) │
00:00:11 verbose #643 > │ and method12 () : string = │
00:00:11 verbose #644 > │ let v0 : string = "polyglot" │
00:00:11 verbose #645 > │ v0 │
00:00:11 verbose #646 > │ and closure4 () () : string = │
00:00:11 verbose #647 > │ let v0 : string = $"rust_builder.main" │
00:00:11 verbose #648 > │ v0 │
00:00:11 verbose #649 > │ and closure6 () () : string = │
00:00:11 verbose #650 > │ let v0 : string = "" │
00:00:11 verbose #651 > │ v0 │
00:00:11 verbose #652 > │ and closure5 (v0 : (string []), v1 : string) () : string = │
00:00:11 verbose #653 > │ let v2 : (unit -> string) = closure6() │
00:00:11 verbose #654 > │ let v3 : string = $"args: {v0} / repository_root: {v1} / {v2 ()}" │
00:00:11 verbose #655 > │ v3 │
00:00:11 verbose #656 > │ and closure9 () (v0 : string) : unit = │
00:00:11 verbose #657 > │ () │
00:00:11 verbose #658 > │ and method14 (v0 : int64 option) : int64 option = │
00:00:11 verbose #659 > │ v0 │
00:00:11 verbose #660 > │ and method15 (v0 : int64 option) : int64 option = │
00:00:11 verbose #661 > │ v0 │
00:00:11 verbose #662 > │ and closure8 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:00:11 verbose #663 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:00:11 verbose #664 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:00:11 verbose #665 > │ let v2 : US1 = US1_0 │
00:00:11 verbose #666 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:00:11 verbose #667 > │ let v4 : (string -> unit) = closure9() │
00:00:11 verbose #668 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:00:11 verbose #669 > │ let v6 : int64 option option = None │
00:00:11 verbose #670 > │ let mutable _v6 = v6 │
00:00:11 verbose #671 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:00:11 verbose #672 > │ let v7 : string option = None │
00:00:11 verbose #673 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:00:11 verbose #674 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #675 > │ let v9 : string = null |> unbox<string> │
00:00:11 verbose #676 > │ v9 │
00:00:11 verbose #677 > │ #endif │
00:00:11 verbose #678 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #679 > │ let v10 : string = null |> unbox<string> │
00:00:11 verbose #680 > │ v10 │
00:00:11 verbose #681 > │ #endif │
00:00:11 verbose #682 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #683 > │ let v11 : string = null |> unbox<string> │
00:00:11 verbose #684 > │ v11 │
00:00:11 verbose #685 > │ #endif │
00:00:11 verbose #686 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #687 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #688 > │ let v12 : string = │
00:00:11 verbose #689 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:00:11 verbose #690 > │ v12 │
00:00:11 verbose #691 > │ #endif │
00:00:11 verbose #692 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #693 > │ let v13 : string = null |> unbox<string> │
00:00:11 verbose #694 > │ v13 │
00:00:11 verbose #695 > │ #endif │
00:00:11 verbose #696 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #697 > │ let v14 : string = Unchecked.defaultof<string> │
00:00:11 verbose #698 > │ v14 │
00:00:11 verbose #699 > │ #endif │
00:00:11 verbose #700 > │ |> fun x -> _v7 <- Some x │
00:00:11 verbose #701 > │ let v15 : string = _v7.Value │
00:00:11 verbose #702 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:00:11 verbose #703 > │ let v18 : bool = v17 <> true │
00:00:11 verbose #704 > │ let v24 : US2 = │
00:00:11 verbose #705 > │ if v18 then │
00:00:11 verbose #706 > │ let v19 : System.DateTime = System.DateTime.Now │
00:00:11 verbose #707 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:00:11 verbose #708 > │ let v21 : int64 = v20 v19 │
00:00:11 verbose #709 > │ US2_0(v21) │
00:00:11 verbose #710 > │ else │
00:00:11 verbose #711 > │ US2_1 │
00:00:11 verbose #712 > │ let v29 : int64 option = │
00:00:11 verbose #713 > │ match v24 with │
00:00:11 verbose #714 > │ | US2_1 -> (* None *) │
00:00:11 verbose #715 > │ let v27 : int64 option = None │
00:00:11 verbose #716 > │ v27 │
00:00:11 verbose #717 > │ | US2_0(v25) -> (* Some *) │
00:00:11 verbose #718 > │ let v26 : int64 option = Some v25 │
00:00:11 verbose #719 > │ v26 │
00:00:11 verbose #720 > │ let v30 : int64 option = method14(v29) │
00:00:11 verbose #721 > │ v30 │
00:00:11 verbose #722 > │ #else │
00:00:11 verbose #723 > │ let v31 : int64 option = None │
00:00:11 verbose #724 > │ let v32 : int64 option = method15(v31) │
00:00:11 verbose #725 > │ v32 │
00:00:11 verbose #726 > │ #endif │
00:00:11 verbose #727 > │ |> fun x -> _v6 <- Some x │
00:00:11 verbose #728 > │ let v33 : int64 option = _v6.Value │
00:00:11 verbose #729 > │ struct (v1, v0, v3, v33, v5) │
00:00:11 verbose #730 > │ and closure10 () (v0 : int64) : US3 = │
00:00:11 verbose #731 > │ US3_0(v0) │
00:00:11 verbose #732 > │ and method16 () : (int64 -> US3) = │
00:00:11 verbose #733 > │ closure10() │
00:00:11 verbose #734 > │ and method17 () : string = │
00:00:11 verbose #735 > │ let v0 : string = "" │
00:00:11 verbose #736 > │ v0 │
00:00:11 verbose #737 > │ and closure7 (v0 : US1, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:00:11 verbose #738 > │ string = │
00:00:11 verbose #739 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:00:11 verbose #740 > │ closure8() │
00:00:11 verbose #741 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:00:11 verbose #742 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:00:11 verbose #743 > │ Mut3) = State.trace_state.Value │
00:00:11 verbose #744 > │ let v9 : string option = None │
00:00:11 verbose #745 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:00:11 verbose #746 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #747 > │ let v11 : (int64 -> US3) = method16() │
00:00:11 verbose #748 > │ let v12 : US3 = US3_1 │
00:00:11 verbose #749 > │ let v13 : US3 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:00:11 verbose #750 > │ let v31 : System.DateTime = │
00:00:11 verbose #751 > │ match v13 with │
00:00:11 verbose #752 > │ | US3_1 -> (* None *) │
00:00:11 verbose #753 > │ let v29 : System.DateTime = System.DateTime.Now │
00:00:11 verbose #754 > │ v29 │
00:00:11 verbose #755 > │ | US3_0(v14) -> (* Some *) │
00:00:11 verbose #756 > │ let v15 : System.DateTime = System.DateTime.Now │
00:00:11 verbose #757 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:00:11 verbose #758 > │ let v17 : int64 = v16 v15 │
00:00:11 verbose #759 > │ let v18 : int64 = v17 - v14 │
00:00:11 verbose #760 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:00:11 verbose #761 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:00:11 verbose #762 > │ let v21 : int32 = v20 v19 │
00:00:11 verbose #763 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:00:11 verbose #764 > │ let v23 : int32 = v22 v19 │
00:00:11 verbose #765 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:00:11 verbose #766 > │ let v25 : int32 = v24 v19 │
00:00:11 verbose #767 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:00:11 verbose #768 > │ let v27 : int32 = v26 v19 │
00:00:11 verbose #769 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:00:11 verbose #770 > │ v25, v27) │
00:00:11 verbose #771 > │ v28 │
00:00:11 verbose #772 > │ let v32 : string = "hh:mm:ss" │
00:00:11 verbose #773 > │ let v33 : string = v31.ToString v32 │
00:00:11 verbose #774 > │ v33 │
00:00:11 verbose #775 > │ #endif │
00:00:11 verbose #776 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #777 > │ let v34 : string = method17() │
00:00:11 verbose #778 > │ v34 │
00:00:11 verbose #779 > │ #endif │
00:00:11 verbose #780 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #781 > │ let v35 : string = method17() │
00:00:11 verbose #782 > │ v35 │
00:00:11 verbose #783 > │ #endif │
00:00:11 verbose #784 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #785 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #786 > │ let v36 : (int64 -> US3) = method16() │
00:00:11 verbose #787 > │ let v37 : US3 = US3_1 │
00:00:11 verbose #788 > │ let v38 : US3 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:00:11 verbose #789 > │ let v56 : System.DateTime = │
00:00:11 verbose #790 > │ match v38 with │
00:00:11 verbose #791 > │ | US3_1 -> (* None *) │
00:00:11 verbose #792 > │ let v54 : System.DateTime = System.DateTime.Now │
00:00:11 verbose #793 > │ v54 │
00:00:11 verbose #794 > │ | US3_0(v39) -> (* Some *) │
00:00:11 verbose #795 > │ let v40 : System.DateTime = System.DateTime.Now │
00:00:11 verbose #796 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:00:11 verbose #797 > │ let v42 : int64 = v41 v40 │
00:00:11 verbose #798 > │ let v43 : int64 = v42 - v39 │
00:00:11 verbose #799 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:00:11 verbose #800 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:00:11 verbose #801 > │ let v46 : int32 = v45 v44 │
00:00:11 verbose #802 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:00:11 verbose #803 > │ let v48 : int32 = v47 v44 │
00:00:11 verbose #804 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:00:11 verbose #805 > │ let v50 : int32 = v49 v44 │
00:00:11 verbose #806 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:00:11 verbose #807 > │ let v52 : int32 = v51 v44 │
00:00:11 verbose #808 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:00:11 verbose #809 > │ v50, v52) │
00:00:11 verbose #810 > │ v53 │
00:00:11 verbose #811 > │ let v57 : string = "HH:mm:ss" │
00:00:11 verbose #812 > │ let v58 : string = v56.ToString v57 │
00:00:11 verbose #813 > │ v58 │
00:00:11 verbose #814 > │ #endif │
00:00:11 verbose #815 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #816 > │ let v59 : string = method17() │
00:00:11 verbose #817 > │ v59 │
00:00:11 verbose #818 > │ #endif │
00:00:11 verbose #819 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #820 > │ let v60 : string = Unchecked.defaultof<string> │
00:00:11 verbose #821 > │ v60 │
00:00:11 verbose #822 > │ #endif │
00:00:11 verbose #823 > │ |> fun x -> _v9 <- Some x │
00:00:11 verbose #824 > │ let v61 : string = _v9.Value │
00:00:11 verbose #825 > │ let v62 : int64 = v4.l0 │
00:00:11 verbose #826 > │ let v72 : string = │
00:00:11 verbose #827 > │ match v0 with │
00:00:11 verbose #828 > │ | US1_4 -> (* Critical *) │
00:00:11 verbose #829 > │ let v67 : string = "Critical" │
00:00:11 verbose #830 > │ v67 │
00:00:11 verbose #831 > │ | US1_1 -> (* Debug *) │
00:00:11 verbose #832 > │ let v64 : string = "Debug" │
00:00:11 verbose #833 > │ v64 │
00:00:11 verbose #834 > │ | US1_2 -> (* Info *) │
00:00:11 verbose #835 > │ let v65 : string = "Info" │
00:00:11 verbose #836 > │ v65 │
00:00:11 verbose #837 > │ | US1_0 -> (* Verbose *) │
00:00:11 verbose #838 > │ let v63 : string = "Verbose" │
00:00:11 verbose #839 > │ v63 │
00:00:11 verbose #840 > │ | US1_3 -> (* Warning *) │
00:00:11 verbose #841 > │ let v66 : string = "Warning" │
00:00:11 verbose #842 > │ v66 │
00:00:11 verbose #843 > │ let v73 : string = v72.ToLower () │
00:00:11 verbose #844 > │ let v74 : string option = None │
00:00:11 verbose #845 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:00:11 verbose #846 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #847 > │ let v90 : Ref<Str> = │
00:00:11 verbose #848 > │ match v0 with │
00:00:11 verbose #849 > │ | US1_4 -> (* Critical *) │
00:00:11 verbose #850 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:00:11 verbose #851 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:00:11 verbose #852 > │ v85 │
00:00:11 verbose #853 > │ | US1_1 -> (* Debug *) │
00:00:11 verbose #854 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:00:11 verbose #855 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:00:11 verbose #856 > │ v79 │
00:00:11 verbose #857 > │ | US1_2 -> (* Info *) │
00:00:11 verbose #858 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:00:11 verbose #859 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:00:11 verbose #860 > │ v81 │
00:00:11 verbose #861 > │ | US1_0 -> (* Verbose *) │
00:00:11 verbose #862 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:00:11 verbose #863 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:00:11 verbose #864 > │ v77 │
00:00:11 verbose #865 > │ | US1_3 -> (* Warning *) │
00:00:11 verbose #866 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:00:11 verbose #867 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:00:11 verbose #868 > │ v83 │
00:00:11 verbose #869 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #870 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:00:11 verbose #871 > │ let v93 : string = "inline_colorization::color_reset" │
00:00:11 verbose #872 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:00:11 verbose #873 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:00:11 verbose #874 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:00:11 verbose #875 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:00:11 verbose #876 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #877 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:00:11 verbose #878 > │ v99 │
00:00:11 verbose #879 > │ #endif │
00:00:11 verbose #880 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #881 > │ let v114 : Ref<Str> = │
00:00:11 verbose #882 > │ match v0 with │
00:00:11 verbose #883 > │ | US1_4 -> (* Critical *) │
00:00:11 verbose #884 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:00:11 verbose #885 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #886 > │ v108 │
00:00:11 verbose #887 > │ v109 │
00:00:11 verbose #888 > │ | US1_1 -> (* Debug *) │
00:00:11 verbose #889 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:00:11 verbose #890 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #891 > │ v102 │
00:00:11 verbose #892 > │ v103 │
00:00:11 verbose #893 > │ | US1_2 -> (* Info *) │
00:00:11 verbose #894 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:00:11 verbose #895 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #896 > │ v104 │
00:00:11 verbose #897 > │ v105 │
00:00:11 verbose #898 > │ | US1_0 -> (* Verbose *) │
00:00:11 verbose #899 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:00:11 verbose #900 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #901 > │ v100 │
00:00:11 verbose #902 > │ v101 │
00:00:11 verbose #903 > │ | US1_3 -> (* Warning *) │
00:00:11 verbose #904 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:00:11 verbose #905 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #906 > │ v106 │
00:00:11 verbose #907 > │ v107 │
00:00:11 verbose #908 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #909 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:00:11 verbose #910 > │ let v117 : string = "inline_colorization::color_reset" │
00:00:11 verbose #911 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:00:11 verbose #912 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:00:11 verbose #913 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:00:11 verbose #914 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #915 > │ v120 │
00:00:11 verbose #916 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #917 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:00:11 verbose #918 > │ v123 │
00:00:11 verbose #919 > │ #endif │
00:00:11 verbose #920 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #921 > │ let v138 : Ref<Str> = │
00:00:11 verbose #922 > │ match v0 with │
00:00:11 verbose #923 > │ | US1_4 -> (* Critical *) │
00:00:11 verbose #924 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:00:11 verbose #925 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #926 > │ v132 │
00:00:11 verbose #927 > │ v133 │
00:00:11 verbose #928 > │ | US1_1 -> (* Debug *) │
00:00:11 verbose #929 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:00:11 verbose #930 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #931 > │ v126 │
00:00:11 verbose #932 > │ v127 │
00:00:11 verbose #933 > │ | US1_2 -> (* Info *) │
00:00:11 verbose #934 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:00:11 verbose #935 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #936 > │ v128 │
00:00:11 verbose #937 > │ v129 │
00:00:11 verbose #938 > │ | US1_0 -> (* Verbose *) │
00:00:11 verbose #939 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:00:11 verbose #940 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #941 > │ v124 │
00:00:11 verbose #942 > │ v125 │
00:00:11 verbose #943 > │ | US1_3 -> (* Warning *) │
00:00:11 verbose #944 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:00:11 verbose #945 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #946 > │ v130 │
00:00:11 verbose #947 > │ v131 │
00:00:11 verbose #948 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #949 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:00:11 verbose #950 > │ let v141 : string = "inline_colorization::color_reset" │
00:00:11 verbose #951 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:00:11 verbose #952 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:00:11 verbose #953 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:00:11 verbose #954 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:00:11 verbose #955 > │ v144 │
00:00:11 verbose #956 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #957 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:00:11 verbose #958 > │ v147 │
00:00:11 verbose #959 > │ #endif │
00:00:11 verbose #960 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #961 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #962 > │ v73 │
00:00:11 verbose #963 > │ #endif │
00:00:11 verbose #964 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #965 > │ v73 │
00:00:11 verbose #966 > │ #endif │
00:00:11 verbose #967 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #968 > │ let v148 : string = Unchecked.defaultof<string> │
00:00:11 verbose #969 > │ v148 │
00:00:11 verbose #970 > │ #endif │
00:00:11 verbose #971 > │ |> fun x -> _v74 <- Some x │
00:00:11 verbose #972 > │ let v149 : string = _v74.Value │
00:00:11 verbose #973 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:00:11 verbose #974 > │ let v151 : (char []) = [||] │
00:00:11 verbose #975 > │ let v152 : string = v150.TrimStart v151 │
00:00:11 verbose #976 > │ let v153 : (char []) = [|' '; '/'|] │
00:00:11 verbose #977 > │ let v154 : string = v152.TrimEnd v153 │
00:00:11 verbose #978 > │ v154 │
00:00:11 verbose #979 > │ and method18 (v0 : US1, v1 : (unit -> string)) : unit = │
00:00:11 verbose #980 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:00:11 verbose #981 > │ closure8() │
00:00:11 verbose #982 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:00:11 verbose #983 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:00:11 verbose #984 > │ Mut3) = State.trace_state.Value │
00:00:11 verbose #985 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:00:11 verbose #986 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:00:11 verbose #987 > │ Mut3) = State.trace_state.Value │
00:00:11 verbose #988 > │ let v13 : US1 = v10.l0 │
00:00:11 verbose #989 > │ let v14 : bool = v9.l0 │
00:00:11 verbose #990 > │ let v15 : bool = v14 = false │
00:00:11 verbose #991 > │ let v19 : bool = │
00:00:11 verbose #992 > │ if v15 then │
00:00:11 verbose #993 > │ false │
00:00:11 verbose #994 > │ else │
00:00:11 verbose #995 > │ let v16 : int32 = [ US1_0, 0; US1_1, 1; US1_2, 2; US1_3, 3; │
00:00:11 verbose #996 > │ US1_4, 4 ] |> Map |> Map.find v0 │
00:00:11 verbose #997 > │ let v17 : int32 = [ US1_0, 0; US1_1, 1; US1_2, 2; US1_3, 3; │
00:00:11 verbose #998 > │ US1_4, 4 ] |> Map |> Map.find v13 │
00:00:11 verbose #999 > │ let v18 : bool = v16 >= v17 │
00:00:11 verbose #1000 > │ v18 │
00:00:11 verbose #1001 > │ if v19 then │
00:00:11 verbose #1002 > │ let v20 : int64 = v3.l0 │
00:00:11 verbose #1003 > │ let v21 : int64 = v20 + 1L │
00:00:11 verbose #1004 > │ v3.l0 <- v21 │
00:00:11 verbose #1005 > │ let v22 : string = $"%s{v1 ()}" │
00:00:11 verbose #1006 > │ let v23 : unit option = None │
00:00:11 verbose #1007 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:00:11 verbose #1008 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #1009 > │ let v25 : string = @"println!(""{}"", $0)" │
00:00:11 verbose #1010 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:00:11 verbose #1011 > │ () │
00:00:11 verbose #1012 > │ #endif │
00:00:11 verbose #1013 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #1014 > │ let v26 : string = @"println!(""{}"", $0)" │
00:00:11 verbose #1015 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:00:11 verbose #1016 > │ () │
00:00:11 verbose #1017 > │ #endif │
00:00:11 verbose #1018 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #1019 > │ let v27 : string = @"println!(""{}"", $0)" │
00:00:11 verbose #1020 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:00:11 verbose #1021 > │ () │
00:00:11 verbose #1022 > │ #endif │
00:00:11 verbose #1023 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #1024 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #1025 > │ System.Console.WriteLine v22 │
00:00:11 verbose #1026 > │ () │
00:00:11 verbose #1027 > │ #endif │
00:00:11 verbose #1028 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #1029 > │ System.Console.WriteLine v22 │
00:00:11 verbose #1030 > │ () │
00:00:11 verbose #1031 > │ #endif │
00:00:11 verbose #1032 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:00:11 verbose #1033 > │ FABLE_COMPILER_DART │
00:00:11 verbose #1034 > │ Unchecked.defaultof<unit> │
00:00:11 verbose #1035 > │ () │
00:00:11 verbose #1036 > │ #endif │
00:00:11 verbose #1037 > │ |> fun x -> _v23 <- Some x │
00:00:11 verbose #1038 > │ _v23.Value │
00:00:11 verbose #1039 > │ let v28 : (string -> unit) = v7.l0 │
00:00:11 verbose #1040 > │ v28 v22 │
00:00:11 verbose #1041 > │ and method13 (v0 : US1, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:00:11 verbose #1042 > │ = │
00:00:11 verbose #1043 > │ let v3 : (unit -> string) = closure7(v0, v1, v2) │
00:00:11 verbose #1044 > │ method18(v0, v3) │
00:00:11 verbose #1045 > │ and closure11 () () : string = │
00:00:11 verbose #1046 > │ let v0 : string = $"rust_builder" │
00:00:11 verbose #1047 > │ v0 │
00:00:11 verbose #1048 > │ and closure12 (v0 : clap_Command, v1 : clap_ArgMatches) () : string = │
00:00:11 verbose #1049 > │ let v2 : string = @$"format!(""{{:#?}}"", $0)" │
00:00:11 verbose #1050 > │ let v3 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v2 │
00:00:11 verbose #1051 > │ let v4 : string = @$"format!(""{{:#?}}"", $0)" │
00:00:11 verbose #1052 > │ let v5 : std_string_String = Fable.Core.RustInterop.emitRustExpr v1 v4 │
00:00:11 verbose #1053 > │ let v6 : (unit -> string) = closure6() │
00:00:11 verbose #1054 > │ let v7 : string = $"command: {v3} / matches: {v5} / {v6 ()}" │
00:00:11 verbose #1055 > │ v7 │
00:00:11 verbose #1056 > │ and closure1 () (v0 : (string [])) : int32 = │
00:00:11 verbose #1057 > │ let v1 : string = __SOURCE_DIRECTORY__ │
00:00:11 verbose #1058 > │ let v2 : string option = None │
00:00:11 verbose #1059 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:00:11 verbose #1060 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #1061 > │ let v4 : string = method1() │
00:00:11 verbose #1062 > │ let v5 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #1063 > │ let v6 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:00:11 verbose #1064 > │ let v7 : string = "String::from($0)" │
00:00:11 verbose #1065 > │ let v8 : std_string_String = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:00:11 verbose #1066 > │ let v9 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #1067 > │ let v10 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:00:11 verbose #1068 > │ let v11 : string = method2() │
00:00:11 verbose #1069 > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #1070 > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:00:11 verbose #1071 > │ let v14 : string = "String::from($0)" │
00:00:11 verbose #1072 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:00:11 verbose #1073 > │ v14 │
00:00:11 verbose #1074 > │ let v16 : string = "$0.join($1)" │
00:00:11 verbose #1075 > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:00:11 verbose #1076 > │ (v10, v15) v16 │
00:00:11 verbose #1077 > │ let v18 : string = "$0.display().to_string()" │
00:00:11 verbose #1078 > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:00:11 verbose #1079 > │ v18 │
00:00:11 verbose #1080 > │ let v20 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #1081 > │ let v21 : string = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:00:11 verbose #1082 > │ v21 │
00:00:11 verbose #1083 > │ #endif │
00:00:11 verbose #1084 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #1085 > │ let v22 : string = null |> unbox<string> │
00:00:11 verbose #1086 > │ v22 │
00:00:11 verbose #1087 > │ #endif │
00:00:11 verbose #1088 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #1089 > │ let v23 : string = null |> unbox<string> │
00:00:11 verbose #1090 > │ v23 │
00:00:11 verbose #1091 > │ #endif │
00:00:11 verbose #1092 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #1093 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #1094 > │ let v24 : string = "polyglot" │
00:00:11 verbose #1095 > │ let v25 : string = ".paket" │
00:00:11 verbose #1096 > │ let v26 : string = System.IO.Path.Combine (v24, v25) │
00:00:11 verbose #1097 > │ v26 │
00:00:11 verbose #1098 > │ #endif │
00:00:11 verbose #1099 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #1100 > │ let v27 : string = "path" │
00:00:11 verbose #1101 > │ let v28 : IPathJoin = Fable.Core.JsInterop.importAll v27 │
00:00:11 verbose #1102 > │ let v29 : string = method3() │
00:00:11 verbose #1103 > │ let v30 : string = method4() │
00:00:11 verbose #1104 > │ let v31 : string = "v28.join(v29, v30)" │
00:00:11 verbose #1105 > │ let v32 : string = Fable.Core.JsInterop.emitJsExpr () v31 │
00:00:11 verbose #1106 > │ v32 │
00:00:11 verbose #1107 > │ #endif │
00:00:11 verbose #1108 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #1109 > │ let v33 : string = Unchecked.defaultof<string> │
00:00:11 verbose #1110 > │ v33 │
00:00:11 verbose #1111 > │ #endif │
00:00:11 verbose #1112 > │ |> fun x -> _v2 <- Some x │
00:00:11 verbose #1113 > │ let v34 : string = _v2.Value │
00:00:11 verbose #1114 > │ let v35 : string = method5(v34, v1) │
00:00:11 verbose #1115 > │ let v36 : string option = None │
00:00:11 verbose #1116 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:00:11 verbose #1117 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:11 verbose #1118 > │ let v38 : string = method6(v35) │
00:00:11 verbose #1119 > │ let v39 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #1120 > │ let v40 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v38 v39 │
00:00:11 verbose #1121 > │ let v41 : string = "String::from($0)" │
00:00:11 verbose #1122 > │ let v42 : std_string_String = Fable.Core.RustInterop.emitRustExpr v40 │
00:00:11 verbose #1123 > │ v41 │
00:00:11 verbose #1124 > │ let v43 : string = "std::path::PathBuf::from($0)" │
00:00:11 verbose #1125 > │ let v44 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v42 v43 │
00:00:11 verbose #1126 > │ let v45 : string = method1() │
00:00:11 verbose #1127 > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:11 verbose #1128 > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v45 v46 │
00:00:11 verbose #1129 > │ let v48 : string = "String::from($0)" │
00:00:11 verbose #1130 > │ let v49 : std_string_String = Fable.Core.RustInterop.emitRustExpr v47 │
00:00:11 verbose #1131 > │ v48 │
00:00:11 verbose #1132 > │ let v50 : string = "$0.join($1)" │
00:00:11 verbose #1133 > │ let v51 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:00:11 verbose #1134 > │ (v44, v49) v50 │
00:00:11 verbose #1135 > │ let v52 : string = "$0.display().to_string()" │
00:00:11 verbose #1136 > │ let v53 : std_string_String = Fable.Core.RustInterop.emitRustExpr v51 │
00:00:11 verbose #1137 > │ v52 │
00:00:11 verbose #1138 > │ let v54 : string = "fable_library_rust::String_::fromString($0)" │
00:00:11 verbose #1139 > │ let v55 : string = Fable.Core.RustInterop.emitRustExpr v53 v54 │
00:00:11 verbose #1140 > │ v55 │
00:00:11 verbose #1141 > │ #endif │
00:00:11 verbose #1142 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:11 verbose #1143 > │ let v56 : string = null |> unbox<string> │
00:00:11 verbose #1144 > │ v56 │
00:00:11 verbose #1145 > │ #endif │
00:00:11 verbose #1146 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:11 verbose #1147 > │ let v57 : string = null |> unbox<string> │
00:00:11 verbose #1148 > │ v57 │
00:00:11 verbose #1149 > │ #endif │
00:00:11 verbose #1150 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:11 verbose #1151 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:11 verbose #1152 > │ let v58 : string = System.IO.Path.Combine (v35, v24) │
00:00:11 verbose #1153 > │ v58 │
00:00:11 verbose #1154 > │ #endif │
00:00:11 verbose #1155 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:11 verbose #1156 > │ let v59 : IPathJoin = Fable.Core.JsInterop.importAll v27 │
00:00:11 verbose #1157 > │ let v60 : string = method7(v35) │
00:00:11 verbose #1158 > │ let v61 : string = method12() │
00:00:11 verbose #1159 > │ let v62 : string = "v59.join(v60, v61)" │
00:00:11 verbose #1160 > │ let v63 : string = Fable.Core.JsInterop.emitJsExpr () v62 │
00:00:11 verbose #1161 > │ v63 │
00:00:11 verbose #1162 > │ #endif │
00:00:11 verbose #1163 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:11 verbose #1164 > │ let v64 : string = Unchecked.defaultof<string> │
00:00:11 verbose #1165 > │ v64 │
00:00:11 verbose #1166 > │ #endif │
00:00:11 verbose #1167 > │ |> fun x -> _v36 <- Some x │
00:00:11 verbose #1168 > │ let v65 : string = _v36.Value │
00:00:11 verbose #1169 > │ let v66 : US1 = US1_1 │
00:00:11 verbose #1170 > │ let v67 : (unit -> string) = closure4() │
00:00:11 verbose #1171 > │ let v68 : (unit -> string) = closure5(v0, v65) │
00:00:11 verbose #1172 > │ method13(v66, v67, v68) │
00:00:11 verbose #1173 > │ let v69 : clap_Command = method0() │
00:00:11 verbose #1174 > │ let v70 : string = "clap::Command::get_matches($0)" │
00:00:11 verbose #1175 > │ let v71 : clap_ArgMatches = Fable.Core.RustInterop.emitRustExpr v69 v70 │
00:00:11 verbose #1176 > │ let v72 : US1 = US1_1 │
00:00:11 verbose #1177 > │ let v73 : (unit -> string) = closure11() │
00:00:11 verbose #1178 > │ let v74 : (unit -> string) = closure12(v69, v71) │
00:00:11 verbose #1179 > │ method13(v72, v73, v74) │
00:00:11 verbose #1180 > │ 0 │
00:00:11 verbose #1181 > │ let v0 : (unit -> unit) = closure0() │
00:00:11 verbose #1182 > │ let tests () = v0 () │
00:00:11 verbose #1183 > │ let v1 : ((string []) -> int32) = closure1() │
00:00:11 verbose #1184 > │ let main args = v1 args │
00:00:11 verbose #1185 > │ () │
00:00:11 verbose #1186 > │ │
00:00:11 verbose #1187 > │ │
00:00:11 verbose #1188 > │ │
00:00:11 verbose #1189 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #1190 > [NbConvertApp] Converting notebook rust_builder.dib.ipynb to html
00:00:13 verbose #1191 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:13 verbose #1192 > validate(nb)
00:00:14 verbose #1193 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:14 verbose #1194 > return _pygments_highlight(
00:00:14 verbose #1195 > [NbConvertApp] Writing 325432 bytes to rust_builder.dib.html
00:00:15 debug #1196 execute_with_options_async / exit_code: 0 / output.Length: 91735
00:00:15 debug #3 main / executeCommand / exitCode: 0
00:00:15 verbose #4 wait_for_port_access / port: 13805 / retry: 0
00:00:17 debug #5 run_with_timeout_async / timeout: 2000
00:00:00 debug #1 writeDibCode / output: Spi / path: rust_builder.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: rust_builder.dib
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #4 run_with_timeout_async / timeout: 60
00:00:02 debug #3 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #4 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 verbose #5 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # rust_builder\nopen file_system_operators\nopen rust_operators\nopen ... args\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/apps/spiral/rust_builder/rust_builder.spi"}} / result:
00:00:02 verbose #6 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/spiral/rust_builder/rust_builder.spi"}} / result:
00:00:02 verbose #7 > 00:00:01 debug #4 Building c:/home/git/polyglot/apps/spiral/rust_builder/rust_builder.spi
00:00:03 debug #7 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #8 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #9 buildFile / takeWhileInclusive / fsxContent: [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
[<Fable.Core.Erase; Fable.Core.Emit(...it -> string) = closure12(v69, v71)
method13(v72, v73, v74)
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure1()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #10 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 verbose #5 wait_for_port_access / port: 13805 / retry: 0
00:00:06 debug #6 run_with_timeout_async / timeout: 2000
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: rust_builder / code.Length: 39821
targetDir: C:\home\git\polyglot\target\polyglot\builder\rust_builder
Fable 4.14.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @valery-vitko
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing ..\..\..\target\polyglot\builder\rust_builder\rust_builder.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (13 source files) parsed in 163ms
Started Fable compilation...
Fable compilation finished in 4403ms
.\..\..\..\lib\spiral\async_.fsx(80,0): (80,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\threading.fsx(113,0): (113,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\crypto.fsx(76,0): (76,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\date_time.fsx(107,0): (107,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\common.fsx(522,0): (522,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\common.fsx(527,0): (527,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\sm.fsx(300,0): (300,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\networking.fsx(2365,0): (2365,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\networking.fsx(2374,0): (2374,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\runtime.fsx(1555,0): (1555,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\runtime.fsx(1564,0): (1564,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\trace.fsx(419,0): (419,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\trace.fsx(422,0): (422,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\file_system.fsx(4359,0): (4359,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\..\lib\spiral\file_system.fsx(4398,0): (4398,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Compiling rust_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\rust_builder)
Finished `release` profile [optimized] target(s) in 15.52s
Running unittests rust_builder.rs (C:\home\git\polyglot\target\release\deps\rust_builder-8cdaad1749f75c95.exe)
running 1 test
test module_4da4c295::Rust_builder::verify_app ... ok
successes:
successes:
module_4da4c295::Rust_builder::verify_app
test result: ok. 1 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.00s
Compiling rust_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\rust_builder)
Finished `release` profile [optimized] target(s) in 11.23s
In [ ]:
{ . "$ScriptDir/../lib/fsharp/build.ps1" -sequential 1 } | Invoke-Block
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:01 debug #7 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Async.dib" -Retries 3", None,
None)
00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: Async.dib / _args: [
00:00:02 verbose #9 > "-Retries",
00:00:02 verbose #10 > 3
00:00:02 verbose #11 > ]
00:00:05 verbose #12 >
00:00:05 verbose #13 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #14 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #15 > │ # Async (Polyglot) │
00:00:05 verbose #16 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #17 >
00:00:05 verbose #18 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #19 > #!import ../../lib/fsharp/Notebooks.dib
00:00:05 verbose #20 > #!import ../../lib/fsharp/Testing.dib
00:00:05 verbose #21 >
00:00:05 verbose #22 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:05 verbose #23 > #r
00:00:05 verbose #24 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:05 verbose #25 > spNetCore.Html.Abstractions.dll"
00:00:05 verbose #26 > #r
00:00:05 verbose #27 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #28 > otNet.Interactive.dll"
00:00:05 verbose #29 > #r
00:00:05 verbose #30 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #31 > otNet.Interactive.FSharp.dll"
00:00:05 verbose #32 > #r
00:00:05 verbose #33 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #34 > otNet.Interactive.Formatting.dll"
00:00:05 verbose #35 > open System
00:00:05 verbose #36 > open System.IO
00:00:05 verbose #37 > open System.Text
00:00:05 verbose #38 > open Microsoft.DotNet.Interactive.Formatting
00:00:08 verbose #39 >
00:00:08 verbose #40 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #41 > #r
00:00:08 verbose #42 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #43 > otNet.Interactive.FSharp.dll"
00:00:08 verbose #44 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:08 verbose #45 > #r
00:00:08 verbose #46 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #47 > otNet.Interactive.dll"
00:00:08 verbose #48 > open type Microsoft.DotNet.Interactive.Kernel
00:00:08 verbose #49 >
00:00:08 verbose #50 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #51 > //// test
00:00:08 verbose #52 >
00:00:08 verbose #53 > Formatter.ListExpansionLimit <- 100
00:00:09 verbose #54 >
00:00:09 verbose #55 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #56 > #if FABLE_COMPILER // common.types
00:00:09 verbose #57 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:09 verbose #58 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:09 verbose #59 > class end
00:00:09 verbose #60 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:09 verbose #61 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:09 verbose #62 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:09 verbose #63 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:09 verbose #64 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:09 verbose #65 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:09 verbose #66 > class end
00:00:09 verbose #67 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:09 verbose #68 > [[<Fable.Core.Erase;...
00:00:10 verbose #69 >
00:00:10 verbose #70 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #71 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:10 verbose #72 > and Mut1 = {mutable l0 : int32}
00:00:10 verbose #73 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:10 verbose #74 > let v2 : bool = v1.Contains v0
00:00:10 verbose #75 > v2
00:00:10 verbose #76 > and closure0 () (v0 : string) : (string -> bool) =
00:00:10 verbose #77 > closure1(v0)
00:00:10 verbose #78 > and closure3 (v0 : string) (v1 : string) : bool =
00:00:10 verbose #79 > let v2 : bool = v1.EndsWith v0
00:00:10 verbose #80 > v2
00:00:10 verbose #81 > and closure2 () (v0 : string) : (string -> bool) =
00:00:10 verbose #82 > closure3(v0)
00:00:10 verbose #83 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:10 verbose #84 > let v3 : string = v2.PadLeft (v0, v1)
00:00:10 verbose #85 > v3
00:00:10 verbose #86 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:10 verbose #87 > closure6(v0, v1)
00:00:10 verbose #88 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:10 verbose #89 > closure5(v0)
00:00:10 verbose #90 > and closure8 (v0 : int32) (v1 : string) : string =
00:00:10 verbose #91 > let v2 : stri...
00:00:11 verbose #92 >
00:00:11 verbose #93 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #94 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:11 verbose #95 > type Mut0 = {mutable l0 : int32}
00:00:11 verbose #96 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:11 verbose #97 > let v2 : int32 = v1.l0
00:00:11 verbose #98 > let v3 : bool = v2 < v0
00:00:11 verbose #99 > v3
00:00:11 verbose #100 > and method1 () : string =
00:00:11 verbose #101 > let v0 : string = ""
00:00:11 verbose #102 > v0
00:00:11 verbose #103 > and closure0 () (v0 : string) : string =
00:00:11 verbose #104 > let v1 : string option = None
00:00:11 verbose #105 > let v2 : bool = true in let mutable _v1 = v1
00:00:11 verbose #106 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:11 verbose #107 > let v3 : string = null |> unbox<string>
00:00:11 verbose #108 > v3
00:00:11 verbose #109 > #endif
00:00:11 verbose #110 > #if FABLE_COMPILER_RUST && WASM
00:00:11 verbose #111 > let v4 : string = null |> unbox<string>
00:00:11 verbose #112 > v4
00:00:11 verbose #113 > #endif
00:00:11 verbose #114 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #115 > let v5 : string = null |> unbox<string>
00:00:11 verbose #116 > v5
00:00:11 verbose #117 > #endif
00:00:11 verbose #118 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:00:11 verbose #119 >
00:00:11 verbose #120 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #121 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:11 verbose #122 > let v2 : (System.Guid -> string) = _.ToString()
00:00:11 verbose #123 > let v3 : string = v2 v0
00:00:11 verbose #124 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:11 verbose #125 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:11 verbose #126 > v5
00:00:11 verbose #127 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:11 verbose #128 > closure1(v0)
00:00:11 verbose #129 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:11 verbose #130 > let v3 : string = v2.Replace (v0, v1)
00:00:11 verbose #131 > v3
00:00:11 verbose #132 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:11 verbose #133 > closure5(v0, v1)
00:00:11 verbose #134 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:11 verbose #135 > closure4(v0)
00:00:11 verbose #136 > and method0 () : (string -> (string -> (string -> string))) =
00:00:11 verbose #137 > closure3()
00:00:11 verbose #138 > and closure2 (...
00:00:11 verbose #139 >
00:00:11 verbose #140 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #141 > #if FABLE_COMPILER // async.types
00:00:11 verbose #142 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:00:11 verbose #143 > std_future_Future<'T> = class end
00:00:11 verbose #144 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:00:11 verbose #145 > futures_future_TryJoinAll<'T> = class end
00:00:11 verbose #146 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:00:11 verbose #147 > rayon_vec_IntoIter<'T> = class end
00:00:11 verbose #148 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:00:11 verbose #149 > rayon_iter_Map<'T> = class end
00:00:11 verbose #150 > #endif // async.types
00:00:11 verbose #151 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:11 verbose #152 > Async<System.Threading.CancellationToken> =
00:00:11 verbose #153 > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:11 verbose #154 > let v2 : bool = true in let mutable _v1 = v1
00:00:11 verbose #155 > #if FABLE_COMPILER_RUST ...
00:00:11 verbose #156 >
00:00:11 verbose #157 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #158 > type [[<Struct>]] US0 =
00:00:11 verbose #159 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:11 verbose #160 > | US0_1
00:00:11 verbose #161 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:00:11 verbose #162 > US0_0(v0)
00:00:11 verbose #163 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:00:11 verbose #164 > closure1()
00:00:11 verbose #165 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:11 verbose #166 > let v1 : unit option = None
00:00:11 verbose #167 > let v2 : bool = true in let mutable _v1 = v1
00:00:11 verbose #168 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:11 verbose #169 > null |> unbox<unit>
00:00:11 verbose #170 > ()
00:00:11 verbose #171 > #endif
00:00:11 verbose #172 > #if FABLE_COMPILER_RUST && WASM
00:00:11 verbose #173 > null |> unbox<unit>
00:00:11 verbose #174 > ()
00:00:11 verbose #175 > #endif
00:00:11 verbose #176 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #177 > null |> unbox<unit>
00:00:11 verbose #178 > ()
00:00:11 verbose #179 > #endif
00:00:11 verbose #180 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:11 verbose #181 > !WASM && !CONTRACT
00:00:11 verbose #182 > ...
00:00:11 verbose #183 >
00:00:11 verbose #184 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #185 > #if FABLE_COMPILER // networking.types
00:00:11 verbose #186 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:11 verbose #187 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:11 verbose #188 > class end
00:00:11 verbose #189 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:11 verbose #190 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:11 verbose #191 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:11 verbose #192 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:11 verbose #193 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:11 verbose #194 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:11 verbose #195 > class end
00:00:11 verbose #196 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:11 verbose #197 > [[<Fable.Core.Er...
00:00:13 verbose #198 >
00:00:13 verbose #199 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #200 > #if FABLE_COMPILER // runtime.types
00:00:13 verbose #201 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:13 verbose #202 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:13 verbose #203 > class end
00:00:13 verbose #204 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:13 verbose #205 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:13 verbose #206 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:13 verbose #207 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:13 verbose #208 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:13 verbose #209 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:13 verbose #210 > class end
00:00:13 verbose #211 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:13 verbose #212 > [[<Fable.Core.Erase...
00:00:14 verbose #213 >
00:00:14 verbose #214 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #215 > #if FABLE_COMPILER // file_system.types
00:00:14 verbose #216 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:14 verbose #217 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:14 verbose #218 > base64_DecodeError = class end
00:00:14 verbose #219 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:14 verbose #220 > = class end
00:00:14 verbose #221 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:14 verbose #222 > = class end
00:00:14 verbose #223 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:14 verbose #224 > serde_json_Error = class end
00:00:14 verbose #225 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:14 verbose #226 > serde_json_Value = class end
00:00:14 verbose #227 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:14 verbose #228 > serde_wasm_bindgen_Error = class end
00:00:14 verbose #229 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:16 verbose #230 >
00:00:16 verbose #231 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #232 > #if FABLE_COMPILER // trace.types
00:00:16 verbose #233 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:16 verbose #234 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:16 verbose #235 > class end
00:00:16 verbose #236 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:16 verbose #237 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:16 verbose #238 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:16 verbose #239 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:16 verbose #240 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:16 verbose #241 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:16 verbose #242 > class end
00:00:16 verbose #243 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:16 verbose #244 > [[<Fable.Core.Erase; ...
00:00:16 verbose #245 >
00:00:16 verbose #246 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #247 > module SpiralTrace =
00:00:16 verbose #248 > let trace x =
00:00:16 verbose #249 > #if !INTERACTIVE
00:00:16 verbose #250 > Trace.trace x
00:00:16 verbose #251 > #else
00:00:16 verbose #252 > trace x
00:00:16 verbose #253 > #endif
00:00:16 verbose #254 >
00:00:16 verbose #255 > type TraceLevel =
00:00:16 verbose #256 > #if !INTERACTIVE
00:00:16 verbose #257 > Trace.US0
00:00:16 verbose #258 > #else
00:00:16 verbose #259 > US0
00:00:16 verbose #260 > #endif
00:00:16 verbose #261 >
00:00:16 verbose #262 > module SpiralCrypto =
00:00:16 verbose #263 > let hash_text x =
00:00:16 verbose #264 > #if !INTERACTIVE
00:00:16 verbose #265 > Crypto.hash_text x
00:00:16 verbose #266 > #else
00:00:16 verbose #267 > hash_text x
00:00:16 verbose #268 > #endif
00:00:16 verbose #269 >
00:00:16 verbose #270 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:16 verbose #271 >
00:00:16 verbose #272 > module SpiralAsync =
00:00:16 verbose #273 > let merge_cancellation_token_with_default_async x =
00:00:16 verbose #274 > #if !INTERACTIVE
00:00:16 verbose #275 > Async_.merge_cancellation_token_with_default_async x
00:00:16 verbose #276 > #else
00:00:16 verbose #277 > merge_cancellation_token_with_default_async x
00:00:16 verbose #278 > #endif
00:00:16 verbose #279 >
00:00:16 verbose #280 > module SpiralThreading =
00:00:16 verbose #281 > let new_disposable_token x =
00:00:16 verbose #282 > #if !INTERACTIVE
00:00:16 verbose #283 > Threading.new_disposable_token x
00:00:16 verbose #284 > #else
00:00:16 verbose #285 > new_disposable_token x
00:00:16 verbose #286 > #endif
00:00:16 verbose #287 >
00:00:16 verbose #288 > module Spi...
00:00:16 verbose #289 >
00:00:16 verbose #290 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #291 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:16 verbose #292 >
00:00:16 verbose #293 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #294 > //// test
00:00:16 verbose #295 >
00:00:16 verbose #296 > type AssertExceptionFormatter (ex) =
00:00:16 verbose #297 > member _.Text =
00:00:16 verbose #298 > ex.ToString()
00:00:16 verbose #299 > .Replace("32m", "<span style=\"color: green;\">")
00:00:16 verbose #300 > .Replace("36m", "</span>")
00:00:16 verbose #301 > .Replace("31m", "<span style=\"color: red;\">")
00:00:16 verbose #302 > .Replace("\n", "<br/>\n")
00:00:16 verbose #303 >
00:00:16 verbose #304 >
00:00:16 verbose #305 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:16 verbose #306 > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:16 verbose #307 >
00:00:16 verbose #308 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #309 > //// test
00:00:16 verbose #310 >
00:00:16 verbose #311 > let inline __expect fn log expected actual =
00:00:16 verbose #312 > if log then printfn $"{actual.ToDisplayString ()}"
00:00:16 verbose #313 > try
00:00:16 verbose #314 > "Testing.__expect" |> fn actual expected
00:00:16 verbose #315 > with :? Expecto.AssertException as ex ->
00:00:16 verbose #316 > AssertExceptionFormatter(ex).Display () |> ignore
00:00:16 verbose #317 > failwith (ex.GetType().FullName)
00:00:16 verbose #318 >
00:00:16 verbose #319 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:16 verbose #320 > expected actual
00:00:16 verbose #321 > let inline _contains expected actual = __contains true expected actual
00:00:16 verbose #322 >
00:00:16 verbose #323 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:16 verbose #324 > expected actual
00:00:16 verbose #325 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:16 verbose #326 >
00:00:16 verbose #327 > let inline __isGreaterThan log expected actual = __expect
00:00:16 verbose #328 > Expecto.Expect.isGreaterThan log ex...
00:00:17 verbose #329 >
00:00:17 verbose #330 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #331 > //// test
00:00:17 verbose #332 >
00:00:17 verbose #333 > let inline __isBetween log a b actual =
00:00:17 verbose #334 > let inline isBetween actual (a, b) _ =
00:00:17 verbose #335 > __isGreaterThanOrEqual log a actual
00:00:17 verbose #336 > __isLessThanOrEqual log b actual
00:00:17 verbose #337 > __expect isBetween log (a, b) actual
00:00:17 verbose #338 > let inline _isBetween a b actual = __isBetween true a b actual
00:00:17 verbose #339 >
00:00:17 verbose #340 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #341 > #!import ../../lib/fsharp/Common.fs
00:00:17 verbose #342 >
00:00:17 verbose #343 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #344 > #if !INTERACTIVE
00:00:17 verbose #345 > namespace Polyglot
00:00:17 verbose #346 > #endif
00:00:17 verbose #347 >
00:00:17 verbose #348 > module Common =
00:00:17 verbose #349 >
00:00:17 verbose #350 > #if !INTERACTIVE
00:00:17 verbose #351 > open Lib
00:00:17 verbose #352 > #endif
00:00:17 verbose #353 >
00:00:17 verbose #354 > let nl = System.Environment.NewLine
00:00:17 verbose #355 > let q = @""""
00:00:17 verbose #356 >
00:00:17 verbose #357 > let inline cons head tail = head :: tail
00:00:17 verbose #358 >
00:00:17 verbose #359 > /// ## memoize
00:00:17 verbose #360 > let inline memoize fn =
00:00:17 verbose #361 > let result = lazy fn ()
00:00:17 verbose #362 > fun () -> result.Value
00:00:17 verbose #363 >
00:00:17 verbose #364 > /// ## TraceLevel
00:00:17 verbose #365 > type TraceLevel =
00:00:17 verbose #366 > | Verbose
00:00:17 verbose #367 > | Debug
00:00:17 verbose #368 > | Info
00:00:17 verbose #369 > | Warning
00:00:17 verbose #370 > | Critical
00:00:17 verbose #371 >
00:00:17 verbose #372 > let inline _locals () = ""
00:00:17 verbose #373 >
00:00:17 verbose #374 > /// ## trace
00:00:17 verbose #375 > let to_trace_level = function
00:00:17 verbose #376 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:17 verbose #377 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:17 verbose #378 > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:17 verbose #379 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:17 verbose #380 > | Critical -> Spir...
00:00:17 verbose #381 >
00:00:17 verbose #382 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #383 > #if !INTERACTIVE
00:00:17 verbose #384 > open Lib
00:00:17 verbose #385 > #endif
00:00:17 verbose #386 >
00:00:17 verbose #387 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #388 > open Common
00:00:17 verbose #389 >
00:00:17 verbose #390 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #391 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #392 > │ ## choice │
00:00:17 verbose #393 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #394 >
00:00:17 verbose #395 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #396 > let inline choice asyncs = async {
00:00:17 verbose #397 > let e = Event<_> ()
00:00:17 verbose #398 > use cts = new System.Threading.CancellationTokenSource ()
00:00:17 verbose #399 > let fn =
00:00:17 verbose #400 > asyncs
00:00:17 verbose #401 > |> Seq.map (fun a -> async {
00:00:17 verbose #402 > let! x = a
00:00:17 verbose #403 > e.Trigger x
00:00:17 verbose #404 > })
00:00:17 verbose #405 > |> Async.Parallel
00:00:17 verbose #406 > |> Async.Ignore
00:00:17 verbose #407 > Async.Start (fn, cts.Token)
00:00:17 verbose #408 > let! result = Async.AwaitEvent e.Publish
00:00:17 verbose #409 > cts.Cancel ()
00:00:17 verbose #410 > return result
00:00:17 verbose #411 > }
00:00:17 verbose #412 >
00:00:17 verbose #413 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #414 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #415 > │ ## map │
00:00:17 verbose #416 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #417 >
00:00:17 verbose #418 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #419 > let inline map fn a = async {
00:00:17 verbose #420 > let! x = a
00:00:17 verbose #421 > return fn x
00:00:17 verbose #422 > }
00:00:17 verbose #423 >
00:00:17 verbose #424 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #425 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #426 > │ ## catch │
00:00:17 verbose #427 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #428 >
00:00:17 verbose #429 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #430 > let inline catch a =
00:00:17 verbose #431 > a
00:00:17 verbose #432 > |> Async.Catch
00:00:17 verbose #433 > |> map (function
00:00:17 verbose #434 > | Choice1Of2 result -> Ok result
00:00:17 verbose #435 > | Choice2Of2 ex -> Error ex
00:00:17 verbose #436 > )
00:00:17 verbose #437 >
00:00:17 verbose #438 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #439 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #440 > │ ## runWithTimeoutAsync │
00:00:17 verbose #441 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #442 >
00:00:17 verbose #443 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #444 > let inline runWithTimeoutAsync_ (timeout : int) fn =
00:00:17 verbose #445 > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:17 verbose #446 >
00:00:17 verbose #447 > let timeoutTask = async {
00:00:17 verbose #448 > do! Async.Sleep timeout
00:00:17 verbose #449 > trace Debug (fun () -> "runWithTimeoutAsync") _locals
00:00:17 verbose #450 > return None
00:00:17 verbose #451 > }
00:00:17 verbose #452 >
00:00:17 verbose #453 > let task = async {
00:00:17 verbose #454 > try
00:00:17 verbose #455 > let! result = fn
00:00:17 verbose #456 > return Some result
00:00:17 verbose #457 > with
00:00:17 verbose #458 > | :? System.AggregateException as ex when
00:00:17 verbose #459 > ex.InnerExceptions
00:00:17 verbose #460 > |> Seq.exists (function :?
00:00:17 verbose #461 > System.Threading.Tasks.TaskCanceledException -> true | _ -> false)
00:00:17 verbose #462 > ->
00:00:17 verbose #463 > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:17 verbose #464 > ()}"
00:00:17 verbose #465 > trace Warning (fun () -> "runWithTimeoutAsync") _locals
00:00:17 verbose #466 > return None
00:00:17 verbose #467 > | ex ->
00:00:17 verbose #468 > trace Critical (fun () -> $"runWithTimeoutAsync** / ex: {ex |>
00:00:17 verbose #469 > SpiralSm.format_exception}") _locals
00:00:17 verbose #470 > return None
00:00:17 verbose #471 > }
00:00:17 verbose #472 >
00:00:17 verbose #473 > [[ timeoutTask; task ]]
00:00:17 verbose #474 > |> choice
00:00:17 verbose #475 >
00:00:17 verbose #476 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #477 > let inline runWithTimeout_ timeout fn =
00:00:17 verbose #478 > fn
00:00:17 verbose #479 > |> runWithTimeoutAsync_ timeout
00:00:17 verbose #480 > |> Async.RunSynchronously
00:00:17 verbose #481 >
00:00:17 verbose #482 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #483 > //// test
00:00:17 verbose #484 >
00:00:17 verbose #485 > Async.Sleep 120
00:00:17 verbose #486 > |> runWithTimeout_ 10
00:00:17 verbose #487 > |> _assertEqual None
00:00:17 verbose #488 >
00:00:17 verbose #489 > ╭─[ 171.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 verbose #490 > │ 00:00:01 debug #1 runWithTimeoutAsync / timeout: 10 │
00:00:17 verbose #491 > │ <null> │
00:00:17 verbose #492 > │ │
00:00:17 verbose #493 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #494 >
00:00:17 verbose #495 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #496 > //// test
00:00:17 verbose #497 >
00:00:17 verbose #498 > Async.Sleep 10
00:00:17 verbose #499 > |> runWithTimeout_ 60
00:00:17 verbose #500 > |> _assertEqual (Some ())
00:00:17 verbose #501 >
00:00:17 verbose #502 > ╭─[ 115.75ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 verbose #503 > │ FSharpOption<Unit> │
00:00:17 verbose #504 > │ Value: <null> │
00:00:17 verbose #505 > │ │
00:00:17 verbose #506 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #507 >
00:00:17 verbose #508 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #509 > //// test
00:00:17 verbose #510 >
00:00:17 verbose #511 > async {
00:00:17 verbose #512 > raise (exn "error")
00:00:17 verbose #513 > }
00:00:17 verbose #514 > |> runWithTimeout_ 60
00:00:17 verbose #515 > |> _assertEqual None
00:00:18 verbose #516 >
00:00:18 verbose #517 > ╭─[ 147.44ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 verbose #518 > │ 00:00:01 critical #2 runWithTimeoutAsync** / ex: System.Exception: error / │
00:00:18 verbose #519 > │ timeout: 60 │
00:00:18 verbose #520 > │ <null> │
00:00:18 verbose #521 > │ │
00:00:18 verbose #522 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #523 >
00:00:18 verbose #524 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 verbose #525 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 verbose #526 > │ ## runWithTimeoutChildAsync │
00:00:18 verbose #527 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #528 >
00:00:18 verbose #529 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #530 > let inline runWithTimeoutChildAsync (timeout : int) fn = async {
00:00:18 verbose #531 > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:18 verbose #532 > let! child = Async.StartChild (fn, timeout)
00:00:18 verbose #533 > return!
00:00:18 verbose #534 > child
00:00:18 verbose #535 > |> catch
00:00:18 verbose #536 > |> map (function
00:00:18 verbose #537 > | Ok result -> Some result
00:00:18 verbose #538 > | Error (:? System.TimeoutException as ex) ->
00:00:18 verbose #539 > trace Debug (fun () -> $"runWithTimeoutChildAsync") _locals
00:00:18 verbose #540 > None
00:00:18 verbose #541 > | Error ex ->
00:00:18 verbose #542 > trace Critical (fun () -> $"runWithTimeoutChildAsync** / ex: {ex
00:00:18 verbose #543 > |> SpiralSm.format_exception}") _locals
00:00:18 verbose #544 > None
00:00:18 verbose #545 > )
00:00:18 verbose #546 > }
00:00:18 verbose #547 >
00:00:18 verbose #548 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #549 > let inline runWithTimeoutChild timeout fn =
00:00:18 verbose #550 > fn
00:00:18 verbose #551 > |> runWithTimeoutChildAsync timeout
00:00:18 verbose #552 > |> Async.RunSynchronously
00:00:18 verbose #553 >
00:00:18 verbose #554 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #555 > let inline runWithTimeoutAsync timeout fn =
00:00:18 verbose #556 > runWithTimeoutChildAsync timeout fn
00:00:18 verbose #557 >
00:00:18 verbose #558 > let inline runWithTimeout timeout fn =
00:00:18 verbose #559 > runWithTimeoutChild timeout fn
00:00:18 verbose #560 >
00:00:18 verbose #561 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #562 > //// test
00:00:18 verbose #563 >
00:00:18 verbose #564 > Async.Sleep 60
00:00:18 verbose #565 > |> runWithTimeoutChild 10
00:00:18 verbose #566 > |> _assertEqual None
00:00:18 verbose #567 >
00:00:18 verbose #568 > ╭─[ 107.42ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 verbose #569 > │ 00:00:01 debug #3 runWithTimeoutChildAsync / timeout: 10 │
00:00:18 verbose #570 > │ <null> │
00:00:18 verbose #571 > │ │
00:00:18 verbose #572 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #573 >
00:00:18 verbose #574 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #575 > //// test
00:00:18 verbose #576 >
00:00:18 verbose #577 > Async.Sleep 10
00:00:18 verbose #578 > |> runWithTimeoutChild 60
00:00:18 verbose #579 > |> _assertEqual (Some ())
00:00:18 verbose #580 >
00:00:18 verbose #581 > ╭─[ 72.02ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:18 verbose #582 > │ FSharpOption<Unit> │
00:00:18 verbose #583 > │ Value: <null> │
00:00:18 verbose #584 > │ │
00:00:18 verbose #585 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #586 >
00:00:18 verbose #587 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #588 > //// test
00:00:18 verbose #589 >
00:00:18 verbose #590 > async {
00:00:18 verbose #591 > raise (exn "error")
00:00:18 verbose #592 > }
00:00:18 verbose #593 > |> runWithTimeoutChild 60
00:00:18 verbose #594 > |> _assertEqual None
00:00:18 verbose #595 >
00:00:18 verbose #596 > ╭─[ 85.48ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:18 verbose #597 > │ 00:00:01 critical #4 runWithTimeoutChildAsync** / ex: System.Exception: │
00:00:18 verbose #598 > │ error / timeout: 60 │
00:00:18 verbose #599 > │ <null> │
00:00:18 verbose #600 > │ │
00:00:18 verbose #601 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #602 >
00:00:18 verbose #603 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 verbose #604 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 verbose #605 > │ ## runWithTimeoutStrict │
00:00:18 verbose #606 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #607 >
00:00:18 verbose #608 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #609 > let inline runWithTimeoutStrict (timeout : int) fn =
00:00:18 verbose #610 > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:18 verbose #611 >
00:00:18 verbose #612 > let timeoutTask = async {
00:00:18 verbose #613 > do! Async.Sleep timeout
00:00:18 verbose #614 > return None, _locals
00:00:18 verbose #615 > }
00:00:18 verbose #616 >
00:00:18 verbose #617 > let task = async {
00:00:18 verbose #618 > try
00:00:18 verbose #619 > return Async.RunSynchronously (fn, timeout) |> Some, _locals
00:00:18 verbose #620 > with
00:00:18 verbose #621 > | :? System.TimeoutException as ex ->
00:00:18 verbose #622 > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:18 verbose #623 > ()}"
00:00:18 verbose #624 > return None, _locals
00:00:18 verbose #625 > | ex ->
00:00:18 verbose #626 > trace Critical (fun () -> $"runWithTimeoutStrict / ex: {ex |>
00:00:18 verbose #627 > SpiralSm.format_exception}") _locals
00:00:18 verbose #628 > return raise ex
00:00:18 verbose #629 > }
00:00:18 verbose #630 >
00:00:18 verbose #631 > try
00:00:18 verbose #632 > [[| timeoutTask; task |]]
00:00:18 verbose #633 > |> Array.map Async.StartAsTask
00:00:18 verbose #634 > |> System.Threading.Tasks.Task.WhenAny
00:00:18 verbose #635 > |> fun task ->
00:00:18 verbose #636 > match task.Result.Result with
00:00:18 verbose #637 > | None, _locals ->
00:00:18 verbose #638 > trace Debug (fun () -> "runWithTimeoutStrict") _locals
00:00:18 verbose #639 > None
00:00:18 verbose #640 > | result, _ -> result
00:00:18 verbose #641 > with
00:00:18 verbose #642 > | :? System.AggregateException as ex when
00:00:18 verbose #643 > ex.InnerExceptions
00:00:18 verbose #644 > |> Seq.exists (function :? System.Threading.Tasks.TaskCanceledException
00:00:18 verbose #645 > -> true | _ -> false)
00:00:18 verbose #646 > ->
00:00:18 verbose #647 > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / {_locals ()}"
00:00:18 verbose #648 > trace Warning (fun () -> "runWithTimeoutStrict") _locals
00:00:18 verbose #649 > None
00:00:18 verbose #650 > | ex ->
00:00:18 verbose #651 > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / {_locals ()}"
00:00:18 verbose #652 > trace Critical (fun () -> "runWithTimeoutStrict**") _locals
00:00:18 verbose #653 > None
00:00:18 verbose #654 >
00:00:18 verbose #655 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #656 > //// test
00:00:18 verbose #657 >
00:00:18 verbose #658 > Async.Sleep 60
00:00:18 verbose #659 > |> runWithTimeoutStrict 10
00:00:18 verbose #660 > |> _assertEqual None
00:00:18 verbose #661 >
00:00:18 verbose #662 > ╭─[ 111.98ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 verbose #663 > │ 00:00:02 debug #5 runWithTimeoutStrict / timeout: 10 │
00:00:18 verbose #664 > │ <null> │
00:00:18 verbose #665 > │ │
00:00:18 verbose #666 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #667 >
00:00:18 verbose #668 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #669 > //// test
00:00:18 verbose #670 >
00:00:18 verbose #671 > Async.Sleep 10
00:00:18 verbose #672 > |> runWithTimeoutStrict 60
00:00:18 verbose #673 > |> _assertEqual (Some ())
00:00:18 verbose #674 >
00:00:18 verbose #675 > ╭─[ 126.08ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 verbose #676 > │ FSharpOption<Unit> │
00:00:18 verbose #677 > │ Value: <null> │
00:00:18 verbose #678 > │ │
00:00:18 verbose #679 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #680 >
00:00:18 verbose #681 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #682 > //// test
00:00:18 verbose #683 >
00:00:18 verbose #684 > async {
00:00:18 verbose #685 > raise (exn "error")
00:00:18 verbose #686 > }
00:00:18 verbose #687 > |> runWithTimeoutStrict 60
00:00:18 verbose #688 > |> _assertEqual None
00:00:19 verbose #689 >
00:00:19 verbose #690 > ╭─[ 140.01ms - stdout ]────────────────────────────────────────────────────────╮
00:00:19 verbose #691 > │ 00:00:02 critical #6 runWithTimeoutStrict / ex: System.Exception: error / │
00:00:19 verbose #692 > │ timeout: 60 │
00:00:19 verbose #693 > │ 00:00:02 critical #7 runWithTimeoutStrict** / ex: System.AggregateException: │
00:00:19 verbose #694 > │ One or more errors occurred. (error) / timeout: 60 │
00:00:19 verbose #695 > │ <null> │
00:00:19 verbose #696 > │ │
00:00:19 verbose #697 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #698 >
00:00:19 verbose #699 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #700 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #701 > │ ## awaitValueTask │
00:00:19 verbose #702 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #703 >
00:00:19 verbose #704 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #705 > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:19 verbose #706 > task.AsTask () |> Async.AwaitTask
00:00:19 verbose #707 >
00:00:19 verbose #708 > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:19 verbose #709 > task.AsTask () |> Async.AwaitTask
00:00:19 verbose #710 >
00:00:19 verbose #711 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #712 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #713 > │ ## init │
00:00:19 verbose #714 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #715 >
00:00:19 verbose #716 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #717 > let inline init x = async {
00:00:19 verbose #718 > return x
00:00:19 verbose #719 > }
00:00:19 verbose #720 >
00:00:19 verbose #721 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #722 > //// test
00:00:19 verbose #723 >
00:00:19 verbose #724 > init 1
00:00:19 verbose #725 > |> Async.RunSynchronously
00:00:19 verbose #726 > |> _assertEqual 1
00:00:19 verbose #727 >
00:00:19 verbose #728 > ╭─[ 31.73ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:19 verbose #729 > │ 1 │
00:00:19 verbose #730 > │ │
00:00:19 verbose #731 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #732 >
00:00:19 verbose #733 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #734 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #735 > │ ## withCancellationToken │
00:00:19 verbose #736 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #737 >
00:00:19 verbose #738 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #739 > let inline withCancellationToken (ct : System.Threading.CancellationToken) fn =
00:00:19 verbose #740 > Async.StartImmediateAsTask (fn, ct)
00:00:19 verbose #741 > |> Async.AwaitTask
00:00:19 verbose #742 >
00:00:19 verbose #743 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #744 > //// test
00:00:19 verbose #745 >
00:00:19 verbose #746 > let cts = new System.Threading.CancellationTokenSource ()
00:00:19 verbose #747 >
00:00:19 verbose #748 > async {
00:00:19 verbose #749 > let run = async {
00:00:19 verbose #750 > do! Async.Sleep 100
00:00:19 verbose #751 > return 1
00:00:19 verbose #752 > }
00:00:19 verbose #753 >
00:00:19 verbose #754 > let! child =
00:00:19 verbose #755 > run
00:00:19 verbose #756 > |> withCancellationToken cts.Token
00:00:19 verbose #757 > |> catch
00:00:19 verbose #758 > |> Async.StartChild
00:00:19 verbose #759 >
00:00:19 verbose #760 > do! Async.Sleep 50
00:00:19 verbose #761 > cts.Cancel ()
00:00:19 verbose #762 > return! child
00:00:19 verbose #763 > }
00:00:19 verbose #764 > |> Async.RunSynchronously
00:00:19 verbose #765 > |> Result.mapError _.Message
00:00:19 verbose #766 > |> _assertEqual (Error ("A task was canceled."))
00:00:19 verbose #767 >
00:00:19 verbose #768 > ╭─[ 221.14ms - stdout ]────────────────────────────────────────────────────────╮
00:00:19 verbose #769 > │ FSharpResult<Int32,String> │
00:00:19 verbose #770 > │ ResultValue: 0 │
00:00:19 verbose #771 > │ ErrorValue: A task was canceled. │
00:00:19 verbose #772 > │ │
00:00:19 verbose #773 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #774 > [NbConvertApp] Converting notebook Async.dib.ipynb to html
00:00:21 verbose #775 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:21 verbose #776 > validate(nb)
00:00:21 verbose #777 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:21 verbose #778 > return _pygments_highlight(
00:00:22 verbose #779 > [NbConvertApp] Writing 322043 bytes to Async.dib.html
00:00:22 debug #780 execute_with_options_async / exit_code: 0 / output.Length: 30274
00:00:22 debug #3 main / executeCommand / exitCode: 0
00:00:22 debug #781 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 AsyncSeq.dib" -Retries 3", None,
None)
00:00:23 verbose #782 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: AsyncSeq.dib / _args: [
00:00:23 verbose #783 > "-Retries",
00:00:23 verbose #784 > 3
00:00:23 verbose #785 > ]
00:00:25 verbose #786 >
00:00:25 verbose #787 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #788 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #789 > │ # AsyncSeq (Polyglot) │
00:00:25 verbose #790 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #791 >
00:00:25 verbose #792 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #793 > #!import ../../lib/fsharp/Notebooks.dib
00:00:25 verbose #794 > #!import ../../lib/fsharp/Testing.dib
00:00:25 verbose #795 >
00:00:25 verbose #796 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:25 verbose #797 > #r
00:00:25 verbose #798 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:25 verbose #799 > spNetCore.Html.Abstractions.dll"
00:00:25 verbose #800 > #r
00:00:25 verbose #801 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:25 verbose #802 > otNet.Interactive.dll"
00:00:25 verbose #803 > #r
00:00:25 verbose #804 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:25 verbose #805 > otNet.Interactive.FSharp.dll"
00:00:25 verbose #806 > #r
00:00:25 verbose #807 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:25 verbose #808 > otNet.Interactive.Formatting.dll"
00:00:25 verbose #809 > open System
00:00:25 verbose #810 > open System.IO
00:00:25 verbose #811 > open System.Text
00:00:25 verbose #812 > open Microsoft.DotNet.Interactive.Formatting
00:00:28 verbose #813 >
00:00:28 verbose #814 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 verbose #815 > #r
00:00:28 verbose #816 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:28 verbose #817 > otNet.Interactive.FSharp.dll"
00:00:28 verbose #818 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:28 verbose #819 > #r
00:00:28 verbose #820 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:28 verbose #821 > otNet.Interactive.dll"
00:00:28 verbose #822 > open type Microsoft.DotNet.Interactive.Kernel
00:00:28 verbose #823 >
00:00:28 verbose #824 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 verbose #825 > //// test
00:00:28 verbose #826 >
00:00:28 verbose #827 > Formatter.ListExpansionLimit <- 100
00:00:29 verbose #828 >
00:00:29 verbose #829 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 verbose #830 > #if FABLE_COMPILER // common.types
00:00:29 verbose #831 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:29 verbose #832 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:29 verbose #833 > class end
00:00:29 verbose #834 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:29 verbose #835 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:29 verbose #836 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:29 verbose #837 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:29 verbose #838 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:29 verbose #839 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:29 verbose #840 > class end
00:00:29 verbose #841 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:29 verbose #842 > [[<Fable.Core.Erase;...
00:00:30 verbose #843 >
00:00:30 verbose #844 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:30 verbose #845 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:30 verbose #846 > and Mut1 = {mutable l0 : int32}
00:00:30 verbose #847 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:30 verbose #848 > let v2 : bool = v1.Contains v0
00:00:30 verbose #849 > v2
00:00:30 verbose #850 > and closure0 () (v0 : string) : (string -> bool) =
00:00:30 verbose #851 > closure1(v0)
00:00:30 verbose #852 > and closure3 (v0 : string) (v1 : string) : bool =
00:00:30 verbose #853 > let v2 : bool = v1.EndsWith v0
00:00:30 verbose #854 > v2
00:00:30 verbose #855 > and closure2 () (v0 : string) : (string -> bool) =
00:00:30 verbose #856 > closure3(v0)
00:00:30 verbose #857 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:30 verbose #858 > let v3 : string = v2.PadLeft (v0, v1)
00:00:30 verbose #859 > v3
00:00:30 verbose #860 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:30 verbose #861 > closure6(v0, v1)
00:00:30 verbose #862 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:30 verbose #863 > closure5(v0)
00:00:30 verbose #864 > and closure8 (v0 : int32) (v1 : string) : string =
00:00:30 verbose #865 > let v2 : stri...
00:00:31 verbose #866 >
00:00:31 verbose #867 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:31 verbose #868 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:31 verbose #869 > type Mut0 = {mutable l0 : int32}
00:00:31 verbose #870 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:31 verbose #871 > let v2 : int32 = v1.l0
00:00:31 verbose #872 > let v3 : bool = v2 < v0
00:00:31 verbose #873 > v3
00:00:31 verbose #874 > and method1 () : string =
00:00:31 verbose #875 > let v0 : string = ""
00:00:31 verbose #876 > v0
00:00:31 verbose #877 > and closure0 () (v0 : string) : string =
00:00:31 verbose #878 > let v1 : string option = None
00:00:31 verbose #879 > let v2 : bool = true in let mutable _v1 = v1
00:00:31 verbose #880 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:31 verbose #881 > let v3 : string = null |> unbox<string>
00:00:31 verbose #882 > v3
00:00:31 verbose #883 > #endif
00:00:31 verbose #884 > #if FABLE_COMPILER_RUST && WASM
00:00:31 verbose #885 > let v4 : string = null |> unbox<string>
00:00:31 verbose #886 > v4
00:00:31 verbose #887 > #endif
00:00:31 verbose #888 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:31 verbose #889 > let v5 : string = null |> unbox<string>
00:00:31 verbose #890 > v5
00:00:31 verbose #891 > #endif
00:00:31 verbose #892 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:00:32 verbose #893 >
00:00:32 verbose #894 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:32 verbose #895 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:32 verbose #896 > let v2 : (System.Guid -> string) = _.ToString()
00:00:32 verbose #897 > let v3 : string = v2 v0
00:00:32 verbose #898 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:32 verbose #899 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:32 verbose #900 > v5
00:00:32 verbose #901 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:32 verbose #902 > closure1(v0)
00:00:32 verbose #903 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:32 verbose #904 > let v3 : string = v2.Replace (v0, v1)
00:00:32 verbose #905 > v3
00:00:32 verbose #906 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:32 verbose #907 > closure5(v0, v1)
00:00:32 verbose #908 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:32 verbose #909 > closure4(v0)
00:00:32 verbose #910 > and method0 () : (string -> (string -> (string -> string))) =
00:00:32 verbose #911 > closure3()
00:00:32 verbose #912 > and closure2 (...
00:00:32 verbose #913 >
00:00:32 verbose #914 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:32 verbose #915 > #if FABLE_COMPILER // async.types
00:00:32 verbose #916 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:00:32 verbose #917 > std_future_Future<'T> = class end
00:00:32 verbose #918 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:00:32 verbose #919 > futures_future_TryJoinAll<'T> = class end
00:00:32 verbose #920 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:00:32 verbose #921 > rayon_vec_IntoIter<'T> = class end
00:00:32 verbose #922 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:00:32 verbose #923 > rayon_iter_Map<'T> = class end
00:00:32 verbose #924 > #endif // async.types
00:00:32 verbose #925 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:32 verbose #926 > Async<System.Threading.CancellationToken> =
00:00:32 verbose #927 > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:32 verbose #928 > let v2 : bool = true in let mutable _v1 = v1
00:00:32 verbose #929 > #if FABLE_COMPILER_RUST ...
00:00:32 verbose #930 >
00:00:32 verbose #931 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:32 verbose #932 > type [[<Struct>]] US0 =
00:00:32 verbose #933 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:32 verbose #934 > | US0_1
00:00:32 verbose #935 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:00:32 verbose #936 > US0_0(v0)
00:00:32 verbose #937 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:00:32 verbose #938 > closure1()
00:00:32 verbose #939 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:32 verbose #940 > let v1 : unit option = None
00:00:32 verbose #941 > let v2 : bool = true in let mutable _v1 = v1
00:00:32 verbose #942 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:32 verbose #943 > null |> unbox<unit>
00:00:32 verbose #944 > ()
00:00:32 verbose #945 > #endif
00:00:32 verbose #946 > #if FABLE_COMPILER_RUST && WASM
00:00:32 verbose #947 > null |> unbox<unit>
00:00:32 verbose #948 > ()
00:00:32 verbose #949 > #endif
00:00:32 verbose #950 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:32 verbose #951 > null |> unbox<unit>
00:00:32 verbose #952 > ()
00:00:32 verbose #953 > #endif
00:00:32 verbose #954 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:32 verbose #955 > !WASM && !CONTRACT
00:00:32 verbose #956 > ...
00:00:32 verbose #957 >
00:00:32 verbose #958 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:32 verbose #959 > #if FABLE_COMPILER // networking.types
00:00:32 verbose #960 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:32 verbose #961 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:32 verbose #962 > class end
00:00:32 verbose #963 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:32 verbose #964 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:32 verbose #965 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:32 verbose #966 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:32 verbose #967 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:32 verbose #968 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:32 verbose #969 > class end
00:00:32 verbose #970 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:32 verbose #971 > [[<Fable.Core.Er...
00:00:34 verbose #972 >
00:00:34 verbose #973 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:34 verbose #974 > #if FABLE_COMPILER // runtime.types
00:00:34 verbose #975 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:34 verbose #976 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:34 verbose #977 > class end
00:00:34 verbose #978 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:34 verbose #979 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:34 verbose #980 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:34 verbose #981 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:34 verbose #982 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:34 verbose #983 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:34 verbose #984 > class end
00:00:34 verbose #985 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:34 verbose #986 > [[<Fable.Core.Erase...
00:00:35 verbose #987 >
00:00:35 verbose #988 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:35 verbose #989 > #if FABLE_COMPILER // file_system.types
00:00:35 verbose #990 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:35 verbose #991 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:35 verbose #992 > base64_DecodeError = class end
00:00:35 verbose #993 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:35 verbose #994 > = class end
00:00:35 verbose #995 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:35 verbose #996 > = class end
00:00:35 verbose #997 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:35 verbose #998 > serde_json_Error = class end
00:00:35 verbose #999 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:35 verbose #1000 > serde_json_Value = class end
00:00:35 verbose #1001 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:35 verbose #1002 > serde_wasm_bindgen_Error = class end
00:00:35 verbose #1003 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:38 verbose #1004 >
00:00:38 verbose #1005 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:38 verbose #1006 > #if FABLE_COMPILER // trace.types
00:00:38 verbose #1007 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:38 verbose #1008 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:38 verbose #1009 > class end
00:00:38 verbose #1010 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:38 verbose #1011 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:38 verbose #1012 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:38 verbose #1013 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:38 verbose #1014 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:38 verbose #1015 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:38 verbose #1016 > class end
00:00:38 verbose #1017 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:38 verbose #1018 > [[<Fable.Core.Erase; ...
00:00:38 verbose #1019 >
00:00:38 verbose #1020 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:38 verbose #1021 > module SpiralTrace =
00:00:38 verbose #1022 > let trace x =
00:00:38 verbose #1023 > #if !INTERACTIVE
00:00:38 verbose #1024 > Trace.trace x
00:00:38 verbose #1025 > #else
00:00:38 verbose #1026 > trace x
00:00:38 verbose #1027 > #endif
00:00:38 verbose #1028 >
00:00:38 verbose #1029 > type TraceLevel =
00:00:38 verbose #1030 > #if !INTERACTIVE
00:00:38 verbose #1031 > Trace.US0
00:00:38 verbose #1032 > #else
00:00:38 verbose #1033 > US0
00:00:38 verbose #1034 > #endif
00:00:38 verbose #1035 >
00:00:38 verbose #1036 > module SpiralCrypto =
00:00:38 verbose #1037 > let hash_text x =
00:00:38 verbose #1038 > #if !INTERACTIVE
00:00:38 verbose #1039 > Crypto.hash_text x
00:00:38 verbose #1040 > #else
00:00:38 verbose #1041 > hash_text x
00:00:38 verbose #1042 > #endif
00:00:38 verbose #1043 >
00:00:38 verbose #1044 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:38 verbose #1045 >
00:00:38 verbose #1046 > module SpiralAsync =
00:00:38 verbose #1047 > let merge_cancellation_token_with_default_async x =
00:00:38 verbose #1048 > #if !INTERACTIVE
00:00:38 verbose #1049 > Async_.merge_cancellation_token_with_default_async x
00:00:38 verbose #1050 > #else
00:00:38 verbose #1051 > merge_cancellation_token_with_default_async x
00:00:38 verbose #1052 > #endif
00:00:38 verbose #1053 >
00:00:38 verbose #1054 > module SpiralThreading =
00:00:38 verbose #1055 > let new_disposable_token x =
00:00:38 verbose #1056 > #if !INTERACTIVE
00:00:38 verbose #1057 > Threading.new_disposable_token x
00:00:38 verbose #1058 > #else
00:00:38 verbose #1059 > new_disposable_token x
00:00:38 verbose #1060 > #endif
00:00:38 verbose #1061 >
00:00:38 verbose #1062 > module Spi...
00:00:38 verbose #1063 >
00:00:38 verbose #1064 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:38 verbose #1065 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:38 verbose #1066 >
00:00:38 verbose #1067 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:38 verbose #1068 > //// test
00:00:38 verbose #1069 >
00:00:38 verbose #1070 > type AssertExceptionFormatter (ex) =
00:00:38 verbose #1071 > member _.Text =
00:00:38 verbose #1072 > ex.ToString()
00:00:38 verbose #1073 > .Replace("32m", "<span style=\"color: green;\">")
00:00:38 verbose #1074 > .Replace("36m", "</span>")
00:00:38 verbose #1075 > .Replace("31m", "<span style=\"color: red;\">")
00:00:38 verbose #1076 > .Replace("\n", "<br/>\n")
00:00:38 verbose #1077 >
00:00:38 verbose #1078 >
00:00:38 verbose #1079 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:38 verbose #1080 > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:38 verbose #1081 >
00:00:38 verbose #1082 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:38 verbose #1083 > //// test
00:00:38 verbose #1084 >
00:00:38 verbose #1085 > let inline __expect fn log expected actual =
00:00:38 verbose #1086 > if log then printfn $"{actual.ToDisplayString ()}"
00:00:38 verbose #1087 > try
00:00:38 verbose #1088 > "Testing.__expect" |> fn actual expected
00:00:38 verbose #1089 > with :? Expecto.AssertException as ex ->
00:00:38 verbose #1090 > AssertExceptionFormatter(ex).Display () |> ignore
00:00:38 verbose #1091 > failwith (ex.GetType().FullName)
00:00:38 verbose #1092 >
00:00:38 verbose #1093 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:38 verbose #1094 > expected actual
00:00:38 verbose #1095 > let inline _contains expected actual = __contains true expected actual
00:00:38 verbose #1096 >
00:00:38 verbose #1097 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:38 verbose #1098 > expected actual
00:00:38 verbose #1099 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:38 verbose #1100 >
00:00:38 verbose #1101 > let inline __isGreaterThan log expected actual = __expect
00:00:38 verbose #1102 > Expecto.Expect.isGreaterThan log ex...
00:00:39 verbose #1103 >
00:00:39 verbose #1104 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 verbose #1105 > //// test
00:00:39 verbose #1106 >
00:00:39 verbose #1107 > let inline __isBetween log a b actual =
00:00:39 verbose #1108 > let inline isBetween actual (a, b) _ =
00:00:39 verbose #1109 > __isGreaterThanOrEqual log a actual
00:00:39 verbose #1110 > __isLessThanOrEqual log b actual
00:00:39 verbose #1111 > __expect isBetween log (a, b) actual
00:00:39 verbose #1112 > let inline _isBetween a b actual = __isBetween true a b actual
00:00:39 verbose #1113 >
00:00:39 verbose #1114 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1115 > #r
00:00:39 verbose #1116 > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:39 verbose #1117 > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:39 verbose #1118 > #r
00:00:39 verbose #1119 > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:39 verbose #1120 > 0/System.Reactive.dll"
00:00:39 verbose #1121 > #r
00:00:39 verbose #1122 > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:39 verbose #1123 > netstandard2.0/System.Reactive.Linq.dll"
00:00:39 verbose #1124 >
00:00:39 verbose #1125 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1126 > #!import ../../lib/fsharp/Common.fs
00:00:39 verbose #1127 > #!import ../../lib/fsharp/Async.fs
00:00:39 verbose #1128 >
00:00:39 verbose #1129 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 verbose #1130 > #if !INTERACTIVE
00:00:39 verbose #1131 > namespace Polyglot
00:00:39 verbose #1132 > #endif
00:00:39 verbose #1133 >
00:00:39 verbose #1134 > module Common =
00:00:39 verbose #1135 >
00:00:39 verbose #1136 > #if !INTERACTIVE
00:00:39 verbose #1137 > open Lib
00:00:39 verbose #1138 > #endif
00:00:39 verbose #1139 >
00:00:39 verbose #1140 > let nl = System.Environment.NewLine
00:00:39 verbose #1141 > let q = @""""
00:00:39 verbose #1142 >
00:00:39 verbose #1143 > let inline cons head tail = head :: tail
00:00:39 verbose #1144 >
00:00:39 verbose #1145 > /// ## memoize
00:00:39 verbose #1146 > let inline memoize fn =
00:00:39 verbose #1147 > let result = lazy fn ()
00:00:39 verbose #1148 > fun () -> result.Value
00:00:39 verbose #1149 >
00:00:39 verbose #1150 > /// ## TraceLevel
00:00:39 verbose #1151 > type TraceLevel =
00:00:39 verbose #1152 > | Verbose
00:00:39 verbose #1153 > | Debug
00:00:39 verbose #1154 > | Info
00:00:39 verbose #1155 > | Warning
00:00:39 verbose #1156 > | Critical
00:00:39 verbose #1157 >
00:00:39 verbose #1158 > let inline _locals () = ""
00:00:39 verbose #1159 >
00:00:39 verbose #1160 > /// ## trace
00:00:39 verbose #1161 > let to_trace_level = function
00:00:39 verbose #1162 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:39 verbose #1163 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:39 verbose #1164 > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:39 verbose #1165 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:39 verbose #1166 > | Critical -> Spir...
00:00:39 verbose #1167 >
00:00:39 verbose #1168 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 verbose #1169 > #if !INTERACTIVE
00:00:39 verbose #1170 > namespace Polyglot
00:00:39 verbose #1171 > #endif
00:00:39 verbose #1172 >
00:00:39 verbose #1173 > module Async =
00:00:39 verbose #1174 >
00:00:39 verbose #1175 > #if !INTERACTIVE
00:00:39 verbose #1176 > open Lib
00:00:39 verbose #1177 > #endif
00:00:39 verbose #1178 >
00:00:39 verbose #1179 > open Common
00:00:39 verbose #1180 >
00:00:39 verbose #1181 > /// ## choice
00:00:39 verbose #1182 > let inline choice asyncs = async {
00:00:39 verbose #1183 > let e = Event<_> ()
00:00:39 verbose #1184 > use cts = new System.Threading.CancellationTokenSource ()
00:00:39 verbose #1185 > let fn =
00:00:39 verbose #1186 > asyncs
00:00:39 verbose #1187 > |> Seq.map (fun a -> async {
00:00:39 verbose #1188 > let! x = a
00:00:39 verbose #1189 > e.Trigger x
00:00:39 verbose #1190 > })
00:00:39 verbose #1191 > |> Async.Parallel
00:00:39 verbose #1192 > |> Async.Ignore
00:00:39 verbose #1193 > Async.Start (fn, cts.Token)
00:00:39 verbose #1194 > let! result = Async.AwaitEvent e.Publish
00:00:39 verbose #1195 > cts.Cancel ()
00:00:39 verbose #1196 > return result
00:00:39 verbose #1197 > }
00:00:39 verbose #1198 >
00:00:39 verbose #1199 > /// ## map
00:00:39 verbose #1200 > let inline map fn a = async {
00:00:39 verbose #1201 > let! x = a
00:00:39 verbose #1202 > return fn x
00:00:39 verbose #1203 > }
00:00:39 verbose #1204 >
00:00:39 verbose #1205 > /// ## catch
00:00:39 verbose #1206 > let inline catch a =
00:00:39 verbose #1207 > ...
00:00:39 verbose #1208 >
00:00:39 verbose #1209 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1210 > #if !INTERACTIVE
00:00:39 verbose #1211 > open Lib
00:00:39 verbose #1212 > #endif
00:00:39 verbose #1213 >
00:00:39 verbose #1214 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1215 > open Common
00:00:39 verbose #1216 >
00:00:39 verbose #1217 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 verbose #1218 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 verbose #1219 > │ ## subscribeEvent │
00:00:39 verbose #1220 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #1221 >
00:00:39 verbose #1222 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1223 > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:39 verbose #1224 > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:39 verbose #1225 > 'A>(event.AddHandler, event.RemoveHandler)
00:00:39 verbose #1226 > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:39 verbose #1227 > event.EventArgs)
00:00:39 verbose #1228 > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:40 verbose #1229 >
00:00:40 verbose #1230 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #1231 > //// test
00:00:40 verbose #1232 >
00:00:40 verbose #1233 > type TestEvent () as self =
00:00:40 verbose #1234 > member val Calls = [[]] with get, set
00:00:40 verbose #1235 > member val Event = Event<ErrorEventHandler, ErrorEventArgs> () with get
00:00:40 verbose #1236 >
00:00:40 verbose #1237 > member _.AddCall text =
00:00:40 verbose #1238 > self.Calls <- self.Calls @ [[ text ]]
00:00:40 verbose #1239 >
00:00:40 verbose #1240 > member _.EventInterface =
00:00:40 verbose #1241 > { new IEvent<ErrorEventHandler, ErrorEventArgs> with
00:00:40 verbose #1242 > member _.AddHandler handler =
00:00:40 verbose #1243 > self.AddCall "AddHandler"
00:00:40 verbose #1244 > self.Event.Publish.AddHandler handler
00:00:40 verbose #1245 >
00:00:40 verbose #1246 > member _.RemoveHandler handler =
00:00:40 verbose #1247 > self.AddCall "RemoveHandler"
00:00:40 verbose #1248 > self.Event.Publish.RemoveHandler handler
00:00:40 verbose #1249 >
00:00:40 verbose #1250 > member _.Subscribe observer =
00:00:40 verbose #1251 > self.AddCall "IObservable.Subscribe"
00:00:40 verbose #1252 > let disposable = self.Event.Publish.Subscribe observer
00:00:40 verbose #1253 > new_disposable (fun () ->
00:00:40 verbose #1254 > self.AddCall "IObservable.Dispose"
00:00:40 verbose #1255 > disposable.Dispose ()
00:00:40 verbose #1256 > )
00:00:40 verbose #1257 > }
00:00:40 verbose #1258 >
00:00:40 verbose #1259 > member _.Subscribe () =
00:00:40 verbose #1260 > subscribeEvent
00:00:40 verbose #1261 > self.EventInterface
00:00:40 verbose #1262 > (fun args ->
00:00:40 verbose #1263 > let result = args.GetException () |> SpiralSm.format_exception
00:00:40 verbose #1264 > self.AddCall $"TestEvent.Subscribe({result})"
00:00:40 verbose #1265 > result
00:00:40 verbose #1266 > )
00:00:40 verbose #1267 >
00:00:40 verbose #1268 > member _.Iter subscription =
00:00:40 verbose #1269 > subscription
00:00:40 verbose #1270 > |> FSharp.Control.AsyncSeq.iteriAsync (fun i error -> async {
00:00:40 verbose #1271 > self.AddCall $"TestEvent.Iter({i}: {error})"
00:00:40 verbose #1272 > })
00:00:40 verbose #1273 >
00:00:40 verbose #1274 > member _.WaitCall text = async {
00:00:40 verbose #1275 > while self.Calls |> List.last <> text do
00:00:40 verbose #1276 > do! Async.SwitchToThreadPool ()
00:00:40 verbose #1277 > }
00:00:40 verbose #1278 >
00:00:40 verbose #1279 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #1280 > //// test
00:00:40 verbose #1281 >
00:00:40 verbose #1282 > let testEvent = TestEvent ()
00:00:40 verbose #1283 >
00:00:40 verbose #1284 > async {
00:00:40 verbose #1285 > testEvent.AddCall "1"
00:00:40 verbose #1286 > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:40 verbose #1287 > do! testEvent.WaitCall "AddHandler"
00:00:40 verbose #1288 > testEvent.AddCall "2"
00:00:40 verbose #1289 > do! child
00:00:40 verbose #1290 > testEvent.AddCall "3"
00:00:40 verbose #1291 > }
00:00:40 verbose #1292 > |> Async.runWithTimeout 300
00:00:40 verbose #1293 > |> _assertEqual None
00:00:40 verbose #1294 >
00:00:40 verbose #1295 > testEvent.Calls
00:00:40 verbose #1296 > |> Seq.toList
00:00:40 verbose #1297 > |> _assertEqual [[ "1"; "AddHandler"; "2"; "RemoveHandler" ]]
00:00:40 verbose #1298 >
00:00:40 verbose #1299 > ╭─[ 525.27ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 verbose #1300 > │ 00:00:02 debug #1 runWithTimeoutChildAsync / timeout: 300 │
00:00:40 verbose #1301 > │ <null> │
00:00:40 verbose #1302 > │ [ 1, AddHandler, 2, RemoveHandler ] │
00:00:40 verbose #1303 > │ │
00:00:40 verbose #1304 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #1305 >
00:00:40 verbose #1306 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #1307 > //// test
00:00:40 verbose #1308 >
00:00:40 verbose #1309 > let testEvent = TestEvent ()
00:00:40 verbose #1310 >
00:00:40 verbose #1311 > async {
00:00:40 verbose #1312 > testEvent.AddCall "1"
00:00:40 verbose #1313 > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:40 verbose #1314 > do! testEvent.WaitCall "AddHandler"
00:00:40 verbose #1315 > testEvent.AddCall "2"
00:00:40 verbose #1316 > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:40 verbose #1317 > testEvent.AddCall $"testEvent.EventInterface.Subscribe({args})"
00:00:40 verbose #1318 > )
00:00:40 verbose #1319 > testEvent.AddCall "3"
00:00:40 verbose #1320 > do! child
00:00:40 verbose #1321 > testEvent.AddCall "4"
00:00:40 verbose #1322 > }
00:00:40 verbose #1323 > |> Async.runWithTimeout 300
00:00:40 verbose #1324 > |> _assertEqual None
00:00:40 verbose #1325 >
00:00:40 verbose #1326 > testEvent.Calls
00:00:40 verbose #1327 > |> _assertEqual [[ "1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3";
00:00:40 verbose #1328 > "RemoveHandler"; "IObservable.Dispose" ]]
00:00:41 verbose #1329 >
00:00:41 verbose #1330 > ╭─[ 466.72ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #1331 > │ 00:00:02 debug #2 runWithTimeoutChildAsync / timeout: 300 │
00:00:41 verbose #1332 > │ <null> │
00:00:41 verbose #1333 > │ [ 1, AddHandler, 2, IObservable.Subscribe, 3, RemoveHandler, │
00:00:41 verbose #1334 > │ IObservable.Dispose ] │
00:00:41 verbose #1335 > │ │
00:00:41 verbose #1336 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #1337 >
00:00:41 verbose #1338 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #1339 > //// test
00:00:41 verbose #1340 >
00:00:41 verbose #1341 > let testEvent = TestEvent ()
00:00:41 verbose #1342 >
00:00:41 verbose #1343 > async {
00:00:41 verbose #1344 > testEvent.AddCall "1"
00:00:41 verbose #1345 > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:41 verbose #1346 > do! testEvent.WaitCall "AddHandler"
00:00:41 verbose #1347 > testEvent.AddCall "2"
00:00:41 verbose #1348 > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:41 verbose #1349 > async {
00:00:41 verbose #1350 > do! testEvent.WaitCall "TestEvent.Iter(0: System.Exception: error)"
00:00:41 verbose #1351 > testEvent.AddCall
00:00:41 verbose #1352 > $"testEvent.EventInterface.Subscribe({args.GetException () |>
00:00:41 verbose #1353 > SpiralSm.format_exception})"
00:00:41 verbose #1354 > }
00:00:41 verbose #1355 > |> Async.RunSynchronously
00:00:41 verbose #1356 > )
00:00:41 verbose #1357 > testEvent.AddCall "3"
00:00:41 verbose #1358 > testEvent.Event.Trigger (null, ErrorEventArgs (Exception "error"))
00:00:41 verbose #1359 > testEvent.AddCall "4"
00:00:41 verbose #1360 > do! child
00:00:41 verbose #1361 > testEvent.AddCall "5"
00:00:41 verbose #1362 > }
00:00:41 verbose #1363 > |> Async.runWithTimeout 300
00:00:41 verbose #1364 > |> _assertEqual None
00:00:41 verbose #1365 >
00:00:41 verbose #1366 > testEvent.Calls
00:00:41 verbose #1367 > |> _assertEqual [[
00:00:41 verbose #1368 > "1"
00:00:41 verbose #1369 > "AddHandler"
00:00:41 verbose #1370 > "2"
00:00:41 verbose #1371 > "IObservable.Subscribe"
00:00:41 verbose #1372 > "3"
00:00:41 verbose #1373 > "TestEvent.Subscribe(System.Exception: error)"
00:00:41 verbose #1374 > "TestEvent.Iter(0: System.Exception: error)"
00:00:41 verbose #1375 > "testEvent.EventInterface.Subscribe(System.Exception: error)"
00:00:41 verbose #1376 > "4"
00:00:41 verbose #1377 > "RemoveHandler"
00:00:41 verbose #1378 > "IObservable.Dispose"
00:00:41 verbose #1379 > ]]
00:00:41 verbose #1380 >
00:00:41 verbose #1381 > ╭─[ 460.62ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #1382 > │ 00:00:03 debug #3 runWithTimeoutChildAsync / timeout: 300 │
00:00:41 verbose #1383 > │ <null> │
00:00:41 verbose #1384 > │ [ 1, AddHandler, 2, IObservable.Subscribe, 3, │
00:00:41 verbose #1385 > │ TestEvent.Subscribe(System.Exception: error), TestEvent.Iter(0: │
00:00:41 verbose #1386 > │ System.Exception: error), │
00:00:41 verbose #1387 > │ testEvent.EventInterface.Subscribe(System.Exception: error), 4, │
00:00:41 verbose #1388 > │ RemoveHandler, IObservable.Dispose ] │
00:00:41 verbose #1389 > │ │
00:00:41 verbose #1390 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #1391 >
00:00:41 verbose #1392 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #1393 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #1394 > │ ## subscribeToken │
00:00:41 verbose #1395 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #1396 >
00:00:41 verbose #1397 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #1398 > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:41 verbose #1399 > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:41 verbose #1400 > System.Action tcs.SetResult |> token.Register |> ignore
00:00:41 verbose #1401 > let start = System.DateTime.Now.Ticks
00:00:41 verbose #1402 > FSharp.Control.AsyncSeq.unfoldAsync
00:00:41 verbose #1403 > (fun () -> async {
00:00:41 verbose #1404 > do! tcs.Task |> Async.AwaitTask
00:00:41 verbose #1405 > return Some (System.DateTime.Now.Ticks - start, ())
00:00:41 verbose #1406 > })
00:00:41 verbose #1407 > ()
00:00:41 verbose #1408 >
00:00:41 verbose #1409 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #1410 > //// test
00:00:41 verbose #1411 >
00:00:41 verbose #1412 > let cts = new System.Threading.CancellationTokenSource ()
00:00:41 verbose #1413 >
00:00:41 verbose #1414 > async {
00:00:41 verbose #1415 > let! child =
00:00:41 verbose #1416 > cts.Token
00:00:41 verbose #1417 > |> subscribeToken
00:00:41 verbose #1418 > |> FSharp.Control.AsyncSeq.tryFirst
00:00:41 verbose #1419 > |> Async.StartChild
00:00:41 verbose #1420 >
00:00:41 verbose #1421 > do! Async.Sleep 100
00:00:41 verbose #1422 > cts.Cancel ()
00:00:41 verbose #1423 > return! child
00:00:41 verbose #1424 > }
00:00:41 verbose #1425 > |> Async.RunSynchronously
00:00:41 verbose #1426 > |> Option.get
00:00:41 verbose #1427 > |> _isGreaterThan 900000
00:00:41 verbose #1428 >
00:00:41 verbose #1429 > ╭─[ 179.76ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #1430 > │ 1050542 │
00:00:41 verbose #1431 > │ │
00:00:41 verbose #1432 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1433 > [NbConvertApp] Converting notebook AsyncSeq.dib.ipynb to html
00:00:44 verbose #1434 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:44 verbose #1435 > validate(nb)
00:00:45 verbose #1436 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:45 verbose #1437 > return _pygments_highlight(
00:00:45 verbose #1438 > [NbConvertApp] Writing 302772 bytes to AsyncSeq.dib.html
00:00:46 debug #1439 execute_with_options_async / exit_code: 0 / output.Length: 24324
00:00:46 debug #4 main / executeCommand / exitCode: 0
00:00:46 debug #1440 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Common.dib" -Retries 3", None,
None)
00:00:46 verbose #1441 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: Common.dib / _args: [
00:00:46 verbose #1442 > "-Retries",
00:00:46 verbose #1443 > 3
00:00:46 verbose #1444 > ]
00:00:49 verbose #1445 >
00:00:49 verbose #1446 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 verbose #1447 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 verbose #1448 > │ # Common (Polyglot) │
00:00:49 verbose #1449 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 verbose #1450 >
00:00:49 verbose #1451 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:49 verbose #1452 > #!import ../../lib/fsharp/Notebooks.dib
00:00:49 verbose #1453 > #!import ../../lib/fsharp/Testing.dib
00:00:49 verbose #1454 >
00:00:49 verbose #1455 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #1456 > #r
00:00:49 verbose #1457 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:49 verbose #1458 > spNetCore.Html.Abstractions.dll"
00:00:49 verbose #1459 > #r
00:00:49 verbose #1460 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:49 verbose #1461 > otNet.Interactive.dll"
00:00:49 verbose #1462 > #r
00:00:49 verbose #1463 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:49 verbose #1464 > otNet.Interactive.FSharp.dll"
00:00:49 verbose #1465 > #r
00:00:49 verbose #1466 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:49 verbose #1467 > otNet.Interactive.Formatting.dll"
00:00:49 verbose #1468 > open System
00:00:49 verbose #1469 > open System.IO
00:00:49 verbose #1470 > open System.Text
00:00:49 verbose #1471 > open Microsoft.DotNet.Interactive.Formatting
00:00:52 verbose #1472 >
00:00:52 verbose #1473 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:52 verbose #1474 > #r
00:00:52 verbose #1475 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:52 verbose #1476 > otNet.Interactive.FSharp.dll"
00:00:52 verbose #1477 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:52 verbose #1478 > #r
00:00:52 verbose #1479 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:52 verbose #1480 > otNet.Interactive.dll"
00:00:52 verbose #1481 > open type Microsoft.DotNet.Interactive.Kernel
00:00:52 verbose #1482 >
00:00:52 verbose #1483 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:52 verbose #1484 > //// test
00:00:52 verbose #1485 >
00:00:52 verbose #1486 > Formatter.ListExpansionLimit <- 100
00:00:53 verbose #1487 >
00:00:53 verbose #1488 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:53 verbose #1489 > #if FABLE_COMPILER // common.types
00:00:53 verbose #1490 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:53 verbose #1491 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:53 verbose #1492 > class end
00:00:53 verbose #1493 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:53 verbose #1494 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:53 verbose #1495 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:53 verbose #1496 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:53 verbose #1497 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:53 verbose #1498 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:53 verbose #1499 > class end
00:00:53 verbose #1500 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:53 verbose #1501 > [[<Fable.Core.Erase;...
00:00:55 verbose #1502 >
00:00:55 verbose #1503 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #1504 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:55 verbose #1505 > and Mut1 = {mutable l0 : int32}
00:00:55 verbose #1506 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:55 verbose #1507 > let v2 : bool = v1.Contains v0
00:00:55 verbose #1508 > v2
00:00:55 verbose #1509 > and closure0 () (v0 : string) : (string -> bool) =
00:00:55 verbose #1510 > closure1(v0)
00:00:55 verbose #1511 > and closure3 (v0 : string) (v1 : string) : bool =
00:00:55 verbose #1512 > let v2 : bool = v1.EndsWith v0
00:00:55 verbose #1513 > v2
00:00:55 verbose #1514 > and closure2 () (v0 : string) : (string -> bool) =
00:00:55 verbose #1515 > closure3(v0)
00:00:55 verbose #1516 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:55 verbose #1517 > let v3 : string = v2.PadLeft (v0, v1)
00:00:55 verbose #1518 > v3
00:00:55 verbose #1519 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:55 verbose #1520 > closure6(v0, v1)
00:00:55 verbose #1521 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:55 verbose #1522 > closure5(v0)
00:00:55 verbose #1523 > and closure8 (v0 : int32) (v1 : string) : string =
00:00:55 verbose #1524 > let v2 : stri...
00:00:55 verbose #1525 >
00:00:55 verbose #1526 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #1527 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:55 verbose #1528 > type Mut0 = {mutable l0 : int32}
00:00:55 verbose #1529 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:55 verbose #1530 > let v2 : int32 = v1.l0
00:00:55 verbose #1531 > let v3 : bool = v2 < v0
00:00:55 verbose #1532 > v3
00:00:55 verbose #1533 > and method1 () : string =
00:00:55 verbose #1534 > let v0 : string = ""
00:00:55 verbose #1535 > v0
00:00:55 verbose #1536 > and closure0 () (v0 : string) : string =
00:00:55 verbose #1537 > let v1 : string option = None
00:00:55 verbose #1538 > let v2 : bool = true in let mutable _v1 = v1
00:00:55 verbose #1539 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:55 verbose #1540 > let v3 : string = null |> unbox<string>
00:00:55 verbose #1541 > v3
00:00:55 verbose #1542 > #endif
00:00:55 verbose #1543 > #if FABLE_COMPILER_RUST && WASM
00:00:55 verbose #1544 > let v4 : string = null |> unbox<string>
00:00:55 verbose #1545 > v4
00:00:55 verbose #1546 > #endif
00:00:55 verbose #1547 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:55 verbose #1548 > let v5 : string = null |> unbox<string>
00:00:55 verbose #1549 > v5
00:00:55 verbose #1550 > #endif
00:00:55 verbose #1551 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:00:55 verbose #1552 >
00:00:55 verbose #1553 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #1554 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:55 verbose #1555 > let v2 : (System.Guid -> string) = _.ToString()
00:00:55 verbose #1556 > let v3 : string = v2 v0
00:00:55 verbose #1557 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:55 verbose #1558 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:55 verbose #1559 > v5
00:00:55 verbose #1560 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:55 verbose #1561 > closure1(v0)
00:00:55 verbose #1562 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:55 verbose #1563 > let v3 : string = v2.Replace (v0, v1)
00:00:55 verbose #1564 > v3
00:00:55 verbose #1565 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:55 verbose #1566 > closure5(v0, v1)
00:00:55 verbose #1567 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:55 verbose #1568 > closure4(v0)
00:00:55 verbose #1569 > and method0 () : (string -> (string -> (string -> string))) =
00:00:55 verbose #1570 > closure3()
00:00:55 verbose #1571 > and closure2 (...
00:00:55 verbose #1572 >
00:00:55 verbose #1573 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #1574 > #if FABLE_COMPILER // async.types
00:00:55 verbose #1575 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:00:55 verbose #1576 > std_future_Future<'T> = class end
00:00:55 verbose #1577 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:00:55 verbose #1578 > futures_future_TryJoinAll<'T> = class end
00:00:55 verbose #1579 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:00:55 verbose #1580 > rayon_vec_IntoIter<'T> = class end
00:00:55 verbose #1581 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:00:55 verbose #1582 > rayon_iter_Map<'T> = class end
00:00:55 verbose #1583 > #endif // async.types
00:00:55 verbose #1584 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:55 verbose #1585 > Async<System.Threading.CancellationToken> =
00:00:55 verbose #1586 > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:55 verbose #1587 > let v2 : bool = true in let mutable _v1 = v1
00:00:55 verbose #1588 > #if FABLE_COMPILER_RUST ...
00:00:55 verbose #1589 >
00:00:55 verbose #1590 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #1591 > type [[<Struct>]] US0 =
00:00:55 verbose #1592 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:55 verbose #1593 > | US0_1
00:00:55 verbose #1594 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:00:55 verbose #1595 > US0_0(v0)
00:00:55 verbose #1596 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:00:55 verbose #1597 > closure1()
00:00:55 verbose #1598 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:55 verbose #1599 > let v1 : unit option = None
00:00:55 verbose #1600 > let v2 : bool = true in let mutable _v1 = v1
00:00:55 verbose #1601 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:55 verbose #1602 > null |> unbox<unit>
00:00:55 verbose #1603 > ()
00:00:55 verbose #1604 > #endif
00:00:55 verbose #1605 > #if FABLE_COMPILER_RUST && WASM
00:00:55 verbose #1606 > null |> unbox<unit>
00:00:55 verbose #1607 > ()
00:00:55 verbose #1608 > #endif
00:00:55 verbose #1609 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:55 verbose #1610 > null |> unbox<unit>
00:00:55 verbose #1611 > ()
00:00:55 verbose #1612 > #endif
00:00:55 verbose #1613 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:55 verbose #1614 > !WASM && !CONTRACT
00:00:55 verbose #1615 > ...
00:00:56 verbose #1616 >
00:00:56 verbose #1617 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:56 verbose #1618 > #if FABLE_COMPILER // networking.types
00:00:56 verbose #1619 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:56 verbose #1620 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:56 verbose #1621 > class end
00:00:56 verbose #1622 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:56 verbose #1623 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:56 verbose #1624 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:56 verbose #1625 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:56 verbose #1626 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:56 verbose #1627 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:56 verbose #1628 > class end
00:00:56 verbose #1629 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:56 verbose #1630 > [[<Fable.Core.Er...
00:00:57 verbose #1631 >
00:00:57 verbose #1632 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:57 verbose #1633 > #if FABLE_COMPILER // runtime.types
00:00:57 verbose #1634 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:57 verbose #1635 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:57 verbose #1636 > class end
00:00:57 verbose #1637 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:57 verbose #1638 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:57 verbose #1639 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:57 verbose #1640 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:57 verbose #1641 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:57 verbose #1642 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:57 verbose #1643 > class end
00:00:57 verbose #1644 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:57 verbose #1645 > [[<Fable.Core.Erase...
00:00:58 verbose #1646 >
00:00:58 verbose #1647 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:58 verbose #1648 > #if FABLE_COMPILER // file_system.types
00:00:58 verbose #1649 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:58 verbose #1650 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:58 verbose #1651 > base64_DecodeError = class end
00:00:58 verbose #1652 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:58 verbose #1653 > = class end
00:00:58 verbose #1654 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:58 verbose #1655 > = class end
00:00:58 verbose #1656 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:58 verbose #1657 > serde_json_Error = class end
00:00:58 verbose #1658 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:58 verbose #1659 > serde_json_Value = class end
00:00:58 verbose #1660 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:58 verbose #1661 > serde_wasm_bindgen_Error = class end
00:00:58 verbose #1662 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:00 verbose #1663 >
00:01:00 verbose #1664 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 verbose #1665 > #if FABLE_COMPILER // trace.types
00:01:00 verbose #1666 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:00 verbose #1667 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:00 verbose #1668 > class end
00:01:00 verbose #1669 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:00 verbose #1670 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:00 verbose #1671 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:00 verbose #1672 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:00 verbose #1673 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:00 verbose #1674 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:00 verbose #1675 > class end
00:01:00 verbose #1676 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:00 verbose #1677 > [[<Fable.Core.Erase; ...
00:01:01 verbose #1678 >
00:01:01 verbose #1679 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:01 verbose #1680 > module SpiralTrace =
00:01:01 verbose #1681 > let trace x =
00:01:01 verbose #1682 > #if !INTERACTIVE
00:01:01 verbose #1683 > Trace.trace x
00:01:01 verbose #1684 > #else
00:01:01 verbose #1685 > trace x
00:01:01 verbose #1686 > #endif
00:01:01 verbose #1687 >
00:01:01 verbose #1688 > type TraceLevel =
00:01:01 verbose #1689 > #if !INTERACTIVE
00:01:01 verbose #1690 > Trace.US0
00:01:01 verbose #1691 > #else
00:01:01 verbose #1692 > US0
00:01:01 verbose #1693 > #endif
00:01:01 verbose #1694 >
00:01:01 verbose #1695 > module SpiralCrypto =
00:01:01 verbose #1696 > let hash_text x =
00:01:01 verbose #1697 > #if !INTERACTIVE
00:01:01 verbose #1698 > Crypto.hash_text x
00:01:01 verbose #1699 > #else
00:01:01 verbose #1700 > hash_text x
00:01:01 verbose #1701 > #endif
00:01:01 verbose #1702 >
00:01:01 verbose #1703 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:01 verbose #1704 >
00:01:01 verbose #1705 > module SpiralAsync =
00:01:01 verbose #1706 > let merge_cancellation_token_with_default_async x =
00:01:01 verbose #1707 > #if !INTERACTIVE
00:01:01 verbose #1708 > Async_.merge_cancellation_token_with_default_async x
00:01:01 verbose #1709 > #else
00:01:01 verbose #1710 > merge_cancellation_token_with_default_async x
00:01:01 verbose #1711 > #endif
00:01:01 verbose #1712 >
00:01:01 verbose #1713 > module SpiralThreading =
00:01:01 verbose #1714 > let new_disposable_token x =
00:01:01 verbose #1715 > #if !INTERACTIVE
00:01:01 verbose #1716 > Threading.new_disposable_token x
00:01:01 verbose #1717 > #else
00:01:01 verbose #1718 > new_disposable_token x
00:01:01 verbose #1719 > #endif
00:01:01 verbose #1720 >
00:01:01 verbose #1721 > module Spi...
00:01:01 verbose #1722 >
00:01:01 verbose #1723 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:01 verbose #1724 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:01 verbose #1725 >
00:01:01 verbose #1726 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:01 verbose #1727 > //// test
00:01:01 verbose #1728 >
00:01:01 verbose #1729 > type AssertExceptionFormatter (ex) =
00:01:01 verbose #1730 > member _.Text =
00:01:01 verbose #1731 > ex.ToString()
00:01:01 verbose #1732 > .Replace("32m", "<span style=\"color: green;\">")
00:01:01 verbose #1733 > .Replace("36m", "</span>")
00:01:01 verbose #1734 > .Replace("31m", "<span style=\"color: red;\">")
00:01:01 verbose #1735 > .Replace("\n", "<br/>\n")
00:01:01 verbose #1736 >
00:01:01 verbose #1737 >
00:01:01 verbose #1738 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:01 verbose #1739 > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:01 verbose #1740 >
00:01:01 verbose #1741 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:01 verbose #1742 > //// test
00:01:01 verbose #1743 >
00:01:01 verbose #1744 > let inline __expect fn log expected actual =
00:01:01 verbose #1745 > if log then printfn $"{actual.ToDisplayString ()}"
00:01:01 verbose #1746 > try
00:01:01 verbose #1747 > "Testing.__expect" |> fn actual expected
00:01:01 verbose #1748 > with :? Expecto.AssertException as ex ->
00:01:01 verbose #1749 > AssertExceptionFormatter(ex).Display () |> ignore
00:01:01 verbose #1750 > failwith (ex.GetType().FullName)
00:01:01 verbose #1751 >
00:01:01 verbose #1752 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:01 verbose #1753 > expected actual
00:01:01 verbose #1754 > let inline _contains expected actual = __contains true expected actual
00:01:01 verbose #1755 >
00:01:01 verbose #1756 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:01 verbose #1757 > expected actual
00:01:01 verbose #1758 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:01 verbose #1759 >
00:01:01 verbose #1760 > let inline __isGreaterThan log expected actual = __expect
00:01:01 verbose #1761 > Expecto.Expect.isGreaterThan log ex...
00:01:01 verbose #1762 >
00:01:01 verbose #1763 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:01 verbose #1764 > //// test
00:01:01 verbose #1765 >
00:01:01 verbose #1766 > let inline __isBetween log a b actual =
00:01:01 verbose #1767 > let inline isBetween actual (a, b) _ =
00:01:01 verbose #1768 > __isGreaterThanOrEqual log a actual
00:01:01 verbose #1769 > __isLessThanOrEqual log b actual
00:01:01 verbose #1770 > __expect isBetween log (a, b) actual
00:01:01 verbose #1771 > let inline _isBetween a b actual = __isBetween true a b actual
00:01:01 verbose #1772 >
00:01:01 verbose #1773 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1774 > #if !INTERACTIVE
00:01:01 verbose #1775 > open Lib
00:01:01 verbose #1776 > #endif
00:01:01 verbose #1777 >
00:01:01 verbose #1778 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1779 > let nl = System.Environment.NewLine
00:01:01 verbose #1780 > let q = @""""
00:01:01 verbose #1781 >
00:01:01 verbose #1782 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1783 > let inline cons head tail = head :: tail
00:01:01 verbose #1784 >
00:01:01 verbose #1785 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #1786 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #1787 > │ ## memoize │
00:01:01 verbose #1788 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1789 >
00:01:01 verbose #1790 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1791 > let inline memoize fn =
00:01:01 verbose #1792 > let result = lazy fn ()
00:01:01 verbose #1793 > fun () -> result.Value
00:01:01 verbose #1794 >
00:01:01 verbose #1795 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #1796 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #1797 > │ ## TraceLevel │
00:01:01 verbose #1798 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1799 >
00:01:01 verbose #1800 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1801 > type TraceLevel =
00:01:01 verbose #1802 > | Verbose
00:01:01 verbose #1803 > | Debug
00:01:01 verbose #1804 > | Info
00:01:01 verbose #1805 > | Warning
00:01:01 verbose #1806 > | Critical
00:01:01 verbose #1807 >
00:01:01 verbose #1808 > let inline _locals () = ""
00:01:01 verbose #1809 >
00:01:01 verbose #1810 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #1811 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #1812 > │ ## trace │
00:01:01 verbose #1813 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1814 >
00:01:01 verbose #1815 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1816 > let to_trace_level = function
00:01:01 verbose #1817 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:01 verbose #1818 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:01 verbose #1819 > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:01 verbose #1820 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:01 verbose #1821 > | Critical -> SpiralTrace.TraceLevel.US0_4
00:01:01 verbose #1822 >
00:01:01 verbose #1823 > let trace level fn locals =
00:01:01 verbose #1824 > let level = level |> to_trace_level
00:01:01 verbose #1825 > SpiralTrace.trace level fn locals
00:01:01 verbose #1826 >
00:01:01 verbose #1827 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1828 > //// test
00:01:01 verbose #1829 >
00:01:01 verbose #1830 > trace Debug (fun () -> "test") _locals
00:01:01 verbose #1831 >
00:01:01 verbose #1832 > ╭─[ 20.57ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:01 verbose #1833 > │ 00:00:00 debug #1 test │
00:01:01 verbose #1834 > │ │
00:01:01 verbose #1835 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #1836 > [NbConvertApp] Converting notebook Common.dib.ipynb to html
00:01:03 verbose #1837 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:03 verbose #1838 > validate(nb)
00:01:04 verbose #1839 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:04 verbose #1840 > return _pygments_highlight(
00:01:04 verbose #1841 > [NbConvertApp] Writing 280690 bytes to Common.dib.html
00:01:04 debug #1842 execute_with_options_async / exit_code: 0 / output.Length: 16286
00:01:04 debug #5 main / executeCommand / exitCode: 0
00:01:04 debug #1843 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 CommonFSharp.dib" -Retries 3",
None, None)
00:01:05 verbose #1844 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: CommonFSharp.dib / _args: [
00:01:05 verbose #1845 > "-Retries",
00:01:05 verbose #1846 > 3
00:01:05 verbose #1847 > ]
00:01:07 verbose #1848 >
00:01:07 verbose #1849 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:07 verbose #1850 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:07 verbose #1851 > │ # CommonFSharp (Polyglot) │
00:01:07 verbose #1852 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:07 verbose #1853 >
00:01:07 verbose #1854 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:07 verbose #1855 > #!import ../../lib/fsharp/Notebooks.dib
00:01:07 verbose #1856 > #!import ../../lib/fsharp/Testing.dib
00:01:07 verbose #1857 >
00:01:07 verbose #1858 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:07 verbose #1859 > #r
00:01:07 verbose #1860 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:07 verbose #1861 > spNetCore.Html.Abstractions.dll"
00:01:07 verbose #1862 > #r
00:01:07 verbose #1863 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:07 verbose #1864 > otNet.Interactive.dll"
00:01:07 verbose #1865 > #r
00:01:07 verbose #1866 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:07 verbose #1867 > otNet.Interactive.FSharp.dll"
00:01:07 verbose #1868 > #r
00:01:07 verbose #1869 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:07 verbose #1870 > otNet.Interactive.Formatting.dll"
00:01:07 verbose #1871 > open System
00:01:07 verbose #1872 > open System.IO
00:01:07 verbose #1873 > open System.Text
00:01:07 verbose #1874 > open Microsoft.DotNet.Interactive.Formatting
00:01:10 verbose #1875 >
00:01:10 verbose #1876 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 verbose #1877 > #r
00:01:10 verbose #1878 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:10 verbose #1879 > otNet.Interactive.FSharp.dll"
00:01:10 verbose #1880 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:10 verbose #1881 > #r
00:01:10 verbose #1882 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:10 verbose #1883 > otNet.Interactive.dll"
00:01:10 verbose #1884 > open type Microsoft.DotNet.Interactive.Kernel
00:01:11 verbose #1885 >
00:01:11 verbose #1886 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 verbose #1887 > //// test
00:01:11 verbose #1888 >
00:01:11 verbose #1889 > Formatter.ListExpansionLimit <- 100
00:01:11 verbose #1890 >
00:01:11 verbose #1891 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 verbose #1892 > #if FABLE_COMPILER // common.types
00:01:11 verbose #1893 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:11 verbose #1894 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:11 verbose #1895 > class end
00:01:11 verbose #1896 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:11 verbose #1897 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:11 verbose #1898 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:11 verbose #1899 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:11 verbose #1900 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:11 verbose #1901 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:11 verbose #1902 > class end
00:01:11 verbose #1903 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:11 verbose #1904 > [[<Fable.Core.Erase;...
00:01:13 verbose #1905 >
00:01:13 verbose #1906 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #1907 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:01:13 verbose #1908 > and Mut1 = {mutable l0 : int32}
00:01:13 verbose #1909 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:01:13 verbose #1910 > let v2 : bool = v1.Contains v0
00:01:13 verbose #1911 > v2
00:01:13 verbose #1912 > and closure0 () (v0 : string) : (string -> bool) =
00:01:13 verbose #1913 > closure1(v0)
00:01:13 verbose #1914 > and closure3 (v0 : string) (v1 : string) : bool =
00:01:13 verbose #1915 > let v2 : bool = v1.EndsWith v0
00:01:13 verbose #1916 > v2
00:01:13 verbose #1917 > and closure2 () (v0 : string) : (string -> bool) =
00:01:13 verbose #1918 > closure3(v0)
00:01:13 verbose #1919 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:01:13 verbose #1920 > let v3 : string = v2.PadLeft (v0, v1)
00:01:13 verbose #1921 > v3
00:01:13 verbose #1922 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:01:13 verbose #1923 > closure6(v0, v1)
00:01:13 verbose #1924 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:01:13 verbose #1925 > closure5(v0)
00:01:13 verbose #1926 > and closure8 (v0 : int32) (v1 : string) : string =
00:01:13 verbose #1927 > let v2 : stri...
00:01:13 verbose #1928 >
00:01:13 verbose #1929 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #1930 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:01:13 verbose #1931 > type Mut0 = {mutable l0 : int32}
00:01:13 verbose #1932 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:01:13 verbose #1933 > let v2 : int32 = v1.l0
00:01:13 verbose #1934 > let v3 : bool = v2 < v0
00:01:13 verbose #1935 > v3
00:01:13 verbose #1936 > and method1 () : string =
00:01:13 verbose #1937 > let v0 : string = ""
00:01:13 verbose #1938 > v0
00:01:13 verbose #1939 > and closure0 () (v0 : string) : string =
00:01:13 verbose #1940 > let v1 : string option = None
00:01:13 verbose #1941 > let v2 : bool = true in let mutable _v1 = v1
00:01:13 verbose #1942 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:13 verbose #1943 > let v3 : string = null |> unbox<string>
00:01:13 verbose #1944 > v3
00:01:13 verbose #1945 > #endif
00:01:13 verbose #1946 > #if FABLE_COMPILER_RUST && WASM
00:01:13 verbose #1947 > let v4 : string = null |> unbox<string>
00:01:13 verbose #1948 > v4
00:01:13 verbose #1949 > #endif
00:01:13 verbose #1950 > #if FABLE_COMPILER_RUST && CONTRACT
00:01:13 verbose #1951 > let v5 : string = null |> unbox<string>
00:01:13 verbose #1952 > v5
00:01:13 verbose #1953 > #endif
00:01:13 verbose #1954 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:01:13 verbose #1955 >
00:01:13 verbose #1956 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #1957 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:01:13 verbose #1958 > let v2 : (System.Guid -> string) = _.ToString()
00:01:13 verbose #1959 > let v3 : string = v2 v0
00:01:13 verbose #1960 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:01:13 verbose #1961 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:01:13 verbose #1962 > v5
00:01:13 verbose #1963 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:01:13 verbose #1964 > closure1(v0)
00:01:13 verbose #1965 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:01:13 verbose #1966 > let v3 : string = v2.Replace (v0, v1)
00:01:13 verbose #1967 > v3
00:01:13 verbose #1968 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:01:13 verbose #1969 > closure5(v0, v1)
00:01:13 verbose #1970 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:01:13 verbose #1971 > closure4(v0)
00:01:13 verbose #1972 > and method0 () : (string -> (string -> (string -> string))) =
00:01:13 verbose #1973 > closure3()
00:01:13 verbose #1974 > and closure2 (...
00:01:13 verbose #1975 >
00:01:13 verbose #1976 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #1977 > #if FABLE_COMPILER // async.types
00:01:13 verbose #1978 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:01:13 verbose #1979 > std_future_Future<'T> = class end
00:01:13 verbose #1980 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:01:13 verbose #1981 > futures_future_TryJoinAll<'T> = class end
00:01:13 verbose #1982 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:01:13 verbose #1983 > rayon_vec_IntoIter<'T> = class end
00:01:13 verbose #1984 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:01:13 verbose #1985 > rayon_iter_Map<'T> = class end
00:01:13 verbose #1986 > #endif // async.types
00:01:13 verbose #1987 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:13 verbose #1988 > Async<System.Threading.CancellationToken> =
00:01:13 verbose #1989 > let v1 : Async<System.Threading.CancellationToken> option = None
00:01:13 verbose #1990 > let v2 : bool = true in let mutable _v1 = v1
00:01:13 verbose #1991 > #if FABLE_COMPILER_RUST ...
00:01:13 verbose #1992 >
00:01:13 verbose #1993 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #1994 > type [[<Struct>]] US0 =
00:01:13 verbose #1995 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:01:13 verbose #1996 > | US0_1
00:01:13 verbose #1997 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:01:13 verbose #1998 > US0_0(v0)
00:01:13 verbose #1999 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:01:13 verbose #2000 > closure1()
00:01:13 verbose #2001 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:01:13 verbose #2002 > let v1 : unit option = None
00:01:13 verbose #2003 > let v2 : bool = true in let mutable _v1 = v1
00:01:13 verbose #2004 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:13 verbose #2005 > null |> unbox<unit>
00:01:13 verbose #2006 > ()
00:01:13 verbose #2007 > #endif
00:01:13 verbose #2008 > #if FABLE_COMPILER_RUST && WASM
00:01:13 verbose #2009 > null |> unbox<unit>
00:01:13 verbose #2010 > ()
00:01:13 verbose #2011 > #endif
00:01:13 verbose #2012 > #if FABLE_COMPILER_RUST && CONTRACT
00:01:13 verbose #2013 > null |> unbox<unit>
00:01:13 verbose #2014 > ()
00:01:13 verbose #2015 > #endif
00:01:13 verbose #2016 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:13 verbose #2017 > !WASM && !CONTRACT
00:01:13 verbose #2018 > ...
00:01:14 verbose #2019 >
00:01:14 verbose #2020 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 verbose #2021 > #if FABLE_COMPILER // networking.types
00:01:14 verbose #2022 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:14 verbose #2023 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:14 verbose #2024 > class end
00:01:14 verbose #2025 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:14 verbose #2026 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:14 verbose #2027 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:14 verbose #2028 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:14 verbose #2029 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:14 verbose #2030 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:14 verbose #2031 > class end
00:01:14 verbose #2032 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:14 verbose #2033 > [[<Fable.Core.Er...
00:01:15 verbose #2034 >
00:01:15 verbose #2035 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:15 verbose #2036 > #if FABLE_COMPILER // runtime.types
00:01:15 verbose #2037 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:15 verbose #2038 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:15 verbose #2039 > class end
00:01:15 verbose #2040 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:15 verbose #2041 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:15 verbose #2042 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:15 verbose #2043 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:15 verbose #2044 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:15 verbose #2045 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:15 verbose #2046 > class end
00:01:15 verbose #2047 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:15 verbose #2048 > [[<Fable.Core.Erase...
00:01:16 verbose #2049 >
00:01:16 verbose #2050 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:16 verbose #2051 > #if FABLE_COMPILER // file_system.types
00:01:16 verbose #2052 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:01:16 verbose #2053 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:01:16 verbose #2054 > base64_DecodeError = class end
00:01:16 verbose #2055 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:01:16 verbose #2056 > = class end
00:01:16 verbose #2057 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:01:16 verbose #2058 > = class end
00:01:16 verbose #2059 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:01:16 verbose #2060 > serde_json_Error = class end
00:01:16 verbose #2061 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:01:16 verbose #2062 > serde_json_Value = class end
00:01:16 verbose #2063 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:01:16 verbose #2064 > serde_wasm_bindgen_Error = class end
00:01:16 verbose #2065 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:18 verbose #2066 >
00:01:18 verbose #2067 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:18 verbose #2068 > #if FABLE_COMPILER // trace.types
00:01:18 verbose #2069 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:18 verbose #2070 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:18 verbose #2071 > class end
00:01:18 verbose #2072 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:18 verbose #2073 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:18 verbose #2074 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:18 verbose #2075 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:18 verbose #2076 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:18 verbose #2077 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:18 verbose #2078 > class end
00:01:18 verbose #2079 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:18 verbose #2080 > [[<Fable.Core.Erase; ...
00:01:18 verbose #2081 >
00:01:18 verbose #2082 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:18 verbose #2083 > module SpiralTrace =
00:01:18 verbose #2084 > let trace x =
00:01:18 verbose #2085 > #if !INTERACTIVE
00:01:18 verbose #2086 > Trace.trace x
00:01:18 verbose #2087 > #else
00:01:18 verbose #2088 > trace x
00:01:18 verbose #2089 > #endif
00:01:18 verbose #2090 >
00:01:18 verbose #2091 > type TraceLevel =
00:01:18 verbose #2092 > #if !INTERACTIVE
00:01:18 verbose #2093 > Trace.US0
00:01:18 verbose #2094 > #else
00:01:18 verbose #2095 > US0
00:01:18 verbose #2096 > #endif
00:01:18 verbose #2097 >
00:01:18 verbose #2098 > module SpiralCrypto =
00:01:18 verbose #2099 > let hash_text x =
00:01:18 verbose #2100 > #if !INTERACTIVE
00:01:18 verbose #2101 > Crypto.hash_text x
00:01:18 verbose #2102 > #else
00:01:18 verbose #2103 > hash_text x
00:01:18 verbose #2104 > #endif
00:01:18 verbose #2105 >
00:01:18 verbose #2106 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:18 verbose #2107 >
00:01:18 verbose #2108 > module SpiralAsync =
00:01:18 verbose #2109 > let merge_cancellation_token_with_default_async x =
00:01:18 verbose #2110 > #if !INTERACTIVE
00:01:18 verbose #2111 > Async_.merge_cancellation_token_with_default_async x
00:01:18 verbose #2112 > #else
00:01:18 verbose #2113 > merge_cancellation_token_with_default_async x
00:01:18 verbose #2114 > #endif
00:01:18 verbose #2115 >
00:01:18 verbose #2116 > module SpiralThreading =
00:01:18 verbose #2117 > let new_disposable_token x =
00:01:18 verbose #2118 > #if !INTERACTIVE
00:01:18 verbose #2119 > Threading.new_disposable_token x
00:01:18 verbose #2120 > #else
00:01:18 verbose #2121 > new_disposable_token x
00:01:18 verbose #2122 > #endif
00:01:18 verbose #2123 >
00:01:18 verbose #2124 > module Spi...
00:01:18 verbose #2125 >
00:01:18 verbose #2126 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:18 verbose #2127 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:18 verbose #2128 >
00:01:18 verbose #2129 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:18 verbose #2130 > //// test
00:01:18 verbose #2131 >
00:01:18 verbose #2132 > type AssertExceptionFormatter (ex) =
00:01:18 verbose #2133 > member _.Text =
00:01:18 verbose #2134 > ex.ToString()
00:01:18 verbose #2135 > .Replace("32m", "<span style=\"color: green;\">")
00:01:18 verbose #2136 > .Replace("36m", "</span>")
00:01:18 verbose #2137 > .Replace("31m", "<span style=\"color: red;\">")
00:01:18 verbose #2138 > .Replace("\n", "<br/>\n")
00:01:18 verbose #2139 >
00:01:18 verbose #2140 >
00:01:18 verbose #2141 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:18 verbose #2142 > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:19 verbose #2143 >
00:01:19 verbose #2144 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #2145 > //// test
00:01:19 verbose #2146 >
00:01:19 verbose #2147 > let inline __expect fn log expected actual =
00:01:19 verbose #2148 > if log then printfn $"{actual.ToDisplayString ()}"
00:01:19 verbose #2149 > try
00:01:19 verbose #2150 > "Testing.__expect" |> fn actual expected
00:01:19 verbose #2151 > with :? Expecto.AssertException as ex ->
00:01:19 verbose #2152 > AssertExceptionFormatter(ex).Display () |> ignore
00:01:19 verbose #2153 > failwith (ex.GetType().FullName)
00:01:19 verbose #2154 >
00:01:19 verbose #2155 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:19 verbose #2156 > expected actual
00:01:19 verbose #2157 > let inline _contains expected actual = __contains true expected actual
00:01:19 verbose #2158 >
00:01:19 verbose #2159 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:19 verbose #2160 > expected actual
00:01:19 verbose #2161 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:19 verbose #2162 >
00:01:19 verbose #2163 > let inline __isGreaterThan log expected actual = __expect
00:01:19 verbose #2164 > Expecto.Expect.isGreaterThan log ex...
00:01:19 verbose #2165 >
00:01:19 verbose #2166 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #2167 > //// test
00:01:19 verbose #2168 >
00:01:19 verbose #2169 > let inline __isBetween log a b actual =
00:01:19 verbose #2170 > let inline isBetween actual (a, b) _ =
00:01:19 verbose #2171 > __isGreaterThanOrEqual log a actual
00:01:19 verbose #2172 > __isLessThanOrEqual log b actual
00:01:19 verbose #2173 > __expect isBetween log (a, b) actual
00:01:19 verbose #2174 > let inline _isBetween a b actual = __isBetween true a b actual
00:01:19 verbose #2175 >
00:01:19 verbose #2176 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #2177 > #!import ../../lib/fsharp/Common.fs
00:01:19 verbose #2178 >
00:01:19 verbose #2179 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #2180 > #if !INTERACTIVE
00:01:19 verbose #2181 > namespace Polyglot
00:01:19 verbose #2182 > #endif
00:01:19 verbose #2183 >
00:01:19 verbose #2184 > module Common =
00:01:19 verbose #2185 >
00:01:19 verbose #2186 > #if !INTERACTIVE
00:01:19 verbose #2187 > open Lib
00:01:19 verbose #2188 > #endif
00:01:19 verbose #2189 >
00:01:19 verbose #2190 > let nl = System.Environment.NewLine
00:01:19 verbose #2191 > let q = @""""
00:01:19 verbose #2192 >
00:01:19 verbose #2193 > let inline cons head tail = head :: tail
00:01:19 verbose #2194 >
00:01:19 verbose #2195 > /// ## memoize
00:01:19 verbose #2196 > let inline memoize fn =
00:01:19 verbose #2197 > let result = lazy fn ()
00:01:19 verbose #2198 > fun () -> result.Value
00:01:19 verbose #2199 >
00:01:19 verbose #2200 > /// ## TraceLevel
00:01:19 verbose #2201 > type TraceLevel =
00:01:19 verbose #2202 > | Verbose
00:01:19 verbose #2203 > | Debug
00:01:19 verbose #2204 > | Info
00:01:19 verbose #2205 > | Warning
00:01:19 verbose #2206 > | Critical
00:01:19 verbose #2207 >
00:01:19 verbose #2208 > let inline _locals () = ""
00:01:19 verbose #2209 >
00:01:19 verbose #2210 > /// ## trace
00:01:19 verbose #2211 > let to_trace_level = function
00:01:19 verbose #2212 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:19 verbose #2213 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:19 verbose #2214 > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:19 verbose #2215 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:19 verbose #2216 > | Critical -> Spir...
00:01:19 verbose #2217 >
00:01:19 verbose #2218 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #2219 > open Common
00:01:19 verbose #2220 >
00:01:19 verbose #2221 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 verbose #2222 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 verbose #2223 > │ ## getUnionCaseName │
00:01:19 verbose #2224 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #2225 >
00:01:19 verbose #2226 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #2227 > let inline getUnionCaseName<'T> (x: 'T) =
00:01:19 verbose #2228 > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:19 verbose #2229 > | case, _ -> case.Name
00:01:19 verbose #2230 >
00:01:19 verbose #2231 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #2232 > //// test
00:01:19 verbose #2233 >
00:01:19 verbose #2234 > TraceLevel.Critical
00:01:19 verbose #2235 > |> getUnionCaseName
00:01:19 verbose #2236 > |> _assertEqual (nameof TraceLevel.Critical)
00:01:19 verbose #2237 >
00:01:19 verbose #2238 > ╭─[ 61.10ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:19 verbose #2239 > │ Critical │
00:01:19 verbose #2240 > │ │
00:01:19 verbose #2241 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2242 > [NbConvertApp] Converting notebook CommonFSharp.dib.ipynb to html
00:01:21 verbose #2243 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:21 verbose #2244 > validate(nb)
00:01:21 verbose #2245 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:21 verbose #2246 > return _pygments_highlight(
00:01:21 verbose #2247 > [NbConvertApp] Writing 275588 bytes to CommonFSharp.dib.html
00:01:22 debug #2248 execute_with_options_async / exit_code: 0 / output.Length: 15797
00:01:22 debug #6 main / executeCommand / exitCode: 0
00:01:22 debug #2249 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 FileSystem.dib -Retries 3"", None,
None)
00:01:23 verbose #2250 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: FileSystem.dib / _args: [
00:01:23 verbose #2251 > "-Retries",
00:01:23 verbose #2252 > 3
00:01:23 verbose #2253 > ]
00:01:24 verbose #2254 >
00:01:25 verbose #2255 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:25 verbose #2256 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:25 verbose #2257 > │ # FileSystem (Polyglot) │
00:01:25 verbose #2258 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:25 verbose #2259 >
00:01:25 verbose #2260 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:25 verbose #2261 > #!import ../../lib/fsharp/Notebooks.dib
00:01:25 verbose #2262 > #!import ../../lib/fsharp/Testing.dib
00:01:25 verbose #2263 >
00:01:25 verbose #2264 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:25 verbose #2265 > #r
00:01:25 verbose #2266 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:25 verbose #2267 > spNetCore.Html.Abstractions.dll"
00:01:25 verbose #2268 > #r
00:01:25 verbose #2269 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:25 verbose #2270 > otNet.Interactive.dll"
00:01:25 verbose #2271 > #r
00:01:25 verbose #2272 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:25 verbose #2273 > otNet.Interactive.FSharp.dll"
00:01:25 verbose #2274 > #r
00:01:25 verbose #2275 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:25 verbose #2276 > otNet.Interactive.Formatting.dll"
00:01:25 verbose #2277 > open System
00:01:25 verbose #2278 > open System.IO
00:01:25 verbose #2279 > open System.Text
00:01:25 verbose #2280 > open Microsoft.DotNet.Interactive.Formatting
00:01:28 verbose #2281 >
00:01:28 verbose #2282 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 verbose #2283 > #r
00:01:28 verbose #2284 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:28 verbose #2285 > otNet.Interactive.FSharp.dll"
00:01:28 verbose #2286 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:28 verbose #2287 > #r
00:01:28 verbose #2288 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:28 verbose #2289 > otNet.Interactive.dll"
00:01:28 verbose #2290 > open type Microsoft.DotNet.Interactive.Kernel
00:01:28 verbose #2291 >
00:01:28 verbose #2292 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 verbose #2293 > //// test
00:01:28 verbose #2294 >
00:01:28 verbose #2295 > Formatter.ListExpansionLimit <- 100
00:01:29 verbose #2296 >
00:01:29 verbose #2297 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 verbose #2298 > #if FABLE_COMPILER // common.types
00:01:29 verbose #2299 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:29 verbose #2300 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:29 verbose #2301 > class end
00:01:29 verbose #2302 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:29 verbose #2303 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:29 verbose #2304 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:29 verbose #2305 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:29 verbose #2306 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:29 verbose #2307 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:29 verbose #2308 > class end
00:01:29 verbose #2309 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:29 verbose #2310 > [[<Fable.Core.Erase;...
00:01:30 verbose #2311 >
00:01:30 verbose #2312 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:30 verbose #2313 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:01:30 verbose #2314 > and Mut1 = {mutable l0 : int32}
00:01:30 verbose #2315 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:01:30 verbose #2316 > let v2 : bool = v1.Contains v0
00:01:30 verbose #2317 > v2
00:01:30 verbose #2318 > and closure0 () (v0 : string) : (string -> bool) =
00:01:30 verbose #2319 > closure1(v0)
00:01:30 verbose #2320 > and closure3 (v0 : string) (v1 : string) : bool =
00:01:30 verbose #2321 > let v2 : bool = v1.EndsWith v0
00:01:30 verbose #2322 > v2
00:01:30 verbose #2323 > and closure2 () (v0 : string) : (string -> bool) =
00:01:30 verbose #2324 > closure3(v0)
00:01:30 verbose #2325 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:01:30 verbose #2326 > let v3 : string = v2.PadLeft (v0, v1)
00:01:30 verbose #2327 > v3
00:01:30 verbose #2328 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:01:30 verbose #2329 > closure6(v0, v1)
00:01:30 verbose #2330 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:01:30 verbose #2331 > closure5(v0)
00:01:30 verbose #2332 > and closure8 (v0 : int32) (v1 : string) : string =
00:01:30 verbose #2333 > let v2 : stri...
00:01:31 verbose #2334 >
00:01:31 verbose #2335 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:31 verbose #2336 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:01:31 verbose #2337 > type Mut0 = {mutable l0 : int32}
00:01:31 verbose #2338 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:01:31 verbose #2339 > let v2 : int32 = v1.l0
00:01:31 verbose #2340 > let v3 : bool = v2 < v0
00:01:31 verbose #2341 > v3
00:01:31 verbose #2342 > and method1 () : string =
00:01:31 verbose #2343 > let v0 : string = ""
00:01:31 verbose #2344 > v0
00:01:31 verbose #2345 > and closure0 () (v0 : string) : string =
00:01:31 verbose #2346 > let v1 : string option = None
00:01:31 verbose #2347 > let v2 : bool = true in let mutable _v1 = v1
00:01:31 verbose #2348 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:31 verbose #2349 > let v3 : string = null |> unbox<string>
00:01:31 verbose #2350 > v3
00:01:31 verbose #2351 > #endif
00:01:31 verbose #2352 > #if FABLE_COMPILER_RUST && WASM
00:01:31 verbose #2353 > let v4 : string = null |> unbox<string>
00:01:31 verbose #2354 > v4
00:01:31 verbose #2355 > #endif
00:01:31 verbose #2356 > #if FABLE_COMPILER_RUST && CONTRACT
00:01:31 verbose #2357 > let v5 : string = null |> unbox<string>
00:01:31 verbose #2358 > v5
00:01:31 verbose #2359 > #endif
00:01:31 verbose #2360 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:01:31 verbose #2361 >
00:01:31 verbose #2362 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:31 verbose #2363 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:01:31 verbose #2364 > let v2 : (System.Guid -> string) = _.ToString()
00:01:31 verbose #2365 > let v3 : string = v2 v0
00:01:31 verbose #2366 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:01:31 verbose #2367 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:01:31 verbose #2368 > v5
00:01:31 verbose #2369 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:01:31 verbose #2370 > closure1(v0)
00:01:31 verbose #2371 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:01:31 verbose #2372 > let v3 : string = v2.Replace (v0, v1)
00:01:31 verbose #2373 > v3
00:01:31 verbose #2374 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:01:31 verbose #2375 > closure5(v0, v1)
00:01:31 verbose #2376 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:01:31 verbose #2377 > closure4(v0)
00:01:31 verbose #2378 > and method0 () : (string -> (string -> (string -> string))) =
00:01:31 verbose #2379 > closure3()
00:01:31 verbose #2380 > and closure2 (...
00:01:31 verbose #2381 >
00:01:31 verbose #2382 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:31 verbose #2383 > #if FABLE_COMPILER // async.types
00:01:31 verbose #2384 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:01:31 verbose #2385 > std_future_Future<'T> = class end
00:01:31 verbose #2386 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:01:31 verbose #2387 > futures_future_TryJoinAll<'T> = class end
00:01:31 verbose #2388 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:01:31 verbose #2389 > rayon_vec_IntoIter<'T> = class end
00:01:31 verbose #2390 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:01:31 verbose #2391 > rayon_iter_Map<'T> = class end
00:01:31 verbose #2392 > #endif // async.types
00:01:31 verbose #2393 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:31 verbose #2394 > Async<System.Threading.CancellationToken> =
00:01:31 verbose #2395 > let v1 : Async<System.Threading.CancellationToken> option = None
00:01:31 verbose #2396 > let v2 : bool = true in let mutable _v1 = v1
00:01:31 verbose #2397 > #if FABLE_COMPILER_RUST ...
00:01:31 verbose #2398 >
00:01:31 verbose #2399 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:31 verbose #2400 > type [[<Struct>]] US0 =
00:01:31 verbose #2401 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:01:31 verbose #2402 > | US0_1
00:01:31 verbose #2403 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:01:31 verbose #2404 > US0_0(v0)
00:01:31 verbose #2405 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:01:31 verbose #2406 > closure1()
00:01:31 verbose #2407 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:01:31 verbose #2408 > let v1 : unit option = None
00:01:31 verbose #2409 > let v2 : bool = true in let mutable _v1 = v1
00:01:31 verbose #2410 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:31 verbose #2411 > null |> unbox<unit>
00:01:31 verbose #2412 > ()
00:01:31 verbose #2413 > #endif
00:01:31 verbose #2414 > #if FABLE_COMPILER_RUST && WASM
00:01:31 verbose #2415 > null |> unbox<unit>
00:01:31 verbose #2416 > ()
00:01:31 verbose #2417 > #endif
00:01:31 verbose #2418 > #if FABLE_COMPILER_RUST && CONTRACT
00:01:31 verbose #2419 > null |> unbox<unit>
00:01:31 verbose #2420 > ()
00:01:31 verbose #2421 > #endif
00:01:31 verbose #2422 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:31 verbose #2423 > !WASM && !CONTRACT
00:01:31 verbose #2424 > ...
00:01:31 verbose #2425 >
00:01:31 verbose #2426 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:31 verbose #2427 > #if FABLE_COMPILER // networking.types
00:01:31 verbose #2428 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:31 verbose #2429 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:31 verbose #2430 > class end
00:01:31 verbose #2431 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:31 verbose #2432 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:31 verbose #2433 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:31 verbose #2434 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:31 verbose #2435 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:31 verbose #2436 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:31 verbose #2437 > class end
00:01:31 verbose #2438 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:31 verbose #2439 > [[<Fable.Core.Er...
00:01:33 verbose #2440 >
00:01:33 verbose #2441 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:33 verbose #2442 > #if FABLE_COMPILER // runtime.types
00:01:33 verbose #2443 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:33 verbose #2444 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:33 verbose #2445 > class end
00:01:33 verbose #2446 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:33 verbose #2447 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:33 verbose #2448 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:33 verbose #2449 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:33 verbose #2450 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:33 verbose #2451 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:33 verbose #2452 > class end
00:01:33 verbose #2453 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:33 verbose #2454 > [[<Fable.Core.Erase...
00:01:34 verbose #2455 >
00:01:34 verbose #2456 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:34 verbose #2457 > #if FABLE_COMPILER // file_system.types
00:01:34 verbose #2458 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:01:34 verbose #2459 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:01:34 verbose #2460 > base64_DecodeError = class end
00:01:34 verbose #2461 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:01:34 verbose #2462 > = class end
00:01:34 verbose #2463 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:01:34 verbose #2464 > = class end
00:01:34 verbose #2465 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:01:34 verbose #2466 > serde_json_Error = class end
00:01:34 verbose #2467 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:01:34 verbose #2468 > serde_json_Value = class end
00:01:34 verbose #2469 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:01:34 verbose #2470 > serde_wasm_bindgen_Error = class end
00:01:34 verbose #2471 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:36 verbose #2472 >
00:01:36 verbose #2473 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:36 verbose #2474 > #if FABLE_COMPILER // trace.types
00:01:36 verbose #2475 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:01:36 verbose #2476 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:01:36 verbose #2477 > class end
00:01:36 verbose #2478 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:01:36 verbose #2479 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:01:36 verbose #2480 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:01:36 verbose #2481 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:01:36 verbose #2482 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:01:36 verbose #2483 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:01:36 verbose #2484 > class end
00:01:36 verbose #2485 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:01:36 verbose #2486 > [[<Fable.Core.Erase; ...
00:01:36 verbose #2487 >
00:01:36 verbose #2488 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:36 verbose #2489 > module SpiralTrace =
00:01:36 verbose #2490 > let trace x =
00:01:36 verbose #2491 > #if !INTERACTIVE
00:01:36 verbose #2492 > Trace.trace x
00:01:36 verbose #2493 > #else
00:01:36 verbose #2494 > trace x
00:01:36 verbose #2495 > #endif
00:01:36 verbose #2496 >
00:01:36 verbose #2497 > type TraceLevel =
00:01:36 verbose #2498 > #if !INTERACTIVE
00:01:36 verbose #2499 > Trace.US0
00:01:36 verbose #2500 > #else
00:01:36 verbose #2501 > US0
00:01:36 verbose #2502 > #endif
00:01:36 verbose #2503 >
00:01:36 verbose #2504 > module SpiralCrypto =
00:01:36 verbose #2505 > let hash_text x =
00:01:36 verbose #2506 > #if !INTERACTIVE
00:01:36 verbose #2507 > Crypto.hash_text x
00:01:36 verbose #2508 > #else
00:01:36 verbose #2509 > hash_text x
00:01:36 verbose #2510 > #endif
00:01:36 verbose #2511 >
00:01:36 verbose #2512 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:36 verbose #2513 >
00:01:36 verbose #2514 > module SpiralAsync =
00:01:36 verbose #2515 > let merge_cancellation_token_with_default_async x =
00:01:36 verbose #2516 > #if !INTERACTIVE
00:01:36 verbose #2517 > Async_.merge_cancellation_token_with_default_async x
00:01:36 verbose #2518 > #else
00:01:36 verbose #2519 > merge_cancellation_token_with_default_async x
00:01:36 verbose #2520 > #endif
00:01:36 verbose #2521 >
00:01:36 verbose #2522 > module SpiralThreading =
00:01:36 verbose #2523 > let new_disposable_token x =
00:01:36 verbose #2524 > #if !INTERACTIVE
00:01:36 verbose #2525 > Threading.new_disposable_token x
00:01:36 verbose #2526 > #else
00:01:36 verbose #2527 > new_disposable_token x
00:01:36 verbose #2528 > #endif
00:01:36 verbose #2529 >
00:01:36 verbose #2530 > module Spi...
00:01:37 verbose #2531 >
00:01:37 verbose #2532 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2533 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:37 verbose #2534 >
00:01:37 verbose #2535 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2536 > //// test
00:01:37 verbose #2537 >
00:01:37 verbose #2538 > type AssertExceptionFormatter (ex) =
00:01:37 verbose #2539 > member _.Text =
00:01:37 verbose #2540 > ex.ToString()
00:01:37 verbose #2541 > .Replace("32m", "<span style=\"color: green;\">")
00:01:37 verbose #2542 > .Replace("36m", "</span>")
00:01:37 verbose #2543 > .Replace("31m", "<span style=\"color: red;\">")
00:01:37 verbose #2544 > .Replace("\n", "<br/>\n")
00:01:37 verbose #2545 >
00:01:37 verbose #2546 >
00:01:37 verbose #2547 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:37 verbose #2548 > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:37 verbose #2549 >
00:01:37 verbose #2550 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2551 > //// test
00:01:37 verbose #2552 >
00:01:37 verbose #2553 > let inline __expect fn log expected actual =
00:01:37 verbose #2554 > if log then printfn $"{actual.ToDisplayString ()}"
00:01:37 verbose #2555 > try
00:01:37 verbose #2556 > "Testing.__expect" |> fn actual expected
00:01:37 verbose #2557 > with :? Expecto.AssertException as ex ->
00:01:37 verbose #2558 > AssertExceptionFormatter(ex).Display () |> ignore
00:01:37 verbose #2559 > failwith (ex.GetType().FullName)
00:01:37 verbose #2560 >
00:01:37 verbose #2561 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:37 verbose #2562 > expected actual
00:01:37 verbose #2563 > let inline _contains expected actual = __contains true expected actual
00:01:37 verbose #2564 >
00:01:37 verbose #2565 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:37 verbose #2566 > expected actual
00:01:37 verbose #2567 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:37 verbose #2568 >
00:01:37 verbose #2569 > let inline __isGreaterThan log expected actual = __expect
00:01:37 verbose #2570 > Expecto.Expect.isGreaterThan log ex...
00:01:37 verbose #2571 >
00:01:37 verbose #2572 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2573 > //// test
00:01:37 verbose #2574 >
00:01:37 verbose #2575 > let inline __isBetween log a b actual =
00:01:37 verbose #2576 > let inline isBetween actual (a, b) _ =
00:01:37 verbose #2577 > __isGreaterThanOrEqual log a actual
00:01:37 verbose #2578 > __isLessThanOrEqual log b actual
00:01:37 verbose #2579 > __expect isBetween log (a, b) actual
00:01:37 verbose #2580 > let inline _isBetween a b actual = __isBetween true a b actual
00:01:37 verbose #2581 >
00:01:37 verbose #2582 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:37 verbose #2583 > #r
00:01:37 verbose #2584 > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:01:37 verbose #2585 > dard2.1/FSharp.Control.AsyncSeq.dll"
00:01:37 verbose #2586 > #r
00:01:37 verbose #2587 > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:01:37 verbose #2588 > 0/System.Reactive.dll"
00:01:37 verbose #2589 > #r
00:01:37 verbose #2590 > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:01:37 verbose #2591 > netstandard2.0/System.Reactive.Linq.dll"
00:01:37 verbose #2592 > #r
00:01:37 verbose #2593 > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:01:37 verbose #2594 > #r
00:01:37 verbose #2595 > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:01:37 verbose #2596 > b/net6.0/System.CommandLine.dll"
00:01:37 verbose #2597 >
00:01:37 verbose #2598 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:37 verbose #2599 > #!import ../../lib/fsharp/Common.fs
00:01:37 verbose #2600 > #!import ../../lib/fsharp/CommonFSharp.fs
00:01:37 verbose #2601 > #!import ../../lib/fsharp/Async.fs
00:01:37 verbose #2602 > #!import ../../lib/fsharp/AsyncSeq.fs
00:01:37 verbose #2603 > #!import ../../lib/fsharp/Runtime.fs
00:01:37 verbose #2604 >
00:01:37 verbose #2605 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2606 > #if !INTERACTIVE
00:01:37 verbose #2607 > namespace Polyglot
00:01:37 verbose #2608 > #endif
00:01:37 verbose #2609 >
00:01:37 verbose #2610 > module Common =
00:01:37 verbose #2611 >
00:01:37 verbose #2612 > #if !INTERACTIVE
00:01:37 verbose #2613 > open Lib
00:01:37 verbose #2614 > #endif
00:01:37 verbose #2615 >
00:01:37 verbose #2616 > let nl = System.Environment.NewLine
00:01:37 verbose #2617 > let q = @""""
00:01:37 verbose #2618 >
00:01:37 verbose #2619 > let inline cons head tail = head :: tail
00:01:37 verbose #2620 >
00:01:37 verbose #2621 > /// ## memoize
00:01:37 verbose #2622 > let inline memoize fn =
00:01:37 verbose #2623 > let result = lazy fn ()
00:01:37 verbose #2624 > fun () -> result.Value
00:01:37 verbose #2625 >
00:01:37 verbose #2626 > /// ## TraceLevel
00:01:37 verbose #2627 > type TraceLevel =
00:01:37 verbose #2628 > | Verbose
00:01:37 verbose #2629 > | Debug
00:01:37 verbose #2630 > | Info
00:01:37 verbose #2631 > | Warning
00:01:37 verbose #2632 > | Critical
00:01:37 verbose #2633 >
00:01:37 verbose #2634 > let inline _locals () = ""
00:01:37 verbose #2635 >
00:01:37 verbose #2636 > /// ## trace
00:01:37 verbose #2637 > let to_trace_level = function
00:01:37 verbose #2638 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:37 verbose #2639 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:37 verbose #2640 > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:37 verbose #2641 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:37 verbose #2642 > | Critical -> Spir...
00:01:37 verbose #2643 >
00:01:37 verbose #2644 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2645 > #if !INTERACTIVE
00:01:37 verbose #2646 > namespace Polyglot
00:01:37 verbose #2647 > #endif
00:01:37 verbose #2648 >
00:01:37 verbose #2649 > module CommonFSharp =
00:01:37 verbose #2650 >
00:01:37 verbose #2651 > open Common
00:01:37 verbose #2652 >
00:01:37 verbose #2653 > /// ## getUnionCaseName
00:01:37 verbose #2654 > let inline getUnionCaseName<'T> (x: 'T) =
00:01:37 verbose #2655 > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:37 verbose #2656 > | case, _ -> case.Name
00:01:37 verbose #2657 >
00:01:37 verbose #2658 >
00:01:37 verbose #2659 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #2660 > #if !INTERACTIVE
00:01:37 verbose #2661 > namespace Polyglot
00:01:37 verbose #2662 > #endif
00:01:37 verbose #2663 >
00:01:37 verbose #2664 > module Async =
00:01:37 verbose #2665 >
00:01:37 verbose #2666 > #if !INTERACTIVE
00:01:37 verbose #2667 > open Lib
00:01:37 verbose #2668 > #endif
00:01:37 verbose #2669 >
00:01:37 verbose #2670 > open Common
00:01:37 verbose #2671 >
00:01:37 verbose #2672 > /// ## choice
00:01:37 verbose #2673 > let inline choice asyncs = async {
00:01:37 verbose #2674 > let e = Event<_> ()
00:01:37 verbose #2675 > use cts = new System.Threading.CancellationTokenSource ()
00:01:37 verbose #2676 > let fn =
00:01:37 verbose #2677 > asyncs
00:01:37 verbose #2678 > |> Seq.map (fun a -> async {
00:01:37 verbose #2679 > let! x = a
00:01:37 verbose #2680 > e.Trigger x
00:01:37 verbose #2681 > })
00:01:37 verbose #2682 > |> Async.Parallel
00:01:37 verbose #2683 > |> Async.Ignore
00:01:37 verbose #2684 > Async.Start (fn, cts.Token)
00:01:37 verbose #2685 > let! result = Async.AwaitEvent e.Publish
00:01:37 verbose #2686 > cts.Cancel ()
00:01:37 verbose #2687 > return result
00:01:37 verbose #2688 > }
00:01:37 verbose #2689 >
00:01:37 verbose #2690 > /// ## map
00:01:37 verbose #2691 > let inline map fn a = async {
00:01:37 verbose #2692 > let! x = a
00:01:37 verbose #2693 > return fn x
00:01:37 verbose #2694 > }
00:01:37 verbose #2695 >
00:01:37 verbose #2696 > /// ## catch
00:01:37 verbose #2697 > let inline catch a =
00:01:37 verbose #2698 > ...
00:01:38 verbose #2699 >
00:01:38 verbose #2700 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:38 verbose #2701 > #if !INTERACTIVE
00:01:38 verbose #2702 > namespace Polyglot
00:01:38 verbose #2703 > #endif
00:01:38 verbose #2704 >
00:01:38 verbose #2705 > module AsyncSeq =
00:01:38 verbose #2706 >
00:01:38 verbose #2707 > #if !INTERACTIVE
00:01:38 verbose #2708 > open Lib
00:01:38 verbose #2709 > #endif
00:01:38 verbose #2710 >
00:01:38 verbose #2711 > open Common
00:01:38 verbose #2712 >
00:01:38 verbose #2713 > /// ## subscribeEvent
00:01:38 verbose #2714 > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:01:38 verbose #2715 > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:01:38 verbose #2716 > 'A>(event.AddHandler, event.RemoveHandler)
00:01:38 verbose #2717 > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:01:38 verbose #2718 > event.EventArgs)
00:01:38 verbose #2719 > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:01:38 verbose #2720 >
00:01:38 verbose #2721 > /// ## subscribeToken
00:01:38 verbose #2722 > let subscribeToken (token : System.Threading.CancellationToken) =
00:01:38 verbose #2723 > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:01:38 verbose #2724 > System.Action tcs.SetResult |> token.Register |> ignore
00:01:38 verbose #2725 > let start = System.DateTime.Now.Ticks...
00:01:38 verbose #2726 >
00:01:38 verbose #2727 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:38 verbose #2728 > #if !INTERACTIVE
00:01:38 verbose #2729 > namespace Polyglot
00:01:38 verbose #2730 > #endif
00:01:38 verbose #2731 >
00:01:38 verbose #2732 > module Runtime =
00:01:38 verbose #2733 >
00:01:38 verbose #2734 > #if !INTERACTIVE
00:01:38 verbose #2735 > open Lib
00:01:38 verbose #2736 > #endif
00:01:38 verbose #2737 >
00:01:38 verbose #2738 > open Common
00:01:38 verbose #2739 >
00:01:38 verbose #2740 > /// ## splitArgs
00:01:38 verbose #2741 > let inline splitArgs commandLine =
00:01:38 verbose #2742 > commandLine
00:01:38 verbose #2743 > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:01:38 verbose #2744 >
00:01:38 verbose #2745 > /// ## parseArgs
00:01:38 verbose #2746 > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:01:38 verbose #2747 > let assemblyName =
00:01:38 verbose #2748 > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:01:38 verbose #2749 > let errorHandler : Argu.IExiter =
00:01:38 verbose #2750 > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:01:38 verbose #2751 > List.contains assemblyName
00:01:38 verbose #2752 > then Argu.ExceptionExiter ()
00:01:38 verbose #2753 > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:01:38 verbose #2754 > _ -> Some System.ConsoleColor.R...
00:01:38 verbose #2755 >
00:01:38 verbose #2756 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2757 > #if !INTERACTIVE
00:01:38 verbose #2758 > open Lib
00:01:38 verbose #2759 > #endif
00:01:38 verbose #2760 >
00:01:38 verbose #2761 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2762 > open Common
00:01:38 verbose #2763 > open SpiralFileSystem.Operators
00:01:38 verbose #2764 >
00:01:38 verbose #2765 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #2766 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #2767 > │ ## watchDirectory │
00:01:38 verbose #2768 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #2769 >
00:01:38 verbose #2770 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2771 > [[<RequireQualifiedAccess>]]
00:01:38 verbose #2772 > type FileSystemChangeType =
00:01:38 verbose #2773 > | Failure
00:01:38 verbose #2774 > | Changed
00:01:38 verbose #2775 > | Created
00:01:38 verbose #2776 > | Deleted
00:01:38 verbose #2777 > | Renamed
00:01:38 verbose #2778 >
00:01:38 verbose #2779 > [[<RequireQualifiedAccess>]]
00:01:38 verbose #2780 > type FileSystemChange =
00:01:38 verbose #2781 > | Failure of exn: exn
00:01:38 verbose #2782 > | Changed of path: string * content: string option
00:01:38 verbose #2783 > | Created of path: string * content: string option
00:01:38 verbose #2784 > | Deleted of path: string
00:01:38 verbose #2785 > | Renamed of oldPath: string * (string * string option)
00:01:38 verbose #2786 >
00:01:38 verbose #2787 >
00:01:38 verbose #2788 > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:01:38 verbose #2789 > let fullPath = path |> System.IO.Path.GetFullPath
00:01:38 verbose #2790 > let _locals () = $"filter: {filter} / {_locals ()}"
00:01:38 verbose #2791 >
00:01:38 verbose #2792 > let watcher =
00:01:38 verbose #2793 > new System.IO.FileSystemWatcher (
00:01:38 verbose #2794 > Path = fullPath,
00:01:38 verbose #2795 > NotifyFilter = filter,
00:01:38 verbose #2796 > EnableRaisingEvents = true,
00:01:38 verbose #2797 > IncludeSubdirectories = true
00:01:38 verbose #2798 > )
00:01:38 verbose #2799 >
00:01:38 verbose #2800 > let inline getEventPath (path : string) =
00:01:38 verbose #2801 > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:01:38 verbose #2802 > SpiralSm.trim_start [[| '/'; '\\' |]]
00:01:38 verbose #2803 >
00:01:38 verbose #2804 > let inline ticks () =
00:01:38 verbose #2805 > System.DateTime.UtcNow.Ticks
00:01:38 verbose #2806 >
00:01:38 verbose #2807 > let changedStream =
00:01:38 verbose #2808 > AsyncSeq.subscribeEvent
00:01:38 verbose #2809 > watcher.Changed
00:01:38 verbose #2810 > (fun event ->
00:01:38 verbose #2811 > ticks (),
00:01:38 verbose #2812 > [[ FileSystemChange.Changed (getEventPath event.FullPath, None)
00:01:38 verbose #2813 > ]]
00:01:38 verbose #2814 > )
00:01:38 verbose #2815 >
00:01:38 verbose #2816 > let deletedStream =
00:01:38 verbose #2817 > AsyncSeq.subscribeEvent
00:01:38 verbose #2818 > watcher.Deleted
00:01:38 verbose #2819 > (fun event ->
00:01:38 verbose #2820 > ticks (),
00:01:38 verbose #2821 > [[ FileSystemChange.Deleted (getEventPath event.FullPath) ]]
00:01:38 verbose #2822 > )
00:01:38 verbose #2823 >
00:01:38 verbose #2824 > let createdStream =
00:01:38 verbose #2825 > AsyncSeq.subscribeEvent
00:01:38 verbose #2826 > watcher.Created
00:01:38 verbose #2827 > (fun event ->
00:01:38 verbose #2828 > let path = getEventPath event.FullPath
00:01:38 verbose #2829 > ticks (), [[
00:01:38 verbose #2830 > FileSystemChange.Created (path, None)
00:01:38 verbose #2831 > if SpiralRuntime.is_windows () then
00:01:38 verbose #2832 > FileSystemChange.Changed (path, None)
00:01:38 verbose #2833 > ]])
00:01:38 verbose #2834 >
00:01:38 verbose #2835 > let renamedStream =
00:01:38 verbose #2836 > AsyncSeq.subscribeEvent
00:01:38 verbose #2837 > watcher.Renamed
00:01:38 verbose #2838 > (fun event ->
00:01:38 verbose #2839 > ticks (), [[
00:01:38 verbose #2840 > FileSystemChange.Renamed (
00:01:38 verbose #2841 > getEventPath event.OldFullPath,
00:01:38 verbose #2842 > (getEventPath event.FullPath, None)
00:01:38 verbose #2843 > )
00:01:38 verbose #2844 > ]]
00:01:38 verbose #2845 > )
00:01:38 verbose #2846 >
00:01:38 verbose #2847 > let failureStream =
00:01:38 verbose #2848 > AsyncSeq.subscribeEvent
00:01:38 verbose #2849 > watcher.Error
00:01:38 verbose #2850 > (fun event -> ticks (), [[ FileSystemChange.Failure
00:01:38 verbose #2851 > (event.GetException ()) ]])
00:01:38 verbose #2852 >
00:01:38 verbose #2853 > let stream =
00:01:38 verbose #2854 > [[
00:01:38 verbose #2855 > changedStream
00:01:38 verbose #2856 > deletedStream
00:01:38 verbose #2857 > createdStream
00:01:38 verbose #2858 > renamedStream
00:01:38 verbose #2859 > failureStream
00:01:38 verbose #2860 > ]]
00:01:38 verbose #2861 > |> FSharp.Control.AsyncSeq.mergeAll
00:01:38 verbose #2862 > |> FSharp.Control.AsyncSeq.map (fun (t, events) ->
00:01:38 verbose #2863 > events
00:01:38 verbose #2864 > |> List.fold
00:01:38 verbose #2865 > (fun (i, events) event ->
00:01:38 verbose #2866 > i + 1L,
00:01:38 verbose #2867 > (t + i, event) :: events)
00:01:38 verbose #2868 > (0L, [[]])
00:01:38 verbose #2869 > |> snd
00:01:38 verbose #2870 > |> List.rev
00:01:38 verbose #2871 > )
00:01:38 verbose #2872 > |> FSharp.Control.AsyncSeq.concatSeq
00:01:38 verbose #2873 > |> FSharp.Control.AsyncSeq.mapAsyncParallel (fun (t, event) -> async {
00:01:38 verbose #2874 > match shouldReadContent event, event with
00:01:38 verbose #2875 > | true, FileSystemChange.Changed (path, _) ->
00:01:38 verbose #2876 > do! Async.Sleep 5
00:01:38 verbose #2877 > let! content = fullPath </> path |>
00:01:38 verbose #2878 > SpiralFileSystem.read_all_text_retry_async
00:01:38 verbose #2879 > return t, FileSystemChange.Changed (path, content)
00:01:38 verbose #2880 > | true, FileSystemChange.Created (path, _) ->
00:01:38 verbose #2881 > do! Async.Sleep 5
00:01:38 verbose #2882 > let! content = fullPath </> path |>
00:01:38 verbose #2883 > SpiralFileSystem.read_all_text_retry_async
00:01:38 verbose #2884 > return t, FileSystemChange.Created (path, content)
00:01:38 verbose #2885 > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:01:38 verbose #2886 > let! content = fullPath </> newPath |>
00:01:38 verbose #2887 > SpiralFileSystem.read_all_text_retry_async
00:01:38 verbose #2888 > return t, FileSystemChange.Renamed (oldPath, (newPath, content))
00:01:38 verbose #2889 > | _ -> return t, event
00:01:38 verbose #2890 > })
00:01:38 verbose #2891 >
00:01:38 verbose #2892 > let disposable =
00:01:38 verbose #2893 > new_disposable (fun () ->
00:01:38 verbose #2894 > trace Debug (fun () -> "watchWithFilter / Disposing watch stream")
00:01:38 verbose #2895 > _locals
00:01:38 verbose #2896 > watcher.EnableRaisingEvents <- false
00:01:38 verbose #2897 > watcher.Dispose ()
00:01:38 verbose #2898 > )
00:01:38 verbose #2899 >
00:01:38 verbose #2900 > stream, disposable
00:01:38 verbose #2901 >
00:01:38 verbose #2902 > let inline watchDirectory path =
00:01:38 verbose #2903 > watchDirectoryWithFilter
00:01:38 verbose #2904 > (System.IO.NotifyFilters.FileName
00:01:38 verbose #2905 > // ||| System.IO.NotifyFilters.DirectoryName
00:01:38 verbose #2906 > // ||| System.IO.NotifyFilters.Attributes
00:01:38 verbose #2907 > //// ||| System.IO.NotifyFilters.Size
00:01:38 verbose #2908 > ||| System.IO.NotifyFilters.LastWrite
00:01:38 verbose #2909 > //// ||| System.IO.NotifyFilters.LastAccess
00:01:38 verbose #2910 > // ||| System.IO.NotifyFilters.CreationTime
00:01:38 verbose #2911 > // ||| System.IO.NotifyFilters.Security
00:01:38 verbose #2912 > )
00:01:38 verbose #2913 > path
00:01:39 verbose #2914 >
00:01:39 verbose #2915 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:39 verbose #2916 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:39 verbose #2917 > │ ### testEventsRaw (test) │
00:01:39 verbose #2918 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #2919 >
00:01:39 verbose #2920 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:39 verbose #2921 > //// test
00:01:39 verbose #2922 >
00:01:39 verbose #2923 > let inline testEventsRaw
00:01:39 verbose #2924 > (watchFn : (_ -> bool) -> string -> FSharp.Control.AsyncSeq<int64 *
00:01:39 verbose #2925 > FileSystemChange> * IDisposable)
00:01:39 verbose #2926 > write
00:01:39 verbose #2927 > =
00:01:39 verbose #2928 > let struct (tempDir, tempDisposable) =
00:01:39 verbose #2929 > SpiralFileSystem.create_temp_directory ()
00:01:39 verbose #2930 > let stream, disposable = watchFn (fun _ -> true) tempDir
00:01:39 verbose #2931 >
00:01:39 verbose #2932 > let events = System.Collections.Concurrent.ConcurrentBag ()
00:01:39 verbose #2933 >
00:01:39 verbose #2934 > let inline iter () =
00:01:39 verbose #2935 > stream
00:01:39 verbose #2936 > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:01:39 verbose #2937 > events.Add event })
00:01:39 verbose #2938 >
00:01:39 verbose #2939 > let run = async {
00:01:39 verbose #2940 > let! _ = iter () |> Async.StartChild
00:01:39 verbose #2941 > do! Async.Sleep 250
00:01:39 verbose #2942 > return! write tempDir
00:01:39 verbose #2943 > }
00:01:39 verbose #2944 >
00:01:39 verbose #2945 > try
00:01:39 verbose #2946 > run
00:01:39 verbose #2947 > |> Async.runWithTimeout 60000
00:01:39 verbose #2948 > |> _assertEqual (Some ())
00:01:39 verbose #2949 > finally
00:01:39 verbose #2950 > disposable.Dispose ()
00:01:39 verbose #2951 > tempDisposable.Dispose ()
00:01:39 verbose #2952 >
00:01:39 verbose #2953 > let eventsLog =
00:01:39 verbose #2954 > events
00:01:39 verbose #2955 > |> Seq.toList
00:01:39 verbose #2956 > |> List.sortBy fst
00:01:39 verbose #2957 > |> List.fold
00:01:39 verbose #2958 > (fun (prev, acc) (ticks, event) ->
00:01:39 verbose #2959 > ticks, (ticks, (if prev = 0L then 0L else ticks - prev), event)
00:01:39 verbose #2960 > :: acc
00:01:39 verbose #2961 > )
00:01:39 verbose #2962 > (0L, [[]])
00:01:39 verbose #2963 > |> snd
00:01:39 verbose #2964 > |> List.rev
00:01:39 verbose #2965 > |> List.map (fun (diff, n, event) -> $"{n} / {diff} / {event}" |>
00:01:39 verbose #2966 > SpiralSm.ellipsis_end 100L)
00:01:39 verbose #2967 > |> SpiralSm.concat "\n"
00:01:39 verbose #2968 > let _locals () = $"eventsLog: \n{eventsLog} / {_locals ()}"
00:01:39 verbose #2969 > trace Debug (fun () -> "testEventsRaw") _locals
00:01:39 verbose #2970 >
00:01:39 verbose #2971 > events
00:01:39 verbose #2972 > |> Seq.toList
00:01:39 verbose #2973 > |> List.sortBy fst
00:01:39 verbose #2974 > |> List.map snd
00:01:39 verbose #2975 > |> List.fold
00:01:39 verbose #2976 > (fun acc event ->
00:01:39 verbose #2977 > match acc, event with
00:01:39 verbose #2978 > | FileSystemChange.Changed (lastPath, Some lastContent) as lastEvent
00:01:39 verbose #2979 > :: acc,
00:01:39 verbose #2980 > FileSystemChange.Changed (path, Some content)
00:01:39 verbose #2981 > when lastPath = path && content |> SpiralSm.starts_with
00:01:39 verbose #2982 > lastContent
00:01:39 verbose #2983 > ->
00:01:39 verbose #2984 > event :: acc
00:01:39 verbose #2985 > | _ -> event :: acc
00:01:39 verbose #2986 > )
00:01:39 verbose #2987 > [[]]
00:01:39 verbose #2988 > |> List.rev
00:01:39 verbose #2989 >
00:01:39 verbose #2990 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:39 verbose #2991 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:39 verbose #2992 > │ #### fast (test) │
00:01:39 verbose #2993 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #2994 >
00:01:39 verbose #2995 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:39 verbose #2996 > //// test
00:01:39 verbose #2997 >
00:01:39 verbose #2998 > let inline write path = async {
00:01:39 verbose #2999 > let n = 2
00:01:39 verbose #3000 >
00:01:39 verbose #3001 > for i = 1 to n do
00:01:39 verbose #3002 > do! $"a{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:39 verbose #3003 > $"file{i}.txt")
00:01:39 verbose #3004 >
00:01:39 verbose #3005 > do! Async.Sleep 250
00:01:39 verbose #3006 >
00:01:39 verbose #3007 > for i = 1 to n do
00:01:39 verbose #3008 > do! $"b{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:39 verbose #3009 > $"file{i}.txt")
00:01:39 verbose #3010 >
00:01:39 verbose #3011 > do! Async.Sleep 250
00:01:39 verbose #3012 >
00:01:39 verbose #3013 > for i = 1 to n do
00:01:39 verbose #3014 > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:39 verbose #3015 > </> $"file_{i}.txt") |> Async.Ignore
00:01:39 verbose #3016 >
00:01:39 verbose #3017 > do! Async.Sleep 250
00:01:39 verbose #3018 >
00:01:39 verbose #3019 > for i = 1 to n do
00:01:39 verbose #3020 > do! $"c{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:39 verbose #3021 > $"file_{i}.txt")
00:01:39 verbose #3022 >
00:01:39 verbose #3023 > do! Async.Sleep 250
00:01:39 verbose #3024 >
00:01:39 verbose #3025 > for i = 1 to n do
00:01:39 verbose #3026 > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:39 verbose #3027 > Async.Ignore
00:01:39 verbose #3028 >
00:01:39 verbose #3029 > do! Async.Sleep 250
00:01:39 verbose #3030 > }
00:01:39 verbose #3031 >
00:01:39 verbose #3032 > let inline run () =
00:01:39 verbose #3033 > let events = testEventsRaw watchDirectory write
00:01:39 verbose #3034 >
00:01:39 verbose #3035 > events
00:01:39 verbose #3036 > |> _sequenceEqual [[
00:01:39 verbose #3037 > FileSystemChange.Created ("file1.txt", Some "a1")
00:01:39 verbose #3038 > FileSystemChange.Changed ("file1.txt", Some "a1")
00:01:39 verbose #3039 > FileSystemChange.Created ("file2.txt", Some "a2")
00:01:39 verbose #3040 > FileSystemChange.Changed ("file2.txt", Some "a2")
00:01:39 verbose #3041 >
00:01:39 verbose #3042 > FileSystemChange.Changed ("file1.txt", Some "b1")
00:01:39 verbose #3043 > FileSystemChange.Changed ("file2.txt", Some "b2")
00:01:39 verbose #3044 >
00:01:39 verbose #3045 > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "b1"))
00:01:39 verbose #3046 > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "b2"))
00:01:39 verbose #3047 >
00:01:39 verbose #3048 > FileSystemChange.Changed ("file_1.txt", Some "c1")
00:01:39 verbose #3049 > FileSystemChange.Changed ("file_2.txt", Some "c2")
00:01:39 verbose #3050 >
00:01:39 verbose #3051 > FileSystemChange.Deleted "file_1.txt"
00:01:39 verbose #3052 > FileSystemChange.Deleted "file_2.txt"
00:01:39 verbose #3053 > ]]
00:01:39 verbose #3054 >
00:01:39 verbose #3055 > run
00:01:39 verbose #3056 > |> retry_fn 3
00:01:39 verbose #3057 > |> _assertEqual (Some ())
00:01:42 verbose #3058 >
00:01:42 verbose #3059 > ╭─[ 3.35s - stdout ]───────────────────────────────────────────────────────────╮
00:01:42 verbose #3060 > │ FSharpOption<Unit> │
00:01:42 verbose #3061 > │ Value: <null> │
00:01:42 verbose #3062 > │ 00:00:05 debug #1 watchWithFilter / Disposing watch stream / filter: │
00:01:42 verbose #3063 > │ FileName, LastWrite │
00:01:42 verbose #3064 > │ 00:00:05 debug #2 testEventsRaw / eventsLog: │
00:01:42 verbose #3065 > │ 0 / 638493604805209940 / Created ("file1.txt", Some "a1") │
00:01:42 verbose #3066 > │ 1 / 638493604805209941 / Changed ("file1.txt", Some "a1") │
00:01:42 verbose #3067 > │ 18809 / 638493604805228750 / Changed ("file1.txt", Some "a1") │
00:01:42 verbose #3068 > │ 691 / 638493604805229441 / Created ("file2.txt", Some "a2") │
00:01:42 verbose #3069 > │ 1 / 638493604805229442 / Changed ("file2.txt", Some "a2") │
00:01:42 verbose #3070 > │ 40 / 638493604805229482 / Changed ("file2.txt", Some "a2") │
00:01:42 verbose #3071 > │ 2460324 / 638493604807689806 / Changed ("file1.txt", Some "b1") │
00:01:42 verbose #3072 > │ 2493 / 638493604807692299 / Changed ("file1.txt", Some "b1") │
00:01:42 verbose #3073 > │ 6823 / 638493604807699122 / Changed ("file2.txt", Some "b2") │
00:01:42 verbose #3074 > │ 1796 / 638493604807700918 / Changed ("file2.txt", Some "b2") │
00:01:42 verbose #3075 > │ 2612687 / 638493604810313605 / Renamed ("file1.txt", ("file_1.txt", Some │
00:01:42 verbose #3076 > │ "b1")) │
00:01:42 verbose #3077 > │ 21556 / 638493604810335161 / Renamed ("file2.txt", ("file_2.txt", Some │
00:01:42 verbose #3078 > │ "b2")) │
00:01:42 verbose #3079 > │ 2488005 / 638493604812823166 / Changed ("file_1.txt", Some "c1") │
00:01:42 verbose #3080 > │ 2811 / 638493604812825977 / Changed ("file_1.txt", Some "c1") │
00:01:42 verbose #3081 > │ 12415 / 638493604812838392 / Changed ("file_2.txt", Some "c2") │
00:01:42 verbose #3082 > │ 2447 / 638493604812840839 / Changed ("file_2.txt", Some "c2") │
00:01:42 verbose #3083 > │ 2592432 / 638493604815433271 / Deleted "file_1.txt" │
00:01:42 verbose #3084 > │ 6300 / 638493604815439571 / Deleted "file_2.txt" │
00:01:42 verbose #3085 > │ FSharpList<FileSystemChange> │
00:01:42 verbose #3086 > │ - path: file1.txt │
00:01:42 verbose #3087 > │ content: FSharpOption<String> │
00:01:42 verbose #3088 > │ Value: a1 │
00:01:42 verbose #3089 > │ IsFailure: False │
00:01:42 verbose #3090 > │ IsChanged: False │
00:01:42 verbose #3091 > │ IsCreated: True │
00:01:42 verbose #3092 > │ IsDeleted: False │
00:01:42 verbose #3093 > │ IsRenamed: False │
00:01:42 verbose #3094 > │ - path: file1.txt │
00:01:42 verbose #3095 > │ content: FSharpOption<String> │
00:01:42 verbose #3096 > │ Value: a1 │
00:01:42 verbose #3097 > │ IsFailure: False │
00:01:42 verbose #3098 > │ IsChanged: True │
00:01:42 verbose #3099 > │ IsCreated: False │
00:01:42 verbose #3100 > │ IsDeleted: False │
00:01:42 verbose #3101 > │ IsRenamed: False │
00:01:42 verbose #3102 > │ - path: file2.txt │
00:01:42 verbose #3103 > │ content: FSharpOption<String> │
00:01:42 verbose #3104 > │ Value: a2 │
00:01:42 verbose #3105 > │ IsFailure: False │
00:01:42 verbose #3106 > │ IsChanged: False │
00:01:42 verbose #3107 > │ IsCreated: True │
00:01:42 verbose #3108 > │ IsDeleted: False │
00:01:42 verbose #3109 > │ IsRenamed: False │
00:01:42 verbose #3110 > │ - path: file2.txt │
00:01:42 verbose #3111 > │ content: FSharpOption<String> │
00:01:42 verbose #3112 > │ Value: a2 │
00:01:42 verbose #3113 > │ IsFailure: False │
00:01:42 verbose #3114 > │ IsChanged: True │
00:01:42 verbose #3115 > │ IsCreated: False │
00:01:42 verbose #3116 > │ IsDeleted: False │
00:01:42 verbose #3117 > │ IsRenamed: False │
00:01:42 verbose #3118 > │ - path: file1.txt │
00:01:42 verbose #3119 > │ content: FSharpOption<String> │
00:01:42 verbose #3120 > │ Value: b1 │
00:01:42 verbose #3121 > │ IsFailure: False │
00:01:42 verbose #3122 > │ IsChanged: True │
00:01:42 verbose #3123 > │ IsCreated: False │
00:01:42 verbose #3124 > │ IsDeleted: False │
00:01:42 verbose #3125 > │ IsRenamed: False │
00:01:42 verbose #3126 > │ - path: file2.txt │
00:01:42 verbose #3127 > │ content: FSharpOption<String> │
00:01:42 verbose #3128 > │ Value: b2 │
00:01:42 verbose #3129 > │ IsFailure: False │
00:01:42 verbose #3130 > │ IsChanged: True │
00:01:42 verbose #3131 > │ IsCreated: False │
00:01:42 verbose #3132 > │ IsDeleted: False │
00:01:42 verbose #3133 > │ IsRenamed: False │
00:01:42 verbose #3134 > │ - oldPath: file1.txt │
00:01:42 verbose #3135 > │ Item2: - file_1.txt │
00:01:42 verbose #3136 > │ - FSharpOption<String> │
00:01:42 verbose #3137 > │ Value: b1 │
00:01:42 verbose #3138 > │ - IsFailure: False │
00:01:42 verbose #3139 > │ IsChanged: False │
00:01:42 verbose #3140 > │ IsCreated: False │
00:01:42 verbose #3141 > │ IsDeleted: False │
00:01:42 verbose #3142 > │ IsRenamed: True │
00:01:42 verbose #3143 > │ - oldPath: file2.txt │
00:01:42 verbose #3144 > │ Item2: - file_2.txt │
00:01:42 verbose #3145 > │ - FSharpOption<String> │
00:01:42 verbose #3146 > │ Value: b2 │
00:01:42 verbose #3147 > │ - IsFailure: False │
00:01:42 verbose #3148 > │ IsChanged: False │
00:01:42 verbose #3149 > │ IsCreated: False │
00:01:42 verbose #3150 > │ IsDeleted: False │
00:01:42 verbose #3151 > │ IsRenamed: True │
00:01:42 verbose #3152 > │ - path: file_1.txt │
00:01:42 verbose #3153 > │ content: FSharpOption<String> │
00:01:42 verbose #3154 > │ Value: c1 │
00:01:42 verbose #3155 > │ IsFailure: False │
00:01:42 verbose #3156 > │ IsChanged: True │
00:01:42 verbose #3157 > │ IsCreated: False │
00:01:42 verbose #3158 > │ IsDeleted: False │
00:01:42 verbose #3159 > │ IsRenamed: False │
00:01:42 verbose #3160 > │ - path: file_2.txt │
00:01:42 verbose #3161 > │ content: FSharpOption<String> │
00:01:42 verbose #3162 > │ Value: c2 │
00:01:42 verbose #3163 > │ IsFailure: False │
00:01:42 verbose #3164 > │ IsChanged: True │
00:01:42 verbose #3165 > │ IsCreated: False │
00:01:42 verbose #3166 > │ IsDeleted: False │
00:01:42 verbose #3167 > │ IsRenamed: False │
00:01:42 verbose #3168 > │ - path: file_1.txt │
00:01:42 verbose #3169 > │ IsFailure: False │
00:01:42 verbose #3170 > │ IsChanged: False │
00:01:42 verbose #3171 > │ IsCreated: False │
00:01:42 verbose #3172 > │ IsDeleted: True │
00:01:42 verbose #3173 > │ IsRenamed: False │
00:01:42 verbose #3174 > │ - path: file_2.txt │
00:01:42 verbose #3175 > │ IsFailure: False │
00:01:42 verbose #3176 > │ IsChanged: False │
00:01:42 verbose #3177 > │ IsCreated: False │
00:01:42 verbose #3178 > │ IsDeleted: True │
00:01:42 verbose #3179 > │ IsRenamed: False │
00:01:42 verbose #3180 > │ FSharpOption<Unit> │
00:01:42 verbose #3181 > │ Value: <null> │
00:01:42 verbose #3182 > │ │
00:01:42 verbose #3183 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #3184 >
00:01:42 verbose #3185 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #3186 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #3187 > │ #### slow (test) │
00:01:42 verbose #3188 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #3189 >
00:01:42 verbose #3190 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #3191 > //// test
00:01:42 verbose #3192 >
00:01:42 verbose #3193 > let inline write path = async {
00:01:42 verbose #3194 > let n = 2
00:01:42 verbose #3195 >
00:01:42 verbose #3196 > let contents =
00:01:42 verbose #3197 > [[ 1 .. n ]]
00:01:42 verbose #3198 > |> List.map (string >> String.replicate 1_000_000)
00:01:42 verbose #3199 >
00:01:42 verbose #3200 > for i = 1 to n do
00:01:42 verbose #3201 > do! $"{contents.[[i - 1]]}a" |> SpiralFileSystem.write_all_text_async
00:01:42 verbose #3202 > (path </> $"file{i}.txt")
00:01:42 verbose #3203 >
00:01:42 verbose #3204 > do! Async.Sleep 1500
00:01:42 verbose #3205 >
00:01:42 verbose #3206 > for i = 1 to n do
00:01:42 verbose #3207 > do! $"{contents.[[i - 1]]}b" |> SpiralFileSystem.write_all_text_async
00:01:42 verbose #3208 > (path </> $"file{i}.txt")
00:01:42 verbose #3209 >
00:01:42 verbose #3210 > do! Async.Sleep 1500
00:01:42 verbose #3211 >
00:01:42 verbose #3212 > for i = 1 to n do
00:01:42 verbose #3213 > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:42 verbose #3214 > </> $"file_{i}.txt") |> Async.Ignore
00:01:42 verbose #3215 >
00:01:42 verbose #3216 > do! Async.Sleep 1500
00:01:42 verbose #3217 >
00:01:42 verbose #3218 > for i = 1 to n do
00:01:42 verbose #3219 > do! $"{contents.[[i - 1]]}c" |> SpiralFileSystem.write_all_text_async
00:01:42 verbose #3220 > (path </> $"file_{i}.txt")
00:01:42 verbose #3221 >
00:01:42 verbose #3222 > do! Async.Sleep 1500
00:01:42 verbose #3223 >
00:01:42 verbose #3224 > for i = 1 to n do
00:01:42 verbose #3225 > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:42 verbose #3226 > Async.Ignore
00:01:42 verbose #3227 >
00:01:42 verbose #3228 > do! Async.Sleep 1500
00:01:42 verbose #3229 > }
00:01:42 verbose #3230 >
00:01:42 verbose #3231 > let inline run () =
00:01:42 verbose #3232 > let events =
00:01:42 verbose #3233 > testEventsRaw watchDirectory write
00:01:42 verbose #3234 > |> List.map (function
00:01:42 verbose #3235 > | FileSystemChange.Changed (path, Some content) ->
00:01:42 verbose #3236 > FileSystemChange.Changed (path, content |> Seq.distinct |>
00:01:42 verbose #3237 > Seq.map string |> SpiralSm.concat "" |> Some)
00:01:42 verbose #3238 > | FileSystemChange.Created (path, Some content) ->
00:01:42 verbose #3239 > FileSystemChange.Created (path, content |> Seq.distinct |>
00:01:42 verbose #3240 > Seq.map string |> SpiralSm.concat "" |> Some)
00:01:42 verbose #3241 > | FileSystemChange.Renamed (oldPath, (newPath, Some content)) ->
00:01:42 verbose #3242 > FileSystemChange.Renamed (
00:01:42 verbose #3243 > oldPath,
00:01:42 verbose #3244 > (newPath, content |> Seq.distinct |> Seq.map string |>
00:01:42 verbose #3245 > SpiralSm.concat "" |> Some)
00:01:42 verbose #3246 > )
00:01:42 verbose #3247 > | event -> event
00:01:42 verbose #3248 > )
00:01:42 verbose #3249 >
00:01:42 verbose #3250 > events
00:01:42 verbose #3251 > |> _sequenceEqual [[
00:01:42 verbose #3252 > FileSystemChange.Created ("file1.txt", Some "1a")
00:01:42 verbose #3253 > FileSystemChange.Changed ("file1.txt", Some "1a")
00:01:42 verbose #3254 > FileSystemChange.Created ("file2.txt", Some "2a")
00:01:42 verbose #3255 > FileSystemChange.Changed ("file2.txt", Some "2a")
00:01:42 verbose #3256 >
00:01:42 verbose #3257 > FileSystemChange.Changed ("file1.txt", Some "1b")
00:01:42 verbose #3258 > FileSystemChange.Changed ("file2.txt", Some "2b")
00:01:42 verbose #3259 >
00:01:42 verbose #3260 > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "1b"))
00:01:42 verbose #3261 > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "2b"))
00:01:42 verbose #3262 >
00:01:42 verbose #3263 > FileSystemChange.Changed ("file_1.txt", Some "1c")
00:01:42 verbose #3264 > FileSystemChange.Changed ("file_2.txt", Some "2c")
00:01:42 verbose #3265 >
00:01:42 verbose #3266 > FileSystemChange.Deleted "file_1.txt"
00:01:42 verbose #3267 > FileSystemChange.Deleted "file_2.txt"
00:01:42 verbose #3268 > ]]
00:01:42 verbose #3269 >
00:01:42 verbose #3270 > run
00:01:42 verbose #3271 > |> retry_fn 5
00:01:42 verbose #3272 > |> _assertEqual (Some ())
00:01:52 verbose #3273 >
00:01:52 verbose #3274 > ╭─[ 9.96s - stdout ]───────────────────────────────────────────────────────────╮
00:01:52 verbose #3275 > │ FSharpOption<Unit> │
00:01:52 verbose #3276 > │ Value: <null> │
00:01:52 verbose #3277 > │ 00:00:15 debug #3 watchWithFilter / Disposing watch stream / filter: │
00:01:52 verbose #3278 > │ FileName, LastWrite │
00:01:52 verbose #3279 > │ 00:00:15 debug #4 testEventsRaw / eventsLog: │
00:01:52 verbose #3280 > │ 0 / 638493604838693545 / Created │
00:01:52 verbose #3281 > │ ("file1.txt", │
00:01:52 verbose #3282 > │ ...11111111111111111111111111111111111111111111111a") │
00:01:52 verbose #3283 > │ 1 / 638493604838693546 / Changed │
00:01:52 verbose #3284 > │ ("file1.txt", │
00:01:52 verbose #3285 > │ ...11111111111111111111111111111111111111111111111a") │
00:01:52 verbose #3286 > │ 70800 / 638493604838764346 / Changed │
00:01:52 verbose #3287 > │ ("file1.txt...11111111111111111111111111111111111111111111111a") │
00:01:52 verbose #3288 > │ 33610 / 638493604838797956 / Created │
00:01:52 verbose #3289 > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:01:52 verbose #3290 > │ 1 / 638493604838797957 / Changed │
00:01:52 verbose #3291 > │ ("file2.txt", │
00:01:52 verbose #3292 > │ ...22222222222222222222222222222222222222222222222a") │
00:01:52 verbose #3293 > │ 204859 / 638493604839002816 / Changed │
00:01:52 verbose #3294 > │ ("file2.tx...22222222222222222222222222222222222222222222222a") │
00:01:52 verbose #3295 > │ 15092977 / 638493604854095793 / Changed │
00:01:52 verbose #3296 > │ ("file1....11111111111111111111111111111111111111111111111b") │
00:01:52 verbose #3297 > │ 68405 / 638493604854164198 / Changed │
00:01:52 verbose #3298 > │ ("file1.txt...11111111111111111111111111111111111111111111111b") │
00:01:52 verbose #3299 > │ 44592 / 638493604854208790 / Changed │
00:01:52 verbose #3300 > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:01:52 verbose #3301 > │ 84501 / 638493604854293291 / Changed │
00:01:52 verbose #3302 > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:01:52 verbose #3303 > │ 15122514 / 638493604869415805 / Renamed │
00:01:52 verbose #3304 > │ ("file1....1111111111111111111111111111111111111111111111b")) │
00:01:52 verbose #3305 > │ 8799 / 638493604869424604 / Renamed │
00:01:52 verbose #3306 > │ ("file2.txt"...2222222222222222222222222222222222222222222222b")) │
00:01:52 verbose #3307 > │ 15170889 / 638493604884595493 / Changed │
00:01:52 verbose #3308 > │ ("file_1...11111111111111111111111111111111111111111111111c") │
00:01:52 verbose #3309 > │ 120333 / 638493604884715826 / Changed │
00:01:52 verbose #3310 > │ ("file_1.t...11111111111111111111111111111111111111111111111c") │
00:01:52 verbose #3311 > │ 79255 / 638493604884795081 / Changed │
00:01:52 verbose #3312 > │ ("file_2.tx...22222222222222222222222222222222222222222222222c") │
00:01:52 verbose #3313 > │ 133809 / 638493604884928890 / Changed │
00:01:52 verbose #3314 > │ ("file_2.t...22222222222222222222222222222222222222222222222c") │
00:01:52 verbose #3315 > │ 15173151 / 638493604900102041 / Deleted "file_1.txt" │
00:01:52 verbose #3316 > │ 6860 / 638493604900108901 / Deleted "file_2.txt" │
00:01:52 verbose #3317 > │ FSharpList<FileSystemChange> │
00:01:52 verbose #3318 > │ - path: file1.txt │
00:01:52 verbose #3319 > │ content: FSharpOption<String> │
00:01:52 verbose #3320 > │ Value: 1a │
00:01:52 verbose #3321 > │ IsFailure: False │
00:01:52 verbose #3322 > │ IsChanged: False │
00:01:52 verbose #3323 > │ IsCreated: True │
00:01:52 verbose #3324 > │ IsDeleted: False │
00:01:52 verbose #3325 > │ IsRenamed: False │
00:01:52 verbose #3326 > │ - path: file1.txt │
00:01:52 verbose #3327 > │ content: FSharpOption<String> │
00:01:52 verbose #3328 > │ Value: 1a │
00:01:52 verbose #3329 > │ IsFailure: False │
00:01:52 verbose #3330 > │ IsChanged: True │
00:01:52 verbose #3331 > │ IsCreated: False │
00:01:52 verbose #3332 > │ IsDeleted: False │
00:01:52 verbose #3333 > │ IsRenamed: False │
00:01:52 verbose #3334 > │ - path: file2.txt │
00:01:52 verbose #3335 > │ content: FSharpOption<String> │
00:01:52 verbose #3336 > │ Value: 2a │
00:01:52 verbose #3337 > │ IsFailure: False │
00:01:52 verbose #3338 > │ IsChanged: False │
00:01:52 verbose #3339 > │ IsCreated: True │
00:01:52 verbose #3340 > │ IsDeleted: False │
00:01:52 verbose #3341 > │ IsRenamed: False │
00:01:52 verbose #3342 > │ - path: file2.txt │
00:01:52 verbose #3343 > │ content: FSharpOption<String> │
00:01:52 verbose #3344 > │ Value: 2a │
00:01:52 verbose #3345 > │ IsFailure: False │
00:01:52 verbose #3346 > │ IsChanged: True │
00:01:52 verbose #3347 > │ IsCreated: False │
00:01:52 verbose #3348 > │ IsDeleted: False │
00:01:52 verbose #3349 > │ IsRenamed: False │
00:01:52 verbose #3350 > │ - path: file1.txt │
00:01:52 verbose #3351 > │ content: FSharpOption<String> │
00:01:52 verbose #3352 > │ Value: 1b │
00:01:52 verbose #3353 > │ IsFailure: False │
00:01:52 verbose #3354 > │ IsChanged: True │
00:01:52 verbose #3355 > │ IsCreated: False │
00:01:52 verbose #3356 > │ IsDeleted: False │
00:01:52 verbose #3357 > │ IsRenamed: False │
00:01:52 verbose #3358 > │ - path: file2.txt │
00:01:52 verbose #3359 > │ content: FSharpOption<String> │
00:01:52 verbose #3360 > │ Value: 2b │
00:01:52 verbose #3361 > │ IsFailure: False │
00:01:52 verbose #3362 > │ IsChanged: True │
00:01:52 verbose #3363 > │ IsCreated: False │
00:01:52 verbose #3364 > │ IsDeleted: False │
00:01:52 verbose #3365 > │ IsRenamed: False │
00:01:52 verbose #3366 > │ - oldPath: file1.txt │
00:01:52 verbose #3367 > │ Item2: - file_1.txt │
00:01:52 verbose #3368 > │ - FSharpOption<String> │
00:01:52 verbose #3369 > │ Value: 1b │
00:01:52 verbose #3370 > │ - IsFailure: False │
00:01:52 verbose #3371 > │ IsChanged: False │
00:01:52 verbose #3372 > │ IsCreated: False │
00:01:52 verbose #3373 > │ IsDeleted: False │
00:01:52 verbose #3374 > │ IsRenamed: True │
00:01:52 verbose #3375 > │ - oldPath: file2.txt │
00:01:52 verbose #3376 > │ Item2: - file_2.txt │
00:01:52 verbose #3377 > │ - FSharpOption<String> │
00:01:52 verbose #3378 > │ Value: 2b │
00:01:52 verbose #3379 > │ - IsFailure: False │
00:01:52 verbose #3380 > │ IsChanged: False │
00:01:52 verbose #3381 > │ IsCreated: False │
00:01:52 verbose #3382 > │ IsDeleted: False │
00:01:52 verbose #3383 > │ IsRenamed: True │
00:01:52 verbose #3384 > │ - path: file_1.txt │
00:01:52 verbose #3385 > │ content: FSharpOption<String> │
00:01:52 verbose #3386 > │ Value: 1c │
00:01:52 verbose #3387 > │ IsFailure: False │
00:01:52 verbose #3388 > │ IsChanged: True │
00:01:52 verbose #3389 > │ IsCreated: False │
00:01:52 verbose #3390 > │ IsDeleted: False │
00:01:52 verbose #3391 > │ IsRenamed: False │
00:01:52 verbose #3392 > │ - path: file_2.txt │
00:01:52 verbose #3393 > │ content: FSharpOption<String> │
00:01:52 verbose #3394 > │ Value: 2c │
00:01:52 verbose #3395 > │ IsFailure: False │
00:01:52 verbose #3396 > │ IsChanged: True │
00:01:52 verbose #3397 > │ IsCreated: False │
00:01:52 verbose #3398 > │ IsDeleted: False │
00:01:52 verbose #3399 > │ IsRenamed: False │
00:01:52 verbose #3400 > │ - path: file_1.txt │
00:01:52 verbose #3401 > │ IsFailure: False │
00:01:52 verbose #3402 > │ IsChanged: False │
00:01:52 verbose #3403 > │ IsCreated: False │
00:01:52 verbose #3404 > │ IsDeleted: True │
00:01:52 verbose #3405 > │ IsRenamed: False │
00:01:52 verbose #3406 > │ - path: file_2.txt │
00:01:52 verbose #3407 > │ IsFailure: False │
00:01:52 verbose #3408 > │ IsChanged: False │
00:01:52 verbose #3409 > │ IsCreated: False │
00:01:52 verbose #3410 > │ IsDeleted: True │
00:01:52 verbose #3411 > │ IsRenamed: False │
00:01:52 verbose #3412 > │ FSharpOption<Unit> │
00:01:52 verbose #3413 > │ Value: <null> │
00:01:52 verbose #3414 > │ │
00:01:52 verbose #3415 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #3416 >
00:01:52 verbose #3417 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:52 verbose #3418 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #3419 > │ ### testEventsSorted (test) │
00:01:52 verbose #3420 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #3421 >
00:01:52 verbose #3422 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:52 verbose #3423 > //// test
00:01:52 verbose #3424 >
00:01:52 verbose #3425 > let inline sortEvent event =
00:01:52 verbose #3426 > match event with
00:01:52 verbose #3427 > | FileSystemChange.Failure _ -> 0
00:01:52 verbose #3428 > | FileSystemChange.Created _ -> 1
00:01:52 verbose #3429 > | FileSystemChange.Changed _ -> 2
00:01:52 verbose #3430 > | FileSystemChange.Renamed (_oldPath, _) -> 3
00:01:52 verbose #3431 > | FileSystemChange.Deleted _ -> 4
00:01:52 verbose #3432 >
00:01:52 verbose #3433 > let inline formatEvents events =
00:01:52 verbose #3434 > events
00:01:52 verbose #3435 > |> Seq.toList
00:01:52 verbose #3436 > |> List.sortBy (snd >> sortEvent)
00:01:52 verbose #3437 > |> List.choose (fun (ticks, event) ->
00:01:52 verbose #3438 > match event with
00:01:52 verbose #3439 > | FileSystemChange.Failure _ ->
00:01:52 verbose #3440 > None
00:01:52 verbose #3441 > | FileSystemChange.Changed (path, _) ->
00:01:52 verbose #3442 > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:52 verbose #3443 > FileSystemChangeType.Changed)
00:01:52 verbose #3444 > | FileSystemChange.Created (path, _) ->
00:01:52 verbose #3445 > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:52 verbose #3446 > FileSystemChangeType.Created)
00:01:52 verbose #3447 > | FileSystemChange.Deleted path ->
00:01:52 verbose #3448 > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:52 verbose #3449 > FileSystemChangeType.Deleted)
00:01:52 verbose #3450 > | FileSystemChange.Renamed (_oldPath, (path, _)) ->
00:01:52 verbose #3451 > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:52 verbose #3452 > FileSystemChangeType.Renamed)
00:01:52 verbose #3453 > )
00:01:52 verbose #3454 > |> List.sortBy (fun (_, path, _) -> path)
00:01:52 verbose #3455 > |> List.distinctBy (fun (_, path, event) -> path, event)
00:01:52 verbose #3456 >
00:01:52 verbose #3457 > let inline testEventsSorted
00:01:52 verbose #3458 > (watchFn : string -> FSharp.Control.AsyncSeq<int64 * FileSystemChange> *
00:01:52 verbose #3459 > IDisposable)
00:01:52 verbose #3460 > write
00:01:52 verbose #3461 > =
00:01:52 verbose #3462 > let struct (tempDir, tempDisposable) =
00:01:52 verbose #3463 > SpiralFileSystem.create_temp_directory ()
00:01:52 verbose #3464 > let stream, disposable = watchFn tempDir
00:01:52 verbose #3465 >
00:01:52 verbose #3466 > let events = System.Collections.Concurrent.ConcurrentBag ()
00:01:52 verbose #3467 >
00:01:52 verbose #3468 > let inline iter () =
00:01:52 verbose #3469 > stream
00:01:52 verbose #3470 > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:01:52 verbose #3471 > events.Add event })
00:01:52 verbose #3472 >
00:01:52 verbose #3473 > let run = async {
00:01:52 verbose #3474 > let! _ = iter () |> Async.StartChild
00:01:52 verbose #3475 > do! Async.Sleep 250
00:01:52 verbose #3476 > return! write tempDir
00:01:52 verbose #3477 > }
00:01:52 verbose #3478 >
00:01:52 verbose #3479 > try
00:01:52 verbose #3480 > run
00:01:52 verbose #3481 > |> Async.runWithTimeout 5000
00:01:52 verbose #3482 > |> _assertEqual (Some ())
00:01:52 verbose #3483 > finally
00:01:52 verbose #3484 > disposable.Dispose ()
00:01:52 verbose #3485 > tempDisposable.Dispose ()
00:01:52 verbose #3486 >
00:01:52 verbose #3487 > let events = formatEvents events
00:01:52 verbose #3488 >
00:01:52 verbose #3489 > let eventMap =
00:01:52 verbose #3490 > events
00:01:52 verbose #3491 > |> List.map (fun (ticks, path, event) -> path, (event, ticks))
00:01:52 verbose #3492 > |> List.groupBy fst
00:01:52 verbose #3493 > |> List.map (fun (path, events) ->
00:01:52 verbose #3494 > let event, _ticks =
00:01:52 verbose #3495 > events
00:01:52 verbose #3496 > |> List.map snd
00:01:52 verbose #3497 > |> List.sortByDescending snd
00:01:52 verbose #3498 > |> List.head
00:01:52 verbose #3499 >
00:01:52 verbose #3500 > path, event
00:01:52 verbose #3501 > )
00:01:52 verbose #3502 > |> Map.ofList
00:01:52 verbose #3503 >
00:01:52 verbose #3504 > let eventList =
00:01:52 verbose #3505 > events
00:01:52 verbose #3506 > |> List.map (fun (_ticks, path, event) -> path, event)
00:01:52 verbose #3507 >
00:01:52 verbose #3508 > eventMap, eventList
00:01:53 verbose #3509 >
00:01:53 verbose #3510 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 verbose #3511 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 verbose #3512 > │ #### create and delete (test) │
00:01:53 verbose #3513 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 verbose #3514 >
00:01:53 verbose #3515 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:53 verbose #3516 > //// test
00:01:53 verbose #3517 >
00:01:53 verbose #3518 > let inline write path = async {
00:01:53 verbose #3519 > let n = 3
00:01:53 verbose #3520 >
00:01:53 verbose #3521 > for i = 1 to n do
00:01:53 verbose #3522 > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:53 verbose #3523 > $"file{i}.txt")
00:01:53 verbose #3524 >
00:01:53 verbose #3525 > for i = 1 to n do
00:01:53 verbose #3526 > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:01:53 verbose #3527 > Async.Ignore
00:01:53 verbose #3528 >
00:01:53 verbose #3529 > do! Async.Sleep 150
00:01:53 verbose #3530 > }
00:01:53 verbose #3531 >
00:01:53 verbose #3532 > let inline run () =
00:01:53 verbose #3533 > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:53 verbose #3534 > write
00:01:53 verbose #3535 >
00:01:53 verbose #3536 > [[
00:01:53 verbose #3537 > "file1.txt", nameof FileSystemChangeType.Created
00:01:53 verbose #3538 > "file1.txt", nameof FileSystemChangeType.Changed
00:01:53 verbose #3539 > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:53 verbose #3540 >
00:01:53 verbose #3541 > "file2.txt", nameof FileSystemChangeType.Created
00:01:53 verbose #3542 > "file2.txt", nameof FileSystemChangeType.Changed
00:01:53 verbose #3543 > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:53 verbose #3544 >
00:01:53 verbose #3545 > "file3.txt", nameof FileSystemChangeType.Created
00:01:53 verbose #3546 > "file3.txt", nameof FileSystemChangeType.Changed
00:01:53 verbose #3547 > "file3.txt", nameof FileSystemChangeType.Deleted
00:01:53 verbose #3548 > ]]
00:01:53 verbose #3549 > |> _sequenceEqual eventList
00:01:53 verbose #3550 >
00:01:53 verbose #3551 > [[
00:01:53 verbose #3552 > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:53 verbose #3553 > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:53 verbose #3554 > "file3.txt", nameof FileSystemChangeType.Deleted
00:01:53 verbose #3555 > ]]
00:01:53 verbose #3556 > |> Map.ofList
00:01:53 verbose #3557 > |> _sequenceEqual eventMap
00:01:53 verbose #3558 >
00:01:53 verbose #3559 > run
00:01:53 verbose #3560 > |> retry_fn 3
00:01:53 verbose #3561 > |> _assertEqual (Some ())
00:01:54 verbose #3562 >
00:01:54 verbose #3563 > ╭─[ 1.54s - stdout ]───────────────────────────────────────────────────────────╮
00:01:54 verbose #3564 > │ FSharpOption<Unit> │
00:01:54 verbose #3565 > │ Value: <null> │
00:01:54 verbose #3566 > │ 00:00:17 debug #5 watchWithFilter / Disposing watch stream / filter: │
00:01:54 verbose #3567 > │ FileName, LastWrite │
00:01:54 verbose #3568 > │ FSharpList<Tuple<String,String>> │
00:01:54 verbose #3569 > │ ( file1.txt, Created ) │
00:01:54 verbose #3570 > │ ( file1.txt, Changed ) │
00:01:54 verbose #3571 > │ ( file1.txt, Deleted ) │
00:01:54 verbose #3572 > │ ( file2.txt, Created ) │
00:01:54 verbose #3573 > │ ( file2.txt, Changed ) │
00:01:54 verbose #3574 > │ ( file2.txt, Deleted ) │
00:01:54 verbose #3575 > │ ( file3.txt, Created ) │
00:01:54 verbose #3576 > │ ( file3.txt, Changed ) │
00:01:54 verbose #3577 > │ ( file3.txt, Deleted ) │
00:01:54 verbose #3578 > │ FSharpMap<String,String> │
00:01:54 verbose #3579 > │ - Key: file1.txt │
00:01:54 verbose #3580 > │ Value: Deleted │
00:01:54 verbose #3581 > │ - Key: file2.txt │
00:01:54 verbose #3582 > │ Value: Deleted │
00:01:54 verbose #3583 > │ - Key: file3.txt │
00:01:54 verbose #3584 > │ Value: Deleted │
00:01:54 verbose #3585 > │ FSharpOption<Unit> │
00:01:54 verbose #3586 > │ Value: <null> │
00:01:54 verbose #3587 > │ │
00:01:54 verbose #3588 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #3589 >
00:01:54 verbose #3590 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 verbose #3591 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 verbose #3592 > │ #### change (test) │
00:01:54 verbose #3593 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #3594 >
00:01:54 verbose #3595 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:54 verbose #3596 > //// test
00:01:54 verbose #3597 >
00:01:54 verbose #3598 > let inline write path = async {
00:01:54 verbose #3599 > let n = 2
00:01:54 verbose #3600 >
00:01:54 verbose #3601 > for i = 1 to n do
00:01:54 verbose #3602 > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:54 verbose #3603 > $"file{i}.txt")
00:01:54 verbose #3604 >
00:01:54 verbose #3605 > for i = 1 to n do
00:01:54 verbose #3606 > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:01:54 verbose #3607 > $"file{i}.txt")
00:01:54 verbose #3608 >
00:01:54 verbose #3609 > for i = 1 to n do
00:01:54 verbose #3610 > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:01:54 verbose #3611 > Async.Ignore
00:01:54 verbose #3612 >
00:01:54 verbose #3613 > do! Async.Sleep 150
00:01:54 verbose #3614 > }
00:01:54 verbose #3615 >
00:01:54 verbose #3616 > let inline run () =
00:01:54 verbose #3617 > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:54 verbose #3618 > write
00:01:54 verbose #3619 >
00:01:54 verbose #3620 > [[
00:01:54 verbose #3621 > "file1.txt", nameof FileSystemChangeType.Created
00:01:54 verbose #3622 > "file1.txt", nameof FileSystemChangeType.Changed
00:01:54 verbose #3623 > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:54 verbose #3624 >
00:01:54 verbose #3625 > "file2.txt", nameof FileSystemChangeType.Created
00:01:54 verbose #3626 > "file2.txt", nameof FileSystemChangeType.Changed
00:01:54 verbose #3627 > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:54 verbose #3628 > ]]
00:01:54 verbose #3629 > |> _sequenceEqual eventList
00:01:54 verbose #3630 >
00:01:54 verbose #3631 > [[
00:01:54 verbose #3632 > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:54 verbose #3633 > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:54 verbose #3634 > ]]
00:01:54 verbose #3635 > |> Map.ofList
00:01:54 verbose #3636 > |> _sequenceEqual eventMap
00:01:54 verbose #3637 >
00:01:54 verbose #3638 > run
00:01:54 verbose #3639 > |> retry_fn 3
00:01:54 verbose #3640 > |> _assertEqual (Some ())
00:01:56 verbose #3641 >
00:01:56 verbose #3642 > ╭─[ 1.63s - stdout ]───────────────────────────────────────────────────────────╮
00:01:56 verbose #3643 > │ FSharpOption<Unit> │
00:01:56 verbose #3644 > │ Value: <null> │
00:01:56 verbose #3645 > │ 00:00:19 debug #6 watchWithFilter / Disposing watch stream / filter: │
00:01:56 verbose #3646 > │ FileName, LastWrite │
00:01:56 verbose #3647 > │ FSharpList<Tuple<String,String>> │
00:01:56 verbose #3648 > │ ( file1.txt, Created ) │
00:01:56 verbose #3649 > │ ( file1.txt, Changed ) │
00:01:56 verbose #3650 > │ ( file1.txt, Deleted ) │
00:01:56 verbose #3651 > │ ( file2.txt, Created ) │
00:01:56 verbose #3652 > │ ( file2.txt, Changed ) │
00:01:56 verbose #3653 > │ ( file2.txt, Deleted ) │
00:01:56 verbose #3654 > │ FSharpMap<String,String> │
00:01:56 verbose #3655 > │ - Key: file1.txt │
00:01:56 verbose #3656 > │ Value: Deleted │
00:01:56 verbose #3657 > │ - Key: file2.txt │
00:01:56 verbose #3658 > │ Value: Deleted │
00:01:56 verbose #3659 > │ FSharpOption<Unit> │
00:01:56 verbose #3660 > │ Value: <null> │
00:01:56 verbose #3661 > │ │
00:01:56 verbose #3662 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #3663 >
00:01:56 verbose #3664 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:56 verbose #3665 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:56 verbose #3666 > │ #### rename (test) │
00:01:56 verbose #3667 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #3668 >
00:01:56 verbose #3669 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:56 verbose #3670 > //// test
00:01:56 verbose #3671 >
00:01:56 verbose #3672 > let inline write path = async {
00:01:56 verbose #3673 > let n = 2
00:01:56 verbose #3674 >
00:01:56 verbose #3675 > for i = 1 to n do
00:01:56 verbose #3676 > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:56 verbose #3677 > $"file{i}.txt")
00:01:56 verbose #3678 >
00:01:56 verbose #3679 > for i = 1 to n do
00:01:56 verbose #3680 > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:56 verbose #3681 > </> $"file_{i}.txt") |> Async.Ignore
00:01:56 verbose #3682 >
00:01:56 verbose #3683 > for i = 1 to n do
00:01:56 verbose #3684 > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:56 verbose #3685 > Async.Ignore
00:01:56 verbose #3686 >
00:01:56 verbose #3687 > do! Async.Sleep 150
00:01:56 verbose #3688 > }
00:01:56 verbose #3689 >
00:01:56 verbose #3690 > let inline run () =
00:01:56 verbose #3691 > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:56 verbose #3692 > write
00:01:56 verbose #3693 >
00:01:56 verbose #3694 > [[
00:01:56 verbose #3695 > "file1.txt", nameof FileSystemChangeType.Created
00:01:56 verbose #3696 > "file1.txt", nameof FileSystemChangeType.Changed
00:01:56 verbose #3697 > "file2.txt", nameof FileSystemChangeType.Created
00:01:56 verbose #3698 > "file2.txt", nameof FileSystemChangeType.Changed
00:01:56 verbose #3699 >
00:01:56 verbose #3700 > "file_1.txt", nameof FileSystemChangeType.Renamed
00:01:56 verbose #3701 > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:56 verbose #3702 >
00:01:56 verbose #3703 > "file_2.txt", nameof FileSystemChangeType.Renamed
00:01:56 verbose #3704 > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:56 verbose #3705 > ]]
00:01:56 verbose #3706 > |> _sequenceEqual eventList
00:01:56 verbose #3707 >
00:01:56 verbose #3708 > [[
00:01:56 verbose #3709 > "file1.txt", nameof FileSystemChangeType.Changed
00:01:56 verbose #3710 > "file2.txt", nameof FileSystemChangeType.Changed
00:01:56 verbose #3711 > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:56 verbose #3712 > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:56 verbose #3713 > ]]
00:01:56 verbose #3714 > |> Map.ofList
00:01:56 verbose #3715 > |> _sequenceEqual eventMap
00:01:56 verbose #3716 >
00:01:56 verbose #3717 > run
00:01:56 verbose #3718 > |> retry_fn 3
00:01:56 verbose #3719 > |> _assertEqual (Some ())
00:01:58 verbose #3720 >
00:01:58 verbose #3721 > ╭─[ 1.67s - stdout ]───────────────────────────────────────────────────────────╮
00:01:58 verbose #3722 > │ FSharpOption<Unit> │
00:01:58 verbose #3723 > │ Value: <null> │
00:01:58 verbose #3724 > │ 00:00:21 debug #7 watchWithFilter / Disposing watch stream / filter: │
00:01:58 verbose #3725 > │ FileName, LastWrite │
00:01:58 verbose #3726 > │ FSharpList<Tuple<String,String>> │
00:01:58 verbose #3727 > │ ( file1.txt, Created ) │
00:01:58 verbose #3728 > │ ( file1.txt, Changed ) │
00:01:58 verbose #3729 > │ ( file2.txt, Created ) │
00:01:58 verbose #3730 > │ ( file2.txt, Changed ) │
00:01:58 verbose #3731 > │ ( file_1.txt, Renamed ) │
00:01:58 verbose #3732 > │ ( file_1.txt, Deleted ) │
00:01:58 verbose #3733 > │ ( file_2.txt, Renamed ) │
00:01:58 verbose #3734 > │ ( file_2.txt, Deleted ) │
00:01:58 verbose #3735 > │ FSharpMap<String,String> │
00:01:58 verbose #3736 > │ - Key: file1.txt │
00:01:58 verbose #3737 > │ Value: Changed │
00:01:58 verbose #3738 > │ - Key: file2.txt │
00:01:58 verbose #3739 > │ Value: Changed │
00:01:58 verbose #3740 > │ - Key: file_1.txt │
00:01:58 verbose #3741 > │ Value: Deleted │
00:01:58 verbose #3742 > │ - Key: file_2.txt │
00:01:58 verbose #3743 > │ Value: Deleted │
00:01:58 verbose #3744 > │ FSharpOption<Unit> │
00:01:58 verbose #3745 > │ Value: <null> │
00:01:58 verbose #3746 > │ │
00:01:58 verbose #3747 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 verbose #3748 >
00:01:58 verbose #3749 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:58 verbose #3750 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:58 verbose #3751 > │ #### full (test) │
00:01:58 verbose #3752 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 verbose #3753 >
00:01:58 verbose #3754 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:58 verbose #3755 > //// test
00:01:58 verbose #3756 >
00:01:58 verbose #3757 > let inline write path = async {
00:01:58 verbose #3758 > let n = 2
00:01:58 verbose #3759 >
00:01:58 verbose #3760 > for i = 1 to n do
00:01:58 verbose #3761 > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:58 verbose #3762 > $"file{i}.txt")
00:01:58 verbose #3763 >
00:01:58 verbose #3764 > for i = 1 to n do
00:01:58 verbose #3765 > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:01:58 verbose #3766 > $"file{i}.txt")
00:01:58 verbose #3767 >
00:01:58 verbose #3768 > for i = 1 to n do
00:01:58 verbose #3769 > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:58 verbose #3770 > </> $"file_{i}.txt") |> Async.Ignore
00:01:58 verbose #3771 >
00:01:58 verbose #3772 > for i = 1 to n do
00:01:58 verbose #3773 > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:58 verbose #3774 > $"file_{i}.txt")
00:01:58 verbose #3775 >
00:01:58 verbose #3776 > for i = 1 to n do
00:01:58 verbose #3777 > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:58 verbose #3778 > Async.Ignore
00:01:58 verbose #3779 >
00:01:58 verbose #3780 > do! Async.Sleep 150
00:01:58 verbose #3781 > }
00:01:58 verbose #3782 >
00:01:58 verbose #3783 > let inline run () =
00:01:58 verbose #3784 > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:58 verbose #3785 > write
00:01:58 verbose #3786 >
00:01:58 verbose #3787 > [[
00:01:58 verbose #3788 > "file1.txt", nameof FileSystemChangeType.Created
00:01:58 verbose #3789 > "file1.txt", nameof FileSystemChangeType.Changed
00:01:58 verbose #3790 > "file2.txt", nameof FileSystemChangeType.Created
00:01:58 verbose #3791 > "file2.txt", nameof FileSystemChangeType.Changed
00:01:58 verbose #3792 >
00:01:58 verbose #3793 > "file_1.txt", nameof FileSystemChangeType.Changed
00:01:58 verbose #3794 > "file_1.txt", nameof FileSystemChangeType.Renamed
00:01:58 verbose #3795 > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:58 verbose #3796 >
00:01:58 verbose #3797 > "file_2.txt", nameof FileSystemChangeType.Changed
00:01:58 verbose #3798 > "file_2.txt", nameof FileSystemChangeType.Renamed
00:01:58 verbose #3799 > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:58 verbose #3800 > ]]
00:01:58 verbose #3801 > |> _sequenceEqual eventList
00:01:58 verbose #3802 >
00:01:58 verbose #3803 > [[
00:01:58 verbose #3804 > "file1.txt", nameof FileSystemChangeType.Changed
00:01:58 verbose #3805 > "file2.txt", nameof FileSystemChangeType.Changed
00:01:58 verbose #3806 > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:58 verbose #3807 > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:58 verbose #3808 > ]]
00:01:58 verbose #3809 > |> Map.ofList
00:01:58 verbose #3810 > |> _sequenceEqual eventMap
00:01:58 verbose #3811 >
00:01:58 verbose #3812 > run
00:01:58 verbose #3813 > |> retry_fn 3
00:01:58 verbose #3814 > |> _assertEqual (Some ())
00:02:00 verbose #3815 >
00:02:00 verbose #3816 > ╭─[ 2.03s - stdout ]───────────────────────────────────────────────────────────╮
00:02:00 verbose #3817 > │ FSharpOption<Unit> │
00:02:00 verbose #3818 > │ Value: <null> │
00:02:00 verbose #3819 > │ 00:00:23 debug #8 watchWithFilter / Disposing watch stream / filter: │
00:02:00 verbose #3820 > │ FileName, LastWrite │
00:02:00 verbose #3821 > │ FSharpList<Tuple<String,String>> │
00:02:00 verbose #3822 > │ ( file1.txt, Created ) │
00:02:00 verbose #3823 > │ ( file1.txt, Changed ) │
00:02:00 verbose #3824 > │ ( file2.txt, Created ) │
00:02:00 verbose #3825 > │ ( file2.txt, Changed ) │
00:02:00 verbose #3826 > │ ( file_1.txt, Changed ) │
00:02:00 verbose #3827 > │ ( file_1.txt, Renamed ) │
00:02:00 verbose #3828 > │ ( file_1.txt, Deleted ) │
00:02:00 verbose #3829 > │ ( file_2.txt, Changed ) │
00:02:00 verbose #3830 > │ ( file_2.txt, Renamed ) │
00:02:00 verbose #3831 > │ ( file_2.txt, Deleted ) │
00:02:00 verbose #3832 > │ FSharpMap<String,String> │
00:02:00 verbose #3833 > │ - Key: file1.txt │
00:02:00 verbose #3834 > │ Value: Changed │
00:02:00 verbose #3835 > │ - Key: file2.txt │
00:02:00 verbose #3836 > │ Value: Changed │
00:02:00 verbose #3837 > │ - Key: file_1.txt │
00:02:00 verbose #3838 > │ Value: Deleted │
00:02:00 verbose #3839 > │ - Key: file_2.txt │
00:02:00 verbose #3840 > │ Value: Deleted │
00:02:00 verbose #3841 > │ FSharpOption<Unit> │
00:02:00 verbose #3842 > │ Value: <null> │
00:02:00 verbose #3843 > │ │
00:02:00 verbose #3844 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #3845 > [NbConvertApp] Converting notebook FileSystem.dib.ipynb to html
00:02:01 verbose #3846 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:01 verbose #3847 > validate(nb)
00:02:02 verbose #3848 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:02 verbose #3849 > return _pygments_highlight(
00:02:03 verbose #3850 > [NbConvertApp] Writing 388101 bytes to FileSystem.dib.html
00:02:03 debug #3851 execute_with_options_async / exit_code: 0 / output.Length: 70895
00:02:03 debug #7 main / executeCommand / exitCode: 0
00:02:03 debug #3852 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Runtime.dib -Retries 3"", None,
None)
00:02:04 verbose #3853 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: Runtime.dib / _args: [
00:02:04 verbose #3854 > "-Retries",
00:02:04 verbose #3855 > 3
00:02:04 verbose #3856 > ]
00:02:06 verbose #3857 >
00:02:06 verbose #3858 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3859 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3860 > │ # Runtime (Polyglot) │
00:02:06 verbose #3861 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3862 >
00:02:06 verbose #3863 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3864 > #r
00:02:06 verbose #3865 > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:02:06 verbose #3866 > dard2.1/FSharp.Control.AsyncSeq.dll"
00:02:06 verbose #3867 > #r
00:02:06 verbose #3868 > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:02:06 verbose #3869 > 0/System.Reactive.dll"
00:02:06 verbose #3870 > #r
00:02:06 verbose #3871 > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:02:06 verbose #3872 > netstandard2.0/System.Reactive.Linq.dll"
00:02:06 verbose #3873 > #r
00:02:06 verbose #3874 > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:02:06 verbose #3875 > #r
00:02:06 verbose #3876 > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:02:06 verbose #3877 > b/net6.0/System.CommandLine.dll"
00:02:06 verbose #3878 >
00:02:06 verbose #3879 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 verbose #3880 > #r
00:02:06 verbose #3881 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:06 verbose #3882 > spNetCore.Html.Abstractions.dll"
00:02:06 verbose #3883 > #r
00:02:06 verbose #3884 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:06 verbose #3885 > otNet.Interactive.dll"
00:02:06 verbose #3886 > #r
00:02:06 verbose #3887 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:06 verbose #3888 > otNet.Interactive.FSharp.dll"
00:02:06 verbose #3889 > #r
00:02:06 verbose #3890 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:06 verbose #3891 > otNet.Interactive.Formatting.dll"
00:02:06 verbose #3892 > open System
00:02:06 verbose #3893 > open System.IO
00:02:06 verbose #3894 > open System.Text
00:02:06 verbose #3895 > open Microsoft.DotNet.Interactive.Formatting
00:02:09 verbose #3896 >
00:02:09 verbose #3897 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:09 verbose #3898 > #r
00:02:09 verbose #3899 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:09 verbose #3900 > otNet.Interactive.FSharp.dll"
00:02:09 verbose #3901 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:09 verbose #3902 > #r
00:02:09 verbose #3903 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:09 verbose #3904 > otNet.Interactive.dll"
00:02:09 verbose #3905 > open type Microsoft.DotNet.Interactive.Kernel
00:02:09 verbose #3906 >
00:02:09 verbose #3907 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:09 verbose #3908 > #!import ../../lib/fsharp/Notebooks.dib
00:02:09 verbose #3909 > #!import ../../lib/fsharp/Testing.dib
00:02:09 verbose #3910 >
00:02:09 verbose #3911 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:09 verbose #3912 > //// test
00:02:09 verbose #3913 >
00:02:09 verbose #3914 > Formatter.ListExpansionLimit <- 100
00:02:10 verbose #3915 >
00:02:10 verbose #3916 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:10 verbose #3917 > #if FABLE_COMPILER // common.types
00:02:10 verbose #3918 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:10 verbose #3919 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:10 verbose #3920 > class end
00:02:10 verbose #3921 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:10 verbose #3922 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:10 verbose #3923 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:10 verbose #3924 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:10 verbose #3925 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:10 verbose #3926 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:10 verbose #3927 > class end
00:02:10 verbose #3928 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:10 verbose #3929 > [[<Fable.Core.Erase;...
00:02:11 verbose #3930 >
00:02:11 verbose #3931 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:11 verbose #3932 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:11 verbose #3933 > and Mut1 = {mutable l0 : int32}
00:02:11 verbose #3934 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:11 verbose #3935 > let v2 : bool = v1.Contains v0
00:02:11 verbose #3936 > v2
00:02:11 verbose #3937 > and closure0 () (v0 : string) : (string -> bool) =
00:02:11 verbose #3938 > closure1(v0)
00:02:11 verbose #3939 > and closure3 (v0 : string) (v1 : string) : bool =
00:02:11 verbose #3940 > let v2 : bool = v1.EndsWith v0
00:02:11 verbose #3941 > v2
00:02:11 verbose #3942 > and closure2 () (v0 : string) : (string -> bool) =
00:02:11 verbose #3943 > closure3(v0)
00:02:11 verbose #3944 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:11 verbose #3945 > let v3 : string = v2.PadLeft (v0, v1)
00:02:11 verbose #3946 > v3
00:02:11 verbose #3947 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:11 verbose #3948 > closure6(v0, v1)
00:02:11 verbose #3949 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:11 verbose #3950 > closure5(v0)
00:02:11 verbose #3951 > and closure8 (v0 : int32) (v1 : string) : string =
00:02:11 verbose #3952 > let v2 : stri...
00:02:12 verbose #3953 >
00:02:12 verbose #3954 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #3955 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:12 verbose #3956 > type Mut0 = {mutable l0 : int32}
00:02:12 verbose #3957 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:12 verbose #3958 > let v2 : int32 = v1.l0
00:02:12 verbose #3959 > let v3 : bool = v2 < v0
00:02:12 verbose #3960 > v3
00:02:12 verbose #3961 > and method1 () : string =
00:02:12 verbose #3962 > let v0 : string = ""
00:02:12 verbose #3963 > v0
00:02:12 verbose #3964 > and closure0 () (v0 : string) : string =
00:02:12 verbose #3965 > let v1 : string option = None
00:02:12 verbose #3966 > let v2 : bool = true in let mutable _v1 = v1
00:02:12 verbose #3967 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:12 verbose #3968 > let v3 : string = null |> unbox<string>
00:02:12 verbose #3969 > v3
00:02:12 verbose #3970 > #endif
00:02:12 verbose #3971 > #if FABLE_COMPILER_RUST && WASM
00:02:12 verbose #3972 > let v4 : string = null |> unbox<string>
00:02:12 verbose #3973 > v4
00:02:12 verbose #3974 > #endif
00:02:12 verbose #3975 > #if FABLE_COMPILER_RUST && CONTRACT
00:02:12 verbose #3976 > let v5 : string = null |> unbox<string>
00:02:12 verbose #3977 > v5
00:02:12 verbose #3978 > #endif
00:02:12 verbose #3979 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:02:12 verbose #3980 >
00:02:12 verbose #3981 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #3982 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:12 verbose #3983 > let v2 : (System.Guid -> string) = _.ToString()
00:02:12 verbose #3984 > let v3 : string = v2 v0
00:02:12 verbose #3985 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:12 verbose #3986 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:12 verbose #3987 > v5
00:02:12 verbose #3988 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:12 verbose #3989 > closure1(v0)
00:02:12 verbose #3990 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:12 verbose #3991 > let v3 : string = v2.Replace (v0, v1)
00:02:12 verbose #3992 > v3
00:02:12 verbose #3993 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:12 verbose #3994 > closure5(v0, v1)
00:02:12 verbose #3995 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:12 verbose #3996 > closure4(v0)
00:02:12 verbose #3997 > and method0 () : (string -> (string -> (string -> string))) =
00:02:12 verbose #3998 > closure3()
00:02:12 verbose #3999 > and closure2 (...
00:02:12 verbose #4000 >
00:02:12 verbose #4001 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #4002 > #if FABLE_COMPILER // async.types
00:02:12 verbose #4003 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:02:12 verbose #4004 > std_future_Future<'T> = class end
00:02:12 verbose #4005 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:02:12 verbose #4006 > futures_future_TryJoinAll<'T> = class end
00:02:12 verbose #4007 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:02:12 verbose #4008 > rayon_vec_IntoIter<'T> = class end
00:02:12 verbose #4009 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:02:12 verbose #4010 > rayon_iter_Map<'T> = class end
00:02:12 verbose #4011 > #endif // async.types
00:02:12 verbose #4012 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:12 verbose #4013 > Async<System.Threading.CancellationToken> =
00:02:12 verbose #4014 > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:12 verbose #4015 > let v2 : bool = true in let mutable _v1 = v1
00:02:12 verbose #4016 > #if FABLE_COMPILER_RUST ...
00:02:12 verbose #4017 >
00:02:12 verbose #4018 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #4019 > type [[<Struct>]] US0 =
00:02:12 verbose #4020 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:02:12 verbose #4021 > | US0_1
00:02:12 verbose #4022 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:02:12 verbose #4023 > US0_0(v0)
00:02:12 verbose #4024 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:02:12 verbose #4025 > closure1()
00:02:12 verbose #4026 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:02:12 verbose #4027 > let v1 : unit option = None
00:02:12 verbose #4028 > let v2 : bool = true in let mutable _v1 = v1
00:02:12 verbose #4029 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:12 verbose #4030 > null |> unbox<unit>
00:02:12 verbose #4031 > ()
00:02:12 verbose #4032 > #endif
00:02:12 verbose #4033 > #if FABLE_COMPILER_RUST && WASM
00:02:12 verbose #4034 > null |> unbox<unit>
00:02:12 verbose #4035 > ()
00:02:12 verbose #4036 > #endif
00:02:12 verbose #4037 > #if FABLE_COMPILER_RUST && CONTRACT
00:02:12 verbose #4038 > null |> unbox<unit>
00:02:12 verbose #4039 > ()
00:02:12 verbose #4040 > #endif
00:02:12 verbose #4041 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:12 verbose #4042 > !WASM && !CONTRACT
00:02:12 verbose #4043 > ...
00:02:12 verbose #4044 >
00:02:12 verbose #4045 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #4046 > #if FABLE_COMPILER // networking.types
00:02:12 verbose #4047 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:12 verbose #4048 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:12 verbose #4049 > class end
00:02:12 verbose #4050 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:12 verbose #4051 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:12 verbose #4052 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:12 verbose #4053 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:12 verbose #4054 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:12 verbose #4055 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:12 verbose #4056 > class end
00:02:12 verbose #4057 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:12 verbose #4058 > [[<Fable.Core.Er...
00:02:14 verbose #4059 >
00:02:14 verbose #4060 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:14 verbose #4061 > #if FABLE_COMPILER // runtime.types
00:02:14 verbose #4062 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:14 verbose #4063 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:14 verbose #4064 > class end
00:02:14 verbose #4065 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:14 verbose #4066 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:14 verbose #4067 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:14 verbose #4068 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:14 verbose #4069 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:14 verbose #4070 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:14 verbose #4071 > class end
00:02:14 verbose #4072 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:14 verbose #4073 > [[<Fable.Core.Erase...
00:02:15 verbose #4074 >
00:02:15 verbose #4075 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:15 verbose #4076 > #if FABLE_COMPILER // file_system.types
00:02:15 verbose #4077 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:15 verbose #4078 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:15 verbose #4079 > base64_DecodeError = class end
00:02:15 verbose #4080 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:15 verbose #4081 > = class end
00:02:15 verbose #4082 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:15 verbose #4083 > = class end
00:02:15 verbose #4084 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:15 verbose #4085 > serde_json_Error = class end
00:02:15 verbose #4086 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:15 verbose #4087 > serde_json_Value = class end
00:02:15 verbose #4088 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:15 verbose #4089 > serde_wasm_bindgen_Error = class end
00:02:15 verbose #4090 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:17 verbose #4091 >
00:02:17 verbose #4092 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #4093 > #if FABLE_COMPILER // trace.types
00:02:17 verbose #4094 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:17 verbose #4095 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:17 verbose #4096 > class end
00:02:17 verbose #4097 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:17 verbose #4098 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:17 verbose #4099 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:17 verbose #4100 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:17 verbose #4101 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:17 verbose #4102 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:17 verbose #4103 > class end
00:02:17 verbose #4104 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:17 verbose #4105 > [[<Fable.Core.Erase; ...
00:02:17 verbose #4106 >
00:02:17 verbose #4107 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #4108 > module SpiralTrace =
00:02:17 verbose #4109 > let trace x =
00:02:17 verbose #4110 > #if !INTERACTIVE
00:02:17 verbose #4111 > Trace.trace x
00:02:17 verbose #4112 > #else
00:02:17 verbose #4113 > trace x
00:02:17 verbose #4114 > #endif
00:02:17 verbose #4115 >
00:02:17 verbose #4116 > type TraceLevel =
00:02:17 verbose #4117 > #if !INTERACTIVE
00:02:17 verbose #4118 > Trace.US0
00:02:17 verbose #4119 > #else
00:02:17 verbose #4120 > US0
00:02:17 verbose #4121 > #endif
00:02:17 verbose #4122 >
00:02:17 verbose #4123 > module SpiralCrypto =
00:02:17 verbose #4124 > let hash_text x =
00:02:17 verbose #4125 > #if !INTERACTIVE
00:02:17 verbose #4126 > Crypto.hash_text x
00:02:17 verbose #4127 > #else
00:02:17 verbose #4128 > hash_text x
00:02:17 verbose #4129 > #endif
00:02:17 verbose #4130 >
00:02:17 verbose #4131 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:17 verbose #4132 >
00:02:17 verbose #4133 > module SpiralAsync =
00:02:17 verbose #4134 > let merge_cancellation_token_with_default_async x =
00:02:17 verbose #4135 > #if !INTERACTIVE
00:02:17 verbose #4136 > Async_.merge_cancellation_token_with_default_async x
00:02:17 verbose #4137 > #else
00:02:17 verbose #4138 > merge_cancellation_token_with_default_async x
00:02:17 verbose #4139 > #endif
00:02:17 verbose #4140 >
00:02:17 verbose #4141 > module SpiralThreading =
00:02:17 verbose #4142 > let new_disposable_token x =
00:02:17 verbose #4143 > #if !INTERACTIVE
00:02:17 verbose #4144 > Threading.new_disposable_token x
00:02:17 verbose #4145 > #else
00:02:17 verbose #4146 > new_disposable_token x
00:02:17 verbose #4147 > #endif
00:02:17 verbose #4148 >
00:02:17 verbose #4149 > module Spi...
00:02:17 verbose #4150 >
00:02:17 verbose #4151 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #4152 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:17 verbose #4153 >
00:02:17 verbose #4154 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #4155 > //// test
00:02:17 verbose #4156 >
00:02:17 verbose #4157 > type AssertExceptionFormatter (ex) =
00:02:17 verbose #4158 > member _.Text =
00:02:17 verbose #4159 > ex.ToString()
00:02:17 verbose #4160 > .Replace("32m", "<span style=\"color: green;\">")
00:02:17 verbose #4161 > .Replace("36m", "</span>")
00:02:17 verbose #4162 > .Replace("31m", "<span style=\"color: red;\">")
00:02:17 verbose #4163 > .Replace("\n", "<br/>\n")
00:02:17 verbose #4164 >
00:02:17 verbose #4165 >
00:02:17 verbose #4166 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:17 verbose #4167 > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:18 verbose #4168 >
00:02:18 verbose #4169 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:18 verbose #4170 > //// test
00:02:18 verbose #4171 >
00:02:18 verbose #4172 > let inline __expect fn log expected actual =
00:02:18 verbose #4173 > if log then printfn $"{actual.ToDisplayString ()}"
00:02:18 verbose #4174 > try
00:02:18 verbose #4175 > "Testing.__expect" |> fn actual expected
00:02:18 verbose #4176 > with :? Expecto.AssertException as ex ->
00:02:18 verbose #4177 > AssertExceptionFormatter(ex).Display () |> ignore
00:02:18 verbose #4178 > failwith (ex.GetType().FullName)
00:02:18 verbose #4179 >
00:02:18 verbose #4180 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:18 verbose #4181 > expected actual
00:02:18 verbose #4182 > let inline _contains expected actual = __contains true expected actual
00:02:18 verbose #4183 >
00:02:18 verbose #4184 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:18 verbose #4185 > expected actual
00:02:18 verbose #4186 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:18 verbose #4187 >
00:02:18 verbose #4188 > let inline __isGreaterThan log expected actual = __expect
00:02:18 verbose #4189 > Expecto.Expect.isGreaterThan log ex...
00:02:18 verbose #4190 >
00:02:18 verbose #4191 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:18 verbose #4192 > //// test
00:02:18 verbose #4193 >
00:02:18 verbose #4194 > let inline __isBetween log a b actual =
00:02:18 verbose #4195 > let inline isBetween actual (a, b) _ =
00:02:18 verbose #4196 > __isGreaterThanOrEqual log a actual
00:02:18 verbose #4197 > __isLessThanOrEqual log b actual
00:02:18 verbose #4198 > __expect isBetween log (a, b) actual
00:02:18 verbose #4199 > let inline _isBetween a b actual = __isBetween true a b actual
00:02:18 verbose #4200 >
00:02:18 verbose #4201 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:18 verbose #4202 > #!import ../../lib/fsharp/Common.fs
00:02:18 verbose #4203 > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:18 verbose #4204 > #!import ../../lib/fsharp/Async.fs
00:02:18 verbose #4205 > #!import ../../lib/fsharp/AsyncSeq.fs
00:02:18 verbose #4206 > #!import ../../lib/fsharp/Runtime.fs
00:02:18 verbose #4207 > #!import ../../lib/fsharp/FileSystem.fs
00:02:18 verbose #4208 >
00:02:18 verbose #4209 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:18 verbose #4210 > #if !INTERACTIVE
00:02:18 verbose #4211 > namespace Polyglot
00:02:18 verbose #4212 > #endif
00:02:18 verbose #4213 >
00:02:18 verbose #4214 > module Common =
00:02:18 verbose #4215 >
00:02:18 verbose #4216 > #if !INTERACTIVE
00:02:18 verbose #4217 > open Lib
00:02:18 verbose #4218 > #endif
00:02:18 verbose #4219 >
00:02:18 verbose #4220 > let nl = System.Environment.NewLine
00:02:18 verbose #4221 > let q = @""""
00:02:18 verbose #4222 >
00:02:18 verbose #4223 > let inline cons head tail = head :: tail
00:02:18 verbose #4224 >
00:02:18 verbose #4225 > /// ## memoize
00:02:18 verbose #4226 > let inline memoize fn =
00:02:18 verbose #4227 > let result = lazy fn ()
00:02:18 verbose #4228 > fun () -> result.Value
00:02:18 verbose #4229 >
00:02:18 verbose #4230 > /// ## TraceLevel
00:02:18 verbose #4231 > type TraceLevel =
00:02:18 verbose #4232 > | Verbose
00:02:18 verbose #4233 > | Debug
00:02:18 verbose #4234 > | Info
00:02:18 verbose #4235 > | Warning
00:02:18 verbose #4236 > | Critical
00:02:18 verbose #4237 >
00:02:18 verbose #4238 > let inline _locals () = ""
00:02:18 verbose #4239 >
00:02:18 verbose #4240 > /// ## trace
00:02:18 verbose #4241 > let to_trace_level = function
00:02:18 verbose #4242 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:18 verbose #4243 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:18 verbose #4244 > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:18 verbose #4245 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:18 verbose #4246 > | Critical -> Spir...
00:02:18 verbose #4247 >
00:02:18 verbose #4248 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:18 verbose #4249 > #if !INTERACTIVE
00:02:18 verbose #4250 > namespace Polyglot
00:02:18 verbose #4251 > #endif
00:02:18 verbose #4252 >
00:02:18 verbose #4253 > module CommonFSharp =
00:02:18 verbose #4254 >
00:02:18 verbose #4255 > open Common
00:02:18 verbose #4256 >
00:02:18 verbose #4257 > /// ## getUnionCaseName
00:02:18 verbose #4258 > let inline getUnionCaseName<'T> (x: 'T) =
00:02:18 verbose #4259 > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:18 verbose #4260 > | case, _ -> case.Name
00:02:18 verbose #4261 >
00:02:18 verbose #4262 >
00:02:18 verbose #4263 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:18 verbose #4264 > #if !INTERACTIVE
00:02:18 verbose #4265 > namespace Polyglot
00:02:18 verbose #4266 > #endif
00:02:18 verbose #4267 >
00:02:18 verbose #4268 > module Async =
00:02:18 verbose #4269 >
00:02:18 verbose #4270 > #if !INTERACTIVE
00:02:18 verbose #4271 > open Lib
00:02:18 verbose #4272 > #endif
00:02:18 verbose #4273 >
00:02:18 verbose #4274 > open Common
00:02:18 verbose #4275 >
00:02:18 verbose #4276 > /// ## choice
00:02:18 verbose #4277 > let inline choice asyncs = async {
00:02:18 verbose #4278 > let e = Event<_> ()
00:02:18 verbose #4279 > use cts = new System.Threading.CancellationTokenSource ()
00:02:18 verbose #4280 > let fn =
00:02:18 verbose #4281 > asyncs
00:02:18 verbose #4282 > |> Seq.map (fun a -> async {
00:02:18 verbose #4283 > let! x = a
00:02:18 verbose #4284 > e.Trigger x
00:02:18 verbose #4285 > })
00:02:18 verbose #4286 > |> Async.Parallel
00:02:18 verbose #4287 > |> Async.Ignore
00:02:18 verbose #4288 > Async.Start (fn, cts.Token)
00:02:18 verbose #4289 > let! result = Async.AwaitEvent e.Publish
00:02:18 verbose #4290 > cts.Cancel ()
00:02:18 verbose #4291 > return result
00:02:18 verbose #4292 > }
00:02:18 verbose #4293 >
00:02:18 verbose #4294 > /// ## map
00:02:18 verbose #4295 > let inline map fn a = async {
00:02:18 verbose #4296 > let! x = a
00:02:18 verbose #4297 > return fn x
00:02:18 verbose #4298 > }
00:02:18 verbose #4299 >
00:02:18 verbose #4300 > /// ## catch
00:02:18 verbose #4301 > let inline catch a =
00:02:18 verbose #4302 > ...
00:02:19 verbose #4303 >
00:02:19 verbose #4304 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:19 verbose #4305 > #if !INTERACTIVE
00:02:19 verbose #4306 > namespace Polyglot
00:02:19 verbose #4307 > #endif
00:02:19 verbose #4308 >
00:02:19 verbose #4309 > module AsyncSeq =
00:02:19 verbose #4310 >
00:02:19 verbose #4311 > #if !INTERACTIVE
00:02:19 verbose #4312 > open Lib
00:02:19 verbose #4313 > #endif
00:02:19 verbose #4314 >
00:02:19 verbose #4315 > open Common
00:02:19 verbose #4316 >
00:02:19 verbose #4317 > /// ## subscribeEvent
00:02:19 verbose #4318 > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:02:19 verbose #4319 > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:02:19 verbose #4320 > 'A>(event.AddHandler, event.RemoveHandler)
00:02:19 verbose #4321 > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:02:19 verbose #4322 > event.EventArgs)
00:02:19 verbose #4323 > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:02:19 verbose #4324 >
00:02:19 verbose #4325 > /// ## subscribeToken
00:02:19 verbose #4326 > let subscribeToken (token : System.Threading.CancellationToken) =
00:02:19 verbose #4327 > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:02:19 verbose #4328 > System.Action tcs.SetResult |> token.Register |> ignore
00:02:19 verbose #4329 > let start = System.DateTime.Now.Ticks...
00:02:19 verbose #4330 >
00:02:19 verbose #4331 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:19 verbose #4332 > #if !INTERACTIVE
00:02:19 verbose #4333 > namespace Polyglot
00:02:19 verbose #4334 > #endif
00:02:19 verbose #4335 >
00:02:19 verbose #4336 > module Runtime =
00:02:19 verbose #4337 >
00:02:19 verbose #4338 > #if !INTERACTIVE
00:02:19 verbose #4339 > open Lib
00:02:19 verbose #4340 > #endif
00:02:19 verbose #4341 >
00:02:19 verbose #4342 > open Common
00:02:19 verbose #4343 >
00:02:19 verbose #4344 > /// ## splitArgs
00:02:19 verbose #4345 > let inline splitArgs commandLine =
00:02:19 verbose #4346 > commandLine
00:02:19 verbose #4347 > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:02:19 verbose #4348 >
00:02:19 verbose #4349 > /// ## parseArgs
00:02:19 verbose #4350 > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:19 verbose #4351 > let assemblyName =
00:02:19 verbose #4352 > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:19 verbose #4353 > let errorHandler : Argu.IExiter =
00:02:19 verbose #4354 > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:19 verbose #4355 > List.contains assemblyName
00:02:19 verbose #4356 > then Argu.ExceptionExiter ()
00:02:19 verbose #4357 > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:02:19 verbose #4358 > _ -> Some System.ConsoleColor.R...
00:02:19 verbose #4359 >
00:02:19 verbose #4360 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:19 verbose #4361 > #if !INTERACTIVE
00:02:19 verbose #4362 > namespace Polyglot
00:02:19 verbose #4363 > #endif
00:02:19 verbose #4364 >
00:02:19 verbose #4365 > module FileSystem =
00:02:19 verbose #4366 >
00:02:19 verbose #4367 > #if !INTERACTIVE
00:02:19 verbose #4368 > open Lib
00:02:19 verbose #4369 > #endif
00:02:19 verbose #4370 >
00:02:19 verbose #4371 > open Common
00:02:19 verbose #4372 > open SpiralFileSystem.Operators
00:02:19 verbose #4373 >
00:02:19 verbose #4374 > /// ## watchDirectory
00:02:19 verbose #4375 > [[<RequireQualifiedAccess>]]
00:02:19 verbose #4376 > type FileSystemChangeType =
00:02:19 verbose #4377 > | Failure
00:02:19 verbose #4378 > | Changed
00:02:19 verbose #4379 > | Created
00:02:19 verbose #4380 > | Deleted
00:02:19 verbose #4381 > | Renamed
00:02:19 verbose #4382 >
00:02:19 verbose #4383 > [[<RequireQualifiedAccess>]]
00:02:19 verbose #4384 > type FileSystemChange =
00:02:19 verbose #4385 > | Failure of exn: exn
00:02:19 verbose #4386 > | Changed of path: string * content: string option
00:02:19 verbose #4387 > | Created of path: string * content: string option
00:02:19 verbose #4388 > | Deleted of path: string
00:02:19 verbose #4389 > | Renamed of oldPath: string * (string * string option)
00:02:19 verbose #4390 >
00:02:19 verbose #4391 >
00:02:19 verbose #4392 > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:02:19 verbose #4393 > let fullPath = path |> Syst...
00:02:20 verbose #4394 >
00:02:20 verbose #4395 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4396 > #if !INTERACTIVE
00:02:20 verbose #4397 > open Lib
00:02:20 verbose #4398 > #endif
00:02:20 verbose #4399 >
00:02:20 verbose #4400 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4401 > open Common
00:02:20 verbose #4402 >
00:02:20 verbose #4403 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4404 > //// test
00:02:20 verbose #4405 >
00:02:20 verbose #4406 > open SpiralFileSystem.Operators
00:02:20 verbose #4407 >
00:02:20 verbose #4408 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:20 verbose #4409 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:20 verbose #4410 > │ ## splitArgs │
00:02:20 verbose #4411 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #4412 >
00:02:20 verbose #4413 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4414 > let inline splitArgs commandLine =
00:02:20 verbose #4415 > commandLine
00:02:20 verbose #4416 > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:02:20 verbose #4417 >
00:02:20 verbose #4418 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4419 > //// test
00:02:20 verbose #4420 >
00:02:20 verbose #4421 > """a b "c d" e"""
00:02:20 verbose #4422 > |> splitArgs
00:02:20 verbose #4423 > |> Seq.toArray
00:02:20 verbose #4424 > |> _assertEqual [[| "a"; "b"; "c d"; "e" |]]
00:02:20 verbose #4425 >
00:02:20 verbose #4426 > ╭─[ 51.98ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:20 verbose #4427 > │ [ a, b, c d, e ] │
00:02:20 verbose #4428 > │ │
00:02:20 verbose #4429 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #4430 >
00:02:20 verbose #4431 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:20 verbose #4432 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:20 verbose #4433 > │ ## parseArgs │
00:02:20 verbose #4434 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #4435 >
00:02:20 verbose #4436 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4437 > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:20 verbose #4438 > let assemblyName =
00:02:20 verbose #4439 > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:20 verbose #4440 > let errorHandler : Argu.IExiter =
00:02:20 verbose #4441 > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:20 verbose #4442 > List.contains assemblyName
00:02:20 verbose #4443 > then Argu.ExceptionExiter ()
00:02:20 verbose #4444 > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | _ ->
00:02:20 verbose #4445 > Some System.ConsoleColor.Red)
00:02:20 verbose #4446 >
00:02:20 verbose #4447 > let parser =
00:02:20 verbose #4448 > Argu.ArgumentParser.Create<'T> (
00:02:20 verbose #4449 > programName = $"{assemblyName}{SpiralRuntime.get_executable_suffix
00:02:20 verbose #4450 > ()}",
00:02:20 verbose #4451 > errorHandler = errorHandler
00:02:20 verbose #4452 > )
00:02:20 verbose #4453 >
00:02:20 verbose #4454 > parser.ParseCommandLine args
00:02:20 verbose #4455 >
00:02:20 verbose #4456 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4457 > //// test
00:02:20 verbose #4458 >
00:02:20 verbose #4459 > [[<RequireQualifiedAccess>]]
00:02:20 verbose #4460 > type Arguments =
00:02:20 verbose #4461 > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:02:20 verbose #4462 > Argu.ArguAttributes.Last>]]
00:02:20 verbose #4463 > Paths of paths : string list
00:02:20 verbose #4464 >
00:02:20 verbose #4465 > interface Argu.IArgParserTemplate with
00:02:20 verbose #4466 > member s.Usage =
00:02:20 verbose #4467 > match s with
00:02:20 verbose #4468 > | Paths _ -> nameof Paths
00:02:20 verbose #4469 >
00:02:20 verbose #4470 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4471 > //// test
00:02:20 verbose #4472 >
00:02:20 verbose #4473 > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:02:20 verbose #4474 >
00:02:20 verbose #4475 > ╭─[ 121.40ms - return value ]──────────────────────────────────────────────────╮
00:02:20 verbose #4476 > │ USAGE: dotnet-repl [--help] <paths>... │
00:02:20 verbose #4477 > │ │
00:02:20 verbose #4478 > │ PATHS: │
00:02:20 verbose #4479 > │ │
00:02:20 verbose #4480 > │ <paths>... Paths │
00:02:20 verbose #4481 > │ │
00:02:20 verbose #4482 > │ OPTIONS: │
00:02:20 verbose #4483 > │ │
00:02:20 verbose #4484 > │ --help display this list of options. │
00:02:20 verbose #4485 > │ │
00:02:20 verbose #4486 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #4487 >
00:02:20 verbose #4488 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4489 > //// test
00:02:20 verbose #4490 >
00:02:20 verbose #4491 > fun () -> parseArgs<Arguments> [[||]] |> ignore
00:02:20 verbose #4492 > |> _throwsC (fun ex _ ->
00:02:20 verbose #4493 > SpiralSm.format_exception ex
00:02:20 verbose #4494 > |> _stringContains "Argu.ArguParseException: ERROR: missing parameter
00:02:20 verbose #4495 > '<paths>...'."
00:02:20 verbose #4496 > )
00:02:20 verbose #4497 >
00:02:20 verbose #4498 > ╭─[ 60.28ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:20 verbose #4499 > │ FSI_0032+it@3-1 │
00:02:20 verbose #4500 > │ Argu.ArguParseException: ERROR: missing parameter '<paths>...'. │
00:02:20 verbose #4501 > │ USAGE: dotnet-repl.exe [--help] <paths>... │
00:02:20 verbose #4502 > │ │
00:02:20 verbose #4503 > │ PATHS: │
00:02:20 verbose #4504 > │ │
00:02:20 verbose #4505 > │ <paths>... Paths │
00:02:20 verbose #4506 > │ │
00:02:20 verbose #4507 > │ OPTIONS: │
00:02:20 verbose #4508 > │ │
00:02:20 verbose #4509 > │ --help display this list of options. │
00:02:20 verbose #4510 > │ │
00:02:20 verbose #4511 > │ │
00:02:20 verbose #4512 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #4513 >
00:02:20 verbose #4514 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4515 > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:20 verbose #4516 > args
00:02:20 verbose #4517 > |> parseArgs<'T>
00:02:20 verbose #4518 > |> fun results -> results.GetAllResults ()
00:02:20 verbose #4519 >
00:02:20 verbose #4520 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4521 > //// test
00:02:20 verbose #4522 >
00:02:20 verbose #4523 > [[<RequireQualifiedAccess>]]
00:02:20 verbose #4524 > type Arguments =
00:02:20 verbose #4525 > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:02:20 verbose #4526 > Argu.ArguAttributes.Last>]]
00:02:20 verbose #4527 > Paths of paths : string list
00:02:20 verbose #4528 >
00:02:20 verbose #4529 > interface Argu.IArgParserTemplate with
00:02:20 verbose #4530 > member s.Usage =
00:02:20 verbose #4531 > match s with
00:02:20 verbose #4532 > | Paths _ -> nameof Paths
00:02:20 verbose #4533 >
00:02:20 verbose #4534 > parseAllArgs<Arguments> [[| "a b"; "c" |]]
00:02:20 verbose #4535 > |> _assertEqual [[ Arguments.Paths [[ "a b"; "c" ]] ]]
00:02:20 verbose #4536 >
00:02:20 verbose #4537 > ╭─[ 100.85ms - stdout ]────────────────────────────────────────────────────────╮
00:02:20 verbose #4538 > │ FSharpList<Arguments> │
00:02:20 verbose #4539 > │ - paths: [ a b, c ] │
00:02:20 verbose #4540 > │ │
00:02:20 verbose #4541 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #4542 >
00:02:20 verbose #4543 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4544 > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:20 verbose #4545 > args
00:02:20 verbose #4546 > |> parseAllArgs<'T>
00:02:20 verbose #4547 > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:02:20 verbose #4548 > |> Map.ofList
00:02:20 verbose #4549 >
00:02:20 verbose #4550 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #4551 > //// test
00:02:20 verbose #4552 >
00:02:20 verbose #4553 > parseArgsMap<Arguments> [[| "a b"; "c" |]]
00:02:20 verbose #4554 > |> _assertEqual (
00:02:20 verbose #4555 > [[ nameof Arguments.Paths, [[ Arguments.Paths [[ "a b"; "c" ]] ]] ]]
00:02:20 verbose #4556 > |> Map.ofList
00:02:20 verbose #4557 > )
00:02:20 verbose #4558 >
00:02:20 verbose #4559 > ╭─[ 65.74ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:20 verbose #4560 > │ FSharpMap<String,FSharpList<Arguments>> │
00:02:20 verbose #4561 > │ - Key: Paths │
00:02:20 verbose #4562 > │ Value: FSharpList<Arguments> │
00:02:20 verbose #4563 > │ - paths: [ a b, c ] │
00:02:20 verbose #4564 > │ │
00:02:20 verbose #4565 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:22 verbose #4566 > [NbConvertApp] Converting notebook Runtime.dib.ipynb to html
00:02:22 verbose #4567 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:22 verbose #4568 > validate(nb)
00:02:22 verbose #4569 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:22 verbose #4570 > return _pygments_highlight(
00:02:23 verbose #4571 > [NbConvertApp] Writing 296350 bytes to Runtime.dib.html
00:02:23 debug #4572 execute_with_options_async / exit_code: 0 / output.Length: 26876
00:02:23 debug #8 main / executeCommand / exitCode: 0
00:02:23 debug #4573 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Toml.dib -Retries 3"", None, None)
00:02:24 verbose #4574 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\fsharp / path: Toml.dib / _args: [
00:02:24 verbose #4575 > "-Retries",
00:02:24 verbose #4576 > 3
00:02:24 verbose #4577 > ]
00:02:26 verbose #4578 >
00:02:26 verbose #4579 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 verbose #4580 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 verbose #4581 > │ # Toml (Polyglot) │
00:02:26 verbose #4582 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #4583 >
00:02:26 verbose #4584 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:26 verbose #4585 > #!import ../../lib/fsharp/Notebooks.dib
00:02:26 verbose #4586 > #!import ../../lib/fsharp/Testing.dib
00:02:26 verbose #4587 >
00:02:26 verbose #4588 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:26 verbose #4589 > #r
00:02:26 verbose #4590 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:26 verbose #4591 > spNetCore.Html.Abstractions.dll"
00:02:26 verbose #4592 > #r
00:02:26 verbose #4593 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:26 verbose #4594 > otNet.Interactive.dll"
00:02:26 verbose #4595 > #r
00:02:26 verbose #4596 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:26 verbose #4597 > otNet.Interactive.FSharp.dll"
00:02:26 verbose #4598 > #r
00:02:26 verbose #4599 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:26 verbose #4600 > otNet.Interactive.Formatting.dll"
00:02:26 verbose #4601 > open System
00:02:26 verbose #4602 > open System.IO
00:02:26 verbose #4603 > open System.Text
00:02:26 verbose #4604 > open Microsoft.DotNet.Interactive.Formatting
00:02:29 verbose #4605 >
00:02:29 verbose #4606 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:29 verbose #4607 > #r
00:02:29 verbose #4608 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:29 verbose #4609 > otNet.Interactive.FSharp.dll"
00:02:29 verbose #4610 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:29 verbose #4611 > #r
00:02:29 verbose #4612 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:29 verbose #4613 > otNet.Interactive.dll"
00:02:29 verbose #4614 > open type Microsoft.DotNet.Interactive.Kernel
00:02:29 verbose #4615 >
00:02:29 verbose #4616 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:29 verbose #4617 > //// test
00:02:29 verbose #4618 >
00:02:29 verbose #4619 > Formatter.ListExpansionLimit <- 100
00:02:30 verbose #4620 >
00:02:30 verbose #4621 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:30 verbose #4622 > #if FABLE_COMPILER // common.types
00:02:30 verbose #4623 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:30 verbose #4624 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:30 verbose #4625 > class end
00:02:30 verbose #4626 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:30 verbose #4627 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:30 verbose #4628 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:30 verbose #4629 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:30 verbose #4630 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:30 verbose #4631 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:30 verbose #4632 > class end
00:02:30 verbose #4633 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:30 verbose #4634 > [[<Fable.Core.Erase;...
00:02:31 verbose #4635 >
00:02:31 verbose #4636 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:31 verbose #4637 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:31 verbose #4638 > and Mut1 = {mutable l0 : int32}
00:02:31 verbose #4639 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:31 verbose #4640 > let v2 : bool = v1.Contains v0
00:02:31 verbose #4641 > v2
00:02:31 verbose #4642 > and closure0 () (v0 : string) : (string -> bool) =
00:02:31 verbose #4643 > closure1(v0)
00:02:31 verbose #4644 > and closure3 (v0 : string) (v1 : string) : bool =
00:02:31 verbose #4645 > let v2 : bool = v1.EndsWith v0
00:02:31 verbose #4646 > v2
00:02:31 verbose #4647 > and closure2 () (v0 : string) : (string -> bool) =
00:02:31 verbose #4648 > closure3(v0)
00:02:31 verbose #4649 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:31 verbose #4650 > let v3 : string = v2.PadLeft (v0, v1)
00:02:31 verbose #4651 > v3
00:02:31 verbose #4652 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:31 verbose #4653 > closure6(v0, v1)
00:02:31 verbose #4654 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:31 verbose #4655 > closure5(v0)
00:02:31 verbose #4656 > and closure8 (v0 : int32) (v1 : string) : string =
00:02:31 verbose #4657 > let v2 : stri...
00:02:32 verbose #4658 >
00:02:32 verbose #4659 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:32 verbose #4660 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:32 verbose #4661 > type Mut0 = {mutable l0 : int32}
00:02:32 verbose #4662 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:32 verbose #4663 > let v2 : int32 = v1.l0
00:02:32 verbose #4664 > let v3 : bool = v2 < v0
00:02:32 verbose #4665 > v3
00:02:32 verbose #4666 > and method1 () : string =
00:02:32 verbose #4667 > let v0 : string = ""
00:02:32 verbose #4668 > v0
00:02:32 verbose #4669 > and closure0 () (v0 : string) : string =
00:02:32 verbose #4670 > let v1 : string option = None
00:02:32 verbose #4671 > let v2 : bool = true in let mutable _v1 = v1
00:02:32 verbose #4672 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:32 verbose #4673 > let v3 : string = null |> unbox<string>
00:02:32 verbose #4674 > v3
00:02:32 verbose #4675 > #endif
00:02:32 verbose #4676 > #if FABLE_COMPILER_RUST && WASM
00:02:32 verbose #4677 > let v4 : string = null |> unbox<string>
00:02:32 verbose #4678 > v4
00:02:32 verbose #4679 > #endif
00:02:32 verbose #4680 > #if FABLE_COMPILER_RUST && CONTRACT
00:02:32 verbose #4681 > let v5 : string = null |> unbox<string>
00:02:32 verbose #4682 > v5
00:02:32 verbose #4683 > #endif
00:02:32 verbose #4684 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:02:32 verbose #4685 >
00:02:32 verbose #4686 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:32 verbose #4687 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:32 verbose #4688 > let v2 : (System.Guid -> string) = _.ToString()
00:02:32 verbose #4689 > let v3 : string = v2 v0
00:02:32 verbose #4690 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:32 verbose #4691 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:32 verbose #4692 > v5
00:02:32 verbose #4693 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:32 verbose #4694 > closure1(v0)
00:02:32 verbose #4695 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:32 verbose #4696 > let v3 : string = v2.Replace (v0, v1)
00:02:32 verbose #4697 > v3
00:02:32 verbose #4698 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:32 verbose #4699 > closure5(v0, v1)
00:02:32 verbose #4700 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:32 verbose #4701 > closure4(v0)
00:02:32 verbose #4702 > and method0 () : (string -> (string -> (string -> string))) =
00:02:32 verbose #4703 > closure3()
00:02:32 verbose #4704 > and closure2 (...
00:02:32 verbose #4705 >
00:02:32 verbose #4706 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:32 verbose #4707 > #if FABLE_COMPILER // async.types
00:02:32 verbose #4708 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:02:32 verbose #4709 > std_future_Future<'T> = class end
00:02:32 verbose #4710 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:02:32 verbose #4711 > futures_future_TryJoinAll<'T> = class end
00:02:32 verbose #4712 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:02:32 verbose #4713 > rayon_vec_IntoIter<'T> = class end
00:02:32 verbose #4714 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:02:32 verbose #4715 > rayon_iter_Map<'T> = class end
00:02:32 verbose #4716 > #endif // async.types
00:02:32 verbose #4717 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:32 verbose #4718 > Async<System.Threading.CancellationToken> =
00:02:32 verbose #4719 > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:32 verbose #4720 > let v2 : bool = true in let mutable _v1 = v1
00:02:32 verbose #4721 > #if FABLE_COMPILER_RUST ...
00:02:32 verbose #4722 >
00:02:32 verbose #4723 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:32 verbose #4724 > type [[<Struct>]] US0 =
00:02:32 verbose #4725 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:02:32 verbose #4726 > | US0_1
00:02:32 verbose #4727 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:02:32 verbose #4728 > US0_0(v0)
00:02:32 verbose #4729 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:02:32 verbose #4730 > closure1()
00:02:32 verbose #4731 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:02:32 verbose #4732 > let v1 : unit option = None
00:02:32 verbose #4733 > let v2 : bool = true in let mutable _v1 = v1
00:02:32 verbose #4734 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:32 verbose #4735 > null |> unbox<unit>
00:02:32 verbose #4736 > ()
00:02:32 verbose #4737 > #endif
00:02:32 verbose #4738 > #if FABLE_COMPILER_RUST && WASM
00:02:32 verbose #4739 > null |> unbox<unit>
00:02:32 verbose #4740 > ()
00:02:32 verbose #4741 > #endif
00:02:32 verbose #4742 > #if FABLE_COMPILER_RUST && CONTRACT
00:02:32 verbose #4743 > null |> unbox<unit>
00:02:32 verbose #4744 > ()
00:02:32 verbose #4745 > #endif
00:02:32 verbose #4746 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:32 verbose #4747 > !WASM && !CONTRACT
00:02:32 verbose #4748 > ...
00:02:32 verbose #4749 >
00:02:32 verbose #4750 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:32 verbose #4751 > #if FABLE_COMPILER // networking.types
00:02:32 verbose #4752 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:32 verbose #4753 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:32 verbose #4754 > class end
00:02:32 verbose #4755 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:32 verbose #4756 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:32 verbose #4757 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:32 verbose #4758 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:32 verbose #4759 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:32 verbose #4760 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:32 verbose #4761 > class end
00:02:32 verbose #4762 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:32 verbose #4763 > [[<Fable.Core.Er...
00:02:34 verbose #4764 >
00:02:34 verbose #4765 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:34 verbose #4766 > #if FABLE_COMPILER // runtime.types
00:02:34 verbose #4767 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:34 verbose #4768 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:34 verbose #4769 > class end
00:02:34 verbose #4770 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:34 verbose #4771 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:34 verbose #4772 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:34 verbose #4773 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:34 verbose #4774 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:34 verbose #4775 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:34 verbose #4776 > class end
00:02:34 verbose #4777 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:34 verbose #4778 > [[<Fable.Core.Erase...
00:02:35 verbose #4779 >
00:02:35 verbose #4780 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:35 verbose #4781 > #if FABLE_COMPILER // file_system.types
00:02:35 verbose #4782 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:35 verbose #4783 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:35 verbose #4784 > base64_DecodeError = class end
00:02:35 verbose #4785 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:35 verbose #4786 > = class end
00:02:35 verbose #4787 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:35 verbose #4788 > = class end
00:02:35 verbose #4789 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:35 verbose #4790 > serde_json_Error = class end
00:02:35 verbose #4791 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:35 verbose #4792 > serde_json_Value = class end
00:02:35 verbose #4793 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:35 verbose #4794 > serde_wasm_bindgen_Error = class end
00:02:35 verbose #4795 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:37 verbose #4796 >
00:02:37 verbose #4797 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 verbose #4798 > #if FABLE_COMPILER // trace.types
00:02:37 verbose #4799 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:02:37 verbose #4800 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:02:37 verbose #4801 > class end
00:02:37 verbose #4802 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:02:37 verbose #4803 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:02:37 verbose #4804 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:02:37 verbose #4805 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:02:37 verbose #4806 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:02:37 verbose #4807 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:02:37 verbose #4808 > class end
00:02:37 verbose #4809 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:02:37 verbose #4810 > [[<Fable.Core.Erase; ...
00:02:37 verbose #4811 >
00:02:37 verbose #4812 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 verbose #4813 > module SpiralTrace =
00:02:37 verbose #4814 > let trace x =
00:02:37 verbose #4815 > #if !INTERACTIVE
00:02:37 verbose #4816 > Trace.trace x
00:02:37 verbose #4817 > #else
00:02:37 verbose #4818 > trace x
00:02:37 verbose #4819 > #endif
00:02:37 verbose #4820 >
00:02:37 verbose #4821 > type TraceLevel =
00:02:37 verbose #4822 > #if !INTERACTIVE
00:02:37 verbose #4823 > Trace.US0
00:02:37 verbose #4824 > #else
00:02:37 verbose #4825 > US0
00:02:37 verbose #4826 > #endif
00:02:37 verbose #4827 >
00:02:37 verbose #4828 > module SpiralCrypto =
00:02:37 verbose #4829 > let hash_text x =
00:02:37 verbose #4830 > #if !INTERACTIVE
00:02:37 verbose #4831 > Crypto.hash_text x
00:02:37 verbose #4832 > #else
00:02:37 verbose #4833 > hash_text x
00:02:37 verbose #4834 > #endif
00:02:37 verbose #4835 >
00:02:37 verbose #4836 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:37 verbose #4837 >
00:02:37 verbose #4838 > module SpiralAsync =
00:02:37 verbose #4839 > let merge_cancellation_token_with_default_async x =
00:02:37 verbose #4840 > #if !INTERACTIVE
00:02:37 verbose #4841 > Async_.merge_cancellation_token_with_default_async x
00:02:37 verbose #4842 > #else
00:02:37 verbose #4843 > merge_cancellation_token_with_default_async x
00:02:37 verbose #4844 > #endif
00:02:37 verbose #4845 >
00:02:37 verbose #4846 > module SpiralThreading =
00:02:37 verbose #4847 > let new_disposable_token x =
00:02:37 verbose #4848 > #if !INTERACTIVE
00:02:37 verbose #4849 > Threading.new_disposable_token x
00:02:37 verbose #4850 > #else
00:02:37 verbose #4851 > new_disposable_token x
00:02:37 verbose #4852 > #endif
00:02:37 verbose #4853 >
00:02:37 verbose #4854 > module Spi...
00:02:37 verbose #4855 >
00:02:37 verbose #4856 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 verbose #4857 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:37 verbose #4858 >
00:02:37 verbose #4859 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 verbose #4860 > //// test
00:02:37 verbose #4861 >
00:02:37 verbose #4862 > type AssertExceptionFormatter (ex) =
00:02:37 verbose #4863 > member _.Text =
00:02:37 verbose #4864 > ex.ToString()
00:02:37 verbose #4865 > .Replace("32m", "<span style=\"color: green;\">")
00:02:37 verbose #4866 > .Replace("36m", "</span>")
00:02:37 verbose #4867 > .Replace("31m", "<span style=\"color: red;\">")
00:02:37 verbose #4868 > .Replace("\n", "<br/>\n")
00:02:37 verbose #4869 >
00:02:37 verbose #4870 >
00:02:37 verbose #4871 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:37 verbose #4872 > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:37 verbose #4873 >
00:02:37 verbose #4874 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 verbose #4875 > //// test
00:02:37 verbose #4876 >
00:02:37 verbose #4877 > let inline __expect fn log expected actual =
00:02:37 verbose #4878 > if log then printfn $"{actual.ToDisplayString ()}"
00:02:37 verbose #4879 > try
00:02:37 verbose #4880 > "Testing.__expect" |> fn actual expected
00:02:37 verbose #4881 > with :? Expecto.AssertException as ex ->
00:02:37 verbose #4882 > AssertExceptionFormatter(ex).Display () |> ignore
00:02:37 verbose #4883 > failwith (ex.GetType().FullName)
00:02:37 verbose #4884 >
00:02:37 verbose #4885 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:37 verbose #4886 > expected actual
00:02:37 verbose #4887 > let inline _contains expected actual = __contains true expected actual
00:02:37 verbose #4888 >
00:02:37 verbose #4889 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:37 verbose #4890 > expected actual
00:02:37 verbose #4891 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:37 verbose #4892 >
00:02:37 verbose #4893 > let inline __isGreaterThan log expected actual = __expect
00:02:37 verbose #4894 > Expecto.Expect.isGreaterThan log ex...
00:02:38 verbose #4895 >
00:02:38 verbose #4896 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 verbose #4897 > //// test
00:02:38 verbose #4898 >
00:02:38 verbose #4899 > let inline __isBetween log a b actual =
00:02:38 verbose #4900 > let inline isBetween actual (a, b) _ =
00:02:38 verbose #4901 > __isGreaterThanOrEqual log a actual
00:02:38 verbose #4902 > __isLessThanOrEqual log b actual
00:02:38 verbose #4903 > __expect isBetween log (a, b) actual
00:02:38 verbose #4904 > let inline _isBetween a b actual = __isBetween true a b actual
00:02:38 verbose #4905 >
00:02:38 verbose #4906 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #4907 > #r @"../../../../../../../.nuget/packages/tomlyn/0.17.0/lib/net7.0/Tomlyn.dll"
00:02:38 verbose #4908 >
00:02:38 verbose #4909 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #4910 > #!import ../../lib/fsharp/Common.fs
00:02:38 verbose #4911 >
00:02:38 verbose #4912 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 verbose #4913 > #if !INTERACTIVE
00:02:38 verbose #4914 > namespace Polyglot
00:02:38 verbose #4915 > #endif
00:02:38 verbose #4916 >
00:02:38 verbose #4917 > module Common =
00:02:38 verbose #4918 >
00:02:38 verbose #4919 > #if !INTERACTIVE
00:02:38 verbose #4920 > open Lib
00:02:38 verbose #4921 > #endif
00:02:38 verbose #4922 >
00:02:38 verbose #4923 > let nl = System.Environment.NewLine
00:02:38 verbose #4924 > let q = @""""
00:02:38 verbose #4925 >
00:02:38 verbose #4926 > let inline cons head tail = head :: tail
00:02:38 verbose #4927 >
00:02:38 verbose #4928 > /// ## memoize
00:02:38 verbose #4929 > let inline memoize fn =
00:02:38 verbose #4930 > let result = lazy fn ()
00:02:38 verbose #4931 > fun () -> result.Value
00:02:38 verbose #4932 >
00:02:38 verbose #4933 > /// ## TraceLevel
00:02:38 verbose #4934 > type TraceLevel =
00:02:38 verbose #4935 > | Verbose
00:02:38 verbose #4936 > | Debug
00:02:38 verbose #4937 > | Info
00:02:38 verbose #4938 > | Warning
00:02:38 verbose #4939 > | Critical
00:02:38 verbose #4940 >
00:02:38 verbose #4941 > let inline _locals () = ""
00:02:38 verbose #4942 >
00:02:38 verbose #4943 > /// ## trace
00:02:38 verbose #4944 > let to_trace_level = function
00:02:38 verbose #4945 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:38 verbose #4946 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:38 verbose #4947 > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:38 verbose #4948 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:38 verbose #4949 > | Critical -> Spir...
00:02:38 verbose #4950 >
00:02:38 verbose #4951 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #4952 > open Common
00:02:38 verbose #4953 >
00:02:38 verbose #4954 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #4955 > let inline (/./) (table: Tomlyn.Model.TomlTable) (key: string) :
00:02:38 verbose #4956 > Tomlyn.Model.TomlTable =
00:02:38 verbose #4957 > table.[[key]] :?> Tomlyn.Model.TomlTable
00:02:38 verbose #4958 >
00:02:38 verbose #4959 > let inline (/../) (table: Tomlyn.Model.TomlTable) (key: string) : 'T seq =
00:02:38 verbose #4960 > table.[[key]] :?> Tomlyn.Model.TomlArray |> Seq.cast<'T>
00:02:38 verbose #4961 >
00:02:38 verbose #4962 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #4963 > //// test
00:02:38 verbose #4964 >
00:02:38 verbose #4965 > let tomlContent =
00:02:38 verbose #4966 > """
00:02:38 verbose #4967 > [[extension]]
00:02:38 verbose #4968 > paths = [["/a", "/b"]]
00:02:38 verbose #4969 > """
00:02:38 verbose #4970 >
00:02:38 verbose #4971 > let toml = Tomlyn.Toml.Parse tomlContent
00:02:38 verbose #4972 > let tomlModel = Tomlyn.Toml.ToModel toml
00:02:38 verbose #4973 >
00:02:38 verbose #4974 > let paths : string seq = tomlModel /./ "extension" /../ "paths"
00:02:38 verbose #4975 >
00:02:38 verbose #4976 > paths
00:02:38 verbose #4977 > |> Seq.toList
00:02:38 verbose #4978 > |> _assertEqual [[ "/a"; "/b" ]]
00:02:38 verbose #4979 >
00:02:38 verbose #4980 > ╭─[ 115.63ms - stdout ]────────────────────────────────────────────────────────╮
00:02:38 verbose #4981 > │ [ /a, /b ] │
00:02:38 verbose #4982 > │ │
00:02:38 verbose #4983 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 verbose #4984 > [NbConvertApp] Converting notebook Toml.dib.ipynb to html
00:02:40 verbose #4985 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:40 verbose #4986 > validate(nb)
00:02:40 verbose #4987 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:40 verbose #4988 > return _pygments_highlight(
00:02:40 verbose #4989 > [NbConvertApp] Writing 277990 bytes to Toml.dib.html
00:02:41 debug #4990 execute_with_options_async / exit_code: 0 / output.Length: 15929
00:02:41 debug #9 main / executeCommand / exitCode: 0
00:02:41 verbose #4 wait_for_port_access / port: 13805 / retry: 0
00:02:43 debug #5 run_with_timeout_async / timeout: 2000
00:00:00 debug #4 writeDibCode / output: Fs / path: Toml.dib
00:00:00 debug #4 writeDibCode / output: Fs / path: AsyncSeq.dib
00:00:00 debug #4 writeDibCode / output: Fs / path: CommonFSharp.dib
00:00:00 debug #4 writeDibCode / output: Fs / path: Common.dib
00:00:00 debug #4 writeDibCode / output: Fs / path: FileSystem.dib
00:00:00 debug #4 writeDibCode / output: Fs / path: Runtime.dib
00:00:00 debug #4 writeDibCode / output: Fs / path: Async.dib
00:00:00 debug #8 parseDibCode / output: Fs / file: Common.dib
00:00:00 debug #7 parseDibCode / output: Fs / file: CommonFSharp.dib
00:00:00 debug #6 parseDibCode / output: Fs / file: AsyncSeq.dib
00:00:00 debug #8 parseDibCode / output: Fs / file: Runtime.dib
00:00:00 debug #10 parseDibCode / output: Fs / file: Async.dib
00:00:00 debug #10 parseDibCode / output: Fs / file: Toml.dib
00:00:00 debug #11 parseDibCode / output: Fs / file: FileSystem.dib
In [ ]:
{ . "$ScriptDir/../lib/math/build.ps1" } | Invoke-Block
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:01 debug #7 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 math.dib"", None, None)
00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\math / path: math.dib / _args: null
00:00:05 verbose #9 >
00:00:05 verbose #10 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #11 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #12 > │ # math │
00:00:05 verbose #13 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #14 >
00:00:05 verbose #15 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #16 > open testing
00:00:05 verbose #17 > open rust_operators
00:00:08 verbose #18 > 00:00:07 debug #4 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dbfb98f86b21deb6b35fe3a80945f9312d296d3871cb8776c774b57d259aaabf/main.spi
00:00:09 verbose #19 >
00:00:09 verbose #20 > ╭─[ 4.35s - stdout ]───────────────────────────────────────────────────────────╮
00:00:09 verbose #21 > │ () │
00:00:09 verbose #22 > │ │
00:00:09 verbose #23 > │ │
00:00:09 verbose #24 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #25 >
00:00:09 verbose #26 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #27 > inl types () =
00:00:09 verbose #28 > global "[[<Fable.Core.Erase;
00:00:09 verbose #29 > Fable.Core.Emit(\"num_complex::Complex<$0>\")>]] type num_complex_Complex<'T> =
00:00:09 verbose #30 > class end"
00:00:09 verbose #31 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::types::PyModule\")>]]
00:00:09 verbose #32 > type pyo3_types_PyModule = class end"
00:00:09 verbose #33 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::Bound<$0>\")>]] type
00:00:09 verbose #34 > pyo3_Bound<'T> = class end"
00:00:09 verbose #35 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::Python\")>]] type
00:00:09 verbose #36 > pyo3_Python = class end"
00:00:09 verbose #37 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::PyAny\")>]] type
00:00:09 verbose #38 > pyo3_PyAny = class end"
00:00:09 verbose #39 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::PyErr\")>]] type
00:00:09 verbose #40 > pyo3_PyErr = class end"
00:00:09 verbose #41 > 00:00:09 debug #5 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c8f0864954924202c04d677eb5455703cb3b1c12117620b7981f63f9267221bb/main.spi
00:00:09 verbose #42 >
00:00:09 verbose #43 > ╭─[ 307.29ms - stdout ]────────────────────────────────────────────────────────╮
00:00:09 verbose #44 > │ () │
00:00:09 verbose #45 > │ │
00:00:09 verbose #46 > │ │
00:00:09 verbose #47 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #48 >
00:00:09 verbose #49 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #50 > inl types () =
00:00:09 verbose #51 > rust.types ()
00:00:09 verbose #52 > sm'.types ()
00:00:09 verbose #53 > types ()
00:00:09 verbose #54 > 00:00:09 debug #6 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7617a3a286862b4ceb770aa451c622eaef1492d1ce601c2db1211ed261f948f6/main.spi
00:00:10 verbose #55 >
00:00:10 verbose #56 > ╭─[ 343.38ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #57 > │ () │
00:00:10 verbose #58 > │ │
00:00:10 verbose #59 > │ │
00:00:10 verbose #60 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #61 >
00:00:10 verbose #62 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #63 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #64 > │ ## complex │
00:00:10 verbose #65 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #66 >
00:00:10 verbose #67 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #68 > nominal complex t = $"num_complex_Complex<`t>"
00:00:10 verbose #69 > nominal bound t = $"pyo3_Bound<`t>"
00:00:10 verbose #70 > nominal python = $"pyo3_Python"
00:00:10 verbose #71 > nominal pymodule = $"pyo3_types_PyModule"
00:00:10 verbose #72 > nominal pyany = $"pyo3_PyAny"
00:00:10 verbose #73 > nominal pyerr = $"pyo3_PyErr"
00:00:10 verbose #74 >
00:00:10 verbose #75 > inl complex forall t. ((re : t), (im : t)) : complex t =
00:00:10 verbose #76 > !\\((re, im), $'"num_complex::Complex::new($0, $1)"')
00:00:10 verbose #77 > 00:00:09 debug #7 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/94de0881508799e6879bea0aa98890075d503c37b10fc086131ba628b08fbaa7/main.spi
00:00:10 verbose #78 >
00:00:10 verbose #79 > ╭─[ 322.38ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #80 > │ () │
00:00:10 verbose #81 > │ │
00:00:10 verbose #82 > │ │
00:00:10 verbose #83 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #84 >
00:00:10 verbose #85 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #86 > // // test
00:00:10 verbose #87 > // // rust=
00:00:10 verbose #88 >
00:00:10 verbose #89 > types ()
00:00:10 verbose #90 >
00:00:10 verbose #91 > complex (0f64, 0f64)
00:00:10 verbose #92 > |> sm'.format'
00:00:10 verbose #93 > |> sm'.from_std_string
00:00:10 verbose #94 > |> _assert_eq "0+0i"
00:00:10 verbose #95 > 00:00:10 debug #8 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f8578f732a65cfae18b4b17be322b3fa7700f9cdad2aa36b7bddd231278f7461/main.spi
00:00:16 verbose #96 >
00:00:16 verbose #97 > ╭─[ 6.39s - return value ]─────────────────────────────────────────────────────╮
00:00:16 verbose #98 > │ .rs output: │
00:00:16 verbose #99 > │ "0+0i" │
00:00:16 verbose #100 > │ │
00:00:16 verbose #101 > │ │
00:00:16 verbose #102 > │ │
00:00:16 verbose #103 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #104 >
00:00:16 verbose #105 > ╭─[ 6.40s - stdout ]───────────────────────────────────────────────────────────╮
00:00:16 verbose #106 > │ .fsx: │
00:00:16 verbose #107 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:00:16 verbose #108 > │ end │
00:00:16 verbose #109 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:00:16 verbose #110 > │ class end │
00:00:16 verbose #111 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:00:16 verbose #112 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:00:16 verbose #113 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:00:16 verbose #114 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:00:16 verbose #115 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:00:16 verbose #116 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:00:16 verbose #117 > │ class end │
00:00:16 verbose #118 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:00:16 verbose #119 > │ end │
00:00:16 verbose #120 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:00:16 verbose #121 > │ class end │
00:00:16 verbose #122 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:00:16 verbose #123 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:00:16 verbose #124 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:16 verbose #125 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:00:16 verbose #126 > │ class end │
00:00:16 verbose #127 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:00:16 verbose #128 > │ class end │
00:00:16 verbose #129 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:00:16 verbose #130 > │ class end │
00:00:16 verbose #131 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:00:16 verbose #132 > │ std_cell_RefCell<'T> = class end │
00:00:16 verbose #133 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:00:16 verbose #134 > │ std_pin_Pin<'T> = class end │
00:00:16 verbose #135 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:00:16 verbose #136 > │ = class end │
00:00:16 verbose #137 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:00:16 verbose #138 > │ std_rc_Weak<'T> = class end │
00:00:16 verbose #139 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:00:16 verbose #140 > │ std_sync_Arc<'T> = class end │
00:00:16 verbose #141 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:16 verbose #142 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:00:16 verbose #143 > │ base64_DecodeError = class end │
00:00:16 verbose #144 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:00:16 verbose #145 > │ borsh_io_Error = class end │
00:00:16 verbose #146 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:00:16 verbose #147 > │ js_sys_JsString = class end │
00:00:16 verbose #148 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:00:16 verbose #149 > │ serde_json_Error = class end │
00:00:16 verbose #150 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:00:16 verbose #151 > │ serde_json_Value = class end │
00:00:16 verbose #152 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:00:16 verbose #153 > │ serde_wasm_bindgen_Error = class end │
00:00:16 verbose #154 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:00:16 verbose #155 > │ = class end │
00:00:16 verbose #156 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:00:16 verbose #157 > │ std_ffi_OsString = class end │
00:00:16 verbose #158 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:00:16 verbose #159 > │ std_str_Utf8Error = class end │
00:00:16 verbose #160 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:16 verbose #161 > │ std_string_String = class end │
00:00:16 verbose #162 > │ [<Fable.Core.Erase; Fable.Core.Emit("num_complex::Complex<$0>")>] type │
00:00:16 verbose #163 > │ num_complex_Complex<'T> = class end │
00:00:16 verbose #164 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::types::PyModule")>] type │
00:00:16 verbose #165 > │ pyo3_types_PyModule = class end │
00:00:16 verbose #166 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Bound<$0>")>] type pyo3_Bound<'T> │
00:00:16 verbose #167 > │ = class end │
00:00:16 verbose #168 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Python")>] type pyo3_Python = │
00:00:16 verbose #169 > │ class end │
00:00:16 verbose #170 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyAny")>] type pyo3_PyAny = class │
00:00:16 verbose #171 > │ end │
00:00:16 verbose #172 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyErr")>] type pyo3_PyErr = class │
00:00:16 verbose #173 > │ end │
00:00:16 verbose #174 > │ let rec method1 (v0 : bool) : bool = │
00:00:16 verbose #175 > │ v0 │
00:00:16 verbose #176 > │ and method0 () : unit = │
00:00:16 verbose #177 > │ let v0 : string = "num_complex::Complex::new($0, $1)" │
00:00:16 verbose #178 > │ let v1 : num_complex_Complex<float> = │
00:00:16 verbose #179 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v0 │
00:00:16 verbose #180 > │ let v2 : string = @$"format!(""{{}}"", $0)" │
00:00:16 verbose #181 > │ let v3 : std_string_String = Fable.Core.RustInterop.emitRustExpr v1 v2 │
00:00:16 verbose #182 > │ let v4 : string = "fable_library_rust::String_::fromString($0)" │
00:00:16 verbose #183 > │ let v5 : string = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:00:16 verbose #184 > │ let v6 : string = $"%A{v5}" │
00:00:16 verbose #185 > │ System.Console.WriteLine v6 │
00:00:16 verbose #186 > │ let v8 : bool = v5 = "0+0i" │
00:00:16 verbose #187 > │ let v10 : bool = │
00:00:16 verbose #188 > │ if v8 then │
00:00:16 verbose #189 > │ true │
00:00:16 verbose #190 > │ else │
00:00:16 verbose #191 > │ method1(v8) │
00:00:16 verbose #192 > │ let v11 : string = "0+0i" │
00:00:16 verbose #193 > │ let v12 : string = $"__expect / actual: %A{v5} / expected: %A{v11}" │
00:00:16 verbose #194 > │ let v13 : bool = v10 = false │
00:00:16 verbose #195 > │ if v13 then │
00:00:16 verbose #196 > │ failwith<unit> v12 │
00:00:16 verbose #197 > │ method0() │
00:00:16 verbose #198 > │ │
00:00:16 verbose #199 > │ │
00:00:16 verbose #200 > │ .rs: │
00:00:16 verbose #201 > │ #![allow(dead_code)] │
00:00:16 verbose #202 > │ #![allow(non_camel_case_types)] │
00:00:16 verbose #203 > │ #![allow(non_snake_case)] │
00:00:16 verbose #204 > │ #![allow(non_upper_case_globals)] │
00:00:16 verbose #205 > │ #![allow(unreachable_code)] │
00:00:16 verbose #206 > │ #![allow(unused_attributes)] │
00:00:16 verbose #207 > │ #![allow(unused_imports)] │
00:00:16 verbose #208 > │ #![allow(unused_macros)] │
00:00:16 verbose #209 > │ #![allow(unused_parens)] │
00:00:16 verbose #210 > │ #![allow(unused_variables)] │
00:00:16 verbose #211 > │ mod module_ccfa04bf { │
00:00:16 verbose #212 > │ pub mod Spiral_eval { │
00:00:16 verbose #213 > │ use super::*; │
00:00:16 verbose #214 > │ use fable_library_rust::Native_::on_startup; │
00:00:16 verbose #215 > │ use fable_library_rust::String_::printfn; │
00:00:16 verbose #216 > │ use fable_library_rust::String_::sprintf; │
00:00:16 verbose #217 > │ use fable_library_rust::String_::string; │
00:00:16 verbose #218 > │ pub fn method1(v0: bool) -> bool { │
00:00:16 verbose #219 > │ v0 │
00:00:16 verbose #220 > │ } │
00:00:16 verbose #221 > │ pub fn method0() { │
00:00:16 verbose #222 > │ let v1: num_complex::Complex<f64> = │
00:00:16 verbose #223 > │ num_complex::Complex::new(0.0_f64, 0.0_f64); │
00:00:16 verbose #224 > │ let v3: std::string::String = format!("{}", v1); │
00:00:16 verbose #225 > │ let v5: string = fable_library_rust::String_::fromString(v3); │
00:00:16 verbose #226 > │ let v6: string = sprintf!("{:?}", v5.clone()); │
00:00:16 verbose #227 > │ printfn!("{0}", v6); │
00:00:16 verbose #228 > │ { │
00:00:16 verbose #229 > │ let v8: bool = v5.clone() == string("0+0i"); │
00:00:16 verbose #230 > │ if (if v8 { true } else { Spiral_eval::method1(v8) }) == │
00:00:16 verbose #231 > │ false { │
00:00:16 verbose #232 > │ panic!( │
00:00:16 verbose #233 > │ "{}", │
00:00:16 verbose #234 > │ sprintf!( │
00:00:16 verbose #235 > │ "__expect / actual: {:?} / expected: {:?}", │
00:00:16 verbose #236 > │ v5, │
00:00:16 verbose #237 > │ string("0+0i") │
00:00:16 verbose #238 > │ ), │
00:00:16 verbose #239 > │ ); │
00:00:17 verbose #240 > │ } │
00:00:17 verbose #241 > │ } │
00:00:17 verbose #242 > │ } │
00:00:17 verbose #243 > │ on_startup!(Spiral_eval::method0()); │
00:00:17 verbose #244 > │ } │
00:00:17 verbose #245 > │ } │
00:00:17 verbose #246 > │ pub use module_ccfa04bf::*; │
00:00:17 verbose #247 > │ │
00:00:17 verbose #248 > │ │
00:00:17 verbose #249 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #250 >
00:00:17 verbose #251 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #252 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #253 > │ ## complex_sin │
00:00:17 verbose #254 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #255 >
00:00:17 verbose #256 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #257 > inl re forall t. (c : complex t) : t =
00:00:17 verbose #258 > inl c = join c
00:00:17 verbose #259 > !\($'"!c.re"')
00:00:17 verbose #260 >
00:00:17 verbose #261 > inl im forall t. (c : complex t) : t =
00:00:17 verbose #262 > inl c = join c
00:00:17 verbose #263 > !\($'"!c.im"')
00:00:17 verbose #264 >
00:00:17 verbose #265 > inl complex_unbox forall t. (c : complex t) =
00:00:17 verbose #266 > re c, im c
00:00:17 verbose #267 >
00:00:17 verbose #268 > inl (~.^) c = complex c
00:00:17 verbose #269 >
00:00:17 verbose #270 > inl complex_eq forall t. (a : complex t) (b : complex t) : bool =
00:00:17 verbose #271 > !\($'"!a == !b"')
00:00:17 verbose #272 >
00:00:17 verbose #273 > inl (.=) a b = complex_eq a b
00:00:17 verbose #274 >
00:00:17 verbose #275 > instance equable complex t = complex_eq
00:00:17 verbose #276 >
00:00:17 verbose #277 > inl complex_add forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 verbose #278 > !\($'"!a + !b"')
00:00:17 verbose #279 >
00:00:17 verbose #280 > inl (.+) a b = complex_add a b
00:00:17 verbose #281 >
00:00:17 verbose #282 > inl complex_sub forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 verbose #283 > !\\((a, b), $'"$0 - $1"')
00:00:17 verbose #284 >
00:00:17 verbose #285 > inl (.-) a b = complex_sub a b
00:00:17 verbose #286 >
00:00:17 verbose #287 > inl complex_mult forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 verbose #288 > !\\((a, b), $'"$0 * $1"')
00:00:17 verbose #289 >
00:00:17 verbose #290 > inl (.*) a b = complex_mult a b
00:00:17 verbose #291 >
00:00:17 verbose #292 > inl complex_div forall t. (a : complex t) (b : complex t) : complex t =
00:00:17 verbose #293 > !\($'"!a / !b"')
00:00:17 verbose #294 >
00:00:17 verbose #295 > inl (./) a b = complex_div a b
00:00:17 verbose #296 >
00:00:17 verbose #297 > inl powc forall t. (s : complex t) (c : complex t) : complex t =
00:00:17 verbose #298 > inl c = join c
00:00:17 verbose #299 > inl s = join s
00:00:17 verbose #300 > !\($'"num_complex::Complex::powc(!c, !s)"')
00:00:17 verbose #301 >
00:00:17 verbose #302 > inl (.**) a b = powc b a
00:00:17 verbose #303 >
00:00:17 verbose #304 > inl complex_sin forall t. (c : complex t) : complex t =
00:00:17 verbose #305 > !\($'"!c.sin()"')
00:00:17 verbose #306 >
00:00:17 verbose #307 > inl conj forall t. (c : complex t) : complex t =
00:00:17 verbose #308 > !\($'"!c.conj()"')
00:00:17 verbose #309 > 00:00:16 debug #9 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5a95c3e15923c6920070293d6716cbb2793842b5c066db481586bd441486b97c/main.spi
00:00:17 verbose #310 >
00:00:17 verbose #311 > ╭─[ 214.78ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 verbose #312 > │ () │
00:00:17 verbose #313 > │ │
00:00:17 verbose #314 > │ │
00:00:17 verbose #315 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #316 >
00:00:17 verbose #317 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #318 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #319 > │ ## zeta │
00:00:17 verbose #320 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #321 >
00:00:17 verbose #322 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #323 > inl zeta log (gamma : complex f64 -> complex f64) (s : complex f64) : complex
00:00:17 verbose #324 > f64 =
00:00:17 verbose #325 > inl rec zeta count gamma s =
00:00:17 verbose #326 > if log then
00:00:17 verbose #327 > !\\(s, $'"println\!(\\\"zeta / count: {:?} / s: {:?}\\\", !count,
00:00:17 verbose #328 > $0)"')
00:00:17 verbose #329 > if re s > 1 then
00:00:17 verbose #330 > (.^(0, 0), (am.init 10000i32 id : a i32 _))
00:00:17 verbose #331 > ||> am.fold fun acc n =>
00:00:17 verbose #332 > acc .+ (.^(1, 0) ./ (.^(f64 n, 0) .** s))
00:00:17 verbose #333 > else
00:00:17 verbose #334 > inl gamma_term = gamma (.^(1, 0) .- s)
00:00:17 verbose #335 > inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |> complex_sin
00:00:17 verbose #336 > inl one_minus_s = .^(1 - re s, -(im s))
00:00:17 verbose #337 > inl mirror_term =
00:00:17 verbose #338 > if re one_minus_s <= 1
00:00:17 verbose #339 > then .^(0, 0)
00:00:17 verbose #340 > else
00:00:17 verbose #341 > if count <= 3
00:00:17 verbose #342 > then zeta (count + 1) gamma one_minus_s
00:00:17 verbose #343 > else one_minus_s
00:00:17 verbose #344 > inl reflection_formula =
00:00:17 verbose #345 > .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .*
00:00:17 verbose #346 > mirror_term
00:00:17 verbose #347 > reflection_formula
00:00:17 verbose #348 > join zeta 0i32 gamma s
00:00:17 verbose #349 > 00:00:16 debug #10 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/10cc2e61d8e1c8501ee311ac1aaa7bb5ddb8c7476f64e51b4571b80e485463bd/main.spi
00:00:17 verbose #350 >
00:00:17 verbose #351 > ╭─[ 249.42ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 verbose #352 > │ () │
00:00:17 verbose #353 > │ │
00:00:17 verbose #354 > │ │
00:00:17 verbose #355 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #356 >
00:00:17 verbose #357 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #358 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #359 > │ ## eval │
00:00:17 verbose #360 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #361 >
00:00:17 verbose #362 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #363 > inl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =
00:00:17 verbose #364 > inl py = join py
00:00:17 verbose #365 > inl code = code |> sm'.as_str
00:00:17 verbose #366 > !\($'"pyo3::types::PyModule::from_code_bound(!py, !code, \\"\\", \\"\\")"')
00:00:17 verbose #367 > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:17 verbose #368 >
00:00:17 verbose #369 > inl use_pyanymethods () =
00:00:17 verbose #370 > global "Fable.Core.RustInterop.emitRustExpr () \");\nuse
00:00:17 verbose #371 > pyo3::prelude::PyAnyMethods;\n//\""
00:00:17 verbose #372 >
00:00:17 verbose #373 > inl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =
00:00:17 verbose #374 > inl attr = join attr
00:00:17 verbose #375 > inl attr = attr |> sm'.as_str
00:00:17 verbose #376 > inl module = join module
00:00:17 verbose #377 > use_pyanymethods ()
00:00:17 verbose #378 > !\($'"!module.getattr(!attr)"')
00:00:17 verbose #379 > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:17 verbose #380 >
00:00:17 verbose #381 > inl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =
00:00:17 verbose #382 > inl args = join args
00:00:17 verbose #383 > inl module = join module
00:00:17 verbose #384 > !\($'"pyo3::prelude::PyAnyMethods::call(&!module, ((*!args).0, *(*!args).1),
00:00:17 verbose #385 > None)"')
00:00:17 verbose #386 > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:17 verbose #387 >
00:00:17 verbose #388 > inl extract forall t. (result : bound pyany) : _ t _ =
00:00:17 verbose #389 > inl result = join result
00:00:17 verbose #390 > use_pyanymethods ()
00:00:17 verbose #391 > !\($'"!result.extract()"')
00:00:17 verbose #392 > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:17 verbose #393 >
00:00:17 verbose #394 > inl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm'.std_string =
00:00:17 verbose #395 > inl code =
00:00:17 verbose #396 > code
00:00:17 verbose #397 > |> module_from_code py
00:00:17 verbose #398 > |> resultm.unwrap'
00:00:17 verbose #399 > inl fn =
00:00:17 verbose #400 > code
00:00:17 verbose #401 > |> getattr "fn"
00:00:17 verbose #402 > |> resultm.unwrap'
00:00:17 verbose #403 >
00:00:17 verbose #404 > fn
00:00:17 verbose #405 > |> call args
00:00:17 verbose #406 > |> resultm.try'
00:00:17 verbose #407 > |> extract
00:00:17 verbose #408 > |> resultm.try'
00:00:17 verbose #409 > |> complex
00:00:17 verbose #410 > |> Ok
00:00:17 verbose #411 > |> resultm.box
00:00:17 verbose #412 >
00:00:17 verbose #413 > inl call1_ log py s code =
00:00:17 verbose #414 > inl code = join (a code : _ i32 _) |> sm'.concat_array_trailing "\n"
00:00:17 verbose #415 >
00:00:17 verbose #416 > inl s = new_pair (re s) (im s)
00:00:17 verbose #417 > inl args = new_pair log s
00:00:17 verbose #418 >
00:00:17 verbose #419 > eval py code args
00:00:17 verbose #420 >
00:00:17 verbose #421 > inl call1_ log name py s line =
00:00:17 verbose #422 > inl s = join s
00:00:17 verbose #423 > join
00:00:17 verbose #424 > ;[[
00:00:17 verbose #425 > $'$"import sys"'
00:00:17 verbose #426 > $'$"import traceback"'
00:00:17 verbose #427 > $'$"import re"'
00:00:17 verbose #428 > $'$"count = 0"'
00:00:17 verbose #429 > $'$"memory_address_pattern = re.compile(r\' at 0x[[0-9a-fA-F]]+\')"'
00:00:17 verbose #430 > $'$"def trace_calls(frame, event, arg):"'
00:00:17 verbose #431 > $'$" global count"'
00:00:17 verbose #432 > $'$" count += 1"'
00:00:17 verbose #433 > $'$" if count < 200:"'
00:00:17 verbose #434 > $'$" try:"'
00:00:17 verbose #435 > $'$" args = {{ k: v for k, v in frame.f_locals.items() if
00:00:17 verbose #436 > frame.f_code.co_name \!= \'make_mpc\' and k not in [[\'ctx\']] and not
00:00:17 verbose #437 > callable(v) }}"'
00:00:17 verbose #438 > $'$" args_str = \', \'.join([[
00:00:17 verbose #439 > f\\\"{{k}}={{re.sub(memory_address_pattern, \' at 0x<?>\', repr(v))}}\\\" for k,
00:00:17 verbose #440 > v in args.items() ]])"'
00:00:17 verbose #441 > $'$" print(f\\\"{{event}}({!name}) / f_code.co_name:
00:00:17 verbose #442 > {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}}
00:00:17 verbose #443 > / f_code.co_filename:
00:00:17 verbose #444 > {{frame.f_code.co_filename.split(\'site-packages\')[[-1]]}} / f_back.f_lineno:
00:00:17 verbose #445 > {{ \'\' if frame.f_back is None else frame.f_back.f_lineno }}
00:00:17 verbose #446 > f_back.f_code.co_filename: {{ \'\' if frame.f_back is None else
00:00:17 verbose #447 > frame.f_back.f_code.co_filename.split(\'site-packages\')[[-1]] }} / arg:
00:00:17 verbose #448 > {{re.sub(memory_address_pattern, \' at 0x<?>\', repr(arg))}}\\\", flush=True)"'
00:00:17 verbose #449 > $'$" except ValueError as e:"'
00:00:17 verbose #450 > $'$" print(f\'{!name} / e: {{e}}\', flush=True)"'
00:00:17 verbose #451 > $'$" return trace_calls"'
00:00:17 verbose #452 > $'$"import mpmath"'
00:00:17 verbose #453 > $'$"def fn(log, s):"'
00:00:17 verbose #454 > $'$" global count"'
00:00:17 verbose #455 > $'$" if log:"'
00:00:17 verbose #456 > $'$" print(f\'{!name} / s: {{s}} / count: {{count}}\',
00:00:17 verbose #457 > flush=True)"'
00:00:17 verbose #458 > $'$" s = complex(*s)"'
00:00:17 verbose #459 > $'$" try:"'
00:00:17 verbose #460 > $'$" if log: sys.settrace(trace_calls)"'
00:00:17 verbose #461 > line
00:00:17 verbose #462 > $'$" if log:"'
00:00:17 verbose #463 > $'$" sys.settrace(None)"'
00:00:17 verbose #464 > $'$" print(f\'{!name} / result: {{s}} / count:
00:00:17 verbose #465 > {{count}}\', flush=True)"'
00:00:17 verbose #466 > $'$" except ValueError as e:"'
00:00:17 verbose #467 > $'$" if s.real == 1:"'
00:00:17 verbose #468 > $'$" s = complex(float(\'inf\'), 0)"'
00:00:17 verbose #469 > $'$" return (s.real, s.imag)"'
00:00:17 verbose #470 > ]]
00:00:17 verbose #471 > |> call1_ log py s
00:00:17 verbose #472 >
00:00:17 verbose #473 > inl gamma_ log py s =
00:00:17 verbose #474 > call1_ log "gamma_" py s $'$" s = mpmath.gamma(s)"'
00:00:17 verbose #475 >
00:00:17 verbose #476 > inl zeta_ log py s =
00:00:17 verbose #477 > call1_ log "zeta_" py s $'$" s = mpmath.zeta(s)"'
00:00:17 verbose #478 > 00:00:17 debug #11 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/54a9e6ee4ec371cd88b46b5bf8c80f81d6bbb324e4e080eb99edbf8d6a3a6f5e/main.spi
00:00:17 verbose #479 >
00:00:17 verbose #480 > ╭─[ 231.78ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 verbose #481 > │ () │
00:00:17 verbose #482 > │ │
00:00:17 verbose #483 > │ │
00:00:17 verbose #484 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #485 >
00:00:17 verbose #486 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #487 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #488 > │ ## run_test │
00:00:17 verbose #489 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #490 >
00:00:17 verbose #491 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #492 > inl run_test log closure_fix (fn : (complex f64 -> complex f64) * (complex f64
00:00:17 verbose #493 > -> complex f64) -> ()) =
00:00:17 verbose #494 > inl fn_ (py : python) : resultm.result' () pyerr =
00:00:17 verbose #495 > inl nan () =
00:00:17 verbose #496 > !\($'"f64::NAN"')
00:00:17 verbose #497 > inl gamma__ = fun (s : complex f64) =>
00:00:17 verbose #498 > inl result = gamma_ log py s
00:00:17 verbose #499 > if log then
00:00:17 verbose #500 > inl s = join s
00:00:17 verbose #501 > !\($'"println\!(\\\"gamma__ / s: {:?} / result: {:?}\\\", !s,
00:00:17 verbose #502 > !result)"')
00:00:17 verbose #503 > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:17 verbose #504 > .^(nan (), nan ())
00:00:17 verbose #505 > inl zeta__ = fun (s : complex f64) =>
00:00:17 verbose #506 > inl result = zeta_ log py s
00:00:17 verbose #507 >
00:00:17 verbose #508 > inl z = zeta true gamma__ s
00:00:17 verbose #509 >
00:00:17 verbose #510 > if log then
00:00:17 verbose #511 > inl s = join s
00:00:17 verbose #512 > !\($'"println\!(\\\"zeta__ / s: {:?} / result: {:?} / z:
00:00:17 verbose #513 > {:?}\\\", !s, !result, !z)"')
00:00:17 verbose #514 >
00:00:17 verbose #515 > // re result - re x |> abs
00:00:17 verbose #516 > // |> _assert_lt 0.001
00:00:17 verbose #517 >
00:00:17 verbose #518 > // im result - im x |> abs
00:00:17 verbose #519 > // |> _assert_lt 0.001
00:00:17 verbose #520 >
00:00:17 verbose #521 > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:17 verbose #522 > .^(nan (), nan ())
00:00:17 verbose #523 > join fn (zeta__, gamma__)
00:00:17 verbose #524 >
00:00:17 verbose #525 > Ok ()
00:00:17 verbose #526 > |> resultm.box
00:00:17 verbose #527 >
00:00:17 verbose #528 > join
00:00:17 verbose #529 > !\($'"pyo3::prepare_freethreaded_python()"') : ()
00:00:17 verbose #530 >
00:00:17 verbose #531 > !\($'"let __result = pyo3::Python::with_gil(|py| -> pyo3::PyResult<()> {
00:00:17 verbose #532 > //"')
00:00:17 verbose #533 >
00:00:17 verbose #534 > let x' = fn_ (!\($'"py"') : python)
00:00:17 verbose #535 > inl x' = join x'
00:00:17 verbose #536 >
00:00:17 verbose #537 > inl closure_fix = 2u8, 1u8
00:00:17 verbose #538 > x' |> rust.fix_closure closure_fix
00:00:17 verbose #539 >
00:00:17 verbose #540 > (!\($'"__result"') : _ () pyerr)
00:00:17 verbose #541 > |> resultm.unwrap'
00:00:17 verbose #542 > 00:00:17 debug #12 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c17f35b55cc151b525ccff9f8dd901367b34b892e615300ad14ce3c71e21fe76/main.spi
00:00:17 verbose #543 >
00:00:17 verbose #544 > ╭─[ 263.74ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 verbose #545 > │ () │
00:00:17 verbose #546 > │ │
00:00:17 verbose #547 > │ │
00:00:17 verbose #548 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #549 >
00:00:17 verbose #550 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #551 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #552 > │ ## test_zeta_at_known_values_ │
00:00:17 verbose #553 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #554 >
00:00:17 verbose #555 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #556 > inl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:17 verbose #557 > ;[[
00:00:17 verbose #558 > .^(2, 0), pi ** 2 / 6
00:00:17 verbose #559 > .^(-1, 0), -1 / 12
00:00:17 verbose #560 > ]]
00:00:17 verbose #561 > |> fun x => a x : _ i32 _
00:00:17 verbose #562 > |> am.iter fun s, e =>
00:00:17 verbose #563 > inl result = zeta s
00:00:17 verbose #564 >
00:00:17 verbose #565 > result |> im |> _assert_eq 0
00:00:17 verbose #566 > re result - e |> abs |> _assert_lt 0.0001
00:00:18 verbose #567 > 00:00:17 debug #13 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1111490d5edf15c4fd69bc538d7bfd2e4e338f1efd7efb74a39c3f9c72186bc6/main.spi
00:00:18 verbose #568 >
00:00:18 verbose #569 > ╭─[ 255.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 verbose #570 > │ () │
00:00:18 verbose #571 > │ │
00:00:18 verbose #572 > │ │
00:00:18 verbose #573 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #574 >
00:00:18 verbose #575 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #576 > // // test
00:00:18 verbose #577 > // // rust=
00:00:18 verbose #578 > // // print_code=false
00:00:18 verbose #579 >
00:00:18 verbose #580 > types ()
00:00:18 verbose #581 > test_zeta_at_known_values_ true
00:00:18 verbose #582 > 00:00:17 debug #14 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/61588645e8aa156ddc94ce5330db4e306f153630c19631c26e04c73160db0334/main.spi
00:00:27 verbose #583 >
00:00:27 verbose #584 > ╭─[ 9.44s - return value ]─────────────────────────────────────────────────────╮
00:00:27 verbose #585 > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:00:27 verbose #586 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:27 verbose #587 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:27 verbose #588 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:27 verbose #589 > │ / arg: None │
00:00:27 verbose #590 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:27 verbose #591 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:27 verbose #592 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:27 verbose #593 > │ / arg: None │
00:00:27 verbose #594 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:27 verbose #595 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:27 verbose #596 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:27 verbose #597 > │ / arg: None │
00:00:27 verbose #598 > │ line(zeta_) / f_code.co_name: z... │
00:00:27 verbose #599 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 verbose #600 >
00:00:27 verbose #601 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:27 verbose #602 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:27 verbose #603 > │ ## test_zeta_at_2_minus2 │
00:00:27 verbose #604 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 verbose #605 >
00:00:27 verbose #606 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:27 verbose #607 > inl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:00:27 verbose #608 > inl s = .^(2, -2)
00:00:27 verbose #609 > inl result = zeta s
00:00:27 verbose #610 >
00:00:27 verbose #611 > (re result - 0.8673) |> abs |> _assert_lt 0.001
00:00:27 verbose #612 > (im result - 0.2750) |> abs |> _assert_lt 0.001
00:00:27 verbose #613 > 00:00:27 debug #15 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fe949e77a1450f3973fc4a7e771ecef9dd8190322eead684cab08695c6d252af/main.spi
00:00:27 verbose #614 >
00:00:27 verbose #615 > ╭─[ 226.91ms - stdout ]────────────────────────────────────────────────────────╮
00:00:27 verbose #616 > │ () │
00:00:27 verbose #617 > │ │
00:00:27 verbose #618 > │ │
00:00:27 verbose #619 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 verbose #620 >
00:00:27 verbose #621 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:27 verbose #622 > // // test
00:00:27 verbose #623 > // // rust=
00:00:27 verbose #624 > // // print_code=false
00:00:27 verbose #625 >
00:00:27 verbose #626 > types ()
00:00:27 verbose #627 > test_zeta_at_2_minus2 true
00:00:28 verbose #628 > 00:00:27 debug #16 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2a79992b01f8caa62f364954e05a098f83bd6340ff099fd05c59d9000b5aa20d/main.spi
00:00:36 verbose #629 >
00:00:36 verbose #630 > ╭─[ 8.68s - return value ]─────────────────────────────────────────────────────╮
00:00:36 verbose #631 > │ zeta_ / s: (2.0, -2.0) / count: 0 │
00:00:36 verbose #632 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:36 verbose #633 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:36 verbose #634 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #635 > │ / arg: None │
00:00:36 verbose #636 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:36 verbose #637 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:36 verbose #638 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #639 > │ / arg: None │
00:00:36 verbose #640 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:36 verbose #641 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:36 verbose #642 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #643 > │ / arg: None │
00:00:36 verbose #644 > │ line(zeta_) / f_code.co_name: ... │
00:00:36 verbose #645 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #646 >
00:00:36 verbose #647 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #648 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #649 > │ ## test_trivial_zero_at_negative_even___ │
00:00:36 verbose #650 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #651 >
00:00:36 verbose #652 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #653 > inl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun
00:00:36 verbose #654 > zeta, gamma =>
00:00:36 verbose #655 > (join listm'.init_series -2f64 -40 -2)
00:00:36 verbose #656 > |> listm.iter fun n =>
00:00:36 verbose #657 > inl s = .^(n, 0)
00:00:36 verbose #658 > inl result = zeta s
00:00:36 verbose #659 >
00:00:36 verbose #660 > result |> re |> _assert_eq 0
00:00:36 verbose #661 > result |> im |> _assert_eq 0
00:00:36 verbose #662 > 00:00:36 debug #17 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9c0092753a135d1fc177182707a2ecd8088435777f95e88289c315af44adc865/main.spi
00:00:36 verbose #663 >
00:00:36 verbose #664 > ╭─[ 237.69ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 verbose #665 > │ () │
00:00:36 verbose #666 > │ │
00:00:36 verbose #667 > │ │
00:00:36 verbose #668 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #669 >
00:00:36 verbose #670 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #671 > // // test
00:00:36 verbose #672 > // // rust=
00:00:36 verbose #673 > // // print_code=false
00:00:36 verbose #674 >
00:00:36 verbose #675 > types ()
00:00:36 verbose #676 > test_trivial_zero_at_negative_even___ true
00:00:36 verbose #677 > 00:00:36 debug #18 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4aaf69a3b79feeb8d5bc158412b9d9cf23f05bd1d466072e117387c1e822483d/main.spi
00:00:45 verbose #678 >
00:00:45 verbose #679 > ╭─[ 9.08s - return value ]─────────────────────────────────────────────────────╮
00:00:45 verbose #680 > │ zeta_ / s: (-2.0, 0.0) / count: 0 │
00:00:45 verbose #681 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:45 verbose #682 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:45 verbose #683 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:45 verbose #684 > │ / arg: None │
00:00:45 verbose #685 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:45 verbose #686 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:45 verbose #687 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:45 verbose #688 > │ / arg: None │
00:00:45 verbose #689 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:45 verbose #690 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:45 verbose #691 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:45 verbose #692 > │ / arg: None │
00:00:45 verbose #693 > │ line(zeta_) / f_code.co_nam... │
00:00:45 verbose #694 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #695 >
00:00:45 verbose #696 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #697 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #698 > │ ## test_non_trivial_zero___ │
00:00:45 verbose #699 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #700 >
00:00:45 verbose #701 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #702 > inl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:45 verbose #703 > ;[[
00:00:45 verbose #704 > .^(0.5, 14.134725)
00:00:45 verbose #705 > .^(0.5, 21.022040)
00:00:45 verbose #706 > .^(0.5, 25.010857)
00:00:45 verbose #707 > .^(0.5, 30.424876)
00:00:45 verbose #708 > .^(0.5, 32.935062)
00:00:45 verbose #709 > .^(0.5, 37.586178)
00:00:45 verbose #710 > ]]
00:00:45 verbose #711 > |> fun x => a x : _ i32 _
00:00:45 verbose #712 > |> am.iter fun x =>
00:00:45 verbose #713 > inl result = zeta x
00:00:45 verbose #714 > result |> re |> abs |> _assert_lt 0.0001
00:00:45 verbose #715 > result |> im |> abs |> _assert_lt 0.0001
00:00:46 verbose #716 > 00:00:45 debug #19 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3469e05ddf06efc88f65d43eb34270f8867b3b7d7d67c094e7be4a42fad104a0/main.spi
00:00:46 verbose #717 >
00:00:46 verbose #718 > ╭─[ 269.23ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 verbose #719 > │ () │
00:00:46 verbose #720 > │ │
00:00:46 verbose #721 > │ │
00:00:46 verbose #722 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #723 >
00:00:46 verbose #724 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #725 > // // test
00:00:46 verbose #726 > // // rust=
00:00:46 verbose #727 > // // print_code=false
00:00:46 verbose #728 >
00:00:46 verbose #729 > types ()
00:00:46 verbose #730 > test_non_trivial_zero___ true
00:00:46 verbose #731 > 00:00:45 debug #20 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9b73da77bc17bebe0d09ca533b5bcab32b346bb6ac3145f1420cf212ae751581/main.spi
00:00:55 verbose #732 >
00:00:55 verbose #733 > ╭─[ 9.14s - return value ]─────────────────────────────────────────────────────╮
00:00:55 verbose #734 > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:00:55 verbose #735 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:55 verbose #736 > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:55 verbose #737 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:55 verbose #738 > │ / arg: None │
00:00:55 verbose #739 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:55 verbose #740 > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:55 verbose #741 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:55 verbose #742 > │ / arg: None │
00:00:55 verbose #743 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:55 verbose #744 > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:00:55 verbose #745 > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:55 verbose #746 > │ f_back.f_code.co_filename: / arg: ... │
00:00:55 verbose #747 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 verbose #748 >
00:00:55 verbose #749 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 verbose #750 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 verbose #751 > │ ## test_real_part_greater_than_one___ │
00:00:55 verbose #752 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 verbose #753 >
00:00:55 verbose #754 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #755 > inl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta,
00:00:55 verbose #756 > gamma =>
00:00:55 verbose #757 > inl points = ;[[2; 3; 4; 5; 10; 20; 50]]
00:00:55 verbose #758 > (a points : _ i32 _)
00:00:55 verbose #759 > |> am.iter fun point =>
00:00:55 verbose #760 > inl s = .^(point, 0)
00:00:55 verbose #761 > inl result = zeta s
00:00:55 verbose #762 > result |> re |> _assert_gt 0
00:00:55 verbose #763 > result |> im |> _assert_eq 0
00:00:55 verbose #764 > 00:00:54 debug #21 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9cc11ef77d9d13b430c6c87e1846078260855709de71af0fdea60352939dfe67/main.spi
00:00:55 verbose #765 >
00:00:55 verbose #766 > ╭─[ 251.36ms - stdout ]────────────────────────────────────────────────────────╮
00:00:55 verbose #767 > │ () │
00:00:55 verbose #768 > │ │
00:00:55 verbose #769 > │ │
00:00:55 verbose #770 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 verbose #771 >
00:00:55 verbose #772 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #773 > // // test
00:00:55 verbose #774 > // // rust=
00:00:55 verbose #775 > // // print_code=false
00:00:55 verbose #776 >
00:00:55 verbose #777 > types ()
00:00:55 verbose #778 > test_real_part_greater_than_one___ true
00:00:55 verbose #779 > 00:00:55 debug #22 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3c515fb5ffd467b5aa60dd821ae75c5ca87adc91cc683ddfd6b2d9e6a362ea5c/main.spi
00:01:04 verbose #780 >
00:01:04 verbose #781 > ╭─[ 8.65s - return value ]─────────────────────────────────────────────────────╮
00:01:04 verbose #782 > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:04 verbose #783 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:04 verbose #784 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:04 verbose #785 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:04 verbose #786 > │ / arg: None │
00:01:04 verbose #787 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:04 verbose #788 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:04 verbose #789 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:04 verbose #790 > │ / arg: None │
00:01:04 verbose #791 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:04 verbose #792 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:04 verbose #793 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:04 verbose #794 > │ / arg: None │
00:01:04 verbose #795 > │ line(zeta_) / f_code.co_name: z... │
00:01:04 verbose #796 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 verbose #797 >
00:01:04 verbose #798 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:04 verbose #799 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:04 verbose #800 > │ ## test_zeta_at_1___ │
00:01:04 verbose #801 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 verbose #802 >
00:01:04 verbose #803 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:04 verbose #804 > inl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:01:04 verbose #805 > inl s = .^(1, 0)
00:01:04 verbose #806 > inl result = zeta s
00:01:04 verbose #807 > result |> re |> _assert_eq limit.max
00:01:04 verbose #808 > result |> im |> _assert_eq 0
00:01:04 verbose #809 > 00:01:03 debug #23 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ad26a5b7b7258670d35b3e3c6c46072240f91d8f01578b401bbb891886b12513/main.spi
00:01:04 verbose #810 >
00:01:04 verbose #811 > ╭─[ 207.86ms - stdout ]────────────────────────────────────────────────────────╮
00:01:04 verbose #812 > │ () │
00:01:04 verbose #813 > │ │
00:01:04 verbose #814 > │ │
00:01:04 verbose #815 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 verbose #816 >
00:01:04 verbose #817 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:04 verbose #818 > // // test
00:01:04 verbose #819 > // // rust=
00:01:04 verbose #820 > // // print_code=false
00:01:04 verbose #821 >
00:01:04 verbose #822 > types ()
00:01:04 verbose #823 > test_zeta_at_1___ true
00:01:04 verbose #824 > 00:01:03 debug #24 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/387504a9c1debe96f1c635989da6eecd631adf88447388490ec2decb2aafff2b/main.spi
00:01:12 verbose #825 >
00:01:12 verbose #826 > ╭─[ 8.12s - return value ]─────────────────────────────────────────────────────╮
00:01:12 verbose #827 > │ zeta_ / s: (1.0, 0.0) / count: 0 │
00:01:12 verbose #828 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:12 verbose #829 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:12 verbose #830 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:12 verbose #831 > │ / arg: None │
00:01:12 verbose #832 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:12 verbose #833 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:12 verbose #834 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:12 verbose #835 > │ / arg: None │
00:01:12 verbose #836 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:12 verbose #837 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:12 verbose #838 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:12 verbose #839 > │ / arg: None │
00:01:12 verbose #840 > │ line(zeta_) / f_code.co_name: z... │
00:01:12 verbose #841 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 verbose #842 >
00:01:12 verbose #843 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:12 verbose #844 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:12 verbose #845 > │ ## test_symmetry_across_real_axis___ │
00:01:12 verbose #846 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 verbose #847 >
00:01:12 verbose #848 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:12 verbose #849 > inl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta,
00:01:12 verbose #850 > gamma =>
00:01:12 verbose #851 > inl s = .^(2, 10)
00:01:12 verbose #852 > inl result_positive_im = zeta s
00:01:12 verbose #853 > inl result_negative_im = zeta .^(re s, -(im s))
00:01:12 verbose #854 > inl conj = result_negative_im |> conj
00:01:12 verbose #855 > result_positive_im |> re |> _assert_eq (conj |> re)
00:01:12 verbose #856 > result_positive_im |> im |> _assert_eq (conj |> im)
00:01:12 verbose #857 > 00:01:12 debug #25 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0142c55e5d023a716074028c0f972c55a9e7b00b42302e510c0a70e1c33fe9ab/main.spi
00:01:12 verbose #858 >
00:01:12 verbose #859 > ╭─[ 281.53ms - stdout ]────────────────────────────────────────────────────────╮
00:01:12 verbose #860 > │ () │
00:01:12 verbose #861 > │ │
00:01:12 verbose #862 > │ │
00:01:12 verbose #863 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 verbose #864 >
00:01:12 verbose #865 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:12 verbose #866 > // // test
00:01:12 verbose #867 > // // rust=
00:01:12 verbose #868 > // // print_code=false
00:01:12 verbose #869 >
00:01:12 verbose #870 > types ()
00:01:12 verbose #871 > test_symmetry_across_real_axis___ true
00:01:13 verbose #872 > 00:01:12 debug #26 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f60b6fced373c69ab97cb78b8188355192794f7123d5a032bd3f7de715eae511/main.spi
00:01:20 verbose #873 >
00:01:20 verbose #874 > ╭─[ 7.80s - return value ]─────────────────────────────────────────────────────╮
00:01:20 verbose #875 > │ zeta_ / s: (2.0, 10.0) / count: 0 │
00:01:20 verbose #876 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:20 verbose #877 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:20 verbose #878 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:20 verbose #879 > │ / arg: None │
00:01:20 verbose #880 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:20 verbose #881 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:20 verbose #882 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:20 verbose #883 > │ / arg: None │
00:01:20 verbose #884 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:20 verbose #885 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:20 verbose #886 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:20 verbose #887 > │ / arg: None │
00:01:20 verbose #888 > │ line(zeta_) / f_code.co_nam... │
00:01:20 verbose #889 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #890 >
00:01:20 verbose #891 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:20 verbose #892 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:20 verbose #893 > │ ## test_behavior_near_origin___ │
00:01:20 verbose #894 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #895 >
00:01:20 verbose #896 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #897 > inl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma
00:01:20 verbose #898 > =>
00:01:20 verbose #899 > inl s = .^(0.01, 0.01)
00:01:20 verbose #900 > inl result = zeta s
00:01:20 verbose #901 > result |> re |> _assert_lt limit.max
00:01:20 verbose #902 > result |> im |> _assert_lt limit.max
00:01:20 verbose #903 > 00:01:20 debug #27 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a9e4cf2e6b432fde096b3e684cb807bf2a2a9e8a542805ada533d77f8777cfbd/main.spi
00:01:20 verbose #904 >
00:01:20 verbose #905 > ╭─[ 285.85ms - stdout ]────────────────────────────────────────────────────────╮
00:01:20 verbose #906 > │ () │
00:01:20 verbose #907 > │ │
00:01:20 verbose #908 > │ │
00:01:20 verbose #909 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #910 >
00:01:20 verbose #911 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #912 > // // test
00:01:20 verbose #913 > // // rust=
00:01:20 verbose #914 > // // print_code=false
00:01:20 verbose #915 >
00:01:20 verbose #916 > types ()
00:01:20 verbose #917 > test_behavior_near_origin___ true
00:01:21 verbose #918 > 00:01:20 debug #28 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cf2c1db674af231ecfb74cfeef0d72abcae7f2c66b1e08c0fc973f3594a6d82d/main.spi
00:01:29 verbose #919 >
00:01:29 verbose #920 > ╭─[ 8.14s - return value ]─────────────────────────────────────────────────────╮
00:01:29 verbose #921 > │ zeta_ / s: (0.01, 0.01) / count: 0 │
00:01:29 verbose #922 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #923 > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:29 verbose #924 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:29 verbose #925 > │ / arg: None │
00:01:29 verbose #926 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #927 > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:29 verbose #928 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:29 verbose #929 > │ / arg: None │
00:01:29 verbose #930 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #931 > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:29 verbose #932 > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:29 verbose #933 > │ f_back.f_code.co_filename: / arg: None │
00:01:29 verbose #934 > │ line(zeta_)... │
00:01:29 verbose #935 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #936 >
00:01:29 verbose #937 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #938 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #939 > │ ## test_imaginary_axis │
00:01:29 verbose #940 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #941 >
00:01:29 verbose #942 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #943 > inl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:29 verbose #944 > (join a ;[[10; 20; 30; 40; 50; 60; 70; 80; 90; 100]] : _ i32 _)
00:01:29 verbose #945 > |> am.iter fun s =>
00:01:29 verbose #946 > inl s = .^(0, s)
00:01:29 verbose #947 > inl result = zeta s
00:01:29 verbose #948 > result |> re |> _assert_ne 0
00:01:29 verbose #949 > result |> im |> _assert_ne 0
00:01:29 verbose #950 > 00:01:28 debug #29 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/093e95103ee92bfead81a11cdd73c2e59c33c3cdf6196feb9c8017101d58d5db/main.spi
00:01:29 verbose #951 >
00:01:29 verbose #952 > ╭─[ 218.18ms - stdout ]────────────────────────────────────────────────────────╮
00:01:29 verbose #953 > │ () │
00:01:29 verbose #954 > │ │
00:01:29 verbose #955 > │ │
00:01:29 verbose #956 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #957 >
00:01:29 verbose #958 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #959 > // // test
00:01:29 verbose #960 > // // rust=
00:01:29 verbose #961 > // // print_code=false
00:01:29 verbose #962 >
00:01:29 verbose #963 > types ()
00:01:29 verbose #964 > test_imaginary_axis true
00:01:29 verbose #965 > 00:01:28 debug #30 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a43874b23201ba87ec0e8ee6f845a97ebcc80c088ec9889a8e08d0b486b77856/main.spi
00:01:37 verbose #966 >
00:01:37 verbose #967 > ╭─[ 8.61s - return value ]─────────────────────────────────────────────────────╮
00:01:37 verbose #968 > │ zeta_ / s: (0.0, 10.0) / count: 0 │
00:01:37 verbose #969 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:37 verbose #970 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:37 verbose #971 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:37 verbose #972 > │ / arg: None │
00:01:37 verbose #973 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:37 verbose #974 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:37 verbose #975 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:37 verbose #976 > │ / arg: None │
00:01:37 verbose #977 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:37 verbose #978 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:37 verbose #979 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:37 verbose #980 > │ / arg: None │
00:01:37 verbose #981 > │ line(zeta_) / f_code.co_name: zeta / f_... │
00:01:37 verbose #982 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 verbose #983 >
00:01:37 verbose #984 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:37 verbose #985 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:37 verbose #986 > │ ## test_critical_strip │
00:01:37 verbose #987 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 verbose #988 >
00:01:37 verbose #989 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:37 verbose #990 > inl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:37 verbose #991 > ;[[
00:01:37 verbose #992 > .^(0.5, 14.134725)
00:01:37 verbose #993 > .^(0.75, 20.5)
00:01:37 verbose #994 > .^(1.25, 30.1)
00:01:37 verbose #995 > .^(0.25, 40.0)
00:01:37 verbose #996 > .^(1.0, 50.0)
00:01:37 verbose #997 > ]]
00:01:37 verbose #998 > |> fun x => a x : _ i32 _
00:01:37 verbose #999 > |> am.iter fun s =>
00:01:37 verbose #1000 > inl result = zeta s
00:01:37 verbose #1001 > result |> re |> _assert_ne 0
00:01:37 verbose #1002 > result |> im |> _assert_ne 0
00:01:38 verbose #1003 > 00:01:37 debug #31 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3330ccca717a90fc04aa485b82b8e0f2b9709d27e8e4986f04085c33ec4ae30c/main.spi
00:01:38 verbose #1004 >
00:01:38 verbose #1005 > ╭─[ 206.52ms - stdout ]────────────────────────────────────────────────────────╮
00:01:38 verbose #1006 > │ () │
00:01:38 verbose #1007 > │ │
00:01:38 verbose #1008 > │ │
00:01:38 verbose #1009 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #1010 >
00:01:38 verbose #1011 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #1012 > // // test
00:01:38 verbose #1013 > // // rust=
00:01:38 verbose #1014 > // // print_code=false
00:01:38 verbose #1015 >
00:01:38 verbose #1016 > types ()
00:01:38 verbose #1017 > test_critical_strip true
00:01:38 verbose #1018 > 00:01:37 debug #32 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9f017a151a5bd83ce9bff2cbac8b68147182581963d4b26fce28658f4bafa756/main.spi
00:01:47 verbose #1019 >
00:01:47 verbose #1020 > ╭─[ 8.84s - return value ]─────────────────────────────────────────────────────╮
00:01:47 verbose #1021 > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:01:47 verbose #1022 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:47 verbose #1023 > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:47 verbose #1024 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1025 > │ / arg: None │
00:01:47 verbose #1026 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:47 verbose #1027 > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:47 verbose #1028 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1029 > │ / arg: None │
00:01:47 verbose #1030 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:47 verbose #1031 > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:47 verbose #1032 > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:47 verbose #1033 > │ f_back.f_code.co_filename: / arg: ... │
00:01:47 verbose #1034 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #1035 >
00:01:47 verbose #1036 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 verbose #1037 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 verbose #1038 > │ ## test_reflection_formula_for_specific_value │
00:01:47 verbose #1039 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #1040 >
00:01:47 verbose #1041 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #1042 > inl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun
00:01:47 verbose #1043 > zeta, gamma =>
00:01:47 verbose #1044 > ;[[
00:01:47 verbose #1045 > .^(3, 4)
00:01:47 verbose #1046 > .^(2.5, -3.5)
00:01:47 verbose #1047 > .^(1.5, 2.5)
00:01:47 verbose #1048 > .^(0.5, 14.134725)
00:01:47 verbose #1049 > ]]
00:01:47 verbose #1050 > |> fun x => a x : _ i32 _
00:01:47 verbose #1051 > |> am.iter fun s =>
00:01:47 verbose #1052 > inl lhs = zeta s
00:01:47 verbose #1053 > inl reflection_coefficient =
00:01:47 verbose #1054 > (.^(2, 0) .** s)
00:01:47 verbose #1055 > .* (.^(pi, 0) .** (s .- .^(1, 0)))
00:01:47 verbose #1056 > .* (.^(pi, 0) .* s ./ .^(2, 0) |> complex_sin)
00:01:47 verbose #1057 > .* gamma (.^(1, 0) .- s)
00:01:47 verbose #1058 >
00:01:47 verbose #1059 > inl one_minus_s = .^(1 - re s, -(im s))
00:01:47 verbose #1060 > inl rhs = reflection_coefficient .* zeta one_minus_s
00:01:47 verbose #1061 >
00:01:47 verbose #1062 > re lhs - re rhs |> abs |> _assert_lt 0.0001
00:01:47 verbose #1063 > im lhs - im rhs |> abs |> _assert_lt 0.0001
00:01:47 verbose #1064 > 00:01:46 debug #33 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/afeb6308c0ec5dbabd2ad35e945c3a245b548577dd1d82480c6e851364dbcc19/main.spi
00:01:47 verbose #1065 >
00:01:47 verbose #1066 > ╭─[ 255.39ms - stdout ]────────────────────────────────────────────────────────╮
00:01:47 verbose #1067 > │ () │
00:01:47 verbose #1068 > │ │
00:01:47 verbose #1069 > │ │
00:01:47 verbose #1070 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #1071 >
00:01:47 verbose #1072 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #1073 > // // test
00:01:47 verbose #1074 > // // rust=
00:01:47 verbose #1075 > // // print_code=false
00:01:47 verbose #1076 >
00:01:47 verbose #1077 > types ()
00:01:47 verbose #1078 > test_reflection_formula_for_specific_value true
00:01:47 verbose #1079 > 00:01:46 debug #34 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2e4eec0dd49ab72b35368d7742fb377e92569fff35aadefd822730d8d841f3b5/main.spi
00:01:56 verbose #1080 >
00:01:56 verbose #1081 > ╭─[ 8.76s - return value ]─────────────────────────────────────────────────────╮
00:01:56 verbose #1082 > │ zeta_ / s: (3.0, 4.0) / count: 0 │
00:01:56 verbose #1083 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:56 verbose #1084 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:56 verbose #1085 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:56 verbose #1086 > │ / arg: None │
00:01:56 verbose #1087 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:56 verbose #1088 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:56 verbose #1089 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:56 verbose #1090 > │ / arg: None │
00:01:56 verbose #1091 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:56 verbose #1092 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:56 verbose #1093 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:56 verbose #1094 > │ / arg: None │
00:01:56 verbose #1095 > │ line(zeta_) / f_code.co_name: z... │
00:01:56 verbose #1096 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #1097 >
00:01:56 verbose #1098 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:56 verbose #1099 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:56 verbose #1100 > │ ## test_euler_product_formula │
00:01:56 verbose #1101 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #1102 >
00:01:56 verbose #1103 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:56 verbose #1104 > inl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:56 verbose #1105 > inl s_values = ;[[2; 2.5; 3; 3.5; 4; 4.5; 5]]
00:01:56 verbose #1106 > inl primes = ;[[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53;
00:01:56 verbose #1107 > 59; 61; 67; 71]]
00:01:56 verbose #1108 > (a s_values : _ i32 _)
00:01:56 verbose #1109 > |> am.iter fun s_re =>
00:01:56 verbose #1110 > inl s = .^(s_re, 0)
00:01:56 verbose #1111 > inl product =
00:01:56 verbose #1112 > (1, (a primes : _ i32 _))
00:01:56 verbose #1113 > ||> am.fold fun acc x =>
00:01:56 verbose #1114 > acc * 1 / (1 - x ** -s_re)
00:01:56 verbose #1115 >
00:01:56 verbose #1116 > inl result = zeta s
00:01:56 verbose #1117 > re result - product |> abs |> _assert_lt 0.01
00:01:56 verbose #1118 > result |> im |> _assert_lt 0.01
00:01:56 verbose #1119 > 00:01:55 debug #35 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/efab82202e2d270e8d6857e911138209e0f1cfab568587e4a15fe449236daf75/main.spi
00:01:56 verbose #1120 >
00:01:56 verbose #1121 > ╭─[ 255.98ms - stdout ]────────────────────────────────────────────────────────╮
00:01:56 verbose #1122 > │ () │
00:01:56 verbose #1123 > │ │
00:01:56 verbose #1124 > │ │
00:01:56 verbose #1125 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #1126 >
00:01:56 verbose #1127 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:56 verbose #1128 > // // test
00:01:56 verbose #1129 > // // rust=
00:01:56 verbose #1130 > // // print_code=false
00:01:56 verbose #1131 >
00:01:56 verbose #1132 > types ()
00:01:56 verbose #1133 > test_euler_product_formula true
00:01:56 verbose #1134 > 00:01:55 debug #36 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d5024bbd2bb4e16277da263e0a88aa6ed2ea53c173d0a2fe93e9e2a2b20aa6cd/main.spi
00:02:05 verbose #1135 >
00:02:05 verbose #1136 > ╭─[ 9.08s - return value ]─────────────────────────────────────────────────────╮
00:02:05 verbose #1137 > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:02:05 verbose #1138 > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:02:05 verbose #1139 > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:05 verbose #1140 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:05 verbose #1141 > │ / arg: None │
00:02:05 verbose #1142 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:02:05 verbose #1143 > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:05 verbose #1144 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:05 verbose #1145 > │ / arg: None │
00:02:05 verbose #1146 > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:02:05 verbose #1147 > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:02:05 verbose #1148 > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:05 verbose #1149 > │ / arg: None │
00:02:05 verbose #1150 > │ line(zeta_) / f_code.co_name: z... │
00:02:05 verbose #1151 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1152 >
00:02:05 verbose #1153 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #1154 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #1155 > │ ## graph │
00:02:05 verbose #1156 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1157 >
00:02:05 verbose #1158 > ── mermaid ─────────────────────────────────────────────────────────────────────
00:02:05 verbose #1159 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #1160 > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:02:05 verbose #1161 > │ <link rel="stylesheet" │
00:02:05 verbose #1162 > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:02:05 verbose #1163 > │ css"> │
00:02:05 verbose #1164 > │ <div id="6ee68d49cbe54de8b0ff996905c68f81"></div> │
00:02:05 verbose #1165 > │ <script type="module"> │
00:02:05 verbose #1166 > │ │
00:02:05 verbose #1167 > │ import mermaid from │
00:02:05 verbose #1168 > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:02:05 verbose #1169 > │ let renderTarget = │
00:02:05 verbose #1170 > │ document.getElementById('6ee68d49cbe54de8b0ff996905c68f81'); │
00:02:05 verbose #1171 > │ try { │
00:02:05 verbose #1172 > │ const {svg, bindFunctions} = await │
00:02:05 verbose #1173 > │ mermaid.mermaidAPI.render( │
00:02:05 verbose #1174 > │ 'mermaid_6ee68d49cbe54de8b0ff996905c68f81', │
00:02:05 verbose #1175 > │ `graph TD │
00:02:05 verbose #1176 > │ zeta("zeta()") --> convert │
00:02:05 verbose #1177 > │ zeta --> f["f()"] │
00:02:05 verbose #1178 > │ f --> mpc_f["mpc_zeta()"] │
00:02:05 verbose #1179 > │ f --> mpf_f["mpf_zeta()"] │
00:02:05 verbose #1180 > │ convert --> from_float │
00:02:05 verbose #1181 > │ from_float --> from_man_exp │
00:02:05 verbose #1182 > │ from_man_exp --> python_bitcount │
00:02:05 verbose #1183 > │ python_bitcount --> _normalize │
00:02:05 verbose #1184 > │ _normalize --> make_mpc │
00:02:05 verbose #1185 > │ make_mpc --> mpc_zeta["mpc_zeta()"] │
00:02:05 verbose #1186 > │ mpc_zeta --> mpf_zeta["mpf_zeta()"] │
00:02:05 verbose #1187 > │ mpf_zeta --> to_int │
00:02:05 verbose #1188 > │ to_int --> mpf_zeta_int["mpf_zeta_int()"] │
00:02:05 verbose #1189 > │ mpf_zeta_int --> borwein_coefficients │
00:02:05 verbose #1190 > │ borwein_coefficients --> from_man_exp_2("from_man_exp()") │
00:02:05 verbose #1191 > │ from_man_exp_2 --> python_bitcount_2("python_bitcount()") │
00:02:05 verbose #1192 > │ python_bitcount_2 --> _normalize_2("_normalize()") │
00:02:05 verbose #1193 > │ _normalize_2 --> make_mpc_2("make_mpc()") │
00:02:05 verbose #1194 > │ make_mpc_2 --> stop_trace │
00:02:05 verbose #1195 > │ mpf_zeta_int --> mpf_bernoulli │
00:02:05 verbose #1196 > │ mpf_bernoulli --> bernoulli_size │
00:02:05 verbose #1197 > │ bernoulli_size --> mpf_rdiv_int │
00:02:05 verbose #1198 > │ mpf_rdiv_int --> python_bitcount_3("python_bitcount()") │
00:02:05 verbose #1199 > │ python_bitcount_3 --> _normalize1 │
00:02:05 verbose #1200 > │ _normalize1 --> from_man_exp_3("from_man_exp()") │
00:02:05 verbose #1201 > │ from_man_exp_3 --> _normalize_3("_normalize()") │
00:02:05 verbose #1202 > │ _normalize_3 --> mpf_sub │
00:02:05 verbose #1203 > │ mpf_sub --> mpf_add │
00:02:05 verbose #1204 > │ mpf_add --> mpf_neg │
00:02:05 verbose #1205 > │ mpf_neg --> _normalize1_2("_normalize1()") │
00:02:05 verbose #1206 > │ _normalize1_2 --> from_int │
00:02:05 verbose #1207 > │ from_int --> mpf_div │
00:02:05 verbose #1208 > │ mpf_div --> python_bitcount_4("python_bitcount()") │
00:02:05 verbose #1209 > │ python_bitcount_4 --> _normalize1_3("_normalize1()") │
00:02:05 verbose #1210 > │ _normalize1_3 --> make_mpc_3("make_mpc()") │
00:02:05 verbose #1211 > │ make_mpc_3 --> final_stop["stop_trace()"]`); │
00:02:05 verbose #1212 > │ renderTarget.innerHTML = svg; │
00:02:05 verbose #1213 > │ bindFunctions?.(renderTarget); │
00:02:05 verbose #1214 > │ } │
00:02:05 verbose #1215 > │ catch (error) { │
00:02:05 verbose #1216 > │ console.log(error); │
00:02:05 verbose #1217 > │ } │
00:02:05 verbose #1218 > │ </script> │
00:02:05 verbose #1219 > │ </div> │
00:02:05 verbose #1220 > │ │
00:02:05 verbose #1221 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1222 >
00:02:05 verbose #1223 > ── mermaid ─────────────────────────────────────────────────────────────────────
00:02:05 verbose #1224 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #1225 > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:02:05 verbose #1226 > │ <link rel="stylesheet" │
00:02:05 verbose #1227 > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:02:05 verbose #1228 > │ css"> │
00:02:05 verbose #1229 > │ <div id="e5a6fa9f67f5442480ae29fbb1396ed8"></div> │
00:02:05 verbose #1230 > │ <script type="module"> │
00:02:05 verbose #1231 > │ │
00:02:05 verbose #1232 > │ import mermaid from │
00:02:05 verbose #1233 > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:02:05 verbose #1234 > │ let renderTarget = │
00:02:05 verbose #1235 > │ document.getElementById('e5a6fa9f67f5442480ae29fbb1396ed8'); │
00:02:05 verbose #1236 > │ try { │
00:02:05 verbose #1237 > │ const {svg, bindFunctions} = await │
00:02:05 verbose #1238 > │ mermaid.mermaidAPI.render( │
00:02:05 verbose #1239 > │ 'mermaid_e5a6fa9f67f5442480ae29fbb1396ed8', │
00:02:05 verbose #1240 > │ `graph TD │
00:02:05 verbose #1241 > │ zeta_rust("zeta() - Rust") --> num_traits("num-traits") │
00:02:05 verbose #1242 > │ zeta_rust --> num_bigint("num-bigint") │
00:02:05 verbose #1243 > │ zeta_rust --> rust_decimal("rust_decimal for precision") │
00:02:05 verbose #1244 > │ zeta_rust --> error_handling("Rust Error Handling") │
00:02:05 verbose #1245 > │ │
00:02:05 verbose #1246 > │ num_traits --> num_traits_usage("Use for common traits") │
00:02:05 verbose #1247 > │ num_bigint --> bigint_operations("Arbitrary-precision arithmetic │
00:02:05 verbose #1248 > │ operations") │
00:02:05 verbose #1249 > │ rust_decimal --> decimal_operations("High-precision decimal operations") │
00:02:05 verbose #1250 > │ error_handling --> result_type("Use Result<T, E> for error handling") │
00:02:05 verbose #1251 > │ │
00:02:05 verbose #1252 > │ bigint_operations --> convert_rust("convert() - Rust") │
00:02:05 verbose #1253 > │ bigint_operations --> normalize_rust("_normalize() - Rust") │
00:02:05 verbose #1254 > │ │
00:02:05 verbose #1255 > │ convert_rust --> from_float_rust("from_float() - Rust") │
00:02:05 verbose #1256 > │ from_float_rust --> from_man_exp_rust("from_man_exp() - Rust") │
00:02:05 verbose #1257 > │ from_man_exp_rust --> bitcount_rust("bitcount() - Rust") │
00:02:05 verbose #1258 > │ bitcount_rust --> normalize_rust │
00:02:05 verbose #1259 > │ normalize_rust --> mpc_zeta_rust("mpc_zeta() - Rust") │
00:02:05 verbose #1260 > │ mpc_zeta_rust --> mpf_zeta_rust("mpf_zeta() - Rust") │
00:02:05 verbose #1261 > │ mpf_zeta_rust --> to_int_rust("to_int() - Rust") │
00:02:05 verbose #1262 > │ to_int_rust --> mpf_zeta_int_rust("mpf_zeta_int() - Rust") │
00:02:05 verbose #1263 > │ │
00:02:05 verbose #1264 > │ mpf_zeta_int_rust --> borwein_coefficients_rust("borwein_coefficients() │
00:02:05 verbose #1265 > │ - Rust") │
00:02:05 verbose #1266 > │ borwein_coefficients_rust --> from_man_exp_rust_2("from_man_exp() - │
00:02:05 verbose #1267 > │ Rust") │
00:02:05 verbose #1268 > │ from_man_exp_rust_2 --> bitcount_rust_2("bitcount() - Rust") │
00:02:05 verbose #1269 > │ bitcount_rust_2 --> normalize_rust_2("_normalize() - Rust") │
00:02:05 verbose #1270 > │ normalize_rust_2 --> make_mpc_rust("make_mpc() - Rust") │
00:02:05 verbose #1271 > │ │
00:02:05 verbose #1272 > │ mpf_zeta_int_rust --> mpf_bernoulli_rust("mpf_bernoulli() - Rust") │
00:02:05 verbose #1273 > │ mpf_bernoulli_rust --> bernoulli_size_rust("bernoulli_size() - Rust") │
00:02:05 verbose #1274 > │ bernoulli_size_rust --> mpf_rdiv_int_rust("mpf_rdiv_int() - Rust") │
00:02:05 verbose #1275 > │ mpf_rdiv_int_rust --> bitcount_rust_3("bitcount() - Rust") │
00:02:05 verbose #1276 > │ bitcount_rust_3 --> normalize1_rust("_normalize1() - Rust") │
00:02:05 verbose #1277 > │ normalize1_rust --> from_man_exp_rust_3("from_man_exp() - Rust") │
00:02:05 verbose #1278 > │ from_man_exp_rust_3 --> normalize_rust_3("_normalize() - Rust") │
00:02:05 verbose #1279 > │ normalize_rust_3 --> mpf_sub_rust("mpf_sub() - Rust") │
00:02:05 verbose #1280 > │ mpf_sub_rust --> mpf_add_rust("mpf_add() - Rust") │
00:02:05 verbose #1281 > │ mpf_add_rust --> mpf_neg_rust("mpf_neg() - Rust") │
00:02:05 verbose #1282 > │ mpf_neg_rust --> normalize1_rust_2("_normalize1() - Rust") │
00:02:05 verbose #1283 > │ normalize1_rust_2 --> from_int_rust("from_int() - Rust") │
00:02:05 verbose #1284 > │ from_int_rust --> mpf_div_rust("mpf_div() - Rust") │
00:02:05 verbose #1285 > │ mpf_div_rust --> bitcount_rust_4("bitcount() - Rust") │
00:02:05 verbose #1286 > │ bitcount_rust_4 --> normalize1_rust_3("_normalize1() - Rust") │
00:02:05 verbose #1287 > │ │
00:02:05 verbose #1288 > │ style zeta_rust fill:#f9f,stroke:#333,stroke-width:4px │
00:02:05 verbose #1289 > │ style num_traits fill:#bbf,stroke:#333,stroke-width:2px │
00:02:05 verbose #1290 > │ style num_bigint fill:#bbf,stroke:#333,stroke-width:2px │
00:02:05 verbose #1291 > │ style rust_decimal fill:#bbf,stroke:#333,stroke-width:2px │
00:02:05 verbose #1292 > │ style error_handling fill:#bbf,stroke:#333,stroke-width:2px │
00:02:05 verbose #1293 > │ style bigint_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:02:05 verbose #1294 > │ style decimal_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:02:05 verbose #1295 > │ style result_type fill:#bfb,stroke:#333,stroke-width:2px`); │
00:02:05 verbose #1296 > │ renderTarget.innerHTML = svg; │
00:02:05 verbose #1297 > │ bindFunctions?.(renderTarget); │
00:02:05 verbose #1298 > │ } │
00:02:05 verbose #1299 > │ catch (error) { │
00:02:05 verbose #1300 > │ console.log(error); │
00:02:05 verbose #1301 > │ } │
00:02:05 verbose #1302 > │ </script> │
00:02:05 verbose #1303 > │ </div> │
00:02:05 verbose #1304 > │ │
00:02:05 verbose #1305 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1306 >
00:02:05 verbose #1307 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #1308 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #1309 > │ ## tests │
00:02:05 verbose #1310 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1311 >
00:02:05 verbose #1312 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #1313 > inl tests () =
00:02:05 verbose #1314 > rust.run_tests [[
00:02:05 verbose #1315 > "test_zeta_at_known_values_", fun _ =>
00:02:05 verbose #1316 > test_zeta_at_known_values_ false
00:02:05 verbose #1317 >
00:02:05 verbose #1318 > "test_zeta_at_2_minus2", fun _ =>
00:02:05 verbose #1319 > test_zeta_at_2_minus2 false
00:02:05 verbose #1320 >
00:02:05 verbose #1321 > "test_trivial_zero_at_negative_even___", fun _ =>
00:02:05 verbose #1322 > test_trivial_zero_at_negative_even___ false
00:02:05 verbose #1323 >
00:02:05 verbose #1324 > "test_non_trivial_zero___", fun _ =>
00:02:05 verbose #1325 > test_non_trivial_zero___ false
00:02:05 verbose #1326 >
00:02:05 verbose #1327 > "test_real_part_greater_than_one___", fun _ =>
00:02:05 verbose #1328 > test_real_part_greater_than_one___ false
00:02:05 verbose #1329 >
00:02:05 verbose #1330 > "test_zeta_at_1___", fun _ =>
00:02:05 verbose #1331 > test_zeta_at_1___ false
00:02:05 verbose #1332 >
00:02:05 verbose #1333 > "test_symmetry_across_real_axis___", fun _ =>
00:02:05 verbose #1334 > test_symmetry_across_real_axis___ false
00:02:05 verbose #1335 >
00:02:05 verbose #1336 > "test_behavior_near_origin___", fun _ =>
00:02:05 verbose #1337 > test_behavior_near_origin___ false
00:02:05 verbose #1338 >
00:02:05 verbose #1339 > "test_imaginary_axis", fun _ =>
00:02:05 verbose #1340 > test_imaginary_axis false
00:02:05 verbose #1341 >
00:02:05 verbose #1342 > "test_critical_strip", fun _ =>
00:02:05 verbose #1343 > test_critical_strip false
00:02:05 verbose #1344 >
00:02:05 verbose #1345 > "test_reflection_formula_for_specific_value", fun _ =>
00:02:05 verbose #1346 > test_reflection_formula_for_specific_value false
00:02:05 verbose #1347 >
00:02:05 verbose #1348 > "test_euler_product_formula", fun _ =>
00:02:05 verbose #1349 > test_euler_product_formula false
00:02:05 verbose #1350 > ]]
00:02:05 verbose #1351 > 00:02:04 debug #37 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d3a0c72c01c41f28295748b444a42f8aebdc0b34fa0d4968d147a4f318f27143/main.spi
00:02:05 verbose #1352 >
00:02:05 verbose #1353 > ╭─[ 238.21ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 verbose #1354 > │ () │
00:02:05 verbose #1355 > │ │
00:02:05 verbose #1356 > │ │
00:02:05 verbose #1357 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1358 >
00:02:05 verbose #1359 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #1360 > // // rust=
00:02:05 verbose #1361 >
00:02:05 verbose #1362 > inl main (_args : array_base string) =
00:02:05 verbose #1363 > inl value = 1i32
00:02:05 verbose #1364 > console.write_line ($"$\"value: {!value}\"" : string)
00:02:05 verbose #1365 > 0i32
00:02:05 verbose #1366 >
00:02:05 verbose #1367 > inl main () =
00:02:05 verbose #1368 > types ()
00:02:05 verbose #1369 > $"let tests () = !tests ()" : ()
00:02:05 verbose #1370 > $"let main args = !main args" : ()
00:02:05 verbose #1371 > 00:02:05 debug #38 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/544be47355eebcaa640b73564e0cbccfd2f9f244767e0b6c70c6e574a8f8da0e/main.spi
00:02:06 verbose #1372 >
00:02:06 verbose #1373 > ╭─[ 313.95ms - stdout ]────────────────────────────────────────────────────────╮
00:02:06 verbose #1374 > │ .fsx: │
00:02:06 verbose #1375 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:02:06 verbose #1376 > │ end │
00:02:06 verbose #1377 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:02:06 verbose #1378 > │ class end │
00:02:06 verbose #1379 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:02:06 verbose #1380 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:02:06 verbose #1381 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:02:06 verbose #1382 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:02:06 verbose #1383 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:02:06 verbose #1384 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:02:06 verbose #1385 > │ class end │
00:02:06 verbose #1386 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:02:06 verbose #1387 > │ end │
00:02:06 verbose #1388 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:02:06 verbose #1389 > │ class end │
00:02:06 verbose #1390 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:02:06 verbose #1391 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:02:06 verbose #1392 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:02:06 verbose #1393 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:02:06 verbose #1394 > │ class end │
00:02:06 verbose #1395 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:02:06 verbose #1396 > │ class end │
00:02:06 verbose #1397 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:02:06 verbose #1398 > │ class end │
00:02:06 verbose #1399 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:02:06 verbose #1400 > │ std_cell_RefCell<'T> = class end │
00:02:06 verbose #1401 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:02:06 verbose #1402 > │ std_pin_Pin<'T> = class end │
00:02:06 verbose #1403 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:02:06 verbose #1404 > │ = class end │
00:02:06 verbose #1405 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:02:06 verbose #1406 > │ std_rc_Weak<'T> = class end │
00:02:06 verbose #1407 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:02:06 verbose #1408 > │ std_sync_Arc<'T> = class end │
00:02:06 verbose #1409 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:02:06 verbose #1410 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:02:06 verbose #1411 > │ base64_DecodeError = class end │
00:02:06 verbose #1412 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:02:06 verbose #1413 > │ borsh_io_Error = class end │
00:02:06 verbose #1414 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:02:06 verbose #1415 > │ js_sys_JsString = class end │
00:02:06 verbose #1416 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:02:06 verbose #1417 > │ serde_json_Error = class end │
00:02:06 verbose #1418 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:02:06 verbose #1419 > │ serde_json_Value = class end │
00:02:06 verbose #1420 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:02:06 verbose #1421 > │ serde_wasm_bindgen_Error = class end │
00:02:06 verbose #1422 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:02:06 verbose #1423 > │ = class end │
00:02:06 verbose #1424 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:02:06 verbose #1425 > │ std_ffi_OsString = class end │
00:02:06 verbose #1426 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:02:06 verbose #1427 > │ std_str_Utf8Error = class end │
00:02:06 verbose #1428 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:02:06 verbose #1429 > │ std_string_String = class end │
00:02:06 verbose #1430 > │ [<Fable.Core.Erase; Fable.Core.Emit("num_complex::Complex<$0>")>] type │
00:02:06 verbose #1431 > │ num_complex_Complex<'T> = class end │
00:02:06 verbose #1432 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::types::PyModule")>] type │
00:02:06 verbose #1433 > │ pyo3_types_PyModule = class end │
00:02:06 verbose #1434 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Bound<$0>")>] type pyo3_Bound<'T> │
00:02:06 verbose #1435 > │ = class end │
00:02:06 verbose #1436 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Python")>] type pyo3_Python = │
00:02:06 verbose #1437 > │ class end │
00:02:06 verbose #1438 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyAny")>] type pyo3_PyAny = class │
00:02:06 verbose #1439 > │ end │
00:02:06 verbose #1440 > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyErr")>] type pyo3_PyErr = class │
00:02:06 verbose #1441 > │ end │
00:02:06 verbose #1442 > │ Fable.Core.RustInterop.emitRustExpr () "); │
00:02:06 verbose #1443 > │ use pyo3::prelude::PyAnyMethods; │
00:02:06 verbose #1444 > │ //" │
00:02:06 verbose #1445 > │ type Mut0 = {mutable l0 : int32} │
00:02:06 verbose #1446 > │ and Mut1 = {mutable l0 : int32; mutable l1 : string} │
00:02:06 verbose #1447 > │ and Mut2 = {mutable l0 : int32; mutable l1 : num_complex_Complex<float>} │
00:02:06 verbose #1448 > │ and [<Struct>] US0 = │
00:02:06 verbose #1449 > │ | US0_0 of f0_0 : num_complex_Complex<float> │
00:02:06 verbose #1450 > │ | US0_1 │
00:02:06 verbose #1451 > │ and UH0 = │
00:02:06 verbose #1452 > │ | UH0_0 │
00:02:06 verbose #1453 > │ | UH0_1 of float * UH0 │
00:02:06 verbose #1454 > │ and Mut3 = {mutable l0 : int32; mutable l1 : float} │
00:02:06 verbose #1455 > │ let rec method2 (v0 : int32, v1 : Mut0) : bool = │
00:02:06 verbose #1456 > │ let v2 : int32 = v1.l0 │
00:02:06 verbose #1457 > │ let v3 : bool = v2 < v0 │
00:02:06 verbose #1458 > │ v3 │
00:02:06 verbose #1459 > │ and method3 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:02:06 verbose #1460 > │ v0 │
00:02:06 verbose #1461 > │ and method6 (v0 : int32, v1 : Mut1) : bool = │
00:02:06 verbose #1462 > │ let v2 : int32 = v1.l0 │
00:02:06 verbose #1463 > │ let v3 : bool = v2 < v0 │
00:02:06 verbose #1464 > │ v3 │
00:02:06 verbose #1465 > │ and method5 (v0 : (string [])) : string = │
00:02:06 verbose #1466 > │ let v1 : int32 = v0.Length │
00:02:06 verbose #1467 > │ let v2 : string = "" │
00:02:06 verbose #1468 > │ let v3 : Mut1 = {l0 = 0; l1 = v2} : Mut1 │
00:02:06 verbose #1469 > │ while method6(v1, v3) do │
00:02:06 verbose #1470 > │ let v5 : int32 = v3.l0 │
00:02:06 verbose #1471 > │ let v6 : string = v3.l1 │
00:02:06 verbose #1472 > │ let v7 : string = v0.[int v5] │
00:02:06 verbose #1473 > │ let v8 : string = "\n" │
00:02:06 verbose #1474 > │ let v9 : string = v6 + v7 + v8 + "" │
00:02:06 verbose #1475 > │ let v10 : int32 = v5 + 1 │
00:02:06 verbose #1476 > │ v3.l0 <- v10 │
00:02:06 verbose #1477 > │ v3.l1 <- v9 │
00:02:06 verbose #1478 > │ () │
00:02:06 verbose #1479 > │ let v11 : string = v3.l1 │
00:02:06 verbose #1480 > │ v11 │
00:02:06 verbose #1481 > │ and method7 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:02:06 verbose #1482 > │ v0 │
00:02:06 verbose #1483 > │ and method8 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:02:06 verbose #1484 > │ v0 │
00:02:06 verbose #1485 > │ and method9 (v0 : pyo3_Python) : pyo3_Python = │
00:02:06 verbose #1486 > │ v0 │
00:02:06 verbose #1487 > │ and closure1 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:06 verbose #1488 > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:06 verbose #1489 > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:06 verbose #1490 > │ v2 │
00:02:06 verbose #1491 > │ and method10 () : (pyo3_PyErr -> std_string_String) = │
00:02:06 verbose #1492 > │ closure1() │
00:02:06 verbose #1493 > │ and method11 () : string = │
00:02:06 verbose #1494 > │ let v0 : string = "fn" │
00:02:06 verbose #1495 > │ v0 │
00:02:06 verbose #1496 > │ and method12 (v0 : pyo3_Bound<pyo3_types_PyModule>) : │
00:02:06 verbose #1497 > │ pyo3_Bound<pyo3_types_PyModule> = │
00:02:06 verbose #1498 > │ v0 │
00:02:06 verbose #1499 > │ and closure2 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:06 verbose #1500 > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:06 verbose #1501 > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:06 verbose #1502 > │ v2 │
00:02:06 verbose #1503 > │ and method13 () : (pyo3_PyErr -> std_string_String) = │
00:02:06 verbose #1504 > │ closure2() │
00:02:06 verbose #1505 > │ and method14 (v0 : (bool * (float * float))) : (bool * (float * float)) = │
00:02:06 verbose #1506 > │ v0 │
00:02:06 verbose #1507 > │ and method15 (v0 : pyo3_Bound<pyo3_PyAny>) : pyo3_Bound<pyo3_PyAny> = │
00:02:06 verbose #1508 > │ v0 │
00:02:06 verbose #1509 > │ and closure3 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:06 verbose #1510 > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:06 verbose #1511 > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:06 verbose #1512 > │ v2 │
00:02:06 verbose #1513 > │ and method16 () : (pyo3_PyErr -> std_string_String) = │
00:02:06 verbose #1514 > │ closure3() │
00:02:06 verbose #1515 > │ and method17 (v0 : pyo3_Bound<pyo3_PyAny>) : pyo3_Bound<pyo3_PyAny> = │
00:02:06 verbose #1516 > │ v0 │
00:02:06 verbose #1517 > │ and closure4 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:06 verbose #1518 > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:06 verbose #1519 > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:06 verbose #1520 > │ v2 │
00:02:06 verbose #1521 > │ and method18 () : (pyo3_PyErr -> std_string_String) = │
00:02:06 verbose #1522 > │ closure4() │
00:02:06 verbose #1523 > │ and method4 (v0 : pyo3_Python, v1 : string, v2 : num_complex_Complex<float>) │
00:02:06 verbose #1524 > │ : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #1525 > │ let v3 : string = $"import sys" │
00:02:06 verbose #1526 > │ let v4 : string = $"import traceback" │
00:02:06 verbose #1527 > │ let v5 : string = $"import re" │
00:02:06 verbose #1528 > │ let v6 : string = $"count = 0" │
00:02:06 verbose #1529 > │ let v7 : string = $"memory_address_pattern = re.compile(r' at 0x[ │
00:02:06 verbose #1530 > │ 0-9a-fA-F]+')" │
00:02:06 verbose #1531 > │ let v8 : string = $"def trace_calls(frame, event, arg):" │
00:02:06 verbose #1532 > │ let v9 : string = $" global count" │
00:02:06 verbose #1533 > │ let v10 : string = $" count += 1" │
00:02:06 verbose #1534 > │ let v11 : string = $" if count < 200:" │
00:02:06 verbose #1535 > │ let v12 : string = $" try:" │
00:02:06 verbose #1536 > │ let v13 : string = $" args = {{ k: v for k, v in │
00:02:06 verbose #1537 > │ frame.f_locals.items() if frame.f_code.co_name != 'make_mpc' and k not in [ │
00:02:06 verbose #1538 > │ 'ctx'] and not callable(v) }}" │
00:02:06 verbose #1539 > │ let v14 : string = $" args_str = ', '.join([ │
00:02:06 verbose #1540 > │ f\"{{k}}={{re.sub(memory_address_pattern, ' at 0x<?>', repr(v))}}\" for k, v │
00:02:06 verbose #1541 > │ in args.items() ])" │
00:02:06 verbose #1542 > │ let v15 : string = "zeta_" │
00:02:06 verbose #1543 > │ let v16 : string = $" print(f\"{{event}}({v15}) / │
00:02:06 verbose #1544 > │ f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / │
00:02:06 verbose #1545 > │ f_lineno: {{frame.f_lineno}} / f_code.co_filename: │
00:02:06 verbose #1546 > │ {{frame.f_code.co_filename.split('site-packages')[-1]}} / f_back.f_lineno: │
00:02:06 verbose #1547 > │ {{ '' if frame.f_back is None else frame.f_back.f_lineno }} / │
00:02:06 verbose #1548 > │ f_back.f_code.co_filename: {{ '' if frame.f_back is None else │
00:02:06 verbose #1549 > │ frame.f_back.f_code.co_filename.split('site-packages')[-1] }} / arg: │
00:02:06 verbose #1550 > │ {{re.sub(memory_address_pattern, ' at 0x<?>', repr(arg))}}\", flush=True)" │
00:02:06 verbose #1551 > │ let v17 : string = $" except ValueError as e:" │
00:02:06 verbose #1552 > │ let v18 : string = $" print(f'{v15} / e: {{e}}', flush=True)" │
00:02:06 verbose #1553 > │ let v19 : string = $" return trace_calls" │
00:02:06 verbose #1554 > │ let v20 : string = $"import mpmath" │
00:02:06 verbose #1555 > │ let v21 : string = $"def fn(log, s):" │
00:02:06 verbose #1556 > │ let v22 : string = $" global count" │
00:02:06 verbose #1557 > │ let v23 : string = $" if log:" │
00:02:06 verbose #1558 > │ let v24 : string = $" print(f'{v15} / s: {{s}} / count: │
00:02:06 verbose #1559 > │ {{count}}', flush=True)" │
00:02:06 verbose #1560 > │ let v25 : string = $" s = complex(*s)" │
00:02:06 verbose #1561 > │ let v26 : string = $" try:" │
00:02:06 verbose #1562 > │ let v27 : string = $" if log: sys.settrace(trace_calls)" │
00:02:06 verbose #1563 > │ let v28 : string = $" if log:" │
00:02:06 verbose #1564 > │ let v29 : string = $" sys.settrace(None)" │
00:02:06 verbose #1565 > │ let v30 : string = $" print(f'{v15} / result: {{s}} / count: │
00:02:06 verbose #1566 > │ {{count}}', flush=True)" │
00:02:06 verbose #1567 > │ let v31 : string = $" except ValueError as e:" │
00:02:06 verbose #1568 > │ let v32 : string = $" if s.real == 1:" │
00:02:06 verbose #1569 > │ let v33 : string = $" s = complex(float('inf'), 0)" │
00:02:06 verbose #1570 > │ let v34 : string = $" return (s.real, s.imag)" │
00:02:06 verbose #1571 > │ let v35 : (string []) = [|v3; v4; v5; v6; v7; v8; v9; v10; v11; v12; │
00:02:06 verbose #1572 > │ v13; v14; v16; v17; v18; v19; v20; v21; v22; v23; v24; v25; v26; v27; v1; │
00:02:06 verbose #1573 > │ v28; v29; v30; v31; v32; v33; v34|] │
00:02:06 verbose #1574 > │ let v36 : string = method5(v35) │
00:02:06 verbose #1575 > │ let v37 : num_complex_Complex<float> = method7(v2) │
00:02:06 verbose #1576 > │ let v38 : string = "v37.re" │
00:02:06 verbose #1577 > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:06 verbose #1578 > │ let v40 : num_complex_Complex<float> = method8(v2) │
00:02:06 verbose #1579 > │ let v41 : string = "v40.im" │
00:02:06 verbose #1580 > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:06 verbose #1581 > │ let v43 : (float * float) = v39, v42 │
00:02:06 verbose #1582 > │ let v44 : (bool * (float * float)) = false, v43 │
00:02:06 verbose #1583 > │ let v45 : pyo3_Python = method9(v0) │
00:02:06 verbose #1584 > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:06 verbose #1585 > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v46 │
00:02:06 verbose #1586 > │ let v48 : string = "pyo3::types::PyModule::from_code_bound(v45, v47, │
00:02:06 verbose #1587 > │ \"\", \"\")" │
00:02:06 verbose #1588 > │ let v49 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:06 verbose #1589 > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:06 verbose #1590 > │ let v50 : (pyo3_PyErr -> std_string_String) = method10() │
00:02:06 verbose #1591 > │ let v51 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1592 > │ let v52 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:02:06 verbose #1593 > │ Fable.Core.RustInterop.emitRustExpr struct (v49, v50) v51 │
00:02:06 verbose #1594 > │ let v53 : string = "$0.unwrap()" │
00:02:06 verbose #1595 > │ let v54 : pyo3_Bound<pyo3_types_PyModule> = │
00:02:06 verbose #1596 > │ Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:02:06 verbose #1597 > │ let v55 : string = method11() │
00:02:06 verbose #1598 > │ let v56 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:06 verbose #1599 > │ let v57 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v55 v56 │
00:02:06 verbose #1600 > │ let v58 : pyo3_Bound<pyo3_types_PyModule> = method12(v54) │
00:02:06 verbose #1601 > │ let v59 : string = "v58.getattr(v57)" │
00:02:06 verbose #1602 > │ let v60 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:06 verbose #1603 > │ Fable.Core.RustInterop.emitRustExpr () v59 │
00:02:06 verbose #1604 > │ let v61 : (pyo3_PyErr -> std_string_String) = method13() │
00:02:06 verbose #1605 > │ let v62 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1606 > │ let v63 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:06 verbose #1607 > │ Fable.Core.RustInterop.emitRustExpr struct (v60, v61) v62 │
00:02:06 verbose #1608 > │ let v64 : string = "$0.unwrap()" │
00:02:06 verbose #1609 > │ let v65 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1610 > │ v63 v64 │
00:02:06 verbose #1611 > │ let v66 : (bool * (float * float)) = method14(v44) │
00:02:06 verbose #1612 > │ let v67 : pyo3_Bound<pyo3_PyAny> = method15(v65) │
00:02:06 verbose #1613 > │ let v68 : string = "pyo3::prelude::PyAnyMethods::call(&v67, ((*v66).0, │
00:02:06 verbose #1614 > │ *(*v66).1), None)" │
00:02:06 verbose #1615 > │ let v69 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:06 verbose #1616 > │ Fable.Core.RustInterop.emitRustExpr () v68 │
00:02:06 verbose #1617 > │ let v70 : (pyo3_PyErr -> std_string_String) = method16() │
00:02:06 verbose #1618 > │ let v71 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1619 > │ let v72 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:06 verbose #1620 > │ Fable.Core.RustInterop.emitRustExpr struct (v69, v70) v71 │
00:02:06 verbose #1621 > │ let v73 : string = "$0?" │
00:02:06 verbose #1622 > │ let v74 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1623 > │ v72 v73 │
00:02:06 verbose #1624 > │ let v75 : pyo3_Bound<pyo3_PyAny> = method17(v74) │
00:02:06 verbose #1625 > │ let v76 : string = "v75.extract()" │
00:02:06 verbose #1626 > │ let v77 : Result<struct (float * float), pyo3_PyErr> = │
00:02:06 verbose #1627 > │ Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:06 verbose #1628 > │ let v78 : (pyo3_PyErr -> std_string_String) = method18() │
00:02:06 verbose #1629 > │ let v79 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1630 > │ let v80 : Result<struct (float * float), std_string_String> = │
00:02:06 verbose #1631 > │ Fable.Core.RustInterop.emitRustExpr struct (v77, v78) v79 │
00:02:06 verbose #1632 > │ let v81 : string = "$0?" │
00:02:06 verbose #1633 > │ let struct (v82 : float, v83 : float) = │
00:02:06 verbose #1634 > │ Fable.Core.RustInterop.emitRustExpr v80 v81 │
00:02:06 verbose #1635 > │ let v84 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1636 > │ let v85 : num_complex_Complex<float> = │
00:02:06 verbose #1637 > │ Fable.Core.RustInterop.emitRustExpr struct (v82, v83) v84 │
00:02:06 verbose #1638 > │ let v86 : Result<num_complex_Complex<float>, std_string_String> = Ok v85 │
00:02:06 verbose #1639 > │ v86 │
00:02:06 verbose #1640 > │ and method20 (v0 : Mut0) : bool = │
00:02:06 verbose #1641 > │ let v1 : int32 = v0.l0 │
00:02:06 verbose #1642 > │ let v2 : bool = v1 < 10000 │
00:02:06 verbose #1643 > │ v2 │
00:02:06 verbose #1644 > │ and method21 (v0 : int32, v1 : Mut2) : bool = │
00:02:06 verbose #1645 > │ let v2 : int32 = v1.l0 │
00:02:06 verbose #1646 > │ let v3 : bool = v2 < v0 │
00:02:06 verbose #1647 > │ v3 │
00:02:06 verbose #1648 > │ and method22 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> │
00:02:06 verbose #1649 > │ = │
00:02:06 verbose #1650 > │ v0 │
00:02:06 verbose #1651 > │ and method23 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> │
00:02:06 verbose #1652 > │ = │
00:02:06 verbose #1653 > │ v0 │
00:02:06 verbose #1654 > │ and method24 (v0 : pyo3_Python, v1 : string, v2 : │
00:02:06 verbose #1655 > │ num_complex_Complex<float>) : Result<num_complex_Complex<float>, │
00:02:06 verbose #1656 > │ std_string_String> = │
00:02:06 verbose #1657 > │ let v3 : string = $"import sys" │
00:02:06 verbose #1658 > │ let v4 : string = $"import traceback" │
00:02:06 verbose #1659 > │ let v5 : string = $"import re" │
00:02:06 verbose #1660 > │ let v6 : string = $"count = 0" │
00:02:06 verbose #1661 > │ let v7 : string = $"memory_address_pattern = re.compile(r' at 0x[ │
00:02:06 verbose #1662 > │ 0-9a-fA-F]+')" │
00:02:06 verbose #1663 > │ let v8 : string = $"def trace_calls(frame, event, arg):" │
00:02:06 verbose #1664 > │ let v9 : string = $" global count" │
00:02:06 verbose #1665 > │ let v10 : string = $" count += 1" │
00:02:06 verbose #1666 > │ let v11 : string = $" if count < 200:" │
00:02:06 verbose #1667 > │ let v12 : string = $" try:" │
00:02:06 verbose #1668 > │ let v13 : string = $" args = {{ k: v for k, v in │
00:02:06 verbose #1669 > │ frame.f_locals.items() if frame.f_code.co_name != 'make_mpc' and k not in [ │
00:02:06 verbose #1670 > │ 'ctx'] and not callable(v) }}" │
00:02:06 verbose #1671 > │ let v14 : string = $" args_str = ', '.join([ │
00:02:06 verbose #1672 > │ f\"{{k}}={{re.sub(memory_address_pattern, ' at 0x<?>', repr(v))}}\" for k, v │
00:02:06 verbose #1673 > │ in args.items() ])" │
00:02:06 verbose #1674 > │ let v15 : string = "gamma_" │
00:02:06 verbose #1675 > │ let v16 : string = $" print(f\"{{event}}({v15}) / │
00:02:06 verbose #1676 > │ f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / │
00:02:06 verbose #1677 > │ f_lineno: {{frame.f_lineno}} / f_code.co_filename: │
00:02:06 verbose #1678 > │ {{frame.f_code.co_filename.split('site-packages')[-1]}} / f_back.f_lineno: │
00:02:06 verbose #1679 > │ {{ '' if frame.f_back is None else frame.f_back.f_lineno }} / │
00:02:06 verbose #1680 > │ f_back.f_code.co_filename: {{ '' if frame.f_back is None else │
00:02:06 verbose #1681 > │ frame.f_back.f_code.co_filename.split('site-packages')[-1] }} / arg: │
00:02:06 verbose #1682 > │ {{re.sub(memory_address_pattern, ' at 0x<?>', repr(arg))}}\", flush=True)" │
00:02:06 verbose #1683 > │ let v17 : string = $" except ValueError as e:" │
00:02:06 verbose #1684 > │ let v18 : string = $" print(f'{v15} / e: {{e}}', flush=True)" │
00:02:06 verbose #1685 > │ let v19 : string = $" return trace_calls" │
00:02:06 verbose #1686 > │ let v20 : string = $"import mpmath" │
00:02:06 verbose #1687 > │ let v21 : string = $"def fn(log, s):" │
00:02:06 verbose #1688 > │ let v22 : string = $" global count" │
00:02:06 verbose #1689 > │ let v23 : string = $" if log:" │
00:02:06 verbose #1690 > │ let v24 : string = $" print(f'{v15} / s: {{s}} / count: │
00:02:06 verbose #1691 > │ {{count}}', flush=True)" │
00:02:06 verbose #1692 > │ let v25 : string = $" s = complex(*s)" │
00:02:06 verbose #1693 > │ let v26 : string = $" try:" │
00:02:06 verbose #1694 > │ let v27 : string = $" if log: sys.settrace(trace_calls)" │
00:02:06 verbose #1695 > │ let v28 : string = $" if log:" │
00:02:06 verbose #1696 > │ let v29 : string = $" sys.settrace(None)" │
00:02:06 verbose #1697 > │ let v30 : string = $" print(f'{v15} / result: {{s}} / count: │
00:02:06 verbose #1698 > │ {{count}}', flush=True)" │
00:02:06 verbose #1699 > │ let v31 : string = $" except ValueError as e:" │
00:02:06 verbose #1700 > │ let v32 : string = $" if s.real == 1:" │
00:02:06 verbose #1701 > │ let v33 : string = $" s = complex(float('inf'), 0)" │
00:02:06 verbose #1702 > │ let v34 : string = $" return (s.real, s.imag)" │
00:02:06 verbose #1703 > │ let v35 : (string []) = [|v3; v4; v5; v6; v7; v8; v9; v10; v11; v12; │
00:02:06 verbose #1704 > │ v13; v14; v16; v17; v18; v19; v20; v21; v22; v23; v24; v25; v26; v27; v1; │
00:02:06 verbose #1705 > │ v28; v29; v30; v31; v32; v33; v34|] │
00:02:06 verbose #1706 > │ let v36 : string = method5(v35) │
00:02:06 verbose #1707 > │ let v37 : num_complex_Complex<float> = method7(v2) │
00:02:06 verbose #1708 > │ let v38 : string = "v37.re" │
00:02:06 verbose #1709 > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:06 verbose #1710 > │ let v40 : num_complex_Complex<float> = method8(v2) │
00:02:06 verbose #1711 > │ let v41 : string = "v40.im" │
00:02:06 verbose #1712 > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:06 verbose #1713 > │ let v43 : (float * float) = v39, v42 │
00:02:06 verbose #1714 > │ let v44 : (bool * (float * float)) = false, v43 │
00:02:06 verbose #1715 > │ let v45 : pyo3_Python = method9(v0) │
00:02:06 verbose #1716 > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:06 verbose #1717 > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v46 │
00:02:06 verbose #1718 > │ let v48 : string = "pyo3::types::PyModule::from_code_bound(v45, v47, │
00:02:06 verbose #1719 > │ \"\", \"\")" │
00:02:06 verbose #1720 > │ let v49 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:06 verbose #1721 > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:06 verbose #1722 > │ let v50 : (pyo3_PyErr -> std_string_String) = method10() │
00:02:06 verbose #1723 > │ let v51 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1724 > │ let v52 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:02:06 verbose #1725 > │ Fable.Core.RustInterop.emitRustExpr struct (v49, v50) v51 │
00:02:06 verbose #1726 > │ let v53 : string = "$0.unwrap()" │
00:02:06 verbose #1727 > │ let v54 : pyo3_Bound<pyo3_types_PyModule> = │
00:02:06 verbose #1728 > │ Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:02:06 verbose #1729 > │ let v55 : string = method11() │
00:02:06 verbose #1730 > │ let v56 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:06 verbose #1731 > │ let v57 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v55 v56 │
00:02:06 verbose #1732 > │ let v58 : pyo3_Bound<pyo3_types_PyModule> = method12(v54) │
00:02:06 verbose #1733 > │ let v59 : string = "v58.getattr(v57)" │
00:02:06 verbose #1734 > │ let v60 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:06 verbose #1735 > │ Fable.Core.RustInterop.emitRustExpr () v59 │
00:02:06 verbose #1736 > │ let v61 : (pyo3_PyErr -> std_string_String) = method13() │
00:02:06 verbose #1737 > │ let v62 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1738 > │ let v63 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:06 verbose #1739 > │ Fable.Core.RustInterop.emitRustExpr struct (v60, v61) v62 │
00:02:06 verbose #1740 > │ let v64 : string = "$0.unwrap()" │
00:02:06 verbose #1741 > │ let v65 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1742 > │ v63 v64 │
00:02:06 verbose #1743 > │ let v66 : (bool * (float * float)) = method14(v44) │
00:02:06 verbose #1744 > │ let v67 : pyo3_Bound<pyo3_PyAny> = method15(v65) │
00:02:06 verbose #1745 > │ let v68 : string = "pyo3::prelude::PyAnyMethods::call(&v67, ((*v66).0, │
00:02:06 verbose #1746 > │ *(*v66).1), None)" │
00:02:06 verbose #1747 > │ let v69 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:06 verbose #1748 > │ Fable.Core.RustInterop.emitRustExpr () v68 │
00:02:06 verbose #1749 > │ let v70 : (pyo3_PyErr -> std_string_String) = method16() │
00:02:06 verbose #1750 > │ let v71 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1751 > │ let v72 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:06 verbose #1752 > │ Fable.Core.RustInterop.emitRustExpr struct (v69, v70) v71 │
00:02:06 verbose #1753 > │ let v73 : string = "$0?" │
00:02:06 verbose #1754 > │ let v74 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1755 > │ v72 v73 │
00:02:06 verbose #1756 > │ let v75 : pyo3_Bound<pyo3_PyAny> = method17(v74) │
00:02:06 verbose #1757 > │ let v76 : string = "v75.extract()" │
00:02:06 verbose #1758 > │ let v77 : Result<struct (float * float), pyo3_PyErr> = │
00:02:06 verbose #1759 > │ Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:06 verbose #1760 > │ let v78 : (pyo3_PyErr -> std_string_String) = method18() │
00:02:06 verbose #1761 > │ let v79 : string = "$0.map_err(|x| $1(x))" │
00:02:06 verbose #1762 > │ let v80 : Result<struct (float * float), std_string_String> = │
00:02:06 verbose #1763 > │ Fable.Core.RustInterop.emitRustExpr struct (v77, v78) v79 │
00:02:06 verbose #1764 > │ let v81 : string = "$0?" │
00:02:06 verbose #1765 > │ let struct (v82 : float, v83 : float) = │
00:02:06 verbose #1766 > │ Fable.Core.RustInterop.emitRustExpr v80 v81 │
00:02:06 verbose #1767 > │ let v84 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1768 > │ let v85 : num_complex_Complex<float> = │
00:02:06 verbose #1769 > │ Fable.Core.RustInterop.emitRustExpr struct (v82, v83) v84 │
00:02:06 verbose #1770 > │ let v86 : Result<num_complex_Complex<float>, std_string_String> = Ok v85 │
00:02:06 verbose #1771 > │ v86 │
00:02:06 verbose #1772 > │ and closure5 () (v0 : num_complex_Complex<float>) : US0 = │
00:02:06 verbose #1773 > │ US0_0(v0) │
00:02:06 verbose #1774 > │ and method25 () : (num_complex_Complex<float> -> US0) = │
00:02:06 verbose #1775 > │ closure5() │
00:02:06 verbose #1776 > │ and method19 (v0 : pyo3_Python, v1 : num_complex_Complex<float>) : │
00:02:06 verbose #1777 > │ num_complex_Complex<float> = │
00:02:06 verbose #1778 > │ let v2 : string = "println!(\"zeta / count: {:?} / s: {:?}\", 0, $0)" │
00:02:06 verbose #1779 > │ Fable.Core.RustInterop.emitRustExpr v1 v2 │
00:02:06 verbose #1780 > │ let v3 : num_complex_Complex<float> = method7(v1) │
00:02:06 verbose #1781 > │ let v4 : string = "v3.re" │
00:02:06 verbose #1782 > │ let v5 : float = Fable.Core.RustInterop.emitRustExpr () v4 │
00:02:06 verbose #1783 > │ let v6 : bool = v5 > 1.0 │
00:02:06 verbose #1784 > │ if v6 then │
00:02:06 verbose #1785 > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1786 > │ let v8 : num_complex_Complex<float> = │
00:02:06 verbose #1787 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v7 │
00:02:06 verbose #1788 > │ let v9 : (int32 []) = Array.zeroCreate<int32> (10000) │
00:02:06 verbose #1789 > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #1790 > │ while method20(v10) do │
00:02:06 verbose #1791 > │ let v12 : int32 = v10.l0 │
00:02:06 verbose #1792 > │ v9.[int v12] <- v12 │
00:02:06 verbose #1793 > │ let v13 : int32 = v12 + 1 │
00:02:06 verbose #1794 > │ v10.l0 <- v13 │
00:02:06 verbose #1795 > │ () │
00:02:06 verbose #1796 > │ let v14 : int32 = v9.Length │
00:02:06 verbose #1797 > │ let v15 : Mut2 = {l0 = 0; l1 = v8} : Mut2 │
00:02:06 verbose #1798 > │ while method21(v14, v15) do │
00:02:06 verbose #1799 > │ let v17 : int32 = v15.l0 │
00:02:06 verbose #1800 > │ let v18 : num_complex_Complex<float> = v15.l1 │
00:02:06 verbose #1801 > │ let v19 : int32 = v9.[int v17] │
00:02:06 verbose #1802 > │ let v20 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1803 > │ let v21 : num_complex_Complex<float> = │
00:02:06 verbose #1804 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v20 │
00:02:06 verbose #1805 > │ let v22 : float = float v19 │
00:02:06 verbose #1806 > │ let v23 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1807 > │ let v24 : num_complex_Complex<float> = │
00:02:06 verbose #1808 > │ Fable.Core.RustInterop.emitRustExpr struct (v22, 0.0) v23 │
00:02:06 verbose #1809 > │ let v25 : num_complex_Complex<float> = method22(v24) │
00:02:06 verbose #1810 > │ let v26 : num_complex_Complex<float> = method23(v1) │
00:02:06 verbose #1811 > │ let v27 : string = "num_complex::Complex::powc(v25, v26)" │
00:02:06 verbose #1812 > │ let v28 : num_complex_Complex<float> = │
00:02:06 verbose #1813 > │ Fable.Core.RustInterop.emitRustExpr () v27 │
00:02:06 verbose #1814 > │ let v29 : string = "v21 / v28" │
00:02:06 verbose #1815 > │ let v30 : num_complex_Complex<float> = │
00:02:06 verbose #1816 > │ Fable.Core.RustInterop.emitRustExpr () v29 │
00:02:06 verbose #1817 > │ let v31 : string = "v18 + v30" │
00:02:06 verbose #1818 > │ let v32 : num_complex_Complex<float> = │
00:02:06 verbose #1819 > │ Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:06 verbose #1820 > │ let v33 : int32 = v17 + 1 │
00:02:06 verbose #1821 > │ v15.l0 <- v33 │
00:02:06 verbose #1822 > │ v15.l1 <- v32 │
00:02:06 verbose #1823 > │ () │
00:02:06 verbose #1824 > │ let v34 : num_complex_Complex<float> = v15.l1 │
00:02:06 verbose #1825 > │ v34 │
00:02:06 verbose #1826 > │ else │
00:02:06 verbose #1827 > │ let v35 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1828 > │ let v36 : num_complex_Complex<float> = │
00:02:06 verbose #1829 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v35 │
00:02:06 verbose #1830 > │ let v37 : string = "$0 - $1" │
00:02:06 verbose #1831 > │ let v38 : num_complex_Complex<float> = │
00:02:06 verbose #1832 > │ Fable.Core.RustInterop.emitRustExpr struct (v36, v1) v37 │
00:02:06 verbose #1833 > │ let v39 : string = $" s = mpmath.gamma(s)" │
00:02:06 verbose #1834 > │ let v40 : num_complex_Complex<float> = method3(v38) │
00:02:06 verbose #1835 > │ let v41 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #1836 > │ method24(v0, v39, v40) │
00:02:06 verbose #1837 > │ let v42 : string = "v41.ok()" │
00:02:06 verbose #1838 > │ let v43 : num_complex_Complex<float> option = │
00:02:06 verbose #1839 > │ Fable.Core.RustInterop.emitRustExpr () v42 │
00:02:06 verbose #1840 > │ let v44 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #1841 > │ let v45 : US0 = US0_1 │
00:02:06 verbose #1842 > │ let v46 : US0 = v43 |> Option.map v44 |> Option.defaultValue v45 │
00:02:06 verbose #1843 > │ let v47 : string = "f64::NAN" │
00:02:06 verbose #1844 > │ let v48 : float = Fable.Core.RustInterop.emitRustExpr () v47 │
00:02:06 verbose #1845 > │ let v49 : string = "f64::NAN" │
00:02:06 verbose #1846 > │ let v50 : float = Fable.Core.RustInterop.emitRustExpr () v49 │
00:02:06 verbose #1847 > │ let v51 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1848 > │ let v52 : num_complex_Complex<float> = │
00:02:06 verbose #1849 > │ Fable.Core.RustInterop.emitRustExpr struct (v48, v50) v51 │
00:02:06 verbose #1850 > │ let v55 : num_complex_Complex<float> = │
00:02:06 verbose #1851 > │ match v46 with │
00:02:06 verbose #1852 > │ | US0_1 -> (* None *) │
00:02:06 verbose #1853 > │ v52 │
00:02:06 verbose #1854 > │ | US0_0(v53) -> (* Some *) │
00:02:06 verbose #1855 > │ v53 │
00:02:06 verbose #1856 > │ let v56 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1857 > │ let v57 : num_complex_Complex<float> = │
00:02:06 verbose #1858 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v56 │
00:02:06 verbose #1859 > │ let v58 : string = "$0 * $1" │
00:02:06 verbose #1860 > │ let v59 : num_complex_Complex<float> = │
00:02:06 verbose #1861 > │ Fable.Core.RustInterop.emitRustExpr struct (v57, v1) v58 │
00:02:06 verbose #1862 > │ let v60 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1863 > │ let v61 : num_complex_Complex<float> = │
00:02:06 verbose #1864 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v60 │
00:02:06 verbose #1865 > │ let v62 : string = "v59 / v61" │
00:02:06 verbose #1866 > │ let v63 : num_complex_Complex<float> = │
00:02:06 verbose #1867 > │ Fable.Core.RustInterop.emitRustExpr () v62 │
00:02:06 verbose #1868 > │ let v64 : string = "v63.sin()" │
00:02:06 verbose #1869 > │ let v65 : num_complex_Complex<float> = │
00:02:06 verbose #1870 > │ Fable.Core.RustInterop.emitRustExpr () v64 │
00:02:06 verbose #1871 > │ let v66 : num_complex_Complex<float> = method7(v1) │
00:02:06 verbose #1872 > │ let v67 : string = "v66.re" │
00:02:06 verbose #1873 > │ let v68 : float = Fable.Core.RustInterop.emitRustExpr () v67 │
00:02:06 verbose #1874 > │ let v69 : float = 1.0 - v68 │
00:02:06 verbose #1875 > │ let v70 : num_complex_Complex<float> = method8(v1) │
00:02:06 verbose #1876 > │ let v71 : string = "v70.im" │
00:02:06 verbose #1877 > │ let v72 : float = Fable.Core.RustInterop.emitRustExpr () v71 │
00:02:06 verbose #1878 > │ let v73 : float = -v72 │
00:02:06 verbose #1879 > │ let v74 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1880 > │ let v75 : num_complex_Complex<float> = │
00:02:06 verbose #1881 > │ Fable.Core.RustInterop.emitRustExpr struct (v69, v73) v74 │
00:02:06 verbose #1882 > │ let v76 : num_complex_Complex<float> = method7(v75) │
00:02:06 verbose #1883 > │ let v77 : string = "v76.re" │
00:02:06 verbose #1884 > │ let v78 : float = Fable.Core.RustInterop.emitRustExpr () v77 │
00:02:06 verbose #1885 > │ let v79 : bool = v78 <= 1.0 │
00:02:06 verbose #1886 > │ let v474 : num_complex_Complex<float> = │
00:02:06 verbose #1887 > │ if v79 then │
00:02:06 verbose #1888 > │ let v80 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1889 > │ let v81 : num_complex_Complex<float> = │
00:02:06 verbose #1890 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v80 │
00:02:06 verbose #1891 > │ v81 │
00:02:06 verbose #1892 > │ else │
00:02:06 verbose #1893 > │ let v82 : string = "println!(\"zeta / count: {:?} / s: │
00:02:06 verbose #1894 > │ {:?}\", 1, $0)" │
00:02:06 verbose #1895 > │ Fable.Core.RustInterop.emitRustExpr v75 v82 │
00:02:06 verbose #1896 > │ let v83 : num_complex_Complex<float> = method7(v75) │
00:02:06 verbose #1897 > │ let v84 : string = "v83.re" │
00:02:06 verbose #1898 > │ let v85 : float = Fable.Core.RustInterop.emitRustExpr () v84 │
00:02:06 verbose #1899 > │ let v86 : bool = v85 > 1.0 │
00:02:06 verbose #1900 > │ if v86 then │
00:02:06 verbose #1901 > │ let v87 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1902 > │ let v88 : num_complex_Complex<float> = │
00:02:06 verbose #1903 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v87 │
00:02:06 verbose #1904 > │ let v89 : (int32 []) = Array.zeroCreate<int32> (10000) │
00:02:06 verbose #1905 > │ let v90 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #1906 > │ while method20(v90) do │
00:02:06 verbose #1907 > │ let v92 : int32 = v90.l0 │
00:02:06 verbose #1908 > │ v89.[int v92] <- v92 │
00:02:06 verbose #1909 > │ let v93 : int32 = v92 + 1 │
00:02:06 verbose #1910 > │ v90.l0 <- v93 │
00:02:06 verbose #1911 > │ () │
00:02:06 verbose #1912 > │ let v94 : int32 = v89.Length │
00:02:06 verbose #1913 > │ let v95 : Mut2 = {l0 = 0; l1 = v88} : Mut2 │
00:02:06 verbose #1914 > │ while method21(v94, v95) do │
00:02:06 verbose #1915 > │ let v97 : int32 = v95.l0 │
00:02:06 verbose #1916 > │ let v98 : num_complex_Complex<float> = v95.l1 │
00:02:06 verbose #1917 > │ let v99 : int32 = v89.[int v97] │
00:02:06 verbose #1918 > │ let v100 : string = "num_complex::Complex::new($0, │
00:02:06 verbose #1919 > │ $1)" │
00:02:06 verbose #1920 > │ let v101 : num_complex_Complex<float> = │
00:02:06 verbose #1921 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v100 │
00:02:06 verbose #1922 > │ let v102 : float = float v99 │
00:02:06 verbose #1923 > │ let v103 : string = "num_complex::Complex::new($0, │
00:02:06 verbose #1924 > │ $1)" │
00:02:06 verbose #1925 > │ let v104 : num_complex_Complex<float> = │
00:02:06 verbose #1926 > │ Fable.Core.RustInterop.emitRustExpr struct (v102, 0.0) v103 │
00:02:06 verbose #1927 > │ let v105 : num_complex_Complex<float> = │
00:02:06 verbose #1928 > │ method22(v104) │
00:02:06 verbose #1929 > │ let v106 : num_complex_Complex<float> = │
00:02:06 verbose #1930 > │ method23(v75) │
00:02:06 verbose #1931 > │ let v107 : string = │
00:02:06 verbose #1932 > │ "num_complex::Complex::powc(v105, v106)" │
00:02:06 verbose #1933 > │ let v108 : num_complex_Complex<float> = │
00:02:06 verbose #1934 > │ Fable.Core.RustInterop.emitRustExpr () v107 │
00:02:06 verbose #1935 > │ let v109 : string = "v101 / v108" │
00:02:06 verbose #1936 > │ let v110 : num_complex_Complex<float> = │
00:02:06 verbose #1937 > │ Fable.Core.RustInterop.emitRustExpr () v109 │
00:02:06 verbose #1938 > │ let v111 : string = "v98 + v110" │
00:02:06 verbose #1939 > │ let v112 : num_complex_Complex<float> = │
00:02:06 verbose #1940 > │ Fable.Core.RustInterop.emitRustExpr () v111 │
00:02:06 verbose #1941 > │ let v113 : int32 = v97 + 1 │
00:02:06 verbose #1942 > │ v95.l0 <- v113 │
00:02:06 verbose #1943 > │ v95.l1 <- v112 │
00:02:06 verbose #1944 > │ () │
00:02:06 verbose #1945 > │ let v114 : num_complex_Complex<float> = v95.l1 │
00:02:06 verbose #1946 > │ v114 │
00:02:06 verbose #1947 > │ else │
00:02:06 verbose #1948 > │ let v115 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1949 > │ let v116 : num_complex_Complex<float> = │
00:02:06 verbose #1950 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v115 │
00:02:06 verbose #1951 > │ let v117 : string = "$0 - $1" │
00:02:06 verbose #1952 > │ let v118 : num_complex_Complex<float> = │
00:02:06 verbose #1953 > │ Fable.Core.RustInterop.emitRustExpr struct (v116, v75) v117 │
00:02:06 verbose #1954 > │ let v119 : string = $" s = mpmath.gamma(s)" │
00:02:06 verbose #1955 > │ let v120 : num_complex_Complex<float> = method3(v118) │
00:02:06 verbose #1956 > │ let v121 : Result<num_complex_Complex<float>, │
00:02:06 verbose #1957 > │ std_string_String> = method24(v0, v119, v120) │
00:02:06 verbose #1958 > │ let v122 : string = "v121.ok()" │
00:02:06 verbose #1959 > │ let v123 : num_complex_Complex<float> option = │
00:02:06 verbose #1960 > │ Fable.Core.RustInterop.emitRustExpr () v122 │
00:02:06 verbose #1961 > │ let v124 : (num_complex_Complex<float> -> US0) = │
00:02:06 verbose #1962 > │ method25() │
00:02:06 verbose #1963 > │ let v125 : US0 = US0_1 │
00:02:06 verbose #1964 > │ let v126 : US0 = v123 |> Option.map v124 |> │
00:02:06 verbose #1965 > │ Option.defaultValue v125 │
00:02:06 verbose #1966 > │ let v127 : string = "f64::NAN" │
00:02:06 verbose #1967 > │ let v128 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1968 > │ () v127 │
00:02:06 verbose #1969 > │ let v129 : string = "f64::NAN" │
00:02:06 verbose #1970 > │ let v130 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1971 > │ () v129 │
00:02:06 verbose #1972 > │ let v131 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1973 > │ let v132 : num_complex_Complex<float> = │
00:02:06 verbose #1974 > │ Fable.Core.RustInterop.emitRustExpr struct (v128, v130) v131 │
00:02:06 verbose #1975 > │ let v135 : num_complex_Complex<float> = │
00:02:06 verbose #1976 > │ match v126 with │
00:02:06 verbose #1977 > │ | US0_1 -> (* None *) │
00:02:06 verbose #1978 > │ v132 │
00:02:06 verbose #1979 > │ | US0_0(v133) -> (* Some *) │
00:02:06 verbose #1980 > │ v133 │
00:02:06 verbose #1981 > │ let v136 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1982 > │ let v137 : num_complex_Complex<float> = │
00:02:06 verbose #1983 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v136 │
00:02:06 verbose #1984 > │ let v138 : string = "$0 * $1" │
00:02:06 verbose #1985 > │ let v139 : num_complex_Complex<float> = │
00:02:06 verbose #1986 > │ Fable.Core.RustInterop.emitRustExpr struct (v137, v75) v138 │
00:02:06 verbose #1987 > │ let v140 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #1988 > │ let v141 : num_complex_Complex<float> = │
00:02:06 verbose #1989 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v140 │
00:02:06 verbose #1990 > │ let v142 : string = "v139 / v141" │
00:02:06 verbose #1991 > │ let v143 : num_complex_Complex<float> = │
00:02:06 verbose #1992 > │ Fable.Core.RustInterop.emitRustExpr () v142 │
00:02:06 verbose #1993 > │ let v144 : string = "v143.sin()" │
00:02:06 verbose #1994 > │ let v145 : num_complex_Complex<float> = │
00:02:06 verbose #1995 > │ Fable.Core.RustInterop.emitRustExpr () v144 │
00:02:06 verbose #1996 > │ let v146 : num_complex_Complex<float> = method7(v75) │
00:02:06 verbose #1997 > │ let v147 : string = "v146.re" │
00:02:06 verbose #1998 > │ let v148 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #1999 > │ () v147 │
00:02:06 verbose #2000 > │ let v149 : float = 1.0 - v148 │
00:02:06 verbose #2001 > │ let v150 : num_complex_Complex<float> = method8(v75) │
00:02:06 verbose #2002 > │ let v151 : string = "v150.im" │
00:02:06 verbose #2003 > │ let v152 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #2004 > │ () v151 │
00:02:06 verbose #2005 > │ let v153 : float = -v152 │
00:02:06 verbose #2006 > │ let v154 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2007 > │ let v155 : num_complex_Complex<float> = │
00:02:06 verbose #2008 > │ Fable.Core.RustInterop.emitRustExpr struct (v149, v153) v154 │
00:02:06 verbose #2009 > │ let v156 : num_complex_Complex<float> = method7(v155) │
00:02:06 verbose #2010 > │ let v157 : string = "v156.re" │
00:02:06 verbose #2011 > │ let v158 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #2012 > │ () v157 │
00:02:06 verbose #2013 > │ let v159 : bool = v158 <= 1.0 │
00:02:06 verbose #2014 > │ let v456 : num_complex_Complex<float> = │
00:02:06 verbose #2015 > │ if v159 then │
00:02:06 verbose #2016 > │ let v160 : string = │
00:02:06 verbose #2017 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2018 > │ let v161 : num_complex_Complex<float> = │
00:02:06 verbose #2019 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v160 │
00:02:06 verbose #2020 > │ v161 │
00:02:06 verbose #2021 > │ else │
00:02:06 verbose #2022 > │ let v162 : string = "println!(\"zeta / count: │
00:02:06 verbose #2023 > │ {:?} / s: {:?}\", 2, $0)" │
00:02:06 verbose #2024 > │ Fable.Core.RustInterop.emitRustExpr v155 v162 │
00:02:06 verbose #2025 > │ let v163 : num_complex_Complex<float> = │
00:02:06 verbose #2026 > │ method7(v155) │
00:02:06 verbose #2027 > │ let v164 : string = "v163.re" │
00:02:06 verbose #2028 > │ let v165 : float = │
00:02:06 verbose #2029 > │ Fable.Core.RustInterop.emitRustExpr () v164 │
00:02:06 verbose #2030 > │ let v166 : bool = v165 > 1.0 │
00:02:06 verbose #2031 > │ if v166 then │
00:02:06 verbose #2032 > │ let v167 : string = │
00:02:06 verbose #2033 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2034 > │ let v168 : num_complex_Complex<float> = │
00:02:06 verbose #2035 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v167 │
00:02:06 verbose #2036 > │ let v169 : (int32 []) = │
00:02:06 verbose #2037 > │ Array.zeroCreate<int32> (10000) │
00:02:06 verbose #2038 > │ let v170 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #2039 > │ while method20(v170) do │
00:02:06 verbose #2040 > │ let v172 : int32 = v170.l0 │
00:02:06 verbose #2041 > │ v169.[int v172] <- v172 │
00:02:06 verbose #2042 > │ let v173 : int32 = v172 + 1 │
00:02:06 verbose #2043 > │ v170.l0 <- v173 │
00:02:06 verbose #2044 > │ () │
00:02:06 verbose #2045 > │ let v174 : int32 = v169.Length │
00:02:06 verbose #2046 > │ let v175 : Mut2 = {l0 = 0; l1 = v168} : Mut2 │
00:02:06 verbose #2047 > │ while method21(v174, v175) do │
00:02:06 verbose #2048 > │ let v177 : int32 = v175.l0 │
00:02:06 verbose #2049 > │ let v178 : num_complex_Complex<float> = │
00:02:06 verbose #2050 > │ v175.l1 │
00:02:06 verbose #2051 > │ let v179 : int32 = v169.[int v177] │
00:02:06 verbose #2052 > │ let v180 : string = │
00:02:06 verbose #2053 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2054 > │ let v181 : num_complex_Complex<float> = │
00:02:06 verbose #2055 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v180 │
00:02:06 verbose #2056 > │ let v182 : float = float v179 │
00:02:06 verbose #2057 > │ let v183 : string = │
00:02:06 verbose #2058 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2059 > │ let v184 : num_complex_Complex<float> = │
00:02:06 verbose #2060 > │ Fable.Core.RustInterop.emitRustExpr struct (v182, 0.0) v183 │
00:02:06 verbose #2061 > │ let v185 : num_complex_Complex<float> = │
00:02:06 verbose #2062 > │ method22(v184) │
00:02:06 verbose #2063 > │ let v186 : num_complex_Complex<float> = │
00:02:06 verbose #2064 > │ method23(v155) │
00:02:06 verbose #2065 > │ let v187 : string = │
00:02:06 verbose #2066 > │ "num_complex::Complex::powc(v185, v186)" │
00:02:06 verbose #2067 > │ let v188 : num_complex_Complex<float> = │
00:02:06 verbose #2068 > │ Fable.Core.RustInterop.emitRustExpr () v187 │
00:02:06 verbose #2069 > │ let v189 : string = "v181 / v188" │
00:02:06 verbose #2070 > │ let v190 : num_complex_Complex<float> = │
00:02:06 verbose #2071 > │ Fable.Core.RustInterop.emitRustExpr () v189 │
00:02:06 verbose #2072 > │ let v191 : string = "v178 + v190" │
00:02:06 verbose #2073 > │ let v192 : num_complex_Complex<float> = │
00:02:06 verbose #2074 > │ Fable.Core.RustInterop.emitRustExpr () v191 │
00:02:06 verbose #2075 > │ let v193 : int32 = v177 + 1 │
00:02:06 verbose #2076 > │ v175.l0 <- v193 │
00:02:06 verbose #2077 > │ v175.l1 <- v192 │
00:02:06 verbose #2078 > │ () │
00:02:06 verbose #2079 > │ let v194 : num_complex_Complex<float> = │
00:02:06 verbose #2080 > │ v175.l1 │
00:02:06 verbose #2081 > │ v194 │
00:02:06 verbose #2082 > │ else │
00:02:06 verbose #2083 > │ let v195 : string = │
00:02:06 verbose #2084 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2085 > │ let v196 : num_complex_Complex<float> = │
00:02:06 verbose #2086 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v195 │
00:02:06 verbose #2087 > │ let v197 : string = "$0 - $1" │
00:02:06 verbose #2088 > │ let v198 : num_complex_Complex<float> = │
00:02:06 verbose #2089 > │ Fable.Core.RustInterop.emitRustExpr struct (v196, v155) v197 │
00:02:06 verbose #2090 > │ let v199 : string = $" s = │
00:02:06 verbose #2091 > │ mpmath.gamma(s)" │
00:02:06 verbose #2092 > │ let v200 : num_complex_Complex<float> = │
00:02:06 verbose #2093 > │ method3(v198) │
00:02:06 verbose #2094 > │ let v201 : │
00:02:06 verbose #2095 > │ Result<num_complex_Complex<float>, std_string_String> = method24(v0, v199, │
00:02:06 verbose #2096 > │ v200) │
00:02:06 verbose #2097 > │ let v202 : string = "v201.ok()" │
00:02:06 verbose #2098 > │ let v203 : num_complex_Complex<float> option │
00:02:06 verbose #2099 > │ = Fable.Core.RustInterop.emitRustExpr () v202 │
00:02:06 verbose #2100 > │ let v204 : (num_complex_Complex<float> -> │
00:02:06 verbose #2101 > │ US0) = method25() │
00:02:06 verbose #2102 > │ let v205 : US0 = US0_1 │
00:02:06 verbose #2103 > │ let v206 : US0 = v203 |> Option.map v204 |> │
00:02:06 verbose #2104 > │ Option.defaultValue v205 │
00:02:06 verbose #2105 > │ let v207 : string = "f64::NAN" │
00:02:06 verbose #2106 > │ let v208 : float = │
00:02:06 verbose #2107 > │ Fable.Core.RustInterop.emitRustExpr () v207 │
00:02:06 verbose #2108 > │ let v209 : string = "f64::NAN" │
00:02:06 verbose #2109 > │ let v210 : float = │
00:02:06 verbose #2110 > │ Fable.Core.RustInterop.emitRustExpr () v209 │
00:02:06 verbose #2111 > │ let v211 : string = │
00:02:06 verbose #2112 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2113 > │ let v212 : num_complex_Complex<float> = │
00:02:06 verbose #2114 > │ Fable.Core.RustInterop.emitRustExpr struct (v208, v210) v211 │
00:02:06 verbose #2115 > │ let v215 : num_complex_Complex<float> = │
00:02:06 verbose #2116 > │ match v206 with │
00:02:06 verbose #2117 > │ | US0_1 -> (* None *) │
00:02:06 verbose #2118 > │ v212 │
00:02:06 verbose #2119 > │ | US0_0(v213) -> (* Some *) │
00:02:06 verbose #2120 > │ v213 │
00:02:06 verbose #2121 > │ let v216 : string = │
00:02:06 verbose #2122 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2123 > │ let v217 : num_complex_Complex<float> = │
00:02:06 verbose #2124 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v216 │
00:02:06 verbose #2125 > │ let v218 : string = "$0 * $1" │
00:02:06 verbose #2126 > │ let v219 : num_complex_Complex<float> = │
00:02:06 verbose #2127 > │ Fable.Core.RustInterop.emitRustExpr struct (v217, v155) v218 │
00:02:06 verbose #2128 > │ let v220 : string = │
00:02:06 verbose #2129 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2130 > │ let v221 : num_complex_Complex<float> = │
00:02:06 verbose #2131 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v220 │
00:02:06 verbose #2132 > │ let v222 : string = "v219 / v221" │
00:02:06 verbose #2133 > │ let v223 : num_complex_Complex<float> = │
00:02:06 verbose #2134 > │ Fable.Core.RustInterop.emitRustExpr () v222 │
00:02:06 verbose #2135 > │ let v224 : string = "v223.sin()" │
00:02:06 verbose #2136 > │ let v225 : num_complex_Complex<float> = │
00:02:06 verbose #2137 > │ Fable.Core.RustInterop.emitRustExpr () v224 │
00:02:06 verbose #2138 > │ let v226 : num_complex_Complex<float> = │
00:02:06 verbose #2139 > │ method7(v155) │
00:02:06 verbose #2140 > │ let v227 : string = "v226.re" │
00:02:06 verbose #2141 > │ let v228 : float = │
00:02:06 verbose #2142 > │ Fable.Core.RustInterop.emitRustExpr () v227 │
00:02:06 verbose #2143 > │ let v229 : float = 1.0 - v228 │
00:02:06 verbose #2144 > │ let v230 : num_complex_Complex<float> = │
00:02:06 verbose #2145 > │ method8(v155) │
00:02:06 verbose #2146 > │ let v231 : string = "v230.im" │
00:02:06 verbose #2147 > │ let v232 : float = │
00:02:06 verbose #2148 > │ Fable.Core.RustInterop.emitRustExpr () v231 │
00:02:06 verbose #2149 > │ let v233 : float = -v232 │
00:02:06 verbose #2150 > │ let v234 : string = │
00:02:06 verbose #2151 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2152 > │ let v235 : num_complex_Complex<float> = │
00:02:06 verbose #2153 > │ Fable.Core.RustInterop.emitRustExpr struct (v229, v233) v234 │
00:02:06 verbose #2154 > │ let v236 : num_complex_Complex<float> = │
00:02:06 verbose #2155 > │ method7(v235) │
00:02:06 verbose #2156 > │ let v237 : string = "v236.re" │
00:02:06 verbose #2157 > │ let v238 : float = │
00:02:06 verbose #2158 > │ Fable.Core.RustInterop.emitRustExpr () v237 │
00:02:06 verbose #2159 > │ let v239 : bool = v238 <= 1.0 │
00:02:06 verbose #2160 > │ let v438 : num_complex_Complex<float> = │
00:02:06 verbose #2161 > │ if v239 then │
00:02:06 verbose #2162 > │ let v240 : string = │
00:02:06 verbose #2163 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2164 > │ let v241 : │
00:02:06 verbose #2165 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2166 > │ (0.0, 0.0) v240 │
00:02:06 verbose #2167 > │ v241 │
00:02:06 verbose #2168 > │ else │
00:02:06 verbose #2169 > │ let v242 : string = "println!(\"zeta │
00:02:06 verbose #2170 > │ / count: {:?} / s: {:?}\", 3, $0)" │
00:02:06 verbose #2171 > │ Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #2172 > │ v235 v242 │
00:02:06 verbose #2173 > │ let v243 : │
00:02:06 verbose #2174 > │ num_complex_Complex<float> = method7(v235) │
00:02:06 verbose #2175 > │ let v244 : string = "v243.re" │
00:02:06 verbose #2176 > │ let v245 : float = │
00:02:06 verbose #2177 > │ Fable.Core.RustInterop.emitRustExpr () v244 │
00:02:06 verbose #2178 > │ let v246 : bool = v245 > 1.0 │
00:02:06 verbose #2179 > │ if v246 then │
00:02:06 verbose #2180 > │ let v247 : string = │
00:02:06 verbose #2181 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2182 > │ let v248 : │
00:02:06 verbose #2183 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2184 > │ (0.0, 0.0) v247 │
00:02:06 verbose #2185 > │ let v249 : (int32 []) = │
00:02:06 verbose #2186 > │ Array.zeroCreate<int32> (10000) │
00:02:06 verbose #2187 > │ let v250 : Mut0 = {l0 = 0} : │
00:02:06 verbose #2188 > │ Mut0 │
00:02:06 verbose #2189 > │ while method20(v250) do │
00:02:06 verbose #2190 > │ let v252 : int32 = v250.l0 │
00:02:06 verbose #2191 > │ v249.[int v252] <- v252 │
00:02:06 verbose #2192 > │ let v253 : int32 = v252 + 1 │
00:02:06 verbose #2193 > │ v250.l0 <- v253 │
00:02:06 verbose #2194 > │ () │
00:02:06 verbose #2195 > │ let v254 : int32 = v249.Length │
00:02:06 verbose #2196 > │ let v255 : Mut2 = {l0 = 0; l1 = │
00:02:06 verbose #2197 > │ v248} : Mut2 │
00:02:06 verbose #2198 > │ while method21(v254, v255) do │
00:02:06 verbose #2199 > │ let v257 : int32 = v255.l0 │
00:02:06 verbose #2200 > │ let v258 : │
00:02:06 verbose #2201 > │ num_complex_Complex<float> = v255.l1 │
00:02:06 verbose #2202 > │ let v259 : int32 = v249.[int │
00:02:06 verbose #2203 > │ v257] │
00:02:06 verbose #2204 > │ let v260 : string = │
00:02:06 verbose #2205 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2206 > │ let v261 : │
00:02:06 verbose #2207 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2208 > │ (1.0, 0.0) v260 │
00:02:06 verbose #2209 > │ let v262 : float = float │
00:02:06 verbose #2210 > │ v259 │
00:02:06 verbose #2211 > │ let v263 : string = │
00:02:06 verbose #2212 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2213 > │ let v264 : │
00:02:06 verbose #2214 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2215 > │ (v262, 0.0) v263 │
00:02:06 verbose #2216 > │ let v265 : │
00:02:06 verbose #2217 > │ num_complex_Complex<float> = method22(v264) │
00:02:06 verbose #2218 > │ let v266 : │
00:02:06 verbose #2219 > │ num_complex_Complex<float> = method23(v235) │
00:02:06 verbose #2220 > │ let v267 : string = │
00:02:06 verbose #2221 > │ "num_complex::Complex::powc(v265, v266)" │
00:02:06 verbose #2222 > │ let v268 : │
00:02:06 verbose #2223 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v267 │
00:02:06 verbose #2224 > │ let v269 : string = "v261 / │
00:02:06 verbose #2225 > │ v268" │
00:02:06 verbose #2226 > │ let v270 : │
00:02:06 verbose #2227 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v269 │
00:02:06 verbose #2228 > │ let v271 : string = "v258 + │
00:02:06 verbose #2229 > │ v270" │
00:02:06 verbose #2230 > │ let v272 : │
00:02:06 verbose #2231 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v271 │
00:02:06 verbose #2232 > │ let v273 : int32 = v257 + 1 │
00:02:06 verbose #2233 > │ v255.l0 <- v273 │
00:02:06 verbose #2234 > │ v255.l1 <- v272 │
00:02:06 verbose #2235 > │ () │
00:02:06 verbose #2236 > │ let v274 : │
00:02:06 verbose #2237 > │ num_complex_Complex<float> = v255.l1 │
00:02:06 verbose #2238 > │ v274 │
00:02:06 verbose #2239 > │ else │
00:02:06 verbose #2240 > │ let v275 : string = │
00:02:06 verbose #2241 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2242 > │ let v276 : │
00:02:06 verbose #2243 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2244 > │ (1.0, 0.0) v275 │
00:02:06 verbose #2245 > │ let v277 : string = "$0 - $1" │
00:02:06 verbose #2246 > │ let v278 : │
00:02:06 verbose #2247 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2248 > │ (v276, v235) v277 │
00:02:06 verbose #2249 > │ let v279 : string = $" s │
00:02:06 verbose #2250 > │ = mpmath.gamma(s)" │
00:02:06 verbose #2251 > │ let v280 : │
00:02:06 verbose #2252 > │ num_complex_Complex<float> = method3(v278) │
00:02:06 verbose #2253 > │ let v281 : │
00:02:06 verbose #2254 > │ Result<num_complex_Complex<float>, std_string_String> = method24(v0, v279, │
00:02:06 verbose #2255 > │ v280) │
00:02:06 verbose #2256 > │ let v282 : string = "v281.ok()" │
00:02:06 verbose #2257 > │ let v283 : │
00:02:06 verbose #2258 > │ num_complex_Complex<float> option = Fable.Core.RustInterop.emitRustExpr () │
00:02:06 verbose #2259 > │ v282 │
00:02:06 verbose #2260 > │ let v284 : │
00:02:06 verbose #2261 > │ (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #2262 > │ let v285 : US0 = US0_1 │
00:02:06 verbose #2263 > │ let v286 : US0 = v283 |> │
00:02:06 verbose #2264 > │ Option.map v284 |> Option.defaultValue v285 │
00:02:06 verbose #2265 > │ let v287 : string = "f64::NAN" │
00:02:06 verbose #2266 > │ let v288 : float = │
00:02:06 verbose #2267 > │ Fable.Core.RustInterop.emitRustExpr () v287 │
00:02:06 verbose #2268 > │ let v289 : string = "f64::NAN" │
00:02:06 verbose #2269 > │ let v290 : float = │
00:02:06 verbose #2270 > │ Fable.Core.RustInterop.emitRustExpr () v289 │
00:02:06 verbose #2271 > │ let v291 : string = │
00:02:06 verbose #2272 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2273 > │ let v292 : │
00:02:06 verbose #2274 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2275 > │ (v288, v290) v291 │
00:02:06 verbose #2276 > │ let v295 : │
00:02:06 verbose #2277 > │ num_complex_Complex<float> = │
00:02:06 verbose #2278 > │ match v286 with │
00:02:06 verbose #2279 > │ | US0_1 -> (* None *) │
00:02:06 verbose #2280 > │ v292 │
00:02:06 verbose #2281 > │ | US0_0(v293) -> (* Some *) │
00:02:06 verbose #2282 > │ v293 │
00:02:06 verbose #2283 > │ let v296 : string = │
00:02:06 verbose #2284 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2285 > │ let v297 : │
00:02:06 verbose #2286 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2287 > │ (3.141592653589793, 0.0) v296 │
00:02:06 verbose #2288 > │ let v298 : string = "$0 * $1" │
00:02:06 verbose #2289 > │ let v299 : │
00:02:06 verbose #2290 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2291 > │ (v297, v235) v298 │
00:02:06 verbose #2292 > │ let v300 : string = │
00:02:06 verbose #2293 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2294 > │ let v301 : │
00:02:06 verbose #2295 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2296 > │ (2.0, 0.0) v300 │
00:02:06 verbose #2297 > │ let v302 : string = "v299 / │
00:02:06 verbose #2298 > │ v301" │
00:02:06 verbose #2299 > │ let v303 : │
00:02:06 verbose #2300 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v302 │
00:02:06 verbose #2301 > │ let v304 : string = "v303.sin()" │
00:02:06 verbose #2302 > │ let v305 : │
00:02:06 verbose #2303 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v304 │
00:02:06 verbose #2304 > │ let v306 : │
00:02:06 verbose #2305 > │ num_complex_Complex<float> = method7(v235) │
00:02:06 verbose #2306 > │ let v307 : string = "v306.re" │
00:02:06 verbose #2307 > │ let v308 : float = │
00:02:06 verbose #2308 > │ Fable.Core.RustInterop.emitRustExpr () v307 │
00:02:06 verbose #2309 > │ let v309 : float = 1.0 - v308 │
00:02:06 verbose #2310 > │ let v310 : │
00:02:06 verbose #2311 > │ num_complex_Complex<float> = method8(v235) │
00:02:06 verbose #2312 > │ let v311 : string = "v310.im" │
00:02:06 verbose #2313 > │ let v312 : float = │
00:02:06 verbose #2314 > │ Fable.Core.RustInterop.emitRustExpr () v311 │
00:02:06 verbose #2315 > │ let v313 : float = -v312 │
00:02:06 verbose #2316 > │ let v314 : string = │
00:02:06 verbose #2317 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2318 > │ let v315 : │
00:02:06 verbose #2319 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2320 > │ (v309, v313) v314 │
00:02:06 verbose #2321 > │ let v316 : │
00:02:06 verbose #2322 > │ num_complex_Complex<float> = method7(v315) │
00:02:06 verbose #2323 > │ let v317 : string = "v316.re" │
00:02:06 verbose #2324 > │ let v318 : float = │
00:02:06 verbose #2325 > │ Fable.Core.RustInterop.emitRustExpr () v317 │
00:02:06 verbose #2326 > │ let v319 : bool = v318 <= 1.0 │
00:02:06 verbose #2327 > │ let v420 : │
00:02:06 verbose #2328 > │ num_complex_Complex<float> = │
00:02:06 verbose #2329 > │ if v319 then │
00:02:06 verbose #2330 > │ let v320 : string = │
00:02:06 verbose #2331 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2332 > │ let v321 : │
00:02:06 verbose #2333 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2334 > │ (0.0, 0.0) v320 │
00:02:06 verbose #2335 > │ v321 │
00:02:06 verbose #2336 > │ else │
00:02:06 verbose #2337 > │ let v322 : string = │
00:02:06 verbose #2338 > │ "println!(\"zeta / count: {:?} / s: {:?}\", 4, $0)" │
00:02:06 verbose #2339 > │ │
00:02:06 verbose #2340 > │ Fable.Core.RustInterop.emitRustExpr v315 v322 │
00:02:06 verbose #2341 > │ let v323 : │
00:02:06 verbose #2342 > │ num_complex_Complex<float> = method7(v315) │
00:02:06 verbose #2343 > │ let v324 : string = │
00:02:06 verbose #2344 > │ "v323.re" │
00:02:06 verbose #2345 > │ let v325 : float = │
00:02:06 verbose #2346 > │ Fable.Core.RustInterop.emitRustExpr () v324 │
00:02:06 verbose #2347 > │ let v326 : bool = v325 > │
00:02:06 verbose #2348 > │ 1.0 │
00:02:06 verbose #2349 > │ if v326 then │
00:02:06 verbose #2350 > │ let v327 : string = │
00:02:06 verbose #2351 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2352 > │ let v328 : │
00:02:06 verbose #2353 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2354 > │ (0.0, 0.0) v327 │
00:02:06 verbose #2355 > │ let v329 : (int32 [ │
00:02:06 verbose #2356 > │ ]) = Array.zeroCreate<int32> (10000) │
00:02:06 verbose #2357 > │ let v330 : Mut0 = │
00:02:06 verbose #2358 > │ {l0 = 0} : Mut0 │
00:02:06 verbose #2359 > │ while method20(v330) │
00:02:06 verbose #2360 > │ do │
00:02:06 verbose #2361 > │ let v332 : int32 │
00:02:06 verbose #2362 > │ = v330.l0 │
00:02:06 verbose #2363 > │ v329.[int v332] │
00:02:06 verbose #2364 > │ <- v332 │
00:02:06 verbose #2365 > │ let v333 : int32 │
00:02:06 verbose #2366 > │ = v332 + 1 │
00:02:06 verbose #2367 > │ v330.l0 <- v333 │
00:02:06 verbose #2368 > │ () │
00:02:06 verbose #2369 > │ let v334 : int32 = │
00:02:06 verbose #2370 > │ v329.Length │
00:02:06 verbose #2371 > │ let v335 : Mut2 = │
00:02:06 verbose #2372 > │ {l0 = 0; l1 = v328} : Mut2 │
00:02:06 verbose #2373 > │ while method21(v334, │
00:02:06 verbose #2374 > │ v335) do │
00:02:06 verbose #2375 > │ let v337 : int32 │
00:02:06 verbose #2376 > │ = v335.l0 │
00:02:06 verbose #2377 > │ let v338 : │
00:02:06 verbose #2378 > │ num_complex_Complex<float> = v335.l1 │
00:02:06 verbose #2379 > │ let v339 : int32 │
00:02:06 verbose #2380 > │ = v329.[int v337] │
00:02:06 verbose #2381 > │ let v340 : │
00:02:06 verbose #2382 > │ string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2383 > │ let v341 : │
00:02:06 verbose #2384 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2385 > │ (1.0, 0.0) v340 │
00:02:06 verbose #2386 > │ let v342 : float │
00:02:06 verbose #2387 > │ = float v339 │
00:02:06 verbose #2388 > │ let v343 : │
00:02:06 verbose #2389 > │ string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2390 > │ let v344 : │
00:02:06 verbose #2391 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2392 > │ (v342, 0.0) v343 │
00:02:06 verbose #2393 > │ let v345 : │
00:02:06 verbose #2394 > │ num_complex_Complex<float> = method22(v344) │
00:02:06 verbose #2395 > │ let v346 : │
00:02:06 verbose #2396 > │ num_complex_Complex<float> = method23(v315) │
00:02:06 verbose #2397 > │ let v347 : │
00:02:06 verbose #2398 > │ string = "num_complex::Complex::powc(v345, v346)" │
00:02:06 verbose #2399 > │ let v348 : │
00:02:06 verbose #2400 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v347 │
00:02:06 verbose #2401 > │ let v349 : │
00:02:06 verbose #2402 > │ string = "v341 / v348" │
00:02:06 verbose #2403 > │ let v350 : │
00:02:06 verbose #2404 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v349 │
00:02:06 verbose #2405 > │ let v351 : │
00:02:06 verbose #2406 > │ string = "v338 + v350" │
00:02:06 verbose #2407 > │ let v352 : │
00:02:06 verbose #2408 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v351 │
00:02:06 verbose #2409 > │ let v353 : int32 │
00:02:06 verbose #2410 > │ = v337 + 1 │
00:02:06 verbose #2411 > │ v335.l0 <- v353 │
00:02:06 verbose #2412 > │ v335.l1 <- v352 │
00:02:06 verbose #2413 > │ () │
00:02:06 verbose #2414 > │ let v354 : │
00:02:06 verbose #2415 > │ num_complex_Complex<float> = v335.l1 │
00:02:06 verbose #2416 > │ v354 │
00:02:06 verbose #2417 > │ else │
00:02:06 verbose #2418 > │ let v355 : string = │
00:02:06 verbose #2419 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2420 > │ let v356 : │
00:02:06 verbose #2421 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2422 > │ (1.0, 0.0) v355 │
00:02:06 verbose #2423 > │ let v357 : string = │
00:02:06 verbose #2424 > │ "$0 - $1" │
00:02:06 verbose #2425 > │ let v358 : │
00:02:06 verbose #2426 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2427 > │ (v356, v315) v357 │
00:02:06 verbose #2428 > │ let v359 : string = │
00:02:06 verbose #2429 > │ $" s = mpmath.gamma(s)" │
00:02:06 verbose #2430 > │ let v360 : │
00:02:06 verbose #2431 > │ num_complex_Complex<float> = method3(v358) │
00:02:06 verbose #2432 > │ let v361 : │
00:02:06 verbose #2433 > │ Result<num_complex_Complex<float>, std_string_String> = method24(v0, v359, │
00:02:06 verbose #2434 > │ v360) │
00:02:06 verbose #2435 > │ let v362 : string = │
00:02:06 verbose #2436 > │ "v361.ok()" │
00:02:06 verbose #2437 > │ let v363 : │
00:02:06 verbose #2438 > │ num_complex_Complex<float> option = Fable.Core.RustInterop.emitRustExpr () │
00:02:06 verbose #2439 > │ v362 │
00:02:06 verbose #2440 > │ let v364 : │
00:02:06 verbose #2441 > │ (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #2442 > │ let v365 : US0 = │
00:02:06 verbose #2443 > │ US0_1 │
00:02:06 verbose #2444 > │ let v366 : US0 = │
00:02:06 verbose #2445 > │ v363 |> Option.map v364 |> Option.defaultValue v365 │
00:02:06 verbose #2446 > │ let v367 : string = │
00:02:06 verbose #2447 > │ "f64::NAN" │
00:02:06 verbose #2448 > │ let v368 : float = │
00:02:06 verbose #2449 > │ Fable.Core.RustInterop.emitRustExpr () v367 │
00:02:06 verbose #2450 > │ let v369 : string = │
00:02:06 verbose #2451 > │ "f64::NAN" │
00:02:06 verbose #2452 > │ let v370 : float = │
00:02:06 verbose #2453 > │ Fable.Core.RustInterop.emitRustExpr () v369 │
00:02:06 verbose #2454 > │ let v371 : string = │
00:02:06 verbose #2455 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2456 > │ let v372 : │
00:02:06 verbose #2457 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2458 > │ (v368, v370) v371 │
00:02:06 verbose #2459 > │ let v375 : │
00:02:06 verbose #2460 > │ num_complex_Complex<float> = │
00:02:06 verbose #2461 > │ match v366 with │
00:02:06 verbose #2462 > │ | US0_1 -> (* │
00:02:06 verbose #2463 > │ None *) │
00:02:06 verbose #2464 > │ v372 │
00:02:06 verbose #2465 > │ | US0_0(v373) -> │
00:02:06 verbose #2466 > │ (* Some *) │
00:02:06 verbose #2467 > │ v373 │
00:02:06 verbose #2468 > │ let v376 : string = │
00:02:06 verbose #2469 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2470 > │ let v377 : │
00:02:06 verbose #2471 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2472 > │ (3.141592653589793, 0.0) v376 │
00:02:06 verbose #2473 > │ let v378 : string = │
00:02:06 verbose #2474 > │ "$0 * $1" │
00:02:06 verbose #2475 > │ let v379 : │
00:02:06 verbose #2476 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2477 > │ (v377, v315) v378 │
00:02:06 verbose #2478 > │ let v380 : string = │
00:02:06 verbose #2479 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2480 > │ let v381 : │
00:02:06 verbose #2481 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2482 > │ (2.0, 0.0) v380 │
00:02:06 verbose #2483 > │ let v382 : string = │
00:02:06 verbose #2484 > │ "v379 / v381" │
00:02:06 verbose #2485 > │ let v383 : │
00:02:06 verbose #2486 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v382 │
00:02:06 verbose #2487 > │ let v384 : string = │
00:02:06 verbose #2488 > │ "v383.sin()" │
00:02:06 verbose #2489 > │ let v385 : │
00:02:06 verbose #2490 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v384 │
00:02:06 verbose #2491 > │ let v386 : │
00:02:06 verbose #2492 > │ num_complex_Complex<float> = method7(v315) │
00:02:06 verbose #2493 > │ let v387 : string = │
00:02:06 verbose #2494 > │ "v386.re" │
00:02:06 verbose #2495 > │ let v388 : float = │
00:02:06 verbose #2496 > │ Fable.Core.RustInterop.emitRustExpr () v387 │
00:02:06 verbose #2497 > │ let v389 : float = │
00:02:06 verbose #2498 > │ 1.0 - v388 │
00:02:06 verbose #2499 > │ let v390 : │
00:02:06 verbose #2500 > │ num_complex_Complex<float> = method8(v315) │
00:02:06 verbose #2501 > │ let v391 : string = │
00:02:06 verbose #2502 > │ "v390.im" │
00:02:06 verbose #2503 > │ let v392 : float = │
00:02:06 verbose #2504 > │ Fable.Core.RustInterop.emitRustExpr () v391 │
00:02:06 verbose #2505 > │ let v393 : float = │
00:02:06 verbose #2506 > │ -v392 │
00:02:06 verbose #2507 > │ let v394 : string = │
00:02:06 verbose #2508 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2509 > │ let v395 : │
00:02:06 verbose #2510 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2511 > │ (v389, v393) v394 │
00:02:06 verbose #2512 > │ let v396 : │
00:02:06 verbose #2513 > │ num_complex_Complex<float> = method7(v395) │
00:02:06 verbose #2514 > │ let v397 : string = │
00:02:06 verbose #2515 > │ "v396.re" │
00:02:06 verbose #2516 > │ let v398 : float = │
00:02:06 verbose #2517 > │ Fable.Core.RustInterop.emitRustExpr () v397 │
00:02:06 verbose #2518 > │ let v399 : bool = │
00:02:06 verbose #2519 > │ v398 <= 1.0 │
00:02:06 verbose #2520 > │ let v402 : │
00:02:06 verbose #2521 > │ num_complex_Complex<float> = │
00:02:06 verbose #2522 > │ if v399 then │
00:02:06 verbose #2523 > │ let v400 : │
00:02:06 verbose #2524 > │ string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2525 > │ let v401 : │
00:02:06 verbose #2526 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2527 > │ (0.0, 0.0) v400 │
00:02:06 verbose #2528 > │ v401 │
00:02:06 verbose #2529 > │ else │
00:02:06 verbose #2530 > │ v395 │
00:02:06 verbose #2531 > │ let v403 : string = │
00:02:06 verbose #2532 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2533 > │ let v404 : │
00:02:06 verbose #2534 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2535 > │ (2.0, 0.0) v403 │
00:02:06 verbose #2536 > │ let v405 : string = │
00:02:06 verbose #2537 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2538 > │ let v406 : │
00:02:06 verbose #2539 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2540 > │ (3.141592653589793, 0.0) v405 │
00:02:06 verbose #2541 > │ let v407 : │
00:02:06 verbose #2542 > │ num_complex_Complex<float> = method22(v406) │
00:02:06 verbose #2543 > │ let v408 : │
00:02:06 verbose #2544 > │ num_complex_Complex<float> = method23(v315) │
00:02:06 verbose #2545 > │ let v409 : string = │
00:02:06 verbose #2546 > │ "num_complex::Complex::powc(v407, v408)" │
00:02:06 verbose #2547 > │ let v410 : │
00:02:06 verbose #2548 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v409 │
00:02:06 verbose #2549 > │ let v411 : string = │
00:02:06 verbose #2550 > │ "$0 * $1" │
00:02:06 verbose #2551 > │ let v412 : │
00:02:06 verbose #2552 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2553 > │ (v404, v410) v411 │
00:02:06 verbose #2554 > │ let v413 : string = │
00:02:06 verbose #2555 > │ "$0 * $1" │
00:02:06 verbose #2556 > │ let v414 : │
00:02:06 verbose #2557 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2558 > │ (v412, v385) v413 │
00:02:06 verbose #2559 > │ let v415 : string = │
00:02:06 verbose #2560 > │ "$0 * $1" │
00:02:06 verbose #2561 > │ let v416 : │
00:02:06 verbose #2562 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2563 > │ (v414, v375) v415 │
00:02:06 verbose #2564 > │ let v417 : string = │
00:02:06 verbose #2565 > │ "$0 * $1" │
00:02:06 verbose #2566 > │ let v418 : │
00:02:06 verbose #2567 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2568 > │ (v416, v402) v417 │
00:02:06 verbose #2569 > │ v418 │
00:02:06 verbose #2570 > │ let v421 : string = │
00:02:06 verbose #2571 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2572 > │ let v422 : │
00:02:06 verbose #2573 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2574 > │ (2.0, 0.0) v421 │
00:02:06 verbose #2575 > │ let v423 : string = │
00:02:06 verbose #2576 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2577 > │ let v424 : │
00:02:06 verbose #2578 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2579 > │ (3.141592653589793, 0.0) v423 │
00:02:06 verbose #2580 > │ let v425 : │
00:02:06 verbose #2581 > │ num_complex_Complex<float> = method22(v424) │
00:02:06 verbose #2582 > │ let v426 : │
00:02:06 verbose #2583 > │ num_complex_Complex<float> = method23(v235) │
00:02:06 verbose #2584 > │ let v427 : string = │
00:02:06 verbose #2585 > │ "num_complex::Complex::powc(v425, v426)" │
00:02:06 verbose #2586 > │ let v428 : │
00:02:06 verbose #2587 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v427 │
00:02:06 verbose #2588 > │ let v429 : string = "$0 * $1" │
00:02:06 verbose #2589 > │ let v430 : │
00:02:06 verbose #2590 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2591 > │ (v422, v428) v429 │
00:02:06 verbose #2592 > │ let v431 : string = "$0 * $1" │
00:02:06 verbose #2593 > │ let v432 : │
00:02:06 verbose #2594 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2595 > │ (v430, v305) v431 │
00:02:06 verbose #2596 > │ let v433 : string = "$0 * $1" │
00:02:06 verbose #2597 > │ let v434 : │
00:02:06 verbose #2598 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2599 > │ (v432, v295) v433 │
00:02:06 verbose #2600 > │ let v435 : string = "$0 * $1" │
00:02:06 verbose #2601 > │ let v436 : │
00:02:06 verbose #2602 > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:06 verbose #2603 > │ (v434, v420) v435 │
00:02:06 verbose #2604 > │ v436 │
00:02:06 verbose #2605 > │ let v439 : string = │
00:02:06 verbose #2606 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2607 > │ let v440 : num_complex_Complex<float> = │
00:02:06 verbose #2608 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v439 │
00:02:06 verbose #2609 > │ let v441 : string = │
00:02:06 verbose #2610 > │ "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2611 > │ let v442 : num_complex_Complex<float> = │
00:02:06 verbose #2612 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v441 │
00:02:06 verbose #2613 > │ let v443 : num_complex_Complex<float> = │
00:02:06 verbose #2614 > │ method22(v442) │
00:02:06 verbose #2615 > │ let v444 : num_complex_Complex<float> = │
00:02:06 verbose #2616 > │ method23(v155) │
00:02:06 verbose #2617 > │ let v445 : string = │
00:02:06 verbose #2618 > │ "num_complex::Complex::powc(v443, v444)" │
00:02:06 verbose #2619 > │ let v446 : num_complex_Complex<float> = │
00:02:06 verbose #2620 > │ Fable.Core.RustInterop.emitRustExpr () v445 │
00:02:06 verbose #2621 > │ let v447 : string = "$0 * $1" │
00:02:06 verbose #2622 > │ let v448 : num_complex_Complex<float> = │
00:02:06 verbose #2623 > │ Fable.Core.RustInterop.emitRustExpr struct (v440, v446) v447 │
00:02:06 verbose #2624 > │ let v449 : string = "$0 * $1" │
00:02:06 verbose #2625 > │ let v450 : num_complex_Complex<float> = │
00:02:06 verbose #2626 > │ Fable.Core.RustInterop.emitRustExpr struct (v448, v225) v449 │
00:02:06 verbose #2627 > │ let v451 : string = "$0 * $1" │
00:02:06 verbose #2628 > │ let v452 : num_complex_Complex<float> = │
00:02:06 verbose #2629 > │ Fable.Core.RustInterop.emitRustExpr struct (v450, v215) v451 │
00:02:06 verbose #2630 > │ let v453 : string = "$0 * $1" │
00:02:06 verbose #2631 > │ let v454 : num_complex_Complex<float> = │
00:02:06 verbose #2632 > │ Fable.Core.RustInterop.emitRustExpr struct (v452, v438) v453 │
00:02:06 verbose #2633 > │ v454 │
00:02:06 verbose #2634 > │ let v457 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2635 > │ let v458 : num_complex_Complex<float> = │
00:02:06 verbose #2636 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v457 │
00:02:06 verbose #2637 > │ let v459 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2638 > │ let v460 : num_complex_Complex<float> = │
00:02:06 verbose #2639 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v459 │
00:02:06 verbose #2640 > │ let v461 : num_complex_Complex<float> = method22(v460) │
00:02:06 verbose #2641 > │ let v462 : num_complex_Complex<float> = method23(v75) │
00:02:06 verbose #2642 > │ let v463 : string = "num_complex::Complex::powc(v461, │
00:02:06 verbose #2643 > │ v462)" │
00:02:06 verbose #2644 > │ let v464 : num_complex_Complex<float> = │
00:02:06 verbose #2645 > │ Fable.Core.RustInterop.emitRustExpr () v463 │
00:02:06 verbose #2646 > │ let v465 : string = "$0 * $1" │
00:02:06 verbose #2647 > │ let v466 : num_complex_Complex<float> = │
00:02:06 verbose #2648 > │ Fable.Core.RustInterop.emitRustExpr struct (v458, v464) v465 │
00:02:06 verbose #2649 > │ let v467 : string = "$0 * $1" │
00:02:06 verbose #2650 > │ let v468 : num_complex_Complex<float> = │
00:02:06 verbose #2651 > │ Fable.Core.RustInterop.emitRustExpr struct (v466, v145) v467 │
00:02:06 verbose #2652 > │ let v469 : string = "$0 * $1" │
00:02:06 verbose #2653 > │ let v470 : num_complex_Complex<float> = │
00:02:06 verbose #2654 > │ Fable.Core.RustInterop.emitRustExpr struct (v468, v135) v469 │
00:02:06 verbose #2655 > │ let v471 : string = "$0 * $1" │
00:02:06 verbose #2656 > │ let v472 : num_complex_Complex<float> = │
00:02:06 verbose #2657 > │ Fable.Core.RustInterop.emitRustExpr struct (v470, v456) v471 │
00:02:06 verbose #2658 > │ v472 │
00:02:06 verbose #2659 > │ let v475 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2660 > │ let v476 : num_complex_Complex<float> = │
00:02:06 verbose #2661 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v475 │
00:02:06 verbose #2662 > │ let v477 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2663 > │ let v478 : num_complex_Complex<float> = │
00:02:06 verbose #2664 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v477 │
00:02:06 verbose #2665 > │ let v479 : num_complex_Complex<float> = method22(v478) │
00:02:06 verbose #2666 > │ let v480 : num_complex_Complex<float> = method23(v1) │
00:02:06 verbose #2667 > │ let v481 : string = "num_complex::Complex::powc(v479, v480)" │
00:02:06 verbose #2668 > │ let v482 : num_complex_Complex<float> = │
00:02:06 verbose #2669 > │ Fable.Core.RustInterop.emitRustExpr () v481 │
00:02:06 verbose #2670 > │ let v483 : string = "$0 * $1" │
00:02:06 verbose #2671 > │ let v484 : num_complex_Complex<float> = │
00:02:06 verbose #2672 > │ Fable.Core.RustInterop.emitRustExpr struct (v476, v482) v483 │
00:02:06 verbose #2673 > │ let v485 : string = "$0 * $1" │
00:02:06 verbose #2674 > │ let v486 : num_complex_Complex<float> = │
00:02:06 verbose #2675 > │ Fable.Core.RustInterop.emitRustExpr struct (v484, v65) v485 │
00:02:06 verbose #2676 > │ let v487 : string = "$0 * $1" │
00:02:06 verbose #2677 > │ let v488 : num_complex_Complex<float> = │
00:02:06 verbose #2678 > │ Fable.Core.RustInterop.emitRustExpr struct (v486, v55) v487 │
00:02:06 verbose #2679 > │ let v489 : string = "$0 * $1" │
00:02:06 verbose #2680 > │ let v490 : num_complex_Complex<float> = │
00:02:06 verbose #2681 > │ Fable.Core.RustInterop.emitRustExpr struct (v488, v474) v489 │
00:02:06 verbose #2682 > │ v490 │
00:02:06 verbose #2683 > │ and method26 (v0 : bool) : bool = │
00:02:06 verbose #2684 > │ v0 │
00:02:06 verbose #2685 > │ and method1 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #2686 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2687 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #2688 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v1 │
00:02:06 verbose #2689 > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2690 > │ let v4 : num_complex_Complex<float> = │
00:02:06 verbose #2691 > │ Fable.Core.RustInterop.emitRustExpr struct (-1.0, 0.0) v3 │
00:02:06 verbose #2692 > │ let v5 : (struct (num_complex_Complex<float> * float) []) = [|struct │
00:02:06 verbose #2693 > │ (v2, 1.6449340668482264); struct (v4, -0.08333333333333333)|] │
00:02:06 verbose #2694 > │ let v6 : int32 = v5.Length │
00:02:06 verbose #2695 > │ let v7 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #2696 > │ while method2(v6, v7) do │
00:02:06 verbose #2697 > │ let v9 : int32 = v7.l0 │
00:02:06 verbose #2698 > │ let struct (v10 : num_complex_Complex<float>, v11 : float) = v5.[int │
00:02:06 verbose #2699 > │ v9] │
00:02:06 verbose #2700 > │ let v12 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #2701 > │ let v13 : num_complex_Complex<float> = method3(v10) │
00:02:06 verbose #2702 > │ let v14 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #2703 > │ method4(v0, v12, v13) │
00:02:06 verbose #2704 > │ let v15 : num_complex_Complex<float> = method19(v0, v10) │
00:02:06 verbose #2705 > │ let v16 : string = "v14.ok()" │
00:02:06 verbose #2706 > │ let v17 : num_complex_Complex<float> option = │
00:02:06 verbose #2707 > │ Fable.Core.RustInterop.emitRustExpr () v16 │
00:02:06 verbose #2708 > │ let v18 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #2709 > │ let v19 : US0 = US0_1 │
00:02:06 verbose #2710 > │ let v20 : US0 = v17 |> Option.map v18 |> Option.defaultValue v19 │
00:02:06 verbose #2711 > │ let v21 : string = "f64::NAN" │
00:02:06 verbose #2712 > │ let v22 : float = Fable.Core.RustInterop.emitRustExpr () v21 │
00:02:06 verbose #2713 > │ let v23 : string = "f64::NAN" │
00:02:06 verbose #2714 > │ let v24 : float = Fable.Core.RustInterop.emitRustExpr () v23 │
00:02:06 verbose #2715 > │ let v25 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2716 > │ let v26 : num_complex_Complex<float> = │
00:02:06 verbose #2717 > │ Fable.Core.RustInterop.emitRustExpr struct (v22, v24) v25 │
00:02:06 verbose #2718 > │ let v29 : num_complex_Complex<float> = │
00:02:06 verbose #2719 > │ match v20 with │
00:02:06 verbose #2720 > │ | US0_1 -> (* None *) │
00:02:06 verbose #2721 > │ v26 │
00:02:06 verbose #2722 > │ | US0_0(v27) -> (* Some *) │
00:02:06 verbose #2723 > │ v27 │
00:02:06 verbose #2724 > │ let v30 : num_complex_Complex<float> = method8(v29) │
00:02:06 verbose #2725 > │ let v31 : string = "v30.im" │
00:02:06 verbose #2726 > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:06 verbose #2727 > │ let v33 : string = $"%A{v32}" │
00:02:06 verbose #2728 > │ System.Console.WriteLine v33 │
00:02:06 verbose #2729 > │ let v34 : bool = v32 = 0.0 │
00:02:06 verbose #2730 > │ let v36 : bool = │
00:02:06 verbose #2731 > │ if v34 then │
00:02:06 verbose #2732 > │ true │
00:02:06 verbose #2733 > │ else │
00:02:06 verbose #2734 > │ method26(v34) │
00:02:06 verbose #2735 > │ let v37 : string = $"__expect / actual: %A{v32} / expected: %A{0.0}" │
00:02:06 verbose #2736 > │ let v38 : bool = v36 = false │
00:02:06 verbose #2737 > │ if v38 then │
00:02:06 verbose #2738 > │ failwith<unit> v37 │
00:02:06 verbose #2739 > │ let v39 : num_complex_Complex<float> = method7(v29) │
00:02:06 verbose #2740 > │ let v40 : string = "v39.re" │
00:02:06 verbose #2741 > │ let v41 : float = Fable.Core.RustInterop.emitRustExpr () v40 │
00:02:06 verbose #2742 > │ let v42 : float = v41 - v11 │
00:02:06 verbose #2743 > │ let v43 : float = -v42 │
00:02:06 verbose #2744 > │ let v44 : bool = v42 >= v43 │
00:02:06 verbose #2745 > │ let v45 : float = │
00:02:06 verbose #2746 > │ if v44 then │
00:02:06 verbose #2747 > │ v42 │
00:02:06 verbose #2748 > │ else │
00:02:06 verbose #2749 > │ v43 │
00:02:06 verbose #2750 > │ let v46 : string = $"%A{v45}" │
00:02:06 verbose #2751 > │ System.Console.WriteLine v46 │
00:02:06 verbose #2752 > │ let v47 : bool = v45 < 0.0001 │
00:02:06 verbose #2753 > │ let v49 : bool = │
00:02:06 verbose #2754 > │ if v47 then │
00:02:06 verbose #2755 > │ true │
00:02:06 verbose #2756 > │ else │
00:02:06 verbose #2757 > │ method26(v47) │
00:02:06 verbose #2758 > │ let v50 : string = $"__expect / actual: %A{v45} / expected: │
00:02:06 verbose #2759 > │ %A{0.0001}" │
00:02:06 verbose #2760 > │ let v51 : bool = v49 = false │
00:02:06 verbose #2761 > │ if v51 then │
00:02:06 verbose #2762 > │ failwith<unit> v50 │
00:02:06 verbose #2763 > │ let v52 : int32 = v9 + 1 │
00:02:06 verbose #2764 > │ v7.l0 <- v52 │
00:02:06 verbose #2765 > │ () │
00:02:06 verbose #2766 > │ () │
00:02:06 verbose #2767 > │ and method27 (v0 : Result<unit, pyo3_PyErr>) : Result<unit, pyo3_PyErr> = │
00:02:06 verbose #2768 > │ v0 │
00:02:06 verbose #2769 > │ and method0 () : unit = │
00:02:06 verbose #2770 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #2771 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #2772 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #2773 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #2774 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #2775 > │ let v2 : string = "py" │
00:02:06 verbose #2776 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #2777 > │ method1(v3) │
00:02:06 verbose #2778 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #2779 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #2780 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #2781 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #2782 > │ let v7 : string = "{ //" │
00:02:06 verbose #2783 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #2784 > │ let v8 : string = "__result" │
00:02:06 verbose #2785 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #2786 > │ () v8 │
00:02:06 verbose #2787 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #2788 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #2789 > │ () │
00:02:06 verbose #2790 > │ and method29 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #2791 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2792 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #2793 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, -2.0) v1 │
00:02:06 verbose #2794 > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #2795 > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:06 verbose #2796 > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #2797 > │ method4(v0, v3, v4) │
00:02:06 verbose #2798 > │ let v6 : num_complex_Complex<float> = method19(v0, v2) │
00:02:06 verbose #2799 > │ let v7 : string = "v5.ok()" │
00:02:06 verbose #2800 > │ let v8 : num_complex_Complex<float> option = │
00:02:06 verbose #2801 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #2802 > │ let v9 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #2803 > │ let v10 : US0 = US0_1 │
00:02:06 verbose #2804 > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:06 verbose #2805 > │ let v12 : string = "f64::NAN" │
00:02:06 verbose #2806 > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:06 verbose #2807 > │ let v14 : string = "f64::NAN" │
00:02:06 verbose #2808 > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:06 verbose #2809 > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2810 > │ let v17 : num_complex_Complex<float> = │
00:02:06 verbose #2811 > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:06 verbose #2812 > │ let v20 : num_complex_Complex<float> = │
00:02:06 verbose #2813 > │ match v11 with │
00:02:06 verbose #2814 > │ | US0_1 -> (* None *) │
00:02:06 verbose #2815 > │ v17 │
00:02:06 verbose #2816 > │ | US0_0(v18) -> (* Some *) │
00:02:06 verbose #2817 > │ v18 │
00:02:06 verbose #2818 > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:02:06 verbose #2819 > │ let v22 : string = "v21.re" │
00:02:06 verbose #2820 > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:06 verbose #2821 > │ let v24 : float = v23 - 0.8673 │
00:02:06 verbose #2822 > │ let v25 : float = -v24 │
00:02:06 verbose #2823 > │ let v26 : bool = v24 >= v25 │
00:02:06 verbose #2824 > │ let v27 : float = │
00:02:06 verbose #2825 > │ if v26 then │
00:02:06 verbose #2826 > │ v24 │
00:02:06 verbose #2827 > │ else │
00:02:06 verbose #2828 > │ v25 │
00:02:06 verbose #2829 > │ let v28 : string = $"%A{v27}" │
00:02:06 verbose #2830 > │ System.Console.WriteLine v28 │
00:02:06 verbose #2831 > │ let v29 : bool = v27 < 0.001 │
00:02:06 verbose #2832 > │ let v31 : bool = │
00:02:06 verbose #2833 > │ if v29 then │
00:02:06 verbose #2834 > │ true │
00:02:06 verbose #2835 > │ else │
00:02:06 verbose #2836 > │ method26(v29) │
00:02:06 verbose #2837 > │ let v32 : string = $"__expect / actual: %A{v27} / expected: %A{0.001}" │
00:02:06 verbose #2838 > │ let v33 : bool = v31 = false │
00:02:06 verbose #2839 > │ if v33 then │
00:02:06 verbose #2840 > │ failwith<unit> v32 │
00:02:06 verbose #2841 > │ let v34 : num_complex_Complex<float> = method8(v20) │
00:02:06 verbose #2842 > │ let v35 : string = "v34.im" │
00:02:06 verbose #2843 > │ let v36 : float = Fable.Core.RustInterop.emitRustExpr () v35 │
00:02:06 verbose #2844 > │ let v37 : float = v36 - 0.275 │
00:02:06 verbose #2845 > │ let v38 : float = -v37 │
00:02:06 verbose #2846 > │ let v39 : bool = v37 >= v38 │
00:02:06 verbose #2847 > │ let v40 : float = │
00:02:06 verbose #2848 > │ if v39 then │
00:02:06 verbose #2849 > │ v37 │
00:02:06 verbose #2850 > │ else │
00:02:06 verbose #2851 > │ v38 │
00:02:06 verbose #2852 > │ let v41 : string = $"%A{v40}" │
00:02:06 verbose #2853 > │ System.Console.WriteLine v41 │
00:02:06 verbose #2854 > │ let v42 : bool = v40 < 0.001 │
00:02:06 verbose #2855 > │ let v44 : bool = │
00:02:06 verbose #2856 > │ if v42 then │
00:02:06 verbose #2857 > │ true │
00:02:06 verbose #2858 > │ else │
00:02:06 verbose #2859 > │ method26(v42) │
00:02:06 verbose #2860 > │ let v45 : string = $"__expect / actual: %A{v40} / expected: %A{0.001}" │
00:02:06 verbose #2861 > │ let v46 : bool = v44 = false │
00:02:06 verbose #2862 > │ if v46 then │
00:02:06 verbose #2863 > │ failwith<unit> v45 │
00:02:06 verbose #2864 > │ and method28 () : unit = │
00:02:06 verbose #2865 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #2866 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #2867 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #2868 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #2869 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #2870 > │ let v2 : string = "py" │
00:02:06 verbose #2871 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #2872 > │ method29(v3) │
00:02:06 verbose #2873 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #2874 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #2875 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #2876 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #2877 > │ let v7 : string = "{ //" │
00:02:06 verbose #2878 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #2879 > │ let v8 : string = "__result" │
00:02:06 verbose #2880 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #2881 > │ () v8 │
00:02:06 verbose #2882 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #2883 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #2884 > │ () │
00:02:06 verbose #2885 > │ and method32 () : UH0 = │
00:02:06 verbose #2886 > │ let v0 : UH0 = UH0_0 │
00:02:06 verbose #2887 > │ let v1 : UH0 = UH0_1(-40.0, v0) │
00:02:06 verbose #2888 > │ let v2 : UH0 = UH0_1(-38.0, v1) │
00:02:06 verbose #2889 > │ let v3 : UH0 = UH0_1(-36.0, v2) │
00:02:06 verbose #2890 > │ let v4 : UH0 = UH0_1(-34.0, v3) │
00:02:06 verbose #2891 > │ let v5 : UH0 = UH0_1(-32.0, v4) │
00:02:06 verbose #2892 > │ let v6 : UH0 = UH0_1(-30.0, v5) │
00:02:06 verbose #2893 > │ let v7 : UH0 = UH0_1(-28.0, v6) │
00:02:06 verbose #2894 > │ let v8 : UH0 = UH0_1(-26.0, v7) │
00:02:06 verbose #2895 > │ let v9 : UH0 = UH0_1(-24.0, v8) │
00:02:06 verbose #2896 > │ let v10 : UH0 = UH0_1(-22.0, v9) │
00:02:06 verbose #2897 > │ let v11 : UH0 = UH0_1(-20.0, v10) │
00:02:06 verbose #2898 > │ let v12 : UH0 = UH0_1(-18.0, v11) │
00:02:06 verbose #2899 > │ let v13 : UH0 = UH0_1(-16.0, v12) │
00:02:06 verbose #2900 > │ let v14 : UH0 = UH0_1(-14.0, v13) │
00:02:06 verbose #2901 > │ let v15 : UH0 = UH0_1(-12.0, v14) │
00:02:06 verbose #2902 > │ let v16 : UH0 = UH0_1(-10.0, v15) │
00:02:06 verbose #2903 > │ let v17 : UH0 = UH0_1(-8.0, v16) │
00:02:06 verbose #2904 > │ let v18 : UH0 = UH0_1(-6.0, v17) │
00:02:06 verbose #2905 > │ let v19 : UH0 = UH0_1(-4.0, v18) │
00:02:06 verbose #2906 > │ UH0_1(-2.0, v19) │
00:02:06 verbose #2907 > │ and method33 (v0 : pyo3_Python, v1 : UH0) : unit = │
00:02:06 verbose #2908 > │ match v1 with │
00:02:06 verbose #2909 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:02:06 verbose #2910 > │ let v4 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2911 > │ let v5 : num_complex_Complex<float> = │
00:02:06 verbose #2912 > │ Fable.Core.RustInterop.emitRustExpr struct (v2, 0.0) v4 │
00:02:06 verbose #2913 > │ let v6 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #2914 > │ let v7 : num_complex_Complex<float> = method3(v5) │
00:02:06 verbose #2915 > │ let v8 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #2916 > │ method4(v0, v6, v7) │
00:02:06 verbose #2917 > │ let v9 : num_complex_Complex<float> = method19(v0, v5) │
00:02:06 verbose #2918 > │ let v10 : string = "v8.ok()" │
00:02:06 verbose #2919 > │ let v11 : num_complex_Complex<float> option = │
00:02:06 verbose #2920 > │ Fable.Core.RustInterop.emitRustExpr () v10 │
00:02:06 verbose #2921 > │ let v12 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #2922 > │ let v13 : US0 = US0_1 │
00:02:06 verbose #2923 > │ let v14 : US0 = v11 |> Option.map v12 |> Option.defaultValue v13 │
00:02:06 verbose #2924 > │ let v15 : string = "f64::NAN" │
00:02:06 verbose #2925 > │ let v16 : float = Fable.Core.RustInterop.emitRustExpr () v15 │
00:02:06 verbose #2926 > │ let v17 : string = "f64::NAN" │
00:02:06 verbose #2927 > │ let v18 : float = Fable.Core.RustInterop.emitRustExpr () v17 │
00:02:06 verbose #2928 > │ let v19 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2929 > │ let v20 : num_complex_Complex<float> = │
00:02:06 verbose #2930 > │ Fable.Core.RustInterop.emitRustExpr struct (v16, v18) v19 │
00:02:06 verbose #2931 > │ let v23 : num_complex_Complex<float> = │
00:02:06 verbose #2932 > │ match v14 with │
00:02:06 verbose #2933 > │ | US0_1 -> (* None *) │
00:02:06 verbose #2934 > │ v20 │
00:02:06 verbose #2935 > │ | US0_0(v21) -> (* Some *) │
00:02:06 verbose #2936 > │ v21 │
00:02:06 verbose #2937 > │ let v24 : num_complex_Complex<float> = method7(v23) │
00:02:06 verbose #2938 > │ let v25 : string = "v24.re" │
00:02:06 verbose #2939 > │ let v26 : float = Fable.Core.RustInterop.emitRustExpr () v25 │
00:02:06 verbose #2940 > │ let v27 : string = $"%A{v26}" │
00:02:06 verbose #2941 > │ System.Console.WriteLine v27 │
00:02:06 verbose #2942 > │ let v28 : bool = v26 = 0.0 │
00:02:06 verbose #2943 > │ let v30 : bool = │
00:02:06 verbose #2944 > │ if v28 then │
00:02:06 verbose #2945 > │ true │
00:02:06 verbose #2946 > │ else │
00:02:06 verbose #2947 > │ method26(v28) │
00:02:06 verbose #2948 > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{0.0}" │
00:02:06 verbose #2949 > │ let v32 : bool = v30 = false │
00:02:06 verbose #2950 > │ if v32 then │
00:02:06 verbose #2951 > │ failwith<unit> v31 │
00:02:06 verbose #2952 > │ let v33 : num_complex_Complex<float> = method8(v23) │
00:02:06 verbose #2953 > │ let v34 : string = "v33.im" │
00:02:06 verbose #2954 > │ let v35 : float = Fable.Core.RustInterop.emitRustExpr () v34 │
00:02:06 verbose #2955 > │ let v36 : string = $"%A{v35}" │
00:02:06 verbose #2956 > │ System.Console.WriteLine v36 │
00:02:06 verbose #2957 > │ let v37 : bool = v35 = 0.0 │
00:02:06 verbose #2958 > │ let v39 : bool = │
00:02:06 verbose #2959 > │ if v37 then │
00:02:06 verbose #2960 > │ true │
00:02:06 verbose #2961 > │ else │
00:02:06 verbose #2962 > │ method26(v37) │
00:02:06 verbose #2963 > │ let v40 : string = $"__expect / actual: %A{v35} / expected: %A{0.0}" │
00:02:06 verbose #2964 > │ let v41 : bool = v39 = false │
00:02:06 verbose #2965 > │ if v41 then │
00:02:06 verbose #2966 > │ failwith<unit> v40 │
00:02:06 verbose #2967 > │ method33(v0, v3) │
00:02:06 verbose #2968 > │ | UH0_0 -> (* Nil *) │
00:02:06 verbose #2969 > │ () │
00:02:06 verbose #2970 > │ and method31 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #2971 > │ let v1 : UH0 = method32() │
00:02:06 verbose #2972 > │ method33(v0, v1) │
00:02:06 verbose #2973 > │ and method30 () : unit = │
00:02:06 verbose #2974 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #2975 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #2976 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #2977 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #2978 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #2979 > │ let v2 : string = "py" │
00:02:06 verbose #2980 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #2981 > │ method31(v3) │
00:02:06 verbose #2982 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #2983 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #2984 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #2985 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #2986 > │ let v7 : string = "{ //" │
00:02:06 verbose #2987 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #2988 > │ let v8 : string = "__result" │
00:02:06 verbose #2989 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #2990 > │ () v8 │
00:02:06 verbose #2991 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #2992 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #2993 > │ () │
00:02:06 verbose #2994 > │ and method35 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #2995 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2996 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #2997 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v1 │
00:02:06 verbose #2998 > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #2999 > │ let v4 : num_complex_Complex<float> = │
00:02:06 verbose #3000 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 21.02204) v3 │
00:02:06 verbose #3001 > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3002 > │ let v6 : num_complex_Complex<float> = │
00:02:06 verbose #3003 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 25.010857) v5 │
00:02:06 verbose #3004 > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3005 > │ let v8 : num_complex_Complex<float> = │
00:02:06 verbose #3006 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 30.424876) v7 │
00:02:06 verbose #3007 > │ let v9 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3008 > │ let v10 : num_complex_Complex<float> = │
00:02:06 verbose #3009 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 32.935062) v9 │
00:02:06 verbose #3010 > │ let v11 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3011 > │ let v12 : num_complex_Complex<float> = │
00:02:06 verbose #3012 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 37.586178) v11 │
00:02:06 verbose #3013 > │ let v13 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8; v10; v12|] │
00:02:06 verbose #3014 > │ let v14 : int32 = v13.Length │
00:02:06 verbose #3015 > │ let v15 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #3016 > │ while method2(v14, v15) do │
00:02:06 verbose #3017 > │ let v17 : int32 = v15.l0 │
00:02:06 verbose #3018 > │ let v18 : num_complex_Complex<float> = v13.[int v17] │
00:02:06 verbose #3019 > │ let v19 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3020 > │ let v20 : num_complex_Complex<float> = method3(v18) │
00:02:06 verbose #3021 > │ let v21 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3022 > │ method4(v0, v19, v20) │
00:02:06 verbose #3023 > │ let v22 : num_complex_Complex<float> = method19(v0, v18) │
00:02:06 verbose #3024 > │ let v23 : string = "v21.ok()" │
00:02:06 verbose #3025 > │ let v24 : num_complex_Complex<float> option = │
00:02:06 verbose #3026 > │ Fable.Core.RustInterop.emitRustExpr () v23 │
00:02:06 verbose #3027 > │ let v25 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3028 > │ let v26 : US0 = US0_1 │
00:02:06 verbose #3029 > │ let v27 : US0 = v24 |> Option.map v25 |> Option.defaultValue v26 │
00:02:06 verbose #3030 > │ let v28 : string = "f64::NAN" │
00:02:06 verbose #3031 > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:06 verbose #3032 > │ let v30 : string = "f64::NAN" │
00:02:06 verbose #3033 > │ let v31 : float = Fable.Core.RustInterop.emitRustExpr () v30 │
00:02:06 verbose #3034 > │ let v32 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3035 > │ let v33 : num_complex_Complex<float> = │
00:02:06 verbose #3036 > │ Fable.Core.RustInterop.emitRustExpr struct (v29, v31) v32 │
00:02:06 verbose #3037 > │ let v36 : num_complex_Complex<float> = │
00:02:06 verbose #3038 > │ match v27 with │
00:02:06 verbose #3039 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3040 > │ v33 │
00:02:06 verbose #3041 > │ | US0_0(v34) -> (* Some *) │
00:02:06 verbose #3042 > │ v34 │
00:02:06 verbose #3043 > │ let v37 : num_complex_Complex<float> = method7(v36) │
00:02:06 verbose #3044 > │ let v38 : string = "v37.re" │
00:02:06 verbose #3045 > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:06 verbose #3046 > │ let v40 : float = -v39 │
00:02:06 verbose #3047 > │ let v41 : bool = v39 >= v40 │
00:02:06 verbose #3048 > │ let v42 : float = │
00:02:06 verbose #3049 > │ if v41 then │
00:02:06 verbose #3050 > │ v39 │
00:02:06 verbose #3051 > │ else │
00:02:06 verbose #3052 > │ v40 │
00:02:06 verbose #3053 > │ let v43 : string = $"%A{v42}" │
00:02:06 verbose #3054 > │ System.Console.WriteLine v43 │
00:02:06 verbose #3055 > │ let v44 : bool = v42 < 0.0001 │
00:02:06 verbose #3056 > │ let v46 : bool = │
00:02:06 verbose #3057 > │ if v44 then │
00:02:06 verbose #3058 > │ true │
00:02:06 verbose #3059 > │ else │
00:02:06 verbose #3060 > │ method26(v44) │
00:02:06 verbose #3061 > │ let v47 : string = $"__expect / actual: %A{v42} / expected: │
00:02:06 verbose #3062 > │ %A{0.0001}" │
00:02:06 verbose #3063 > │ let v48 : bool = v46 = false │
00:02:06 verbose #3064 > │ if v48 then │
00:02:06 verbose #3065 > │ failwith<unit> v47 │
00:02:06 verbose #3066 > │ let v49 : num_complex_Complex<float> = method8(v36) │
00:02:06 verbose #3067 > │ let v50 : string = "v49.im" │
00:02:06 verbose #3068 > │ let v51 : float = Fable.Core.RustInterop.emitRustExpr () v50 │
00:02:06 verbose #3069 > │ let v52 : float = -v51 │
00:02:06 verbose #3070 > │ let v53 : bool = v51 >= v52 │
00:02:06 verbose #3071 > │ let v54 : float = │
00:02:06 verbose #3072 > │ if v53 then │
00:02:06 verbose #3073 > │ v51 │
00:02:06 verbose #3074 > │ else │
00:02:06 verbose #3075 > │ v52 │
00:02:06 verbose #3076 > │ let v55 : string = $"%A{v54}" │
00:02:06 verbose #3077 > │ System.Console.WriteLine v55 │
00:02:06 verbose #3078 > │ let v56 : bool = v54 < 0.0001 │
00:02:06 verbose #3079 > │ let v58 : bool = │
00:02:06 verbose #3080 > │ if v56 then │
00:02:06 verbose #3081 > │ true │
00:02:06 verbose #3082 > │ else │
00:02:06 verbose #3083 > │ method26(v56) │
00:02:06 verbose #3084 > │ let v59 : string = $"__expect / actual: %A{v54} / expected: │
00:02:06 verbose #3085 > │ %A{0.0001}" │
00:02:06 verbose #3086 > │ let v60 : bool = v58 = false │
00:02:06 verbose #3087 > │ if v60 then │
00:02:06 verbose #3088 > │ failwith<unit> v59 │
00:02:06 verbose #3089 > │ let v61 : int32 = v17 + 1 │
00:02:06 verbose #3090 > │ v15.l0 <- v61 │
00:02:06 verbose #3091 > │ () │
00:02:06 verbose #3092 > │ () │
00:02:06 verbose #3093 > │ and method34 () : unit = │
00:02:06 verbose #3094 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3095 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3096 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3097 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3098 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3099 > │ let v2 : string = "py" │
00:02:06 verbose #3100 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3101 > │ method35(v3) │
00:02:06 verbose #3102 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3103 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3104 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3105 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3106 > │ let v7 : string = "{ //" │
00:02:06 verbose #3107 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3108 > │ let v8 : string = "__result" │
00:02:06 verbose #3109 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3110 > │ () v8 │
00:02:06 verbose #3111 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3112 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3113 > │ () │
00:02:06 verbose #3114 > │ and method37 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3115 > │ let v1 : (float []) = [|2.0; 3.0; 4.0; 5.0; 10.0; 20.0; 50.0|] │
00:02:06 verbose #3116 > │ let v2 : int32 = v1.Length │
00:02:06 verbose #3117 > │ let v3 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #3118 > │ while method2(v2, v3) do │
00:02:06 verbose #3119 > │ let v5 : int32 = v3.l0 │
00:02:06 verbose #3120 > │ let v6 : float = v1.[int v5] │
00:02:06 verbose #3121 > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3122 > │ let v8 : num_complex_Complex<float> = │
00:02:06 verbose #3123 > │ Fable.Core.RustInterop.emitRustExpr struct (v6, 0.0) v7 │
00:02:06 verbose #3124 > │ let v9 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3125 > │ let v10 : num_complex_Complex<float> = method3(v8) │
00:02:06 verbose #3126 > │ let v11 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3127 > │ method4(v0, v9, v10) │
00:02:06 verbose #3128 > │ let v12 : num_complex_Complex<float> = method19(v0, v8) │
00:02:06 verbose #3129 > │ let v13 : string = "v11.ok()" │
00:02:06 verbose #3130 > │ let v14 : num_complex_Complex<float> option = │
00:02:06 verbose #3131 > │ Fable.Core.RustInterop.emitRustExpr () v13 │
00:02:06 verbose #3132 > │ let v15 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3133 > │ let v16 : US0 = US0_1 │
00:02:06 verbose #3134 > │ let v17 : US0 = v14 |> Option.map v15 |> Option.defaultValue v16 │
00:02:06 verbose #3135 > │ let v18 : string = "f64::NAN" │
00:02:06 verbose #3136 > │ let v19 : float = Fable.Core.RustInterop.emitRustExpr () v18 │
00:02:06 verbose #3137 > │ let v20 : string = "f64::NAN" │
00:02:06 verbose #3138 > │ let v21 : float = Fable.Core.RustInterop.emitRustExpr () v20 │
00:02:06 verbose #3139 > │ let v22 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3140 > │ let v23 : num_complex_Complex<float> = │
00:02:06 verbose #3141 > │ Fable.Core.RustInterop.emitRustExpr struct (v19, v21) v22 │
00:02:06 verbose #3142 > │ let v26 : num_complex_Complex<float> = │
00:02:06 verbose #3143 > │ match v17 with │
00:02:06 verbose #3144 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3145 > │ v23 │
00:02:06 verbose #3146 > │ | US0_0(v24) -> (* Some *) │
00:02:06 verbose #3147 > │ v24 │
00:02:06 verbose #3148 > │ let v27 : num_complex_Complex<float> = method7(v26) │
00:02:06 verbose #3149 > │ let v28 : string = "v27.re" │
00:02:06 verbose #3150 > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:06 verbose #3151 > │ let v30 : string = $"%A{v29}" │
00:02:06 verbose #3152 > │ System.Console.WriteLine v30 │
00:02:06 verbose #3153 > │ let v31 : bool = v29 > 0.0 │
00:02:06 verbose #3154 > │ let v33 : bool = │
00:02:06 verbose #3155 > │ if v31 then │
00:02:06 verbose #3156 > │ true │
00:02:06 verbose #3157 > │ else │
00:02:06 verbose #3158 > │ method26(v31) │
00:02:06 verbose #3159 > │ let v34 : string = $"__expect / actual: %A{v29} / expected: %A{0.0}" │
00:02:06 verbose #3160 > │ let v35 : bool = v33 = false │
00:02:06 verbose #3161 > │ if v35 then │
00:02:06 verbose #3162 > │ failwith<unit> v34 │
00:02:06 verbose #3163 > │ let v36 : num_complex_Complex<float> = method8(v26) │
00:02:06 verbose #3164 > │ let v37 : string = "v36.im" │
00:02:06 verbose #3165 > │ let v38 : float = Fable.Core.RustInterop.emitRustExpr () v37 │
00:02:06 verbose #3166 > │ let v39 : string = $"%A{v38}" │
00:02:06 verbose #3167 > │ System.Console.WriteLine v39 │
00:02:06 verbose #3168 > │ let v40 : bool = v38 = 0.0 │
00:02:06 verbose #3169 > │ let v42 : bool = │
00:02:06 verbose #3170 > │ if v40 then │
00:02:06 verbose #3171 > │ true │
00:02:06 verbose #3172 > │ else │
00:02:06 verbose #3173 > │ method26(v40) │
00:02:06 verbose #3174 > │ let v43 : string = $"__expect / actual: %A{v38} / expected: %A{0.0}" │
00:02:06 verbose #3175 > │ let v44 : bool = v42 = false │
00:02:06 verbose #3176 > │ if v44 then │
00:02:06 verbose #3177 > │ failwith<unit> v43 │
00:02:06 verbose #3178 > │ let v45 : int32 = v5 + 1 │
00:02:06 verbose #3179 > │ v3.l0 <- v45 │
00:02:06 verbose #3180 > │ () │
00:02:06 verbose #3181 > │ () │
00:02:06 verbose #3182 > │ and method36 () : unit = │
00:02:06 verbose #3183 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3184 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3185 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3186 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3187 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3188 > │ let v2 : string = "py" │
00:02:06 verbose #3189 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3190 > │ method37(v3) │
00:02:06 verbose #3191 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3192 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3193 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3194 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3195 > │ let v7 : string = "{ //" │
00:02:06 verbose #3196 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3197 > │ let v8 : string = "__result" │
00:02:06 verbose #3198 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3199 > │ () v8 │
00:02:06 verbose #3200 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3201 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3202 > │ () │
00:02:06 verbose #3203 > │ and method39 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3204 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3205 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #3206 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v1 │
00:02:06 verbose #3207 > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3208 > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:06 verbose #3209 > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3210 > │ method4(v0, v3, v4) │
00:02:06 verbose #3211 > │ let v6 : num_complex_Complex<float> = method19(v0, v2) │
00:02:06 verbose #3212 > │ let v7 : string = "v5.ok()" │
00:02:06 verbose #3213 > │ let v8 : num_complex_Complex<float> option = │
00:02:06 verbose #3214 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3215 > │ let v9 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3216 > │ let v10 : US0 = US0_1 │
00:02:06 verbose #3217 > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:06 verbose #3218 > │ let v12 : string = "f64::NAN" │
00:02:06 verbose #3219 > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:06 verbose #3220 > │ let v14 : string = "f64::NAN" │
00:02:06 verbose #3221 > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:06 verbose #3222 > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3223 > │ let v17 : num_complex_Complex<float> = │
00:02:06 verbose #3224 > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:06 verbose #3225 > │ let v20 : num_complex_Complex<float> = │
00:02:06 verbose #3226 > │ match v11 with │
00:02:06 verbose #3227 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3228 > │ v17 │
00:02:06 verbose #3229 > │ | US0_0(v18) -> (* Some *) │
00:02:06 verbose #3230 > │ v18 │
00:02:06 verbose #3231 > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:02:06 verbose #3232 > │ let v22 : string = "v21.re" │
00:02:06 verbose #3233 > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:06 verbose #3234 > │ let v24 : string = $"%A{v23}" │
00:02:06 verbose #3235 > │ System.Console.WriteLine v24 │
00:02:06 verbose #3236 > │ let v25 : bool = v23 = infinity │
00:02:06 verbose #3237 > │ let v27 : bool = │
00:02:06 verbose #3238 > │ if v25 then │
00:02:06 verbose #3239 > │ true │
00:02:06 verbose #3240 > │ else │
00:02:06 verbose #3241 > │ method26(v25) │
00:02:06 verbose #3242 > │ let v28 : string = $"__expect / actual: %A{v23} / expected: │
00:02:06 verbose #3243 > │ %A{infinity}" │
00:02:06 verbose #3244 > │ let v29 : bool = v27 = false │
00:02:06 verbose #3245 > │ if v29 then │
00:02:06 verbose #3246 > │ failwith<unit> v28 │
00:02:06 verbose #3247 > │ let v30 : num_complex_Complex<float> = method8(v20) │
00:02:06 verbose #3248 > │ let v31 : string = "v30.im" │
00:02:06 verbose #3249 > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:06 verbose #3250 > │ let v33 : string = $"%A{v32}" │
00:02:06 verbose #3251 > │ System.Console.WriteLine v33 │
00:02:06 verbose #3252 > │ let v34 : bool = v32 = 0.0 │
00:02:06 verbose #3253 > │ let v36 : bool = │
00:02:06 verbose #3254 > │ if v34 then │
00:02:06 verbose #3255 > │ true │
00:02:06 verbose #3256 > │ else │
00:02:06 verbose #3257 > │ method26(v34) │
00:02:06 verbose #3258 > │ let v37 : string = $"__expect / actual: %A{v32} / expected: %A{0.0}" │
00:02:06 verbose #3259 > │ let v38 : bool = v36 = false │
00:02:06 verbose #3260 > │ if v38 then │
00:02:06 verbose #3261 > │ failwith<unit> v37 │
00:02:06 verbose #3262 > │ and method38 () : unit = │
00:02:06 verbose #3263 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3264 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3265 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3266 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3267 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3268 > │ let v2 : string = "py" │
00:02:06 verbose #3269 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3270 > │ method39(v3) │
00:02:06 verbose #3271 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3272 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3273 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3274 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3275 > │ let v7 : string = "{ //" │
00:02:06 verbose #3276 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3277 > │ let v8 : string = "__result" │
00:02:06 verbose #3278 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3279 > │ () v8 │
00:02:06 verbose #3280 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3281 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3282 > │ () │
00:02:06 verbose #3283 > │ and method41 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3284 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3285 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #3286 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 10.0) v1 │
00:02:06 verbose #3287 > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3288 > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:06 verbose #3289 > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3290 > │ method4(v0, v3, v4) │
00:02:06 verbose #3291 > │ let v6 : num_complex_Complex<float> = method19(v0, v2) │
00:02:06 verbose #3292 > │ let v7 : string = "v5.ok()" │
00:02:06 verbose #3293 > │ let v8 : num_complex_Complex<float> option = │
00:02:06 verbose #3294 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3295 > │ let v9 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3296 > │ let v10 : US0 = US0_1 │
00:02:06 verbose #3297 > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:06 verbose #3298 > │ let v12 : string = "f64::NAN" │
00:02:06 verbose #3299 > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:06 verbose #3300 > │ let v14 : string = "f64::NAN" │
00:02:06 verbose #3301 > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:06 verbose #3302 > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3303 > │ let v17 : num_complex_Complex<float> = │
00:02:06 verbose #3304 > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:06 verbose #3305 > │ let v20 : num_complex_Complex<float> = │
00:02:06 verbose #3306 > │ match v11 with │
00:02:06 verbose #3307 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3308 > │ v17 │
00:02:06 verbose #3309 > │ | US0_0(v18) -> (* Some *) │
00:02:06 verbose #3310 > │ v18 │
00:02:06 verbose #3311 > │ let v21 : num_complex_Complex<float> = method7(v2) │
00:02:06 verbose #3312 > │ let v22 : string = "v21.re" │
00:02:06 verbose #3313 > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:06 verbose #3314 > │ let v24 : num_complex_Complex<float> = method8(v2) │
00:02:06 verbose #3315 > │ let v25 : string = "v24.im" │
00:02:06 verbose #3316 > │ let v26 : float = Fable.Core.RustInterop.emitRustExpr () v25 │
00:02:06 verbose #3317 > │ let v27 : float = -v26 │
00:02:06 verbose #3318 > │ let v28 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3319 > │ let v29 : num_complex_Complex<float> = │
00:02:06 verbose #3320 > │ Fable.Core.RustInterop.emitRustExpr struct (v23, v27) v28 │
00:02:06 verbose #3321 > │ let v30 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3322 > │ let v31 : num_complex_Complex<float> = method3(v29) │
00:02:06 verbose #3323 > │ let v32 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3324 > │ method4(v0, v30, v31) │
00:02:06 verbose #3325 > │ let v33 : num_complex_Complex<float> = method19(v0, v29) │
00:02:06 verbose #3326 > │ let v34 : string = "v32.ok()" │
00:02:06 verbose #3327 > │ let v35 : num_complex_Complex<float> option = │
00:02:06 verbose #3328 > │ Fable.Core.RustInterop.emitRustExpr () v34 │
00:02:06 verbose #3329 > │ let v36 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3330 > │ let v37 : US0 = US0_1 │
00:02:06 verbose #3331 > │ let v38 : US0 = v35 |> Option.map v36 |> Option.defaultValue v37 │
00:02:06 verbose #3332 > │ let v39 : string = "f64::NAN" │
00:02:06 verbose #3333 > │ let v40 : float = Fable.Core.RustInterop.emitRustExpr () v39 │
00:02:06 verbose #3334 > │ let v41 : string = "f64::NAN" │
00:02:06 verbose #3335 > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:06 verbose #3336 > │ let v43 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3337 > │ let v44 : num_complex_Complex<float> = │
00:02:06 verbose #3338 > │ Fable.Core.RustInterop.emitRustExpr struct (v40, v42) v43 │
00:02:06 verbose #3339 > │ let v47 : num_complex_Complex<float> = │
00:02:06 verbose #3340 > │ match v38 with │
00:02:06 verbose #3341 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3342 > │ v44 │
00:02:06 verbose #3343 > │ | US0_0(v45) -> (* Some *) │
00:02:06 verbose #3344 > │ v45 │
00:02:06 verbose #3345 > │ let v48 : string = "v47.conj()" │
00:02:06 verbose #3346 > │ let v49 : num_complex_Complex<float> = │
00:02:06 verbose #3347 > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:06 verbose #3348 > │ let v50 : num_complex_Complex<float> = method7(v20) │
00:02:06 verbose #3349 > │ let v51 : string = "v50.re" │
00:02:06 verbose #3350 > │ let v52 : float = Fable.Core.RustInterop.emitRustExpr () v51 │
00:02:06 verbose #3351 > │ let v53 : num_complex_Complex<float> = method7(v49) │
00:02:06 verbose #3352 > │ let v54 : string = "v53.re" │
00:02:06 verbose #3353 > │ let v55 : float = Fable.Core.RustInterop.emitRustExpr () v54 │
00:02:06 verbose #3354 > │ let v56 : string = $"%A{v52}" │
00:02:06 verbose #3355 > │ System.Console.WriteLine v56 │
00:02:06 verbose #3356 > │ let v57 : bool = v52 = v55 │
00:02:06 verbose #3357 > │ let v59 : bool = │
00:02:06 verbose #3358 > │ if v57 then │
00:02:06 verbose #3359 > │ true │
00:02:06 verbose #3360 > │ else │
00:02:06 verbose #3361 > │ method26(v57) │
00:02:06 verbose #3362 > │ let v60 : string = $"__expect / actual: %A{v52} / expected: %A{v55}" │
00:02:06 verbose #3363 > │ let v61 : bool = v59 = false │
00:02:06 verbose #3364 > │ if v61 then │
00:02:06 verbose #3365 > │ failwith<unit> v60 │
00:02:06 verbose #3366 > │ let v62 : num_complex_Complex<float> = method8(v20) │
00:02:06 verbose #3367 > │ let v63 : string = "v62.im" │
00:02:06 verbose #3368 > │ let v64 : float = Fable.Core.RustInterop.emitRustExpr () v63 │
00:02:06 verbose #3369 > │ let v65 : num_complex_Complex<float> = method8(v49) │
00:02:06 verbose #3370 > │ let v66 : string = "v65.im" │
00:02:06 verbose #3371 > │ let v67 : float = Fable.Core.RustInterop.emitRustExpr () v66 │
00:02:06 verbose #3372 > │ let v68 : string = $"%A{v64}" │
00:02:06 verbose #3373 > │ System.Console.WriteLine v68 │
00:02:06 verbose #3374 > │ let v69 : bool = v64 = v67 │
00:02:06 verbose #3375 > │ let v71 : bool = │
00:02:06 verbose #3376 > │ if v69 then │
00:02:06 verbose #3377 > │ true │
00:02:06 verbose #3378 > │ else │
00:02:06 verbose #3379 > │ method26(v69) │
00:02:06 verbose #3380 > │ let v72 : string = $"__expect / actual: %A{v64} / expected: %A{v67}" │
00:02:06 verbose #3381 > │ let v73 : bool = v71 = false │
00:02:06 verbose #3382 > │ if v73 then │
00:02:06 verbose #3383 > │ failwith<unit> v72 │
00:02:06 verbose #3384 > │ and method40 () : unit = │
00:02:06 verbose #3385 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3386 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3387 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3388 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3389 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3390 > │ let v2 : string = "py" │
00:02:06 verbose #3391 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3392 > │ method41(v3) │
00:02:06 verbose #3393 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3394 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3395 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3396 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3397 > │ let v7 : string = "{ //" │
00:02:06 verbose #3398 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3399 > │ let v8 : string = "__result" │
00:02:06 verbose #3400 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3401 > │ () v8 │
00:02:06 verbose #3402 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3403 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3404 > │ () │
00:02:06 verbose #3405 > │ and method43 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3406 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3407 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #3408 > │ Fable.Core.RustInterop.emitRustExpr struct (0.01, 0.01) v1 │
00:02:06 verbose #3409 > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3410 > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:06 verbose #3411 > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3412 > │ method4(v0, v3, v4) │
00:02:06 verbose #3413 > │ let v6 : num_complex_Complex<float> = method19(v0, v2) │
00:02:06 verbose #3414 > │ let v7 : string = "v5.ok()" │
00:02:06 verbose #3415 > │ let v8 : num_complex_Complex<float> option = │
00:02:06 verbose #3416 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3417 > │ let v9 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3418 > │ let v10 : US0 = US0_1 │
00:02:06 verbose #3419 > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:06 verbose #3420 > │ let v12 : string = "f64::NAN" │
00:02:06 verbose #3421 > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:06 verbose #3422 > │ let v14 : string = "f64::NAN" │
00:02:06 verbose #3423 > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:06 verbose #3424 > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3425 > │ let v17 : num_complex_Complex<float> = │
00:02:06 verbose #3426 > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:06 verbose #3427 > │ let v20 : num_complex_Complex<float> = │
00:02:06 verbose #3428 > │ match v11 with │
00:02:06 verbose #3429 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3430 > │ v17 │
00:02:06 verbose #3431 > │ | US0_0(v18) -> (* Some *) │
00:02:06 verbose #3432 > │ v18 │
00:02:06 verbose #3433 > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:02:06 verbose #3434 > │ let v22 : string = "v21.re" │
00:02:06 verbose #3435 > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:06 verbose #3436 > │ let v24 : string = $"%A{v23}" │
00:02:06 verbose #3437 > │ System.Console.WriteLine v24 │
00:02:06 verbose #3438 > │ let v25 : bool = v23 < infinity │
00:02:06 verbose #3439 > │ let v27 : bool = │
00:02:06 verbose #3440 > │ if v25 then │
00:02:06 verbose #3441 > │ true │
00:02:06 verbose #3442 > │ else │
00:02:06 verbose #3443 > │ method26(v25) │
00:02:06 verbose #3444 > │ let v28 : string = $"__expect / actual: %A{v23} / expected: │
00:02:06 verbose #3445 > │ %A{infinity}" │
00:02:06 verbose #3446 > │ let v29 : bool = v27 = false │
00:02:06 verbose #3447 > │ if v29 then │
00:02:06 verbose #3448 > │ failwith<unit> v28 │
00:02:06 verbose #3449 > │ let v30 : num_complex_Complex<float> = method8(v20) │
00:02:06 verbose #3450 > │ let v31 : string = "v30.im" │
00:02:06 verbose #3451 > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:06 verbose #3452 > │ let v33 : string = $"%A{v32}" │
00:02:06 verbose #3453 > │ System.Console.WriteLine v33 │
00:02:06 verbose #3454 > │ let v34 : bool = v32 < infinity │
00:02:06 verbose #3455 > │ let v36 : bool = │
00:02:06 verbose #3456 > │ if v34 then │
00:02:06 verbose #3457 > │ true │
00:02:06 verbose #3458 > │ else │
00:02:06 verbose #3459 > │ method26(v34) │
00:02:06 verbose #3460 > │ let v37 : string = $"__expect / actual: %A{v32} / expected: │
00:02:06 verbose #3461 > │ %A{infinity}" │
00:02:06 verbose #3462 > │ let v38 : bool = v36 = false │
00:02:06 verbose #3463 > │ if v38 then │
00:02:06 verbose #3464 > │ failwith<unit> v37 │
00:02:06 verbose #3465 > │ and method42 () : unit = │
00:02:06 verbose #3466 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3467 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3468 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3469 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3470 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3471 > │ let v2 : string = "py" │
00:02:06 verbose #3472 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3473 > │ method43(v3) │
00:02:06 verbose #3474 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3475 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3476 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3477 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3478 > │ let v7 : string = "{ //" │
00:02:06 verbose #3479 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3480 > │ let v8 : string = "__result" │
00:02:06 verbose #3481 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3482 > │ () v8 │
00:02:06 verbose #3483 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3484 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3485 > │ () │
00:02:06 verbose #3486 > │ and method46 () : (float []) = │
00:02:06 verbose #3487 > │ let v0 : (float []) = [|10.0; 20.0; 30.0; 40.0; 50.0; 60.0; 70.0; 80.0; │
00:02:06 verbose #3488 > │ 90.0; 100.0|] │
00:02:06 verbose #3489 > │ v0 │
00:02:06 verbose #3490 > │ and method47 (v0 : bool) : bool = │
00:02:06 verbose #3491 > │ let v1 : bool = v0 = false │
00:02:06 verbose #3492 > │ v1 │
00:02:06 verbose #3493 > │ and method45 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3494 > │ let v1 : (float []) = method46() │
00:02:06 verbose #3495 > │ let v2 : int32 = v1.Length │
00:02:06 verbose #3496 > │ let v3 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #3497 > │ while method2(v2, v3) do │
00:02:06 verbose #3498 > │ let v5 : int32 = v3.l0 │
00:02:06 verbose #3499 > │ let v6 : float = v1.[int v5] │
00:02:06 verbose #3500 > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3501 > │ let v8 : num_complex_Complex<float> = │
00:02:06 verbose #3502 > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, v6) v7 │
00:02:06 verbose #3503 > │ let v9 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3504 > │ let v10 : num_complex_Complex<float> = method3(v8) │
00:02:06 verbose #3505 > │ let v11 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3506 > │ method4(v0, v9, v10) │
00:02:06 verbose #3507 > │ let v12 : num_complex_Complex<float> = method19(v0, v8) │
00:02:06 verbose #3508 > │ let v13 : string = "v11.ok()" │
00:02:06 verbose #3509 > │ let v14 : num_complex_Complex<float> option = │
00:02:06 verbose #3510 > │ Fable.Core.RustInterop.emitRustExpr () v13 │
00:02:06 verbose #3511 > │ let v15 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3512 > │ let v16 : US0 = US0_1 │
00:02:06 verbose #3513 > │ let v17 : US0 = v14 |> Option.map v15 |> Option.defaultValue v16 │
00:02:06 verbose #3514 > │ let v18 : string = "f64::NAN" │
00:02:06 verbose #3515 > │ let v19 : float = Fable.Core.RustInterop.emitRustExpr () v18 │
00:02:06 verbose #3516 > │ let v20 : string = "f64::NAN" │
00:02:06 verbose #3517 > │ let v21 : float = Fable.Core.RustInterop.emitRustExpr () v20 │
00:02:06 verbose #3518 > │ let v22 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3519 > │ let v23 : num_complex_Complex<float> = │
00:02:06 verbose #3520 > │ Fable.Core.RustInterop.emitRustExpr struct (v19, v21) v22 │
00:02:06 verbose #3521 > │ let v26 : num_complex_Complex<float> = │
00:02:06 verbose #3522 > │ match v17 with │
00:02:06 verbose #3523 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3524 > │ v23 │
00:02:06 verbose #3525 > │ | US0_0(v24) -> (* Some *) │
00:02:06 verbose #3526 > │ v24 │
00:02:06 verbose #3527 > │ let v27 : num_complex_Complex<float> = method7(v26) │
00:02:06 verbose #3528 > │ let v28 : string = "v27.re" │
00:02:06 verbose #3529 > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:06 verbose #3530 > │ let v30 : string = $"%A{v29}" │
00:02:06 verbose #3531 > │ System.Console.WriteLine v30 │
00:02:06 verbose #3532 > │ let v31 : bool = v29 = 0.0 │
00:02:06 verbose #3533 > │ let v32 : bool = method47(v31) │
00:02:06 verbose #3534 > │ let v34 : bool = │
00:02:06 verbose #3535 > │ if v32 then │
00:02:06 verbose #3536 > │ true │
00:02:06 verbose #3537 > │ else │
00:02:06 verbose #3538 > │ method26(v32) │
00:02:06 verbose #3539 > │ let v35 : string = $"__expect / actual: %A{v29} / expected: %A{0.0}" │
00:02:06 verbose #3540 > │ let v36 : bool = v34 = false │
00:02:06 verbose #3541 > │ if v36 then │
00:02:06 verbose #3542 > │ failwith<unit> v35 │
00:02:06 verbose #3543 > │ let v37 : num_complex_Complex<float> = method8(v26) │
00:02:06 verbose #3544 > │ let v38 : string = "v37.im" │
00:02:06 verbose #3545 > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:06 verbose #3546 > │ let v40 : string = $"%A{v39}" │
00:02:06 verbose #3547 > │ System.Console.WriteLine v40 │
00:02:06 verbose #3548 > │ let v41 : bool = v39 = 0.0 │
00:02:06 verbose #3549 > │ let v42 : bool = method47(v41) │
00:02:06 verbose #3550 > │ let v44 : bool = │
00:02:06 verbose #3551 > │ if v42 then │
00:02:06 verbose #3552 > │ true │
00:02:06 verbose #3553 > │ else │
00:02:06 verbose #3554 > │ method26(v42) │
00:02:06 verbose #3555 > │ let v45 : string = $"__expect / actual: %A{v39} / expected: %A{0.0}" │
00:02:06 verbose #3556 > │ let v46 : bool = v44 = false │
00:02:06 verbose #3557 > │ if v46 then │
00:02:06 verbose #3558 > │ failwith<unit> v45 │
00:02:06 verbose #3559 > │ let v47 : int32 = v5 + 1 │
00:02:06 verbose #3560 > │ v3.l0 <- v47 │
00:02:06 verbose #3561 > │ () │
00:02:06 verbose #3562 > │ () │
00:02:06 verbose #3563 > │ and method44 () : unit = │
00:02:06 verbose #3564 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3565 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3566 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3567 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3568 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3569 > │ let v2 : string = "py" │
00:02:06 verbose #3570 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3571 > │ method45(v3) │
00:02:06 verbose #3572 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3573 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3574 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3575 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3576 > │ let v7 : string = "{ //" │
00:02:06 verbose #3577 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3578 > │ let v8 : string = "__result" │
00:02:06 verbose #3579 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3580 > │ () v8 │
00:02:06 verbose #3581 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3582 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3583 > │ () │
00:02:06 verbose #3584 > │ and method49 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3585 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3586 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #3587 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v1 │
00:02:06 verbose #3588 > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3589 > │ let v4 : num_complex_Complex<float> = │
00:02:06 verbose #3590 > │ Fable.Core.RustInterop.emitRustExpr struct (0.75, 20.5) v3 │
00:02:06 verbose #3591 > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3592 > │ let v6 : num_complex_Complex<float> = │
00:02:06 verbose #3593 > │ Fable.Core.RustInterop.emitRustExpr struct (1.25, 30.1) v5 │
00:02:06 verbose #3594 > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3595 > │ let v8 : num_complex_Complex<float> = │
00:02:06 verbose #3596 > │ Fable.Core.RustInterop.emitRustExpr struct (0.25, 40.0) v7 │
00:02:06 verbose #3597 > │ let v9 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3598 > │ let v10 : num_complex_Complex<float> = │
00:02:06 verbose #3599 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 50.0) v9 │
00:02:06 verbose #3600 > │ let v11 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8; v10|] │
00:02:06 verbose #3601 > │ let v12 : int32 = v11.Length │
00:02:06 verbose #3602 > │ let v13 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #3603 > │ while method2(v12, v13) do │
00:02:06 verbose #3604 > │ let v15 : int32 = v13.l0 │
00:02:06 verbose #3605 > │ let v16 : num_complex_Complex<float> = v11.[int v15] │
00:02:06 verbose #3606 > │ let v17 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3607 > │ let v18 : num_complex_Complex<float> = method3(v16) │
00:02:06 verbose #3608 > │ let v19 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3609 > │ method4(v0, v17, v18) │
00:02:06 verbose #3610 > │ let v20 : num_complex_Complex<float> = method19(v0, v16) │
00:02:06 verbose #3611 > │ let v21 : string = "v19.ok()" │
00:02:06 verbose #3612 > │ let v22 : num_complex_Complex<float> option = │
00:02:06 verbose #3613 > │ Fable.Core.RustInterop.emitRustExpr () v21 │
00:02:06 verbose #3614 > │ let v23 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3615 > │ let v24 : US0 = US0_1 │
00:02:06 verbose #3616 > │ let v25 : US0 = v22 |> Option.map v23 |> Option.defaultValue v24 │
00:02:06 verbose #3617 > │ let v26 : string = "f64::NAN" │
00:02:06 verbose #3618 > │ let v27 : float = Fable.Core.RustInterop.emitRustExpr () v26 │
00:02:06 verbose #3619 > │ let v28 : string = "f64::NAN" │
00:02:06 verbose #3620 > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:06 verbose #3621 > │ let v30 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3622 > │ let v31 : num_complex_Complex<float> = │
00:02:06 verbose #3623 > │ Fable.Core.RustInterop.emitRustExpr struct (v27, v29) v30 │
00:02:06 verbose #3624 > │ let v34 : num_complex_Complex<float> = │
00:02:06 verbose #3625 > │ match v25 with │
00:02:06 verbose #3626 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3627 > │ v31 │
00:02:06 verbose #3628 > │ | US0_0(v32) -> (* Some *) │
00:02:06 verbose #3629 > │ v32 │
00:02:06 verbose #3630 > │ let v35 : num_complex_Complex<float> = method7(v34) │
00:02:06 verbose #3631 > │ let v36 : string = "v35.re" │
00:02:06 verbose #3632 > │ let v37 : float = Fable.Core.RustInterop.emitRustExpr () v36 │
00:02:06 verbose #3633 > │ let v38 : string = $"%A{v37}" │
00:02:06 verbose #3634 > │ System.Console.WriteLine v38 │
00:02:06 verbose #3635 > │ let v39 : bool = v37 = 0.0 │
00:02:06 verbose #3636 > │ let v40 : bool = method47(v39) │
00:02:06 verbose #3637 > │ let v42 : bool = │
00:02:06 verbose #3638 > │ if v40 then │
00:02:06 verbose #3639 > │ true │
00:02:06 verbose #3640 > │ else │
00:02:06 verbose #3641 > │ method26(v40) │
00:02:06 verbose #3642 > │ let v43 : string = $"__expect / actual: %A{v37} / expected: %A{0.0}" │
00:02:06 verbose #3643 > │ let v44 : bool = v42 = false │
00:02:06 verbose #3644 > │ if v44 then │
00:02:06 verbose #3645 > │ failwith<unit> v43 │
00:02:06 verbose #3646 > │ let v45 : num_complex_Complex<float> = method8(v34) │
00:02:06 verbose #3647 > │ let v46 : string = "v45.im" │
00:02:06 verbose #3648 > │ let v47 : float = Fable.Core.RustInterop.emitRustExpr () v46 │
00:02:06 verbose #3649 > │ let v48 : string = $"%A{v47}" │
00:02:06 verbose #3650 > │ System.Console.WriteLine v48 │
00:02:06 verbose #3651 > │ let v49 : bool = v47 = 0.0 │
00:02:06 verbose #3652 > │ let v50 : bool = method47(v49) │
00:02:06 verbose #3653 > │ let v52 : bool = │
00:02:06 verbose #3654 > │ if v50 then │
00:02:06 verbose #3655 > │ true │
00:02:06 verbose #3656 > │ else │
00:02:06 verbose #3657 > │ method26(v50) │
00:02:06 verbose #3658 > │ let v53 : string = $"__expect / actual: %A{v47} / expected: %A{0.0}" │
00:02:06 verbose #3659 > │ let v54 : bool = v52 = false │
00:02:06 verbose #3660 > │ if v54 then │
00:02:06 verbose #3661 > │ failwith<unit> v53 │
00:02:06 verbose #3662 > │ let v55 : int32 = v15 + 1 │
00:02:06 verbose #3663 > │ v13.l0 <- v55 │
00:02:06 verbose #3664 > │ () │
00:02:06 verbose #3665 > │ () │
00:02:06 verbose #3666 > │ and method48 () : unit = │
00:02:06 verbose #3667 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:06 verbose #3668 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:06 verbose #3669 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:06 verbose #3670 > │ pyo3::PyResult<()> { //" │
00:02:06 verbose #3671 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:06 verbose #3672 > │ let v2 : string = "py" │
00:02:06 verbose #3673 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:06 verbose #3674 > │ method49(v3) │
00:02:06 verbose #3675 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:06 verbose #3676 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:06 verbose #3677 > │ let v6 : string = "v5 }})" │
00:02:06 verbose #3678 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:06 verbose #3679 > │ let v7 : string = "{ //" │
00:02:06 verbose #3680 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:06 verbose #3681 > │ let v8 : string = "__result" │
00:02:06 verbose #3682 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:06 verbose #3683 > │ () v8 │
00:02:06 verbose #3684 > │ let v10 : string = "$0.unwrap()" │
00:02:06 verbose #3685 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:06 verbose #3686 > │ () │
00:02:06 verbose #3687 > │ and method51 (v0 : pyo3_Python) : unit = │
00:02:06 verbose #3688 > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3689 > │ let v2 : num_complex_Complex<float> = │
00:02:06 verbose #3690 > │ Fable.Core.RustInterop.emitRustExpr struct (3.0, 4.0) v1 │
00:02:06 verbose #3691 > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3692 > │ let v4 : num_complex_Complex<float> = │
00:02:06 verbose #3693 > │ Fable.Core.RustInterop.emitRustExpr struct (2.5, -3.5) v3 │
00:02:06 verbose #3694 > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3695 > │ let v6 : num_complex_Complex<float> = │
00:02:06 verbose #3696 > │ Fable.Core.RustInterop.emitRustExpr struct (1.5, 2.5) v5 │
00:02:06 verbose #3697 > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3698 > │ let v8 : num_complex_Complex<float> = │
00:02:06 verbose #3699 > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v7 │
00:02:06 verbose #3700 > │ let v9 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8|] │
00:02:06 verbose #3701 > │ let v10 : int32 = v9.Length │
00:02:06 verbose #3702 > │ let v11 : Mut0 = {l0 = 0} : Mut0 │
00:02:06 verbose #3703 > │ while method2(v10, v11) do │
00:02:06 verbose #3704 > │ let v13 : int32 = v11.l0 │
00:02:06 verbose #3705 > │ let v14 : num_complex_Complex<float> = v9.[int v13] │
00:02:06 verbose #3706 > │ let v15 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3707 > │ let v16 : num_complex_Complex<float> = method3(v14) │
00:02:06 verbose #3708 > │ let v17 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3709 > │ method4(v0, v15, v16) │
00:02:06 verbose #3710 > │ let v18 : num_complex_Complex<float> = method19(v0, v14) │
00:02:06 verbose #3711 > │ let v19 : string = "v17.ok()" │
00:02:06 verbose #3712 > │ let v20 : num_complex_Complex<float> option = │
00:02:06 verbose #3713 > │ Fable.Core.RustInterop.emitRustExpr () v19 │
00:02:06 verbose #3714 > │ let v21 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3715 > │ let v22 : US0 = US0_1 │
00:02:06 verbose #3716 > │ let v23 : US0 = v20 |> Option.map v21 |> Option.defaultValue v22 │
00:02:06 verbose #3717 > │ let v24 : string = "f64::NAN" │
00:02:06 verbose #3718 > │ let v25 : float = Fable.Core.RustInterop.emitRustExpr () v24 │
00:02:06 verbose #3719 > │ let v26 : string = "f64::NAN" │
00:02:06 verbose #3720 > │ let v27 : float = Fable.Core.RustInterop.emitRustExpr () v26 │
00:02:06 verbose #3721 > │ let v28 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3722 > │ let v29 : num_complex_Complex<float> = │
00:02:06 verbose #3723 > │ Fable.Core.RustInterop.emitRustExpr struct (v25, v27) v28 │
00:02:06 verbose #3724 > │ let v32 : num_complex_Complex<float> = │
00:02:06 verbose #3725 > │ match v23 with │
00:02:06 verbose #3726 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3727 > │ v29 │
00:02:06 verbose #3728 > │ | US0_0(v30) -> (* Some *) │
00:02:06 verbose #3729 > │ v30 │
00:02:06 verbose #3730 > │ let v33 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3731 > │ let v34 : num_complex_Complex<float> = │
00:02:06 verbose #3732 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v33 │
00:02:06 verbose #3733 > │ let v35 : num_complex_Complex<float> = method22(v34) │
00:02:06 verbose #3734 > │ let v36 : num_complex_Complex<float> = method23(v14) │
00:02:06 verbose #3735 > │ let v37 : string = "num_complex::Complex::powc(v35, v36)" │
00:02:06 verbose #3736 > │ let v38 : num_complex_Complex<float> = │
00:02:06 verbose #3737 > │ Fable.Core.RustInterop.emitRustExpr () v37 │
00:02:06 verbose #3738 > │ let v39 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3739 > │ let v40 : num_complex_Complex<float> = │
00:02:06 verbose #3740 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v39 │
00:02:06 verbose #3741 > │ let v41 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3742 > │ let v42 : num_complex_Complex<float> = │
00:02:06 verbose #3743 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v41 │
00:02:06 verbose #3744 > │ let v43 : string = "$0 - $1" │
00:02:06 verbose #3745 > │ let v44 : num_complex_Complex<float> = │
00:02:06 verbose #3746 > │ Fable.Core.RustInterop.emitRustExpr struct (v14, v42) v43 │
00:02:06 verbose #3747 > │ let v45 : num_complex_Complex<float> = method22(v40) │
00:02:06 verbose #3748 > │ let v46 : num_complex_Complex<float> = method23(v44) │
00:02:06 verbose #3749 > │ let v47 : string = "num_complex::Complex::powc(v45, v46)" │
00:02:06 verbose #3750 > │ let v48 : num_complex_Complex<float> = │
00:02:06 verbose #3751 > │ Fable.Core.RustInterop.emitRustExpr () v47 │
00:02:06 verbose #3752 > │ let v49 : string = "$0 * $1" │
00:02:06 verbose #3753 > │ let v50 : num_complex_Complex<float> = │
00:02:06 verbose #3754 > │ Fable.Core.RustInterop.emitRustExpr struct (v38, v48) v49 │
00:02:06 verbose #3755 > │ let v51 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3756 > │ let v52 : num_complex_Complex<float> = │
00:02:06 verbose #3757 > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v51 │
00:02:06 verbose #3758 > │ let v53 : string = "$0 * $1" │
00:02:06 verbose #3759 > │ let v54 : num_complex_Complex<float> = │
00:02:06 verbose #3760 > │ Fable.Core.RustInterop.emitRustExpr struct (v52, v14) v53 │
00:02:06 verbose #3761 > │ let v55 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3762 > │ let v56 : num_complex_Complex<float> = │
00:02:06 verbose #3763 > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v55 │
00:02:06 verbose #3764 > │ let v57 : string = "v54 / v56" │
00:02:06 verbose #3765 > │ let v58 : num_complex_Complex<float> = │
00:02:06 verbose #3766 > │ Fable.Core.RustInterop.emitRustExpr () v57 │
00:02:06 verbose #3767 > │ let v59 : string = "v58.sin()" │
00:02:06 verbose #3768 > │ let v60 : num_complex_Complex<float> = │
00:02:06 verbose #3769 > │ Fable.Core.RustInterop.emitRustExpr () v59 │
00:02:06 verbose #3770 > │ let v61 : string = "$0 * $1" │
00:02:06 verbose #3771 > │ let v62 : num_complex_Complex<float> = │
00:02:06 verbose #3772 > │ Fable.Core.RustInterop.emitRustExpr struct (v50, v60) v61 │
00:02:06 verbose #3773 > │ let v63 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3774 > │ let v64 : num_complex_Complex<float> = │
00:02:06 verbose #3775 > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v63 │
00:02:06 verbose #3776 > │ let v65 : string = "$0 - $1" │
00:02:06 verbose #3777 > │ let v66 : num_complex_Complex<float> = │
00:02:06 verbose #3778 > │ Fable.Core.RustInterop.emitRustExpr struct (v64, v14) v65 │
00:02:06 verbose #3779 > │ let v67 : string = $" s = mpmath.gamma(s)" │
00:02:06 verbose #3780 > │ let v68 : num_complex_Complex<float> = method3(v66) │
00:02:06 verbose #3781 > │ let v69 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3782 > │ method24(v0, v67, v68) │
00:02:06 verbose #3783 > │ let v70 : string = "v69.ok()" │
00:02:06 verbose #3784 > │ let v71 : num_complex_Complex<float> option = │
00:02:06 verbose #3785 > │ Fable.Core.RustInterop.emitRustExpr () v70 │
00:02:06 verbose #3786 > │ let v72 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3787 > │ let v73 : US0 = US0_1 │
00:02:06 verbose #3788 > │ let v74 : US0 = v71 |> Option.map v72 |> Option.defaultValue v73 │
00:02:06 verbose #3789 > │ let v75 : string = "f64::NAN" │
00:02:06 verbose #3790 > │ let v76 : float = Fable.Core.RustInterop.emitRustExpr () v75 │
00:02:06 verbose #3791 > │ let v77 : string = "f64::NAN" │
00:02:06 verbose #3792 > │ let v78 : float = Fable.Core.RustInterop.emitRustExpr () v77 │
00:02:06 verbose #3793 > │ let v79 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3794 > │ let v80 : num_complex_Complex<float> = │
00:02:06 verbose #3795 > │ Fable.Core.RustInterop.emitRustExpr struct (v76, v78) v79 │
00:02:06 verbose #3796 > │ let v83 : num_complex_Complex<float> = │
00:02:06 verbose #3797 > │ match v74 with │
00:02:06 verbose #3798 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3799 > │ v80 │
00:02:06 verbose #3800 > │ | US0_0(v81) -> (* Some *) │
00:02:06 verbose #3801 > │ v81 │
00:02:06 verbose #3802 > │ let v84 : string = "$0 * $1" │
00:02:06 verbose #3803 > │ let v85 : num_complex_Complex<float> = │
00:02:06 verbose #3804 > │ Fable.Core.RustInterop.emitRustExpr struct (v62, v83) v84 │
00:02:06 verbose #3805 > │ let v86 : num_complex_Complex<float> = method7(v14) │
00:02:06 verbose #3806 > │ let v87 : string = "v86.re" │
00:02:06 verbose #3807 > │ let v88 : float = Fable.Core.RustInterop.emitRustExpr () v87 │
00:02:06 verbose #3808 > │ let v89 : float = 1.0 - v88 │
00:02:06 verbose #3809 > │ let v90 : num_complex_Complex<float> = method8(v14) │
00:02:06 verbose #3810 > │ let v91 : string = "v90.im" │
00:02:06 verbose #3811 > │ let v92 : float = Fable.Core.RustInterop.emitRustExpr () v91 │
00:02:06 verbose #3812 > │ let v93 : float = -v92 │
00:02:06 verbose #3813 > │ let v94 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3814 > │ let v95 : num_complex_Complex<float> = │
00:02:06 verbose #3815 > │ Fable.Core.RustInterop.emitRustExpr struct (v89, v93) v94 │
00:02:06 verbose #3816 > │ let v96 : string = $" s = mpmath.zeta(s)" │
00:02:06 verbose #3817 > │ let v97 : num_complex_Complex<float> = method3(v95) │
00:02:06 verbose #3818 > │ let v98 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:06 verbose #3819 > │ method4(v0, v96, v97) │
00:02:06 verbose #3820 > │ let v99 : num_complex_Complex<float> = method19(v0, v95) │
00:02:06 verbose #3821 > │ let v100 : string = "v98.ok()" │
00:02:06 verbose #3822 > │ let v101 : num_complex_Complex<float> option = │
00:02:06 verbose #3823 > │ Fable.Core.RustInterop.emitRustExpr () v100 │
00:02:06 verbose #3824 > │ let v102 : (num_complex_Complex<float> -> US0) = method25() │
00:02:06 verbose #3825 > │ let v103 : US0 = US0_1 │
00:02:06 verbose #3826 > │ let v104 : US0 = v101 |> Option.map v102 |> Option.defaultValue v103 │
00:02:06 verbose #3827 > │ let v105 : string = "f64::NAN" │
00:02:06 verbose #3828 > │ let v106 : float = Fable.Core.RustInterop.emitRustExpr () v105 │
00:02:06 verbose #3829 > │ let v107 : string = "f64::NAN" │
00:02:06 verbose #3830 > │ let v108 : float = Fable.Core.RustInterop.emitRustExpr () v107 │
00:02:06 verbose #3831 > │ let v109 : string = "num_complex::Complex::new($0, $1)" │
00:02:06 verbose #3832 > │ let v110 : num_complex_Complex<float> = │
00:02:06 verbose #3833 > │ Fable.Core.RustInterop.emitRustExpr struct (v106, v108) v109 │
00:02:06 verbose #3834 > │ let v113 : num_complex_Complex<float> = │
00:02:06 verbose #3835 > │ match v104 with │
00:02:06 verbose #3836 > │ | US0_1 -> (* None *) │
00:02:06 verbose #3837 > │ v110 │
00:02:06 verbose #3838 > │ | US0_0(v111) -> (* Some *) │
00:02:06 verbose #3839 > │ v111 │
00:02:06 verbose #3840 > │ let v114 : string = "$0 * $1" │
00:02:06 verbose #3841 > │ let v115 : num_complex_Complex<float> = │
00:02:06 verbose #3842 > │ Fable.Core.RustInterop.emitRustExpr struct (v85, v113) v114 │
00:02:06 verbose #3843 > │ let v116 : num_complex_Complex<float> = method7(v32) │
00:02:06 verbose #3844 > │ let v117 : string = "v116.re" │
00:02:06 verbose #3845 > │ let v118 : float = Fable.Core.RustInterop.emitRustExpr () v117 │
00:02:06 verbose #3846 > │ let v119 : num_complex_Complex<float> = method7(v115) │
00:02:06 verbose #3847 > │ let v120 : string = "v119.re" │
00:02:06 verbose #3848 > │ let v121 : float = Fable.Core.RustInterop.emitRustExpr () v120 │
00:02:06 verbose #3849 > │ let v122 : float = v118 - v121 │
00:02:06 verbose #3850 > │ let v123 : float = -v122 │
00:02:06 verbose #3851 > │ let v124 : bool = v122 >= v123 │
00:02:06 verbose #3852 > │ let v125 : float = │
00:02:06 verbose #3853 > │ if v124 then │
00:02:06 verbose #3854 > │ v122 │
00:02:06 verbose #3855 > │ else │
00:02:06 verbose #3856 > │ v123 │
00:02:06 verbose #3857 > │ let v126 : string = $"%A{v125}" │
00:02:06 verbose #3858 > │ System.Console.WriteLine v126 │
00:02:06 verbose #3859 > │ let v127 : bool = v125 < 0.0001 │
00:02:06 verbose #3860 > │ let v129 : bool = │
00:02:06 verbose #3861 > │ if v127 then │
00:02:06 verbose #3862 > │ true │
00:02:06 verbose #3863 > │ else │
00:02:06 verbose #3864 > │ method26(v127) │
00:02:06 verbose #3865 > │ let v130 : string = $"__expect / actual: %A{v125} / expected: │
00:02:06 verbose #3866 > │ %A{0.0001}" │
00:02:06 verbose #3867 > │ let v131 : bool = v129 = false │
00:02:06 verbose #3868 > │ if v131 then │
00:02:06 verbose #3869 > │ failwith<unit> v130 │
00:02:06 verbose #3870 > │ let v132 : num_complex_Complex<float> = method8(v32) │
00:02:06 verbose #3871 > │ let v133 : string = "v132.im" │
00:02:06 verbose #3872 > │ let v134 : float = Fable.Core.RustInterop.emitRustExpr () v133 │
00:02:06 verbose #3873 > │ let v135 : num_complex_Complex<float> = method8(v115) │
00:02:06 verbose #3874 > │ let v136 : string = "v135.im" │
00:02:06 verbose #3875 > │ let v137 : float = Fable.Core.RustInterop.emitRustExpr () v136 │
00:02:06 verbose #3876 > │ let v138 : float = v134 - v137 │
00:02:06 verbose #3877 > │ let v139 : float = -v138 │
00:02:06 verbose #3878 > │ let v140 : bool = v138 >= v139 │
00:02:06 verbose #3879 > │ let v141 : float = │
00:02:06 verbose #3880 > │ if v140 then │
00:02:06 verbose #3881 > │ v138 │
00:02:06 verbose #3882 > │ else │
00:02:06 verbose #3883 > │ v139 │
00:02:07 verbose #3884 > │ let v142 : string = $"%A{v141}" │
00:02:07 verbose #3885 > │ System.Console.WriteLine v142 │
00:02:07 verbose #3886 > │ let v143 : bool = v141 < 0.0001 │
00:02:07 verbose #3887 > │ let v145 : bool = │
00:02:07 verbose #3888 > │ if v143 then │
00:02:07 verbose #3889 > │ true │
00:02:07 verbose #3890 > │ else │
00:02:07 verbose #3891 > │ method26(v143) │
00:02:07 verbose #3892 > │ let v146 : string = $"__expect / actual: %A{v141} / expected: │
00:02:07 verbose #3893 > │ %A{0.0001}" │
00:02:07 verbose #3894 > │ let v147 : bool = v145 = false │
00:02:07 verbose #3895 > │ if v147 then │
00:02:07 verbose #3896 > │ failwith<unit> v146 │
00:02:07 verbose #3897 > │ let v148 : int32 = v13 + 1 │
00:02:07 verbose #3898 > │ v11.l0 <- v148 │
00:02:07 verbose #3899 > │ () │
00:02:07 verbose #3900 > │ () │
00:02:07 verbose #3901 > │ and method50 () : unit = │
00:02:07 verbose #3902 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:07 verbose #3903 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:07 verbose #3904 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:07 verbose #3905 > │ pyo3::PyResult<()> { //" │
00:02:07 verbose #3906 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:07 verbose #3907 > │ let v2 : string = "py" │
00:02:07 verbose #3908 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:07 verbose #3909 > │ method51(v3) │
00:02:07 verbose #3910 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:07 verbose #3911 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:07 verbose #3912 > │ let v6 : string = "v5 }})" │
00:02:07 verbose #3913 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:07 verbose #3914 > │ let v7 : string = "{ //" │
00:02:07 verbose #3915 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:07 verbose #3916 > │ let v8 : string = "__result" │
00:02:07 verbose #3917 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:07 verbose #3918 > │ () v8 │
00:02:07 verbose #3919 > │ let v10 : string = "$0.unwrap()" │
00:02:07 verbose #3920 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:07 verbose #3921 > │ () │
00:02:07 verbose #3922 > │ and method54 (v0 : int32, v1 : Mut3) : bool = │
00:02:07 verbose #3923 > │ let v2 : int32 = v1.l0 │
00:02:07 verbose #3924 > │ let v3 : bool = v2 < v0 │
00:02:07 verbose #3925 > │ v3 │
00:02:07 verbose #3926 > │ and method53 (v0 : pyo3_Python) : unit = │
00:02:07 verbose #3927 > │ let v1 : (float []) = [|2.0; 2.5; 3.0; 3.5; 4.0; 4.5; 5.0|] │
00:02:07 verbose #3928 > │ let v2 : (float []) = [|2.0; 3.0; 5.0; 7.0; 11.0; 13.0; 17.0; 19.0; │
00:02:07 verbose #3929 > │ 23.0; 29.0; 31.0; 37.0; 41.0; 43.0; 47.0; 53.0; 59.0; 61.0; 67.0; 71.0|] │
00:02:07 verbose #3930 > │ let v3 : int32 = v1.Length │
00:02:07 verbose #3931 > │ let v4 : Mut0 = {l0 = 0} : Mut0 │
00:02:07 verbose #3932 > │ while method2(v3, v4) do │
00:02:07 verbose #3933 > │ let v6 : int32 = v4.l0 │
00:02:07 verbose #3934 > │ let v7 : float = v1.[int v6] │
00:02:07 verbose #3935 > │ let v8 : string = "num_complex::Complex::new($0, $1)" │
00:02:07 verbose #3936 > │ let v9 : num_complex_Complex<float> = │
00:02:07 verbose #3937 > │ Fable.Core.RustInterop.emitRustExpr struct (v7, 0.0) v8 │
00:02:07 verbose #3938 > │ let v10 : int32 = v2.Length │
00:02:07 verbose #3939 > │ let v11 : Mut3 = {l0 = 0; l1 = 1.0} : Mut3 │
00:02:07 verbose #3940 > │ while method54(v10, v11) do │
00:02:07 verbose #3941 > │ let v13 : int32 = v11.l0 │
00:02:07 verbose #3942 > │ let v14 : float = v11.l1 │
00:02:07 verbose #3943 > │ let v15 : float = v2.[int v13] │
00:02:07 verbose #3944 > │ let v16 : float = -v7 │
00:02:07 verbose #3945 > │ let v17 : float = v15 ** v16 │
00:02:07 verbose #3946 > │ let v18 : float = 1.0 - v17 │
00:02:07 verbose #3947 > │ let v19 : float = v14 / v18 │
00:02:07 verbose #3948 > │ let v20 : int32 = v13 + 1 │
00:02:07 verbose #3949 > │ v11.l0 <- v20 │
00:02:07 verbose #3950 > │ v11.l1 <- v19 │
00:02:07 verbose #3951 > │ () │
00:02:07 verbose #3952 > │ let v21 : float = v11.l1 │
00:02:07 verbose #3953 > │ let v22 : string = $" s = mpmath.zeta(s)" │
00:02:07 verbose #3954 > │ let v23 : num_complex_Complex<float> = method3(v9) │
00:02:07 verbose #3955 > │ let v24 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:07 verbose #3956 > │ method4(v0, v22, v23) │
00:02:07 verbose #3957 > │ let v25 : num_complex_Complex<float> = method19(v0, v9) │
00:02:07 verbose #3958 > │ let v26 : string = "v24.ok()" │
00:02:07 verbose #3959 > │ let v27 : num_complex_Complex<float> option = │
00:02:07 verbose #3960 > │ Fable.Core.RustInterop.emitRustExpr () v26 │
00:02:07 verbose #3961 > │ let v28 : (num_complex_Complex<float> -> US0) = method25() │
00:02:07 verbose #3962 > │ let v29 : US0 = US0_1 │
00:02:07 verbose #3963 > │ let v30 : US0 = v27 |> Option.map v28 |> Option.defaultValue v29 │
00:02:07 verbose #3964 > │ let v31 : string = "f64::NAN" │
00:02:07 verbose #3965 > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:07 verbose #3966 > │ let v33 : string = "f64::NAN" │
00:02:07 verbose #3967 > │ let v34 : float = Fable.Core.RustInterop.emitRustExpr () v33 │
00:02:07 verbose #3968 > │ let v35 : string = "num_complex::Complex::new($0, $1)" │
00:02:07 verbose #3969 > │ let v36 : num_complex_Complex<float> = │
00:02:07 verbose #3970 > │ Fable.Core.RustInterop.emitRustExpr struct (v32, v34) v35 │
00:02:07 verbose #3971 > │ let v39 : num_complex_Complex<float> = │
00:02:07 verbose #3972 > │ match v30 with │
00:02:07 verbose #3973 > │ | US0_1 -> (* None *) │
00:02:07 verbose #3974 > │ v36 │
00:02:07 verbose #3975 > │ | US0_0(v37) -> (* Some *) │
00:02:07 verbose #3976 > │ v37 │
00:02:07 verbose #3977 > │ let v40 : num_complex_Complex<float> = method7(v39) │
00:02:07 verbose #3978 > │ let v41 : string = "v40.re" │
00:02:07 verbose #3979 > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:07 verbose #3980 > │ let v43 : float = v42 - v21 │
00:02:07 verbose #3981 > │ let v44 : float = -v43 │
00:02:07 verbose #3982 > │ let v45 : bool = v43 >= v44 │
00:02:07 verbose #3983 > │ let v46 : float = │
00:02:07 verbose #3984 > │ if v45 then │
00:02:07 verbose #3985 > │ v43 │
00:02:07 verbose #3986 > │ else │
00:02:07 verbose #3987 > │ v44 │
00:02:07 verbose #3988 > │ let v47 : string = $"%A{v46}" │
00:02:07 verbose #3989 > │ System.Console.WriteLine v47 │
00:02:07 verbose #3990 > │ let v48 : bool = v46 < 0.01 │
00:02:07 verbose #3991 > │ let v50 : bool = │
00:02:07 verbose #3992 > │ if v48 then │
00:02:07 verbose #3993 > │ true │
00:02:07 verbose #3994 > │ else │
00:02:07 verbose #3995 > │ method26(v48) │
00:02:07 verbose #3996 > │ let v51 : string = $"__expect / actual: %A{v46} / expected: │
00:02:07 verbose #3997 > │ %A{0.01}" │
00:02:07 verbose #3998 > │ let v52 : bool = v50 = false │
00:02:07 verbose #3999 > │ if v52 then │
00:02:07 verbose #4000 > │ failwith<unit> v51 │
00:02:07 verbose #4001 > │ let v53 : num_complex_Complex<float> = method8(v39) │
00:02:07 verbose #4002 > │ let v54 : string = "v53.im" │
00:02:07 verbose #4003 > │ let v55 : float = Fable.Core.RustInterop.emitRustExpr () v54 │
00:02:07 verbose #4004 > │ let v56 : string = $"%A{v55}" │
00:02:07 verbose #4005 > │ System.Console.WriteLine v56 │
00:02:07 verbose #4006 > │ let v57 : bool = v55 < 0.01 │
00:02:07 verbose #4007 > │ let v59 : bool = │
00:02:07 verbose #4008 > │ if v57 then │
00:02:07 verbose #4009 > │ true │
00:02:07 verbose #4010 > │ else │
00:02:07 verbose #4011 > │ method26(v57) │
00:02:07 verbose #4012 > │ let v60 : string = $"__expect / actual: %A{v55} / expected: │
00:02:07 verbose #4013 > │ %A{0.01}" │
00:02:07 verbose #4014 > │ let v61 : bool = v59 = false │
00:02:07 verbose #4015 > │ if v61 then │
00:02:07 verbose #4016 > │ failwith<unit> v60 │
00:02:07 verbose #4017 > │ let v62 : int32 = v6 + 1 │
00:02:07 verbose #4018 > │ v4.l0 <- v62 │
00:02:07 verbose #4019 > │ () │
00:02:07 verbose #4020 > │ () │
00:02:07 verbose #4021 > │ and method52 () : unit = │
00:02:07 verbose #4022 > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:07 verbose #4023 > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:07 verbose #4024 > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:07 verbose #4025 > │ pyo3::PyResult<()> { //" │
00:02:07 verbose #4026 > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:07 verbose #4027 > │ let v2 : string = "py" │
00:02:07 verbose #4028 > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:07 verbose #4029 > │ method53(v3) │
00:02:07 verbose #4030 > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:07 verbose #4031 > │ let v5 : Result<unit, pyo3_PyErr> = method27(v4) │
00:02:07 verbose #4032 > │ let v6 : string = "v5 }})" │
00:02:07 verbose #4033 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:07 verbose #4034 > │ let v7 : string = "{ //" │
00:02:07 verbose #4035 > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:07 verbose #4036 > │ let v8 : string = "__result" │
00:02:07 verbose #4037 > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:07 verbose #4038 > │ () v8 │
00:02:07 verbose #4039 > │ let v10 : string = "$0.unwrap()" │
00:02:07 verbose #4040 > │ Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:02:07 verbose #4041 > │ () │
00:02:07 verbose #4042 > │ and closure0 () () : unit = │
00:02:07 verbose #4043 > │ let v0 : string = "true; () //" │
00:02:07 verbose #4044 > │ let v1 : bool = Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:07 verbose #4045 > │ let v2 : string = "} /* /*" │
00:02:07 verbose #4046 > │ Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:07 verbose #4047 > │ let v3 : string = "test_zeta_at_known_values_" │
00:02:07 verbose #4048 > │ let v4 : string = $"*/ #[test] fn " + v3 + "() { //" │
00:02:07 verbose #4049 > │ let v5 : bool = Fable.Core.RustInterop.emitRustExpr () v4 │
00:02:07 verbose #4050 > │ method0() │
00:02:07 verbose #4051 > │ let v6 : string = "} /* /*" │
00:02:07 verbose #4052 > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:07 verbose #4053 > │ let v7 : string = "test_zeta_at_2_minus2" │
00:02:07 verbose #4054 > │ let v8 : string = $"*/ #[test] fn " + v7 + "() { //" │
00:02:07 verbose #4055 > │ let v9 : bool = Fable.Core.RustInterop.emitRustExpr () v8 │
00:02:07 verbose #4056 > │ method28() │
00:02:07 verbose #4057 > │ let v10 : string = "} /* /*" │
00:02:07 verbose #4058 > │ Fable.Core.RustInterop.emitRustExpr () v10 │
00:02:07 verbose #4059 > │ let v11 : string = "test_trivial_zero_at_negative_even___" │
00:02:07 verbose #4060 > │ let v12 : string = $"*/ #[test] fn " + v11 + "() { //" │
00:02:07 verbose #4061 > │ let v13 : bool = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:07 verbose #4062 > │ method30() │
00:02:07 verbose #4063 > │ let v14 : string = "} /* /*" │
00:02:07 verbose #4064 > │ Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:07 verbose #4065 > │ let v15 : string = "test_non_trivial_zero___" │
00:02:07 verbose #4066 > │ let v16 : string = $"*/ #[test] fn " + v15 + "() { //" │
00:02:07 verbose #4067 > │ let v17 : bool = Fable.Core.RustInterop.emitRustExpr () v16 │
00:02:07 verbose #4068 > │ method34() │
00:02:07 verbose #4069 > │ let v18 : string = "} /* /*" │
00:02:07 verbose #4070 > │ Fable.Core.RustInterop.emitRustExpr () v18 │
00:02:07 verbose #4071 > │ let v19 : string = "test_real_part_greater_than_one___" │
00:02:07 verbose #4072 > │ let v20 : string = $"*/ #[test] fn " + v19 + "() { //" │
00:02:07 verbose #4073 > │ let v21 : bool = Fable.Core.RustInterop.emitRustExpr () v20 │
00:02:07 verbose #4074 > │ method36() │
00:02:07 verbose #4075 > │ let v22 : string = "} /* /*" │
00:02:07 verbose #4076 > │ Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:07 verbose #4077 > │ let v23 : string = "test_zeta_at_1___" │
00:02:07 verbose #4078 > │ let v24 : string = $"*/ #[test] fn " + v23 + "() { //" │
00:02:07 verbose #4079 > │ let v25 : bool = Fable.Core.RustInterop.emitRustExpr () v24 │
00:02:07 verbose #4080 > │ method38() │
00:02:07 verbose #4081 > │ let v26 : string = "} /* /*" │
00:02:07 verbose #4082 > │ Fable.Core.RustInterop.emitRustExpr () v26 │
00:02:07 verbose #4083 > │ let v27 : string = "test_symmetry_across_real_axis___" │
00:02:07 verbose #4084 > │ let v28 : string = $"*/ #[test] fn " + v27 + "() { //" │
00:02:07 verbose #4085 > │ let v29 : bool = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:07 verbose #4086 > │ method40() │
00:02:07 verbose #4087 > │ let v30 : string = "} /* /*" │
00:02:07 verbose #4088 > │ Fable.Core.RustInterop.emitRustExpr () v30 │
00:02:07 verbose #4089 > │ let v31 : string = "test_behavior_near_origin___" │
00:02:07 verbose #4090 > │ let v32 : string = $"*/ #[test] fn " + v31 + "() { //" │
00:02:07 verbose #4091 > │ let v33 : bool = Fable.Core.RustInterop.emitRustExpr () v32 │
00:02:07 verbose #4092 > │ method42() │
00:02:07 verbose #4093 > │ let v34 : string = "} /* /*" │
00:02:07 verbose #4094 > │ Fable.Core.RustInterop.emitRustExpr () v34 │
00:02:07 verbose #4095 > │ let v35 : string = "test_imaginary_axis" │
00:02:07 verbose #4096 > │ let v36 : string = $"*/ #[test] fn " + v35 + "() { //" │
00:02:07 verbose #4097 > │ let v37 : bool = Fable.Core.RustInterop.emitRustExpr () v36 │
00:02:07 verbose #4098 > │ method44() │
00:02:07 verbose #4099 > │ let v38 : string = "} /* /*" │
00:02:07 verbose #4100 > │ Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:07 verbose #4101 > │ let v39 : string = "test_critical_strip" │
00:02:07 verbose #4102 > │ let v40 : string = $"*/ #[test] fn " + v39 + "() { //" │
00:02:07 verbose #4103 > │ let v41 : bool = Fable.Core.RustInterop.emitRustExpr () v40 │
00:02:07 verbose #4104 > │ method48() │
00:02:07 verbose #4105 > │ let v42 : string = "} /* /*" │
00:02:07 verbose #4106 > │ Fable.Core.RustInterop.emitRustExpr () v42 │
00:02:07 verbose #4107 > │ let v43 : string = "test_reflection_formula_for_specific_value" │
00:02:07 verbose #4108 > │ let v44 : string = $"*/ #[test] fn " + v43 + "() { //" │
00:02:07 verbose #4109 > │ let v45 : bool = Fable.Core.RustInterop.emitRustExpr () v44 │
00:02:07 verbose #4110 > │ method50() │
00:02:07 verbose #4111 > │ let v46 : string = "} /* /*" │
00:02:07 verbose #4112 > │ Fable.Core.RustInterop.emitRustExpr () v46 │
00:02:07 verbose #4113 > │ let v47 : string = "test_euler_product_formula" │
00:02:07 verbose #4114 > │ let v48 : string = $"*/ #[test] fn " + v47 + "() { //" │
00:02:07 verbose #4115 > │ let v49 : bool = Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:07 verbose #4116 > │ method52() │
00:02:07 verbose #4117 > │ let v50 : string = "{ //" │
00:02:07 verbose #4118 > │ Fable.Core.RustInterop.emitRustExpr () v50 │
00:02:07 verbose #4119 > │ let v51 : string = "{ //" │
00:02:07 verbose #4120 > │ Fable.Core.RustInterop.emitRustExpr () v51 │
00:02:07 verbose #4121 > │ let v52 : string = "{ //" │
00:02:07 verbose #4122 > │ Fable.Core.RustInterop.emitRustExpr () v52 │
00:02:07 verbose #4123 > │ let v53 : string = "{ //" │
00:02:07 verbose #4124 > │ Fable.Core.RustInterop.emitRustExpr () v53 │
00:02:07 verbose #4125 > │ let v54 : string = "{ //" │
00:02:07 verbose #4126 > │ Fable.Core.RustInterop.emitRustExpr () v54 │
00:02:07 verbose #4127 > │ let v55 : string = "{ //" │
00:02:07 verbose #4128 > │ Fable.Core.RustInterop.emitRustExpr () v55 │
00:02:07 verbose #4129 > │ let v56 : string = "{ //" │
00:02:07 verbose #4130 > │ Fable.Core.RustInterop.emitRustExpr () v56 │
00:02:07 verbose #4131 > │ let v57 : string = "{ //" │
00:02:07 verbose #4132 > │ Fable.Core.RustInterop.emitRustExpr () v57 │
00:02:07 verbose #4133 > │ let v58 : string = "{ //" │
00:02:07 verbose #4134 > │ Fable.Core.RustInterop.emitRustExpr () v58 │
00:02:07 verbose #4135 > │ let v59 : string = "{ //" │
00:02:07 verbose #4136 > │ Fable.Core.RustInterop.emitRustExpr () v59 │
00:02:07 verbose #4137 > │ let v60 : string = "{ //" │
00:02:07 verbose #4138 > │ Fable.Core.RustInterop.emitRustExpr () v60 │
00:02:07 verbose #4139 > │ let v61 : string = "{ //" │
00:02:07 verbose #4140 > │ Fable.Core.RustInterop.emitRustExpr () v61 │
00:02:07 verbose #4141 > │ () │
00:02:07 verbose #4142 > │ and closure6 () (v0 : (string [])) : int32 = │
00:02:07 verbose #4143 > │ let v1 : string = $"value: {1}" │
00:02:07 verbose #4144 > │ System.Console.WriteLine v1 │
00:02:07 verbose #4145 > │ 0 │
00:02:07 verbose #4146 > │ let v0 : (unit -> unit) = closure0() │
00:02:07 verbose #4147 > │ let tests () = v0 () │
00:02:07 verbose #4148 > │ let v1 : ((string []) -> int32) = closure6() │
00:02:07 verbose #4149 > │ let main args = v1 args │
00:02:07 verbose #4150 > │ () │
00:02:07 verbose #4151 > │ │
00:02:07 verbose #4152 > │ │
00:02:07 verbose #4153 > │ │
00:02:07 verbose #4154 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:09 verbose #4155 > [NbConvertApp] Converting notebook math.dib.ipynb to html
00:02:09 verbose #4156 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:09 verbose #4157 > validate(nb)
00:02:10 verbose #4158 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:10 verbose #4159 > return _pygments_highlight(
00:02:11 verbose #4160 > [NbConvertApp] Writing 7420289 bytes to math.dib.html
00:02:12 debug #4161 execute_with_options_async / exit_code: 0 / output.Length: 299597
00:02:12 debug #3 main / executeCommand / exitCode: 0
00:02:12 verbose #4 wait_for_port_access / port: 13805 / retry: 0
00:02:14 debug #5 run_with_timeout_async / timeout: 2000
00:00:00 debug #1 writeDibCode / output: Spi / path: math.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: math.dib
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #4 run_with_timeout_async / timeout: 60
00:00:02 debug #3 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #4 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 verbose #5 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # math\nopen testing\nopen rust_operators\n\ninl types () =\n globa...022let main args = !main args\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result:
00:00:02 verbose #6 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result:
00:00:02 verbose #7 > 00:00:01 debug #4 Building c:/home/git/polyglot/lib/math/math.spi
00:00:03 debug #7 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #8 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #9 buildFile / takeWhileInclusive / fsxContent: [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
[<Fable.Core.Erase; Fable.Core.Emit(...let v1 : string = $"value: {1}"
System.Console.WriteLine v1
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure6()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #10 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 verbose #5 wait_for_port_access / port: 13805 / retry: 0
00:00:06 debug #6 run_with_timeout_async / timeout: 2000
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: math / code.Length: 126032
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj
00:00:00 debug #1 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime linux-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\math")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj (in 357 ms).
00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj]
00:00:11 verbose #6 > math -> C:\home\git\polyglot\target\polyglot\builder\math\bin\Release\net9.0\linux-x64\math.dll
00:00:12 verbose #7 > math -> C:\home\git\polyglot\lib\math\dist\
00:00:12 debug #8 execute_with_options_async / exit_code: 0 / output.Length: 664
00:00:12 debug #9 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime win-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\math")
00:00:13 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:13 verbose #11 > Determining projects to restore...
00:00:14 verbose #12 > Restored C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj (in 354 ms).
00:00:14 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj]
00:00:23 verbose #14 > math -> C:\home\git\polyglot\target\polyglot\builder\math\bin\Release\net9.0\win-x64\math.dll
00:00:26 verbose #15 > math -> C:\home\git\polyglot\lib\math\dist\
00:00:26 debug #16 execute_with_options_async / exit_code: 0 / output.Length: 662
targetDir: C:\home\git\polyglot\target\polyglot\builder\math
Fable 4.14.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @MangelMaxime
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing ..\..\target\polyglot\builder\math\math.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (13 source files) parsed in 192ms
Started Fable compilation...
Fable compilation finished in 5559ms
.\..\spiral\threading.fsx(113,0): (113,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\crypto.fsx(76,0): (76,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\async_.fsx(80,0): (80,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\date_time.fsx(107,0): (107,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\common.fsx(522,0): (522,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\common.fsx(527,0): (527,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\sm.fsx(300,0): (300,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\networking.fsx(2365,0): (2365,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\networking.fsx(2374,0): (2374,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\runtime.fsx(1555,0): (1555,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\runtime.fsx(1564,0): (1564,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\trace.fsx(419,0): (419,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\trace.fsx(422,0): (422,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(4359,0): (4359,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(4398,0): (4398,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\target\polyglot\builder\math\math.fs(39,0): (41,3) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Compiling math v0.0.1 (C:\home\git\polyglot\lib\math)
Finished `release` profile [optimized] target(s) in 15.96s
Running unittests math.rs (C:\home\git\polyglot\target\release\deps\math-87e07942c58a1c37.exe)
running 12 tests
test module_b7a9935b::Math::test_euler_product_formula ... ok
test module_b7a9935b::Math::test_critical_strip ... ok
test module_b7a9935b::Math::test_symmetry_across_real_axis___ ... ok
test module_b7a9935b::Math::test_trivial_zero_at_negative_even___ ... ok
test module_b7a9935b::Math::test_zeta_at_known_values_ ... ok
test module_b7a9935b::Math::test_reflection_formula_for_specific_value ... ok
test module_b7a9935b::Math::test_imaginary_axis ... ok
test module_b7a9935b::Math::test_behavior_near_origin___ ... ok
test module_b7a9935b::Math::test_zeta_at_2_minus2 ... ok
test module_b7a9935b::Math::test_zeta_at_1___ ... ok
test module_b7a9935b::Math::test_real_part_greater_than_one___ ... ok
test module_b7a9935b::Math::test_non_trivial_zero___ ... ok
test result: ok. 12 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.46s
In [ ]:
{ . "$ScriptDir/../apps/plot/build.ps1" } | Invoke-Block
Compiling plot v0.0.1 (C:\home\git\polyglot\apps\plot) Finished `release` profile [optimized] target(s) in 12.81s
In [ ]:
{ . "$ScriptDir/../lib/spiral/build.ps1" -sequential 1 } | Invoke-Block
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:01 debug #7 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 testing.dib -Retries 3"", None,
None)
00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: testing.dib / _args: [
00:00:02 verbose #9 > "-Retries",
00:00:02 verbose #10 > 3
00:00:02 verbose #11 > ]
00:00:05 verbose #12 >
00:00:05 verbose #13 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #14 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #15 > │ # testing │
00:00:05 verbose #16 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #17 >
00:00:05 verbose #18 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #19 > inl __expect fn log b a =
00:00:05 verbose #20 > if log then
00:00:05 verbose #21 > a |> sm'.format_debug |> console.write_line
00:00:05 verbose #22 > inl result = fn a b
00:00:05 verbose #23 > inl result =
00:00:05 verbose #24 > result || join result
00:00:05 verbose #25 > if log
00:00:05 verbose #26 > then $"$\"__expect / actual: %A{!a} / expected: %A{!b}\""
00:00:05 verbose #27 > else "__expect"
00:00:05 verbose #28 > |> assert result
00:00:05 verbose #29 >
00:00:05 verbose #30 > inl __assert_approx_eq log e b a = __expect (fun a b => abs (b - a) < (e |>
00:00:05 verbose #31 > optionm.defaultWith 0.00000001)) log b a
00:00:05 verbose #32 > inl _assert_approx_eq e b a = __assert_approx_eq true e b a
00:00:05 verbose #33 >
00:00:05 verbose #34 > inl __assert_eq log b a = __expect (=) log b a
00:00:05 verbose #35 > inl _assert_eq b a = __assert_eq true b a
00:00:05 verbose #36 >
00:00:05 verbose #37 > inl __assert_eq' log b a = __expect (=.) log b a
00:00:05 verbose #38 > inl _assert_eq' b a = __assert_eq' true b a
00:00:05 verbose #39 >
00:00:05 verbose #40 > inl __assert_ne log b a = __expect (fun a b => a = b |> fun x => join x |> not)
00:00:05 verbose #41 > log b a
00:00:05 verbose #42 > inl _assert_ne b a = __assert_ne true b a
00:00:05 verbose #43 >
00:00:05 verbose #44 > inl __assert_gt log b a = __expect (>) log b a
00:00:05 verbose #45 > inl _assert_gt b a = __assert_gt true b a
00:00:05 verbose #46 >
00:00:05 verbose #47 > inl __assert_ge log b a = __expect (>=) log b a
00:00:05 verbose #48 > inl _assert_ge b a = __assert_ge true b a
00:00:05 verbose #49 >
00:00:05 verbose #50 > inl __assert_lt log b a = __expect (<) log b a
00:00:05 verbose #51 > inl _assert_lt b a = __assert_lt true b a
00:00:05 verbose #52 >
00:00:05 verbose #53 > inl __assert_le log b a = __expect (<=) log b a
00:00:05 verbose #54 > inl _assert_le b a = __assert_le true b a
00:00:05 verbose #55 >
00:00:05 verbose #56 > inl __assert_contains forall t. log (b : t) a =
00:00:05 verbose #57 > __expect
00:00:05 verbose #58 > fun a b =>
00:00:05 verbose #59 > a
00:00:05 verbose #60 > |> $'List.ofSeq'
00:00:05 verbose #61 > |> fun x => x : listm'.list' t
00:00:05 verbose #62 > |> $'List.tryFind' ((=) b)
00:00:05 verbose #63 > |> optionm'.unbox
00:00:05 verbose #64 > |> fun (x : _ t) => x <> None
00:00:05 verbose #65 > log b a
00:00:05 verbose #66 > inl _assert_contains b a = __assert_contains true b a
00:00:05 verbose #67 >
00:00:05 verbose #68 > inl __assert_string_contains log b a = __expect sm'.contains log a b
00:00:05 verbose #69 > inl _assert_string_contains b a = __assert_string_contains true b a
00:00:05 verbose #70 >
00:00:05 verbose #71 > inl _throws (fn : () -> ()) : option exn =
00:00:05 verbose #72 > inl none = None : option exn
00:00:05 verbose #73 > inl some (s : exn) = Some s
00:00:05 verbose #74 > $"try !fn (); !none with ex -> ex |> !some"
00:00:05 verbose #75 >
00:00:05 verbose #76 > inl __assert_between log a b actual =
00:00:05 verbose #77 > inl assert_between actual (a, b) =
00:00:05 verbose #78 > __assert_ge log a actual
00:00:05 verbose #79 > __assert_le log b actual
00:00:05 verbose #80 > true
00:00:05 verbose #81 > __expect assert_between log (a, b) actual
00:00:05 verbose #82 > inl _assert_between a b actual = __assert_between true a b actual
00:00:08 verbose #83 > 00:00:07 debug #4 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ed5c4069d0bc309d4f01cb192f7e4dc2361f62a40f39b8385c07c179a18f7335/main.spi
00:00:09 verbose #84 >
00:00:09 verbose #85 > ╭─[ 4.39s - stdout ]───────────────────────────────────────────────────────────╮
00:00:09 verbose #86 > │ () │
00:00:09 verbose #87 > │ │
00:00:09 verbose #88 > │ │
00:00:09 verbose #89 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #90 >
00:00:09 verbose #91 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #92 > // // test
00:00:09 verbose #93 >
00:00:09 verbose #94 > 1f64
00:00:09 verbose #95 > |> _assert_approx_eq (Some 3) 2
00:00:09 verbose #96 > 00:00:09 debug #5 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/54cf48f87000c1e4e086982ced5aeae2e505b7133126d6c5a7c2666d5de8c986/main.spi
00:00:10 verbose #97 >
00:00:10 verbose #98 > ╭─[ 1.05s - stdout ]───────────────────────────────────────────────────────────╮
00:00:10 verbose #99 > │ let rec method0 () : unit = │
00:00:10 verbose #100 > │ let v0 : string = $"%A{1.0}" │
00:00:10 verbose #101 > │ System.Console.WriteLine v0 │
00:00:10 verbose #102 > │ let v1 : string = $"__expect / actual: %A{1.0} / expected: %A{2.0}" │
00:00:10 verbose #103 > │ () │
00:00:10 verbose #104 > │ method0() │
00:00:10 verbose #105 > │ │
00:00:10 verbose #106 > │ 1.0 │
00:00:10 verbose #107 > │ │
00:00:10 verbose #108 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #109 >
00:00:10 verbose #110 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #111 > // // test
00:00:10 verbose #112 >
00:00:10 verbose #113 > "abcd"
00:00:10 verbose #114 > |> _assert_contains 'b'
00:00:11 verbose #115 > 00:00:10 debug #6 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2fdc2da479337757fd0ef07bca3997abc6e07803406ed5a7ae9b198dbb74cdd0/main.spi
00:00:11 verbose #116 >
00:00:11 verbose #117 > ╭─[ 939.06ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 verbose #118 > │ type [<Struct>] US0 = │
00:00:11 verbose #119 > │ | US0_0 of f0_0 : char │
00:00:11 verbose #120 > │ | US0_1 │
00:00:11 verbose #121 > │ let rec closure0 () (v0 : char) : bool = │
00:00:11 verbose #122 > │ let v1 : bool = 'b' = v0 │
00:00:11 verbose #123 > │ v1 │
00:00:11 verbose #124 > │ and closure1 () (v0 : char) : US0 = │
00:00:11 verbose #125 > │ US0_0(v0) │
00:00:11 verbose #126 > │ and method1 () : (char -> US0) = │
00:00:11 verbose #127 > │ closure1() │
00:00:11 verbose #128 > │ and method2 (v0 : bool) : bool = │
00:00:11 verbose #129 > │ v0 │
00:00:11 verbose #130 > │ and method0 () : unit = │
00:00:11 verbose #131 > │ let v0 : string = "abcd" │
00:00:11 verbose #132 > │ let v1 : string = $"%A{v0}" │
00:00:11 verbose #133 > │ System.Console.WriteLine v1 │
00:00:11 verbose #134 > │ let v2 : (string -> char list) = List.ofSeq │
00:00:11 verbose #135 > │ let v3 : char list = v2 v0 │
00:00:11 verbose #136 > │ let v4 : ((char -> bool) -> (char list -> char option)) = List.tryFind │
00:00:11 verbose #137 > │ let v5 : (char -> bool) = closure0() │
00:00:11 verbose #138 > │ let v6 : (char list -> char option) = v4 v5 │
00:00:11 verbose #139 > │ let v7 : char option = v6 v3 │
00:00:11 verbose #140 > │ let v8 : (char -> US0) = method1() │
00:00:11 verbose #141 > │ let v9 : US0 = US0_1 │
00:00:11 verbose #142 > │ let v10 : US0 = v7 |> Option.map v8 |> Option.defaultValue v9 │
00:00:11 verbose #143 > │ let v12 : bool = │
00:00:11 verbose #144 > │ match v10 with │
00:00:11 verbose #145 > │ | US0_1 -> (* None *) │
00:00:11 verbose #146 > │ true │
00:00:11 verbose #147 > │ | _ -> │
00:00:11 verbose #148 > │ false │
00:00:11 verbose #149 > │ let v13 : bool = v12 <> true │
00:00:11 verbose #150 > │ let v15 : bool = │
00:00:11 verbose #151 > │ if v13 then │
00:00:11 verbose #152 > │ true │
00:00:11 verbose #153 > │ else │
00:00:11 verbose #154 > │ method2(v13) │
00:00:11 verbose #155 > │ let v16 : string = $"__expect / actual: %A{v0} / expected: %A{'b'}" │
00:00:11 verbose #156 > │ let v17 : bool = v15 = false │
00:00:11 verbose #157 > │ if v17 then │
00:00:11 verbose #158 > │ failwith<unit> v16 │
00:00:11 verbose #159 > │ method0() │
00:00:11 verbose #160 > │ │
00:00:11 verbose #161 > │ "abcd" │
00:00:11 verbose #162 > │ │
00:00:11 verbose #163 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #164 >
00:00:11 verbose #165 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #166 > // // test
00:00:11 verbose #167 >
00:00:11 verbose #168 > (dyn 1f64)
00:00:11 verbose #169 > |> _assert_approx_eq (Some 3) 2
00:00:11 verbose #170 > 00:00:11 debug #7 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c64fb0b4aa0feed28f1e6afe41032f4910f4522b62a4a76ea04b56c7f0e6daa5/main.spi
00:00:12 verbose #171 >
00:00:12 verbose #172 > ╭─[ 306.15ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 verbose #173 > │ let rec method1 (v0 : bool) : bool = │
00:00:12 verbose #174 > │ v0 │
00:00:12 verbose #175 > │ and method0 () : unit = │
00:00:12 verbose #176 > │ let v0 : float = 1.0 │
00:00:12 verbose #177 > │ let v1 : string = $"%A{v0}" │
00:00:12 verbose #178 > │ System.Console.WriteLine v1 │
00:00:12 verbose #179 > │ let v2 : float = 2.0 - v0 │
00:00:12 verbose #180 > │ let v3 : float = -v2 │
00:00:12 verbose #181 > │ let v4 : bool = v2 >= v3 │
00:00:12 verbose #182 > │ let v5 : float = │
00:00:12 verbose #183 > │ if v4 then │
00:00:12 verbose #184 > │ v2 │
00:00:12 verbose #185 > │ else │
00:00:12 verbose #186 > │ v3 │
00:00:12 verbose #187 > │ let v6 : bool = v5 < 3.0 │
00:00:12 verbose #188 > │ let v8 : bool = │
00:00:12 verbose #189 > │ if v6 then │
00:00:12 verbose #190 > │ true │
00:00:12 verbose #191 > │ else │
00:00:12 verbose #192 > │ method1(v6) │
00:00:12 verbose #193 > │ let v9 : string = $"__expect / actual: %A{v0} / expected: %A{2.0}" │
00:00:12 verbose #194 > │ let v10 : bool = v8 = false │
00:00:12 verbose #195 > │ if v10 then │
00:00:12 verbose #196 > │ failwith<unit> v9 │
00:00:12 verbose #197 > │ method0() │
00:00:12 verbose #198 > │ │
00:00:12 verbose #199 > │ 1.0 │
00:00:12 verbose #200 > │ │
00:00:12 verbose #201 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #202 >
00:00:12 verbose #203 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #204 > inl print_and_return x =
00:00:12 verbose #205 > $"printfn $\"print_and_return / x: {!x}\""
00:00:12 verbose #206 > x
00:00:12 verbose #207 > 00:00:11 debug #8 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3fb5085e6f7418290588aa0f6374473248356f140e280e9a6454a5892a54a29f/main.spi
00:00:12 verbose #208 >
00:00:12 verbose #209 > ╭─[ 366.95ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 verbose #210 > │ () │
00:00:12 verbose #211 > │ │
00:00:12 verbose #212 > │ │
00:00:12 verbose #213 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #214 > [NbConvertApp] Converting notebook testing.dib.ipynb to html
00:00:14 verbose #215 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:14 verbose #216 > validate(nb)
00:00:14 verbose #217 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:14 verbose #218 > return _pygments_highlight(
00:00:15 verbose #219 > [NbConvertApp] Writing 289702 bytes to testing.dib.html
00:00:15 debug #220 execute_with_options_async / exit_code: 0 / output.Length: 11809
00:00:15 debug #3 main / executeCommand / exitCode: 0
00:00:15 debug #221 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 guid.dib -Retries 3"", None, None)
00:00:16 verbose #222 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: guid.dib / _args: [
00:00:16 verbose #223 > "-Retries",
00:00:16 verbose #224 > 3
00:00:16 verbose #225 > ]
00:00:18 verbose #226 >
00:00:18 verbose #227 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 verbose #228 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 verbose #229 > │ # guid │
00:00:18 verbose #230 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #231 >
00:00:18 verbose #232 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #233 > // // test
00:00:18 verbose #234 >
00:00:18 verbose #235 > open testing
00:00:21 verbose #236 > 00:00:20 debug #9 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:00:22 verbose #237 >
00:00:22 verbose #238 > ╭─[ 3.87s - stdout ]───────────────────────────────────────────────────────────╮
00:00:22 verbose #239 > │ () │
00:00:22 verbose #240 > │ │
00:00:22 verbose #241 > │ │
00:00:22 verbose #242 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #243 >
00:00:22 verbose #244 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #245 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #246 > │ ## guid │
00:00:22 verbose #247 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #248 >
00:00:22 verbose #249 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #250 > nominal guid = $"System.Guid"
00:00:22 verbose #251 > 00:00:21 debug #10 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a75c685f6960362eab9a8fe1a3e2b3278ffd74315908bf46c8e60d83cf8715fd/main.spi
00:00:22 verbose #252 >
00:00:22 verbose #253 > ╭─[ 234.42ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #254 > │ () │
00:00:22 verbose #255 > │ │
00:00:22 verbose #256 > │ │
00:00:22 verbose #257 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #258 >
00:00:22 verbose #259 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #260 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #261 > │ ## new_guid │
00:00:22 verbose #262 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #263 >
00:00:22 verbose #264 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #265 > inl new_guid (x : string) : guid =
00:00:22 verbose #266 > $'`guid !x '
00:00:22 verbose #267 > 00:00:21 debug #11 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cda63d39ae325d8a34c76067fb2a26b2bb91b40507122d404bd07cc0ac607868/main.spi
00:00:22 verbose #268 >
00:00:22 verbose #269 > ╭─[ 235.98ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #270 > │ () │
00:00:22 verbose #271 > │ │
00:00:22 verbose #272 > │ │
00:00:22 verbose #273 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #274 >
00:00:22 verbose #275 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #276 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #277 > │ ## new_raw_guid │
00:00:22 verbose #278 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #279 >
00:00:22 verbose #280 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #281 > inl new_raw_guid () : guid =
00:00:22 verbose #282 > $"System.Guid.NewGuid ()"
00:00:22 verbose #283 > 00:00:22 debug #12 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/17475be22bfb40029be299879a84344d6c09cdd87b5c5bd3cf868a8d42099288/main.spi
00:00:22 verbose #284 >
00:00:22 verbose #285 > ╭─[ 233.49ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #286 > │ () │
00:00:22 verbose #287 > │ │
00:00:22 verbose #288 > │ │
00:00:22 verbose #289 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #290 >
00:00:22 verbose #291 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #292 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #293 > │ ## main │
00:00:22 verbose #294 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #295 >
00:00:22 verbose #296 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #297 > inl main () =
00:00:22 verbose #298 > $"let new_guid x = !new_guid x" : ()
00:00:22 verbose #299 > $"let new_raw_guid x = !new_raw_guid x" : ()
00:00:23 verbose #300 > 00:00:22 debug #13 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5b058abdfc3b2df628d49e420079117d23cd4a15771fc466a6a31bb6c3eca04c/main.spi
00:00:23 verbose #301 >
00:00:23 verbose #302 > ╭─[ 780.12ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #303 > │ let rec closure0 () (v0 : string) : System.Guid = │
00:00:23 verbose #304 > │ let v1 : System.Guid = System.Guid v0 │
00:00:23 verbose #305 > │ v1 │
00:00:23 verbose #306 > │ and closure1 () () : System.Guid = │
00:00:23 verbose #307 > │ let v0 : System.Guid = System.Guid.NewGuid () │
00:00:23 verbose #308 > │ v0 │
00:00:23 verbose #309 > │ let v0 : (string -> System.Guid) = closure0() │
00:00:23 verbose #310 > │ let new_guid x = v0 x │
00:00:23 verbose #311 > │ let v1 : (unit -> System.Guid) = closure1() │
00:00:23 verbose #312 > │ let new_raw_guid x = v1 x │
00:00:23 verbose #313 > │ () │
00:00:23 verbose #314 > │ │
00:00:23 verbose #315 > │ │
00:00:23 verbose #316 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #317 > [NbConvertApp] Converting notebook guid.dib.ipynb to html
00:00:25 verbose #318 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:25 verbose #319 > validate(nb)
00:00:26 verbose #320 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:26 verbose #321 > return _pygments_highlight(
00:00:26 verbose #322 > [NbConvertApp] Writing 278591 bytes to guid.dib.html
00:00:26 debug #323 execute_with_options_async / exit_code: 0 / output.Length: 5994
00:00:26 debug #4 main / executeCommand / exitCode: 0
00:00:26 debug #324 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 async.dib -Retries 3"", None,
None)
00:00:27 verbose #325 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: async.dib / _args: [
00:00:27 verbose #326 > "-Retries",
00:00:27 verbose #327 > 3
00:00:27 verbose #328 > ]
00:00:29 verbose #329 >
00:00:29 verbose #330 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #331 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #332 > │ # async │
00:00:29 verbose #333 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #334 >
00:00:29 verbose #335 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #336 > // // test
00:00:29 verbose #337 >
00:00:29 verbose #338 > open testing
00:00:32 verbose #339 > 00:00:31 debug #14 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:00:33 verbose #340 >
00:00:33 verbose #341 > ╭─[ 4.09s - stdout ]───────────────────────────────────────────────────────────╮
00:00:33 verbose #342 > │ () │
00:00:33 verbose #343 > │ │
00:00:33 verbose #344 > │ │
00:00:33 verbose #345 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #346 >
00:00:33 verbose #347 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 verbose #348 > open rust_operators
00:00:33 verbose #349 > 00:00:33 debug #15 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0/main.spi
00:00:33 verbose #350 >
00:00:33 verbose #351 > ╭─[ 232.59ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 verbose #352 > │ () │
00:00:33 verbose #353 > │ │
00:00:33 verbose #354 > │ │
00:00:33 verbose #355 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #356 >
00:00:33 verbose #357 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 verbose #358 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 verbose #359 > │ ## types │
00:00:33 verbose #360 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #361 >
00:00:33 verbose #362 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 verbose #363 > inl types () =
00:00:33 verbose #364 > global "#if FABLE_COMPILER // async.types"
00:00:33 verbose #365 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::future::Future<Output =
00:00:33 verbose #366 > $0>\")>]] type std_future_Future<'T> = class end"
00:00:33 verbose #367 > global "[[<Fable.Core.Erase;
00:00:33 verbose #368 > Fable.Core.Emit(\"futures::future::TryJoinAll<$0>\")>]] type
00:00:33 verbose #369 > futures_future_TryJoinAll<'T> = class end"
00:00:33 verbose #370 > global "[[<Fable.Core.Erase;
00:00:33 verbose #371 > Fable.Core.Emit(\"rayon::vec::IntoIter<$0>\")>]] type rayon_vec_IntoIter<'T> =
00:00:33 verbose #372 > class end"
00:00:33 verbose #373 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"rayon::iter::Map<$0, _>\")>]]
00:00:33 verbose #374 > type rayon_iter_Map<'T> = class end"
00:00:33 verbose #375 > global "#endif // async.types"
00:00:33 verbose #376 > 00:00:33 debug #16 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7fb827ddafb18607e03b202aa9f33b9697b18e96ce532a1bcbf78a78141b823a/main.spi
00:00:33 verbose #377 >
00:00:33 verbose #378 > ╭─[ 236.54ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 verbose #379 > │ () │
00:00:33 verbose #380 > │ │
00:00:33 verbose #381 > │ │
00:00:33 verbose #382 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #383 >
00:00:33 verbose #384 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 verbose #385 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 verbose #386 > │ ## async │
00:00:33 verbose #387 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #388 >
00:00:33 verbose #389 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 verbose #390 > nominal async t = $"Async<`t>"
00:00:34 verbose #391 > 00:00:33 debug #17 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e9911c7daa7743e1386949ca35a1c2f9530466386bac3efcdd039bb45ae21553/main.spi
00:00:34 verbose #392 >
00:00:34 verbose #393 > ╭─[ 224.36ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 verbose #394 > │ () │
00:00:34 verbose #395 > │ │
00:00:34 verbose #396 > │ │
00:00:34 verbose #397 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #398 >
00:00:34 verbose #399 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 verbose #400 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 verbose #401 > │ ## task │
00:00:34 verbose #402 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #403 >
00:00:34 verbose #404 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 verbose #405 > nominal task t =
00:00:34 verbose #406 > `(
00:00:34 verbose #407 > typecase t with
00:00:34 verbose #408 > | () => $'' : $"System.Threading.Tasks.Task"
00:00:34 verbose #409 > | _ => $'' : $"System.Threading.Tasks.Task<`t>"
00:00:34 verbose #410 > )
00:00:34 verbose #411 > 00:00:33 debug #18 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/17759f9dfb7ec7eacfc4786e09e3b2d8fbf29e6420b401080aed2c78ef9e0658/main.spi
00:00:34 verbose #412 >
00:00:34 verbose #413 > ╭─[ 246.22ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 verbose #414 > │ () │
00:00:34 verbose #415 > │ │
00:00:34 verbose #416 > │ │
00:00:34 verbose #417 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #418 >
00:00:34 verbose #419 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 verbose #420 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 verbose #421 > │ ## future │
00:00:34 verbose #422 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #423 >
00:00:34 verbose #424 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 verbose #425 > nominal future t = $"std_future_Future<`t>"
00:00:34 verbose #426 > 00:00:33 debug #19 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/781e88b3cf38f9a4feeee76d0d5ba85946c61ca78418017aac0ffe9149379fe9/main.spi
00:00:34 verbose #427 >
00:00:34 verbose #428 > ╭─[ 286.04ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 verbose #429 > │ () │
00:00:34 verbose #430 > │ │
00:00:34 verbose #431 > │ │
00:00:34 verbose #432 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #433 >
00:00:34 verbose #434 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 verbose #435 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 verbose #436 > │ ## future_pin │
00:00:34 verbose #437 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #438 >
00:00:34 verbose #439 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 verbose #440 > type future_pin t = rust.pin (rust.box (rust.dyn' (future t)))
00:00:34 verbose #441 > 00:00:34 debug #20 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/faa2a4010ee1b45776d0549a3f845f148b407c90fa874c140d91b684ad59d71f/main.spi
00:00:34 verbose #442 >
00:00:34 verbose #443 > ╭─[ 214.14ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 verbose #444 > │ () │
00:00:34 verbose #445 > │ │
00:00:34 verbose #446 > │ │
00:00:34 verbose #447 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #448 >
00:00:34 verbose #449 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 verbose #450 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 verbose #451 > │ ## future_pin_send │
00:00:34 verbose #452 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #453 >
00:00:34 verbose #454 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 verbose #455 > type future_pin_send t = rust.pin (rust.box (rust.send (rust.dyn' (future t))))
00:00:35 verbose #456 > 00:00:34 debug #21 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/82132329ef04da9ddd5fe2975e71f9d21f11f7c6cc359090a45f31689e3d691b/main.spi
00:00:35 verbose #457 >
00:00:35 verbose #458 > ╭─[ 246.09ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 verbose #459 > │ () │
00:00:35 verbose #460 > │ │
00:00:35 verbose #461 > │ │
00:00:35 verbose #462 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #463 >
00:00:35 verbose #464 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #465 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #466 > │ ## block_on │
00:00:35 verbose #467 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #468 >
00:00:35 verbose #469 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #470 > inl block_on forall t. (fn : future_pin t) : t =
00:00:35 verbose #471 > !\($'"futures_lite::future::block_on(!fn)"')
00:00:35 verbose #472 > 00:00:34 debug #22 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aa5107fb512f7474a01aefef826c4aef4abc96feab06a4e4ac2ff94e293cfac0/main.spi
00:00:35 verbose #473 >
00:00:35 verbose #474 > ╭─[ 225.75ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 verbose #475 > │ () │
00:00:35 verbose #476 > │ │
00:00:35 verbose #477 > │ │
00:00:35 verbose #478 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #479 >
00:00:35 verbose #480 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #481 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #482 > │ ## block_on_send │
00:00:35 verbose #483 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #484 >
00:00:35 verbose #485 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #486 > inl block_on_send forall t. (fn : future_pin_send t) : t =
00:00:35 verbose #487 > !\($'"futures_lite::future::block_on(!fn)"')
00:00:35 verbose #488 > 00:00:34 debug #23 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6d1afb484d7282e743eb2f95972e53b5d2b20b46711923687a433d35d034350b/main.spi
00:00:35 verbose #489 >
00:00:35 verbose #490 > ╭─[ 239.77ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 verbose #491 > │ () │
00:00:35 verbose #492 > │ │
00:00:35 verbose #493 > │ │
00:00:35 verbose #494 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #495 >
00:00:35 verbose #496 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #497 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #498 > │ ## spawn │
00:00:35 verbose #499 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #500 >
00:00:35 verbose #501 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #502 > inl spawn forall t. (fn : future_pin t) : t =
00:00:35 verbose #503 > !\($'"async_std::task::spawn(!fn)"')
00:00:35 verbose #504 > 00:00:35 debug #24 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5be904c0ad7322c5c89f240ac4beb5655f697eb14fdae4c62e2f84f7685b65ee/main.spi
00:00:35 verbose #505 >
00:00:35 verbose #506 > ╭─[ 295.02ms - stdout ]────────────────────────────────────────────────────────╮
00:00:35 verbose #507 > │ () │
00:00:35 verbose #508 > │ │
00:00:35 verbose #509 > │ │
00:00:35 verbose #510 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #511 >
00:00:35 verbose #512 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #513 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #514 > │ ## try_join_all │
00:00:35 verbose #515 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #516 >
00:00:35 verbose #517 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #518 > nominal try_join_all t = $"futures_future_TryJoinAll<`t>"
00:00:35 verbose #519 >
00:00:35 verbose #520 > inl try_join_all forall t. (x : am'.vec (future_pin (resultm.result' t
00:00:35 verbose #521 > sm'.std_string))) : try_join_all (future_pin (resultm.result' t sm'.std_string))
00:00:35 verbose #522 > =
00:00:35 verbose #523 > inl x = join x
00:00:35 verbose #524 > !\($'"futures::future::try_join_all(!x)"')
00:00:36 verbose #525 > 00:00:35 debug #25 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a1a468c17ac3d613977c8d44ef58b4b86d5605625fcba02849378bb2f986b1cc/main.spi
00:00:36 verbose #526 >
00:00:36 verbose #527 > ╭─[ 399.92ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 verbose #528 > │ () │
00:00:36 verbose #529 > │ │
00:00:36 verbose #530 > │ │
00:00:36 verbose #531 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #532 >
00:00:36 verbose #533 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #534 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #535 > │ ## await_all │
00:00:36 verbose #536 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #537 >
00:00:36 verbose #538 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #539 > inl await_all forall t. (x : try_join_all (future_pin (resultm.result' t
00:00:36 verbose #540 > sm'.std_string))) : resultm.result' (am'.vec t) sm'.std_string =
00:00:36 verbose #541 > !\($'"!x.await"')
00:00:36 verbose #542 > 00:00:35 debug #26 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/54bf4262a4c115e770b68fd1cbd9026aac0ca5e29cc432f9490c129789f1bcb5/main.spi
00:00:36 verbose #543 >
00:00:36 verbose #544 > ╭─[ 224.82ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 verbose #545 > │ () │
00:00:36 verbose #546 > │ │
00:00:36 verbose #547 > │ │
00:00:36 verbose #548 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #549 >
00:00:36 verbose #550 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #551 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #552 > │ ## await_all_send │
00:00:36 verbose #553 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #554 >
00:00:36 verbose #555 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #556 > inl await_all_send forall t. (x : try_join_all (future_pin_send (resultm.result'
00:00:36 verbose #557 > t sm'.std_string))) : resultm.result' (am'.vec t) sm'.std_string =
00:00:36 verbose #558 > !\($'"!x.await"')
00:00:36 verbose #559 > 00:00:36 debug #27 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c4adb3c89eb06574036c11c4589e6cd4261ad613849a637cfcb350e625e27c93/main.spi
00:00:36 verbose #560 >
00:00:36 verbose #561 > ╭─[ 214.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:36 verbose #562 > │ () │
00:00:36 verbose #563 > │ │
00:00:36 verbose #564 > │ │
00:00:36 verbose #565 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #566 >
00:00:36 verbose #567 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #568 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #569 > │ ## await │
00:00:36 verbose #570 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #571 >
00:00:36 verbose #572 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #573 > inl await forall t. (x : future_pin t) : t =
00:00:36 verbose #574 > !\($'"!x.await"')
00:00:36 verbose #575 > 00:00:36 debug #28 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7c18da226d573cae1f9ac936d71c6ae26604b4d402a1562af7c5bbc6c33b1fba/main.spi
00:00:37 verbose #576 >
00:00:37 verbose #577 > ╭─[ 215.68ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 verbose #578 > │ () │
00:00:37 verbose #579 > │ │
00:00:37 verbose #580 > │ │
00:00:37 verbose #581 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #582 >
00:00:37 verbose #583 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 verbose #584 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 verbose #585 > │ ## await │
00:00:37 verbose #586 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #587 >
00:00:37 verbose #588 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 verbose #589 > inl await_send forall t. (x : future_pin_send t) : t =
00:00:37 verbose #590 > !\($'"!x.await"')
00:00:37 verbose #591 > 00:00:36 debug #29 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2e5a2d4d3bc0934065b778f9c54c5f53783fcced006b4e7514c71def1289139/main.spi
00:00:37 verbose #592 >
00:00:37 verbose #593 > ╭─[ 217.34ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 verbose #594 > │ () │
00:00:37 verbose #595 > │ │
00:00:37 verbose #596 > │ │
00:00:37 verbose #597 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #598 >
00:00:37 verbose #599 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 verbose #600 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 verbose #601 > │ ## into_iter │
00:00:37 verbose #602 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #603 >
00:00:37 verbose #604 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 verbose #605 > nominal into_iter t = $'rayon_vec_IntoIter<`t>'
00:00:37 verbose #606 > 00:00:36 debug #30 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0d907b183f06d5139d4786eb28f352f57431462c3bd2619448b9ecbd27ebe4b8/main.spi
00:00:37 verbose #607 >
00:00:37 verbose #608 > ╭─[ 206.29ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 verbose #609 > │ () │
00:00:37 verbose #610 > │ │
00:00:37 verbose #611 > │ │
00:00:37 verbose #612 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #613 >
00:00:37 verbose #614 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 verbose #615 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 verbose #616 > │ ## into_par_iter │
00:00:37 verbose #617 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #618 >
00:00:37 verbose #619 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 verbose #620 > inl into_par_iter forall t. (x : am'.vec t) : into_iter t =
00:00:37 verbose #621 > !\($'"rayon::iter::IntoParallelIterator::into_par_iter(!x)"')
00:00:37 verbose #622 > 00:00:37 debug #31 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d2aa956fd2517c003e5fe0d65b22ecb3a2d0afbd85587011e059d503df3fa3a6/main.spi
00:00:37 verbose #623 >
00:00:37 verbose #624 > ╭─[ 283.24ms - stdout ]────────────────────────────────────────────────────────╮
00:00:37 verbose #625 > │ () │
00:00:37 verbose #626 > │ │
00:00:37 verbose #627 > │ │
00:00:37 verbose #628 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #629 >
00:00:37 verbose #630 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 verbose #631 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 verbose #632 > │ ## par_iter │
00:00:37 verbose #633 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #634 >
00:00:37 verbose #635 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 verbose #636 > inl par_iter forall t. (x : am'.vec t) : into_iter t =
00:00:37 verbose #637 > !\($'"rayon::iter::IntoParallelIterator::par_iter(!x)"')
00:00:37 verbose #638 > 00:00:37 debug #32 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dfeb96982e176897dd2768c9030495184c0b7707e4928f540c8235c9d20320b2/main.spi
00:00:38 verbose #639 >
00:00:38 verbose #640 > ╭─[ 229.33ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 verbose #641 > │ () │
00:00:38 verbose #642 > │ │
00:00:38 verbose #643 > │ │
00:00:38 verbose #644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #645 >
00:00:38 verbose #646 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #647 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #648 > │ ## iter_map │
00:00:38 verbose #649 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #650 >
00:00:38 verbose #651 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #652 > nominal iter_map t u = $'rayon_iter_Map<`t>'
00:00:38 verbose #653 > 00:00:37 debug #33 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d9d47966e0ff8bb87cd5f5a71aeb01dfeb00d289f8323248b5da2f0b1613f47e/main.spi
00:00:38 verbose #654 >
00:00:38 verbose #655 > ╭─[ 215.16ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 verbose #656 > │ () │
00:00:38 verbose #657 > │ │
00:00:38 verbose #658 > │ │
00:00:38 verbose #659 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #660 >
00:00:38 verbose #661 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #662 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #663 > │ ## par_map │
00:00:38 verbose #664 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #665 >
00:00:38 verbose #666 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #667 > inl par_map forall t u. (fn : t -> u) (ar : into_iter t) : iter_map (into_iter
00:00:38 verbose #668 > t) u =
00:00:38 verbose #669 > !\\(fn, $'"rayon::iter::ParallelIterator::map(!ar, |x| $0(x))"')
00:00:38 verbose #670 > 00:00:37 debug #34 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f1aaa636498f813b09b83acee558fad32c4248a6d309e21bf659347fdfbc74e5/main.spi
00:00:38 verbose #671 >
00:00:38 verbose #672 > ╭─[ 235.09ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 verbose #673 > │ () │
00:00:38 verbose #674 > │ │
00:00:38 verbose #675 > │ │
00:00:38 verbose #676 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #677 >
00:00:38 verbose #678 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #679 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #680 > │ ## par_collect │
00:00:38 verbose #681 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #682 >
00:00:38 verbose #683 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #684 > inl par_collect forall t u. (iter : iter_map (into_iter t) u) : am'.vec u =
00:00:38 verbose #685 > !\($'"rayon::iter::ParallelIterator::collect(!iter)"')
00:00:38 verbose #686 > 00:00:38 debug #35 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8d23cce4ad10ff84e06640addc67f1eafcc568dc60c7871e10bd0dd98029eceb/main.spi
00:00:38 verbose #687 >
00:00:38 verbose #688 > ╭─[ 237.63ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 verbose #689 > │ () │
00:00:38 verbose #690 > │ │
00:00:38 verbose #691 > │ │
00:00:38 verbose #692 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #693 >
00:00:38 verbose #694 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #695 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #696 > │ ## try_join_all_iter │
00:00:38 verbose #697 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #698 >
00:00:38 verbose #699 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #700 > inl try_join_all_iter forall t. (x : am'.vec (future_pin_send (resultm.result' t
00:00:38 verbose #701 > sm'.std_string))) : try_join_all (future_pin_send (resultm.result' t
00:00:38 verbose #702 > sm'.std_string)) =
00:00:38 verbose #703 > inl x = join x
00:00:38 verbose #704 > !\($'"futures::future::try_join_all(!x)"')
00:00:38 verbose #705 > 00:00:38 debug #36 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/998c89aa979ef273a95b051d97a2f632af165da2161ff32e168e93697ab37aa9/main.spi
00:00:38 verbose #706 >
00:00:38 verbose #707 > ╭─[ 244.71ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 verbose #708 > │ () │
00:00:38 verbose #709 > │ │
00:00:38 verbose #710 > │ │
00:00:38 verbose #711 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #712 >
00:00:38 verbose #713 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #714 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #715 > │ ## new_future │
00:00:38 verbose #716 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #717 >
00:00:38 verbose #718 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #719 > inl new_future forall t. (x : () -> t) : future_pin t =
00:00:38 verbose #720 > join
00:00:38 verbose #721 > !\($'"{Box::pin(async { //"')
00:00:38 verbose #722 > x () |> fun x => join $'!x '
00:00:38 verbose #723 > !\($'"}}) //"')
00:00:39 verbose #724 > 00:00:38 debug #37 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/93815c480148b975e2e66688e84238216ef68b692f54754ad6a40cabf69130a9/main.spi
00:00:39 verbose #725 >
00:00:39 verbose #726 > ╭─[ 340.45ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 verbose #727 > │ () │
00:00:39 verbose #728 > │ │
00:00:39 verbose #729 > │ │
00:00:39 verbose #730 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #731 >
00:00:39 verbose #732 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 verbose #733 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 verbose #734 > │ ## new_future_move │
00:00:39 verbose #735 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #736 >
00:00:39 verbose #737 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #738 > inl new_future_move forall t. (x : () -> t) : future_pin t =
00:00:39 verbose #739 > join
00:00:39 verbose #740 > !\($'"{Box::pin(async move { //"')
00:00:39 verbose #741 > x () |> fun x => join $'!x '
00:00:39 verbose #742 > !\($'"}}) //"')
00:00:39 verbose #743 > 00:00:38 debug #38 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8ee67b602b01c4bf84eb8b18f7e23a5abcd46e698bcebe8dfa766f34b3f5b220/main.spi
00:00:39 verbose #744 >
00:00:39 verbose #745 > ╭─[ 223.82ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 verbose #746 > │ () │
00:00:39 verbose #747 > │ │
00:00:39 verbose #748 > │ │
00:00:39 verbose #749 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #750 >
00:00:39 verbose #751 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 verbose #752 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 verbose #753 > │ ## future_init │
00:00:39 verbose #754 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #755 >
00:00:39 verbose #756 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #757 > inl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:00:39 verbose #758 > future_pin t =
00:00:39 verbose #759 > // join
00:00:39 verbose #760 > // if flag = 1
00:00:39 verbose #761 > // then new_future_move x
00:00:39 verbose #762 > // else new_future x
00:00:39 verbose #763 > join
00:00:39 verbose #764 > if flag = 1
00:00:39 verbose #765 > then !\($'"let __result = Box::pin(async move { //"')
00:00:39 verbose #766 > else !\($'"let __result = Box::pin(async { //"')
00:00:39 verbose #767 >
00:00:39 verbose #768 > let x' = x ()
00:00:39 verbose #769 > inl x' = join x'
00:00:39 verbose #770 >
00:00:39 verbose #771 > x' |> rust.fix_closure depth
00:00:39 verbose #772 >
00:00:39 verbose #773 > !\($'"__result"')
00:00:39 verbose #774 > 00:00:39 debug #39 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e48dddd97c8c465f88408a6eafa85d3c471dbec255065c0d5065231b8920eb92/main.spi
00:00:39 verbose #775 >
00:00:39 verbose #776 > ╭─[ 231.27ms - stdout ]────────────────────────────────────────────────────────╮
00:00:39 verbose #777 > │ () │
00:00:39 verbose #778 > │ │
00:00:39 verbose #779 > │ │
00:00:39 verbose #780 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #781 >
00:00:39 verbose #782 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 verbose #783 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 verbose #784 > │ ## future_init_send │
00:00:39 verbose #785 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #786 >
00:00:39 verbose #787 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #788 > inl future_init_send forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:00:39 verbose #789 > future_pin_send t =
00:00:39 verbose #790 > // join
00:00:39 verbose #791 > // if flag = 1
00:00:39 verbose #792 > // then new_future_move x
00:00:39 verbose #793 > // else new_future x
00:00:39 verbose #794 > join
00:00:39 verbose #795 > if flag = 1
00:00:39 verbose #796 > then !\($'"let __result = Box::pin(async move { //"')
00:00:39 verbose #797 > else !\($'"let __result = Box::pin(async { //"')
00:00:39 verbose #798 >
00:00:39 verbose #799 > let x' = x ()
00:00:39 verbose #800 > inl x' = join x'
00:00:39 verbose #801 >
00:00:39 verbose #802 > x' |> rust.fix_closure depth
00:00:39 verbose #803 >
00:00:39 verbose #804 > !\($'"__result"')
00:00:39 verbose #805 > 00:00:39 debug #40 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ec77a09dc780b62f0b911f6bd41ef576b6ba8eb223255c21333d567403b8b62f/main.spi
00:00:40 verbose #806 >
00:00:40 verbose #807 > ╭─[ 247.12ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 verbose #808 > │ () │
00:00:40 verbose #809 > │ │
00:00:40 verbose #810 > │ │
00:00:40 verbose #811 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #812 >
00:00:40 verbose #813 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 verbose #814 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 verbose #815 > │ ## new_future_move_init │
00:00:40 verbose #816 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #817 >
00:00:40 verbose #818 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #819 > inl new_future_move_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t)
00:00:40 verbose #820 > : future_pin t =
00:00:40 verbose #821 > future_init depth flag x
00:00:40 verbose #822 > // join
00:00:40 verbose #823 > // !\($'"{Box::pin(async move { //"')
00:00:40 verbose #824 > // inl x' = x () |> fun x => join $'!x '
00:00:40 verbose #825 >
00:00:40 verbose #826 > // inl depth = depth |> fst
00:00:40 verbose #827 > // if depth = 1
00:00:40 verbose #828 > // then !\($'"!x' })"')
00:00:40 verbose #829 > // elif depth = 2
00:00:40 verbose #830 > // then !\($'"!x' }})"')
00:00:40 verbose #831 > // elif depth = 3
00:00:40 verbose #832 > // then !\($'"!x' }}})"')
00:00:40 verbose #833 > // elif depth = 4
00:00:40 verbose #834 > // then !\($'"!x' }}}})"')
00:00:40 verbose #835 >
00:00:40 verbose #836 > // !\($'"// 1"')
00:00:40 verbose #837 > 00:00:39 debug #41 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/68d8481dd406a12878cf0bdaaa01dac09051a51da7177208aea7bff13c098c70/main.spi
00:00:40 verbose #838 >
00:00:40 verbose #839 > ╭─[ 236.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 verbose #840 > │ () │
00:00:40 verbose #841 > │ │
00:00:40 verbose #842 > │ │
00:00:40 verbose #843 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #844 >
00:00:40 verbose #845 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 verbose #846 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 verbose #847 > │ ## new_async_unit │
00:00:40 verbose #848 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #849 >
00:00:40 verbose #850 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #851 > inl new_async_unit forall t. (fn : () -> ()) : async t =
00:00:40 verbose #852 > run_target function
00:00:40 verbose #853 > | Fsharp (Native) => fun () =>
00:00:40 verbose #854 > inl result : optionm'.option' (async t) = optionm'.none' ()
00:00:40 verbose #855 > $"let mutable _!result = !result"
00:00:40 verbose #856 > $"async {"
00:00:40 verbose #857 > fn ()
00:00:40 verbose #858 > $"}"
00:00:40 verbose #859 > $"|> fun x -> _!result <- Some x"
00:00:40 verbose #860 > $"_!result |> Option.get"
00:00:40 verbose #861 > | _ => fun () => null ()
00:00:40 verbose #862 > 00:00:39 debug #42 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1382a0c05d7392af7bbe6d5eced787da559c0fff34446990a1646d0685546add/main.spi
00:00:40 verbose #863 >
00:00:40 verbose #864 > ╭─[ 246.37ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 verbose #865 > │ () │
00:00:40 verbose #866 > │ │
00:00:40 verbose #867 > │ │
00:00:40 verbose #868 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #869 >
00:00:40 verbose #870 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 verbose #871 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 verbose #872 > │ ## new_async │
00:00:40 verbose #873 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #874 >
00:00:40 verbose #875 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #876 > inl new_async forall t. (fn : () -> t) : async t =
00:00:40 verbose #877 > new_async_unit (fn >> ignore)
00:00:40 verbose #878 > 00:00:40 debug #43 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/33bf95aa6ade73fa37def66e76c824596fe8da6cb36c10c444e13eabd55fba32/main.spi
00:00:40 verbose #879 >
00:00:40 verbose #880 > ╭─[ 215.23ms - stdout ]────────────────────────────────────────────────────────╮
00:00:40 verbose #881 > │ () │
00:00:40 verbose #882 > │ │
00:00:40 verbose #883 > │ │
00:00:40 verbose #884 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #885 >
00:00:40 verbose #886 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 verbose #887 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 verbose #888 > │ ## new_task │
00:00:40 verbose #889 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #890 >
00:00:40 verbose #891 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #892 > inl new_task forall t. (fn : () -> t) : task t =
00:00:40 verbose #893 > run_target function
00:00:40 verbose #894 > | Fsharp (Native) => fun () =>
00:00:40 verbose #895 > inl result : optionm'.option' (task t) = optionm'.none' ()
00:00:40 verbose #896 > $"let mutable _!result = !result"
00:00:40 verbose #897 > $"task {"
00:00:40 verbose #898 > fn () |> ignore
00:00:40 verbose #899 > $"}"
00:00:40 verbose #900 > $"|> fun x -> _!result <- Some x"
00:00:40 verbose #901 > $"_!result |> Option.get"
00:00:40 verbose #902 > | _ => fun () => null ()
00:00:40 verbose #903 > 00:00:40 debug #44 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6ef468bbaa50abb7383e0ab2c36f883fc52d5b61d8d7c6ea866b41908f47abaa/main.spi
00:00:41 verbose #904 >
00:00:41 verbose #905 > ╭─[ 288.44ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #906 > │ () │
00:00:41 verbose #907 > │ │
00:00:41 verbose #908 > │ │
00:00:41 verbose #909 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #910 >
00:00:41 verbose #911 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #912 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #913 > │ ## await_task │
00:00:41 verbose #914 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #915 >
00:00:41 verbose #916 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #917 > inl await_task forall t. (a : task t) : async t =
00:00:41 verbose #918 > run_target function
00:00:41 verbose #919 > | Fsharp (Native) => fun () =>
00:00:41 verbose #920 > a |> $'Async.AwaitTask'
00:00:41 verbose #921 > | _ => fun () => null ()
00:00:41 verbose #922 > 00:00:40 debug #45 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4f50766db70e019f0bb6a97e60d8c8a0a4c9b9833d634439bb20c5ed28a06074/main.spi
00:00:41 verbose #923 >
00:00:41 verbose #924 > ╭─[ 212.68ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #925 > │ () │
00:00:41 verbose #926 > │ │
00:00:41 verbose #927 > │ │
00:00:41 verbose #928 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #929 >
00:00:41 verbose #930 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #931 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #932 > │ ## ignore │
00:00:41 verbose #933 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #934 >
00:00:41 verbose #935 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #936 > inl ignore forall t. (a : async t) : async () =
00:00:41 verbose #937 > run_target function
00:00:41 verbose #938 > | Fsharp (Native) => fun () =>
00:00:41 verbose #939 > a |> $'Async.Ignore'
00:00:41 verbose #940 > | _ => fun () => null ()
00:00:41 verbose #941 > 00:00:40 debug #46 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c92123a565e26ec8a09750bb507c0aa01618b65af43569c3db100dbcf1a794cd/main.spi
00:00:41 verbose #942 >
00:00:41 verbose #943 > ╭─[ 227.72ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #944 > │ () │
00:00:41 verbose #945 > │ │
00:00:41 verbose #946 > │ │
00:00:41 verbose #947 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #948 >
00:00:41 verbose #949 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #950 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #951 > │ ## run_synchronously │
00:00:41 verbose #952 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #953 >
00:00:41 verbose #954 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #955 > inl run_synchronously forall t. (a : async t) : t =
00:00:41 verbose #956 > run_target function
00:00:41 verbose #957 > | Fsharp (Native) => fun () =>
00:00:41 verbose #958 > a |> $'Async.RunSynchronously'
00:00:41 verbose #959 > | _ => fun () => null ()
00:00:41 verbose #960 > 00:00:41 debug #47 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/257da346ed132a20b1c022c6705c86f79407c4b3f3a498b24c5385892fab0f95/main.spi
00:00:41 verbose #961 >
00:00:41 verbose #962 > ╭─[ 225.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #963 > │ () │
00:00:41 verbose #964 > │ │
00:00:41 verbose #965 > │ │
00:00:41 verbose #966 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #967 >
00:00:41 verbose #968 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #969 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #970 > │ ## start │
00:00:41 verbose #971 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #972 >
00:00:41 verbose #973 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #974 > inl start (a : async ()) : () =
00:00:41 verbose #975 > run_target function
00:00:41 verbose #976 > | Fsharp (Native) => fun () =>
00:00:41 verbose #977 > a |> $'Async.Start'
00:00:41 verbose #978 > | _ => fun () => null ()
00:00:41 verbose #979 > 00:00:41 debug #48 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e55d3ad10fdfbd892ed6f2e857a655db9baac781dc9648a4096d0894383dec07/main.spi
00:00:41 verbose #980 >
00:00:41 verbose #981 > ╭─[ 188.72ms - stdout ]────────────────────────────────────────────────────────╮
00:00:41 verbose #982 > │ () │
00:00:41 verbose #983 > │ │
00:00:41 verbose #984 > │ │
00:00:41 verbose #985 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #986 >
00:00:41 verbose #987 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #988 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #989 > │ ## start_child │
00:00:41 verbose #990 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #991 >
00:00:41 verbose #992 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #993 > inl start_child forall t. (a : async t) : async (async t) =
00:00:41 verbose #994 > run_target function
00:00:41 verbose #995 > | Fsharp (Native) => fun () =>
00:00:41 verbose #996 > a |> $'Async.StartChild'
00:00:41 verbose #997 > | _ => fun () => null ()
00:00:42 verbose #998 > 00:00:41 debug #49 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d067ffff7aabcc149ff39cce38602981d62a74e37b8d60755e896d26e6a72b63/main.spi
00:00:42 verbose #999 >
00:00:42 verbose #1000 > ╭─[ 238.74ms - stdout ]────────────────────────────────────────────────────────╮
00:00:42 verbose #1001 > │ () │
00:00:42 verbose #1002 > │ │
00:00:42 verbose #1003 > │ │
00:00:42 verbose #1004 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1005 >
00:00:42 verbose #1006 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:42 verbose #1007 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:42 verbose #1008 > │ ## start_child_timeout │
00:00:42 verbose #1009 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1010 >
00:00:42 verbose #1011 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #1012 > inl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async
00:00:42 verbose #1013 > t) =
00:00:42 verbose #1014 > run_target function
00:00:42 verbose #1015 > | Fsharp (Native) => fun () =>
00:00:42 verbose #1016 > $'Async.StartChild (!a, !timeout)'
00:00:42 verbose #1017 > | _ => fun () => null ()
00:00:42 verbose #1018 > 00:00:41 debug #50 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2d0c0f1d7d5e429f067bd8317571c3e9e7801c769bfc51446faf73a8c53586f2/main.spi
00:00:42 verbose #1019 >
00:00:42 verbose #1020 > ╭─[ 217.67ms - stdout ]────────────────────────────────────────────────────────╮
00:00:42 verbose #1021 > │ () │
00:00:42 verbose #1022 > │ │
00:00:42 verbose #1023 > │ │
00:00:42 verbose #1024 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1025 >
00:00:42 verbose #1026 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:42 verbose #1027 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:42 verbose #1028 > │ ## start_immediate │
00:00:42 verbose #1029 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1030 >
00:00:42 verbose #1031 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #1032 > inl start_immediate forall t. (a : async t) : () =
00:00:42 verbose #1033 > run_target function
00:00:42 verbose #1034 > | Fsharp (Native) => fun () =>
00:00:42 verbose #1035 > a |> $'Async.StartImmediate'
00:00:42 verbose #1036 > | _ => fun () => null ()
00:00:42 verbose #1037 > 00:00:41 debug #51 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5ff1ab33d583d0855bdaf19616f37e9dd2b121a3dac911650689f6a689e2f739/main.spi
00:00:42 verbose #1038 >
00:00:42 verbose #1039 > ╭─[ 221.12ms - stdout ]────────────────────────────────────────────────────────╮
00:00:42 verbose #1040 > │ () │
00:00:42 verbose #1041 > │ │
00:00:42 verbose #1042 > │ │
00:00:42 verbose #1043 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1044 >
00:00:42 verbose #1045 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:42 verbose #1046 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:42 verbose #1047 > │ ## task_canceled_exception │
00:00:42 verbose #1048 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1049 >
00:00:42 verbose #1050 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #1051 > nominal task_canceled_exception =
00:00:42 verbose #1052 > $'System.Threading.Tasks.TaskCanceledException'
00:00:42 verbose #1053 > 00:00:42 debug #52 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8234d6b91fbf52ca35b95bdd674a1719053d104c452265de92c36e991c09e3fe/main.spi
00:00:42 verbose #1054 >
00:00:42 verbose #1055 > ╭─[ 223.58ms - stdout ]────────────────────────────────────────────────────────╮
00:00:42 verbose #1056 > │ () │
00:00:42 verbose #1057 > │ │
00:00:42 verbose #1058 > │ │
00:00:42 verbose #1059 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1060 >
00:00:42 verbose #1061 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:42 verbose #1062 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:42 verbose #1063 > │ ## sleep │
00:00:42 verbose #1064 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #1065 >
00:00:42 verbose #1066 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #1067 > inl sleep (ms : i32) : async () =
00:00:42 verbose #1068 > run_target function
00:00:42 verbose #1069 > | Fsharp (Native) => fun () =>
00:00:42 verbose #1070 > ms |> $'Async.Sleep'
00:00:42 verbose #1071 > | _ => fun () => null ()
00:00:42 verbose #1072 > 00:00:42 debug #53 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/23acf8a346ff44da1fd24e36d7c1c8cf4d41804b5efc3712082f1d4592491ab2/main.spi
00:00:43 verbose #1073 >
00:00:43 verbose #1074 > ╭─[ 220.56ms - stdout ]────────────────────────────────────────────────────────╮
00:00:43 verbose #1075 > │ () │
00:00:43 verbose #1076 > │ │
00:00:43 verbose #1077 > │ │
00:00:43 verbose #1078 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1079 >
00:00:43 verbose #1080 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1081 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1082 > │ ## do │
00:00:43 verbose #1083 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1084 >
00:00:43 verbose #1085 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1086 > inl do (a : async ()) : () =
00:00:43 verbose #1087 > $'do\! !a '
00:00:43 verbose #1088 > 00:00:42 debug #54 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/12fe012b2fc876e047f86979db6bdbafba4fcfce413a4b395c8c8f9b3d1abb42/main.spi
00:00:43 verbose #1089 >
00:00:43 verbose #1090 > ╭─[ 251.57ms - stdout ]────────────────────────────────────────────────────────╮
00:00:43 verbose #1091 > │ () │
00:00:43 verbose #1092 > │ │
00:00:43 verbose #1093 > │ │
00:00:43 verbose #1094 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1095 >
00:00:43 verbose #1096 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1097 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1098 > │ ## let' │
00:00:43 verbose #1099 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1100 >
00:00:43 verbose #1101 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1102 > inl let' forall t. (a : async t) : t =
00:00:43 verbose #1103 > $'let\! !a = !a '
00:00:43 verbose #1104 > $'!a '
00:00:43 verbose #1105 > 00:00:42 debug #55 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1f3ecec1f1fca36cc4f1a042f1b9c585699299e4a10439d19222c272d89a674e/main.spi
00:00:43 verbose #1106 >
00:00:43 verbose #1107 > ╭─[ 301.13ms - stdout ]────────────────────────────────────────────────────────╮
00:00:43 verbose #1108 > │ () │
00:00:43 verbose #1109 > │ │
00:00:43 verbose #1110 > │ │
00:00:43 verbose #1111 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1112 >
00:00:43 verbose #1113 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1114 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1115 > │ ## return_await │
00:00:43 verbose #1116 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1117 >
00:00:43 verbose #1118 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1119 > inl return_await forall t. (a : async t) : () =
00:00:43 verbose #1120 > $'return\! !a '
00:00:43 verbose #1121 > 00:00:43 debug #56 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f7a52eaaa4044866a98bfaeeebaf53de8139e92cac31061c8bca16b53d6d94c6/main.spi
00:00:43 verbose #1122 >
00:00:43 verbose #1123 > ╭─[ 217.33ms - stdout ]────────────────────────────────────────────────────────╮
00:00:43 verbose #1124 > │ () │
00:00:43 verbose #1125 > │ │
00:00:43 verbose #1126 > │ │
00:00:43 verbose #1127 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1128 >
00:00:43 verbose #1129 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1130 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1131 > │ ## return_await' │
00:00:43 verbose #1132 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1133 >
00:00:43 verbose #1134 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1135 > inl return_await' forall t. (a : async t) : t =
00:00:43 verbose #1136 > $'return\! !a '
00:00:43 verbose #1137 > 00:00:43 debug #57 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bb6ceed8336e6a922773b481a8f145457af99eaac6fda4c474e0a40609f26edb/main.spi
00:00:44 verbose #1138 >
00:00:44 verbose #1139 > ╭─[ 203.26ms - stdout ]────────────────────────────────────────────────────────╮
00:00:44 verbose #1140 > │ () │
00:00:44 verbose #1141 > │ │
00:00:44 verbose #1142 > │ │
00:00:44 verbose #1143 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1144 >
00:00:44 verbose #1145 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #1146 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #1147 > │ ## map │
00:00:44 verbose #1148 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1149 >
00:00:44 verbose #1150 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #1151 > inl map forall t u. (fn : t -> u) (a : async t) : async u =
00:00:44 verbose #1152 > fun () =>
00:00:44 verbose #1153 > inl x = a |> let'
00:00:44 verbose #1154 > fn x |> return
00:00:44 verbose #1155 > |> new_async_unit
00:00:44 verbose #1156 > 00:00:43 debug #58 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/134ffc0e11b112995709f20ca1b9c72d8ff2610083c2ffbf66332474078cde00/main.spi
00:00:44 verbose #1157 >
00:00:44 verbose #1158 > ╭─[ 224.26ms - stdout ]────────────────────────────────────────────────────────╮
00:00:44 verbose #1159 > │ () │
00:00:44 verbose #1160 > │ │
00:00:44 verbose #1161 > │ │
00:00:44 verbose #1162 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1163 >
00:00:44 verbose #1164 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #1165 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #1166 > │ ## choice │
00:00:44 verbose #1167 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1168 >
00:00:44 verbose #1169 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #1170 > union choice t1 t2 =
00:00:44 verbose #1171 > | Choice1Of2 : t1
00:00:44 verbose #1172 > | Choice2Of2 : t2
00:00:44 verbose #1173 >
00:00:44 verbose #1174 > nominal choice' t1 t2 = $'Choice<`t1, `t2>'
00:00:44 verbose #1175 > 00:00:43 debug #59 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3d903b69a7f5b984e6f733e10649df4a477b556441cbd5be8b31dfca618c0b60/main.spi
00:00:44 verbose #1176 >
00:00:44 verbose #1177 > ╭─[ 218.00ms - stdout ]────────────────────────────────────────────────────────╮
00:00:44 verbose #1178 > │ () │
00:00:44 verbose #1179 > │ │
00:00:44 verbose #1180 > │ │
00:00:44 verbose #1181 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1182 >
00:00:44 verbose #1183 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #1184 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #1185 > │ ## choice_unbox │
00:00:44 verbose #1186 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1187 >
00:00:44 verbose #1188 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #1189 > inl choice_unbox forall t1 t2. (choice : choice' t1 t2) : choice t1 t2 =
00:00:44 verbose #1190 > run_target function
00:00:44 verbose #1191 > | Fsharp (Native) => fun () =>
00:00:44 verbose #1192 > inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x
00:00:44 verbose #1193 > inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x
00:00:44 verbose #1194 > $'match !choice with Choice1Of2 x -> !choice1Of2 x | Choice2Of2 x ->
00:00:44 verbose #1195 > !choice2Of2 x'
00:00:44 verbose #1196 > | _ => fun () => null ()
00:00:44 verbose #1197 > 00:00:44 debug #60 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d572db0481aaa94a7b1ea096fedf2f6d91dec8abd81a8c4a6bf30e764285e0c8/main.spi
00:00:44 verbose #1198 >
00:00:44 verbose #1199 > ╭─[ 204.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:44 verbose #1200 > │ () │
00:00:44 verbose #1201 > │ │
00:00:44 verbose #1202 > │ │
00:00:44 verbose #1203 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1204 >
00:00:44 verbose #1205 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #1206 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #1207 > │ ## catch' │
00:00:44 verbose #1208 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1209 >
00:00:44 verbose #1210 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #1211 > inl catch' forall t e. (a : async t) : async (choice' t e) =
00:00:44 verbose #1212 > run_target function
00:00:44 verbose #1213 > | Fsharp (Native) => fun () =>
00:00:44 verbose #1214 > a |> $'Async.Catch'
00:00:44 verbose #1215 > | _ => fun () => null ()
00:00:44 verbose #1216 > 00:00:44 debug #61 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/46c97a791235bddbaf2c5b4ec5141db27d5754923f2bbfd3dad7fa7fdf834d7f/main.spi
00:00:44 verbose #1217 >
00:00:44 verbose #1218 > ╭─[ 220.06ms - stdout ]────────────────────────────────────────────────────────╮
00:00:44 verbose #1219 > │ () │
00:00:44 verbose #1220 > │ │
00:00:44 verbose #1221 > │ │
00:00:44 verbose #1222 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1223 >
00:00:44 verbose #1224 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #1225 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #1226 > │ ## catch │
00:00:44 verbose #1227 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #1228 >
00:00:44 verbose #1229 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #1230 > inl catch forall t e. (a : async t) : async (result t e) =
00:00:44 verbose #1231 > a
00:00:44 verbose #1232 > |> catch'
00:00:44 verbose #1233 > |> map choice_unbox
00:00:44 verbose #1234 > |> map function
00:00:44 verbose #1235 > | Choice1Of2 result => Ok result
00:00:44 verbose #1236 > | Choice2Of2 ex => Error ex
00:00:45 verbose #1237 > 00:00:44 debug #62 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/686f2305914082af2616bc82123489d5d447b4b62e486f238dd93b133e63998e/main.spi
00:00:45 verbose #1238 >
00:00:45 verbose #1239 > ╭─[ 217.24ms - stdout ]────────────────────────────────────────────────────────╮
00:00:45 verbose #1240 > │ () │
00:00:45 verbose #1241 > │ │
00:00:45 verbose #1242 > │ │
00:00:45 verbose #1243 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1244 >
00:00:45 verbose #1245 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #1246 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #1247 > │ ## run_with_timeout_async │
00:00:45 verbose #1248 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1249 >
00:00:45 verbose #1250 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #1251 > inl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async
00:00:45 verbose #1252 > (option t) =
00:00:45 verbose #1253 > run_target function
00:00:45 verbose #1254 > | Fsharp (Native) => fun () =>
00:00:45 verbose #1255 > fun () =>
00:00:45 verbose #1256 > inl _locals () = $'$"timeout: {!timeout} / {!_locals ()}"'
00:00:45 verbose #1257 > inl child = fn |> start_child_timeout timeout |> let'
00:00:45 verbose #1258 > child
00:00:45 verbose #1259 > |> catch
00:00:45 verbose #1260 > |> map function
00:00:45 verbose #1261 > | Ok result => Some result
00:00:45 verbose #1262 > | Error ex when ex |> sm'.format_debug |> sm'.contains
00:00:45 verbose #1263 > "System.TimeoutException" =>
00:00:45 verbose #1264 > trace Debug (fun () => $'"run_with_timeout_async"')
00:00:45 verbose #1265 > _locals
00:00:45 verbose #1266 > None
00:00:45 verbose #1267 > | Error (ex : exn) =>
00:00:45 verbose #1268 > inl ex = ex |> sm'.format_exception
00:00:45 verbose #1269 > trace Critical (fun () => $'$"run_with_timeout_async**
00:00:45 verbose #1270 > ex: {!ex}"') _locals
00:00:45 verbose #1271 > None
00:00:45 verbose #1272 > |> return_await
00:00:45 verbose #1273 > |> new_async_unit
00:00:45 verbose #1274 > | _ => fun () => null ()
00:00:45 verbose #1275 > 00:00:44 debug #63 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c15a061a0d7fea35876dcc5a852ebd47b8c7e1d80901ee5ee8a847e3b4493b5a/main.spi
00:00:45 verbose #1276 >
00:00:45 verbose #1277 > ╭─[ 226.22ms - stdout ]────────────────────────────────────────────────────────╮
00:00:45 verbose #1278 > │ () │
00:00:45 verbose #1279 > │ │
00:00:45 verbose #1280 > │ │
00:00:45 verbose #1281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1282 >
00:00:45 verbose #1283 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #1284 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #1285 > │ ## run_with_timeout │
00:00:45 verbose #1286 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1287 >
00:00:45 verbose #1288 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #1289 > inl run_with_timeout timeout fn =
00:00:45 verbose #1290 > fn
00:00:45 verbose #1291 > |> run_with_timeout_async timeout
00:00:45 verbose #1292 > |> run_synchronously
00:00:45 verbose #1293 > 00:00:44 debug #64 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/383dc758bb9030908a7015c0c00798445ad760a132721e48655a7ffce3393a86/main.spi
00:00:45 verbose #1294 >
00:00:45 verbose #1295 > ╭─[ 266.79ms - stdout ]────────────────────────────────────────────────────────╮
00:00:45 verbose #1296 > │ () │
00:00:45 verbose #1297 > │ │
00:00:45 verbose #1298 > │ │
00:00:45 verbose #1299 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1300 >
00:00:45 verbose #1301 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #1302 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #1303 > │ ## cancellation_token │
00:00:45 verbose #1304 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1305 >
00:00:45 verbose #1306 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #1307 > inl cancellation_token () : async threading.cancellation_token =
00:00:45 verbose #1308 > $'Async.CancellationToken'
00:00:45 verbose #1309 > 00:00:45 debug #65 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4c633cb712d16e1446768bd2cdf118cc3242e0e3607d21e78209822c73d590da/main.spi
00:00:45 verbose #1310 >
00:00:45 verbose #1311 > ╭─[ 206.43ms - stdout ]────────────────────────────────────────────────────────╮
00:00:45 verbose #1312 > │ () │
00:00:45 verbose #1313 > │ │
00:00:45 verbose #1314 > │ │
00:00:45 verbose #1315 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #1316 >
00:00:45 verbose #1317 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #1318 > inl default_cancellation_token () : threading.cancellation_token =
00:00:45 verbose #1319 > $'Async.DefaultCancellationToken'
00:00:46 verbose #1320 > 00:00:45 debug #66 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b8b0cade2e6e566204e1c6e24314d38b458ddc8a5d92c832f694b6e241eb26da/main.spi
00:00:46 verbose #1321 >
00:00:46 verbose #1322 > ╭─[ 211.41ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 verbose #1323 > │ () │
00:00:46 verbose #1324 > │ │
00:00:46 verbose #1325 > │ │
00:00:46 verbose #1326 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1327 >
00:00:46 verbose #1328 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #1329 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #1330 > │ ## merge_cancellation_token_with_default_async │
00:00:46 verbose #1331 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1332 >
00:00:46 verbose #1333 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #1334 > inl merge_cancellation_token_with_default_async
00:00:46 verbose #1335 > (token : threading.cancellation_token)
00:00:46 verbose #1336 > : async threading.cancellation_token
00:00:46 verbose #1337 > =
00:00:46 verbose #1338 > run_target function
00:00:46 verbose #1339 > | Fsharp (Native) => fun () =>
00:00:46 verbose #1340 > fun () =>
00:00:46 verbose #1341 > inl ct = cancellation_token () |> let'
00:00:46 verbose #1342 > inl dct = default_cancellation_token ()
00:00:46 verbose #1343 > inl cts = threading.create_linked_token_source ;[[ ct; dct;
00:00:46 verbose #1344 > token ]]
00:00:46 verbose #1345 > cts |> threading.cancellation_source_token |> return
00:00:46 verbose #1346 > |> new_async_unit
00:00:46 verbose #1347 > | _ => fun () => null ()
00:00:46 verbose #1348 > 00:00:45 debug #67 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7afa51962aebf26bdefb56ba9fc907d33316917670c0d0034e3674a63e523e3d/main.spi
00:00:46 verbose #1349 >
00:00:46 verbose #1350 > ╭─[ 235.58ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 verbose #1351 > │ () │
00:00:46 verbose #1352 > │ │
00:00:46 verbose #1353 > │ │
00:00:46 verbose #1354 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1355 >
00:00:46 verbose #1356 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #1357 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #1358 > │ ## with_trace_level │
00:00:46 verbose #1359 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1360 >
00:00:46 verbose #1361 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #1362 > inl with_trace_level forall t. level fn : _ t = new_async fun () =>
00:00:46 verbose #1363 > inl trace_state = get_trace_state ()
00:00:46 verbose #1364 > inl old_trace_level = *trace_state.level
00:00:46 verbose #1365 > inl trace_level = trace_state.level
00:00:46 verbose #1366 > try_finally
00:00:46 verbose #1367 > fun () =>
00:00:46 verbose #1368 > trace_level <- level
00:00:46 verbose #1369 > fn |> return_await
00:00:46 verbose #1370 > fun () =>
00:00:46 verbose #1371 > trace_level <- old_trace_level
00:00:46 verbose #1372 > 00:00:45 debug #68 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ffbd2548e2e19ae79a17efe261d6f11c2ea3d940c99e40dc82b831dd409543b1/main.spi
00:00:46 verbose #1373 >
00:00:46 verbose #1374 > ╭─[ 207.04ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 verbose #1375 > │ () │
00:00:46 verbose #1376 > │ │
00:00:46 verbose #1377 > │ │
00:00:46 verbose #1378 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1379 >
00:00:46 verbose #1380 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #1381 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #1382 > │ ## value_task │
00:00:46 verbose #1383 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1384 >
00:00:46 verbose #1385 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #1386 > nominal value_task = $'System.Threading.Tasks.ValueTask'
00:00:46 verbose #1387 > 00:00:46 debug #69 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5c1182ac83e9068e25859a244402109bc2ecc0aa5de1666afdd61adb6e2d9a36/main.spi
00:00:46 verbose #1388 >
00:00:46 verbose #1389 > ╭─[ 219.16ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 verbose #1390 > │ () │
00:00:46 verbose #1391 > │ │
00:00:46 verbose #1392 > │ │
00:00:46 verbose #1393 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1394 >
00:00:46 verbose #1395 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #1396 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #1397 > │ ## value_task_as_task │
00:00:46 verbose #1398 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1399 >
00:00:46 verbose #1400 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #1401 > inl value_task_as_task (task : value_task) : task () =
00:00:46 verbose #1402 > $'!task.AsTask' ()
00:00:46 verbose #1403 > 00:00:46 debug #70 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3c4e4b66567b8b81d9e8b8b9a4aa8db00f055ee52adc64860eaf051ff3e73cd2/main.spi
00:00:46 verbose #1404 >
00:00:46 verbose #1405 > ╭─[ 221.62ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 verbose #1406 > │ () │
00:00:46 verbose #1407 > │ │
00:00:46 verbose #1408 > │ │
00:00:46 verbose #1409 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1410 >
00:00:46 verbose #1411 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #1412 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #1413 > │ ## await_value_task_unit │
00:00:46 verbose #1414 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #1415 >
00:00:46 verbose #1416 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #1417 > inl await_value_task_unit (task : value_task) : async () =
00:00:46 verbose #1418 > task |> value_task_as_task |> await_task
00:00:47 verbose #1419 > 00:00:46 debug #71 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/017c2cc10fd40d6e5fd6d3491839e20916c5482cd49bcbd3a6b299437bcd6e1c/main.spi
00:00:47 verbose #1420 >
00:00:47 verbose #1421 > ╭─[ 241.01ms - stdout ]────────────────────────────────────────────────────────╮
00:00:47 verbose #1422 > │ () │
00:00:47 verbose #1423 > │ │
00:00:47 verbose #1424 > │ │
00:00:47 verbose #1425 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #1426 >
00:00:47 verbose #1427 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:47 verbose #1428 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:47 verbose #1429 > │ ## main │
00:00:47 verbose #1430 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #1431 >
00:00:47 verbose #1432 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 verbose #1433 > inl main () =
00:00:47 verbose #1434 > types ()
00:00:47 verbose #1435 > $"let merge_cancellation_token_with_default_async x =
00:00:47 verbose #1436 > !merge_cancellation_token_with_default_async x" : ()
00:00:47 verbose #1437 > 00:00:46 debug #72 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8670f4ef0bc21facf4463a07527f28648bcd44e2361d46c1c359781b442274a1/main.spi
00:00:48 verbose #1438 >
00:00:48 verbose #1439 > ╭─[ 1.03s - stdout ]───────────────────────────────────────────────────────────╮
00:00:48 verbose #1440 > │ #if FABLE_COMPILER // async.types │
00:00:48 verbose #1441 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>] │
00:00:48 verbose #1442 > │ type std_future_Future<'T> = class end │
00:00:48 verbose #1443 > │ [<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>] │
00:00:48 verbose #1444 > │ type futures_future_TryJoinAll<'T> = class end │
00:00:48 verbose #1445 > │ [<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>] type │
00:00:48 verbose #1446 > │ rayon_vec_IntoIter<'T> = class end │
00:00:48 verbose #1447 > │ [<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>] type │
00:00:48 verbose #1448 > │ rayon_iter_Map<'T> = class end │
00:00:48 verbose #1449 > │ #endif // async.types │
00:00:48 verbose #1450 > │ let rec closure0 () (v0 : System.Threading.CancellationToken) : │
00:00:48 verbose #1451 > │ Async<System.Threading.CancellationToken> = │
00:00:48 verbose #1452 > │ let v1 : Async<System.Threading.CancellationToken> option = None │
00:00:48 verbose #1453 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:00:48 verbose #1454 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:48 verbose #1455 > │ let v3 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1456 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1457 > │ v3 │
00:00:48 verbose #1458 > │ #endif │
00:00:48 verbose #1459 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:48 verbose #1460 > │ let v4 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1461 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1462 > │ v4 │
00:00:48 verbose #1463 > │ #endif │
00:00:48 verbose #1464 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:48 verbose #1465 > │ let v5 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1466 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1467 > │ v5 │
00:00:48 verbose #1468 > │ #endif │
00:00:48 verbose #1469 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:48 verbose #1470 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:48 verbose #1471 > │ let v6 : Async<System.Threading.CancellationToken> option = None │
00:00:48 verbose #1472 > │ let v7 : bool = true in let mutable _v6 = v6 │
00:00:48 verbose #1473 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:48 verbose #1474 > │ let v8 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1475 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1476 > │ v8 │
00:00:48 verbose #1477 > │ #endif │
00:00:48 verbose #1478 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:48 verbose #1479 > │ let v9 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1480 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1481 > │ v9 │
00:00:48 verbose #1482 > │ #endif │
00:00:48 verbose #1483 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:48 verbose #1484 > │ let v10 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1485 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1486 > │ v10 │
00:00:48 verbose #1487 > │ #endif │
00:00:48 verbose #1488 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:48 verbose #1489 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:48 verbose #1490 > │ let v11 : Async<System.Threading.CancellationToken> option = None │
00:00:48 verbose #1491 > │ let mutable _v11 = v11 │
00:00:48 verbose #1492 > │ async { │
00:00:48 verbose #1493 > │ let v12 : Async<System.Threading.CancellationToken> = │
00:00:48 verbose #1494 > │ Async.CancellationToken │
00:00:48 verbose #1495 > │ let! v12 = v12 │
00:00:48 verbose #1496 > │ let v13 : System.Threading.CancellationToken = v12 │
00:00:48 verbose #1497 > │ let v14 : System.Threading.CancellationToken = │
00:00:48 verbose #1498 > │ Async.DefaultCancellationToken │
00:00:48 verbose #1499 > │ let v15 : (System.Threading.CancellationToken []) = [|v13; v14; v0|] │
00:00:48 verbose #1500 > │ let v16 : ((System.Threading.CancellationToken []) -> │
00:00:48 verbose #1501 > │ System.Threading.CancellationTokenSource) = │
00:00:48 verbose #1502 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:00:48 verbose #1503 > │ let v17 : System.Threading.CancellationTokenSource = v16 v15 │
00:00:48 verbose #1504 > │ let v18 : System.Threading.CancellationToken = v17.Token │
00:00:48 verbose #1505 > │ return v18 │
00:00:48 verbose #1506 > │ } │
00:00:48 verbose #1507 > │ |> fun x -> _v11 <- Some x │
00:00:48 verbose #1508 > │ let v19 : Async<System.Threading.CancellationToken> = _v11 |> Option.get │
00:00:48 verbose #1509 > │ v19 │
00:00:48 verbose #1510 > │ #endif │
00:00:48 verbose #1511 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:48 verbose #1512 > │ let v20 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1513 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1514 > │ v20 │
00:00:48 verbose #1515 > │ #endif │
00:00:48 verbose #1516 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:48 verbose #1517 > │ let v21 : Async<System.Threading.CancellationToken> = │
00:00:48 verbose #1518 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1519 > │ v21 │
00:00:48 verbose #1520 > │ #endif │
00:00:48 verbose #1521 > │ |> fun x -> _v6 <- Some x │
00:00:48 verbose #1522 > │ let v22 : Async<System.Threading.CancellationToken> = _v6.Value │
00:00:48 verbose #1523 > │ v22 │
00:00:48 verbose #1524 > │ #endif │
00:00:48 verbose #1525 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:48 verbose #1526 > │ let v23 : Async<System.Threading.CancellationToken> = null |> │
00:00:48 verbose #1527 > │ unbox<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1528 > │ v23 │
00:00:48 verbose #1529 > │ #endif │
00:00:48 verbose #1530 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:48 verbose #1531 > │ let v24 : Async<System.Threading.CancellationToken> = │
00:00:48 verbose #1532 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:00:48 verbose #1533 > │ v24 │
00:00:48 verbose #1534 > │ #endif │
00:00:48 verbose #1535 > │ |> fun x -> _v1 <- Some x │
00:00:48 verbose #1536 > │ let v25 : Async<System.Threading.CancellationToken> = _v1.Value │
00:00:48 verbose #1537 > │ v25 │
00:00:48 verbose #1538 > │ let v0 : (System.Threading.CancellationToken -> │
00:00:48 verbose #1539 > │ Async<System.Threading.CancellationToken>) = closure0() │
00:00:48 verbose #1540 > │ let merge_cancellation_token_with_default_async x = v0 x │
00:00:48 verbose #1541 > │ () │
00:00:48 verbose #1542 > │ │
00:00:48 verbose #1543 > │ │
00:00:48 verbose #1544 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 verbose #1545 > [NbConvertApp] Converting notebook async.dib.ipynb to html
00:00:50 verbose #1546 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:50 verbose #1547 > validate(nb)
00:00:50 verbose #1548 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:50 verbose #1549 > return _pygments_highlight(
00:00:51 verbose #1550 > [NbConvertApp] Writing 410731 bytes to async.dib.html
00:00:51 debug #1551 execute_with_options_async / exit_code: 0 / output.Length: 67461
00:00:51 debug #5 main / executeCommand / exitCode: 0
00:00:51 debug #1552 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 runtime.dib -Retries 3"", None,
None)
00:00:52 verbose #1553 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: runtime.dib / _args: [
00:00:52 verbose #1554 > "-Retries",
00:00:52 verbose #1555 > 3
00:00:52 verbose #1556 > ]
00:00:54 verbose #1557 >
00:00:54 verbose #1558 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 verbose #1559 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 verbose #1560 > │ # runtime │
00:00:54 verbose #1561 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #1562 >
00:00:54 verbose #1563 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 verbose #1564 > open rust_operators
00:00:54 verbose #1565 > open sm'_operators
00:00:57 verbose #1566 > 00:00:57 debug #73 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/032c8b088372ab832664d98a64dd782e20000598cb6f954fca120c7fcc91e0cc/main.spi
00:00:58 verbose #1567 >
00:00:58 verbose #1568 > ╭─[ 4.05s - stdout ]───────────────────────────────────────────────────────────╮
00:00:58 verbose #1569 > │ () │
00:00:58 verbose #1570 > │ │
00:00:58 verbose #1571 > │ │
00:00:58 verbose #1572 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1573 >
00:00:58 verbose #1574 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1575 > // // test
00:00:58 verbose #1576 >
00:00:58 verbose #1577 > open testing
00:00:58 verbose #1578 > open file_system_operators
00:00:58 verbose #1579 > 00:00:58 debug #74 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d0e7318482a278dd4f38747d78fcea42a61b5392756dbdd1357c7b1b072076e3/main.spi
00:00:58 verbose #1580 >
00:00:58 verbose #1581 > ╭─[ 269.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:58 verbose #1582 > │ () │
00:00:58 verbose #1583 > │ │
00:00:58 verbose #1584 > │ │
00:00:58 verbose #1585 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1586 >
00:00:58 verbose #1587 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1588 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1589 > │ ## types │
00:00:58 verbose #1590 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1591 >
00:00:58 verbose #1592 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1593 > inl types () =
00:00:58 verbose #1594 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"clap::Arg\")>]] type clap_Arg
00:00:58 verbose #1595 > = class end"
00:00:58 verbose #1596 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"clap::Command\")>]] type
00:00:58 verbose #1597 > clap_Command = class end"
00:00:58 verbose #1598 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"clap::ArgMatches\")>]] type
00:00:58 verbose #1599 > clap_ArgMatches = class end"
00:00:59 verbose #1600 > 00:00:58 debug #75 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/efe254e0c6a9b74e8d5dd809be91108ecb9320d87ae64cc502aea40c921d06c2/main.spi
00:00:59 verbose #1601 >
00:00:59 verbose #1602 > ╭─[ 256.48ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 verbose #1603 > │ () │
00:00:59 verbose #1604 > │ │
00:00:59 verbose #1605 > │ │
00:00:59 verbose #1606 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1607 >
00:00:59 verbose #1608 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #1609 > inl types () =
00:00:59 verbose #1610 > global "#if FABLE_COMPILER // runtime.types"
00:00:59 verbose #1611 > rust.types ()
00:00:59 verbose #1612 > sm'.types ()
00:00:59 verbose #1613 > types ()
00:00:59 verbose #1614 > global "#endif // runtime.types"
00:00:59 verbose #1615 > 00:00:58 debug #76 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6bda27dfc581f13ec18229f19af8a7cbf9638e0041ff142579226678d34eea3e/main.spi
00:00:59 verbose #1616 >
00:00:59 verbose #1617 > ╭─[ 229.60ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 verbose #1618 > │ () │
00:00:59 verbose #1619 > │ │
00:00:59 verbose #1620 > │ │
00:00:59 verbose #1621 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1622 >
00:00:59 verbose #1623 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #1624 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #1625 > │ ## os_platform │
00:00:59 verbose #1626 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1627 >
00:00:59 verbose #1628 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #1629 > nominal os_platform' = $'System.Runtime.InteropServices.OSPlatform'
00:00:59 verbose #1630 >
00:00:59 verbose #1631 > union os_platform =
00:00:59 verbose #1632 > | Windows
00:00:59 verbose #1633 >
00:00:59 verbose #1634 > inl os_platform = function
00:00:59 verbose #1635 > | Windows => $'`os_platform'.Windows' : os_platform'
00:00:59 verbose #1636 > 00:00:58 debug #77 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eaa828f0d83f15ad910c4c7e8a2f4935aaf397b5144aeb3821334de9d28d6cfb/main.spi
00:00:59 verbose #1637 >
00:00:59 verbose #1638 > ╭─[ 215.30ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 verbose #1639 > │ () │
00:00:59 verbose #1640 > │ │
00:00:59 verbose #1641 > │ │
00:00:59 verbose #1642 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1643 >
00:00:59 verbose #1644 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #1645 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #1646 > │ ## is_os_platform │
00:00:59 verbose #1647 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1648 >
00:00:59 verbose #1649 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #1650 > inl is_os_platform (x : os_platform') : bool =
00:00:59 verbose #1651 > x |> $'System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform'
00:00:59 verbose #1652 > 00:00:59 debug #78 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1474b5d20919e68f0927c65e9108cf466067e934f67a090d02292c693459d132/main.spi
00:00:59 verbose #1653 >
00:00:59 verbose #1654 > ╭─[ 227.70ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 verbose #1655 > │ () │
00:00:59 verbose #1656 > │ │
00:00:59 verbose #1657 > │ │
00:00:59 verbose #1658 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1659 >
00:00:59 verbose #1660 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #1661 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #1662 > │ ## is_windows │
00:00:59 verbose #1663 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #1664 >
00:00:59 verbose #1665 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #1666 > inl is_windows () : bool =
00:00:59 verbose #1667 > run_target function
00:00:59 verbose #1668 > | Fsharp (Native) => fun () =>
00:00:59 verbose #1669 > Windows |> os_platform |> is_os_platform
00:00:59 verbose #1670 > | _ => fun () => null ()
00:01:00 verbose #1671 > 00:00:59 debug #79 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d9fbde451bcce6fb5f7df60238c10bbb89ba28fe02c62d334176334520adc641/main.spi
00:01:00 verbose #1672 >
00:01:00 verbose #1673 > ╭─[ 235.28ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 verbose #1674 > │ () │
00:01:00 verbose #1675 > │ │
00:01:00 verbose #1676 > │ │
00:01:00 verbose #1677 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 verbose #1678 >
00:01:00 verbose #1679 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 verbose #1680 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 verbose #1681 > │ ## get_executable_suffix │
00:01:00 verbose #1682 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 verbose #1683 >
00:01:00 verbose #1684 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 verbose #1685 > inl get_executable_suffix () =
00:01:00 verbose #1686 > if is_windows ()
00:01:00 verbose #1687 > then ".exe"
00:01:00 verbose #1688 > else ""
00:01:00 verbose #1689 > 00:00:59 debug #80 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f1f7a460963e0c85f3f3dc17eeedccd01f8f085688fce629f557782f29d6898e/main.spi
00:01:00 verbose #1690 >
00:01:00 verbose #1691 > ╭─[ 275.10ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 verbose #1692 > │ () │
00:01:00 verbose #1693 > │ │
00:01:00 verbose #1694 > │ │
00:01:00 verbose #1695 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 verbose #1696 >
00:01:00 verbose #1697 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 verbose #1698 > // // test
00:01:00 verbose #1699 >
00:01:00 verbose #1700 > get_executable_suffix ()
00:01:00 verbose #1701 > 00:00:59 debug #81 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ca09541052b7e39310ea15042e84ccf179230c4ced3ff76771d5a68f776c3d26/main.spi
00:01:01 verbose #1702 >
00:01:01 verbose #1703 > ╭─[ 910.46ms - return value ]──────────────────────────────────────────────────╮
00:01:01 verbose #1704 > │ .exe │
00:01:01 verbose #1705 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1706 >
00:01:01 verbose #1707 > ╭─[ 913.15ms - stdout ]────────────────────────────────────────────────────────╮
00:01:01 verbose #1708 > │ let rec method0 () : string = │
00:01:01 verbose #1709 > │ let v0 : bool option = None │
00:01:01 verbose #1710 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:01 verbose #1711 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:01 verbose #1712 > │ let v2 : bool = null |> unbox<bool> │
00:01:01 verbose #1713 > │ v2 │
00:01:01 verbose #1714 > │ #endif │
00:01:01 verbose #1715 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:01 verbose #1716 > │ let v3 : bool = null |> unbox<bool> │
00:01:01 verbose #1717 > │ v3 │
00:01:01 verbose #1718 > │ #endif │
00:01:01 verbose #1719 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:01 verbose #1720 > │ let v4 : bool = null |> unbox<bool> │
00:01:01 verbose #1721 > │ v4 │
00:01:01 verbose #1722 > │ #endif │
00:01:01 verbose #1723 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:01 verbose #1724 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:01 verbose #1725 > │ let v5 : System.Runtime.InteropServices.OSPlatform = │
00:01:01 verbose #1726 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:01 verbose #1727 > │ let v6 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:01 verbose #1728 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:01 verbose #1729 > │ let v7 : bool = v6 v5 │
00:01:01 verbose #1730 > │ v7 │
00:01:01 verbose #1731 > │ #endif │
00:01:01 verbose #1732 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:01 verbose #1733 > │ let v8 : bool = null |> unbox<bool> │
00:01:01 verbose #1734 > │ v8 │
00:01:01 verbose #1735 > │ #endif │
00:01:01 verbose #1736 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:01 verbose #1737 > │ let v9 : bool = Unchecked.defaultof<bool> │
00:01:01 verbose #1738 > │ v9 │
00:01:01 verbose #1739 > │ #endif │
00:01:01 verbose #1740 > │ |> fun x -> _v0 <- Some x │
00:01:01 verbose #1741 > │ let v10 : bool = _v0.Value │
00:01:01 verbose #1742 > │ if v10 then │
00:01:01 verbose #1743 > │ let v11 : string = ".exe" │
00:01:01 verbose #1744 > │ v11 │
00:01:01 verbose #1745 > │ else │
00:01:01 verbose #1746 > │ let v12 : string = "" │
00:01:01 verbose #1747 > │ v12 │
00:01:01 verbose #1748 > │ method0() │
00:01:01 verbose #1749 > │ │
00:01:01 verbose #1750 > │ │
00:01:01 verbose #1751 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1752 >
00:01:01 verbose #1753 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #1754 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #1755 > │ ## split_command │
00:01:01 verbose #1756 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1757 >
00:01:01 verbose #1758 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1759 > union quoted =
00:01:01 verbose #1760 > | Quoted
00:01:01 verbose #1761 > | NotQuoted
00:01:01 verbose #1762 >
00:01:01 verbose #1763 > union command_parse_step =
00:01:01 verbose #1764 > | Start
00:01:01 verbose #1765 > | Path : quoted
00:01:01 verbose #1766 > | Arguments
00:01:01 verbose #1767 >
00:01:01 verbose #1768 > inl split_command (command : string) =
00:01:01 verbose #1769 > let rec loop (path, args) (chars : list char) step =
00:01:01 verbose #1770 > match step, chars with
00:01:01 verbose #1771 > | _, (('"' | '\'') :: tail) when path = "" => loop (path, args) tail
00:01:01 verbose #1772 > (Path Quoted)
00:01:01 verbose #1773 > | Path (Quoted), (('"' | '\'') :: tail) => loop (path, args) tail (Path
00:01:01 verbose #1774 > NotQuoted)
00:01:01 verbose #1775 > | Path (Quoted), (' ' :: tail) => loop ($'$"{!path} "', args) tail (Path
00:01:01 verbose #1776 > Quoted)
00:01:01 verbose #1777 > | (Start | Path _), (' ' :: tail) => loop (path, args) tail Arguments
00:01:01 verbose #1778 > | Arguments, (char :: tail) => loop (path, $'$"{!args}{!char}"') tail
00:01:01 verbose #1779 > Arguments
00:01:01 verbose #1780 > | _, (char :: tail) => loop ($'$"{!path}{!char}"', args) tail step
00:01:01 verbose #1781 > | _ => path |> sm'.replace @"\" "/", args
00:01:01 verbose #1782 > loop (join "", "") (command |> seq.of_string |> seq.to_list' |>
00:01:01 verbose #1783 > listm'.unbox) Start
00:01:01 verbose #1784 > 00:01:00 debug #82 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ec623a8d68f0529ffb097224052cca111db6420f9d354bfbca30c91db4201f6a/main.spi
00:01:01 verbose #1785 >
00:01:01 verbose #1786 > ╭─[ 298.46ms - stdout ]────────────────────────────────────────────────────────╮
00:01:01 verbose #1787 > │ () │
00:01:01 verbose #1788 > │ │
00:01:01 verbose #1789 > │ │
00:01:01 verbose #1790 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #1791 >
00:01:01 verbose #1792 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #1793 > // // test
00:01:01 verbose #1794 >
00:01:01 verbose #1795 > split_command ""
00:01:01 verbose #1796 > |> _assert_eq ("", "")
00:01:01 verbose #1797 >
00:01:01 verbose #1798 > split_command "/a/b/c"
00:01:01 verbose #1799 > |> _assert_eq ("/a/b/c", "")
00:01:01 verbose #1800 >
00:01:01 verbose #1801 > split_command "cat file.txt"
00:01:01 verbose #1802 > |> _assert_eq ("cat", "file.txt")
00:01:01 verbose #1803 >
00:01:01 verbose #1804 > split_command $'"""..\\..\\file.exe file1.txt file2.txt"""'
00:01:01 verbose #1805 > |> _assert_eq ("../../file.exe", "file1.txt file2.txt")
00:01:01 verbose #1806 >
00:01:01 verbose #1807 > split_command $'\@"c:\\dir\\file.exe ""file1.txt file2.txt"""'
00:01:01 verbose #1808 > |> _assert_eq ("c:/dir/file.exe", $'\@"""file1.txt file2.txt"""')
00:01:01 verbose #1809 >
00:01:01 verbose #1810 > split_command $'\@"""..\\..\\dir name\\file.exe"" ""file 1.txt"" file2.txt"'
00:01:01 verbose #1811 > |> _assert_eq ("../../dir name/file.exe", $'\@"""file 1.txt"" file2.txt"')
00:01:01 verbose #1812 >
00:01:01 verbose #1813 > split_command $'\@"""..\\..\\file 1.exe"" -c \\\\""echo 1\\\\"""'
00:01:01 verbose #1814 > |> _assert_eq ("../../file 1.exe", $'\@"-c \\\\""echo 1\\\\"""')
00:01:01 verbose #1815 >
00:01:01 verbose #1816 > split_command $'\@"..\\..\\file 1.exe -c \\\\""echo 1\\\\"""'
00:01:01 verbose #1817 > |> _assert_eq ("../../file", $'\@"1.exe -c \\\\""echo 1\\\\"""')
00:01:01 verbose #1818 > 00:01:01 debug #83 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f6c559fe27784d54a7ba6848dbc4e71a3f07935445a9b2f916acc492b1f4a2e2/main.spi
00:01:02 verbose #1819 >
00:01:02 verbose #1820 > ╭─[ 1.27s - stdout ]───────────────────────────────────────────────────────────╮
00:01:02 verbose #1821 > │ type UH0 = │
00:01:02 verbose #1822 > │ | UH0_0 │
00:01:02 verbose #1823 > │ | UH0_1 of char * UH0 │
00:01:02 verbose #1824 > │ and [<Struct>] US1 = │
00:01:02 verbose #1825 > │ | US1_0 │
00:01:02 verbose #1826 > │ | US1_1 │
00:01:02 verbose #1827 > │ and [<Struct>] US0 = │
00:01:02 verbose #1828 > │ | US0_0 │
00:01:02 verbose #1829 > │ | US0_1 of f1_0 : US1 │
00:01:02 verbose #1830 > │ | US0_2 │
00:01:02 verbose #1831 > │ let rec method1 () : struct (string * string) = │
00:01:02 verbose #1832 > │ let v0 : string = "" │
00:01:02 verbose #1833 > │ struct (v0, v0) │
00:01:02 verbose #1834 > │ and closure1 (v0 : char) (v1 : UH0) : UH0 = │
00:01:02 verbose #1835 > │ UH0_1(v0, v1) │
00:01:02 verbose #1836 > │ and closure0 () (v0 : char) : (UH0 -> UH0) = │
00:01:02 verbose #1837 > │ closure1(v0) │
00:01:02 verbose #1838 > │ and method2 () : (char -> (UH0 -> UH0)) = │
00:01:02 verbose #1839 > │ closure0() │
00:01:02 verbose #1840 > │ and method3 (v0 : string, v1 : string, v2 : UH0, v3 : US0) : struct (string │
00:01:02 verbose #1841 > │ * string) = │
00:01:02 verbose #1842 > │ match v2 with │
00:01:02 verbose #1843 > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:02 verbose #1844 > │ let v6 : bool = '"' = v4 │
00:01:02 verbose #1845 > │ if v6 then │
00:01:02 verbose #1846 > │ let v8 : bool = v1 = "" │
00:01:02 verbose #1847 > │ if v8 then │
00:01:02 verbose #1848 > │ let v9 : US1 = US1_0 │
00:01:02 verbose #1849 > │ let v10 : US0 = US0_1(v9) │
00:01:02 verbose #1850 > │ method3(v0, v1, v5, v10) │
00:01:02 verbose #1851 > │ else │
00:01:02 verbose #1852 > │ match v3 with │
00:01:02 verbose #1853 > │ | US0_2 -> (* Arguments *) │
00:01:02 verbose #1854 > │ let v38 : string = $"{v0}{v4}" │
00:01:02 verbose #1855 > │ let v39 : US0 = US0_2 │
00:01:02 verbose #1856 > │ method3(v38, v1, v5, v39) │
00:01:02 verbose #1857 > │ | US0_1(v13) -> (* Path *) │
00:01:02 verbose #1858 > │ match v13 with │
00:01:02 verbose #1859 > │ | US1_0 -> (* Quoted *) │
00:01:02 verbose #1860 > │ let v14 : US1 = US1_1 │
00:01:02 verbose #1861 > │ let v15 : US0 = US0_1(v14) │
00:01:02 verbose #1862 > │ method3(v0, v1, v5, v15) │
00:01:02 verbose #1863 > │ | _ -> │
00:01:02 verbose #1864 > │ let v18 : bool = ' ' = v4 │
00:01:02 verbose #1865 > │ if v18 then │
00:01:02 verbose #1866 > │ let v19 : US0 = US0_2 │
00:01:02 verbose #1867 > │ method3(v0, v1, v5, v19) │
00:01:02 verbose #1868 > │ else │
00:01:02 verbose #1869 > │ let v22 : string = $"{v1}{v4}" │
00:01:02 verbose #1870 > │ method3(v0, v22, v5, v3) │
00:01:02 verbose #1871 > │ | US0_0 -> (* Start *) │
00:01:02 verbose #1872 > │ let v29 : bool = ' ' = v4 │
00:01:02 verbose #1873 > │ if v29 then │
00:01:02 verbose #1874 > │ let v30 : US0 = US0_2 │
00:01:02 verbose #1875 > │ method3(v0, v1, v5, v30) │
00:01:02 verbose #1876 > │ else │
00:01:02 verbose #1877 > │ let v33 : string = $"{v1}{v4}" │
00:01:02 verbose #1878 > │ method3(v0, v33, v5, v3) │
00:01:02 verbose #1879 > │ else │
00:01:02 verbose #1880 > │ let v50 : bool = ''' = v4 │
00:01:02 verbose #1881 > │ if v50 then │
00:01:02 verbose #1882 > │ let v52 : bool = v1 = "" │
00:01:02 verbose #1883 > │ if v52 then │
00:01:02 verbose #1884 > │ let v53 : US1 = US1_0 │
00:01:02 verbose #1885 > │ let v54 : US0 = US0_1(v53) │
00:01:02 verbose #1886 > │ method3(v0, v1, v5, v54) │
00:01:02 verbose #1887 > │ else │
00:01:02 verbose #1888 > │ match v3 with │
00:01:02 verbose #1889 > │ | US0_2 -> (* Arguments *) │
00:01:02 verbose #1890 > │ let v82 : string = $"{v0}{v4}" │
00:01:02 verbose #1891 > │ let v83 : US0 = US0_2 │
00:01:02 verbose #1892 > │ method3(v82, v1, v5, v83) │
00:01:02 verbose #1893 > │ | US0_1(v57) -> (* Path *) │
00:01:02 verbose #1894 > │ match v57 with │
00:01:02 verbose #1895 > │ | US1_0 -> (* Quoted *) │
00:01:02 verbose #1896 > │ let v58 : US1 = US1_1 │
00:01:02 verbose #1897 > │ let v59 : US0 = US0_1(v58) │
00:01:02 verbose #1898 > │ method3(v0, v1, v5, v59) │
00:01:02 verbose #1899 > │ | _ -> │
00:01:02 verbose #1900 > │ let v62 : bool = ' ' = v4 │
00:01:02 verbose #1901 > │ if v62 then │
00:01:02 verbose #1902 > │ let v63 : US0 = US0_2 │
00:01:02 verbose #1903 > │ method3(v0, v1, v5, v63) │
00:01:02 verbose #1904 > │ else │
00:01:02 verbose #1905 > │ let v66 : string = $"{v1}{v4}" │
00:01:02 verbose #1906 > │ method3(v0, v66, v5, v3) │
00:01:02 verbose #1907 > │ | US0_0 -> (* Start *) │
00:01:02 verbose #1908 > │ let v73 : bool = ' ' = v4 │
00:01:02 verbose #1909 > │ if v73 then │
00:01:02 verbose #1910 > │ let v74 : US0 = US0_2 │
00:01:02 verbose #1911 > │ method3(v0, v1, v5, v74) │
00:01:02 verbose #1912 > │ else │
00:01:02 verbose #1913 > │ let v77 : string = $"{v1}{v4}" │
00:01:02 verbose #1914 > │ method3(v0, v77, v5, v3) │
00:01:02 verbose #1915 > │ else │
00:01:02 verbose #1916 > │ match v3 with │
00:01:02 verbose #1917 > │ | US0_2 -> (* Arguments *) │
00:01:02 verbose #1918 > │ let v126 : string = $"{v0}{v4}" │
00:01:02 verbose #1919 > │ let v127 : US0 = US0_2 │
00:01:02 verbose #1920 > │ method3(v126, v1, v5, v127) │
00:01:02 verbose #1921 > │ | US0_1(v94) -> (* Path *) │
00:01:02 verbose #1922 > │ match v94 with │
00:01:02 verbose #1923 > │ | US1_0 -> (* Quoted *) │
00:01:02 verbose #1924 > │ let v95 : bool = ' ' = v4 │
00:01:02 verbose #1925 > │ if v95 then │
00:01:02 verbose #1926 > │ let v96 : string = $"{v1} " │
00:01:02 verbose #1927 > │ let v97 : US1 = US1_0 │
00:01:02 verbose #1928 > │ let v98 : US0 = US0_1(v97) │
00:01:02 verbose #1929 > │ method3(v0, v96, v5, v98) │
00:01:02 verbose #1930 > │ else │
00:01:02 verbose #1931 > │ let v101 : string = $"{v1}{v4}" │
00:01:02 verbose #1932 > │ method3(v0, v101, v5, v3) │
00:01:02 verbose #1933 > │ | _ -> │
00:01:02 verbose #1934 > │ let v106 : bool = ' ' = v4 │
00:01:02 verbose #1935 > │ if v106 then │
00:01:02 verbose #1936 > │ let v107 : US0 = US0_2 │
00:01:02 verbose #1937 > │ method3(v0, v1, v5, v107) │
00:01:02 verbose #1938 > │ else │
00:01:02 verbose #1939 > │ let v110 : string = $"{v1}{v4}" │
00:01:02 verbose #1940 > │ method3(v0, v110, v5, v3) │
00:01:02 verbose #1941 > │ | US0_0 -> (* Start *) │
00:01:02 verbose #1942 > │ let v117 : bool = ' ' = v4 │
00:01:02 verbose #1943 > │ if v117 then │
00:01:02 verbose #1944 > │ let v118 : US0 = US0_2 │
00:01:02 verbose #1945 > │ method3(v0, v1, v5, v118) │
00:01:02 verbose #1946 > │ else │
00:01:02 verbose #1947 > │ let v121 : string = $"{v1}{v4}" │
00:01:02 verbose #1948 > │ method3(v0, v121, v5, v3) │
00:01:02 verbose #1949 > │ | _ -> │
00:01:02 verbose #1950 > │ match v3 with │
00:01:02 verbose #1951 > │ | US0_2 -> (* Arguments *) │
00:01:02 verbose #1952 > │ let v152 : string = "\\" │
00:01:02 verbose #1953 > │ let v153 : string = "/" │
00:01:02 verbose #1954 > │ let v154 : string = v1.Replace (v152, v153) │
00:01:02 verbose #1955 > │ struct (v154, v0) │
00:01:02 verbose #1956 > │ | US0_1(v140) -> (* Path *) │
00:01:02 verbose #1957 > │ match v140 with │
00:01:02 verbose #1958 > │ | US1_0 -> (* Quoted *) │
00:01:02 verbose #1959 > │ let v141 : string = "\\" │
00:01:02 verbose #1960 > │ let v142 : string = "/" │
00:01:02 verbose #1961 > │ let v143 : string = v1.Replace (v141, v142) │
00:01:02 verbose #1962 > │ struct (v143, v0) │
00:01:02 verbose #1963 > │ | _ -> │
00:01:02 verbose #1964 > │ let v144 : string = "\\" │
00:01:02 verbose #1965 > │ let v145 : string = "/" │
00:01:02 verbose #1966 > │ let v146 : string = v1.Replace (v144, v145) │
00:01:02 verbose #1967 > │ struct (v146, v0) │
00:01:02 verbose #1968 > │ | US0_0 -> (* Start *) │
00:01:02 verbose #1969 > │ let v149 : string = "\\" │
00:01:02 verbose #1970 > │ let v150 : string = "/" │
00:01:02 verbose #1971 > │ let v151 : string = v1.Replace (v149, v150) │
00:01:02 verbose #1972 > │ struct (v151, v0) │
00:01:02 verbose #1973 > │ and method4 (v0 : bool) : bool = │
00:01:02 verbose #1974 > │ v0 │
00:01:02 verbose #1975 > │ and method0 () : unit = │
00:01:02 verbose #1976 > │ let struct (v0 : string, v1 : string) = method1() │
00:01:02 verbose #1977 > │ let v2 : string = "" │
00:01:02 verbose #1978 > │ let v3 : char seq = v2 |> unbox<char seq> │
00:01:02 verbose #1979 > │ let v4 : (char seq -> char list) = Seq.toList │
00:01:02 verbose #1980 > │ let v5 : char list = v4 v3 │
00:01:02 verbose #1981 > │ let v6 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:02 verbose #1982 > │ List.foldBack │
00:01:02 verbose #1983 > │ let v7 : (char -> (UH0 -> UH0)) = method2() │
00:01:02 verbose #1984 > │ let v8 : (char list -> (UH0 -> UH0)) = v6 v7 │
00:01:02 verbose #1985 > │ let v9 : (UH0 -> UH0) = v8 v5 │
00:01:02 verbose #1986 > │ let v10 : UH0 = UH0_0 │
00:01:02 verbose #1987 > │ let v11 : UH0 = v9 v10 │
00:01:02 verbose #1988 > │ let v12 : US0 = US0_0 │
00:01:02 verbose #1989 > │ let struct (v13 : string, v14 : string) = method3(v1, v0, v11, v12) │
00:01:02 verbose #1990 > │ let v15 : string = $"%A{struct (v13, v14)}" │
00:01:02 verbose #1991 > │ System.Console.WriteLine v15 │
00:01:02 verbose #1992 > │ let v16 : bool = v13 = "" │
00:01:02 verbose #1993 > │ let v18 : bool = │
00:01:02 verbose #1994 > │ if v16 then │
00:01:02 verbose #1995 > │ let v17 : bool = v14 = "" │
00:01:02 verbose #1996 > │ v17 │
00:01:02 verbose #1997 > │ else │
00:01:02 verbose #1998 > │ false │
00:01:02 verbose #1999 > │ let v20 : bool = │
00:01:02 verbose #2000 > │ if v18 then │
00:01:02 verbose #2001 > │ true │
00:01:02 verbose #2002 > │ else │
00:01:02 verbose #2003 > │ method4(v18) │
00:01:02 verbose #2004 > │ let v21 : string = $"__expect / actual: %A{struct (v13, v14)} / │
00:01:02 verbose #2005 > │ expected: %A{struct (v2, v2)}" │
00:01:02 verbose #2006 > │ let v22 : bool = v20 = false │
00:01:02 verbose #2007 > │ if v22 then │
00:01:02 verbose #2008 > │ failwith<unit> v21 │
00:01:02 verbose #2009 > │ let struct (v23 : string, v24 : string) = method1() │
00:01:02 verbose #2010 > │ let v25 : string = "/a/b/c" │
00:01:02 verbose #2011 > │ let v26 : char seq = v25 |> unbox<char seq> │
00:01:02 verbose #2012 > │ let v27 : (char seq -> char list) = Seq.toList │
00:01:02 verbose #2013 > │ let v28 : char list = v27 v26 │
00:01:02 verbose #2014 > │ let v29 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:02 verbose #2015 > │ List.foldBack │
00:01:02 verbose #2016 > │ let v30 : (char -> (UH0 -> UH0)) = method2() │
00:01:02 verbose #2017 > │ let v31 : (char list -> (UH0 -> UH0)) = v29 v30 │
00:01:02 verbose #2018 > │ let v32 : (UH0 -> UH0) = v31 v28 │
00:01:02 verbose #2019 > │ let v33 : UH0 = UH0_0 │
00:01:02 verbose #2020 > │ let v34 : UH0 = v32 v33 │
00:01:02 verbose #2021 > │ let v35 : US0 = US0_0 │
00:01:02 verbose #2022 > │ let struct (v36 : string, v37 : string) = method3(v24, v23, v34, v35) │
00:01:03 verbose #2023 > │ let v38 : string = $"%A{struct (v36, v37)}" │
00:01:03 verbose #2024 > │ System.Console.WriteLine v38 │
00:01:03 verbose #2025 > │ let v39 : bool = v36 = "/a/b/c" │
00:01:03 verbose #2026 > │ let v41 : bool = │
00:01:03 verbose #2027 > │ if v39 then │
00:01:03 verbose #2028 > │ let v40 : bool = v37 = "" │
00:01:03 verbose #2029 > │ v40 │
00:01:03 verbose #2030 > │ else │
00:01:03 verbose #2031 > │ false │
00:01:03 verbose #2032 > │ let v43 : bool = │
00:01:03 verbose #2033 > │ if v41 then │
00:01:03 verbose #2034 > │ true │
00:01:03 verbose #2035 > │ else │
00:01:03 verbose #2036 > │ method4(v41) │
00:01:03 verbose #2037 > │ let v44 : string = $"__expect / actual: %A{struct (v36, v37)} / │
00:01:03 verbose #2038 > │ expected: %A{struct (v25, v2)}" │
00:01:03 verbose #2039 > │ let v45 : bool = v43 = false │
00:01:03 verbose #2040 > │ if v45 then │
00:01:03 verbose #2041 > │ failwith<unit> v44 │
00:01:03 verbose #2042 > │ let struct (v46 : string, v47 : string) = method1() │
00:01:03 verbose #2043 > │ let v48 : string = "cat file.txt" │
00:01:03 verbose #2044 > │ let v49 : char seq = v48 |> unbox<char seq> │
00:01:03 verbose #2045 > │ let v50 : (char seq -> char list) = Seq.toList │
00:01:03 verbose #2046 > │ let v51 : char list = v50 v49 │
00:01:03 verbose #2047 > │ let v52 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:03 verbose #2048 > │ List.foldBack │
00:01:03 verbose #2049 > │ let v53 : (char -> (UH0 -> UH0)) = method2() │
00:01:03 verbose #2050 > │ let v54 : (char list -> (UH0 -> UH0)) = v52 v53 │
00:01:03 verbose #2051 > │ let v55 : (UH0 -> UH0) = v54 v51 │
00:01:03 verbose #2052 > │ let v56 : UH0 = UH0_0 │
00:01:03 verbose #2053 > │ let v57 : UH0 = v55 v56 │
00:01:03 verbose #2054 > │ let v58 : US0 = US0_0 │
00:01:03 verbose #2055 > │ let struct (v59 : string, v60 : string) = method3(v47, v46, v57, v58) │
00:01:03 verbose #2056 > │ let v61 : string = $"%A{struct (v59, v60)}" │
00:01:03 verbose #2057 > │ System.Console.WriteLine v61 │
00:01:03 verbose #2058 > │ let v64 : bool = v59 = "cat" │
00:01:03 verbose #2059 > │ let v66 : bool = │
00:01:03 verbose #2060 > │ if v64 then │
00:01:03 verbose #2061 > │ let v65 : bool = v60 = "file.txt" │
00:01:03 verbose #2062 > │ v65 │
00:01:03 verbose #2063 > │ else │
00:01:03 verbose #2064 > │ false │
00:01:03 verbose #2065 > │ let v68 : bool = │
00:01:03 verbose #2066 > │ if v66 then │
00:01:03 verbose #2067 > │ true │
00:01:03 verbose #2068 > │ else │
00:01:03 verbose #2069 > │ method4(v66) │
00:01:03 verbose #2070 > │ let v69 : string = "cat" │
00:01:03 verbose #2071 > │ let v70 : string = "file.txt" │
00:01:03 verbose #2072 > │ let v71 : string = $"__expect / actual: %A{struct (v59, v60)} / │
00:01:03 verbose #2073 > │ expected: %A{struct (v69, v70)}" │
00:01:03 verbose #2074 > │ let v72 : bool = v68 = false │
00:01:03 verbose #2075 > │ if v72 then │
00:01:03 verbose #2076 > │ failwith<unit> v71 │
00:01:03 verbose #2077 > │ let v73 : string = """..\..\file.exe file1.txt file2.txt""" │
00:01:03 verbose #2078 > │ let struct (v74 : string, v75 : string) = method1() │
00:01:03 verbose #2079 > │ let v76 : char seq = v73 |> unbox<char seq> │
00:01:03 verbose #2080 > │ let v77 : (char seq -> char list) = Seq.toList │
00:01:03 verbose #2081 > │ let v78 : char list = v77 v76 │
00:01:03 verbose #2082 > │ let v79 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:03 verbose #2083 > │ List.foldBack │
00:01:03 verbose #2084 > │ let v80 : (char -> (UH0 -> UH0)) = method2() │
00:01:03 verbose #2085 > │ let v81 : (char list -> (UH0 -> UH0)) = v79 v80 │
00:01:03 verbose #2086 > │ let v82 : (UH0 -> UH0) = v81 v78 │
00:01:03 verbose #2087 > │ let v83 : UH0 = UH0_0 │
00:01:03 verbose #2088 > │ let v84 : UH0 = v82 v83 │
00:01:03 verbose #2089 > │ let v85 : US0 = US0_0 │
00:01:03 verbose #2090 > │ let struct (v86 : string, v87 : string) = method3(v75, v74, v84, v85) │
00:01:03 verbose #2091 > │ let v88 : string = $"%A{struct (v86, v87)}" │
00:01:03 verbose #2092 > │ System.Console.WriteLine v88 │
00:01:03 verbose #2093 > │ let v91 : bool = v86 = "../../file.exe" │
00:01:03 verbose #2094 > │ let v93 : bool = │
00:01:03 verbose #2095 > │ if v91 then │
00:01:03 verbose #2096 > │ let v92 : bool = v87 = "file1.txt file2.txt" │
00:01:03 verbose #2097 > │ v92 │
00:01:03 verbose #2098 > │ else │
00:01:03 verbose #2099 > │ false │
00:01:03 verbose #2100 > │ let v95 : bool = │
00:01:03 verbose #2101 > │ if v93 then │
00:01:03 verbose #2102 > │ true │
00:01:03 verbose #2103 > │ else │
00:01:03 verbose #2104 > │ method4(v93) │
00:01:03 verbose #2105 > │ let v96 : string = "../../file.exe" │
00:01:03 verbose #2106 > │ let v97 : string = "file1.txt file2.txt" │
00:01:03 verbose #2107 > │ let v98 : string = $"__expect / actual: %A{struct (v86, v87)} / │
00:01:03 verbose #2108 > │ expected: %A{struct (v96, v97)}" │
00:01:03 verbose #2109 > │ let v99 : bool = v95 = false │
00:01:03 verbose #2110 > │ if v99 then │
00:01:03 verbose #2111 > │ failwith<unit> v98 │
00:01:03 verbose #2112 > │ let v100 : string = @"c:\dir\file.exe ""file1.txt file2.txt""" │
00:01:03 verbose #2113 > │ let struct (v101 : string, v102 : string) = method1() │
00:01:03 verbose #2114 > │ let v103 : char seq = v100 |> unbox<char seq> │
00:01:03 verbose #2115 > │ let v104 : (char seq -> char list) = Seq.toList │
00:01:03 verbose #2116 > │ let v105 : char list = v104 v103 │
00:01:03 verbose #2117 > │ let v106 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:03 verbose #2118 > │ List.foldBack │
00:01:03 verbose #2119 > │ let v107 : (char -> (UH0 -> UH0)) = method2() │
00:01:03 verbose #2120 > │ let v108 : (char list -> (UH0 -> UH0)) = v106 v107 │
00:01:03 verbose #2121 > │ let v109 : (UH0 -> UH0) = v108 v105 │
00:01:03 verbose #2122 > │ let v110 : UH0 = UH0_0 │
00:01:03 verbose #2123 > │ let v111 : UH0 = v109 v110 │
00:01:03 verbose #2124 > │ let v112 : US0 = US0_0 │
00:01:03 verbose #2125 > │ let struct (v113 : string, v114 : string) = method3(v102, v101, v111, │
00:01:03 verbose #2126 > │ v112) │
00:01:03 verbose #2127 > │ let v115 : string = @"""file1.txt file2.txt""" │
00:01:03 verbose #2128 > │ let v116 : string = $"%A{struct (v113, v114)}" │
00:01:03 verbose #2129 > │ System.Console.WriteLine v116 │
00:01:03 verbose #2130 > │ let v118 : bool = v113 = "c:/dir/file.exe" │
00:01:03 verbose #2131 > │ let v120 : bool = │
00:01:03 verbose #2132 > │ if v118 then │
00:01:03 verbose #2133 > │ let v119 : bool = v114 = v115 │
00:01:03 verbose #2134 > │ v119 │
00:01:03 verbose #2135 > │ else │
00:01:03 verbose #2136 > │ false │
00:01:03 verbose #2137 > │ let v122 : bool = │
00:01:03 verbose #2138 > │ if v120 then │
00:01:03 verbose #2139 > │ true │
00:01:03 verbose #2140 > │ else │
00:01:03 verbose #2141 > │ method4(v120) │
00:01:03 verbose #2142 > │ let v123 : string = "c:/dir/file.exe" │
00:01:03 verbose #2143 > │ let v124 : string = $"__expect / actual: %A{struct (v113, v114)} / │
00:01:03 verbose #2144 > │ expected: %A{struct (v123, v115)}" │
00:01:03 verbose #2145 > │ let v125 : bool = v122 = false │
00:01:03 verbose #2146 > │ if v125 then │
00:01:03 verbose #2147 > │ failwith<unit> v124 │
00:01:03 verbose #2148 > │ let v126 : string = @"""..\..\dir name\file.exe"" ""file 1.txt"" │
00:01:03 verbose #2149 > │ file2.txt" │
00:01:03 verbose #2150 > │ let struct (v127 : string, v128 : string) = method1() │
00:01:03 verbose #2151 > │ let v129 : char seq = v126 |> unbox<char seq> │
00:01:03 verbose #2152 > │ let v130 : (char seq -> char list) = Seq.toList │
00:01:03 verbose #2153 > │ let v131 : char list = v130 v129 │
00:01:03 verbose #2154 > │ let v132 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:03 verbose #2155 > │ List.foldBack │
00:01:03 verbose #2156 > │ let v133 : (char -> (UH0 -> UH0)) = method2() │
00:01:03 verbose #2157 > │ let v134 : (char list -> (UH0 -> UH0)) = v132 v133 │
00:01:03 verbose #2158 > │ let v135 : (UH0 -> UH0) = v134 v131 │
00:01:03 verbose #2159 > │ let v136 : UH0 = UH0_0 │
00:01:03 verbose #2160 > │ let v137 : UH0 = v135 v136 │
00:01:03 verbose #2161 > │ let v138 : US0 = US0_0 │
00:01:03 verbose #2162 > │ let struct (v139 : string, v140 : string) = method3(v128, v127, v137, │
00:01:03 verbose #2163 > │ v138) │
00:01:03 verbose #2164 > │ let v141 : string = @"""file 1.txt"" file2.txt" │
00:01:03 verbose #2165 > │ let v142 : string = $"%A{struct (v139, v140)}" │
00:01:03 verbose #2166 > │ System.Console.WriteLine v142 │
00:01:03 verbose #2167 > │ let v144 : bool = v139 = "../../dir name/file.exe" │
00:01:03 verbose #2168 > │ let v146 : bool = │
00:01:03 verbose #2169 > │ if v144 then │
00:01:03 verbose #2170 > │ let v145 : bool = v140 = v141 │
00:01:03 verbose #2171 > │ v145 │
00:01:03 verbose #2172 > │ else │
00:01:03 verbose #2173 > │ false │
00:01:03 verbose #2174 > │ let v148 : bool = │
00:01:03 verbose #2175 > │ if v146 then │
00:01:03 verbose #2176 > │ true │
00:01:03 verbose #2177 > │ else │
00:01:03 verbose #2178 > │ method4(v146) │
00:01:03 verbose #2179 > │ let v149 : string = "../../dir name/file.exe" │
00:01:03 verbose #2180 > │ let v150 : string = $"__expect / actual: %A{struct (v139, v140)} / │
00:01:03 verbose #2181 > │ expected: %A{struct (v149, v141)}" │
00:01:03 verbose #2182 > │ let v151 : bool = v148 = false │
00:01:03 verbose #2183 > │ if v151 then │
00:01:03 verbose #2184 > │ failwith<unit> v150 │
00:01:03 verbose #2185 > │ let v152 : string = @"""..\..\file 1.exe"" -c \\""echo 1\\""" │
00:01:03 verbose #2186 > │ let struct (v153 : string, v154 : string) = method1() │
00:01:03 verbose #2187 > │ let v155 : char seq = v152 |> unbox<char seq> │
00:01:03 verbose #2188 > │ let v156 : (char seq -> char list) = Seq.toList │
00:01:03 verbose #2189 > │ let v157 : char list = v156 v155 │
00:01:03 verbose #2190 > │ let v158 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:03 verbose #2191 > │ List.foldBack │
00:01:03 verbose #2192 > │ let v159 : (char -> (UH0 -> UH0)) = method2() │
00:01:03 verbose #2193 > │ let v160 : (char list -> (UH0 -> UH0)) = v158 v159 │
00:01:03 verbose #2194 > │ let v161 : (UH0 -> UH0) = v160 v157 │
00:01:03 verbose #2195 > │ let v162 : UH0 = UH0_0 │
00:01:03 verbose #2196 > │ let v163 : UH0 = v161 v162 │
00:01:03 verbose #2197 > │ let v164 : US0 = US0_0 │
00:01:03 verbose #2198 > │ let struct (v165 : string, v166 : string) = method3(v154, v153, v163, │
00:01:03 verbose #2199 > │ v164) │
00:01:03 verbose #2200 > │ let v167 : string = @"-c \\""echo 1\\""" │
00:01:03 verbose #2201 > │ let v168 : string = $"%A{struct (v165, v166)}" │
00:01:03 verbose #2202 > │ System.Console.WriteLine v168 │
00:01:03 verbose #2203 > │ let v170 : bool = v165 = "../../file 1.exe" │
00:01:03 verbose #2204 > │ let v172 : bool = │
00:01:03 verbose #2205 > │ if v170 then │
00:01:03 verbose #2206 > │ let v171 : bool = v166 = v167 │
00:01:03 verbose #2207 > │ v171 │
00:01:03 verbose #2208 > │ else │
00:01:03 verbose #2209 > │ false │
00:01:03 verbose #2210 > │ let v174 : bool = │
00:01:03 verbose #2211 > │ if v172 then │
00:01:03 verbose #2212 > │ true │
00:01:03 verbose #2213 > │ else │
00:01:03 verbose #2214 > │ method4(v172) │
00:01:03 verbose #2215 > │ let v175 : string = "../../file 1.exe" │
00:01:03 verbose #2216 > │ let v176 : string = $"__expect / actual: %A{struct (v165, v166)} / │
00:01:03 verbose #2217 > │ expected: %A{struct (v175, v167)}" │
00:01:03 verbose #2218 > │ let v177 : bool = v174 = false │
00:01:03 verbose #2219 > │ if v177 then │
00:01:03 verbose #2220 > │ failwith<unit> v176 │
00:01:03 verbose #2221 > │ let v178 : string = @"..\..\file 1.exe -c \\""echo 1\\""" │
00:01:03 verbose #2222 > │ let struct (v179 : string, v180 : string) = method1() │
00:01:03 verbose #2223 > │ let v181 : char seq = v178 |> unbox<char seq> │
00:01:03 verbose #2224 > │ let v182 : (char seq -> char list) = Seq.toList │
00:01:03 verbose #2225 > │ let v183 : char list = v182 v181 │
00:01:03 verbose #2226 > │ let v184 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:03 verbose #2227 > │ List.foldBack │
00:01:03 verbose #2228 > │ let v185 : (char -> (UH0 -> UH0)) = method2() │
00:01:03 verbose #2229 > │ let v186 : (char list -> (UH0 -> UH0)) = v184 v185 │
00:01:03 verbose #2230 > │ let v187 : (UH0 -> UH0) = v186 v183 │
00:01:03 verbose #2231 > │ let v188 : UH0 = UH0_0 │
00:01:03 verbose #2232 > │ let v189 : UH0 = v187 v188 │
00:01:03 verbose #2233 > │ let v190 : US0 = US0_0 │
00:01:03 verbose #2234 > │ let struct (v191 : string, v192 : string) = method3(v180, v179, v189, │
00:01:03 verbose #2235 > │ v190) │
00:01:03 verbose #2236 > │ let v193 : string = @"1.exe -c \\""echo 1\\""" │
00:01:03 verbose #2237 > │ let v194 : string = $"%A{struct (v191, v192)}" │
00:01:03 verbose #2238 > │ System.Console.WriteLine v194 │
00:01:03 verbose #2239 > │ let v196 : bool = v191 = "../../file" │
00:01:03 verbose #2240 > │ let v198 : bool = │
00:01:03 verbose #2241 > │ if v196 then │
00:01:03 verbose #2242 > │ let v197 : bool = v192 = v193 │
00:01:03 verbose #2243 > │ v197 │
00:01:03 verbose #2244 > │ else │
00:01:03 verbose #2245 > │ false │
00:01:03 verbose #2246 > │ let v200 : bool = │
00:01:03 verbose #2247 > │ if v198 then │
00:01:03 verbose #2248 > │ true │
00:01:03 verbose #2249 > │ else │
00:01:03 verbose #2250 > │ method4(v198) │
00:01:03 verbose #2251 > │ let v201 : string = "../../file" │
00:01:03 verbose #2252 > │ let v202 : string = $"__expect / actual: %A{struct (v191, v192)} / │
00:01:03 verbose #2253 > │ expected: %A{struct (v201, v193)}" │
00:01:03 verbose #2254 > │ let v203 : bool = v200 = false │
00:01:03 verbose #2255 > │ if v203 then │
00:01:03 verbose #2256 > │ failwith<unit> v202 │
00:01:03 verbose #2257 > │ method0() │
00:01:03 verbose #2258 > │ │
00:01:03 verbose #2259 > │ struct ("", "") │
00:01:03 verbose #2260 > │ struct ("/a/b/c", "") │
00:01:03 verbose #2261 > │ struct ("cat", "file.txt") │
00:01:03 verbose #2262 > │ struct ("../../file.exe", "file1.txt file2.txt") │
00:01:03 verbose #2263 > │ struct ("c:/dir/file.exe", ""file1.txt file2.txt"") │
00:01:03 verbose #2264 > │ struct ("../../dir name/file.exe", ""file 1.txt" file2.txt") │
00:01:03 verbose #2265 > │ struct ("../../file 1.exe", "-c \\"echo 1\\"") │
00:01:03 verbose #2266 > │ struct ("../../file", "1.exe -c \\"echo 1\\"") │
00:01:03 verbose #2267 > │ │
00:01:03 verbose #2268 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #2269 >
00:01:03 verbose #2270 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:03 verbose #2271 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:03 verbose #2272 > │ ## process │
00:01:03 verbose #2273 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #2274 >
00:01:03 verbose #2275 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:03 verbose #2276 > nominal process = $'System.Diagnostics.Process'
00:01:03 verbose #2277 > nominal process_start_info = $'System.Diagnostics.ProcessStartInfo'
00:01:03 verbose #2278 > nominal data_received_event_args = $'System.Diagnostics.DataReceivedEventArgs'
00:01:03 verbose #2279 >
00:01:03 verbose #2280 > inl new_process (process_start_info : process_start_info) : process =
00:01:03 verbose #2281 > $'new `process (StartInfo = !process_start_info)'
00:01:03 verbose #2282 >
00:01:03 verbose #2283 > inl process_start (process : process) : bool =
00:01:03 verbose #2284 > $'!process.Start' ()
00:01:03 verbose #2285 >
00:01:03 verbose #2286 > inl process_exit_code (process : process) : i32 =
00:01:03 verbose #2287 > $'!process.ExitCode'
00:01:03 verbose #2288 >
00:01:03 verbose #2289 > inl process_id (process : process) : i32 =
00:01:03 verbose #2290 > $'!process.Id'
00:01:03 verbose #2291 >
00:01:03 verbose #2292 > inl process_has_exited (process : process) : bool =
00:01:03 verbose #2293 > run_target function
00:01:03 verbose #2294 > | Fsharp (Native) => fun () =>
00:01:03 verbose #2295 > $'!process.HasExited'
00:01:03 verbose #2296 > | _ => fun () => null ()
00:01:03 verbose #2297 >
00:01:03 verbose #2298 > inl process_kill (process : process) : () =
00:01:03 verbose #2299 > run_target function
00:01:03 verbose #2300 > | Fsharp (Native) => fun () =>
00:01:03 verbose #2301 > $'!process.Kill' ()
00:01:03 verbose #2302 > | _ => fun () => null ()
00:01:03 verbose #2303 >
00:01:03 verbose #2304 > inl process_begin_error_read_line (process : process) : () =
00:01:03 verbose #2305 > $'!process.BeginErrorReadLine' ()
00:01:03 verbose #2306 >
00:01:03 verbose #2307 > inl process_begin_output_read_line (process : process) : () =
00:01:03 verbose #2308 > $'!process.BeginOutputReadLine' ()
00:01:03 verbose #2309 >
00:01:03 verbose #2310 > inl process_add_output_data_received fn (process : process) : () =
00:01:03 verbose #2311 > $'!process.OutputDataReceived.Add !fn '
00:01:03 verbose #2312 >
00:01:03 verbose #2313 > inl process_add_error_data_received fn (process : process) : () =
00:01:03 verbose #2314 > $'!process.ErrorDataReceived.Add !fn '
00:01:03 verbose #2315 >
00:01:03 verbose #2316 > inl process_wait_for_exit_async (ct : threading.cancellation_token) (process :
00:01:03 verbose #2317 > process) : async.task () =
00:01:03 verbose #2318 > $'!process.WaitForExitAsync !ct '
00:01:03 verbose #2319 >
00:01:03 verbose #2320 > inl event_data (e : data_received_event_args) : string =
00:01:03 verbose #2321 > $'!e.Data'
00:01:03 verbose #2322 > 00:01:02 debug #84 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eae4e239602df418119d10f00b0a0bc8fdf9cd408dd7fef4483b44616ad3d30a/main.spi
00:01:03 verbose #2323 >
00:01:03 verbose #2324 > ╭─[ 207.11ms - stdout ]────────────────────────────────────────────────────────╮
00:01:03 verbose #2325 > │ () │
00:01:03 verbose #2326 > │ │
00:01:03 verbose #2327 > │ │
00:01:03 verbose #2328 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #2329 >
00:01:03 verbose #2330 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:03 verbose #2331 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:03 verbose #2332 > │ ## execute_async │
00:01:03 verbose #2333 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #2334 >
00:01:03 verbose #2335 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:03 verbose #2336 > type execution_line =
00:01:03 verbose #2337 > {
00:01:03 verbose #2338 > process_id : int
00:01:03 verbose #2339 > line : string
00:01:03 verbose #2340 > error : bool
00:01:03 verbose #2341 > }
00:01:03 verbose #2342 >
00:01:03 verbose #2343 > type execution_options =
00:01:03 verbose #2344 > {
00:01:03 verbose #2345 > command : string
00:01:03 verbose #2346 > working_directory : optionm'.option' string
00:01:03 verbose #2347 > cancellation_token : optionm'.option' threading.cancellation_token
00:01:03 verbose #2348 > on_line : optionm'.option' (execution_line -> async.async ())
00:01:03 verbose #2349 > }
00:01:03 verbose #2350 >
00:01:03 verbose #2351 > inl execute_with_options_async (options : execution_options) : _ (i32 * string)
00:01:03 verbose #2352 > =
00:01:03 verbose #2353 > run_target function
00:01:03 verbose #2354 > | Fsharp (Native) => fun () =>
00:01:03 verbose #2355 > fun () =>
00:01:03 verbose #2356 > inl file_name, arguments = options.command |> split_command
00:01:03 verbose #2357 > inl working_directory = options.working_directory |>
00:01:03 verbose #2358 > optionm'.unbox |> optionm'.default_value ""
00:01:03 verbose #2359 >
00:01:03 verbose #2360 > trace Debug (fun () => $'$"execute_with_options_async / options:
00:01:03 verbose #2361 > %A{!options}"') (join _locals)
00:01:03 verbose #2362 >
00:01:03 verbose #2363 > inl utf8 = sm'.encoding_utf8 ()
00:01:03 verbose #2364 > inl start_info : process_start_info =
00:01:03 verbose #2365 > $'System.Diagnostics.ProcessStartInfo (Arguments = !arguments,
00:01:03 verbose #2366 > StandardOutputEncoding = !utf8, WorkingDirectory = !working_directory, FileName
00:01:03 verbose #2367 > = !file_name, CreateNoWindow = true, RedirectStandardError = true,
00:01:03 verbose #2368 > RedirectStandardOutput = true, UseShellExecute = false)'
00:01:03 verbose #2369 >
00:01:03 verbose #2370 > inl proc = start_info |> new_process |> use
00:01:03 verbose #2371 > inl output : _ string = threading.new_concurrent_stack ()
00:01:03 verbose #2372 >
00:01:03 verbose #2373 > inl event error (e : data_received_event_args) = async.new_async
00:01:03 verbose #2374 > fun () =>
00:01:03 verbose #2375 > inl data = e |> event_data
00:01:03 verbose #2376 > if data <> null () then
00:01:03 verbose #2377 > match options.on_line |> optionm'.unbox with
00:01:03 verbose #2378 > | Some on_line =>
00:01:03 verbose #2379 > on_line
00:01:03 verbose #2380 > {
00:01:03 verbose #2381 > process_id = proc |> process_id
00:01:03 verbose #2382 > line = data
00:01:03 verbose #2383 > error = error
00:01:03 verbose #2384 > }
00:01:03 verbose #2385 > |> async.do
00:01:03 verbose #2386 > | None => ()
00:01:03 verbose #2387 >
00:01:03 verbose #2388 > trace Verbose (fun () => $'$"> {!data}"') _locals
00:01:03 verbose #2389 >
00:01:03 verbose #2390 > inl l = if error then "[[" else ""
00:01:03 verbose #2391 > inl r = if error then "]]" else ""
00:01:03 verbose #2392 > output |> threading.concurrent_stack_push
00:01:03 verbose #2393 > $'$"{!l}{!data}{!r}"'
00:01:03 verbose #2394 >
00:01:03 verbose #2395 > proc |> process_add_output_data_received (event false >>
00:01:03 verbose #2396 > async.start_immediate)
00:01:03 verbose #2397 > proc |> process_add_error_data_received (event true >>
00:01:03 verbose #2398 > async.start_immediate)
00:01:03 verbose #2399 >
00:01:03 verbose #2400 > if proc |> process_start |> not
00:01:03 verbose #2401 > then failwith $'$"execute_with_options_async / process_start
00:01:03 verbose #2402 > error"'
00:01:03 verbose #2403 >
00:01:03 verbose #2404 > proc |> process_begin_error_read_line
00:01:03 verbose #2405 > proc |> process_begin_output_read_line
00:01:03 verbose #2406 >
00:01:03 verbose #2407 > inl ct =
00:01:03 verbose #2408 > options.cancellation_token
00:01:03 verbose #2409 > |> optionm'.unbox
00:01:03 verbose #2410 > |> optionm'.default_with threading.token_none
00:01:03 verbose #2411 > |> async.merge_cancellation_token_with_default_async
00:01:03 verbose #2412 > |> async.let'
00:01:03 verbose #2413 >
00:01:03 verbose #2414 > ct |> threading.token_register fun () =>
00:01:03 verbose #2415 > if proc |> process_has_exited |> not
00:01:03 verbose #2416 > then proc |> process_kill
00:01:03 verbose #2417 > |> use
00:01:03 verbose #2418 > |> ignore
00:01:03 verbose #2419 >
00:01:03 verbose #2420 > inl exit_code : i32 =
00:01:03 verbose #2421 > fun () =>
00:01:03 verbose #2422 > try_unit
00:01:03 verbose #2423 > fun () =>
00:01:03 verbose #2424 > proc
00:01:03 verbose #2425 > |> process_wait_for_exit_async ct
00:01:03 verbose #2426 > |> async.await_task
00:01:03 verbose #2427 > |> async.do
00:01:03 verbose #2428 > proc |> process_exit_code |> return
00:01:03 verbose #2429 > fun ex =>
00:01:03 verbose #2430 > // with :?
00:01:03 verbose #2431 > System.Threading.Tasks.TaskCanceledException as ex =>
00:01:03 verbose #2432 > inl ex' = ex |> sm'.format_exception
00:01:03 verbose #2433 > output |> threading.concurrent_stack_push ex'
00:01:03 verbose #2434 > inl ex : async.task_canceled_exception = ex |>
00:01:03 verbose #2435 > unbox
00:01:03 verbose #2436 > trace Warning (fun () =>
00:01:03 verbose #2437 > $'$"execute_with_options_async / WaitForExitAsync / ex: %A{!ex}"') (join
00:01:03 verbose #2438 > _locals)
00:01:03 verbose #2439 > (limit.min : i32) |> return
00:01:03 verbose #2440 > |> async.new_async_unit
00:01:03 verbose #2441 > |> async.let'
00:01:03 verbose #2442 >
00:01:03 verbose #2443 > inl output =
00:01:03 verbose #2444 > output
00:01:03 verbose #2445 > |> seq.rev''
00:01:03 verbose #2446 > |> fun x => x : seq.seq' string
00:01:03 verbose #2447 > |> sm'.concat "\n"
00:01:03 verbose #2448 >
00:01:03 verbose #2449 > trace Debug (fun () =>
00:01:03 verbose #2450 > $'$"execute_with_options_async / exit_code: {!exit_code}
00:01:03 verbose #2451 > output.Length: {!output.Length}"'
00:01:03 verbose #2452 > ) (join _locals)
00:01:03 verbose #2453 >
00:01:03 verbose #2454 > (exit_code, output) |> return
00:01:03 verbose #2455 > |> async.new_async_unit
00:01:03 verbose #2456 > | _ => fun () =>
00:01:03 verbose #2457 > global "#if FABLE_COMPILER\n[[<CompilationRepresentation
00:01:03 verbose #2458 > (CompilationRepresentationFlags.ModuleSuffix)>]]\nmodule System =\n module
00:01:03 verbose #2459 > Diagnostics =\n type Process = unit\n type DataReceivedEventArgs =
00:01:03 verbose #2460 > unit\n#endif"
00:01:03 verbose #2461 > null ()
00:01:03 verbose #2462 >
00:01:03 verbose #2463 > inl execute_async command =
00:01:03 verbose #2464 > execute_with_options_async
00:01:03 verbose #2465 > {
00:01:03 verbose #2466 > command = command
00:01:03 verbose #2467 > cancellation_token = None |> optionm'.box
00:01:03 verbose #2468 > on_line = None |> optionm'.box
00:01:03 verbose #2469 > working_directory = None |> optionm'.box
00:01:03 verbose #2470 > }
00:01:03 verbose #2471 >
00:01:03 verbose #2472 > inl execution_options (fn : execution_options -> execution_options) :
00:01:03 verbose #2473 > execution_options =
00:01:03 verbose #2474 > {
00:01:03 verbose #2475 > command = ""
00:01:03 verbose #2476 > cancellation_token = None |> optionm'.box
00:01:03 verbose #2477 > on_line = None |> optionm'.box
00:01:03 verbose #2478 > working_directory = None |> optionm'.box
00:01:03 verbose #2479 > }
00:01:03 verbose #2480 > |> fn
00:01:03 verbose #2481 > 00:01:02 debug #85 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/74e36df19c86478e680f260ed7894a62977413d7fc43da7545e7ac718eb56f1f/main.spi
00:01:03 verbose #2482 >
00:01:03 verbose #2483 > ╭─[ 243.31ms - stdout ]────────────────────────────────────────────────────────╮
00:01:03 verbose #2484 > │ () │
00:01:03 verbose #2485 > │ │
00:01:03 verbose #2486 > │ │
00:01:03 verbose #2487 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #2488 >
00:01:03 verbose #2489 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:03 verbose #2490 > // // test
00:01:03 verbose #2491 > // // print_code=true
00:01:03 verbose #2492 >
00:01:03 verbose #2493 > inl temp_folder, disposable = file_system.create_temp_directory ()
00:01:03 verbose #2494 > disposable |> use |> ignore
00:01:03 verbose #2495 > inl file_name = "test.txt"
00:01:03 verbose #2496 > inl path = temp_folder </> file_name
00:01:03 verbose #2497 >
00:01:03 verbose #2498 > fun () =>
00:01:03 verbose #2499 > inl exit_code, result = execute_async $'\@$"pwsh -c ""Get-Content
00:01:03 verbose #2500 > {!path}"""' |> async.let'
00:01:03 verbose #2501 > exit_code |> _assert_eq 1
00:01:03 verbose #2502 > result |> _assert_string_contains "not exist"
00:01:03 verbose #2503 >
00:01:03 verbose #2504 > "0" |> file_system.write_all_text_async path |> async.do
00:01:03 verbose #2505 >
00:01:03 verbose #2506 > execution_options fun x => { x with
00:01:03 verbose #2507 > command = $'\@$"pwsh -c ""Get-Content {!file_name}"""'
00:01:03 verbose #2508 > working_directory = Some temp_folder |> optionm'.box
00:01:03 verbose #2509 > }
00:01:03 verbose #2510 > |> execute_with_options_async
00:01:03 verbose #2511 > |> async.return_await
00:01:03 verbose #2512 > |> async.new_async_unit
00:01:03 verbose #2513 > |> async.run_with_timeout 10000
00:01:03 verbose #2514 > |> function
00:01:03 verbose #2515 > | Some (exit_code, output) =>
00:01:03 verbose #2516 > exit_code |> _assert_eq 0i32
00:01:03 verbose #2517 > output |> _assert_eq (join "0")
00:01:03 verbose #2518 > true
00:01:03 verbose #2519 > | _ => false
00:01:03 verbose #2520 > |> _assert_eq true
00:01:03 verbose #2521 > 00:01:03 debug #86 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e3f58aa2cd8f66221a4868ad71a6deb06a1bc406b753d0fa0d8dc0d78ad4e26e/main.spi
00:01:06 verbose #2522 >
00:01:07 verbose #2523 > ╭─[ 3.47s - stdout ]───────────────────────────────────────────────────────────╮
00:01:07 verbose #2524 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:01:07 verbose #2525 > │ string │
00:01:07 verbose #2526 > │ module State = let mutable trace_state = None │
00:01:07 verbose #2527 > │ #if FABLE_COMPILER │
00:01:07 verbose #2528 > │ [<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>] │
00:01:07 verbose #2529 > │ module System = │
00:01:07 verbose #2530 > │ module Diagnostics = │
00:01:07 verbose #2531 > │ type Process = unit │
00:01:07 verbose #2532 > │ type DataReceivedEventArgs = unit │
00:01:07 verbose #2533 > │ #endif │
00:01:07 verbose #2534 > │ type [<Struct>] US0 = │
00:01:07 verbose #2535 > │ | US0_0 │
00:01:07 verbose #2536 > │ | US0_1 │
00:01:07 verbose #2537 > │ | US0_2 │
00:01:07 verbose #2538 > │ | US0_3 │
00:01:07 verbose #2539 > │ | US0_4 │
00:01:07 verbose #2540 > │ and Mut0 = {mutable l0 : int64} │
00:01:07 verbose #2541 > │ and Mut1 = {mutable l0 : bool} │
00:01:07 verbose #2542 > │ and Mut2 = {mutable l0 : US0} │
00:01:07 verbose #2543 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:01:07 verbose #2544 > │ and [<Struct>] US1 = │
00:01:07 verbose #2545 > │ | US1_0 of f0_0 : int64 │
00:01:07 verbose #2546 > │ | US1_1 │
00:01:07 verbose #2547 > │ and [<Struct>] US2 = │
00:01:07 verbose #2548 > │ | US2_0 of f0_0 : int64 │
00:01:07 verbose #2549 > │ | US2_1 │
00:01:07 verbose #2550 > │ and UH0 = │
00:01:07 verbose #2551 > │ | UH0_0 │
00:01:07 verbose #2552 > │ | UH0_1 of char * UH0 │
00:01:07 verbose #2553 > │ and [<Struct>] US4 = │
00:01:07 verbose #2554 > │ | US4_0 │
00:01:07 verbose #2555 > │ | US4_1 │
00:01:07 verbose #2556 > │ and [<Struct>] US3 = │
00:01:07 verbose #2557 > │ | US3_0 │
00:01:07 verbose #2558 > │ | US3_1 of f1_0 : US4 │
00:01:07 verbose #2559 > │ | US3_2 │
00:01:07 verbose #2560 > │ and [<Struct>] US5 = │
00:01:07 verbose #2561 > │ | US5_0 of f0_0 : string │
00:01:07 verbose #2562 > │ | US5_1 │
00:01:07 verbose #2563 > │ and [<Struct>] US6 = │
00:01:07 verbose #2564 > │ | US6_0 of f0_0 : (struct (bool * string * int32) -> Async<unit>) │
00:01:07 verbose #2565 > │ | US6_1 │
00:01:07 verbose #2566 > │ and [<Struct>] US7 = │
00:01:07 verbose #2567 > │ | US7_0 of f0_0 : System.Threading.CancellationToken │
00:01:07 verbose #2568 > │ | US7_1 │
00:01:07 verbose #2569 > │ and [<Struct>] US8 = │
00:01:07 verbose #2570 > │ | US8_0 of f0_0 : int32 * f0_1 : string │
00:01:07 verbose #2571 > │ | US8_1 │
00:01:07 verbose #2572 > │ and [<Struct>] US9 = │
00:01:07 verbose #2573 > │ | US9_0 of f0_0 : int32 * f0_1 : string │
00:01:07 verbose #2574 > │ | US9_1 of f1_0 : exn │
00:01:07 verbose #2575 > │ and [<Struct>] US10 = │
00:01:07 verbose #2576 > │ | US10_0 of f0_0 : int32 * f0_1 : string │
00:01:07 verbose #2577 > │ | US10_1 of f1_0 : exn │
00:01:07 verbose #2578 > │ let rec closure0 () () : string = │
00:01:07 verbose #2579 > │ let v0 : string option = None │
00:01:07 verbose #2580 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:07 verbose #2581 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #2582 > │ let v2 : string = null |> unbox<string> │
00:01:07 verbose #2583 > │ v2 │
00:01:07 verbose #2584 > │ #endif │
00:01:07 verbose #2585 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #2586 > │ let v3 : string = null |> unbox<string> │
00:01:07 verbose #2587 > │ v3 │
00:01:07 verbose #2588 > │ #endif │
00:01:07 verbose #2589 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #2590 > │ let v4 : string = null |> unbox<string> │
00:01:07 verbose #2591 > │ v4 │
00:01:07 verbose #2592 > │ #endif │
00:01:07 verbose #2593 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #2594 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #2595 > │ let v5 : string = │
00:01:07 verbose #2596 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:07 verbose #2597 > │ v5 │
00:01:07 verbose #2598 > │ #endif │
00:01:07 verbose #2599 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #2600 > │ let v6 : string = null |> unbox<string> │
00:01:07 verbose #2601 > │ v6 │
00:01:07 verbose #2602 > │ #endif │
00:01:07 verbose #2603 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #2604 > │ let v7 : string = Unchecked.defaultof<string> │
00:01:07 verbose #2605 > │ v7 │
00:01:07 verbose #2606 > │ #endif │
00:01:07 verbose #2607 > │ |> fun x -> _v0 <- Some x │
00:01:07 verbose #2608 > │ let v8 : string = _v0.Value │
00:01:07 verbose #2609 > │ v8 │
00:01:07 verbose #2610 > │ and method1 (v0 : string) : string = │
00:01:07 verbose #2611 > │ v0 │
00:01:07 verbose #2612 > │ and method2 (v0 : string) : string = │
00:01:07 verbose #2613 > │ v0 │
00:01:07 verbose #2614 > │ and method3 (v0 : string) : string = │
00:01:07 verbose #2615 > │ v0 │
00:01:07 verbose #2616 > │ and closure1 () () : string = │
00:01:07 verbose #2617 > │ let v0 : string = "file_system.create_temp_directory" │
00:01:07 verbose #2618 > │ v0 │
00:01:07 verbose #2619 > │ and closure3 () () : string = │
00:01:07 verbose #2620 > │ let v0 : string = "" │
00:01:07 verbose #2621 > │ v0 │
00:01:07 verbose #2622 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:01:07 verbose #2623 > │ let v2 : (unit -> string) = closure3() │
00:01:07 verbose #2624 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:01:07 verbose #2625 > │ v3 │
00:01:07 verbose #2626 > │ and closure6 () (v0 : string) : unit = │
00:01:07 verbose #2627 > │ () │
00:01:07 verbose #2628 > │ and method5 (v0 : int64 option) : int64 option = │
00:01:07 verbose #2629 > │ v0 │
00:01:07 verbose #2630 > │ and method6 (v0 : int64 option) : int64 option = │
00:01:07 verbose #2631 > │ v0 │
00:01:07 verbose #2632 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:01:07 verbose #2633 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:07 verbose #2634 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:07 verbose #2635 > │ let v2 : US0 = US0_0 │
00:01:07 verbose #2636 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:07 verbose #2637 > │ let v4 : (string -> unit) = closure6() │
00:01:07 verbose #2638 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:01:07 verbose #2639 > │ let v6 : int64 option option = None │
00:01:07 verbose #2640 > │ let mutable _v6 = v6 │
00:01:07 verbose #2641 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:07 verbose #2642 > │ let v7 : string option = None │
00:01:07 verbose #2643 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:07 verbose #2644 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #2645 > │ let v9 : string = null |> unbox<string> │
00:01:07 verbose #2646 > │ v9 │
00:01:07 verbose #2647 > │ #endif │
00:01:07 verbose #2648 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #2649 > │ let v10 : string = null |> unbox<string> │
00:01:07 verbose #2650 > │ v10 │
00:01:07 verbose #2651 > │ #endif │
00:01:07 verbose #2652 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #2653 > │ let v11 : string = null |> unbox<string> │
00:01:07 verbose #2654 > │ v11 │
00:01:07 verbose #2655 > │ #endif │
00:01:07 verbose #2656 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #2657 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #2658 > │ let v12 : string = │
00:01:07 verbose #2659 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:07 verbose #2660 > │ v12 │
00:01:07 verbose #2661 > │ #endif │
00:01:07 verbose #2662 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #2663 > │ let v13 : string = null |> unbox<string> │
00:01:07 verbose #2664 > │ v13 │
00:01:07 verbose #2665 > │ #endif │
00:01:07 verbose #2666 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #2667 > │ let v14 : string = Unchecked.defaultof<string> │
00:01:07 verbose #2668 > │ v14 │
00:01:07 verbose #2669 > │ #endif │
00:01:07 verbose #2670 > │ |> fun x -> _v7 <- Some x │
00:01:07 verbose #2671 > │ let v15 : string = _v7.Value │
00:01:07 verbose #2672 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:01:07 verbose #2673 > │ let v18 : bool = v17 <> true │
00:01:07 verbose #2674 > │ let v24 : US1 = │
00:01:07 verbose #2675 > │ if v18 then │
00:01:07 verbose #2676 > │ let v19 : System.DateTime = System.DateTime.Now │
00:01:07 verbose #2677 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:01:07 verbose #2678 > │ let v21 : int64 = v20 v19 │
00:01:07 verbose #2679 > │ US1_0(v21) │
00:01:07 verbose #2680 > │ else │
00:01:07 verbose #2681 > │ US1_1 │
00:01:07 verbose #2682 > │ let v29 : int64 option = │
00:01:07 verbose #2683 > │ match v24 with │
00:01:07 verbose #2684 > │ | US1_1 -> (* None *) │
00:01:07 verbose #2685 > │ let v27 : int64 option = None │
00:01:07 verbose #2686 > │ v27 │
00:01:07 verbose #2687 > │ | US1_0(v25) -> (* Some *) │
00:01:07 verbose #2688 > │ let v26 : int64 option = Some v25 │
00:01:07 verbose #2689 > │ v26 │
00:01:07 verbose #2690 > │ let v30 : int64 option = method5(v29) │
00:01:07 verbose #2691 > │ v30 │
00:01:07 verbose #2692 > │ #else │
00:01:07 verbose #2693 > │ let v31 : int64 option = None │
00:01:07 verbose #2694 > │ let v32 : int64 option = method6(v31) │
00:01:07 verbose #2695 > │ v32 │
00:01:07 verbose #2696 > │ #endif │
00:01:07 verbose #2697 > │ |> fun x -> _v6 <- Some x │
00:01:07 verbose #2698 > │ let v33 : int64 option = _v6.Value │
00:01:07 verbose #2699 > │ struct (v1, v0, v3, v33, v5) │
00:01:07 verbose #2700 > │ and closure7 () (v0 : int64) : US2 = │
00:01:07 verbose #2701 > │ US2_0(v0) │
00:01:07 verbose #2702 > │ and method7 () : (int64 -> US2) = │
00:01:07 verbose #2703 > │ closure7() │
00:01:07 verbose #2704 > │ and method8 () : string = │
00:01:07 verbose #2705 > │ let v0 : string = "" │
00:01:07 verbose #2706 > │ v0 │
00:01:07 verbose #2707 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:07 verbose #2708 > │ string = │
00:01:07 verbose #2709 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:07 verbose #2710 > │ closure5() │
00:01:07 verbose #2711 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:01:07 verbose #2712 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:01:07 verbose #2713 > │ Mut3) = State.trace_state.Value │
00:01:07 verbose #2714 > │ let v9 : string option = None │
00:01:07 verbose #2715 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:01:07 verbose #2716 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #2717 > │ let v11 : (int64 -> US2) = method7() │
00:01:07 verbose #2718 > │ let v12 : US2 = US2_1 │
00:01:07 verbose #2719 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:01:07 verbose #2720 > │ let v31 : System.DateTime = │
00:01:07 verbose #2721 > │ match v13 with │
00:01:07 verbose #2722 > │ | US2_1 -> (* None *) │
00:01:07 verbose #2723 > │ let v29 : System.DateTime = System.DateTime.Now │
00:01:07 verbose #2724 > │ v29 │
00:01:07 verbose #2725 > │ | US2_0(v14) -> (* Some *) │
00:01:07 verbose #2726 > │ let v15 : System.DateTime = System.DateTime.Now │
00:01:07 verbose #2727 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:01:07 verbose #2728 > │ let v17 : int64 = v16 v15 │
00:01:07 verbose #2729 > │ let v18 : int64 = v17 - v14 │
00:01:07 verbose #2730 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:01:07 verbose #2731 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:01:07 verbose #2732 > │ let v21 : int32 = v20 v19 │
00:01:07 verbose #2733 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:01:07 verbose #2734 > │ let v23 : int32 = v22 v19 │
00:01:07 verbose #2735 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:01:07 verbose #2736 > │ let v25 : int32 = v24 v19 │
00:01:07 verbose #2737 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:07 verbose #2738 > │ let v27 : int32 = v26 v19 │
00:01:07 verbose #2739 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:01:07 verbose #2740 > │ v25, v27) │
00:01:07 verbose #2741 > │ v28 │
00:01:07 verbose #2742 > │ let v32 : string = "hh:mm:ss" │
00:01:07 verbose #2743 > │ let v33 : string = v31.ToString v32 │
00:01:07 verbose #2744 > │ v33 │
00:01:07 verbose #2745 > │ #endif │
00:01:07 verbose #2746 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #2747 > │ let v34 : string = method8() │
00:01:07 verbose #2748 > │ v34 │
00:01:07 verbose #2749 > │ #endif │
00:01:07 verbose #2750 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #2751 > │ let v35 : string = method8() │
00:01:07 verbose #2752 > │ v35 │
00:01:07 verbose #2753 > │ #endif │
00:01:07 verbose #2754 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #2755 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #2756 > │ let v36 : (int64 -> US2) = method7() │
00:01:07 verbose #2757 > │ let v37 : US2 = US2_1 │
00:01:07 verbose #2758 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:01:07 verbose #2759 > │ let v56 : System.DateTime = │
00:01:07 verbose #2760 > │ match v38 with │
00:01:07 verbose #2761 > │ | US2_1 -> (* None *) │
00:01:07 verbose #2762 > │ let v54 : System.DateTime = System.DateTime.Now │
00:01:07 verbose #2763 > │ v54 │
00:01:07 verbose #2764 > │ | US2_0(v39) -> (* Some *) │
00:01:07 verbose #2765 > │ let v40 : System.DateTime = System.DateTime.Now │
00:01:07 verbose #2766 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:01:07 verbose #2767 > │ let v42 : int64 = v41 v40 │
00:01:07 verbose #2768 > │ let v43 : int64 = v42 - v39 │
00:01:07 verbose #2769 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:01:07 verbose #2770 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:01:07 verbose #2771 > │ let v46 : int32 = v45 v44 │
00:01:07 verbose #2772 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:01:07 verbose #2773 > │ let v48 : int32 = v47 v44 │
00:01:07 verbose #2774 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:01:07 verbose #2775 > │ let v50 : int32 = v49 v44 │
00:01:07 verbose #2776 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:07 verbose #2777 > │ let v52 : int32 = v51 v44 │
00:01:07 verbose #2778 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:01:07 verbose #2779 > │ v50, v52) │
00:01:07 verbose #2780 > │ v53 │
00:01:07 verbose #2781 > │ let v57 : string = "HH:mm:ss" │
00:01:07 verbose #2782 > │ let v58 : string = v56.ToString v57 │
00:01:07 verbose #2783 > │ v58 │
00:01:07 verbose #2784 > │ #endif │
00:01:07 verbose #2785 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #2786 > │ let v59 : string = method8() │
00:01:07 verbose #2787 > │ v59 │
00:01:07 verbose #2788 > │ #endif │
00:01:07 verbose #2789 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #2790 > │ let v60 : string = Unchecked.defaultof<string> │
00:01:07 verbose #2791 > │ v60 │
00:01:07 verbose #2792 > │ #endif │
00:01:07 verbose #2793 > │ |> fun x -> _v9 <- Some x │
00:01:07 verbose #2794 > │ let v61 : string = _v9.Value │
00:01:07 verbose #2795 > │ let v62 : int64 = v4.l0 │
00:01:07 verbose #2796 > │ let v72 : string = │
00:01:07 verbose #2797 > │ match v0 with │
00:01:07 verbose #2798 > │ | US0_4 -> (* Critical *) │
00:01:07 verbose #2799 > │ let v67 : string = "Critical" │
00:01:07 verbose #2800 > │ v67 │
00:01:07 verbose #2801 > │ | US0_1 -> (* Debug *) │
00:01:07 verbose #2802 > │ let v64 : string = "Debug" │
00:01:07 verbose #2803 > │ v64 │
00:01:07 verbose #2804 > │ | US0_2 -> (* Info *) │
00:01:07 verbose #2805 > │ let v65 : string = "Info" │
00:01:07 verbose #2806 > │ v65 │
00:01:07 verbose #2807 > │ | US0_0 -> (* Verbose *) │
00:01:07 verbose #2808 > │ let v63 : string = "Verbose" │
00:01:07 verbose #2809 > │ v63 │
00:01:07 verbose #2810 > │ | US0_3 -> (* Warning *) │
00:01:07 verbose #2811 > │ let v66 : string = "Warning" │
00:01:07 verbose #2812 > │ v66 │
00:01:07 verbose #2813 > │ let v73 : string = v72.ToLower () │
00:01:07 verbose #2814 > │ let v74 : string option = None │
00:01:07 verbose #2815 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:01:07 verbose #2816 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #2817 > │ let v90 : Ref<Str> = │
00:01:07 verbose #2818 > │ match v0 with │
00:01:07 verbose #2819 > │ | US0_4 -> (* Critical *) │
00:01:07 verbose #2820 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:01:07 verbose #2821 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:01:07 verbose #2822 > │ v85 │
00:01:07 verbose #2823 > │ | US0_1 -> (* Debug *) │
00:01:07 verbose #2824 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:01:07 verbose #2825 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:01:07 verbose #2826 > │ v79 │
00:01:07 verbose #2827 > │ | US0_2 -> (* Info *) │
00:01:07 verbose #2828 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:01:07 verbose #2829 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:01:07 verbose #2830 > │ v81 │
00:01:07 verbose #2831 > │ | US0_0 -> (* Verbose *) │
00:01:07 verbose #2832 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:01:07 verbose #2833 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:01:07 verbose #2834 > │ v77 │
00:01:07 verbose #2835 > │ | US0_3 -> (* Warning *) │
00:01:07 verbose #2836 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:01:07 verbose #2837 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:01:07 verbose #2838 > │ v83 │
00:01:07 verbose #2839 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #2840 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:01:07 verbose #2841 > │ let v93 : string = "inline_colorization::color_reset" │
00:01:07 verbose #2842 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:01:07 verbose #2843 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:01:07 verbose #2844 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:01:07 verbose #2845 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:01:07 verbose #2846 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:01:07 verbose #2847 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:01:07 verbose #2848 > │ v99 │
00:01:07 verbose #2849 > │ #endif │
00:01:07 verbose #2850 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #2851 > │ let v114 : Ref<Str> = │
00:01:07 verbose #2852 > │ match v0 with │
00:01:07 verbose #2853 > │ | US0_4 -> (* Critical *) │
00:01:07 verbose #2854 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:01:07 verbose #2855 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2856 > │ v108 │
00:01:07 verbose #2857 > │ v109 │
00:01:07 verbose #2858 > │ | US0_1 -> (* Debug *) │
00:01:07 verbose #2859 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:01:07 verbose #2860 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2861 > │ v102 │
00:01:07 verbose #2862 > │ v103 │
00:01:07 verbose #2863 > │ | US0_2 -> (* Info *) │
00:01:07 verbose #2864 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:01:07 verbose #2865 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2866 > │ v104 │
00:01:07 verbose #2867 > │ v105 │
00:01:07 verbose #2868 > │ | US0_0 -> (* Verbose *) │
00:01:07 verbose #2869 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:01:07 verbose #2870 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2871 > │ v100 │
00:01:07 verbose #2872 > │ v101 │
00:01:07 verbose #2873 > │ | US0_3 -> (* Warning *) │
00:01:07 verbose #2874 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:01:07 verbose #2875 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2876 > │ v106 │
00:01:07 verbose #2877 > │ v107 │
00:01:07 verbose #2878 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #2879 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:01:07 verbose #2880 > │ let v117 : string = "inline_colorization::color_reset" │
00:01:07 verbose #2881 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:01:07 verbose #2882 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:01:07 verbose #2883 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:01:07 verbose #2884 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2885 > │ v120 │
00:01:07 verbose #2886 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:01:07 verbose #2887 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:01:07 verbose #2888 > │ v123 │
00:01:07 verbose #2889 > │ #endif │
00:01:07 verbose #2890 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #2891 > │ let v138 : Ref<Str> = │
00:01:07 verbose #2892 > │ match v0 with │
00:01:07 verbose #2893 > │ | US0_4 -> (* Critical *) │
00:01:07 verbose #2894 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:01:07 verbose #2895 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2896 > │ v132 │
00:01:07 verbose #2897 > │ v133 │
00:01:07 verbose #2898 > │ | US0_1 -> (* Debug *) │
00:01:07 verbose #2899 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:01:07 verbose #2900 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2901 > │ v126 │
00:01:07 verbose #2902 > │ v127 │
00:01:07 verbose #2903 > │ | US0_2 -> (* Info *) │
00:01:07 verbose #2904 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:01:07 verbose #2905 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2906 > │ v128 │
00:01:07 verbose #2907 > │ v129 │
00:01:07 verbose #2908 > │ | US0_0 -> (* Verbose *) │
00:01:07 verbose #2909 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:01:07 verbose #2910 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2911 > │ v124 │
00:01:07 verbose #2912 > │ v125 │
00:01:07 verbose #2913 > │ | US0_3 -> (* Warning *) │
00:01:07 verbose #2914 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:01:07 verbose #2915 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2916 > │ v130 │
00:01:07 verbose #2917 > │ v131 │
00:01:07 verbose #2918 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #2919 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:01:07 verbose #2920 > │ let v141 : string = "inline_colorization::color_reset" │
00:01:07 verbose #2921 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:01:07 verbose #2922 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:01:07 verbose #2923 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:01:07 verbose #2924 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:07 verbose #2925 > │ v144 │
00:01:07 verbose #2926 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:01:07 verbose #2927 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:01:07 verbose #2928 > │ v147 │
00:01:07 verbose #2929 > │ #endif │
00:01:07 verbose #2930 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #2931 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #2932 > │ v73 │
00:01:07 verbose #2933 > │ #endif │
00:01:07 verbose #2934 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #2935 > │ v73 │
00:01:07 verbose #2936 > │ #endif │
00:01:07 verbose #2937 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #2938 > │ let v148 : string = Unchecked.defaultof<string> │
00:01:07 verbose #2939 > │ v148 │
00:01:07 verbose #2940 > │ #endif │
00:01:07 verbose #2941 > │ |> fun x -> _v74 <- Some x │
00:01:07 verbose #2942 > │ let v149 : string = _v74.Value │
00:01:07 verbose #2943 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:01:07 verbose #2944 > │ let v151 : (char []) = [||] │
00:01:07 verbose #2945 > │ let v152 : string = v150.TrimStart v151 │
00:01:07 verbose #2946 > │ let v153 : (char []) = [|' '; '/'|] │
00:01:07 verbose #2947 > │ let v154 : string = v152.TrimEnd v153 │
00:01:07 verbose #2948 > │ v154 │
00:01:07 verbose #2949 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:01:07 verbose #2950 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:07 verbose #2951 > │ closure5() │
00:01:07 verbose #2952 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:07 verbose #2953 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:01:07 verbose #2954 > │ Mut3) = State.trace_state.Value │
00:01:07 verbose #2955 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:07 verbose #2956 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:01:07 verbose #2957 > │ Mut3) = State.trace_state.Value │
00:01:07 verbose #2958 > │ let v13 : US0 = v10.l0 │
00:01:07 verbose #2959 > │ let v14 : bool = v9.l0 │
00:01:07 verbose #2960 > │ let v15 : bool = v14 = false │
00:01:07 verbose #2961 > │ let v19 : bool = │
00:01:07 verbose #2962 > │ if v15 then │
00:01:07 verbose #2963 > │ false │
00:01:07 verbose #2964 > │ else │
00:01:07 verbose #2965 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:07 verbose #2966 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:01:07 verbose #2967 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:07 verbose #2968 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:01:07 verbose #2969 > │ let v18 : bool = v16 >= v17 │
00:01:07 verbose #2970 > │ v18 │
00:01:07 verbose #2971 > │ if v19 then │
00:01:07 verbose #2972 > │ let v20 : int64 = v3.l0 │
00:01:07 verbose #2973 > │ let v21 : int64 = v20 + 1L │
00:01:07 verbose #2974 > │ v3.l0 <- v21 │
00:01:07 verbose #2975 > │ let v22 : string = $"%s{v1 ()}" │
00:01:07 verbose #2976 > │ let v23 : unit option = None │
00:01:07 verbose #2977 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:01:07 verbose #2978 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #2979 > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:07 verbose #2980 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:01:07 verbose #2981 > │ () │
00:01:07 verbose #2982 > │ #endif │
00:01:07 verbose #2983 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #2984 > │ let v26 : string = @"println!(""{}"", $0)" │
00:01:07 verbose #2985 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:01:07 verbose #2986 > │ () │
00:01:07 verbose #2987 > │ #endif │
00:01:07 verbose #2988 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #2989 > │ let v27 : string = @"println!(""{}"", $0)" │
00:01:07 verbose #2990 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:01:07 verbose #2991 > │ () │
00:01:07 verbose #2992 > │ #endif │
00:01:07 verbose #2993 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #2994 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #2995 > │ System.Console.WriteLine v22 │
00:01:07 verbose #2996 > │ () │
00:01:07 verbose #2997 > │ #endif │
00:01:07 verbose #2998 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #2999 > │ System.Console.WriteLine v22 │
00:01:07 verbose #3000 > │ () │
00:01:07 verbose #3001 > │ #endif │
00:01:07 verbose #3002 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:07 verbose #3003 > │ FABLE_COMPILER_DART │
00:01:07 verbose #3004 > │ Unchecked.defaultof<unit> │
00:01:07 verbose #3005 > │ () │
00:01:07 verbose #3006 > │ #endif │
00:01:07 verbose #3007 > │ |> fun x -> _v23 <- Some x │
00:01:07 verbose #3008 > │ _v23.Value │
00:01:07 verbose #3009 > │ let v28 : (string -> unit) = v7.l0 │
00:01:07 verbose #3010 > │ v28 v22 │
00:01:07 verbose #3011 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:07 verbose #3012 > │ = │
00:01:07 verbose #3013 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:01:07 verbose #3014 > │ method9(v0, v3) │
00:01:07 verbose #3015 > │ and closure9 () () : string = │
00:01:07 verbose #3016 > │ let v0 : string = "file_system.delete_directory_async" │
00:01:07 verbose #3017 > │ v0 │
00:01:07 verbose #3018 > │ and closure11 () (v0 : string) : string = │
00:01:07 verbose #3019 > │ let v1 : string option = None │
00:01:07 verbose #3020 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:07 verbose #3021 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3022 > │ let v3 : string = null |> unbox<string> │
00:01:07 verbose #3023 > │ v3 │
00:01:07 verbose #3024 > │ #endif │
00:01:07 verbose #3025 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3026 > │ let v4 : string = null |> unbox<string> │
00:01:07 verbose #3027 > │ v4 │
00:01:07 verbose #3028 > │ #endif │
00:01:07 verbose #3029 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3030 > │ let v5 : string = null |> unbox<string> │
00:01:07 verbose #3031 > │ v5 │
00:01:07 verbose #3032 > │ #endif │
00:01:07 verbose #3033 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3034 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3035 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:01:07 verbose #3036 > │ let v7 : string = v6 v0 │
00:01:07 verbose #3037 > │ v7 │
00:01:07 verbose #3038 > │ #endif │
00:01:07 verbose #3039 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3040 > │ let v8 : string = null |> unbox<string> │
00:01:07 verbose #3041 > │ v8 │
00:01:07 verbose #3042 > │ #endif │
00:01:07 verbose #3043 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3044 > │ let v9 : string = Unchecked.defaultof<string> │
00:01:07 verbose #3045 > │ v9 │
00:01:07 verbose #3046 > │ #endif │
00:01:07 verbose #3047 > │ |> fun x -> _v1 <- Some x │
00:01:07 verbose #3048 > │ let v10 : string = _v1.Value │
00:01:07 verbose #3049 > │ v10 │
00:01:07 verbose #3050 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:01:07 verbose #3051 > │ let v2 : (string -> string) = closure11() │
00:01:07 verbose #3052 > │ let v3 : (unit -> string) = closure3() │
00:01:07 verbose #3053 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:01:07 verbose #3054 > │ v4 │
00:01:07 verbose #3055 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:01:07 verbose #3056 > │ let v2 : Async<int64> option = None │
00:01:07 verbose #3057 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:01:07 verbose #3058 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3059 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3060 > │ v4 │
00:01:07 verbose #3061 > │ #endif │
00:01:07 verbose #3062 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3063 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3064 > │ v5 │
00:01:07 verbose #3065 > │ #endif │
00:01:07 verbose #3066 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3067 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3068 > │ v6 │
00:01:07 verbose #3069 > │ #endif │
00:01:07 verbose #3070 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3071 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3072 > │ let v7 : Async<int64> option = None │
00:01:07 verbose #3073 > │ let mutable _v7 = v7 │
00:01:07 verbose #3074 > │ async { │
00:01:07 verbose #3075 > │ try │
00:01:07 verbose #3076 > │ let v8 : unit option = None │
00:01:07 verbose #3077 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:01:07 verbose #3078 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3079 > │ null |> unbox<unit> │
00:01:07 verbose #3080 > │ () │
00:01:07 verbose #3081 > │ #endif │
00:01:07 verbose #3082 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3083 > │ null |> unbox<unit> │
00:01:07 verbose #3084 > │ () │
00:01:07 verbose #3085 > │ #endif │
00:01:07 verbose #3086 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3087 > │ null |> unbox<unit> │
00:01:07 verbose #3088 > │ () │
00:01:07 verbose #3089 > │ #endif │
00:01:07 verbose #3090 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3091 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3092 > │ System.IO.Directory.Delete (v0, true) │
00:01:07 verbose #3093 > │ () │
00:01:07 verbose #3094 > │ #endif │
00:01:07 verbose #3095 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3096 > │ null |> unbox<unit> │
00:01:07 verbose #3097 > │ () │
00:01:07 verbose #3098 > │ #endif │
00:01:07 verbose #3099 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3100 > │ Unchecked.defaultof<unit> │
00:01:07 verbose #3101 > │ () │
00:01:07 verbose #3102 > │ #endif │
00:01:07 verbose #3103 > │ |> fun x -> _v8 <- Some x │
00:01:07 verbose #3104 > │ _v8.Value │
00:01:07 verbose #3105 > │ return v1 │
00:01:07 verbose #3106 > │ with ex -> │
00:01:07 verbose #3107 > │ let v10 : exn = ex │
00:01:07 verbose #3108 > │ let v11 : int64 = v1 % 100L │
00:01:07 verbose #3109 > │ let v12 : bool = v11 = 0L │
00:01:07 verbose #3110 > │ if v12 then │
00:01:07 verbose #3111 > │ let v13 : string option = None │
00:01:07 verbose #3112 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:01:07 verbose #3113 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3114 > │ let v15 : string = $"%A{v10}" │
00:01:07 verbose #3115 > │ v15 │
00:01:07 verbose #3116 > │ #endif │
00:01:07 verbose #3117 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3118 > │ let v16 : string = $"%A{v10}" │
00:01:07 verbose #3119 > │ v16 │
00:01:07 verbose #3120 > │ #endif │
00:01:07 verbose #3121 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3122 > │ let v17 : string = $"%A{v10}" │
00:01:07 verbose #3123 > │ v17 │
00:01:07 verbose #3124 > │ #endif │
00:01:07 verbose #3125 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3126 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3127 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:01:07 verbose #3128 > │ v18 │
00:01:07 verbose #3129 > │ #endif │
00:01:07 verbose #3130 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3131 > │ let v19 : string = $"%A{v10}" │
00:01:07 verbose #3132 > │ v19 │
00:01:07 verbose #3133 > │ #endif │
00:01:07 verbose #3134 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:07 verbose #3135 > │ FABLE_COMPILER_DART │
00:01:07 verbose #3136 > │ let v20 : string = Unchecked.defaultof<string> │
00:01:07 verbose #3137 > │ v20 │
00:01:07 verbose #3138 > │ #endif │
00:01:07 verbose #3139 > │ |> fun x -> _v13 <- Some x │
00:01:07 verbose #3140 > │ let v21 : string = _v13.Value │
00:01:07 verbose #3141 > │ let v22 : US0 = US0_1 │
00:01:07 verbose #3142 > │ let v23 : (unit -> string) = closure9() │
00:01:07 verbose #3143 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:01:07 verbose #3144 > │ method4(v22, v23, v24) │
00:01:07 verbose #3145 > │ let v25 : Async<unit> option = None │
00:01:07 verbose #3146 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:01:07 verbose #3147 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3148 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3149 > │ v27 │
00:01:07 verbose #3150 > │ #endif │
00:01:07 verbose #3151 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3152 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3153 > │ v28 │
00:01:07 verbose #3154 > │ #endif │
00:01:07 verbose #3155 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3156 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3157 > │ v29 │
00:01:07 verbose #3158 > │ #endif │
00:01:07 verbose #3159 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3160 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3161 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:01:07 verbose #3162 > │ let v31 : Async<unit> = v30 10 │
00:01:07 verbose #3163 > │ v31 │
00:01:07 verbose #3164 > │ #endif │
00:01:07 verbose #3165 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3166 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3167 > │ v32 │
00:01:07 verbose #3168 > │ #endif │
00:01:07 verbose #3169 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3170 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:07 verbose #3171 > │ v33 │
00:01:07 verbose #3172 > │ #endif │
00:01:07 verbose #3173 > │ |> fun x -> _v25 <- Some x │
00:01:07 verbose #3174 > │ let v34 : Async<unit> = _v25.Value │
00:01:07 verbose #3175 > │ do! v34 │
00:01:07 verbose #3176 > │ let v35 : int64 = v1 + 1L │
00:01:07 verbose #3177 > │ let v36 : Async<int64> = method10(v0, v35) │
00:01:07 verbose #3178 > │ return! v36 │
00:01:07 verbose #3179 > │ (* │
00:01:07 verbose #3180 > │ let v37 : int64 = *) │
00:01:07 verbose #3181 > │ } │
00:01:07 verbose #3182 > │ |> fun x -> _v7 <- Some x │
00:01:07 verbose #3183 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:01:07 verbose #3184 > │ v38 │
00:01:07 verbose #3185 > │ #endif │
00:01:07 verbose #3186 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3187 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3188 > │ v39 │
00:01:07 verbose #3189 > │ #endif │
00:01:07 verbose #3190 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3191 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:07 verbose #3192 > │ v40 │
00:01:07 verbose #3193 > │ #endif │
00:01:07 verbose #3194 > │ |> fun x -> _v2 <- Some x │
00:01:07 verbose #3195 > │ let v41 : Async<int64> = _v2.Value │
00:01:07 verbose #3196 > │ v41 │
00:01:07 verbose #3197 > │ and closure8 (v0 : string) () : unit = │
00:01:07 verbose #3198 > │ let v1 : Async<int64> option = None │
00:01:07 verbose #3199 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:07 verbose #3200 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3201 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3202 > │ v3 │
00:01:07 verbose #3203 > │ #endif │
00:01:07 verbose #3204 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3205 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3206 > │ v4 │
00:01:07 verbose #3207 > │ #endif │
00:01:07 verbose #3208 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3209 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3210 > │ v5 │
00:01:07 verbose #3211 > │ #endif │
00:01:07 verbose #3212 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3213 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3214 > │ let v6 : int64 = 0L │
00:01:07 verbose #3215 > │ let v7 : Async<int64> = method10(v0, v6) │
00:01:07 verbose #3216 > │ v7 │
00:01:07 verbose #3217 > │ #endif │
00:01:07 verbose #3218 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3219 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:01:07 verbose #3220 > │ v8 │
00:01:07 verbose #3221 > │ #endif │
00:01:07 verbose #3222 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3223 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:07 verbose #3224 > │ v9 │
00:01:07 verbose #3225 > │ #endif │
00:01:07 verbose #3226 > │ |> fun x -> _v1 <- Some x │
00:01:07 verbose #3227 > │ let v10 : Async<int64> = _v1.Value │
00:01:07 verbose #3228 > │ let v11 : Async<unit> option = None │
00:01:07 verbose #3229 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:01:07 verbose #3230 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3231 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3232 > │ v13 │
00:01:07 verbose #3233 > │ #endif │
00:01:07 verbose #3234 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3235 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3236 > │ v14 │
00:01:07 verbose #3237 > │ #endif │
00:01:07 verbose #3238 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3239 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3240 > │ v15 │
00:01:07 verbose #3241 > │ #endif │
00:01:07 verbose #3242 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3243 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3244 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:01:07 verbose #3245 > │ let v17 : Async<unit> = v16 v10 │
00:01:07 verbose #3246 > │ v17 │
00:01:07 verbose #3247 > │ #endif │
00:01:07 verbose #3248 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3249 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3250 > │ v18 │
00:01:07 verbose #3251 > │ #endif │
00:01:07 verbose #3252 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3253 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:07 verbose #3254 > │ v19 │
00:01:07 verbose #3255 > │ #endif │
00:01:07 verbose #3256 > │ |> fun x -> _v11 <- Some x │
00:01:07 verbose #3257 > │ let v20 : Async<unit> = _v11.Value │
00:01:07 verbose #3258 > │ let v21 : unit option = None │
00:01:07 verbose #3259 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:01:07 verbose #3260 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3261 > │ null |> unbox<unit> │
00:01:07 verbose #3262 > │ () │
00:01:07 verbose #3263 > │ #endif │
00:01:07 verbose #3264 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3265 > │ null |> unbox<unit> │
00:01:07 verbose #3266 > │ () │
00:01:07 verbose #3267 > │ #endif │
00:01:07 verbose #3268 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3269 > │ null |> unbox<unit> │
00:01:07 verbose #3270 > │ () │
00:01:07 verbose #3271 > │ #endif │
00:01:07 verbose #3272 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3273 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3274 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:01:07 verbose #3275 > │ v23 v20 │
00:01:07 verbose #3276 > │ () │
00:01:07 verbose #3277 > │ #endif │
00:01:07 verbose #3278 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3279 > │ null |> unbox<unit> │
00:01:07 verbose #3280 > │ () │
00:01:07 verbose #3281 > │ #endif │
00:01:07 verbose #3282 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3283 > │ Unchecked.defaultof<unit> │
00:01:07 verbose #3284 > │ () │
00:01:07 verbose #3285 > │ #endif │
00:01:07 verbose #3286 > │ |> fun x -> _v21 <- Some x │
00:01:07 verbose #3287 > │ _v21.Value │
00:01:07 verbose #3288 > │ () │
00:01:07 verbose #3289 > │ and method11 () : string = │
00:01:07 verbose #3290 > │ let v0 : string = "test.txt" │
00:01:07 verbose #3291 > │ v0 │
00:01:07 verbose #3292 > │ and method12 () : string = │
00:01:07 verbose #3293 > │ let v0 : string = "test.txt" │
00:01:07 verbose #3294 > │ v0 │
00:01:07 verbose #3295 > │ and method13 () : struct (string * string) = │
00:01:07 verbose #3296 > │ let v0 : string = "" │
00:01:07 verbose #3297 > │ struct (v0, v0) │
00:01:07 verbose #3298 > │ and closure13 (v0 : char) (v1 : UH0) : UH0 = │
00:01:07 verbose #3299 > │ UH0_1(v0, v1) │
00:01:07 verbose #3300 > │ and closure12 () (v0 : char) : (UH0 -> UH0) = │
00:01:07 verbose #3301 > │ closure13(v0) │
00:01:07 verbose #3302 > │ and method14 () : (char -> (UH0 -> UH0)) = │
00:01:07 verbose #3303 > │ closure12() │
00:01:07 verbose #3304 > │ and method15 (v0 : string, v1 : string, v2 : UH0, v3 : US3) : struct (string │
00:01:07 verbose #3305 > │ * string) = │
00:01:07 verbose #3306 > │ match v2 with │
00:01:07 verbose #3307 > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:07 verbose #3308 > │ let v6 : bool = '"' = v4 │
00:01:07 verbose #3309 > │ if v6 then │
00:01:07 verbose #3310 > │ let v8 : bool = v1 = "" │
00:01:07 verbose #3311 > │ if v8 then │
00:01:07 verbose #3312 > │ let v9 : US4 = US4_0 │
00:01:07 verbose #3313 > │ let v10 : US3 = US3_1(v9) │
00:01:07 verbose #3314 > │ method15(v0, v1, v5, v10) │
00:01:07 verbose #3315 > │ else │
00:01:07 verbose #3316 > │ match v3 with │
00:01:07 verbose #3317 > │ | US3_2 -> (* Arguments *) │
00:01:07 verbose #3318 > │ let v38 : string = $"{v0}{v4}" │
00:01:07 verbose #3319 > │ let v39 : US3 = US3_2 │
00:01:07 verbose #3320 > │ method15(v38, v1, v5, v39) │
00:01:07 verbose #3321 > │ | US3_1(v13) -> (* Path *) │
00:01:07 verbose #3322 > │ match v13 with │
00:01:07 verbose #3323 > │ | US4_0 -> (* Quoted *) │
00:01:07 verbose #3324 > │ let v14 : US4 = US4_1 │
00:01:07 verbose #3325 > │ let v15 : US3 = US3_1(v14) │
00:01:07 verbose #3326 > │ method15(v0, v1, v5, v15) │
00:01:07 verbose #3327 > │ | _ -> │
00:01:07 verbose #3328 > │ let v18 : bool = ' ' = v4 │
00:01:07 verbose #3329 > │ if v18 then │
00:01:07 verbose #3330 > │ let v19 : US3 = US3_2 │
00:01:07 verbose #3331 > │ method15(v0, v1, v5, v19) │
00:01:07 verbose #3332 > │ else │
00:01:07 verbose #3333 > │ let v22 : string = $"{v1}{v4}" │
00:01:07 verbose #3334 > │ method15(v0, v22, v5, v3) │
00:01:07 verbose #3335 > │ | US3_0 -> (* Start *) │
00:01:07 verbose #3336 > │ let v29 : bool = ' ' = v4 │
00:01:07 verbose #3337 > │ if v29 then │
00:01:07 verbose #3338 > │ let v30 : US3 = US3_2 │
00:01:07 verbose #3339 > │ method15(v0, v1, v5, v30) │
00:01:07 verbose #3340 > │ else │
00:01:07 verbose #3341 > │ let v33 : string = $"{v1}{v4}" │
00:01:07 verbose #3342 > │ method15(v0, v33, v5, v3) │
00:01:07 verbose #3343 > │ else │
00:01:07 verbose #3344 > │ let v50 : bool = ''' = v4 │
00:01:07 verbose #3345 > │ if v50 then │
00:01:07 verbose #3346 > │ let v52 : bool = v1 = "" │
00:01:07 verbose #3347 > │ if v52 then │
00:01:07 verbose #3348 > │ let v53 : US4 = US4_0 │
00:01:07 verbose #3349 > │ let v54 : US3 = US3_1(v53) │
00:01:07 verbose #3350 > │ method15(v0, v1, v5, v54) │
00:01:07 verbose #3351 > │ else │
00:01:07 verbose #3352 > │ match v3 with │
00:01:07 verbose #3353 > │ | US3_2 -> (* Arguments *) │
00:01:07 verbose #3354 > │ let v82 : string = $"{v0}{v4}" │
00:01:07 verbose #3355 > │ let v83 : US3 = US3_2 │
00:01:07 verbose #3356 > │ method15(v82, v1, v5, v83) │
00:01:07 verbose #3357 > │ | US3_1(v57) -> (* Path *) │
00:01:07 verbose #3358 > │ match v57 with │
00:01:07 verbose #3359 > │ | US4_0 -> (* Quoted *) │
00:01:07 verbose #3360 > │ let v58 : US4 = US4_1 │
00:01:07 verbose #3361 > │ let v59 : US3 = US3_1(v58) │
00:01:07 verbose #3362 > │ method15(v0, v1, v5, v59) │
00:01:07 verbose #3363 > │ | _ -> │
00:01:07 verbose #3364 > │ let v62 : bool = ' ' = v4 │
00:01:07 verbose #3365 > │ if v62 then │
00:01:07 verbose #3366 > │ let v63 : US3 = US3_2 │
00:01:07 verbose #3367 > │ method15(v0, v1, v5, v63) │
00:01:07 verbose #3368 > │ else │
00:01:07 verbose #3369 > │ let v66 : string = $"{v1}{v4}" │
00:01:07 verbose #3370 > │ method15(v0, v66, v5, v3) │
00:01:07 verbose #3371 > │ | US3_0 -> (* Start *) │
00:01:07 verbose #3372 > │ let v73 : bool = ' ' = v4 │
00:01:07 verbose #3373 > │ if v73 then │
00:01:07 verbose #3374 > │ let v74 : US3 = US3_2 │
00:01:07 verbose #3375 > │ method15(v0, v1, v5, v74) │
00:01:07 verbose #3376 > │ else │
00:01:07 verbose #3377 > │ let v77 : string = $"{v1}{v4}" │
00:01:07 verbose #3378 > │ method15(v0, v77, v5, v3) │
00:01:07 verbose #3379 > │ else │
00:01:07 verbose #3380 > │ match v3 with │
00:01:07 verbose #3381 > │ | US3_2 -> (* Arguments *) │
00:01:07 verbose #3382 > │ let v126 : string = $"{v0}{v4}" │
00:01:07 verbose #3383 > │ let v127 : US3 = US3_2 │
00:01:07 verbose #3384 > │ method15(v126, v1, v5, v127) │
00:01:07 verbose #3385 > │ | US3_1(v94) -> (* Path *) │
00:01:07 verbose #3386 > │ match v94 with │
00:01:07 verbose #3387 > │ | US4_0 -> (* Quoted *) │
00:01:07 verbose #3388 > │ let v95 : bool = ' ' = v4 │
00:01:07 verbose #3389 > │ if v95 then │
00:01:07 verbose #3390 > │ let v96 : string = $"{v1} " │
00:01:07 verbose #3391 > │ let v97 : US4 = US4_0 │
00:01:07 verbose #3392 > │ let v98 : US3 = US3_1(v97) │
00:01:07 verbose #3393 > │ method15(v0, v96, v5, v98) │
00:01:07 verbose #3394 > │ else │
00:01:07 verbose #3395 > │ let v101 : string = $"{v1}{v4}" │
00:01:07 verbose #3396 > │ method15(v0, v101, v5, v3) │
00:01:07 verbose #3397 > │ | _ -> │
00:01:07 verbose #3398 > │ let v106 : bool = ' ' = v4 │
00:01:07 verbose #3399 > │ if v106 then │
00:01:07 verbose #3400 > │ let v107 : US3 = US3_2 │
00:01:07 verbose #3401 > │ method15(v0, v1, v5, v107) │
00:01:07 verbose #3402 > │ else │
00:01:07 verbose #3403 > │ let v110 : string = $"{v1}{v4}" │
00:01:07 verbose #3404 > │ method15(v0, v110, v5, v3) │
00:01:07 verbose #3405 > │ | US3_0 -> (* Start *) │
00:01:07 verbose #3406 > │ let v117 : bool = ' ' = v4 │
00:01:07 verbose #3407 > │ if v117 then │
00:01:07 verbose #3408 > │ let v118 : US3 = US3_2 │
00:01:07 verbose #3409 > │ method15(v0, v1, v5, v118) │
00:01:07 verbose #3410 > │ else │
00:01:07 verbose #3411 > │ let v121 : string = $"{v1}{v4}" │
00:01:07 verbose #3412 > │ method15(v0, v121, v5, v3) │
00:01:07 verbose #3413 > │ | _ -> │
00:01:07 verbose #3414 > │ match v3 with │
00:01:07 verbose #3415 > │ | US3_2 -> (* Arguments *) │
00:01:07 verbose #3416 > │ let v152 : string = "\\" │
00:01:07 verbose #3417 > │ let v153 : string = "/" │
00:01:07 verbose #3418 > │ let v154 : string = v1.Replace (v152, v153) │
00:01:07 verbose #3419 > │ struct (v154, v0) │
00:01:07 verbose #3420 > │ | US3_1(v140) -> (* Path *) │
00:01:07 verbose #3421 > │ match v140 with │
00:01:07 verbose #3422 > │ | US4_0 -> (* Quoted *) │
00:01:07 verbose #3423 > │ let v141 : string = "\\" │
00:01:07 verbose #3424 > │ let v142 : string = "/" │
00:01:07 verbose #3425 > │ let v143 : string = v1.Replace (v141, v142) │
00:01:07 verbose #3426 > │ struct (v143, v0) │
00:01:07 verbose #3427 > │ | _ -> │
00:01:07 verbose #3428 > │ let v144 : string = "\\" │
00:01:07 verbose #3429 > │ let v145 : string = "/" │
00:01:07 verbose #3430 > │ let v146 : string = v1.Replace (v144, v145) │
00:01:07 verbose #3431 > │ struct (v146, v0) │
00:01:07 verbose #3432 > │ | US3_0 -> (* Start *) │
00:01:07 verbose #3433 > │ let v149 : string = "\\" │
00:01:07 verbose #3434 > │ let v150 : string = "/" │
00:01:07 verbose #3435 > │ let v151 : string = v1.Replace (v149, v150) │
00:01:07 verbose #3436 > │ struct (v151, v0) │
00:01:07 verbose #3437 > │ and closure14 () (v0 : string) : US5 = │
00:01:07 verbose #3438 > │ US5_0(v0) │
00:01:07 verbose #3439 > │ and method16 () : (string -> US5) = │
00:01:07 verbose #3440 > │ closure14() │
00:01:07 verbose #3441 > │ and closure15 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:07 verbose #3442 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:07 verbose #3443 > │ option) () : string = │
00:01:07 verbose #3444 > │ let v4 : string = $"execute_with_options_async / options: %A{struct (v0, │
00:01:07 verbose #3445 > │ v1, v2, v3)}" │
00:01:07 verbose #3446 > │ v4 │
00:01:07 verbose #3447 > │ and method17 () : (unit -> string) = │
00:01:07 verbose #3448 > │ closure3() │
00:01:07 verbose #3449 > │ and closure17 () (v0 : (struct (bool * string * int32) -> Async<unit>)) : │
00:01:07 verbose #3450 > │ US6 = │
00:01:07 verbose #3451 > │ US6_0(v0) │
00:01:07 verbose #3452 > │ and method18 () : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:07 verbose #3453 > │ closure17() │
00:01:07 verbose #3454 > │ and closure18 (v0 : string) () : string = │
00:01:07 verbose #3455 > │ let v1 : string = $"> {v0}" │
00:01:07 verbose #3456 > │ v1 │
00:01:07 verbose #3457 > │ and closure16 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:07 verbose #3458 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:07 verbose #3459 > │ option, v4 : System.Diagnostics.Process, v5 : │
00:01:07 verbose #3460 > │ System.Collections.Concurrent.ConcurrentStack<string>) (v6 : │
00:01:07 verbose #3461 > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:07 verbose #3462 > │ let v7 : Async<unit> option = None │
00:01:07 verbose #3463 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:07 verbose #3464 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3465 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3466 > │ v9 │
00:01:07 verbose #3467 > │ #endif │
00:01:07 verbose #3468 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3469 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3470 > │ v10 │
00:01:07 verbose #3471 > │ #endif │
00:01:07 verbose #3472 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3473 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3474 > │ v11 │
00:01:07 verbose #3475 > │ #endif │
00:01:07 verbose #3476 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3477 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3478 > │ let v12 : Async<unit> option = None │
00:01:07 verbose #3479 > │ let mutable _v12 = v12 │
00:01:07 verbose #3480 > │ async { │
00:01:07 verbose #3481 > │ let v13 : string = v6.Data │
00:01:07 verbose #3482 > │ let v14 : string = null |> unbox<string> │
00:01:07 verbose #3483 > │ let v15 : bool = v13 = v14 │
00:01:07 verbose #3484 > │ let v16 : bool = v15 <> true │
00:01:07 verbose #3485 > │ if v16 then │
00:01:07 verbose #3486 > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:07 verbose #3487 > │ method18() │
00:01:07 verbose #3488 > │ let v18 : US6 = US6_1 │
00:01:07 verbose #3489 > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:07 verbose #3490 > │ match v19 with │
00:01:07 verbose #3491 > │ | US6_1 -> (* None *) │
00:01:07 verbose #3492 > │ () │
00:01:07 verbose #3493 > │ | US6_0(v20) -> (* Some *) │
00:01:07 verbose #3494 > │ let v21 : int32 = v4.Id │
00:01:07 verbose #3495 > │ let v22 : Async<unit> = v20 struct (false, v13, v21) │
00:01:07 verbose #3496 > │ do! v22 │
00:01:07 verbose #3497 > │ () │
00:01:07 verbose #3498 > │ let v23 : US0 = US0_0 │
00:01:07 verbose #3499 > │ let v24 : (unit -> string) = closure18(v13) │
00:01:07 verbose #3500 > │ let v25 : (unit -> string) = closure3() │
00:01:07 verbose #3501 > │ method4(v23, v24, v25) │
00:01:07 verbose #3502 > │ let v26 : string = "" │
00:01:07 verbose #3503 > │ let v27 : string = $"{v26}{v13}{v26}" │
00:01:07 verbose #3504 > │ let v28 : (string -> unit) = v5.Push │
00:01:07 verbose #3505 > │ v28 v27 │
00:01:07 verbose #3506 > │ } │
00:01:07 verbose #3507 > │ |> fun x -> _v12 <- Some x │
00:01:07 verbose #3508 > │ let v29 : Async<unit> = _v12 |> Option.get │
00:01:07 verbose #3509 > │ v29 │
00:01:07 verbose #3510 > │ #endif │
00:01:07 verbose #3511 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3512 > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3513 > │ v30 │
00:01:07 verbose #3514 > │ #endif │
00:01:07 verbose #3515 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3516 > │ let v31 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:07 verbose #3517 > │ v31 │
00:01:07 verbose #3518 > │ #endif │
00:01:07 verbose #3519 > │ |> fun x -> _v7 <- Some x │
00:01:07 verbose #3520 > │ let v32 : Async<unit> = _v7.Value │
00:01:07 verbose #3521 > │ let v33 : unit option = None │
00:01:07 verbose #3522 > │ let v34 : bool = true in let mutable _v33 = v33 │
00:01:07 verbose #3523 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3524 > │ null |> unbox<unit> │
00:01:07 verbose #3525 > │ () │
00:01:07 verbose #3526 > │ #endif │
00:01:07 verbose #3527 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3528 > │ null |> unbox<unit> │
00:01:07 verbose #3529 > │ () │
00:01:07 verbose #3530 > │ #endif │
00:01:07 verbose #3531 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3532 > │ null |> unbox<unit> │
00:01:07 verbose #3533 > │ () │
00:01:07 verbose #3534 > │ #endif │
00:01:07 verbose #3535 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3536 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3537 > │ let v35 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:07 verbose #3538 > │ v35 v32 │
00:01:07 verbose #3539 > │ () │
00:01:07 verbose #3540 > │ #endif │
00:01:07 verbose #3541 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3542 > │ null |> unbox<unit> │
00:01:07 verbose #3543 > │ () │
00:01:07 verbose #3544 > │ #endif │
00:01:07 verbose #3545 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3546 > │ Unchecked.defaultof<unit> │
00:01:07 verbose #3547 > │ () │
00:01:07 verbose #3548 > │ #endif │
00:01:07 verbose #3549 > │ |> fun x -> _v33 <- Some x │
00:01:07 verbose #3550 > │ _v33.Value │
00:01:07 verbose #3551 > │ () │
00:01:07 verbose #3552 > │ and closure19 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:07 verbose #3553 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:07 verbose #3554 > │ option, v4 : System.Diagnostics.Process, v5 : │
00:01:07 verbose #3555 > │ System.Collections.Concurrent.ConcurrentStack<string>) (v6 : │
00:01:07 verbose #3556 > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:07 verbose #3557 > │ let v7 : Async<unit> option = None │
00:01:07 verbose #3558 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:07 verbose #3559 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3560 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3561 > │ v9 │
00:01:07 verbose #3562 > │ #endif │
00:01:07 verbose #3563 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3564 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3565 > │ v10 │
00:01:07 verbose #3566 > │ #endif │
00:01:07 verbose #3567 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3568 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3569 > │ v11 │
00:01:07 verbose #3570 > │ #endif │
00:01:07 verbose #3571 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3572 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3573 > │ let v12 : Async<unit> option = None │
00:01:07 verbose #3574 > │ let mutable _v12 = v12 │
00:01:07 verbose #3575 > │ async { │
00:01:07 verbose #3576 > │ let v13 : string = v6.Data │
00:01:07 verbose #3577 > │ let v14 : string = null |> unbox<string> │
00:01:07 verbose #3578 > │ let v15 : bool = v13 = v14 │
00:01:07 verbose #3579 > │ let v16 : bool = v15 <> true │
00:01:07 verbose #3580 > │ if v16 then │
00:01:07 verbose #3581 > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:07 verbose #3582 > │ method18() │
00:01:07 verbose #3583 > │ let v18 : US6 = US6_1 │
00:01:07 verbose #3584 > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:07 verbose #3585 > │ match v19 with │
00:01:07 verbose #3586 > │ | US6_1 -> (* None *) │
00:01:07 verbose #3587 > │ () │
00:01:07 verbose #3588 > │ | US6_0(v20) -> (* Some *) │
00:01:07 verbose #3589 > │ let v21 : int32 = v4.Id │
00:01:07 verbose #3590 > │ let v22 : Async<unit> = v20 struct (true, v13, v21) │
00:01:07 verbose #3591 > │ do! v22 │
00:01:07 verbose #3592 > │ () │
00:01:07 verbose #3593 > │ let v23 : US0 = US0_0 │
00:01:07 verbose #3594 > │ let v24 : (unit -> string) = closure18(v13) │
00:01:07 verbose #3595 > │ let v25 : (unit -> string) = closure3() │
00:01:07 verbose #3596 > │ method4(v23, v24, v25) │
00:01:07 verbose #3597 > │ let v26 : string = "[" │
00:01:07 verbose #3598 > │ let v27 : string = "]" │
00:01:07 verbose #3599 > │ let v28 : string = $"{v26}{v13}{v27}" │
00:01:07 verbose #3600 > │ let v29 : (string -> unit) = v5.Push │
00:01:07 verbose #3601 > │ v29 v28 │
00:01:07 verbose #3602 > │ } │
00:01:07 verbose #3603 > │ |> fun x -> _v12 <- Some x │
00:01:07 verbose #3604 > │ let v30 : Async<unit> = _v12 |> Option.get │
00:01:07 verbose #3605 > │ v30 │
00:01:07 verbose #3606 > │ #endif │
00:01:07 verbose #3607 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3608 > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:01:07 verbose #3609 > │ v31 │
00:01:07 verbose #3610 > │ #endif │
00:01:07 verbose #3611 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3612 > │ let v32 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:07 verbose #3613 > │ v32 │
00:01:07 verbose #3614 > │ #endif │
00:01:07 verbose #3615 > │ |> fun x -> _v7 <- Some x │
00:01:07 verbose #3616 > │ let v33 : Async<unit> = _v7.Value │
00:01:07 verbose #3617 > │ let v34 : unit option = None │
00:01:07 verbose #3618 > │ let v35 : bool = true in let mutable _v34 = v34 │
00:01:07 verbose #3619 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3620 > │ null |> unbox<unit> │
00:01:07 verbose #3621 > │ () │
00:01:07 verbose #3622 > │ #endif │
00:01:07 verbose #3623 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3624 > │ null |> unbox<unit> │
00:01:07 verbose #3625 > │ () │
00:01:07 verbose #3626 > │ #endif │
00:01:07 verbose #3627 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3628 > │ null |> unbox<unit> │
00:01:07 verbose #3629 > │ () │
00:01:07 verbose #3630 > │ #endif │
00:01:07 verbose #3631 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3632 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3633 > │ let v36 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:07 verbose #3634 > │ v36 v33 │
00:01:07 verbose #3635 > │ () │
00:01:07 verbose #3636 > │ #endif │
00:01:07 verbose #3637 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3638 > │ null |> unbox<unit> │
00:01:07 verbose #3639 > │ () │
00:01:07 verbose #3640 > │ #endif │
00:01:07 verbose #3641 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3642 > │ Unchecked.defaultof<unit> │
00:01:07 verbose #3643 > │ () │
00:01:07 verbose #3644 > │ #endif │
00:01:07 verbose #3645 > │ |> fun x -> _v34 <- Some x │
00:01:07 verbose #3646 > │ _v34.Value │
00:01:07 verbose #3647 > │ () │
00:01:07 verbose #3648 > │ and closure20 () (v0 : System.Threading.CancellationToken) : US7 = │
00:01:07 verbose #3649 > │ US7_0(v0) │
00:01:07 verbose #3650 > │ and method19 () : (System.Threading.CancellationToken -> US7) = │
00:01:07 verbose #3651 > │ closure20() │
00:01:07 verbose #3652 > │ and closure21 (v0 : System.Diagnostics.Process) () : unit = │
00:01:07 verbose #3653 > │ let v1 : bool option = None │
00:01:07 verbose #3654 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:07 verbose #3655 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3656 > │ let v3 : bool = null |> unbox<bool> │
00:01:07 verbose #3657 > │ v3 │
00:01:07 verbose #3658 > │ #endif │
00:01:07 verbose #3659 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3660 > │ let v4 : bool = null |> unbox<bool> │
00:01:07 verbose #3661 > │ v4 │
00:01:07 verbose #3662 > │ #endif │
00:01:07 verbose #3663 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3664 > │ let v5 : bool = null |> unbox<bool> │
00:01:07 verbose #3665 > │ v5 │
00:01:07 verbose #3666 > │ #endif │
00:01:07 verbose #3667 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3668 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3669 > │ let v6 : bool = v0.HasExited │
00:01:07 verbose #3670 > │ v6 │
00:01:07 verbose #3671 > │ #endif │
00:01:07 verbose #3672 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3673 > │ let v7 : bool = null |> unbox<bool> │
00:01:07 verbose #3674 > │ v7 │
00:01:07 verbose #3675 > │ #endif │
00:01:07 verbose #3676 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3677 > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:07 verbose #3678 > │ v8 │
00:01:07 verbose #3679 > │ #endif │
00:01:07 verbose #3680 > │ |> fun x -> _v1 <- Some x │
00:01:07 verbose #3681 > │ let v9 : bool = _v1.Value │
00:01:07 verbose #3682 > │ let v10 : bool = v9 = false │
00:01:07 verbose #3683 > │ if v10 then │
00:01:07 verbose #3684 > │ let v11 : unit option = None │
00:01:07 verbose #3685 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:01:07 verbose #3686 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3687 > │ null |> unbox<unit> │
00:01:07 verbose #3688 > │ () │
00:01:07 verbose #3689 > │ #endif │
00:01:07 verbose #3690 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3691 > │ null |> unbox<unit> │
00:01:07 verbose #3692 > │ () │
00:01:07 verbose #3693 > │ #endif │
00:01:07 verbose #3694 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3695 > │ null |> unbox<unit> │
00:01:07 verbose #3696 > │ () │
00:01:07 verbose #3697 > │ #endif │
00:01:07 verbose #3698 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3699 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3700 > │ let v13 : (unit -> unit) = v0.Kill │
00:01:07 verbose #3701 > │ v13 () │
00:01:07 verbose #3702 > │ () │
00:01:07 verbose #3703 > │ #endif │
00:01:07 verbose #3704 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3705 > │ null |> unbox<unit> │
00:01:07 verbose #3706 > │ () │
00:01:07 verbose #3707 > │ #endif │
00:01:07 verbose #3708 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:07 verbose #3709 > │ FABLE_COMPILER_DART │
00:01:07 verbose #3710 > │ Unchecked.defaultof<unit> │
00:01:07 verbose #3711 > │ () │
00:01:07 verbose #3712 > │ #endif │
00:01:07 verbose #3713 > │ |> fun x -> _v11 <- Some x │
00:01:07 verbose #3714 > │ _v11.Value │
00:01:07 verbose #3715 > │ () │
00:01:07 verbose #3716 > │ and closure22 (v0 : System.Threading.Tasks.TaskCanceledException) () : │
00:01:07 verbose #3717 > │ string = │
00:01:07 verbose #3718 > │ let v1 : string = $"execute_with_options_async / WaitForExitAsync / ex: │
00:01:07 verbose #3719 > │ %A{v0}" │
00:01:07 verbose #3720 > │ v1 │
00:01:07 verbose #3721 > │ and method20 () : string = │
00:01:07 verbose #3722 > │ let v0 : string = "\n" │
00:01:07 verbose #3723 > │ v0 │
00:01:07 verbose #3724 > │ and closure23 (v0 : int32, v1 : string) () : string = │
00:01:07 verbose #3725 > │ let v2 : string = $"execute_with_options_async / exit_code: {v0} / │
00:01:07 verbose #3726 > │ output.Length: {v1.Length}" │
00:01:07 verbose #3727 > │ v2 │
00:01:07 verbose #3728 > │ and method21 (v0 : bool) : bool = │
00:01:07 verbose #3729 > │ v0 │
00:01:07 verbose #3730 > │ and closure24 () struct (v0 : int32, v1 : string) : US9 = │
00:01:07 verbose #3731 > │ US9_0(v0, v1) │
00:01:07 verbose #3732 > │ and closure25 () (v0 : exn) : US9 = │
00:01:07 verbose #3733 > │ US9_1(v0) │
00:01:07 verbose #3734 > │ and closure26 () () : string = │
00:01:07 verbose #3735 > │ let v0 : string = "run_with_timeout_async" │
00:01:07 verbose #3736 > │ v0 │
00:01:07 verbose #3737 > │ and closure27 () () : string = │
00:01:07 verbose #3738 > │ let v0 : (unit -> string) = closure3() │
00:01:07 verbose #3739 > │ let v1 : string = $"timeout: {10000} / {v0 ()}" │
00:01:07 verbose #3740 > │ v1 │
00:01:07 verbose #3741 > │ and closure28 (v0 : string) () : string = │
00:01:07 verbose #3742 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:01:07 verbose #3743 > │ v1 │
00:01:07 verbose #3744 > │ and method22 () : string = │
00:01:07 verbose #3745 > │ let v0 : string = "0" │
00:01:07 verbose #3746 > │ v0 │
00:01:07 verbose #3747 > │ and method0 () : unit = │
00:01:07 verbose #3748 > │ let v0 : struct (string * System.IDisposable) option = None │
00:01:07 verbose #3749 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:07 verbose #3750 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3751 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:01:07 verbose #3752 > │ (string * System.IDisposable)> │
00:01:07 verbose #3753 > │ struct (v2, v3) │
00:01:07 verbose #3754 > │ #endif │
00:01:07 verbose #3755 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3756 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:01:07 verbose #3757 > │ (string * System.IDisposable)> │
00:01:07 verbose #3758 > │ struct (v4, v5) │
00:01:07 verbose #3759 > │ #endif │
00:01:07 verbose #3760 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3761 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:01:07 verbose #3762 > │ (string * System.IDisposable)> │
00:01:07 verbose #3763 > │ struct (v6, v7) │
00:01:07 verbose #3764 > │ #endif │
00:01:07 verbose #3765 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3766 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3767 > │ let v8 : string option = None │
00:01:07 verbose #3768 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:01:07 verbose #3769 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3770 > │ let v10 : string = null |> unbox<string> │
00:01:07 verbose #3771 > │ v10 │
00:01:07 verbose #3772 > │ #endif │
00:01:07 verbose #3773 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3774 > │ let v11 : string = null |> unbox<string> │
00:01:07 verbose #3775 > │ v11 │
00:01:07 verbose #3776 > │ #endif │
00:01:07 verbose #3777 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3778 > │ let v12 : string = null |> unbox<string> │
00:01:07 verbose #3779 > │ v12 │
00:01:07 verbose #3780 > │ #endif │
00:01:07 verbose #3781 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3782 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3783 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:01:07 verbose #3784 > │ let v14 : string = v13 () │
00:01:07 verbose #3785 > │ let v15 : (unit -> string) = closure0() │
00:01:07 verbose #3786 > │ let v16 : string = $"!{v15 ()}" │
00:01:07 verbose #3787 > │ let v17 : string option = None │
00:01:07 verbose #3788 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:01:07 verbose #3789 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3790 > │ let v19 : string = method1(v14) │
00:01:07 verbose #3791 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #3792 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:01:07 verbose #3793 > │ let v22 : string = "String::from($0)" │
00:01:07 verbose #3794 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:01:07 verbose #3795 > │ v22 │
00:01:07 verbose #3796 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:01:07 verbose #3797 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:01:07 verbose #3798 > │ let v26 : string = method1(v16) │
00:01:07 verbose #3799 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #3800 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:01:07 verbose #3801 > │ let v29 : string = "String::from($0)" │
00:01:07 verbose #3802 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:01:07 verbose #3803 > │ v29 │
00:01:07 verbose #3804 > │ let v31 : string = "$0.join($1)" │
00:01:07 verbose #3805 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:07 verbose #3806 > │ (v25, v30) v31 │
00:01:07 verbose #3807 > │ let v33 : string = "$0.display().to_string()" │
00:01:07 verbose #3808 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:01:07 verbose #3809 > │ v33 │
00:01:07 verbose #3810 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:01:07 verbose #3811 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:01:07 verbose #3812 > │ v36 │
00:01:07 verbose #3813 > │ #endif │
00:01:07 verbose #3814 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3815 > │ let v37 : string = null |> unbox<string> │
00:01:07 verbose #3816 > │ v37 │
00:01:07 verbose #3817 > │ #endif │
00:01:07 verbose #3818 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3819 > │ let v38 : string = null |> unbox<string> │
00:01:07 verbose #3820 > │ v38 │
00:01:07 verbose #3821 > │ #endif │
00:01:07 verbose #3822 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3823 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3824 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:01:07 verbose #3825 > │ v39 │
00:01:07 verbose #3826 > │ #endif │
00:01:07 verbose #3827 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3828 > │ let v40 : string = "path" │
00:01:07 verbose #3829 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:01:07 verbose #3830 > │ let v42 : string = method2(v14) │
00:01:07 verbose #3831 > │ let v43 : string = method3(v16) │
00:01:07 verbose #3832 > │ let v44 : string = "v41.join(v42, v43)" │
00:01:07 verbose #3833 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:01:07 verbose #3834 > │ v45 │
00:01:07 verbose #3835 > │ #endif │
00:01:07 verbose #3836 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3837 > │ let v46 : string = Unchecked.defaultof<string> │
00:01:07 verbose #3838 > │ v46 │
00:01:07 verbose #3839 > │ #endif │
00:01:07 verbose #3840 > │ |> fun x -> _v17 <- Some x │
00:01:07 verbose #3841 > │ let v47 : string = _v17.Value │
00:01:07 verbose #3842 > │ let v48 : System.DateTime = System.DateTime.Now │
00:01:07 verbose #3843 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:01:07 verbose #3844 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:01:07 verbose #3845 > │ let v51 : string = v50 v49 │
00:01:07 verbose #3846 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:01:07 verbose #3847 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:01:07 verbose #3848 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:01:07 verbose #3849 > │ let v55 : string = v54 v53 │
00:01:07 verbose #3850 > │ let v56 : string option = None │
00:01:07 verbose #3851 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:01:07 verbose #3852 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3853 > │ let v58 : string = method1(v47) │
00:01:07 verbose #3854 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #3855 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:01:07 verbose #3856 > │ let v61 : string = "String::from($0)" │
00:01:07 verbose #3857 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:01:07 verbose #3858 > │ v61 │
00:01:07 verbose #3859 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:01:07 verbose #3860 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:01:07 verbose #3861 > │ let v65 : string = method1(v55) │
00:01:07 verbose #3862 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #3863 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:01:07 verbose #3864 > │ let v68 : string = "String::from($0)" │
00:01:07 verbose #3865 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:01:07 verbose #3866 > │ v68 │
00:01:07 verbose #3867 > │ let v70 : string = "$0.join($1)" │
00:01:07 verbose #3868 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:07 verbose #3869 > │ (v64, v69) v70 │
00:01:07 verbose #3870 > │ let v72 : string = "$0.display().to_string()" │
00:01:07 verbose #3871 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:01:07 verbose #3872 > │ v72 │
00:01:07 verbose #3873 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:01:07 verbose #3874 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:01:07 verbose #3875 > │ v75 │
00:01:07 verbose #3876 > │ #endif │
00:01:07 verbose #3877 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3878 > │ let v76 : string = null |> unbox<string> │
00:01:07 verbose #3879 > │ v76 │
00:01:07 verbose #3880 > │ #endif │
00:01:07 verbose #3881 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3882 > │ let v77 : string = null |> unbox<string> │
00:01:07 verbose #3883 > │ v77 │
00:01:07 verbose #3884 > │ #endif │
00:01:07 verbose #3885 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3886 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3887 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:01:07 verbose #3888 > │ v78 │
00:01:07 verbose #3889 > │ #endif │
00:01:07 verbose #3890 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3891 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:01:07 verbose #3892 > │ let v80 : string = method2(v47) │
00:01:07 verbose #3893 > │ let v81 : string = method3(v55) │
00:01:07 verbose #3894 > │ let v82 : string = "v79.join(v80, v81)" │
00:01:07 verbose #3895 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:01:07 verbose #3896 > │ v83 │
00:01:07 verbose #3897 > │ #endif │
00:01:07 verbose #3898 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3899 > │ let v84 : string = Unchecked.defaultof<string> │
00:01:07 verbose #3900 > │ v84 │
00:01:07 verbose #3901 > │ #endif │
00:01:07 verbose #3902 > │ |> fun x -> _v56 <- Some x │
00:01:07 verbose #3903 > │ let v85 : string = _v56.Value │
00:01:07 verbose #3904 > │ v85 │
00:01:07 verbose #3905 > │ #endif │
00:01:07 verbose #3906 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3907 > │ let v86 : string = null |> unbox<string> │
00:01:07 verbose #3908 > │ v86 │
00:01:07 verbose #3909 > │ #endif │
00:01:07 verbose #3910 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3911 > │ let v87 : string = Unchecked.defaultof<string> │
00:01:07 verbose #3912 > │ v87 │
00:01:07 verbose #3913 > │ #endif │
00:01:07 verbose #3914 > │ |> fun x -> _v8 <- Some x │
00:01:07 verbose #3915 > │ let v88 : string = _v8.Value │
00:01:07 verbose #3916 > │ let v89 : System.IO.DirectoryInfo option = None │
00:01:07 verbose #3917 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:01:07 verbose #3918 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3919 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:01:07 verbose #3920 > │ unbox<System.IO.DirectoryInfo> │
00:01:07 verbose #3921 > │ v91 │
00:01:07 verbose #3922 > │ #endif │
00:01:07 verbose #3923 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3924 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:01:07 verbose #3925 > │ unbox<System.IO.DirectoryInfo> │
00:01:07 verbose #3926 > │ v92 │
00:01:07 verbose #3927 > │ #endif │
00:01:07 verbose #3928 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3929 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:01:07 verbose #3930 > │ unbox<System.IO.DirectoryInfo> │
00:01:07 verbose #3931 > │ v93 │
00:01:07 verbose #3932 > │ #endif │
00:01:07 verbose #3933 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3934 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3935 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:01:07 verbose #3936 > │ System.IO.Directory.CreateDirectory │
00:01:07 verbose #3937 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:01:07 verbose #3938 > │ v95 │
00:01:07 verbose #3939 > │ #endif │
00:01:07 verbose #3940 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3941 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:01:07 verbose #3942 > │ unbox<System.IO.DirectoryInfo> │
00:01:07 verbose #3943 > │ v96 │
00:01:07 verbose #3944 > │ #endif │
00:01:07 verbose #3945 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3946 > │ let v97 : System.IO.DirectoryInfo = │
00:01:07 verbose #3947 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:01:07 verbose #3948 > │ v97 │
00:01:07 verbose #3949 > │ #endif │
00:01:07 verbose #3950 > │ |> fun x -> _v89 <- Some x │
00:01:07 verbose #3951 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:01:07 verbose #3952 > │ let v99 : bool option = None │
00:01:07 verbose #3953 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:01:07 verbose #3954 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3955 > │ let v101 : bool = null |> unbox<bool> │
00:01:07 verbose #3956 > │ v101 │
00:01:07 verbose #3957 > │ #endif │
00:01:07 verbose #3958 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3959 > │ let v102 : bool = null |> unbox<bool> │
00:01:07 verbose #3960 > │ v102 │
00:01:07 verbose #3961 > │ #endif │
00:01:07 verbose #3962 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3963 > │ let v103 : bool = null |> unbox<bool> │
00:01:07 verbose #3964 > │ v103 │
00:01:07 verbose #3965 > │ #endif │
00:01:07 verbose #3966 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3967 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3968 > │ let v104 : bool = v98.Exists │
00:01:07 verbose #3969 > │ v104 │
00:01:07 verbose #3970 > │ #endif │
00:01:07 verbose #3971 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #3972 > │ let v105 : bool = null |> unbox<bool> │
00:01:07 verbose #3973 > │ v105 │
00:01:07 verbose #3974 > │ #endif │
00:01:07 verbose #3975 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #3976 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:01:07 verbose #3977 > │ v106 │
00:01:07 verbose #3978 > │ #endif │
00:01:07 verbose #3979 > │ |> fun x -> _v99 <- Some x │
00:01:07 verbose #3980 > │ let v107 : bool = _v99.Value │
00:01:07 verbose #3981 > │ let v108 : bool = v107 = false │
00:01:07 verbose #3982 > │ if v108 then │
00:01:07 verbose #3983 > │ let v109 : System.DateTime option = None │
00:01:07 verbose #3984 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:01:07 verbose #3985 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #3986 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:01:07 verbose #3987 > │ v111 │
00:01:07 verbose #3988 > │ #endif │
00:01:07 verbose #3989 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #3990 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:01:07 verbose #3991 > │ v112 │
00:01:07 verbose #3992 > │ #endif │
00:01:07 verbose #3993 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #3994 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:01:07 verbose #3995 > │ v113 │
00:01:07 verbose #3996 > │ #endif │
00:01:07 verbose #3997 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #3998 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #3999 > │ let v114 : System.DateTime = v98.CreationTime │
00:01:07 verbose #4000 > │ v114 │
00:01:07 verbose #4001 > │ #endif │
00:01:07 verbose #4002 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #4003 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:01:07 verbose #4004 > │ v115 │
00:01:07 verbose #4005 > │ #endif │
00:01:07 verbose #4006 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:07 verbose #4007 > │ FABLE_COMPILER_DART │
00:01:07 verbose #4008 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:01:07 verbose #4009 > │ v116 │
00:01:07 verbose #4010 > │ #endif │
00:01:07 verbose #4011 > │ |> fun x -> _v109 <- Some x │
00:01:07 verbose #4012 > │ let v117 : System.DateTime = _v109.Value │
00:01:07 verbose #4013 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:01:07 verbose #4014 > │ let v119 : string = $"%A{v118}" │
00:01:07 verbose #4015 > │ let v120 : US0 = US0_1 │
00:01:07 verbose #4016 > │ let v121 : (unit -> string) = closure1() │
00:01:07 verbose #4017 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:01:07 verbose #4018 > │ method4(v120, v121, v122) │
00:01:07 verbose #4019 > │ let v123 : System.IDisposable option = None │
00:01:07 verbose #4020 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:01:07 verbose #4021 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4022 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:07 verbose #4023 > │ v125 │
00:01:07 verbose #4024 > │ #endif │
00:01:07 verbose #4025 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4026 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:07 verbose #4027 > │ v126 │
00:01:07 verbose #4028 > │ #endif │
00:01:07 verbose #4029 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4030 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:07 verbose #4031 > │ v127 │
00:01:07 verbose #4032 > │ #endif │
00:01:07 verbose #4033 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4034 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4035 > │ let v128 : (unit -> unit) = closure8(v88) │
00:01:07 verbose #4036 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:01:07 verbose #4037 > │ _.Dispose () = v128 () } │
00:01:07 verbose #4038 > │ v129 │
00:01:07 verbose #4039 > │ #endif │
00:01:07 verbose #4040 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #4041 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:07 verbose #4042 > │ v130 │
00:01:07 verbose #4043 > │ #endif │
00:01:07 verbose #4044 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #4045 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:01:07 verbose #4046 > │ v131 │
00:01:07 verbose #4047 > │ #endif │
00:01:07 verbose #4048 > │ |> fun x -> _v123 <- Some x │
00:01:07 verbose #4049 > │ let v132 : System.IDisposable = _v123.Value │
00:01:07 verbose #4050 > │ struct (v88, v132) │
00:01:07 verbose #4051 > │ #endif │
00:01:07 verbose #4052 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #4053 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:01:07 verbose #4054 > │ unbox<struct (string * System.IDisposable)> │
00:01:07 verbose #4055 > │ struct (v133, v134) │
00:01:07 verbose #4056 > │ #endif │
00:01:07 verbose #4057 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #4058 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:01:07 verbose #4059 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:01:07 verbose #4060 > │ struct (v135, v136) │
00:01:07 verbose #4061 > │ #endif │
00:01:07 verbose #4062 > │ |> fun x -> _v0 <- Some x │
00:01:07 verbose #4063 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:01:07 verbose #4064 > │ use v138 = v138 │
00:01:07 verbose #4065 > │ let v139 : System.IDisposable = v138 │
00:01:07 verbose #4066 > │ let v140 : string option = None │
00:01:07 verbose #4067 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:01:07 verbose #4068 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4069 > │ let v142 : string = method1(v137) │
00:01:07 verbose #4070 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #4071 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:01:07 verbose #4072 > │ let v145 : string = "String::from($0)" │
00:01:07 verbose #4073 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:01:07 verbose #4074 > │ v145 │
00:01:07 verbose #4075 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:01:07 verbose #4076 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:01:07 verbose #4077 > │ v147 │
00:01:07 verbose #4078 > │ let v149 : string = method11() │
00:01:07 verbose #4079 > │ let v150 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:07 verbose #4080 > │ let v151 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v149 v150 │
00:01:07 verbose #4081 > │ let v152 : string = "String::from($0)" │
00:01:07 verbose #4082 > │ let v153 : std_string_String = Fable.Core.RustInterop.emitRustExpr v151 │
00:01:07 verbose #4083 > │ v152 │
00:01:07 verbose #4084 > │ let v154 : string = "$0.join($1)" │
00:01:07 verbose #4085 > │ let v155 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:07 verbose #4086 > │ (v148, v153) v154 │
00:01:07 verbose #4087 > │ let v156 : string = "$0.display().to_string()" │
00:01:07 verbose #4088 > │ let v157 : std_string_String = Fable.Core.RustInterop.emitRustExpr v155 │
00:01:07 verbose #4089 > │ v156 │
00:01:07 verbose #4090 > │ let v158 : string = "fable_library_rust::String_::fromString($0)" │
00:01:07 verbose #4091 > │ let v159 : string = Fable.Core.RustInterop.emitRustExpr v157 v158 │
00:01:07 verbose #4092 > │ v159 │
00:01:07 verbose #4093 > │ #endif │
00:01:07 verbose #4094 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4095 > │ let v160 : string = null |> unbox<string> │
00:01:07 verbose #4096 > │ v160 │
00:01:07 verbose #4097 > │ #endif │
00:01:07 verbose #4098 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4099 > │ let v161 : string = null |> unbox<string> │
00:01:07 verbose #4100 > │ v161 │
00:01:07 verbose #4101 > │ #endif │
00:01:07 verbose #4102 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4103 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4104 > │ let v162 : string = "test.txt" │
00:01:07 verbose #4105 > │ let v163 : string = System.IO.Path.Combine (v137, v162) │
00:01:07 verbose #4106 > │ v163 │
00:01:07 verbose #4107 > │ #endif │
00:01:07 verbose #4108 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #4109 > │ let v164 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:01:07 verbose #4110 > │ let v165 : string = method2(v137) │
00:01:07 verbose #4111 > │ let v166 : string = method12() │
00:01:07 verbose #4112 > │ let v167 : string = "v164.join(v165, v166)" │
00:01:07 verbose #4113 > │ let v168 : string = Fable.Core.JsInterop.emitJsExpr () v167 │
00:01:07 verbose #4114 > │ v168 │
00:01:07 verbose #4115 > │ #endif │
00:01:07 verbose #4116 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #4117 > │ let v169 : string = Unchecked.defaultof<string> │
00:01:07 verbose #4118 > │ v169 │
00:01:07 verbose #4119 > │ #endif │
00:01:07 verbose #4120 > │ |> fun x -> _v140 <- Some x │
00:01:07 verbose #4121 > │ let v170 : string = _v140.Value │
00:01:07 verbose #4122 > │ let v171 : Async<struct (int32 * string)> option = None │
00:01:07 verbose #4123 > │ let v172 : bool = true in let mutable _v171 = v171 │
00:01:07 verbose #4124 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4125 > │ let v173 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4126 > │ (int32 * string)>> │
00:01:07 verbose #4127 > │ v173 │
00:01:07 verbose #4128 > │ #endif │
00:01:07 verbose #4129 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4130 > │ let v174 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4131 > │ (int32 * string)>> │
00:01:07 verbose #4132 > │ v174 │
00:01:07 verbose #4133 > │ #endif │
00:01:07 verbose #4134 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4135 > │ let v175 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4136 > │ (int32 * string)>> │
00:01:07 verbose #4137 > │ v175 │
00:01:07 verbose #4138 > │ #endif │
00:01:07 verbose #4139 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4140 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4141 > │ let v176 : Async<struct (int32 * string)> option = None │
00:01:07 verbose #4142 > │ let mutable _v176 = v176 │
00:01:07 verbose #4143 > │ async { │
00:01:07 verbose #4144 > │ let v177 : string = @$"pwsh -c ""Get-Content {v170}""" │
00:01:07 verbose #4145 > │ let v178 : System.Threading.CancellationToken option = None │
00:01:07 verbose #4146 > │ let v179 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:07 verbose #4147 > │ let v180 : string option = None │
00:01:07 verbose #4148 > │ let v181 : Async<struct (int32 * string)> option = None │
00:01:07 verbose #4149 > │ let v182 : bool = true in let mutable _v181 = v181 │
00:01:07 verbose #4150 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4151 > │ let v183 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4152 > │ (int32 * string)>> │
00:01:07 verbose #4153 > │ v183 │
00:01:07 verbose #4154 > │ #endif │
00:01:07 verbose #4155 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4156 > │ let v184 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4157 > │ (int32 * string)>> │
00:01:07 verbose #4158 > │ v184 │
00:01:07 verbose #4159 > │ #endif │
00:01:07 verbose #4160 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4161 > │ let v185 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4162 > │ (int32 * string)>> │
00:01:07 verbose #4163 > │ v185 │
00:01:07 verbose #4164 > │ #endif │
00:01:07 verbose #4165 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4166 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4167 > │ let v186 : Async<struct (int32 * string)> option = None │
00:01:07 verbose #4168 > │ let v187 : bool = true in let mutable _v186 = v186 │
00:01:07 verbose #4169 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4170 > │ let v188 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4171 > │ (int32 * string)>> │
00:01:07 verbose #4172 > │ v188 │
00:01:07 verbose #4173 > │ #endif │
00:01:07 verbose #4174 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4175 > │ let v189 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4176 > │ (int32 * string)>> │
00:01:07 verbose #4177 > │ v189 │
00:01:07 verbose #4178 > │ #endif │
00:01:07 verbose #4179 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4180 > │ let v190 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:07 verbose #4181 > │ (int32 * string)>> │
00:01:07 verbose #4182 > │ v190 │
00:01:07 verbose #4183 > │ #endif │
00:01:07 verbose #4184 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4185 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4186 > │ let v191 : Async<struct (int32 * string)> option = None │
00:01:07 verbose #4187 > │ let mutable _v191 = v191 │
00:01:07 verbose #4188 > │ async { │
00:01:07 verbose #4189 > │ let struct (v192 : string, v193 : string) = method13() │
00:01:07 verbose #4190 > │ let v194 : char seq = v177 |> unbox<char seq> │
00:01:07 verbose #4191 > │ let v195 : (char seq -> char list) = Seq.toList │
00:01:07 verbose #4192 > │ let v196 : char list = v195 v194 │
00:01:07 verbose #4193 > │ let v197 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:07 verbose #4194 > │ List.foldBack │
00:01:07 verbose #4195 > │ let v198 : (char -> (UH0 -> UH0)) = method14() │
00:01:07 verbose #4196 > │ let v199 : (char list -> (UH0 -> UH0)) = v197 v198 │
00:01:07 verbose #4197 > │ let v200 : (UH0 -> UH0) = v199 v196 │
00:01:07 verbose #4198 > │ let v201 : UH0 = UH0_0 │
00:01:07 verbose #4199 > │ let v202 : UH0 = v200 v201 │
00:01:07 verbose #4200 > │ let v203 : US3 = US3_0 │
00:01:07 verbose #4201 > │ let struct (v204 : string, v205 : string) = method15(v193, v192, v202, │
00:01:07 verbose #4202 > │ v203) │
00:01:07 verbose #4203 > │ let v206 : (string -> US5) = method16() │
00:01:07 verbose #4204 > │ let v207 : US5 = US5_1 │
00:01:07 verbose #4205 > │ let v208 : US5 = v180 |> Option.map v206 |> Option.defaultValue v207 │
00:01:07 verbose #4206 > │ let v212 : string = │
00:01:07 verbose #4207 > │ match v208 with │
00:01:07 verbose #4208 > │ | US5_1 -> (* None *) │
00:01:07 verbose #4209 > │ let v210 : string = "" │
00:01:07 verbose #4210 > │ v210 │
00:01:07 verbose #4211 > │ | US5_0(v209) -> (* Some *) │
00:01:07 verbose #4212 > │ v209 │
00:01:07 verbose #4213 > │ let v213 : US0 = US0_1 │
00:01:07 verbose #4214 > │ let v214 : (unit -> string) = closure15(v178, v177, v179, v180) │
00:01:07 verbose #4215 > │ let v215 : (unit -> string) = method17() │
00:01:07 verbose #4216 > │ method4(v213, v214, v215) │
00:01:07 verbose #4217 > │ let v216 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:07 verbose #4218 > │ let v217 : System.Diagnostics.ProcessStartInfo = │
00:01:07 verbose #4219 > │ System.Diagnostics.ProcessStartInfo (Arguments = v205, │
00:01:07 verbose #4220 > │ StandardOutputEncoding = v216, WorkingDirectory = v212, FileName = v204, │
00:01:07 verbose #4221 > │ CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput │
00:01:07 verbose #4222 > │ = true, UseShellExecute = false) │
00:01:07 verbose #4223 > │ let v218 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:07 verbose #4224 > │ (StartInfo = v217) │
00:01:07 verbose #4225 > │ use v218 = v218 │
00:01:07 verbose #4226 > │ let v219 : System.Diagnostics.Process = v218 │
00:01:07 verbose #4227 > │ let v220 : (unit -> │
00:01:07 verbose #4228 > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:07 verbose #4229 > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:07 verbose #4230 > │ let v221 : System.Collections.Concurrent.ConcurrentStack<string> = v220 │
00:01:07 verbose #4231 > │ () │
00:01:07 verbose #4232 > │ let v222 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:07 verbose #4233 > │ closure16(v178, v177, v179, v180, v219, v221) │
00:01:07 verbose #4234 > │ v219.OutputDataReceived.Add v222 │
00:01:07 verbose #4235 > │ let v223 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:07 verbose #4236 > │ closure19(v178, v177, v179, v180, v219, v221) │
00:01:07 verbose #4237 > │ v219.ErrorDataReceived.Add v223 │
00:01:07 verbose #4238 > │ let v224 : (unit -> bool) = v219.Start │
00:01:07 verbose #4239 > │ let v225 : bool = v224 () │
00:01:07 verbose #4240 > │ let v226 : bool = v225 = false │
00:01:07 verbose #4241 > │ if v226 then │
00:01:07 verbose #4242 > │ let v227 : string = $"execute_with_options_async / process_start │
00:01:07 verbose #4243 > │ error" │
00:01:07 verbose #4244 > │ failwith<unit> v227 │
00:01:07 verbose #4245 > │ let v228 : (unit -> unit) = v219.BeginErrorReadLine │
00:01:07 verbose #4246 > │ v228 () │
00:01:07 verbose #4247 > │ let v229 : (unit -> unit) = v219.BeginOutputReadLine │
00:01:07 verbose #4248 > │ v229 () │
00:01:07 verbose #4249 > │ let v230 : (System.Threading.CancellationToken -> US7) = method19() │
00:01:07 verbose #4250 > │ let v231 : US7 = US7_1 │
00:01:07 verbose #4251 > │ let v232 : US7 = v178 |> Option.map v230 |> Option.defaultValue v231 │
00:01:07 verbose #4252 > │ let v236 : System.Threading.CancellationToken = │
00:01:07 verbose #4253 > │ match v232 with │
00:01:07 verbose #4254 > │ | US7_1 -> (* None *) │
00:01:07 verbose #4255 > │ let v234 : System.Threading.CancellationToken = │
00:01:07 verbose #4256 > │ System.Threading.CancellationToken.None │
00:01:07 verbose #4257 > │ v234 │
00:01:07 verbose #4258 > │ | US7_0(v233) -> (* Some *) │
00:01:07 verbose #4259 > │ v233 │
00:01:07 verbose #4260 > │ let v237 : Async<System.Threading.CancellationToken> option = None │
00:01:07 verbose #4261 > │ let v238 : bool = true in let mutable _v237 = v237 │
00:01:07 verbose #4262 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4263 > │ let v239 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4264 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4265 > │ v239 │
00:01:07 verbose #4266 > │ #endif │
00:01:07 verbose #4267 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4268 > │ let v240 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4269 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4270 > │ v240 │
00:01:07 verbose #4271 > │ #endif │
00:01:07 verbose #4272 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4273 > │ let v241 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4274 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4275 > │ v241 │
00:01:07 verbose #4276 > │ #endif │
00:01:07 verbose #4277 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4278 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4279 > │ let v242 : Async<System.Threading.CancellationToken> option = None │
00:01:07 verbose #4280 > │ let v243 : bool = true in let mutable _v242 = v242 │
00:01:07 verbose #4281 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4282 > │ let v244 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4283 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4284 > │ v244 │
00:01:07 verbose #4285 > │ #endif │
00:01:07 verbose #4286 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4287 > │ let v245 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4288 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4289 > │ v245 │
00:01:07 verbose #4290 > │ #endif │
00:01:07 verbose #4291 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4292 > │ let v246 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4293 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4294 > │ v246 │
00:01:07 verbose #4295 > │ #endif │
00:01:07 verbose #4296 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:07 verbose #4297 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:07 verbose #4298 > │ let v247 : Async<System.Threading.CancellationToken> option = None │
00:01:07 verbose #4299 > │ let mutable _v247 = v247 │
00:01:07 verbose #4300 > │ async { │
00:01:07 verbose #4301 > │ let v248 : Async<System.Threading.CancellationToken> = │
00:01:07 verbose #4302 > │ Async.CancellationToken │
00:01:07 verbose #4303 > │ let! v248 = v248 │
00:01:07 verbose #4304 > │ let v249 : System.Threading.CancellationToken = v248 │
00:01:07 verbose #4305 > │ let v250 : System.Threading.CancellationToken = │
00:01:07 verbose #4306 > │ Async.DefaultCancellationToken │
00:01:07 verbose #4307 > │ let v251 : (System.Threading.CancellationToken []) = [|v249; v250; │
00:01:07 verbose #4308 > │ v236|] │
00:01:07 verbose #4309 > │ let v252 : ((System.Threading.CancellationToken []) -> │
00:01:07 verbose #4310 > │ System.Threading.CancellationTokenSource) = │
00:01:07 verbose #4311 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:07 verbose #4312 > │ let v253 : System.Threading.CancellationTokenSource = v252 v251 │
00:01:07 verbose #4313 > │ let v254 : System.Threading.CancellationToken = v253.Token │
00:01:07 verbose #4314 > │ return v254 │
00:01:07 verbose #4315 > │ } │
00:01:07 verbose #4316 > │ |> fun x -> _v247 <- Some x │
00:01:07 verbose #4317 > │ let v255 : Async<System.Threading.CancellationToken> = _v247 |> │
00:01:07 verbose #4318 > │ Option.get │
00:01:07 verbose #4319 > │ v255 │
00:01:07 verbose #4320 > │ #endif │
00:01:07 verbose #4321 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #4322 > │ let v256 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4323 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4324 > │ v256 │
00:01:07 verbose #4325 > │ #endif │
00:01:07 verbose #4326 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #4327 > │ let v257 : Async<System.Threading.CancellationToken> = │
00:01:07 verbose #4328 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4329 > │ v257 │
00:01:07 verbose #4330 > │ #endif │
00:01:07 verbose #4331 > │ |> fun x -> _v242 <- Some x │
00:01:07 verbose #4332 > │ let v258 : Async<System.Threading.CancellationToken> = _v242.Value │
00:01:07 verbose #4333 > │ v258 │
00:01:07 verbose #4334 > │ #endif │
00:01:07 verbose #4335 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:07 verbose #4336 > │ let v259 : Async<System.Threading.CancellationToken> = null |> │
00:01:07 verbose #4337 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4338 > │ v259 │
00:01:07 verbose #4339 > │ #endif │
00:01:07 verbose #4340 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:07 verbose #4341 > │ let v260 : Async<System.Threading.CancellationToken> = │
00:01:07 verbose #4342 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:07 verbose #4343 > │ v260 │
00:01:07 verbose #4344 > │ #endif │
00:01:07 verbose #4345 > │ |> fun x -> _v237 <- Some x │
00:01:07 verbose #4346 > │ let v261 : Async<System.Threading.CancellationToken> = _v237.Value │
00:01:07 verbose #4347 > │ let! v261 = v261 │
00:01:07 verbose #4348 > │ let v262 : System.Threading.CancellationToken = v261 │
00:01:07 verbose #4349 > │ let v263 : ((unit -> unit) -> │
00:01:07 verbose #4350 > │ System.Threading.CancellationTokenRegistration) = v262.Register │
00:01:07 verbose #4351 > │ let v264 : (unit -> unit) = closure21(v219) │
00:01:07 verbose #4352 > │ let v265 : System.Threading.CancellationTokenRegistration = v263 v264 │
00:01:07 verbose #4353 > │ use v265 = v265 │
00:01:07 verbose #4354 > │ let v266 : System.Threading.CancellationTokenRegistration = v265 │
00:01:07 verbose #4355 > │ let v267 : Async<int32> option = None │
00:01:07 verbose #4356 > │ let v268 : bool = true in let mutable _v267 = v267 │
00:01:07 verbose #4357 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:07 verbose #4358 > │ let v269 : Async<int32> = null |> unbox<Async<int32>> │
00:01:07 verbose #4359 > │ v269 │
00:01:07 verbose #4360 > │ #endif │
00:01:07 verbose #4361 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:07 verbose #4362 > │ let v270 : Async<int32> = null |> unbox<Async<int32>> │
00:01:07 verbose #4363 > │ v270 │
00:01:07 verbose #4364 > │ #endif │
00:01:07 verbose #4365 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:07 verbose #4366 > │ let v271 : Async<int32> = null |> unbox<Async<int32>> │
00:01:07 verbose #4367 > │ v271 │
00:01:07 verbose #4368 > │ #endif │
00:01:08 verbose #4369 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4370 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4371 > │ let v272 : Async<int32> option = None │
00:01:08 verbose #4372 > │ let mutable _v272 = v272 │
00:01:08 verbose #4373 > │ async { │
00:01:08 verbose #4374 > │ try │
00:01:08 verbose #4375 > │ let v273 : System.Threading.Tasks.Task = v219.WaitForExitAsync v262 │
00:01:08 verbose #4376 > │ let v274 : Async<unit> option = None │
00:01:08 verbose #4377 > │ let v275 : bool = true in let mutable _v274 = v274 │
00:01:08 verbose #4378 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4379 > │ let v276 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4380 > │ v276 │
00:01:08 verbose #4381 > │ #endif │
00:01:08 verbose #4382 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4383 > │ let v277 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4384 > │ v277 │
00:01:08 verbose #4385 > │ #endif │
00:01:08 verbose #4386 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4387 > │ let v278 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4388 > │ v278 │
00:01:08 verbose #4389 > │ #endif │
00:01:08 verbose #4390 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4391 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4392 > │ let v279 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:08 verbose #4393 > │ Async.AwaitTask │
00:01:08 verbose #4394 > │ let v280 : Async<unit> = v279 v273 │
00:01:08 verbose #4395 > │ v280 │
00:01:08 verbose #4396 > │ #endif │
00:01:08 verbose #4397 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4398 > │ let v281 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4399 > │ v281 │
00:01:08 verbose #4400 > │ #endif │
00:01:08 verbose #4401 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4402 > │ let v282 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:08 verbose #4403 > │ v282 │
00:01:08 verbose #4404 > │ #endif │
00:01:08 verbose #4405 > │ |> fun x -> _v274 <- Some x │
00:01:08 verbose #4406 > │ let v283 : Async<unit> = _v274.Value │
00:01:08 verbose #4407 > │ do! v283 │
00:01:08 verbose #4408 > │ let v284 : int32 = v219.ExitCode │
00:01:08 verbose #4409 > │ return v284 │
00:01:08 verbose #4410 > │ with ex -> │
00:01:08 verbose #4411 > │ let v285 : exn = ex │
00:01:08 verbose #4412 > │ let v286 : string option = None │
00:01:08 verbose #4413 > │ let v287 : bool = true in let mutable _v286 = v286 │
00:01:08 verbose #4414 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4415 > │ let v288 : string = $"%A{v285}" │
00:01:08 verbose #4416 > │ v288 │
00:01:08 verbose #4417 > │ #endif │
00:01:08 verbose #4418 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4419 > │ let v289 : string = $"%A{v285}" │
00:01:08 verbose #4420 > │ v289 │
00:01:08 verbose #4421 > │ #endif │
00:01:08 verbose #4422 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4423 > │ let v290 : string = $"%A{v285}" │
00:01:08 verbose #4424 > │ v290 │
00:01:08 verbose #4425 > │ #endif │
00:01:08 verbose #4426 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4427 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4428 > │ let v291 : string = $"{v285.GetType ()}: {v285.Message}" │
00:01:08 verbose #4429 > │ v291 │
00:01:08 verbose #4430 > │ #endif │
00:01:08 verbose #4431 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4432 > │ let v292 : string = $"%A{v285}" │
00:01:08 verbose #4433 > │ v292 │
00:01:08 verbose #4434 > │ #endif │
00:01:08 verbose #4435 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4436 > │ let v293 : string = Unchecked.defaultof<string> │
00:01:08 verbose #4437 > │ v293 │
00:01:08 verbose #4438 > │ #endif │
00:01:08 verbose #4439 > │ |> fun x -> _v286 <- Some x │
00:01:08 verbose #4440 > │ let v294 : string = _v286.Value │
00:01:08 verbose #4441 > │ let v295 : (string -> unit) = v221.Push │
00:01:08 verbose #4442 > │ v295 v294 │
00:01:08 verbose #4443 > │ let v296 : System.Threading.Tasks.TaskCanceledException = v285 |> │
00:01:08 verbose #4444 > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:08 verbose #4445 > │ let v297 : US0 = US0_3 │
00:01:08 verbose #4446 > │ let v298 : (unit -> string) = closure22(v296) │
00:01:08 verbose #4447 > │ let v299 : (unit -> string) = method17() │
00:01:08 verbose #4448 > │ method4(v297, v298, v299) │
00:01:08 verbose #4449 > │ return -2147483648 │
00:01:08 verbose #4450 > │ (* │
00:01:08 verbose #4451 > │ *) │
00:01:08 verbose #4452 > │ } │
00:01:08 verbose #4453 > │ |> fun x -> _v272 <- Some x │
00:01:08 verbose #4454 > │ let v300 : Async<int32> = _v272 |> Option.get │
00:01:08 verbose #4455 > │ v300 │
00:01:08 verbose #4456 > │ #endif │
00:01:08 verbose #4457 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4458 > │ let v301 : Async<int32> = null |> unbox<Async<int32>> │
00:01:08 verbose #4459 > │ v301 │
00:01:08 verbose #4460 > │ #endif │
00:01:08 verbose #4461 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4462 > │ let v302 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:08 verbose #4463 > │ v302 │
00:01:08 verbose #4464 > │ #endif │
00:01:08 verbose #4465 > │ |> fun x -> _v267 <- Some x │
00:01:08 verbose #4466 > │ let v303 : Async<int32> = _v267.Value │
00:01:08 verbose #4467 > │ let! v303 = v303 │
00:01:08 verbose #4468 > │ let v304 : int32 = v303 │
00:01:08 verbose #4469 > │ let v305 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:08 verbose #4470 > │ string seq) = Seq.rev │
00:01:08 verbose #4471 > │ let v306 : string seq = v305 v221 │
00:01:08 verbose #4472 > │ let v307 : string = method20() │
00:01:08 verbose #4473 > │ let v308 : (string -> (string seq -> string)) = String.concat │
00:01:08 verbose #4474 > │ let v309 : (string seq -> string) = v308 v307 │
00:01:08 verbose #4475 > │ let v310 : string = v309 v306 │
00:01:08 verbose #4476 > │ let v311 : US0 = US0_1 │
00:01:08 verbose #4477 > │ let v312 : (unit -> string) = closure23(v304, v310) │
00:01:08 verbose #4478 > │ let v313 : (unit -> string) = method17() │
00:01:08 verbose #4479 > │ method4(v311, v312, v313) │
00:01:08 verbose #4480 > │ return struct (v304, v310) │
00:01:08 verbose #4481 > │ } │
00:01:08 verbose #4482 > │ |> fun x -> _v191 <- Some x │
00:01:08 verbose #4483 > │ let v314 : Async<struct (int32 * string)> = _v191 |> Option.get │
00:01:08 verbose #4484 > │ v314 │
00:01:08 verbose #4485 > │ #endif │
00:01:08 verbose #4486 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4487 > │ let v315 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4488 > │ (int32 * string)>> │
00:01:08 verbose #4489 > │ v315 │
00:01:08 verbose #4490 > │ #endif │
00:01:08 verbose #4491 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4492 > │ let v316 : Async<struct (int32 * string)> = │
00:01:08 verbose #4493 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:08 verbose #4494 > │ v316 │
00:01:08 verbose #4495 > │ #endif │
00:01:08 verbose #4496 > │ |> fun x -> _v186 <- Some x │
00:01:08 verbose #4497 > │ let v317 : Async<struct (int32 * string)> = _v186.Value │
00:01:08 verbose #4498 > │ v317 │
00:01:08 verbose #4499 > │ #endif │
00:01:08 verbose #4500 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4501 > │ let v318 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4502 > │ (int32 * string)>> │
00:01:08 verbose #4503 > │ v318 │
00:01:08 verbose #4504 > │ #endif │
00:01:08 verbose #4505 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4506 > │ let v319 : Async<struct (int32 * string)> = │
00:01:08 verbose #4507 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:08 verbose #4508 > │ v319 │
00:01:08 verbose #4509 > │ #endif │
00:01:08 verbose #4510 > │ |> fun x -> _v181 <- Some x │
00:01:08 verbose #4511 > │ let v320 : Async<struct (int32 * string)> = _v181.Value │
00:01:08 verbose #4512 > │ let! v320 = v320 │
00:01:08 verbose #4513 > │ let struct (v321 : int32, v322 : string) = v320 │
00:01:08 verbose #4514 > │ let v323 : string = $"%A{v321}" │
00:01:08 verbose #4515 > │ System.Console.WriteLine v323 │
00:01:08 verbose #4516 > │ let v324 : bool = v321 = 1 │
00:01:08 verbose #4517 > │ let v326 : bool = │
00:01:08 verbose #4518 > │ if v324 then │
00:01:08 verbose #4519 > │ true │
00:01:08 verbose #4520 > │ else │
00:01:08 verbose #4521 > │ method21(v324) │
00:01:08 verbose #4522 > │ let v327 : string = $"__expect / actual: %A{v321} / expected: %A{1}" │
00:01:08 verbose #4523 > │ let v328 : bool = v326 = false │
00:01:08 verbose #4524 > │ if v328 then │
00:01:08 verbose #4525 > │ failwith<unit> v327 │
00:01:08 verbose #4526 > │ let v329 : string = "not exist" │
00:01:08 verbose #4527 > │ let v330 : string = $"%A{v329}" │
00:01:08 verbose #4528 > │ System.Console.WriteLine v330 │
00:01:08 verbose #4529 > │ let v331 : bool = v322.Contains v329 │
00:01:08 verbose #4530 > │ let v333 : bool = │
00:01:08 verbose #4531 > │ if v331 then │
00:01:08 verbose #4532 > │ true │
00:01:08 verbose #4533 > │ else │
00:01:08 verbose #4534 > │ method21(v331) │
00:01:08 verbose #4535 > │ let v334 : string = $"__expect / actual: %A{v329} / expected: %A{v322}" │
00:01:08 verbose #4536 > │ let v335 : bool = v333 = false │
00:01:08 verbose #4537 > │ if v335 then │
00:01:08 verbose #4538 > │ failwith<unit> v334 │
00:01:08 verbose #4539 > │ let v336 : Async<unit> option = None │
00:01:08 verbose #4540 > │ let v337 : bool = true in let mutable _v336 = v336 │
00:01:08 verbose #4541 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4542 > │ let v338 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4543 > │ v338 │
00:01:08 verbose #4544 > │ #endif │
00:01:08 verbose #4545 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4546 > │ let v339 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4547 > │ v339 │
00:01:08 verbose #4548 > │ #endif │
00:01:08 verbose #4549 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4550 > │ let v340 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4551 > │ v340 │
00:01:08 verbose #4552 > │ #endif │
00:01:08 verbose #4553 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4554 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4555 > │ let v341 : string = "0" │
00:01:08 verbose #4556 > │ let v342 : System.Threading.Tasks.Task = │
00:01:08 verbose #4557 > │ System.IO.File.WriteAllTextAsync (v170, v341) │
00:01:08 verbose #4558 > │ let v343 : Async<unit> option = None │
00:01:08 verbose #4559 > │ let v344 : bool = true in let mutable _v343 = v343 │
00:01:08 verbose #4560 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4561 > │ let v345 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4562 > │ v345 │
00:01:08 verbose #4563 > │ #endif │
00:01:08 verbose #4564 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4565 > │ let v346 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4566 > │ v346 │
00:01:08 verbose #4567 > │ #endif │
00:01:08 verbose #4568 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4569 > │ let v347 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4570 > │ v347 │
00:01:08 verbose #4571 > │ #endif │
00:01:08 verbose #4572 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4573 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4574 > │ let v348 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:08 verbose #4575 > │ Async.AwaitTask │
00:01:08 verbose #4576 > │ let v349 : Async<unit> = v348 v342 │
00:01:08 verbose #4577 > │ v349 │
00:01:08 verbose #4578 > │ #endif │
00:01:08 verbose #4579 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4580 > │ let v350 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4581 > │ v350 │
00:01:08 verbose #4582 > │ #endif │
00:01:08 verbose #4583 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4584 > │ let v351 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:08 verbose #4585 > │ v351 │
00:01:08 verbose #4586 > │ #endif │
00:01:08 verbose #4587 > │ |> fun x -> _v343 <- Some x │
00:01:08 verbose #4588 > │ let v352 : Async<unit> = _v343.Value │
00:01:08 verbose #4589 > │ v352 │
00:01:08 verbose #4590 > │ #endif │
00:01:08 verbose #4591 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4592 > │ let v353 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4593 > │ v353 │
00:01:08 verbose #4594 > │ #endif │
00:01:08 verbose #4595 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4596 > │ let v354 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:08 verbose #4597 > │ v354 │
00:01:08 verbose #4598 > │ #endif │
00:01:08 verbose #4599 > │ |> fun x -> _v336 <- Some x │
00:01:08 verbose #4600 > │ let v355 : Async<unit> = _v336.Value │
00:01:08 verbose #4601 > │ do! v355 │
00:01:08 verbose #4602 > │ let v356 : System.Threading.CancellationToken option = None │
00:01:08 verbose #4603 > │ let v357 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:08 verbose #4604 > │ let v358 : string option = None │
00:01:08 verbose #4605 > │ let v359 : string = @$"pwsh -c ""Get-Content {v162}""" │
00:01:08 verbose #4606 > │ let v360 : string option = Some v137 │
00:01:08 verbose #4607 > │ let v361 : Async<struct (int32 * string)> option = None │
00:01:08 verbose #4608 > │ let v362 : bool = true in let mutable _v361 = v361 │
00:01:08 verbose #4609 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4610 > │ let v363 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4611 > │ (int32 * string)>> │
00:01:08 verbose #4612 > │ v363 │
00:01:08 verbose #4613 > │ #endif │
00:01:08 verbose #4614 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4615 > │ let v364 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4616 > │ (int32 * string)>> │
00:01:08 verbose #4617 > │ v364 │
00:01:08 verbose #4618 > │ #endif │
00:01:08 verbose #4619 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4620 > │ let v365 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4621 > │ (int32 * string)>> │
00:01:08 verbose #4622 > │ v365 │
00:01:08 verbose #4623 > │ #endif │
00:01:08 verbose #4624 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4625 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4626 > │ let v366 : Async<struct (int32 * string)> option = None │
00:01:08 verbose #4627 > │ let v367 : bool = true in let mutable _v366 = v366 │
00:01:08 verbose #4628 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4629 > │ let v368 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4630 > │ (int32 * string)>> │
00:01:08 verbose #4631 > │ v368 │
00:01:08 verbose #4632 > │ #endif │
00:01:08 verbose #4633 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4634 > │ let v369 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4635 > │ (int32 * string)>> │
00:01:08 verbose #4636 > │ v369 │
00:01:08 verbose #4637 > │ #endif │
00:01:08 verbose #4638 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4639 > │ let v370 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4640 > │ (int32 * string)>> │
00:01:08 verbose #4641 > │ v370 │
00:01:08 verbose #4642 > │ #endif │
00:01:08 verbose #4643 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4644 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4645 > │ let v371 : Async<struct (int32 * string)> option = None │
00:01:08 verbose #4646 > │ let mutable _v371 = v371 │
00:01:08 verbose #4647 > │ async { │
00:01:08 verbose #4648 > │ let struct (v372 : string, v373 : string) = method13() │
00:01:08 verbose #4649 > │ let v374 : char seq = v359 |> unbox<char seq> │
00:01:08 verbose #4650 > │ let v375 : (char seq -> char list) = Seq.toList │
00:01:08 verbose #4651 > │ let v376 : char list = v375 v374 │
00:01:08 verbose #4652 > │ let v377 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:08 verbose #4653 > │ List.foldBack │
00:01:08 verbose #4654 > │ let v378 : (char -> (UH0 -> UH0)) = method14() │
00:01:08 verbose #4655 > │ let v379 : (char list -> (UH0 -> UH0)) = v377 v378 │
00:01:08 verbose #4656 > │ let v380 : (UH0 -> UH0) = v379 v376 │
00:01:08 verbose #4657 > │ let v381 : UH0 = UH0_0 │
00:01:08 verbose #4658 > │ let v382 : UH0 = v380 v381 │
00:01:08 verbose #4659 > │ let v383 : US3 = US3_0 │
00:01:08 verbose #4660 > │ let struct (v384 : string, v385 : string) = method15(v373, v372, v382, │
00:01:08 verbose #4661 > │ v383) │
00:01:08 verbose #4662 > │ let v386 : (string -> US5) = method16() │
00:01:08 verbose #4663 > │ let v387 : US5 = US5_1 │
00:01:08 verbose #4664 > │ let v388 : US5 = v360 |> Option.map v386 |> Option.defaultValue v387 │
00:01:08 verbose #4665 > │ let v392 : string = │
00:01:08 verbose #4666 > │ match v388 with │
00:01:08 verbose #4667 > │ | US5_1 -> (* None *) │
00:01:08 verbose #4668 > │ let v390 : string = "" │
00:01:08 verbose #4669 > │ v390 │
00:01:08 verbose #4670 > │ | US5_0(v389) -> (* Some *) │
00:01:08 verbose #4671 > │ v389 │
00:01:08 verbose #4672 > │ let v393 : US0 = US0_1 │
00:01:08 verbose #4673 > │ let v394 : (unit -> string) = closure15(v356, v359, v357, v360) │
00:01:08 verbose #4674 > │ let v395 : (unit -> string) = method17() │
00:01:08 verbose #4675 > │ method4(v393, v394, v395) │
00:01:08 verbose #4676 > │ let v396 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:08 verbose #4677 > │ let v397 : System.Diagnostics.ProcessStartInfo = │
00:01:08 verbose #4678 > │ System.Diagnostics.ProcessStartInfo (Arguments = v385, │
00:01:08 verbose #4679 > │ StandardOutputEncoding = v396, WorkingDirectory = v392, FileName = v384, │
00:01:08 verbose #4680 > │ CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput │
00:01:08 verbose #4681 > │ = true, UseShellExecute = false) │
00:01:08 verbose #4682 > │ let v398 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:08 verbose #4683 > │ (StartInfo = v397) │
00:01:08 verbose #4684 > │ use v398 = v398 │
00:01:08 verbose #4685 > │ let v399 : System.Diagnostics.Process = v398 │
00:01:08 verbose #4686 > │ let v400 : (unit -> │
00:01:08 verbose #4687 > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:08 verbose #4688 > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:08 verbose #4689 > │ let v401 : System.Collections.Concurrent.ConcurrentStack<string> = v400 │
00:01:08 verbose #4690 > │ () │
00:01:08 verbose #4691 > │ let v402 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:08 verbose #4692 > │ closure16(v356, v359, v357, v360, v399, v401) │
00:01:08 verbose #4693 > │ v399.OutputDataReceived.Add v402 │
00:01:08 verbose #4694 > │ let v403 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:08 verbose #4695 > │ closure19(v356, v359, v357, v360, v399, v401) │
00:01:08 verbose #4696 > │ v399.ErrorDataReceived.Add v403 │
00:01:08 verbose #4697 > │ let v404 : (unit -> bool) = v399.Start │
00:01:08 verbose #4698 > │ let v405 : bool = v404 () │
00:01:08 verbose #4699 > │ let v406 : bool = v405 = false │
00:01:08 verbose #4700 > │ if v406 then │
00:01:08 verbose #4701 > │ let v407 : string = $"execute_with_options_async / process_start │
00:01:08 verbose #4702 > │ error" │
00:01:08 verbose #4703 > │ failwith<unit> v407 │
00:01:08 verbose #4704 > │ let v408 : (unit -> unit) = v399.BeginErrorReadLine │
00:01:08 verbose #4705 > │ v408 () │
00:01:08 verbose #4706 > │ let v409 : (unit -> unit) = v399.BeginOutputReadLine │
00:01:08 verbose #4707 > │ v409 () │
00:01:08 verbose #4708 > │ let v410 : (System.Threading.CancellationToken -> US7) = method19() │
00:01:08 verbose #4709 > │ let v411 : US7 = US7_1 │
00:01:08 verbose #4710 > │ let v412 : US7 = v356 |> Option.map v410 |> Option.defaultValue v411 │
00:01:08 verbose #4711 > │ let v416 : System.Threading.CancellationToken = │
00:01:08 verbose #4712 > │ match v412 with │
00:01:08 verbose #4713 > │ | US7_1 -> (* None *) │
00:01:08 verbose #4714 > │ let v414 : System.Threading.CancellationToken = │
00:01:08 verbose #4715 > │ System.Threading.CancellationToken.None │
00:01:08 verbose #4716 > │ v414 │
00:01:08 verbose #4717 > │ | US7_0(v413) -> (* Some *) │
00:01:08 verbose #4718 > │ v413 │
00:01:08 verbose #4719 > │ let v417 : Async<System.Threading.CancellationToken> option = None │
00:01:08 verbose #4720 > │ let v418 : bool = true in let mutable _v417 = v417 │
00:01:08 verbose #4721 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4722 > │ let v419 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4723 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4724 > │ v419 │
00:01:08 verbose #4725 > │ #endif │
00:01:08 verbose #4726 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4727 > │ let v420 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4728 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4729 > │ v420 │
00:01:08 verbose #4730 > │ #endif │
00:01:08 verbose #4731 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4732 > │ let v421 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4733 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4734 > │ v421 │
00:01:08 verbose #4735 > │ #endif │
00:01:08 verbose #4736 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4737 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4738 > │ let v422 : Async<System.Threading.CancellationToken> option = None │
00:01:08 verbose #4739 > │ let v423 : bool = true in let mutable _v422 = v422 │
00:01:08 verbose #4740 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4741 > │ let v424 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4742 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4743 > │ v424 │
00:01:08 verbose #4744 > │ #endif │
00:01:08 verbose #4745 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4746 > │ let v425 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4747 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4748 > │ v425 │
00:01:08 verbose #4749 > │ #endif │
00:01:08 verbose #4750 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4751 > │ let v426 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4752 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4753 > │ v426 │
00:01:08 verbose #4754 > │ #endif │
00:01:08 verbose #4755 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4756 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4757 > │ let v427 : Async<System.Threading.CancellationToken> option = None │
00:01:08 verbose #4758 > │ let mutable _v427 = v427 │
00:01:08 verbose #4759 > │ async { │
00:01:08 verbose #4760 > │ let v428 : Async<System.Threading.CancellationToken> = │
00:01:08 verbose #4761 > │ Async.CancellationToken │
00:01:08 verbose #4762 > │ let! v428 = v428 │
00:01:08 verbose #4763 > │ let v429 : System.Threading.CancellationToken = v428 │
00:01:08 verbose #4764 > │ let v430 : System.Threading.CancellationToken = │
00:01:08 verbose #4765 > │ Async.DefaultCancellationToken │
00:01:08 verbose #4766 > │ let v431 : (System.Threading.CancellationToken []) = [|v429; v430; │
00:01:08 verbose #4767 > │ v416|] │
00:01:08 verbose #4768 > │ let v432 : ((System.Threading.CancellationToken []) -> │
00:01:08 verbose #4769 > │ System.Threading.CancellationTokenSource) = │
00:01:08 verbose #4770 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:08 verbose #4771 > │ let v433 : System.Threading.CancellationTokenSource = v432 v431 │
00:01:08 verbose #4772 > │ let v434 : System.Threading.CancellationToken = v433.Token │
00:01:08 verbose #4773 > │ return v434 │
00:01:08 verbose #4774 > │ } │
00:01:08 verbose #4775 > │ |> fun x -> _v427 <- Some x │
00:01:08 verbose #4776 > │ let v435 : Async<System.Threading.CancellationToken> = _v427 |> │
00:01:08 verbose #4777 > │ Option.get │
00:01:08 verbose #4778 > │ v435 │
00:01:08 verbose #4779 > │ #endif │
00:01:08 verbose #4780 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4781 > │ let v436 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4782 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4783 > │ v436 │
00:01:08 verbose #4784 > │ #endif │
00:01:08 verbose #4785 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4786 > │ let v437 : Async<System.Threading.CancellationToken> = │
00:01:08 verbose #4787 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4788 > │ v437 │
00:01:08 verbose #4789 > │ #endif │
00:01:08 verbose #4790 > │ |> fun x -> _v422 <- Some x │
00:01:08 verbose #4791 > │ let v438 : Async<System.Threading.CancellationToken> = _v422.Value │
00:01:08 verbose #4792 > │ v438 │
00:01:08 verbose #4793 > │ #endif │
00:01:08 verbose #4794 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4795 > │ let v439 : Async<System.Threading.CancellationToken> = null |> │
00:01:08 verbose #4796 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4797 > │ v439 │
00:01:08 verbose #4798 > │ #endif │
00:01:08 verbose #4799 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4800 > │ let v440 : Async<System.Threading.CancellationToken> = │
00:01:08 verbose #4801 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:08 verbose #4802 > │ v440 │
00:01:08 verbose #4803 > │ #endif │
00:01:08 verbose #4804 > │ |> fun x -> _v417 <- Some x │
00:01:08 verbose #4805 > │ let v441 : Async<System.Threading.CancellationToken> = _v417.Value │
00:01:08 verbose #4806 > │ let! v441 = v441 │
00:01:08 verbose #4807 > │ let v442 : System.Threading.CancellationToken = v441 │
00:01:08 verbose #4808 > │ let v443 : ((unit -> unit) -> │
00:01:08 verbose #4809 > │ System.Threading.CancellationTokenRegistration) = v442.Register │
00:01:08 verbose #4810 > │ let v444 : (unit -> unit) = closure21(v399) │
00:01:08 verbose #4811 > │ let v445 : System.Threading.CancellationTokenRegistration = v443 v444 │
00:01:08 verbose #4812 > │ use v445 = v445 │
00:01:08 verbose #4813 > │ let v446 : System.Threading.CancellationTokenRegistration = v445 │
00:01:08 verbose #4814 > │ let v447 : Async<int32> option = None │
00:01:08 verbose #4815 > │ let v448 : bool = true in let mutable _v447 = v447 │
00:01:08 verbose #4816 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4817 > │ let v449 : Async<int32> = null |> unbox<Async<int32>> │
00:01:08 verbose #4818 > │ v449 │
00:01:08 verbose #4819 > │ #endif │
00:01:08 verbose #4820 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4821 > │ let v450 : Async<int32> = null |> unbox<Async<int32>> │
00:01:08 verbose #4822 > │ v450 │
00:01:08 verbose #4823 > │ #endif │
00:01:08 verbose #4824 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4825 > │ let v451 : Async<int32> = null |> unbox<Async<int32>> │
00:01:08 verbose #4826 > │ v451 │
00:01:08 verbose #4827 > │ #endif │
00:01:08 verbose #4828 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4829 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4830 > │ let v452 : Async<int32> option = None │
00:01:08 verbose #4831 > │ let mutable _v452 = v452 │
00:01:08 verbose #4832 > │ async { │
00:01:08 verbose #4833 > │ try │
00:01:08 verbose #4834 > │ let v453 : System.Threading.Tasks.Task = v399.WaitForExitAsync v442 │
00:01:08 verbose #4835 > │ let v454 : Async<unit> option = None │
00:01:08 verbose #4836 > │ let v455 : bool = true in let mutable _v454 = v454 │
00:01:08 verbose #4837 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4838 > │ let v456 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4839 > │ v456 │
00:01:08 verbose #4840 > │ #endif │
00:01:08 verbose #4841 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4842 > │ let v457 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4843 > │ v457 │
00:01:08 verbose #4844 > │ #endif │
00:01:08 verbose #4845 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4846 > │ let v458 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4847 > │ v458 │
00:01:08 verbose #4848 > │ #endif │
00:01:08 verbose #4849 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4850 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4851 > │ let v459 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:08 verbose #4852 > │ Async.AwaitTask │
00:01:08 verbose #4853 > │ let v460 : Async<unit> = v459 v453 │
00:01:08 verbose #4854 > │ v460 │
00:01:08 verbose #4855 > │ #endif │
00:01:08 verbose #4856 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4857 > │ let v461 : Async<unit> = null |> unbox<Async<unit>> │
00:01:08 verbose #4858 > │ v461 │
00:01:08 verbose #4859 > │ #endif │
00:01:08 verbose #4860 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4861 > │ let v462 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:08 verbose #4862 > │ v462 │
00:01:08 verbose #4863 > │ #endif │
00:01:08 verbose #4864 > │ |> fun x -> _v454 <- Some x │
00:01:08 verbose #4865 > │ let v463 : Async<unit> = _v454.Value │
00:01:08 verbose #4866 > │ do! v463 │
00:01:08 verbose #4867 > │ let v464 : int32 = v399.ExitCode │
00:01:08 verbose #4868 > │ return v464 │
00:01:08 verbose #4869 > │ with ex -> │
00:01:08 verbose #4870 > │ let v465 : exn = ex │
00:01:08 verbose #4871 > │ let v466 : string option = None │
00:01:08 verbose #4872 > │ let v467 : bool = true in let mutable _v466 = v466 │
00:01:08 verbose #4873 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4874 > │ let v468 : string = $"%A{v465}" │
00:01:08 verbose #4875 > │ v468 │
00:01:08 verbose #4876 > │ #endif │
00:01:08 verbose #4877 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4878 > │ let v469 : string = $"%A{v465}" │
00:01:08 verbose #4879 > │ v469 │
00:01:08 verbose #4880 > │ #endif │
00:01:08 verbose #4881 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #4882 > │ let v470 : string = $"%A{v465}" │
00:01:08 verbose #4883 > │ v470 │
00:01:08 verbose #4884 > │ #endif │
00:01:08 verbose #4885 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #4886 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #4887 > │ let v471 : string = $"{v465.GetType ()}: {v465.Message}" │
00:01:08 verbose #4888 > │ v471 │
00:01:08 verbose #4889 > │ #endif │
00:01:08 verbose #4890 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4891 > │ let v472 : string = $"%A{v465}" │
00:01:08 verbose #4892 > │ v472 │
00:01:08 verbose #4893 > │ #endif │
00:01:08 verbose #4894 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4895 > │ let v473 : string = Unchecked.defaultof<string> │
00:01:08 verbose #4896 > │ v473 │
00:01:08 verbose #4897 > │ #endif │
00:01:08 verbose #4898 > │ |> fun x -> _v466 <- Some x │
00:01:08 verbose #4899 > │ let v474 : string = _v466.Value │
00:01:08 verbose #4900 > │ let v475 : (string -> unit) = v401.Push │
00:01:08 verbose #4901 > │ v475 v474 │
00:01:08 verbose #4902 > │ let v476 : System.Threading.Tasks.TaskCanceledException = v465 |> │
00:01:08 verbose #4903 > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:08 verbose #4904 > │ let v477 : US0 = US0_3 │
00:01:08 verbose #4905 > │ let v478 : (unit -> string) = closure22(v476) │
00:01:08 verbose #4906 > │ let v479 : (unit -> string) = method17() │
00:01:08 verbose #4907 > │ method4(v477, v478, v479) │
00:01:08 verbose #4908 > │ return -2147483648 │
00:01:08 verbose #4909 > │ (* │
00:01:08 verbose #4910 > │ *) │
00:01:08 verbose #4911 > │ } │
00:01:08 verbose #4912 > │ |> fun x -> _v452 <- Some x │
00:01:08 verbose #4913 > │ let v480 : Async<int32> = _v452 |> Option.get │
00:01:08 verbose #4914 > │ v480 │
00:01:08 verbose #4915 > │ #endif │
00:01:08 verbose #4916 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4917 > │ let v481 : Async<int32> = null |> unbox<Async<int32>> │
00:01:08 verbose #4918 > │ v481 │
00:01:08 verbose #4919 > │ #endif │
00:01:08 verbose #4920 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4921 > │ let v482 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:08 verbose #4922 > │ v482 │
00:01:08 verbose #4923 > │ #endif │
00:01:08 verbose #4924 > │ |> fun x -> _v447 <- Some x │
00:01:08 verbose #4925 > │ let v483 : Async<int32> = _v447.Value │
00:01:08 verbose #4926 > │ let! v483 = v483 │
00:01:08 verbose #4927 > │ let v484 : int32 = v483 │
00:01:08 verbose #4928 > │ let v485 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:08 verbose #4929 > │ string seq) = Seq.rev │
00:01:08 verbose #4930 > │ let v486 : string seq = v485 v401 │
00:01:08 verbose #4931 > │ let v487 : string = method20() │
00:01:08 verbose #4932 > │ let v488 : (string -> (string seq -> string)) = String.concat │
00:01:08 verbose #4933 > │ let v489 : (string seq -> string) = v488 v487 │
00:01:08 verbose #4934 > │ let v490 : string = v489 v486 │
00:01:08 verbose #4935 > │ let v491 : US0 = US0_1 │
00:01:08 verbose #4936 > │ let v492 : (unit -> string) = closure23(v484, v490) │
00:01:08 verbose #4937 > │ let v493 : (unit -> string) = method17() │
00:01:08 verbose #4938 > │ method4(v491, v492, v493) │
00:01:08 verbose #4939 > │ return struct (v484, v490) │
00:01:08 verbose #4940 > │ } │
00:01:08 verbose #4941 > │ |> fun x -> _v371 <- Some x │
00:01:08 verbose #4942 > │ let v494 : Async<struct (int32 * string)> = _v371 |> Option.get │
00:01:08 verbose #4943 > │ v494 │
00:01:08 verbose #4944 > │ #endif │
00:01:08 verbose #4945 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4946 > │ let v495 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4947 > │ (int32 * string)>> │
00:01:08 verbose #4948 > │ v495 │
00:01:08 verbose #4949 > │ #endif │
00:01:08 verbose #4950 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4951 > │ let v496 : Async<struct (int32 * string)> = │
00:01:08 verbose #4952 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:08 verbose #4953 > │ v496 │
00:01:08 verbose #4954 > │ #endif │
00:01:08 verbose #4955 > │ |> fun x -> _v366 <- Some x │
00:01:08 verbose #4956 > │ let v497 : Async<struct (int32 * string)> = _v366.Value │
00:01:08 verbose #4957 > │ v497 │
00:01:08 verbose #4958 > │ #endif │
00:01:08 verbose #4959 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4960 > │ let v498 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4961 > │ (int32 * string)>> │
00:01:08 verbose #4962 > │ v498 │
00:01:08 verbose #4963 > │ #endif │
00:01:08 verbose #4964 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4965 > │ let v499 : Async<struct (int32 * string)> = │
00:01:08 verbose #4966 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:08 verbose #4967 > │ v499 │
00:01:08 verbose #4968 > │ #endif │
00:01:08 verbose #4969 > │ |> fun x -> _v361 <- Some x │
00:01:08 verbose #4970 > │ let v500 : Async<struct (int32 * string)> = _v361.Value │
00:01:08 verbose #4971 > │ return! v500 │
00:01:08 verbose #4972 > │ } │
00:01:08 verbose #4973 > │ |> fun x -> _v176 <- Some x │
00:01:08 verbose #4974 > │ let v501 : Async<struct (int32 * string)> = _v176 |> Option.get │
00:01:08 verbose #4975 > │ v501 │
00:01:08 verbose #4976 > │ #endif │
00:01:08 verbose #4977 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #4978 > │ let v502 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:08 verbose #4979 > │ (int32 * string)>> │
00:01:08 verbose #4980 > │ v502 │
00:01:08 verbose #4981 > │ #endif │
00:01:08 verbose #4982 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #4983 > │ let v503 : Async<struct (int32 * string)> = │
00:01:08 verbose #4984 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:08 verbose #4985 > │ v503 │
00:01:08 verbose #4986 > │ #endif │
00:01:08 verbose #4987 > │ |> fun x -> _v171 <- Some x │
00:01:08 verbose #4988 > │ let v504 : Async<struct (int32 * string)> = _v171.Value │
00:01:08 verbose #4989 > │ let v505 : Async<US8> option = None │
00:01:08 verbose #4990 > │ let v506 : bool = true in let mutable _v505 = v505 │
00:01:08 verbose #4991 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #4992 > │ let v507 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #4993 > │ v507 │
00:01:08 verbose #4994 > │ #endif │
00:01:08 verbose #4995 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #4996 > │ let v508 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #4997 > │ v508 │
00:01:08 verbose #4998 > │ #endif │
00:01:08 verbose #4999 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5000 > │ let v509 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5001 > │ v509 │
00:01:08 verbose #5002 > │ #endif │
00:01:08 verbose #5003 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5004 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5005 > │ let v510 : Async<US8> option = None │
00:01:08 verbose #5006 > │ let v511 : bool = true in let mutable _v510 = v510 │
00:01:08 verbose #5007 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5008 > │ let v512 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5009 > │ v512 │
00:01:08 verbose #5010 > │ #endif │
00:01:08 verbose #5011 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5012 > │ let v513 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5013 > │ v513 │
00:01:08 verbose #5014 > │ #endif │
00:01:08 verbose #5015 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5016 > │ let v514 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5017 > │ v514 │
00:01:08 verbose #5018 > │ #endif │
00:01:08 verbose #5019 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5020 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5021 > │ let v515 : Async<US8> option = None │
00:01:08 verbose #5022 > │ let mutable _v515 = v515 │
00:01:08 verbose #5023 > │ async { │
00:01:08 verbose #5024 > │ let v516 : Async<Async<struct (int32 * string)>> option = None │
00:01:08 verbose #5025 > │ let v517 : bool = true in let mutable _v516 = v516 │
00:01:08 verbose #5026 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5027 > │ let v518 : Async<Async<struct (int32 * string)>> = null |> │
00:01:08 verbose #5028 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:08 verbose #5029 > │ v518 │
00:01:08 verbose #5030 > │ #endif │
00:01:08 verbose #5031 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5032 > │ let v519 : Async<Async<struct (int32 * string)>> = null |> │
00:01:08 verbose #5033 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:08 verbose #5034 > │ v519 │
00:01:08 verbose #5035 > │ #endif │
00:01:08 verbose #5036 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5037 > │ let v520 : Async<Async<struct (int32 * string)>> = null |> │
00:01:08 verbose #5038 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:08 verbose #5039 > │ v520 │
00:01:08 verbose #5040 > │ #endif │
00:01:08 verbose #5041 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5042 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5043 > │ let v521 : Async<Async<struct (int32 * string)>> = Async.StartChild │
00:01:08 verbose #5044 > │ (v504, 10000) │
00:01:08 verbose #5045 > │ v521 │
00:01:08 verbose #5046 > │ #endif │
00:01:08 verbose #5047 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5048 > │ let v522 : Async<Async<struct (int32 * string)>> = null |> │
00:01:08 verbose #5049 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:08 verbose #5050 > │ v522 │
00:01:08 verbose #5051 > │ #endif │
00:01:08 verbose #5052 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5053 > │ let v523 : Async<Async<struct (int32 * string)>> = │
00:01:08 verbose #5054 > │ Unchecked.defaultof<Async<Async<struct (int32 * string)>>> │
00:01:08 verbose #5055 > │ v523 │
00:01:08 verbose #5056 > │ #endif │
00:01:08 verbose #5057 > │ |> fun x -> _v516 <- Some x │
00:01:08 verbose #5058 > │ let v524 : Async<Async<struct (int32 * string)>> = _v516.Value │
00:01:08 verbose #5059 > │ let! v524 = v524 │
00:01:08 verbose #5060 > │ let v525 : Async<struct (int32 * string)> = v524 │
00:01:08 verbose #5061 > │ let v526 : Async<Choice<struct (int32 * string), exn>> option = None │
00:01:08 verbose #5062 > │ let v527 : bool = true in let mutable _v526 = v526 │
00:01:08 verbose #5063 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5064 > │ let v528 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:08 verbose #5065 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:08 verbose #5066 > │ v528 │
00:01:08 verbose #5067 > │ #endif │
00:01:08 verbose #5068 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5069 > │ let v529 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:08 verbose #5070 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:08 verbose #5071 > │ v529 │
00:01:08 verbose #5072 > │ #endif │
00:01:08 verbose #5073 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5074 > │ let v530 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:08 verbose #5075 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:08 verbose #5076 > │ v530 │
00:01:08 verbose #5077 > │ #endif │
00:01:08 verbose #5078 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5079 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5080 > │ let v531 : (Async<struct (int32 * string)> -> Async<Choice<struct (int32 │
00:01:08 verbose #5081 > │ * string), exn>>) = Async.Catch │
00:01:08 verbose #5082 > │ let v532 : Async<Choice<struct (int32 * string), exn>> = v531 v525 │
00:01:08 verbose #5083 > │ v532 │
00:01:08 verbose #5084 > │ #endif │
00:01:08 verbose #5085 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5086 > │ let v533 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:08 verbose #5087 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:08 verbose #5088 > │ v533 │
00:01:08 verbose #5089 > │ #endif │
00:01:08 verbose #5090 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5091 > │ let v534 : Async<Choice<struct (int32 * string), exn>> = │
00:01:08 verbose #5092 > │ Unchecked.defaultof<Async<Choice<struct (int32 * string), exn>>> │
00:01:08 verbose #5093 > │ v534 │
00:01:08 verbose #5094 > │ #endif │
00:01:08 verbose #5095 > │ |> fun x -> _v526 <- Some x │
00:01:08 verbose #5096 > │ let v535 : Async<Choice<struct (int32 * string), exn>> = _v526.Value │
00:01:08 verbose #5097 > │ let v536 : Async<US9> option = None │
00:01:08 verbose #5098 > │ let v537 : bool = true in let mutable _v536 = v536 │
00:01:08 verbose #5099 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5100 > │ let v538 : Async<US9> = null |> unbox<Async<US9>> │
00:01:08 verbose #5101 > │ v538 │
00:01:08 verbose #5102 > │ #endif │
00:01:08 verbose #5103 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5104 > │ let v539 : Async<US9> = null |> unbox<Async<US9>> │
00:01:08 verbose #5105 > │ v539 │
00:01:08 verbose #5106 > │ #endif │
00:01:08 verbose #5107 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5108 > │ let v540 : Async<US9> = null |> unbox<Async<US9>> │
00:01:08 verbose #5109 > │ v540 │
00:01:08 verbose #5110 > │ #endif │
00:01:08 verbose #5111 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5112 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5113 > │ let v541 : Async<US9> option = None │
00:01:08 verbose #5114 > │ let mutable _v541 = v541 │
00:01:08 verbose #5115 > │ async { │
00:01:08 verbose #5116 > │ let! v535 = v535 │
00:01:08 verbose #5117 > │ let v542 : Choice<struct (int32 * string), exn> = v535 │
00:01:08 verbose #5118 > │ let v543 : US9 option = None │
00:01:08 verbose #5119 > │ let v544 : bool = true in let mutable _v543 = v543 │
00:01:08 verbose #5120 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5121 > │ let v545 : US9 = null |> unbox<US9> │
00:01:08 verbose #5122 > │ v545 │
00:01:08 verbose #5123 > │ #endif │
00:01:08 verbose #5124 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5125 > │ let v546 : US9 = null |> unbox<US9> │
00:01:08 verbose #5126 > │ v546 │
00:01:08 verbose #5127 > │ #endif │
00:01:08 verbose #5128 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5129 > │ let v547 : US9 = null |> unbox<US9> │
00:01:08 verbose #5130 > │ v547 │
00:01:08 verbose #5131 > │ #endif │
00:01:08 verbose #5132 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5133 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5134 > │ let v548 : (struct (int32 * string) -> US9) = closure24() │
00:01:08 verbose #5135 > │ let v549 : (exn -> US9) = closure25() │
00:01:08 verbose #5136 > │ let v550 : US9 = match v542 with Choice1Of2 x -> v548 x | Choice2Of2 x │
00:01:08 verbose #5137 > │ -> v549 x │
00:01:08 verbose #5138 > │ v550 │
00:01:08 verbose #5139 > │ #endif │
00:01:08 verbose #5140 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5141 > │ let v551 : US9 = null |> unbox<US9> │
00:01:08 verbose #5142 > │ v551 │
00:01:08 verbose #5143 > │ #endif │
00:01:08 verbose #5144 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5145 > │ let v552 : US9 = Unchecked.defaultof<US9> │
00:01:08 verbose #5146 > │ v552 │
00:01:08 verbose #5147 > │ #endif │
00:01:08 verbose #5148 > │ |> fun x -> _v543 <- Some x │
00:01:08 verbose #5149 > │ let v553 : US9 = _v543.Value │
00:01:08 verbose #5150 > │ return v553 │
00:01:08 verbose #5151 > │ } │
00:01:08 verbose #5152 > │ |> fun x -> _v541 <- Some x │
00:01:08 verbose #5153 > │ let v554 : Async<US9> = _v541 |> Option.get │
00:01:08 verbose #5154 > │ v554 │
00:01:08 verbose #5155 > │ #endif │
00:01:08 verbose #5156 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5157 > │ let v555 : Async<US9> = null |> unbox<Async<US9>> │
00:01:08 verbose #5158 > │ v555 │
00:01:08 verbose #5159 > │ #endif │
00:01:08 verbose #5160 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5161 > │ let v556 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:08 verbose #5162 > │ v556 │
00:01:08 verbose #5163 > │ #endif │
00:01:08 verbose #5164 > │ |> fun x -> _v536 <- Some x │
00:01:08 verbose #5165 > │ let v557 : Async<US9> = _v536.Value │
00:01:08 verbose #5166 > │ let v558 : Async<US10> option = None │
00:01:08 verbose #5167 > │ let v559 : bool = true in let mutable _v558 = v558 │
00:01:08 verbose #5168 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5169 > │ let v560 : Async<US10> = null |> unbox<Async<US10>> │
00:01:08 verbose #5170 > │ v560 │
00:01:08 verbose #5171 > │ #endif │
00:01:08 verbose #5172 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5173 > │ let v561 : Async<US10> = null |> unbox<Async<US10>> │
00:01:08 verbose #5174 > │ v561 │
00:01:08 verbose #5175 > │ #endif │
00:01:08 verbose #5176 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5177 > │ let v562 : Async<US10> = null |> unbox<Async<US10>> │
00:01:08 verbose #5178 > │ v562 │
00:01:08 verbose #5179 > │ #endif │
00:01:08 verbose #5180 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5181 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5182 > │ let v563 : Async<US10> option = None │
00:01:08 verbose #5183 > │ let mutable _v563 = v563 │
00:01:08 verbose #5184 > │ async { │
00:01:08 verbose #5185 > │ let! v557 = v557 │
00:01:08 verbose #5186 > │ let v564 : US9 = v557 │
00:01:08 verbose #5187 > │ let v571 : US10 = │
00:01:08 verbose #5188 > │ match v564 with │
00:01:08 verbose #5189 > │ | US9_0(v565, v566) -> (* Choice1Of2 *) │
00:01:08 verbose #5190 > │ US10_0(v565, v566) │
00:01:08 verbose #5191 > │ | US9_1(v568) -> (* Choice2Of2 *) │
00:01:08 verbose #5192 > │ US10_1(v568) │
00:01:08 verbose #5193 > │ return v571 │
00:01:08 verbose #5194 > │ } │
00:01:08 verbose #5195 > │ |> fun x -> _v563 <- Some x │
00:01:08 verbose #5196 > │ let v572 : Async<US10> = _v563 |> Option.get │
00:01:08 verbose #5197 > │ v572 │
00:01:08 verbose #5198 > │ #endif │
00:01:08 verbose #5199 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5200 > │ let v573 : Async<US10> = null |> unbox<Async<US10>> │
00:01:08 verbose #5201 > │ v573 │
00:01:08 verbose #5202 > │ #endif │
00:01:08 verbose #5203 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5204 > │ let v574 : Async<US10> = Unchecked.defaultof<Async<US10>> │
00:01:08 verbose #5205 > │ v574 │
00:01:08 verbose #5206 > │ #endif │
00:01:08 verbose #5207 > │ |> fun x -> _v558 <- Some x │
00:01:08 verbose #5208 > │ let v575 : Async<US10> = _v558.Value │
00:01:08 verbose #5209 > │ let v576 : Async<US8> option = None │
00:01:08 verbose #5210 > │ let v577 : bool = true in let mutable _v576 = v576 │
00:01:08 verbose #5211 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5212 > │ let v578 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5213 > │ v578 │
00:01:08 verbose #5214 > │ #endif │
00:01:08 verbose #5215 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5216 > │ let v579 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5217 > │ v579 │
00:01:08 verbose #5218 > │ #endif │
00:01:08 verbose #5219 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5220 > │ let v580 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5221 > │ v580 │
00:01:08 verbose #5222 > │ #endif │
00:01:08 verbose #5223 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5224 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5225 > │ let v581 : Async<US8> option = None │
00:01:08 verbose #5226 > │ let mutable _v581 = v581 │
00:01:08 verbose #5227 > │ async { │
00:01:08 verbose #5228 > │ let! v575 = v575 │
00:01:08 verbose #5229 > │ let v582 : US10 = v575 │
00:01:08 verbose #5230 > │ let v609 : US8 = │
00:01:08 verbose #5231 > │ match v582 with │
00:01:08 verbose #5232 > │ | US10_1(v586) -> (* Error *) │
00:01:08 verbose #5233 > │ let v587 : string = $"%A{v586}" │
00:01:08 verbose #5234 > │ let v588 : string = "System.TimeoutException" │
00:01:08 verbose #5235 > │ let v589 : bool = v587.Contains v588 │
00:01:08 verbose #5236 > │ if v589 then │
00:01:08 verbose #5237 > │ let v590 : US0 = US0_1 │
00:01:08 verbose #5238 > │ let v591 : (unit -> string) = closure26() │
00:01:08 verbose #5239 > │ let v592 : (unit -> string) = closure27() │
00:01:08 verbose #5240 > │ method4(v590, v591, v592) │
00:01:08 verbose #5241 > │ US8_1 │
00:01:08 verbose #5242 > │ else │
00:01:08 verbose #5243 > │ let v594 : string option = None │
00:01:08 verbose #5244 > │ let v595 : bool = true in let mutable _v594 = v594 │
00:01:08 verbose #5245 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5246 > │ let v596 : string = $"%A{v586}" │
00:01:08 verbose #5247 > │ v596 │
00:01:08 verbose #5248 > │ #endif │
00:01:08 verbose #5249 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5250 > │ let v597 : string = $"%A{v586}" │
00:01:08 verbose #5251 > │ v597 │
00:01:08 verbose #5252 > │ #endif │
00:01:08 verbose #5253 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5254 > │ let v598 : string = $"%A{v586}" │
00:01:08 verbose #5255 > │ v598 │
00:01:08 verbose #5256 > │ #endif │
00:01:08 verbose #5257 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5258 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5259 > │ let v599 : string = $"{v586.GetType ()}: {v586.Message}" │
00:01:08 verbose #5260 > │ v599 │
00:01:08 verbose #5261 > │ #endif │
00:01:08 verbose #5262 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5263 > │ let v600 : string = $"%A{v586}" │
00:01:08 verbose #5264 > │ v600 │
00:01:08 verbose #5265 > │ #endif │
00:01:08 verbose #5266 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:08 verbose #5267 > │ FABLE_COMPILER_DART │
00:01:08 verbose #5268 > │ let v601 : string = Unchecked.defaultof<string> │
00:01:08 verbose #5269 > │ v601 │
00:01:08 verbose #5270 > │ #endif │
00:01:08 verbose #5271 > │ |> fun x -> _v594 <- Some x │
00:01:08 verbose #5272 > │ let v602 : string = _v594.Value │
00:01:08 verbose #5273 > │ let v603 : US0 = US0_4 │
00:01:08 verbose #5274 > │ let v604 : (unit -> string) = closure28(v602) │
00:01:08 verbose #5275 > │ let v605 : (unit -> string) = closure27() │
00:01:08 verbose #5276 > │ method4(v603, v604, v605) │
00:01:08 verbose #5277 > │ US8_1 │
00:01:08 verbose #5278 > │ | US10_0(v583, v584) -> (* Ok *) │
00:01:08 verbose #5279 > │ US8_0(v583, v584) │
00:01:08 verbose #5280 > │ return v609 │
00:01:08 verbose #5281 > │ } │
00:01:08 verbose #5282 > │ |> fun x -> _v581 <- Some x │
00:01:08 verbose #5283 > │ let v610 : Async<US8> = _v581 |> Option.get │
00:01:08 verbose #5284 > │ v610 │
00:01:08 verbose #5285 > │ #endif │
00:01:08 verbose #5286 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5287 > │ let v611 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5288 > │ v611 │
00:01:08 verbose #5289 > │ #endif │
00:01:08 verbose #5290 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5291 > │ let v612 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:01:08 verbose #5292 > │ v612 │
00:01:08 verbose #5293 > │ #endif │
00:01:08 verbose #5294 > │ |> fun x -> _v576 <- Some x │
00:01:08 verbose #5295 > │ let v613 : Async<US8> = _v576.Value │
00:01:08 verbose #5296 > │ return! v613 │
00:01:08 verbose #5297 > │ } │
00:01:08 verbose #5298 > │ |> fun x -> _v515 <- Some x │
00:01:08 verbose #5299 > │ let v614 : Async<US8> = _v515 |> Option.get │
00:01:08 verbose #5300 > │ v614 │
00:01:08 verbose #5301 > │ #endif │
00:01:08 verbose #5302 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5303 > │ let v615 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5304 > │ v615 │
00:01:08 verbose #5305 > │ #endif │
00:01:08 verbose #5306 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5307 > │ let v616 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:01:08 verbose #5308 > │ v616 │
00:01:08 verbose #5309 > │ #endif │
00:01:08 verbose #5310 > │ |> fun x -> _v510 <- Some x │
00:01:08 verbose #5311 > │ let v617 : Async<US8> = _v510.Value │
00:01:08 verbose #5312 > │ v617 │
00:01:08 verbose #5313 > │ #endif │
00:01:08 verbose #5314 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5315 > │ let v618 : Async<US8> = null |> unbox<Async<US8>> │
00:01:08 verbose #5316 > │ v618 │
00:01:08 verbose #5317 > │ #endif │
00:01:08 verbose #5318 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5319 > │ let v619 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:01:08 verbose #5320 > │ v619 │
00:01:08 verbose #5321 > │ #endif │
00:01:08 verbose #5322 > │ |> fun x -> _v505 <- Some x │
00:01:08 verbose #5323 > │ let v620 : Async<US8> = _v505.Value │
00:01:08 verbose #5324 > │ let v621 : US8 option = None │
00:01:08 verbose #5325 > │ let v622 : bool = true in let mutable _v621 = v621 │
00:01:08 verbose #5326 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:08 verbose #5327 > │ let v623 : US8 = null |> unbox<US8> │
00:01:08 verbose #5328 > │ v623 │
00:01:08 verbose #5329 > │ #endif │
00:01:08 verbose #5330 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:08 verbose #5331 > │ let v624 : US8 = null |> unbox<US8> │
00:01:08 verbose #5332 > │ v624 │
00:01:08 verbose #5333 > │ #endif │
00:01:08 verbose #5334 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:08 verbose #5335 > │ let v625 : US8 = null |> unbox<US8> │
00:01:08 verbose #5336 > │ v625 │
00:01:08 verbose #5337 > │ #endif │
00:01:08 verbose #5338 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:08 verbose #5339 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:08 verbose #5340 > │ let v626 : (Async<US8> -> US8) = Async.RunSynchronously │
00:01:08 verbose #5341 > │ let v627 : US8 = v626 v620 │
00:01:08 verbose #5342 > │ v627 │
00:01:08 verbose #5343 > │ #endif │
00:01:08 verbose #5344 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:08 verbose #5345 > │ let v628 : US8 = null |> unbox<US8> │
00:01:08 verbose #5346 > │ v628 │
00:01:08 verbose #5347 > │ #endif │
00:01:08 verbose #5348 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:08 verbose #5349 > │ let v629 : US8 = Unchecked.defaultof<US8> │
00:01:08 verbose #5350 > │ v629 │
00:01:08 verbose #5351 > │ #endif │
00:01:08 verbose #5352 > │ |> fun x -> _v621 <- Some x │
00:01:08 verbose #5353 > │ let v630 : US8 = _v621.Value │
00:01:08 verbose #5354 > │ let v646 : bool = │
00:01:08 verbose #5355 > │ match v630 with │
00:01:08 verbose #5356 > │ | US8_0(v631, v632) -> (* Some *) │
00:01:08 verbose #5357 > │ let v633 : string = $"%A{v631}" │
00:01:08 verbose #5358 > │ System.Console.WriteLine v633 │
00:01:08 verbose #5359 > │ let v634 : bool = v631 = 0 │
00:01:08 verbose #5360 > │ let v636 : bool = │
00:01:08 verbose #5361 > │ if v634 then │
00:01:08 verbose #5362 > │ true │
00:01:08 verbose #5363 > │ else │
00:01:08 verbose #5364 > │ method21(v634) │
00:01:08 verbose #5365 > │ let v637 : string = $"__expect / actual: %A{v631} / expected: │
00:01:08 verbose #5366 > │ %A{0}" │
00:01:08 verbose #5367 > │ let v638 : bool = v636 = false │
00:01:08 verbose #5368 > │ if v638 then │
00:01:08 verbose #5369 > │ failwith<unit> v637 │
00:01:08 verbose #5370 > │ let v639 : string = method22() │
00:01:08 verbose #5371 > │ let v640 : string = $"%A{v632}" │
00:01:08 verbose #5372 > │ System.Console.WriteLine v640 │
00:01:08 verbose #5373 > │ let v641 : bool = v632 = v639 │
00:01:08 verbose #5374 > │ let v643 : bool = │
00:01:08 verbose #5375 > │ if v641 then │
00:01:08 verbose #5376 > │ true │
00:01:08 verbose #5377 > │ else │
00:01:08 verbose #5378 > │ method21(v641) │
00:01:08 verbose #5379 > │ let v644 : string = $"__expect / actual: %A{v632} / expected: │
00:01:08 verbose #5380 > │ %A{v639}" │
00:01:08 verbose #5381 > │ let v645 : bool = v643 = false │
00:01:08 verbose #5382 > │ if v645 then │
00:01:08 verbose #5383 > │ failwith<unit> v644 │
00:01:08 verbose #5384 > │ true │
00:01:08 verbose #5385 > │ | _ -> │
00:01:08 verbose #5386 > │ false │
00:01:08 verbose #5387 > │ let v647 : string = $"%A{v646}" │
00:01:08 verbose #5388 > │ System.Console.WriteLine v647 │
00:01:08 verbose #5389 > │ let v649 : bool = │
00:01:08 verbose #5390 > │ if v646 then │
00:01:08 verbose #5391 > │ true │
00:01:08 verbose #5392 > │ else │
00:01:08 verbose #5393 > │ method21(v646) │
00:01:08 verbose #5394 > │ let v650 : string = $"__expect / actual: %A{v646} / expected: %A{true}" │
00:01:08 verbose #5395 > │ let v651 : bool = v649 = false │
00:01:08 verbose #5396 > │ if v651 then │
00:01:08 verbose #5397 > │ failwith<unit> v650 │
00:01:08 verbose #5398 > │ method0() │
00:01:08 verbose #5399 > │ │
00:01:08 verbose #5400 > │ 00:00:00 debug #1 execute_with_options_async / options: struct (None, │
00:01:08 verbose #5401 > │ "pwsh -c "Get-Content │
00:01:08 verbose #5402 > │ C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0133-3656-5635-58253 │
00:01:08 verbose #5403 > │ ac8558d\test.txt"", │
00:01:08 verbose #5404 > │ None, None) │
00:01:08 verbose #5405 > │ 00:00:00 verbose #2 > Get-Content: Cannot find path │
00:01:08 verbose #5406 > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0133-3656-5635-5825 │
00:01:08 verbose #5407 > │ 3ac8558d\test.txt' because it does not exist. │
00:01:08 verbose #5408 > │ 00:00:00 debug #3 execute_with_options_async / exit_code: 1 / output.Length: │
00:01:08 verbose #5409 > │ 171 │
00:01:08 verbose #5410 > │ 1 │
00:01:08 verbose #5411 > │ "not exist" │
00:01:08 verbose #5412 > │ 00:00:00 debug #4 execute_with_options_async / options: struct (None, "pwsh │
00:01:08 verbose #5413 > │ -c "Get-Content test.txt"", None, │
00:01:08 verbose #5414 > │ Some │
00:01:08 verbose #5415 > │ │
00:01:08 verbose #5416 > │ "C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0133-3656-5635-5825 │
00:01:08 verbose #5417 > │ 3ac8558d") │
00:01:08 verbose #5418 > │ 00:00:01 verbose #5 > 0 │
00:01:08 verbose #5419 > │ 00:00:01 debug #6 execute_with_options_async / exit_code: 0 / output.Length: │
00:01:08 verbose #5420 > │ 1 │
00:01:08 verbose #5421 > │ 0 │
00:01:08 verbose #5422 > │ "0" │
00:01:08 verbose #5423 > │ true │
00:01:08 verbose #5424 > │ │
00:01:08 verbose #5425 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 verbose #5426 >
00:01:08 verbose #5427 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:08 verbose #5428 > // // test
00:01:08 verbose #5429 > // // print_code=true
00:01:08 verbose #5430 >
00:01:08 verbose #5431 > inl temp_folder, disposable = file_system.create_temp_directory ()
00:01:08 verbose #5432 > disposable |> use |> ignore
00:01:08 verbose #5433 > inl file_name = "test.txt"
00:01:08 verbose #5434 > inl path = temp_folder </> file_name
00:01:08 verbose #5435 >
00:01:08 verbose #5436 > inl command = $'\@$"pwsh -c ""Get-Content {!path}"""'
00:01:08 verbose #5437 >
00:01:08 verbose #5438 > fun () =>
00:01:08 verbose #5439 > "0" |> file_system.write_all_text_async path |> async.do
00:01:08 verbose #5440 >
00:01:08 verbose #5441 > inl cts = threading.new_cancellation_token_source ()
00:01:08 verbose #5442 > trace Debug (fun () => "1") _locals
00:01:08 verbose #5443 > inl result =
00:01:08 verbose #5444 > execution_options fun x => { x with
00:01:08 verbose #5445 > command
00:01:08 verbose #5446 > cancellation_token = cts |> threading.cancellation_source_token |>
00:01:08 verbose #5447 > Some |> optionm'.box
00:01:08 verbose #5448 > }
00:01:08 verbose #5449 > |> execute_with_options_async
00:01:08 verbose #5450 > |> async.start_child
00:01:08 verbose #5451 > |> async.let'
00:01:08 verbose #5452 > trace Debug (fun () => "2") _locals
00:01:08 verbose #5453 > async.sleep 100 |> async.do
00:01:08 verbose #5454 > trace Debug (fun () => "3") _locals
00:01:08 verbose #5455 > cts |> threading.cancellation_source_cancel
00:01:08 verbose #5456 > trace Debug (fun () => "4") _locals
00:01:08 verbose #5457 > inl exit_code, output = result |> async.let'
00:01:08 verbose #5458 > trace Debug (fun () => "5") _locals
00:01:08 verbose #5459 > (exit_code, output) |> return
00:01:08 verbose #5460 > |> async.new_async_unit
00:01:08 verbose #5461 > |> async.run_with_timeout 10000
00:01:08 verbose #5462 > |> function
00:01:08 verbose #5463 > | Some (exit_code, output) =>
00:01:08 verbose #5464 > exit_code |> _assert_eq -2147483648i32
00:01:08 verbose #5465 > output |> _assert_eq (join
00:01:08 verbose #5466 > "System.Threading.Tasks.TaskCanceledException: A task was canceled.")
00:01:08 verbose #5467 > true
00:01:08 verbose #5468 > | _ => false
00:01:08 verbose #5469 > |> _assert_eq true
00:01:08 verbose #5470 > 00:01:07 debug #87 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/480b4e2be93df1311a670e83db5085ec68cc530d943287d0e99aebf540722551/main.spi
00:01:10 verbose #5471 >
00:01:10 verbose #5472 > ╭─[ 1.72s - stdout ]───────────────────────────────────────────────────────────╮
00:01:10 verbose #5473 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:01:10 verbose #5474 > │ string │
00:01:10 verbose #5475 > │ module State = let mutable trace_state = None │
00:01:10 verbose #5476 > │ #if FABLE_COMPILER │
00:01:10 verbose #5477 > │ [<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>] │
00:01:10 verbose #5478 > │ module System = │
00:01:10 verbose #5479 > │ module Diagnostics = │
00:01:10 verbose #5480 > │ type Process = unit │
00:01:10 verbose #5481 > │ type DataReceivedEventArgs = unit │
00:01:10 verbose #5482 > │ #endif │
00:01:10 verbose #5483 > │ type [<Struct>] US0 = │
00:01:10 verbose #5484 > │ | US0_0 │
00:01:10 verbose #5485 > │ | US0_1 │
00:01:10 verbose #5486 > │ | US0_2 │
00:01:10 verbose #5487 > │ | US0_3 │
00:01:10 verbose #5488 > │ | US0_4 │
00:01:10 verbose #5489 > │ and Mut0 = {mutable l0 : int64} │
00:01:10 verbose #5490 > │ and Mut1 = {mutable l0 : bool} │
00:01:10 verbose #5491 > │ and Mut2 = {mutable l0 : US0} │
00:01:10 verbose #5492 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:01:10 verbose #5493 > │ and [<Struct>] US1 = │
00:01:10 verbose #5494 > │ | US1_0 of f0_0 : int64 │
00:01:10 verbose #5495 > │ | US1_1 │
00:01:10 verbose #5496 > │ and [<Struct>] US2 = │
00:01:10 verbose #5497 > │ | US2_0 of f0_0 : int64 │
00:01:10 verbose #5498 > │ | US2_1 │
00:01:10 verbose #5499 > │ and UH0 = │
00:01:10 verbose #5500 > │ | UH0_0 │
00:01:10 verbose #5501 > │ | UH0_1 of char * UH0 │
00:01:10 verbose #5502 > │ and [<Struct>] US4 = │
00:01:10 verbose #5503 > │ | US4_0 │
00:01:10 verbose #5504 > │ | US4_1 │
00:01:10 verbose #5505 > │ and [<Struct>] US3 = │
00:01:10 verbose #5506 > │ | US3_0 │
00:01:10 verbose #5507 > │ | US3_1 of f1_0 : US4 │
00:01:10 verbose #5508 > │ | US3_2 │
00:01:10 verbose #5509 > │ and [<Struct>] US5 = │
00:01:10 verbose #5510 > │ | US5_0 of f0_0 : string │
00:01:10 verbose #5511 > │ | US5_1 │
00:01:10 verbose #5512 > │ and [<Struct>] US6 = │
00:01:10 verbose #5513 > │ | US6_0 of f0_0 : (struct (bool * string * int32) -> Async<unit>) │
00:01:10 verbose #5514 > │ | US6_1 │
00:01:10 verbose #5515 > │ and [<Struct>] US7 = │
00:01:10 verbose #5516 > │ | US7_0 of f0_0 : System.Threading.CancellationToken │
00:01:10 verbose #5517 > │ | US7_1 │
00:01:10 verbose #5518 > │ and [<Struct>] US8 = │
00:01:10 verbose #5519 > │ | US8_0 of f0_0 : int32 * f0_1 : string │
00:01:10 verbose #5520 > │ | US8_1 │
00:01:10 verbose #5521 > │ and [<Struct>] US9 = │
00:01:10 verbose #5522 > │ | US9_0 of f0_0 : int32 * f0_1 : string │
00:01:10 verbose #5523 > │ | US9_1 of f1_0 : exn │
00:01:10 verbose #5524 > │ and [<Struct>] US10 = │
00:01:10 verbose #5525 > │ | US10_0 of f0_0 : int32 * f0_1 : string │
00:01:10 verbose #5526 > │ | US10_1 of f1_0 : exn │
00:01:10 verbose #5527 > │ let rec closure0 () () : string = │
00:01:10 verbose #5528 > │ let v0 : string option = None │
00:01:10 verbose #5529 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:10 verbose #5530 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #5531 > │ let v2 : string = null |> unbox<string> │
00:01:10 verbose #5532 > │ v2 │
00:01:10 verbose #5533 > │ #endif │
00:01:10 verbose #5534 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #5535 > │ let v3 : string = null |> unbox<string> │
00:01:10 verbose #5536 > │ v3 │
00:01:10 verbose #5537 > │ #endif │
00:01:10 verbose #5538 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #5539 > │ let v4 : string = null |> unbox<string> │
00:01:10 verbose #5540 > │ v4 │
00:01:10 verbose #5541 > │ #endif │
00:01:10 verbose #5542 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #5543 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #5544 > │ let v5 : string = │
00:01:10 verbose #5545 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:10 verbose #5546 > │ v5 │
00:01:10 verbose #5547 > │ #endif │
00:01:10 verbose #5548 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #5549 > │ let v6 : string = null |> unbox<string> │
00:01:10 verbose #5550 > │ v6 │
00:01:10 verbose #5551 > │ #endif │
00:01:10 verbose #5552 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #5553 > │ let v7 : string = Unchecked.defaultof<string> │
00:01:10 verbose #5554 > │ v7 │
00:01:10 verbose #5555 > │ #endif │
00:01:10 verbose #5556 > │ |> fun x -> _v0 <- Some x │
00:01:10 verbose #5557 > │ let v8 : string = _v0.Value │
00:01:10 verbose #5558 > │ v8 │
00:01:10 verbose #5559 > │ and method1 (v0 : string) : string = │
00:01:10 verbose #5560 > │ v0 │
00:01:10 verbose #5561 > │ and method2 (v0 : string) : string = │
00:01:10 verbose #5562 > │ v0 │
00:01:10 verbose #5563 > │ and method3 (v0 : string) : string = │
00:01:10 verbose #5564 > │ v0 │
00:01:10 verbose #5565 > │ and closure1 () () : string = │
00:01:10 verbose #5566 > │ let v0 : string = "file_system.create_temp_directory" │
00:01:10 verbose #5567 > │ v0 │
00:01:10 verbose #5568 > │ and closure3 () () : string = │
00:01:10 verbose #5569 > │ let v0 : string = "" │
00:01:10 verbose #5570 > │ v0 │
00:01:10 verbose #5571 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:01:10 verbose #5572 > │ let v2 : (unit -> string) = closure3() │
00:01:10 verbose #5573 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:01:10 verbose #5574 > │ v3 │
00:01:10 verbose #5575 > │ and closure6 () (v0 : string) : unit = │
00:01:10 verbose #5576 > │ () │
00:01:10 verbose #5577 > │ and method5 (v0 : int64 option) : int64 option = │
00:01:10 verbose #5578 > │ v0 │
00:01:10 verbose #5579 > │ and method6 (v0 : int64 option) : int64 option = │
00:01:10 verbose #5580 > │ v0 │
00:01:10 verbose #5581 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:01:10 verbose #5582 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:10 verbose #5583 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:10 verbose #5584 > │ let v2 : US0 = US0_0 │
00:01:10 verbose #5585 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:10 verbose #5586 > │ let v4 : (string -> unit) = closure6() │
00:01:10 verbose #5587 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:01:10 verbose #5588 > │ let v6 : int64 option option = None │
00:01:10 verbose #5589 > │ let mutable _v6 = v6 │
00:01:10 verbose #5590 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:10 verbose #5591 > │ let v7 : string option = None │
00:01:10 verbose #5592 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:10 verbose #5593 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #5594 > │ let v9 : string = null |> unbox<string> │
00:01:10 verbose #5595 > │ v9 │
00:01:10 verbose #5596 > │ #endif │
00:01:10 verbose #5597 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #5598 > │ let v10 : string = null |> unbox<string> │
00:01:10 verbose #5599 > │ v10 │
00:01:10 verbose #5600 > │ #endif │
00:01:10 verbose #5601 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #5602 > │ let v11 : string = null |> unbox<string> │
00:01:10 verbose #5603 > │ v11 │
00:01:10 verbose #5604 > │ #endif │
00:01:10 verbose #5605 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #5606 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #5607 > │ let v12 : string = │
00:01:10 verbose #5608 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:10 verbose #5609 > │ v12 │
00:01:10 verbose #5610 > │ #endif │
00:01:10 verbose #5611 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #5612 > │ let v13 : string = null |> unbox<string> │
00:01:10 verbose #5613 > │ v13 │
00:01:10 verbose #5614 > │ #endif │
00:01:10 verbose #5615 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #5616 > │ let v14 : string = Unchecked.defaultof<string> │
00:01:10 verbose #5617 > │ v14 │
00:01:10 verbose #5618 > │ #endif │
00:01:10 verbose #5619 > │ |> fun x -> _v7 <- Some x │
00:01:10 verbose #5620 > │ let v15 : string = _v7.Value │
00:01:10 verbose #5621 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:01:10 verbose #5622 > │ let v18 : bool = v17 <> true │
00:01:10 verbose #5623 > │ let v24 : US1 = │
00:01:10 verbose #5624 > │ if v18 then │
00:01:10 verbose #5625 > │ let v19 : System.DateTime = System.DateTime.Now │
00:01:10 verbose #5626 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:01:10 verbose #5627 > │ let v21 : int64 = v20 v19 │
00:01:10 verbose #5628 > │ US1_0(v21) │
00:01:10 verbose #5629 > │ else │
00:01:10 verbose #5630 > │ US1_1 │
00:01:10 verbose #5631 > │ let v29 : int64 option = │
00:01:10 verbose #5632 > │ match v24 with │
00:01:10 verbose #5633 > │ | US1_1 -> (* None *) │
00:01:10 verbose #5634 > │ let v27 : int64 option = None │
00:01:10 verbose #5635 > │ v27 │
00:01:10 verbose #5636 > │ | US1_0(v25) -> (* Some *) │
00:01:10 verbose #5637 > │ let v26 : int64 option = Some v25 │
00:01:10 verbose #5638 > │ v26 │
00:01:10 verbose #5639 > │ let v30 : int64 option = method5(v29) │
00:01:10 verbose #5640 > │ v30 │
00:01:10 verbose #5641 > │ #else │
00:01:10 verbose #5642 > │ let v31 : int64 option = None │
00:01:10 verbose #5643 > │ let v32 : int64 option = method6(v31) │
00:01:10 verbose #5644 > │ v32 │
00:01:10 verbose #5645 > │ #endif │
00:01:10 verbose #5646 > │ |> fun x -> _v6 <- Some x │
00:01:10 verbose #5647 > │ let v33 : int64 option = _v6.Value │
00:01:10 verbose #5648 > │ struct (v1, v0, v3, v33, v5) │
00:01:10 verbose #5649 > │ and closure7 () (v0 : int64) : US2 = │
00:01:10 verbose #5650 > │ US2_0(v0) │
00:01:10 verbose #5651 > │ and method7 () : (int64 -> US2) = │
00:01:10 verbose #5652 > │ closure7() │
00:01:10 verbose #5653 > │ and method8 () : string = │
00:01:10 verbose #5654 > │ let v0 : string = "" │
00:01:10 verbose #5655 > │ v0 │
00:01:10 verbose #5656 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:10 verbose #5657 > │ string = │
00:01:10 verbose #5658 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:10 verbose #5659 > │ closure5() │
00:01:10 verbose #5660 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:01:10 verbose #5661 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:01:10 verbose #5662 > │ Mut3) = State.trace_state.Value │
00:01:10 verbose #5663 > │ let v9 : string option = None │
00:01:10 verbose #5664 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:01:10 verbose #5665 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #5666 > │ let v11 : (int64 -> US2) = method7() │
00:01:10 verbose #5667 > │ let v12 : US2 = US2_1 │
00:01:10 verbose #5668 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:01:10 verbose #5669 > │ let v31 : System.DateTime = │
00:01:10 verbose #5670 > │ match v13 with │
00:01:10 verbose #5671 > │ | US2_1 -> (* None *) │
00:01:10 verbose #5672 > │ let v29 : System.DateTime = System.DateTime.Now │
00:01:10 verbose #5673 > │ v29 │
00:01:10 verbose #5674 > │ | US2_0(v14) -> (* Some *) │
00:01:10 verbose #5675 > │ let v15 : System.DateTime = System.DateTime.Now │
00:01:10 verbose #5676 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:01:10 verbose #5677 > │ let v17 : int64 = v16 v15 │
00:01:10 verbose #5678 > │ let v18 : int64 = v17 - v14 │
00:01:10 verbose #5679 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:01:10 verbose #5680 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:01:10 verbose #5681 > │ let v21 : int32 = v20 v19 │
00:01:10 verbose #5682 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:01:10 verbose #5683 > │ let v23 : int32 = v22 v19 │
00:01:10 verbose #5684 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:01:10 verbose #5685 > │ let v25 : int32 = v24 v19 │
00:01:10 verbose #5686 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:10 verbose #5687 > │ let v27 : int32 = v26 v19 │
00:01:10 verbose #5688 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:01:10 verbose #5689 > │ v25, v27) │
00:01:10 verbose #5690 > │ v28 │
00:01:10 verbose #5691 > │ let v32 : string = "hh:mm:ss" │
00:01:10 verbose #5692 > │ let v33 : string = v31.ToString v32 │
00:01:10 verbose #5693 > │ v33 │
00:01:10 verbose #5694 > │ #endif │
00:01:10 verbose #5695 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #5696 > │ let v34 : string = method8() │
00:01:10 verbose #5697 > │ v34 │
00:01:10 verbose #5698 > │ #endif │
00:01:10 verbose #5699 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #5700 > │ let v35 : string = method8() │
00:01:10 verbose #5701 > │ v35 │
00:01:10 verbose #5702 > │ #endif │
00:01:10 verbose #5703 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #5704 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #5705 > │ let v36 : (int64 -> US2) = method7() │
00:01:10 verbose #5706 > │ let v37 : US2 = US2_1 │
00:01:10 verbose #5707 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:01:10 verbose #5708 > │ let v56 : System.DateTime = │
00:01:10 verbose #5709 > │ match v38 with │
00:01:10 verbose #5710 > │ | US2_1 -> (* None *) │
00:01:10 verbose #5711 > │ let v54 : System.DateTime = System.DateTime.Now │
00:01:10 verbose #5712 > │ v54 │
00:01:10 verbose #5713 > │ | US2_0(v39) -> (* Some *) │
00:01:10 verbose #5714 > │ let v40 : System.DateTime = System.DateTime.Now │
00:01:10 verbose #5715 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:01:10 verbose #5716 > │ let v42 : int64 = v41 v40 │
00:01:10 verbose #5717 > │ let v43 : int64 = v42 - v39 │
00:01:10 verbose #5718 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:01:10 verbose #5719 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:01:10 verbose #5720 > │ let v46 : int32 = v45 v44 │
00:01:10 verbose #5721 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:01:10 verbose #5722 > │ let v48 : int32 = v47 v44 │
00:01:10 verbose #5723 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:01:10 verbose #5724 > │ let v50 : int32 = v49 v44 │
00:01:10 verbose #5725 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:10 verbose #5726 > │ let v52 : int32 = v51 v44 │
00:01:10 verbose #5727 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:01:10 verbose #5728 > │ v50, v52) │
00:01:10 verbose #5729 > │ v53 │
00:01:10 verbose #5730 > │ let v57 : string = "HH:mm:ss" │
00:01:10 verbose #5731 > │ let v58 : string = v56.ToString v57 │
00:01:10 verbose #5732 > │ v58 │
00:01:10 verbose #5733 > │ #endif │
00:01:10 verbose #5734 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #5735 > │ let v59 : string = method8() │
00:01:10 verbose #5736 > │ v59 │
00:01:10 verbose #5737 > │ #endif │
00:01:10 verbose #5738 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #5739 > │ let v60 : string = Unchecked.defaultof<string> │
00:01:10 verbose #5740 > │ v60 │
00:01:10 verbose #5741 > │ #endif │
00:01:10 verbose #5742 > │ |> fun x -> _v9 <- Some x │
00:01:10 verbose #5743 > │ let v61 : string = _v9.Value │
00:01:10 verbose #5744 > │ let v62 : int64 = v4.l0 │
00:01:10 verbose #5745 > │ let v72 : string = │
00:01:10 verbose #5746 > │ match v0 with │
00:01:10 verbose #5747 > │ | US0_4 -> (* Critical *) │
00:01:10 verbose #5748 > │ let v67 : string = "Critical" │
00:01:10 verbose #5749 > │ v67 │
00:01:10 verbose #5750 > │ | US0_1 -> (* Debug *) │
00:01:10 verbose #5751 > │ let v64 : string = "Debug" │
00:01:10 verbose #5752 > │ v64 │
00:01:10 verbose #5753 > │ | US0_2 -> (* Info *) │
00:01:10 verbose #5754 > │ let v65 : string = "Info" │
00:01:10 verbose #5755 > │ v65 │
00:01:10 verbose #5756 > │ | US0_0 -> (* Verbose *) │
00:01:10 verbose #5757 > │ let v63 : string = "Verbose" │
00:01:10 verbose #5758 > │ v63 │
00:01:10 verbose #5759 > │ | US0_3 -> (* Warning *) │
00:01:10 verbose #5760 > │ let v66 : string = "Warning" │
00:01:10 verbose #5761 > │ v66 │
00:01:10 verbose #5762 > │ let v73 : string = v72.ToLower () │
00:01:10 verbose #5763 > │ let v74 : string option = None │
00:01:10 verbose #5764 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:01:10 verbose #5765 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #5766 > │ let v90 : Ref<Str> = │
00:01:10 verbose #5767 > │ match v0 with │
00:01:10 verbose #5768 > │ | US0_4 -> (* Critical *) │
00:01:10 verbose #5769 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:01:10 verbose #5770 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:01:10 verbose #5771 > │ v85 │
00:01:10 verbose #5772 > │ | US0_1 -> (* Debug *) │
00:01:10 verbose #5773 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:01:10 verbose #5774 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:01:10 verbose #5775 > │ v79 │
00:01:10 verbose #5776 > │ | US0_2 -> (* Info *) │
00:01:10 verbose #5777 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:01:10 verbose #5778 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:01:10 verbose #5779 > │ v81 │
00:01:10 verbose #5780 > │ | US0_0 -> (* Verbose *) │
00:01:10 verbose #5781 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:01:10 verbose #5782 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:01:10 verbose #5783 > │ v77 │
00:01:10 verbose #5784 > │ | US0_3 -> (* Warning *) │
00:01:10 verbose #5785 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:01:10 verbose #5786 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:01:10 verbose #5787 > │ v83 │
00:01:10 verbose #5788 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #5789 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:01:10 verbose #5790 > │ let v93 : string = "inline_colorization::color_reset" │
00:01:10 verbose #5791 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:01:10 verbose #5792 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:01:10 verbose #5793 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:01:10 verbose #5794 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:01:10 verbose #5795 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:01:10 verbose #5796 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:01:10 verbose #5797 > │ v99 │
00:01:10 verbose #5798 > │ #endif │
00:01:10 verbose #5799 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #5800 > │ let v114 : Ref<Str> = │
00:01:10 verbose #5801 > │ match v0 with │
00:01:10 verbose #5802 > │ | US0_4 -> (* Critical *) │
00:01:10 verbose #5803 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:01:10 verbose #5804 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5805 > │ v108 │
00:01:10 verbose #5806 > │ v109 │
00:01:10 verbose #5807 > │ | US0_1 -> (* Debug *) │
00:01:10 verbose #5808 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:01:10 verbose #5809 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5810 > │ v102 │
00:01:10 verbose #5811 > │ v103 │
00:01:10 verbose #5812 > │ | US0_2 -> (* Info *) │
00:01:10 verbose #5813 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:01:10 verbose #5814 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5815 > │ v104 │
00:01:10 verbose #5816 > │ v105 │
00:01:10 verbose #5817 > │ | US0_0 -> (* Verbose *) │
00:01:10 verbose #5818 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:01:10 verbose #5819 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5820 > │ v100 │
00:01:10 verbose #5821 > │ v101 │
00:01:10 verbose #5822 > │ | US0_3 -> (* Warning *) │
00:01:10 verbose #5823 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:01:10 verbose #5824 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5825 > │ v106 │
00:01:10 verbose #5826 > │ v107 │
00:01:10 verbose #5827 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #5828 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:01:10 verbose #5829 > │ let v117 : string = "inline_colorization::color_reset" │
00:01:10 verbose #5830 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:01:10 verbose #5831 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:01:10 verbose #5832 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:01:10 verbose #5833 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5834 > │ v120 │
00:01:10 verbose #5835 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:01:10 verbose #5836 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:01:10 verbose #5837 > │ v123 │
00:01:10 verbose #5838 > │ #endif │
00:01:10 verbose #5839 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #5840 > │ let v138 : Ref<Str> = │
00:01:10 verbose #5841 > │ match v0 with │
00:01:10 verbose #5842 > │ | US0_4 -> (* Critical *) │
00:01:10 verbose #5843 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:01:10 verbose #5844 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5845 > │ v132 │
00:01:10 verbose #5846 > │ v133 │
00:01:10 verbose #5847 > │ | US0_1 -> (* Debug *) │
00:01:10 verbose #5848 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:01:10 verbose #5849 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5850 > │ v126 │
00:01:10 verbose #5851 > │ v127 │
00:01:10 verbose #5852 > │ | US0_2 -> (* Info *) │
00:01:10 verbose #5853 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:01:10 verbose #5854 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5855 > │ v128 │
00:01:10 verbose #5856 > │ v129 │
00:01:10 verbose #5857 > │ | US0_0 -> (* Verbose *) │
00:01:10 verbose #5858 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:01:10 verbose #5859 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5860 > │ v124 │
00:01:10 verbose #5861 > │ v125 │
00:01:10 verbose #5862 > │ | US0_3 -> (* Warning *) │
00:01:10 verbose #5863 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:01:10 verbose #5864 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5865 > │ v130 │
00:01:10 verbose #5866 > │ v131 │
00:01:10 verbose #5867 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #5868 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:01:10 verbose #5869 > │ let v141 : string = "inline_colorization::color_reset" │
00:01:10 verbose #5870 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:01:10 verbose #5871 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:01:10 verbose #5872 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:01:10 verbose #5873 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:10 verbose #5874 > │ v144 │
00:01:10 verbose #5875 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:01:10 verbose #5876 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:01:10 verbose #5877 > │ v147 │
00:01:10 verbose #5878 > │ #endif │
00:01:10 verbose #5879 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #5880 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #5881 > │ v73 │
00:01:10 verbose #5882 > │ #endif │
00:01:10 verbose #5883 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #5884 > │ v73 │
00:01:10 verbose #5885 > │ #endif │
00:01:10 verbose #5886 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #5887 > │ let v148 : string = Unchecked.defaultof<string> │
00:01:10 verbose #5888 > │ v148 │
00:01:10 verbose #5889 > │ #endif │
00:01:10 verbose #5890 > │ |> fun x -> _v74 <- Some x │
00:01:10 verbose #5891 > │ let v149 : string = _v74.Value │
00:01:10 verbose #5892 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:01:10 verbose #5893 > │ let v151 : (char []) = [||] │
00:01:10 verbose #5894 > │ let v152 : string = v150.TrimStart v151 │
00:01:10 verbose #5895 > │ let v153 : (char []) = [|' '; '/'|] │
00:01:10 verbose #5896 > │ let v154 : string = v152.TrimEnd v153 │
00:01:10 verbose #5897 > │ v154 │
00:01:10 verbose #5898 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:01:10 verbose #5899 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:10 verbose #5900 > │ closure5() │
00:01:10 verbose #5901 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:10 verbose #5902 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:01:10 verbose #5903 > │ Mut3) = State.trace_state.Value │
00:01:10 verbose #5904 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:10 verbose #5905 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:01:10 verbose #5906 > │ Mut3) = State.trace_state.Value │
00:01:10 verbose #5907 > │ let v13 : US0 = v10.l0 │
00:01:10 verbose #5908 > │ let v14 : bool = v9.l0 │
00:01:10 verbose #5909 > │ let v15 : bool = v14 = false │
00:01:10 verbose #5910 > │ let v19 : bool = │
00:01:10 verbose #5911 > │ if v15 then │
00:01:10 verbose #5912 > │ false │
00:01:10 verbose #5913 > │ else │
00:01:10 verbose #5914 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:10 verbose #5915 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:01:10 verbose #5916 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:10 verbose #5917 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:01:10 verbose #5918 > │ let v18 : bool = v16 >= v17 │
00:01:10 verbose #5919 > │ v18 │
00:01:10 verbose #5920 > │ if v19 then │
00:01:10 verbose #5921 > │ let v20 : int64 = v3.l0 │
00:01:10 verbose #5922 > │ let v21 : int64 = v20 + 1L │
00:01:10 verbose #5923 > │ v3.l0 <- v21 │
00:01:10 verbose #5924 > │ let v22 : string = $"%s{v1 ()}" │
00:01:10 verbose #5925 > │ let v23 : unit option = None │
00:01:10 verbose #5926 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:01:10 verbose #5927 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #5928 > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:10 verbose #5929 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:01:10 verbose #5930 > │ () │
00:01:10 verbose #5931 > │ #endif │
00:01:10 verbose #5932 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #5933 > │ let v26 : string = @"println!(""{}"", $0)" │
00:01:10 verbose #5934 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:01:10 verbose #5935 > │ () │
00:01:10 verbose #5936 > │ #endif │
00:01:10 verbose #5937 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #5938 > │ let v27 : string = @"println!(""{}"", $0)" │
00:01:10 verbose #5939 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:01:10 verbose #5940 > │ () │
00:01:10 verbose #5941 > │ #endif │
00:01:10 verbose #5942 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #5943 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #5944 > │ System.Console.WriteLine v22 │
00:01:10 verbose #5945 > │ () │
00:01:10 verbose #5946 > │ #endif │
00:01:10 verbose #5947 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #5948 > │ System.Console.WriteLine v22 │
00:01:10 verbose #5949 > │ () │
00:01:10 verbose #5950 > │ #endif │
00:01:10 verbose #5951 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:10 verbose #5952 > │ FABLE_COMPILER_DART │
00:01:10 verbose #5953 > │ Unchecked.defaultof<unit> │
00:01:10 verbose #5954 > │ () │
00:01:10 verbose #5955 > │ #endif │
00:01:10 verbose #5956 > │ |> fun x -> _v23 <- Some x │
00:01:10 verbose #5957 > │ _v23.Value │
00:01:10 verbose #5958 > │ let v28 : (string -> unit) = v7.l0 │
00:01:10 verbose #5959 > │ v28 v22 │
00:01:10 verbose #5960 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:10 verbose #5961 > │ = │
00:01:10 verbose #5962 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:01:10 verbose #5963 > │ method9(v0, v3) │
00:01:10 verbose #5964 > │ and closure9 () () : string = │
00:01:10 verbose #5965 > │ let v0 : string = "file_system.delete_directory_async" │
00:01:10 verbose #5966 > │ v0 │
00:01:10 verbose #5967 > │ and closure11 () (v0 : string) : string = │
00:01:10 verbose #5968 > │ let v1 : string option = None │
00:01:10 verbose #5969 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:10 verbose #5970 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #5971 > │ let v3 : string = null |> unbox<string> │
00:01:10 verbose #5972 > │ v3 │
00:01:10 verbose #5973 > │ #endif │
00:01:10 verbose #5974 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #5975 > │ let v4 : string = null |> unbox<string> │
00:01:10 verbose #5976 > │ v4 │
00:01:10 verbose #5977 > │ #endif │
00:01:10 verbose #5978 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #5979 > │ let v5 : string = null |> unbox<string> │
00:01:10 verbose #5980 > │ v5 │
00:01:10 verbose #5981 > │ #endif │
00:01:10 verbose #5982 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #5983 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #5984 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:01:10 verbose #5985 > │ let v7 : string = v6 v0 │
00:01:10 verbose #5986 > │ v7 │
00:01:10 verbose #5987 > │ #endif │
00:01:10 verbose #5988 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #5989 > │ let v8 : string = null |> unbox<string> │
00:01:10 verbose #5990 > │ v8 │
00:01:10 verbose #5991 > │ #endif │
00:01:10 verbose #5992 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #5993 > │ let v9 : string = Unchecked.defaultof<string> │
00:01:10 verbose #5994 > │ v9 │
00:01:10 verbose #5995 > │ #endif │
00:01:10 verbose #5996 > │ |> fun x -> _v1 <- Some x │
00:01:10 verbose #5997 > │ let v10 : string = _v1.Value │
00:01:10 verbose #5998 > │ v10 │
00:01:10 verbose #5999 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:01:10 verbose #6000 > │ let v2 : (string -> string) = closure11() │
00:01:10 verbose #6001 > │ let v3 : (unit -> string) = closure3() │
00:01:10 verbose #6002 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:01:10 verbose #6003 > │ v4 │
00:01:10 verbose #6004 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:01:10 verbose #6005 > │ let v2 : Async<int64> option = None │
00:01:10 verbose #6006 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:01:10 verbose #6007 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6008 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6009 > │ v4 │
00:01:10 verbose #6010 > │ #endif │
00:01:10 verbose #6011 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6012 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6013 > │ v5 │
00:01:10 verbose #6014 > │ #endif │
00:01:10 verbose #6015 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6016 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6017 > │ v6 │
00:01:10 verbose #6018 > │ #endif │
00:01:10 verbose #6019 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6020 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6021 > │ let v7 : Async<int64> option = None │
00:01:10 verbose #6022 > │ let mutable _v7 = v7 │
00:01:10 verbose #6023 > │ async { │
00:01:10 verbose #6024 > │ try │
00:01:10 verbose #6025 > │ let v8 : unit option = None │
00:01:10 verbose #6026 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:01:10 verbose #6027 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6028 > │ null |> unbox<unit> │
00:01:10 verbose #6029 > │ () │
00:01:10 verbose #6030 > │ #endif │
00:01:10 verbose #6031 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6032 > │ null |> unbox<unit> │
00:01:10 verbose #6033 > │ () │
00:01:10 verbose #6034 > │ #endif │
00:01:10 verbose #6035 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6036 > │ null |> unbox<unit> │
00:01:10 verbose #6037 > │ () │
00:01:10 verbose #6038 > │ #endif │
00:01:10 verbose #6039 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6040 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6041 > │ System.IO.Directory.Delete (v0, true) │
00:01:10 verbose #6042 > │ () │
00:01:10 verbose #6043 > │ #endif │
00:01:10 verbose #6044 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6045 > │ null |> unbox<unit> │
00:01:10 verbose #6046 > │ () │
00:01:10 verbose #6047 > │ #endif │
00:01:10 verbose #6048 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6049 > │ Unchecked.defaultof<unit> │
00:01:10 verbose #6050 > │ () │
00:01:10 verbose #6051 > │ #endif │
00:01:10 verbose #6052 > │ |> fun x -> _v8 <- Some x │
00:01:10 verbose #6053 > │ _v8.Value │
00:01:10 verbose #6054 > │ return v1 │
00:01:10 verbose #6055 > │ with ex -> │
00:01:10 verbose #6056 > │ let v10 : exn = ex │
00:01:10 verbose #6057 > │ let v11 : int64 = v1 % 100L │
00:01:10 verbose #6058 > │ let v12 : bool = v11 = 0L │
00:01:10 verbose #6059 > │ if v12 then │
00:01:10 verbose #6060 > │ let v13 : string option = None │
00:01:10 verbose #6061 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:01:10 verbose #6062 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6063 > │ let v15 : string = $"%A{v10}" │
00:01:10 verbose #6064 > │ v15 │
00:01:10 verbose #6065 > │ #endif │
00:01:10 verbose #6066 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6067 > │ let v16 : string = $"%A{v10}" │
00:01:10 verbose #6068 > │ v16 │
00:01:10 verbose #6069 > │ #endif │
00:01:10 verbose #6070 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6071 > │ let v17 : string = $"%A{v10}" │
00:01:10 verbose #6072 > │ v17 │
00:01:10 verbose #6073 > │ #endif │
00:01:10 verbose #6074 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6075 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6076 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:01:10 verbose #6077 > │ v18 │
00:01:10 verbose #6078 > │ #endif │
00:01:10 verbose #6079 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6080 > │ let v19 : string = $"%A{v10}" │
00:01:10 verbose #6081 > │ v19 │
00:01:10 verbose #6082 > │ #endif │
00:01:10 verbose #6083 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:10 verbose #6084 > │ FABLE_COMPILER_DART │
00:01:10 verbose #6085 > │ let v20 : string = Unchecked.defaultof<string> │
00:01:10 verbose #6086 > │ v20 │
00:01:10 verbose #6087 > │ #endif │
00:01:10 verbose #6088 > │ |> fun x -> _v13 <- Some x │
00:01:10 verbose #6089 > │ let v21 : string = _v13.Value │
00:01:10 verbose #6090 > │ let v22 : US0 = US0_1 │
00:01:10 verbose #6091 > │ let v23 : (unit -> string) = closure9() │
00:01:10 verbose #6092 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:01:10 verbose #6093 > │ method4(v22, v23, v24) │
00:01:10 verbose #6094 > │ let v25 : Async<unit> option = None │
00:01:10 verbose #6095 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:01:10 verbose #6096 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6097 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6098 > │ v27 │
00:01:10 verbose #6099 > │ #endif │
00:01:10 verbose #6100 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6101 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6102 > │ v28 │
00:01:10 verbose #6103 > │ #endif │
00:01:10 verbose #6104 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6105 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6106 > │ v29 │
00:01:10 verbose #6107 > │ #endif │
00:01:10 verbose #6108 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6109 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6110 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:01:10 verbose #6111 > │ let v31 : Async<unit> = v30 10 │
00:01:10 verbose #6112 > │ v31 │
00:01:10 verbose #6113 > │ #endif │
00:01:10 verbose #6114 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6115 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6116 > │ v32 │
00:01:10 verbose #6117 > │ #endif │
00:01:10 verbose #6118 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6119 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:10 verbose #6120 > │ v33 │
00:01:10 verbose #6121 > │ #endif │
00:01:10 verbose #6122 > │ |> fun x -> _v25 <- Some x │
00:01:10 verbose #6123 > │ let v34 : Async<unit> = _v25.Value │
00:01:10 verbose #6124 > │ do! v34 │
00:01:10 verbose #6125 > │ let v35 : int64 = v1 + 1L │
00:01:10 verbose #6126 > │ let v36 : Async<int64> = method10(v0, v35) │
00:01:10 verbose #6127 > │ return! v36 │
00:01:10 verbose #6128 > │ (* │
00:01:10 verbose #6129 > │ let v37 : int64 = *) │
00:01:10 verbose #6130 > │ } │
00:01:10 verbose #6131 > │ |> fun x -> _v7 <- Some x │
00:01:10 verbose #6132 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:01:10 verbose #6133 > │ v38 │
00:01:10 verbose #6134 > │ #endif │
00:01:10 verbose #6135 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6136 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6137 > │ v39 │
00:01:10 verbose #6138 > │ #endif │
00:01:10 verbose #6139 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6140 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:10 verbose #6141 > │ v40 │
00:01:10 verbose #6142 > │ #endif │
00:01:10 verbose #6143 > │ |> fun x -> _v2 <- Some x │
00:01:10 verbose #6144 > │ let v41 : Async<int64> = _v2.Value │
00:01:10 verbose #6145 > │ v41 │
00:01:10 verbose #6146 > │ and closure8 (v0 : string) () : unit = │
00:01:10 verbose #6147 > │ let v1 : Async<int64> option = None │
00:01:10 verbose #6148 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:10 verbose #6149 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6150 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6151 > │ v3 │
00:01:10 verbose #6152 > │ #endif │
00:01:10 verbose #6153 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6154 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6155 > │ v4 │
00:01:10 verbose #6156 > │ #endif │
00:01:10 verbose #6157 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6158 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6159 > │ v5 │
00:01:10 verbose #6160 > │ #endif │
00:01:10 verbose #6161 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6162 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6163 > │ let v6 : int64 = 0L │
00:01:10 verbose #6164 > │ let v7 : Async<int64> = method10(v0, v6) │
00:01:10 verbose #6165 > │ v7 │
00:01:10 verbose #6166 > │ #endif │
00:01:10 verbose #6167 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6168 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:01:10 verbose #6169 > │ v8 │
00:01:10 verbose #6170 > │ #endif │
00:01:10 verbose #6171 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6172 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:01:10 verbose #6173 > │ v9 │
00:01:10 verbose #6174 > │ #endif │
00:01:10 verbose #6175 > │ |> fun x -> _v1 <- Some x │
00:01:10 verbose #6176 > │ let v10 : Async<int64> = _v1.Value │
00:01:10 verbose #6177 > │ let v11 : Async<unit> option = None │
00:01:10 verbose #6178 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:01:10 verbose #6179 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6180 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6181 > │ v13 │
00:01:10 verbose #6182 > │ #endif │
00:01:10 verbose #6183 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6184 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6185 > │ v14 │
00:01:10 verbose #6186 > │ #endif │
00:01:10 verbose #6187 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6188 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6189 > │ v15 │
00:01:10 verbose #6190 > │ #endif │
00:01:10 verbose #6191 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6192 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6193 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:01:10 verbose #6194 > │ let v17 : Async<unit> = v16 v10 │
00:01:10 verbose #6195 > │ v17 │
00:01:10 verbose #6196 > │ #endif │
00:01:10 verbose #6197 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6198 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6199 > │ v18 │
00:01:10 verbose #6200 > │ #endif │
00:01:10 verbose #6201 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6202 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:10 verbose #6203 > │ v19 │
00:01:10 verbose #6204 > │ #endif │
00:01:10 verbose #6205 > │ |> fun x -> _v11 <- Some x │
00:01:10 verbose #6206 > │ let v20 : Async<unit> = _v11.Value │
00:01:10 verbose #6207 > │ let v21 : unit option = None │
00:01:10 verbose #6208 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:01:10 verbose #6209 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6210 > │ null |> unbox<unit> │
00:01:10 verbose #6211 > │ () │
00:01:10 verbose #6212 > │ #endif │
00:01:10 verbose #6213 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6214 > │ null |> unbox<unit> │
00:01:10 verbose #6215 > │ () │
00:01:10 verbose #6216 > │ #endif │
00:01:10 verbose #6217 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6218 > │ null |> unbox<unit> │
00:01:10 verbose #6219 > │ () │
00:01:10 verbose #6220 > │ #endif │
00:01:10 verbose #6221 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6222 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6223 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:01:10 verbose #6224 > │ v23 v20 │
00:01:10 verbose #6225 > │ () │
00:01:10 verbose #6226 > │ #endif │
00:01:10 verbose #6227 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6228 > │ null |> unbox<unit> │
00:01:10 verbose #6229 > │ () │
00:01:10 verbose #6230 > │ #endif │
00:01:10 verbose #6231 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6232 > │ Unchecked.defaultof<unit> │
00:01:10 verbose #6233 > │ () │
00:01:10 verbose #6234 > │ #endif │
00:01:10 verbose #6235 > │ |> fun x -> _v21 <- Some x │
00:01:10 verbose #6236 > │ _v21.Value │
00:01:10 verbose #6237 > │ () │
00:01:10 verbose #6238 > │ and method11 () : string = │
00:01:10 verbose #6239 > │ let v0 : string = "test.txt" │
00:01:10 verbose #6240 > │ v0 │
00:01:10 verbose #6241 > │ and method12 () : string = │
00:01:10 verbose #6242 > │ let v0 : string = "test.txt" │
00:01:10 verbose #6243 > │ v0 │
00:01:10 verbose #6244 > │ and closure12 () () : string = │
00:01:10 verbose #6245 > │ let v0 : string = "1" │
00:01:10 verbose #6246 > │ v0 │
00:01:10 verbose #6247 > │ and method13 () : struct (string * string) = │
00:01:10 verbose #6248 > │ let v0 : string = "" │
00:01:10 verbose #6249 > │ struct (v0, v0) │
00:01:10 verbose #6250 > │ and closure14 (v0 : char) (v1 : UH0) : UH0 = │
00:01:10 verbose #6251 > │ UH0_1(v0, v1) │
00:01:10 verbose #6252 > │ and closure13 () (v0 : char) : (UH0 -> UH0) = │
00:01:10 verbose #6253 > │ closure14(v0) │
00:01:10 verbose #6254 > │ and method14 () : (char -> (UH0 -> UH0)) = │
00:01:10 verbose #6255 > │ closure13() │
00:01:10 verbose #6256 > │ and method15 (v0 : string, v1 : string, v2 : UH0, v3 : US3) : struct (string │
00:01:10 verbose #6257 > │ * string) = │
00:01:10 verbose #6258 > │ match v2 with │
00:01:10 verbose #6259 > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:10 verbose #6260 > │ let v6 : bool = '"' = v4 │
00:01:10 verbose #6261 > │ if v6 then │
00:01:10 verbose #6262 > │ let v8 : bool = v1 = "" │
00:01:10 verbose #6263 > │ if v8 then │
00:01:10 verbose #6264 > │ let v9 : US4 = US4_0 │
00:01:10 verbose #6265 > │ let v10 : US3 = US3_1(v9) │
00:01:10 verbose #6266 > │ method15(v0, v1, v5, v10) │
00:01:10 verbose #6267 > │ else │
00:01:10 verbose #6268 > │ match v3 with │
00:01:10 verbose #6269 > │ | US3_2 -> (* Arguments *) │
00:01:10 verbose #6270 > │ let v38 : string = $"{v0}{v4}" │
00:01:10 verbose #6271 > │ let v39 : US3 = US3_2 │
00:01:10 verbose #6272 > │ method15(v38, v1, v5, v39) │
00:01:10 verbose #6273 > │ | US3_1(v13) -> (* Path *) │
00:01:10 verbose #6274 > │ match v13 with │
00:01:10 verbose #6275 > │ | US4_0 -> (* Quoted *) │
00:01:10 verbose #6276 > │ let v14 : US4 = US4_1 │
00:01:10 verbose #6277 > │ let v15 : US3 = US3_1(v14) │
00:01:10 verbose #6278 > │ method15(v0, v1, v5, v15) │
00:01:10 verbose #6279 > │ | _ -> │
00:01:10 verbose #6280 > │ let v18 : bool = ' ' = v4 │
00:01:10 verbose #6281 > │ if v18 then │
00:01:10 verbose #6282 > │ let v19 : US3 = US3_2 │
00:01:10 verbose #6283 > │ method15(v0, v1, v5, v19) │
00:01:10 verbose #6284 > │ else │
00:01:10 verbose #6285 > │ let v22 : string = $"{v1}{v4}" │
00:01:10 verbose #6286 > │ method15(v0, v22, v5, v3) │
00:01:10 verbose #6287 > │ | US3_0 -> (* Start *) │
00:01:10 verbose #6288 > │ let v29 : bool = ' ' = v4 │
00:01:10 verbose #6289 > │ if v29 then │
00:01:10 verbose #6290 > │ let v30 : US3 = US3_2 │
00:01:10 verbose #6291 > │ method15(v0, v1, v5, v30) │
00:01:10 verbose #6292 > │ else │
00:01:10 verbose #6293 > │ let v33 : string = $"{v1}{v4}" │
00:01:10 verbose #6294 > │ method15(v0, v33, v5, v3) │
00:01:10 verbose #6295 > │ else │
00:01:10 verbose #6296 > │ let v50 : bool = ''' = v4 │
00:01:10 verbose #6297 > │ if v50 then │
00:01:10 verbose #6298 > │ let v52 : bool = v1 = "" │
00:01:10 verbose #6299 > │ if v52 then │
00:01:10 verbose #6300 > │ let v53 : US4 = US4_0 │
00:01:10 verbose #6301 > │ let v54 : US3 = US3_1(v53) │
00:01:10 verbose #6302 > │ method15(v0, v1, v5, v54) │
00:01:10 verbose #6303 > │ else │
00:01:10 verbose #6304 > │ match v3 with │
00:01:10 verbose #6305 > │ | US3_2 -> (* Arguments *) │
00:01:10 verbose #6306 > │ let v82 : string = $"{v0}{v4}" │
00:01:10 verbose #6307 > │ let v83 : US3 = US3_2 │
00:01:10 verbose #6308 > │ method15(v82, v1, v5, v83) │
00:01:10 verbose #6309 > │ | US3_1(v57) -> (* Path *) │
00:01:10 verbose #6310 > │ match v57 with │
00:01:10 verbose #6311 > │ | US4_0 -> (* Quoted *) │
00:01:10 verbose #6312 > │ let v58 : US4 = US4_1 │
00:01:10 verbose #6313 > │ let v59 : US3 = US3_1(v58) │
00:01:10 verbose #6314 > │ method15(v0, v1, v5, v59) │
00:01:10 verbose #6315 > │ | _ -> │
00:01:10 verbose #6316 > │ let v62 : bool = ' ' = v4 │
00:01:10 verbose #6317 > │ if v62 then │
00:01:10 verbose #6318 > │ let v63 : US3 = US3_2 │
00:01:10 verbose #6319 > │ method15(v0, v1, v5, v63) │
00:01:10 verbose #6320 > │ else │
00:01:10 verbose #6321 > │ let v66 : string = $"{v1}{v4}" │
00:01:10 verbose #6322 > │ method15(v0, v66, v5, v3) │
00:01:10 verbose #6323 > │ | US3_0 -> (* Start *) │
00:01:10 verbose #6324 > │ let v73 : bool = ' ' = v4 │
00:01:10 verbose #6325 > │ if v73 then │
00:01:10 verbose #6326 > │ let v74 : US3 = US3_2 │
00:01:10 verbose #6327 > │ method15(v0, v1, v5, v74) │
00:01:10 verbose #6328 > │ else │
00:01:10 verbose #6329 > │ let v77 : string = $"{v1}{v4}" │
00:01:10 verbose #6330 > │ method15(v0, v77, v5, v3) │
00:01:10 verbose #6331 > │ else │
00:01:10 verbose #6332 > │ match v3 with │
00:01:10 verbose #6333 > │ | US3_2 -> (* Arguments *) │
00:01:10 verbose #6334 > │ let v126 : string = $"{v0}{v4}" │
00:01:10 verbose #6335 > │ let v127 : US3 = US3_2 │
00:01:10 verbose #6336 > │ method15(v126, v1, v5, v127) │
00:01:10 verbose #6337 > │ | US3_1(v94) -> (* Path *) │
00:01:10 verbose #6338 > │ match v94 with │
00:01:10 verbose #6339 > │ | US4_0 -> (* Quoted *) │
00:01:10 verbose #6340 > │ let v95 : bool = ' ' = v4 │
00:01:10 verbose #6341 > │ if v95 then │
00:01:10 verbose #6342 > │ let v96 : string = $"{v1} " │
00:01:10 verbose #6343 > │ let v97 : US4 = US4_0 │
00:01:10 verbose #6344 > │ let v98 : US3 = US3_1(v97) │
00:01:10 verbose #6345 > │ method15(v0, v96, v5, v98) │
00:01:10 verbose #6346 > │ else │
00:01:10 verbose #6347 > │ let v101 : string = $"{v1}{v4}" │
00:01:10 verbose #6348 > │ method15(v0, v101, v5, v3) │
00:01:10 verbose #6349 > │ | _ -> │
00:01:10 verbose #6350 > │ let v106 : bool = ' ' = v4 │
00:01:10 verbose #6351 > │ if v106 then │
00:01:10 verbose #6352 > │ let v107 : US3 = US3_2 │
00:01:10 verbose #6353 > │ method15(v0, v1, v5, v107) │
00:01:10 verbose #6354 > │ else │
00:01:10 verbose #6355 > │ let v110 : string = $"{v1}{v4}" │
00:01:10 verbose #6356 > │ method15(v0, v110, v5, v3) │
00:01:10 verbose #6357 > │ | US3_0 -> (* Start *) │
00:01:10 verbose #6358 > │ let v117 : bool = ' ' = v4 │
00:01:10 verbose #6359 > │ if v117 then │
00:01:10 verbose #6360 > │ let v118 : US3 = US3_2 │
00:01:10 verbose #6361 > │ method15(v0, v1, v5, v118) │
00:01:10 verbose #6362 > │ else │
00:01:10 verbose #6363 > │ let v121 : string = $"{v1}{v4}" │
00:01:10 verbose #6364 > │ method15(v0, v121, v5, v3) │
00:01:10 verbose #6365 > │ | _ -> │
00:01:10 verbose #6366 > │ match v3 with │
00:01:10 verbose #6367 > │ | US3_2 -> (* Arguments *) │
00:01:10 verbose #6368 > │ let v152 : string = "\\" │
00:01:10 verbose #6369 > │ let v153 : string = "/" │
00:01:10 verbose #6370 > │ let v154 : string = v1.Replace (v152, v153) │
00:01:10 verbose #6371 > │ struct (v154, v0) │
00:01:10 verbose #6372 > │ | US3_1(v140) -> (* Path *) │
00:01:10 verbose #6373 > │ match v140 with │
00:01:10 verbose #6374 > │ | US4_0 -> (* Quoted *) │
00:01:10 verbose #6375 > │ let v141 : string = "\\" │
00:01:10 verbose #6376 > │ let v142 : string = "/" │
00:01:10 verbose #6377 > │ let v143 : string = v1.Replace (v141, v142) │
00:01:10 verbose #6378 > │ struct (v143, v0) │
00:01:10 verbose #6379 > │ | _ -> │
00:01:10 verbose #6380 > │ let v144 : string = "\\" │
00:01:10 verbose #6381 > │ let v145 : string = "/" │
00:01:10 verbose #6382 > │ let v146 : string = v1.Replace (v144, v145) │
00:01:10 verbose #6383 > │ struct (v146, v0) │
00:01:10 verbose #6384 > │ | US3_0 -> (* Start *) │
00:01:10 verbose #6385 > │ let v149 : string = "\\" │
00:01:10 verbose #6386 > │ let v150 : string = "/" │
00:01:10 verbose #6387 > │ let v151 : string = v1.Replace (v149, v150) │
00:01:10 verbose #6388 > │ struct (v151, v0) │
00:01:10 verbose #6389 > │ and closure15 () (v0 : string) : US5 = │
00:01:10 verbose #6390 > │ US5_0(v0) │
00:01:10 verbose #6391 > │ and method16 () : (string -> US5) = │
00:01:10 verbose #6392 > │ closure15() │
00:01:10 verbose #6393 > │ and closure16 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:10 verbose #6394 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:10 verbose #6395 > │ option) () : string = │
00:01:10 verbose #6396 > │ let v4 : string = $"execute_with_options_async / options: %A{struct (v0, │
00:01:10 verbose #6397 > │ v1, v2, v3)}" │
00:01:10 verbose #6398 > │ v4 │
00:01:10 verbose #6399 > │ and method17 () : (unit -> string) = │
00:01:10 verbose #6400 > │ closure3() │
00:01:10 verbose #6401 > │ and closure18 () (v0 : (struct (bool * string * int32) -> Async<unit>)) : │
00:01:10 verbose #6402 > │ US6 = │
00:01:10 verbose #6403 > │ US6_0(v0) │
00:01:10 verbose #6404 > │ and method18 () : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:10 verbose #6405 > │ closure18() │
00:01:10 verbose #6406 > │ and closure19 (v0 : string) () : string = │
00:01:10 verbose #6407 > │ let v1 : string = $"> {v0}" │
00:01:10 verbose #6408 > │ v1 │
00:01:10 verbose #6409 > │ and closure17 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:10 verbose #6410 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:10 verbose #6411 > │ option, v4 : System.Diagnostics.Process, v5 : │
00:01:10 verbose #6412 > │ System.Collections.Concurrent.ConcurrentStack<string>) (v6 : │
00:01:10 verbose #6413 > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:10 verbose #6414 > │ let v7 : Async<unit> option = None │
00:01:10 verbose #6415 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:10 verbose #6416 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6417 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6418 > │ v9 │
00:01:10 verbose #6419 > │ #endif │
00:01:10 verbose #6420 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6421 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6422 > │ v10 │
00:01:10 verbose #6423 > │ #endif │
00:01:10 verbose #6424 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6425 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6426 > │ v11 │
00:01:10 verbose #6427 > │ #endif │
00:01:10 verbose #6428 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6429 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6430 > │ let v12 : Async<unit> option = None │
00:01:10 verbose #6431 > │ let mutable _v12 = v12 │
00:01:10 verbose #6432 > │ async { │
00:01:10 verbose #6433 > │ let v13 : string = v6.Data │
00:01:10 verbose #6434 > │ let v14 : string = null |> unbox<string> │
00:01:10 verbose #6435 > │ let v15 : bool = v13 = v14 │
00:01:10 verbose #6436 > │ let v16 : bool = v15 <> true │
00:01:10 verbose #6437 > │ if v16 then │
00:01:10 verbose #6438 > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:10 verbose #6439 > │ method18() │
00:01:10 verbose #6440 > │ let v18 : US6 = US6_1 │
00:01:10 verbose #6441 > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:10 verbose #6442 > │ match v19 with │
00:01:10 verbose #6443 > │ | US6_1 -> (* None *) │
00:01:10 verbose #6444 > │ () │
00:01:10 verbose #6445 > │ | US6_0(v20) -> (* Some *) │
00:01:10 verbose #6446 > │ let v21 : int32 = v4.Id │
00:01:10 verbose #6447 > │ let v22 : Async<unit> = v20 struct (false, v13, v21) │
00:01:10 verbose #6448 > │ do! v22 │
00:01:10 verbose #6449 > │ () │
00:01:10 verbose #6450 > │ let v23 : US0 = US0_0 │
00:01:10 verbose #6451 > │ let v24 : (unit -> string) = closure19(v13) │
00:01:10 verbose #6452 > │ let v25 : (unit -> string) = closure3() │
00:01:10 verbose #6453 > │ method4(v23, v24, v25) │
00:01:10 verbose #6454 > │ let v26 : string = "" │
00:01:10 verbose #6455 > │ let v27 : string = $"{v26}{v13}{v26}" │
00:01:10 verbose #6456 > │ let v28 : (string -> unit) = v5.Push │
00:01:10 verbose #6457 > │ v28 v27 │
00:01:10 verbose #6458 > │ } │
00:01:10 verbose #6459 > │ |> fun x -> _v12 <- Some x │
00:01:10 verbose #6460 > │ let v29 : Async<unit> = _v12 |> Option.get │
00:01:10 verbose #6461 > │ v29 │
00:01:10 verbose #6462 > │ #endif │
00:01:10 verbose #6463 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6464 > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6465 > │ v30 │
00:01:10 verbose #6466 > │ #endif │
00:01:10 verbose #6467 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6468 > │ let v31 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:10 verbose #6469 > │ v31 │
00:01:10 verbose #6470 > │ #endif │
00:01:10 verbose #6471 > │ |> fun x -> _v7 <- Some x │
00:01:10 verbose #6472 > │ let v32 : Async<unit> = _v7.Value │
00:01:10 verbose #6473 > │ let v33 : unit option = None │
00:01:10 verbose #6474 > │ let v34 : bool = true in let mutable _v33 = v33 │
00:01:10 verbose #6475 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6476 > │ null |> unbox<unit> │
00:01:10 verbose #6477 > │ () │
00:01:10 verbose #6478 > │ #endif │
00:01:10 verbose #6479 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6480 > │ null |> unbox<unit> │
00:01:10 verbose #6481 > │ () │
00:01:10 verbose #6482 > │ #endif │
00:01:10 verbose #6483 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6484 > │ null |> unbox<unit> │
00:01:10 verbose #6485 > │ () │
00:01:10 verbose #6486 > │ #endif │
00:01:10 verbose #6487 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6488 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6489 > │ let v35 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:10 verbose #6490 > │ v35 v32 │
00:01:10 verbose #6491 > │ () │
00:01:10 verbose #6492 > │ #endif │
00:01:10 verbose #6493 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6494 > │ null |> unbox<unit> │
00:01:10 verbose #6495 > │ () │
00:01:10 verbose #6496 > │ #endif │
00:01:10 verbose #6497 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6498 > │ Unchecked.defaultof<unit> │
00:01:10 verbose #6499 > │ () │
00:01:10 verbose #6500 > │ #endif │
00:01:10 verbose #6501 > │ |> fun x -> _v33 <- Some x │
00:01:10 verbose #6502 > │ _v33.Value │
00:01:10 verbose #6503 > │ () │
00:01:10 verbose #6504 > │ and closure20 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:10 verbose #6505 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:10 verbose #6506 > │ option, v4 : System.Diagnostics.Process, v5 : │
00:01:10 verbose #6507 > │ System.Collections.Concurrent.ConcurrentStack<string>) (v6 : │
00:01:10 verbose #6508 > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:10 verbose #6509 > │ let v7 : Async<unit> option = None │
00:01:10 verbose #6510 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:10 verbose #6511 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6512 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6513 > │ v9 │
00:01:10 verbose #6514 > │ #endif │
00:01:10 verbose #6515 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6516 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6517 > │ v10 │
00:01:10 verbose #6518 > │ #endif │
00:01:10 verbose #6519 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6520 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6521 > │ v11 │
00:01:10 verbose #6522 > │ #endif │
00:01:10 verbose #6523 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6524 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6525 > │ let v12 : Async<unit> option = None │
00:01:10 verbose #6526 > │ let mutable _v12 = v12 │
00:01:10 verbose #6527 > │ async { │
00:01:10 verbose #6528 > │ let v13 : string = v6.Data │
00:01:10 verbose #6529 > │ let v14 : string = null |> unbox<string> │
00:01:10 verbose #6530 > │ let v15 : bool = v13 = v14 │
00:01:10 verbose #6531 > │ let v16 : bool = v15 <> true │
00:01:10 verbose #6532 > │ if v16 then │
00:01:10 verbose #6533 > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:10 verbose #6534 > │ method18() │
00:01:10 verbose #6535 > │ let v18 : US6 = US6_1 │
00:01:10 verbose #6536 > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:10 verbose #6537 > │ match v19 with │
00:01:10 verbose #6538 > │ | US6_1 -> (* None *) │
00:01:10 verbose #6539 > │ () │
00:01:10 verbose #6540 > │ | US6_0(v20) -> (* Some *) │
00:01:10 verbose #6541 > │ let v21 : int32 = v4.Id │
00:01:10 verbose #6542 > │ let v22 : Async<unit> = v20 struct (true, v13, v21) │
00:01:10 verbose #6543 > │ do! v22 │
00:01:10 verbose #6544 > │ () │
00:01:10 verbose #6545 > │ let v23 : US0 = US0_0 │
00:01:10 verbose #6546 > │ let v24 : (unit -> string) = closure19(v13) │
00:01:10 verbose #6547 > │ let v25 : (unit -> string) = closure3() │
00:01:10 verbose #6548 > │ method4(v23, v24, v25) │
00:01:10 verbose #6549 > │ let v26 : string = "[" │
00:01:10 verbose #6550 > │ let v27 : string = "]" │
00:01:10 verbose #6551 > │ let v28 : string = $"{v26}{v13}{v27}" │
00:01:10 verbose #6552 > │ let v29 : (string -> unit) = v5.Push │
00:01:10 verbose #6553 > │ v29 v28 │
00:01:10 verbose #6554 > │ } │
00:01:10 verbose #6555 > │ |> fun x -> _v12 <- Some x │
00:01:10 verbose #6556 > │ let v30 : Async<unit> = _v12 |> Option.get │
00:01:10 verbose #6557 > │ v30 │
00:01:10 verbose #6558 > │ #endif │
00:01:10 verbose #6559 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6560 > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:01:10 verbose #6561 > │ v31 │
00:01:10 verbose #6562 > │ #endif │
00:01:10 verbose #6563 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6564 > │ let v32 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:10 verbose #6565 > │ v32 │
00:01:10 verbose #6566 > │ #endif │
00:01:10 verbose #6567 > │ |> fun x -> _v7 <- Some x │
00:01:10 verbose #6568 > │ let v33 : Async<unit> = _v7.Value │
00:01:10 verbose #6569 > │ let v34 : unit option = None │
00:01:10 verbose #6570 > │ let v35 : bool = true in let mutable _v34 = v34 │
00:01:10 verbose #6571 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6572 > │ null |> unbox<unit> │
00:01:10 verbose #6573 > │ () │
00:01:10 verbose #6574 > │ #endif │
00:01:10 verbose #6575 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6576 > │ null |> unbox<unit> │
00:01:10 verbose #6577 > │ () │
00:01:10 verbose #6578 > │ #endif │
00:01:10 verbose #6579 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6580 > │ null |> unbox<unit> │
00:01:10 verbose #6581 > │ () │
00:01:10 verbose #6582 > │ #endif │
00:01:10 verbose #6583 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6584 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6585 > │ let v36 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:10 verbose #6586 > │ v36 v33 │
00:01:10 verbose #6587 > │ () │
00:01:10 verbose #6588 > │ #endif │
00:01:10 verbose #6589 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6590 > │ null |> unbox<unit> │
00:01:10 verbose #6591 > │ () │
00:01:10 verbose #6592 > │ #endif │
00:01:10 verbose #6593 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6594 > │ Unchecked.defaultof<unit> │
00:01:10 verbose #6595 > │ () │
00:01:10 verbose #6596 > │ #endif │
00:01:10 verbose #6597 > │ |> fun x -> _v34 <- Some x │
00:01:10 verbose #6598 > │ _v34.Value │
00:01:10 verbose #6599 > │ () │
00:01:10 verbose #6600 > │ and closure21 () (v0 : System.Threading.CancellationToken) : US7 = │
00:01:10 verbose #6601 > │ US7_0(v0) │
00:01:10 verbose #6602 > │ and method19 () : (System.Threading.CancellationToken -> US7) = │
00:01:10 verbose #6603 > │ closure21() │
00:01:10 verbose #6604 > │ and closure22 (v0 : System.Diagnostics.Process) () : unit = │
00:01:10 verbose #6605 > │ let v1 : bool option = None │
00:01:10 verbose #6606 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:10 verbose #6607 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6608 > │ let v3 : bool = null |> unbox<bool> │
00:01:10 verbose #6609 > │ v3 │
00:01:10 verbose #6610 > │ #endif │
00:01:10 verbose #6611 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6612 > │ let v4 : bool = null |> unbox<bool> │
00:01:10 verbose #6613 > │ v4 │
00:01:10 verbose #6614 > │ #endif │
00:01:10 verbose #6615 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6616 > │ let v5 : bool = null |> unbox<bool> │
00:01:10 verbose #6617 > │ v5 │
00:01:10 verbose #6618 > │ #endif │
00:01:10 verbose #6619 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6620 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6621 > │ let v6 : bool = v0.HasExited │
00:01:10 verbose #6622 > │ v6 │
00:01:10 verbose #6623 > │ #endif │
00:01:10 verbose #6624 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6625 > │ let v7 : bool = null |> unbox<bool> │
00:01:10 verbose #6626 > │ v7 │
00:01:10 verbose #6627 > │ #endif │
00:01:10 verbose #6628 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6629 > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:10 verbose #6630 > │ v8 │
00:01:10 verbose #6631 > │ #endif │
00:01:10 verbose #6632 > │ |> fun x -> _v1 <- Some x │
00:01:10 verbose #6633 > │ let v9 : bool = _v1.Value │
00:01:10 verbose #6634 > │ let v10 : bool = v9 = false │
00:01:10 verbose #6635 > │ if v10 then │
00:01:10 verbose #6636 > │ let v11 : unit option = None │
00:01:10 verbose #6637 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:01:10 verbose #6638 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6639 > │ null |> unbox<unit> │
00:01:10 verbose #6640 > │ () │
00:01:10 verbose #6641 > │ #endif │
00:01:10 verbose #6642 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6643 > │ null |> unbox<unit> │
00:01:10 verbose #6644 > │ () │
00:01:10 verbose #6645 > │ #endif │
00:01:10 verbose #6646 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6647 > │ null |> unbox<unit> │
00:01:10 verbose #6648 > │ () │
00:01:10 verbose #6649 > │ #endif │
00:01:10 verbose #6650 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6651 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6652 > │ let v13 : (unit -> unit) = v0.Kill │
00:01:10 verbose #6653 > │ v13 () │
00:01:10 verbose #6654 > │ () │
00:01:10 verbose #6655 > │ #endif │
00:01:10 verbose #6656 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6657 > │ null |> unbox<unit> │
00:01:10 verbose #6658 > │ () │
00:01:10 verbose #6659 > │ #endif │
00:01:10 verbose #6660 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:10 verbose #6661 > │ FABLE_COMPILER_DART │
00:01:10 verbose #6662 > │ Unchecked.defaultof<unit> │
00:01:10 verbose #6663 > │ () │
00:01:10 verbose #6664 > │ #endif │
00:01:10 verbose #6665 > │ |> fun x -> _v11 <- Some x │
00:01:10 verbose #6666 > │ _v11.Value │
00:01:10 verbose #6667 > │ () │
00:01:10 verbose #6668 > │ and closure23 (v0 : System.Threading.Tasks.TaskCanceledException) () : │
00:01:10 verbose #6669 > │ string = │
00:01:10 verbose #6670 > │ let v1 : string = $"execute_with_options_async / WaitForExitAsync / ex: │
00:01:10 verbose #6671 > │ %A{v0}" │
00:01:10 verbose #6672 > │ v1 │
00:01:10 verbose #6673 > │ and method20 () : string = │
00:01:10 verbose #6674 > │ let v0 : string = "\n" │
00:01:10 verbose #6675 > │ v0 │
00:01:10 verbose #6676 > │ and closure24 (v0 : int32, v1 : string) () : string = │
00:01:10 verbose #6677 > │ let v2 : string = $"execute_with_options_async / exit_code: {v0} / │
00:01:10 verbose #6678 > │ output.Length: {v1.Length}" │
00:01:10 verbose #6679 > │ v2 │
00:01:10 verbose #6680 > │ and closure25 () () : string = │
00:01:10 verbose #6681 > │ let v0 : string = "2" │
00:01:10 verbose #6682 > │ v0 │
00:01:10 verbose #6683 > │ and closure26 () () : string = │
00:01:10 verbose #6684 > │ let v0 : string = "3" │
00:01:10 verbose #6685 > │ v0 │
00:01:10 verbose #6686 > │ and closure27 () () : string = │
00:01:10 verbose #6687 > │ let v0 : string = "4" │
00:01:10 verbose #6688 > │ v0 │
00:01:10 verbose #6689 > │ and closure28 () () : string = │
00:01:10 verbose #6690 > │ let v0 : string = "5" │
00:01:10 verbose #6691 > │ v0 │
00:01:10 verbose #6692 > │ and closure29 () struct (v0 : int32, v1 : string) : US9 = │
00:01:10 verbose #6693 > │ US9_0(v0, v1) │
00:01:10 verbose #6694 > │ and closure30 () (v0 : exn) : US9 = │
00:01:10 verbose #6695 > │ US9_1(v0) │
00:01:10 verbose #6696 > │ and closure31 () () : string = │
00:01:10 verbose #6697 > │ let v0 : string = "run_with_timeout_async" │
00:01:10 verbose #6698 > │ v0 │
00:01:10 verbose #6699 > │ and closure32 () () : string = │
00:01:10 verbose #6700 > │ let v0 : (unit -> string) = closure3() │
00:01:10 verbose #6701 > │ let v1 : string = $"timeout: {10000} / {v0 ()}" │
00:01:10 verbose #6702 > │ v1 │
00:01:10 verbose #6703 > │ and closure33 (v0 : string) () : string = │
00:01:10 verbose #6704 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:01:10 verbose #6705 > │ v1 │
00:01:10 verbose #6706 > │ and method21 (v0 : bool) : bool = │
00:01:10 verbose #6707 > │ v0 │
00:01:10 verbose #6708 > │ and method22 () : string = │
00:01:10 verbose #6709 > │ let v0 : string = "System.Threading.Tasks.TaskCanceledException: A task │
00:01:10 verbose #6710 > │ was canceled." │
00:01:10 verbose #6711 > │ v0 │
00:01:10 verbose #6712 > │ and method0 () : unit = │
00:01:10 verbose #6713 > │ let v0 : struct (string * System.IDisposable) option = None │
00:01:10 verbose #6714 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:10 verbose #6715 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6716 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:01:10 verbose #6717 > │ (string * System.IDisposable)> │
00:01:10 verbose #6718 > │ struct (v2, v3) │
00:01:10 verbose #6719 > │ #endif │
00:01:10 verbose #6720 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6721 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:01:10 verbose #6722 > │ (string * System.IDisposable)> │
00:01:10 verbose #6723 > │ struct (v4, v5) │
00:01:10 verbose #6724 > │ #endif │
00:01:10 verbose #6725 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6726 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:01:10 verbose #6727 > │ (string * System.IDisposable)> │
00:01:10 verbose #6728 > │ struct (v6, v7) │
00:01:10 verbose #6729 > │ #endif │
00:01:10 verbose #6730 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6731 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6732 > │ let v8 : string option = None │
00:01:10 verbose #6733 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:01:10 verbose #6734 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6735 > │ let v10 : string = null |> unbox<string> │
00:01:10 verbose #6736 > │ v10 │
00:01:10 verbose #6737 > │ #endif │
00:01:10 verbose #6738 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6739 > │ let v11 : string = null |> unbox<string> │
00:01:10 verbose #6740 > │ v11 │
00:01:10 verbose #6741 > │ #endif │
00:01:10 verbose #6742 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6743 > │ let v12 : string = null |> unbox<string> │
00:01:10 verbose #6744 > │ v12 │
00:01:10 verbose #6745 > │ #endif │
00:01:10 verbose #6746 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6747 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6748 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:01:10 verbose #6749 > │ let v14 : string = v13 () │
00:01:10 verbose #6750 > │ let v15 : (unit -> string) = closure0() │
00:01:10 verbose #6751 > │ let v16 : string = $"!{v15 ()}" │
00:01:10 verbose #6752 > │ let v17 : string option = None │
00:01:10 verbose #6753 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:01:10 verbose #6754 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6755 > │ let v19 : string = method1(v14) │
00:01:10 verbose #6756 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #6757 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:01:10 verbose #6758 > │ let v22 : string = "String::from($0)" │
00:01:10 verbose #6759 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:01:10 verbose #6760 > │ v22 │
00:01:10 verbose #6761 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:01:10 verbose #6762 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:01:10 verbose #6763 > │ let v26 : string = method1(v16) │
00:01:10 verbose #6764 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #6765 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:01:10 verbose #6766 > │ let v29 : string = "String::from($0)" │
00:01:10 verbose #6767 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:01:10 verbose #6768 > │ v29 │
00:01:10 verbose #6769 > │ let v31 : string = "$0.join($1)" │
00:01:10 verbose #6770 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:10 verbose #6771 > │ (v25, v30) v31 │
00:01:10 verbose #6772 > │ let v33 : string = "$0.display().to_string()" │
00:01:10 verbose #6773 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:01:10 verbose #6774 > │ v33 │
00:01:10 verbose #6775 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:01:10 verbose #6776 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:01:10 verbose #6777 > │ v36 │
00:01:10 verbose #6778 > │ #endif │
00:01:10 verbose #6779 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6780 > │ let v37 : string = null |> unbox<string> │
00:01:10 verbose #6781 > │ v37 │
00:01:10 verbose #6782 > │ #endif │
00:01:10 verbose #6783 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6784 > │ let v38 : string = null |> unbox<string> │
00:01:10 verbose #6785 > │ v38 │
00:01:10 verbose #6786 > │ #endif │
00:01:10 verbose #6787 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6788 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6789 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:01:10 verbose #6790 > │ v39 │
00:01:10 verbose #6791 > │ #endif │
00:01:10 verbose #6792 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6793 > │ let v40 : string = "path" │
00:01:10 verbose #6794 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:01:10 verbose #6795 > │ let v42 : string = method2(v14) │
00:01:10 verbose #6796 > │ let v43 : string = method3(v16) │
00:01:10 verbose #6797 > │ let v44 : string = "v41.join(v42, v43)" │
00:01:10 verbose #6798 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:01:10 verbose #6799 > │ v45 │
00:01:10 verbose #6800 > │ #endif │
00:01:10 verbose #6801 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6802 > │ let v46 : string = Unchecked.defaultof<string> │
00:01:10 verbose #6803 > │ v46 │
00:01:10 verbose #6804 > │ #endif │
00:01:10 verbose #6805 > │ |> fun x -> _v17 <- Some x │
00:01:10 verbose #6806 > │ let v47 : string = _v17.Value │
00:01:10 verbose #6807 > │ let v48 : System.DateTime = System.DateTime.Now │
00:01:10 verbose #6808 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:01:10 verbose #6809 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:01:10 verbose #6810 > │ let v51 : string = v50 v49 │
00:01:10 verbose #6811 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:01:10 verbose #6812 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:01:10 verbose #6813 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:01:10 verbose #6814 > │ let v55 : string = v54 v53 │
00:01:10 verbose #6815 > │ let v56 : string option = None │
00:01:10 verbose #6816 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:01:10 verbose #6817 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6818 > │ let v58 : string = method1(v47) │
00:01:10 verbose #6819 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #6820 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:01:10 verbose #6821 > │ let v61 : string = "String::from($0)" │
00:01:10 verbose #6822 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:01:10 verbose #6823 > │ v61 │
00:01:10 verbose #6824 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:01:10 verbose #6825 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:01:10 verbose #6826 > │ let v65 : string = method1(v55) │
00:01:10 verbose #6827 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:10 verbose #6828 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:01:10 verbose #6829 > │ let v68 : string = "String::from($0)" │
00:01:10 verbose #6830 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:01:10 verbose #6831 > │ v68 │
00:01:10 verbose #6832 > │ let v70 : string = "$0.join($1)" │
00:01:10 verbose #6833 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:10 verbose #6834 > │ (v64, v69) v70 │
00:01:10 verbose #6835 > │ let v72 : string = "$0.display().to_string()" │
00:01:10 verbose #6836 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:01:10 verbose #6837 > │ v72 │
00:01:10 verbose #6838 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:01:10 verbose #6839 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:01:10 verbose #6840 > │ v75 │
00:01:10 verbose #6841 > │ #endif │
00:01:10 verbose #6842 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6843 > │ let v76 : string = null |> unbox<string> │
00:01:10 verbose #6844 > │ v76 │
00:01:10 verbose #6845 > │ #endif │
00:01:10 verbose #6846 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6847 > │ let v77 : string = null |> unbox<string> │
00:01:10 verbose #6848 > │ v77 │
00:01:10 verbose #6849 > │ #endif │
00:01:10 verbose #6850 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6851 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6852 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:01:10 verbose #6853 > │ v78 │
00:01:10 verbose #6854 > │ #endif │
00:01:10 verbose #6855 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6856 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:01:10 verbose #6857 > │ let v80 : string = method2(v47) │
00:01:10 verbose #6858 > │ let v81 : string = method3(v55) │
00:01:10 verbose #6859 > │ let v82 : string = "v79.join(v80, v81)" │
00:01:10 verbose #6860 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:01:10 verbose #6861 > │ v83 │
00:01:10 verbose #6862 > │ #endif │
00:01:10 verbose #6863 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6864 > │ let v84 : string = Unchecked.defaultof<string> │
00:01:10 verbose #6865 > │ v84 │
00:01:10 verbose #6866 > │ #endif │
00:01:10 verbose #6867 > │ |> fun x -> _v56 <- Some x │
00:01:10 verbose #6868 > │ let v85 : string = _v56.Value │
00:01:10 verbose #6869 > │ v85 │
00:01:10 verbose #6870 > │ #endif │
00:01:10 verbose #6871 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6872 > │ let v86 : string = null |> unbox<string> │
00:01:10 verbose #6873 > │ v86 │
00:01:10 verbose #6874 > │ #endif │
00:01:10 verbose #6875 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6876 > │ let v87 : string = Unchecked.defaultof<string> │
00:01:10 verbose #6877 > │ v87 │
00:01:10 verbose #6878 > │ #endif │
00:01:10 verbose #6879 > │ |> fun x -> _v8 <- Some x │
00:01:10 verbose #6880 > │ let v88 : string = _v8.Value │
00:01:10 verbose #6881 > │ let v89 : System.IO.DirectoryInfo option = None │
00:01:10 verbose #6882 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:01:10 verbose #6883 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6884 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:01:10 verbose #6885 > │ unbox<System.IO.DirectoryInfo> │
00:01:10 verbose #6886 > │ v91 │
00:01:10 verbose #6887 > │ #endif │
00:01:10 verbose #6888 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6889 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:01:10 verbose #6890 > │ unbox<System.IO.DirectoryInfo> │
00:01:10 verbose #6891 > │ v92 │
00:01:10 verbose #6892 > │ #endif │
00:01:10 verbose #6893 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6894 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:01:10 verbose #6895 > │ unbox<System.IO.DirectoryInfo> │
00:01:10 verbose #6896 > │ v93 │
00:01:10 verbose #6897 > │ #endif │
00:01:10 verbose #6898 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 verbose #6899 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 verbose #6900 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:01:10 verbose #6901 > │ System.IO.Directory.CreateDirectory │
00:01:10 verbose #6902 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:01:10 verbose #6903 > │ v95 │
00:01:10 verbose #6904 > │ #endif │
00:01:10 verbose #6905 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 verbose #6906 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:01:10 verbose #6907 > │ unbox<System.IO.DirectoryInfo> │
00:01:10 verbose #6908 > │ v96 │
00:01:10 verbose #6909 > │ #endif │
00:01:10 verbose #6910 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 verbose #6911 > │ let v97 : System.IO.DirectoryInfo = │
00:01:10 verbose #6912 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:01:10 verbose #6913 > │ v97 │
00:01:10 verbose #6914 > │ #endif │
00:01:10 verbose #6915 > │ |> fun x -> _v89 <- Some x │
00:01:10 verbose #6916 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:01:10 verbose #6917 > │ let v99 : bool option = None │
00:01:10 verbose #6918 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:01:10 verbose #6919 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:10 verbose #6920 > │ let v101 : bool = null |> unbox<bool> │
00:01:10 verbose #6921 > │ v101 │
00:01:10 verbose #6922 > │ #endif │
00:01:10 verbose #6923 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:10 verbose #6924 > │ let v102 : bool = null |> unbox<bool> │
00:01:10 verbose #6925 > │ v102 │
00:01:10 verbose #6926 > │ #endif │
00:01:10 verbose #6927 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 verbose #6928 > │ let v103 : bool = null |> unbox<bool> │
00:01:10 verbose #6929 > │ v103 │
00:01:10 verbose #6930 > │ #endif │
00:01:11 verbose #6931 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #6932 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #6933 > │ let v104 : bool = v98.Exists │
00:01:11 verbose #6934 > │ v104 │
00:01:11 verbose #6935 > │ #endif │
00:01:11 verbose #6936 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #6937 > │ let v105 : bool = null |> unbox<bool> │
00:01:11 verbose #6938 > │ v105 │
00:01:11 verbose #6939 > │ #endif │
00:01:11 verbose #6940 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #6941 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:01:11 verbose #6942 > │ v106 │
00:01:11 verbose #6943 > │ #endif │
00:01:11 verbose #6944 > │ |> fun x -> _v99 <- Some x │
00:01:11 verbose #6945 > │ let v107 : bool = _v99.Value │
00:01:11 verbose #6946 > │ let v108 : bool = v107 = false │
00:01:11 verbose #6947 > │ if v108 then │
00:01:11 verbose #6948 > │ let v109 : System.DateTime option = None │
00:01:11 verbose #6949 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:01:11 verbose #6950 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #6951 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:01:11 verbose #6952 > │ v111 │
00:01:11 verbose #6953 > │ #endif │
00:01:11 verbose #6954 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #6955 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:01:11 verbose #6956 > │ v112 │
00:01:11 verbose #6957 > │ #endif │
00:01:11 verbose #6958 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #6959 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:01:11 verbose #6960 > │ v113 │
00:01:11 verbose #6961 > │ #endif │
00:01:11 verbose #6962 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #6963 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #6964 > │ let v114 : System.DateTime = v98.CreationTime │
00:01:11 verbose #6965 > │ v114 │
00:01:11 verbose #6966 > │ #endif │
00:01:11 verbose #6967 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #6968 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:01:11 verbose #6969 > │ v115 │
00:01:11 verbose #6970 > │ #endif │
00:01:11 verbose #6971 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:11 verbose #6972 > │ FABLE_COMPILER_DART │
00:01:11 verbose #6973 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:01:11 verbose #6974 > │ v116 │
00:01:11 verbose #6975 > │ #endif │
00:01:11 verbose #6976 > │ |> fun x -> _v109 <- Some x │
00:01:11 verbose #6977 > │ let v117 : System.DateTime = _v109.Value │
00:01:11 verbose #6978 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:01:11 verbose #6979 > │ let v119 : string = $"%A{v118}" │
00:01:11 verbose #6980 > │ let v120 : US0 = US0_1 │
00:01:11 verbose #6981 > │ let v121 : (unit -> string) = closure1() │
00:01:11 verbose #6982 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:01:11 verbose #6983 > │ method4(v120, v121, v122) │
00:01:11 verbose #6984 > │ let v123 : System.IDisposable option = None │
00:01:11 verbose #6985 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:01:11 verbose #6986 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #6987 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:11 verbose #6988 > │ v125 │
00:01:11 verbose #6989 > │ #endif │
00:01:11 verbose #6990 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #6991 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:11 verbose #6992 > │ v126 │
00:01:11 verbose #6993 > │ #endif │
00:01:11 verbose #6994 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #6995 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:11 verbose #6996 > │ v127 │
00:01:11 verbose #6997 > │ #endif │
00:01:11 verbose #6998 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #6999 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7000 > │ let v128 : (unit -> unit) = closure8(v88) │
00:01:11 verbose #7001 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:01:11 verbose #7002 > │ _.Dispose () = v128 () } │
00:01:11 verbose #7003 > │ v129 │
00:01:11 verbose #7004 > │ #endif │
00:01:11 verbose #7005 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7006 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:01:11 verbose #7007 > │ v130 │
00:01:11 verbose #7008 > │ #endif │
00:01:11 verbose #7009 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7010 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:01:11 verbose #7011 > │ v131 │
00:01:11 verbose #7012 > │ #endif │
00:01:11 verbose #7013 > │ |> fun x -> _v123 <- Some x │
00:01:11 verbose #7014 > │ let v132 : System.IDisposable = _v123.Value │
00:01:11 verbose #7015 > │ struct (v88, v132) │
00:01:11 verbose #7016 > │ #endif │
00:01:11 verbose #7017 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7018 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:01:11 verbose #7019 > │ unbox<struct (string * System.IDisposable)> │
00:01:11 verbose #7020 > │ struct (v133, v134) │
00:01:11 verbose #7021 > │ #endif │
00:01:11 verbose #7022 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7023 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:01:11 verbose #7024 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:01:11 verbose #7025 > │ struct (v135, v136) │
00:01:11 verbose #7026 > │ #endif │
00:01:11 verbose #7027 > │ |> fun x -> _v0 <- Some x │
00:01:11 verbose #7028 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:01:11 verbose #7029 > │ use v138 = v138 │
00:01:11 verbose #7030 > │ let v139 : System.IDisposable = v138 │
00:01:11 verbose #7031 > │ let v140 : string option = None │
00:01:11 verbose #7032 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:01:11 verbose #7033 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7034 > │ let v142 : string = method1(v137) │
00:01:11 verbose #7035 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:11 verbose #7036 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:01:11 verbose #7037 > │ let v145 : string = "String::from($0)" │
00:01:11 verbose #7038 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:01:11 verbose #7039 > │ v145 │
00:01:11 verbose #7040 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:01:11 verbose #7041 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:01:11 verbose #7042 > │ v147 │
00:01:11 verbose #7043 > │ let v149 : string = method11() │
00:01:11 verbose #7044 > │ let v150 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:11 verbose #7045 > │ let v151 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v149 v150 │
00:01:11 verbose #7046 > │ let v152 : string = "String::from($0)" │
00:01:11 verbose #7047 > │ let v153 : std_string_String = Fable.Core.RustInterop.emitRustExpr v151 │
00:01:11 verbose #7048 > │ v152 │
00:01:11 verbose #7049 > │ let v154 : string = "$0.join($1)" │
00:01:11 verbose #7050 > │ let v155 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:01:11 verbose #7051 > │ (v148, v153) v154 │
00:01:11 verbose #7052 > │ let v156 : string = "$0.display().to_string()" │
00:01:11 verbose #7053 > │ let v157 : std_string_String = Fable.Core.RustInterop.emitRustExpr v155 │
00:01:11 verbose #7054 > │ v156 │
00:01:11 verbose #7055 > │ let v158 : string = "fable_library_rust::String_::fromString($0)" │
00:01:11 verbose #7056 > │ let v159 : string = Fable.Core.RustInterop.emitRustExpr v157 v158 │
00:01:11 verbose #7057 > │ v159 │
00:01:11 verbose #7058 > │ #endif │
00:01:11 verbose #7059 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7060 > │ let v160 : string = null |> unbox<string> │
00:01:11 verbose #7061 > │ v160 │
00:01:11 verbose #7062 > │ #endif │
00:01:11 verbose #7063 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7064 > │ let v161 : string = null |> unbox<string> │
00:01:11 verbose #7065 > │ v161 │
00:01:11 verbose #7066 > │ #endif │
00:01:11 verbose #7067 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7068 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7069 > │ let v162 : string = "test.txt" │
00:01:11 verbose #7070 > │ let v163 : string = System.IO.Path.Combine (v137, v162) │
00:01:11 verbose #7071 > │ v163 │
00:01:11 verbose #7072 > │ #endif │
00:01:11 verbose #7073 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7074 > │ let v164 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:01:11 verbose #7075 > │ let v165 : string = method2(v137) │
00:01:11 verbose #7076 > │ let v166 : string = method12() │
00:01:11 verbose #7077 > │ let v167 : string = "v164.join(v165, v166)" │
00:01:11 verbose #7078 > │ let v168 : string = Fable.Core.JsInterop.emitJsExpr () v167 │
00:01:11 verbose #7079 > │ v168 │
00:01:11 verbose #7080 > │ #endif │
00:01:11 verbose #7081 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7082 > │ let v169 : string = Unchecked.defaultof<string> │
00:01:11 verbose #7083 > │ v169 │
00:01:11 verbose #7084 > │ #endif │
00:01:11 verbose #7085 > │ |> fun x -> _v140 <- Some x │
00:01:11 verbose #7086 > │ let v170 : string = _v140.Value │
00:01:11 verbose #7087 > │ let v171 : string = @$"pwsh -c ""Get-Content {v170}""" │
00:01:11 verbose #7088 > │ let v172 : Async<struct (int32 * string)> option = None │
00:01:11 verbose #7089 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:01:11 verbose #7090 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7091 > │ let v174 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7092 > │ (int32 * string)>> │
00:01:11 verbose #7093 > │ v174 │
00:01:11 verbose #7094 > │ #endif │
00:01:11 verbose #7095 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7096 > │ let v175 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7097 > │ (int32 * string)>> │
00:01:11 verbose #7098 > │ v175 │
00:01:11 verbose #7099 > │ #endif │
00:01:11 verbose #7100 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7101 > │ let v176 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7102 > │ (int32 * string)>> │
00:01:11 verbose #7103 > │ v176 │
00:01:11 verbose #7104 > │ #endif │
00:01:11 verbose #7105 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7106 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7107 > │ let v177 : Async<struct (int32 * string)> option = None │
00:01:11 verbose #7108 > │ let mutable _v177 = v177 │
00:01:11 verbose #7109 > │ async { │
00:01:11 verbose #7110 > │ let v178 : Async<unit> option = None │
00:01:11 verbose #7111 > │ let v179 : bool = true in let mutable _v178 = v178 │
00:01:11 verbose #7112 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7113 > │ let v180 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7114 > │ v180 │
00:01:11 verbose #7115 > │ #endif │
00:01:11 verbose #7116 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7117 > │ let v181 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7118 > │ v181 │
00:01:11 verbose #7119 > │ #endif │
00:01:11 verbose #7120 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7121 > │ let v182 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7122 > │ v182 │
00:01:11 verbose #7123 > │ #endif │
00:01:11 verbose #7124 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7125 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7126 > │ let v183 : string = "0" │
00:01:11 verbose #7127 > │ let v184 : System.Threading.Tasks.Task = │
00:01:11 verbose #7128 > │ System.IO.File.WriteAllTextAsync (v170, v183) │
00:01:11 verbose #7129 > │ let v185 : Async<unit> option = None │
00:01:11 verbose #7130 > │ let v186 : bool = true in let mutable _v185 = v185 │
00:01:11 verbose #7131 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7132 > │ let v187 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7133 > │ v187 │
00:01:11 verbose #7134 > │ #endif │
00:01:11 verbose #7135 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7136 > │ let v188 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7137 > │ v188 │
00:01:11 verbose #7138 > │ #endif │
00:01:11 verbose #7139 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7140 > │ let v189 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7141 > │ v189 │
00:01:11 verbose #7142 > │ #endif │
00:01:11 verbose #7143 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7144 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7145 > │ let v190 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:11 verbose #7146 > │ Async.AwaitTask │
00:01:11 verbose #7147 > │ let v191 : Async<unit> = v190 v184 │
00:01:11 verbose #7148 > │ v191 │
00:01:11 verbose #7149 > │ #endif │
00:01:11 verbose #7150 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7151 > │ let v192 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7152 > │ v192 │
00:01:11 verbose #7153 > │ #endif │
00:01:11 verbose #7154 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7155 > │ let v193 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:11 verbose #7156 > │ v193 │
00:01:11 verbose #7157 > │ #endif │
00:01:11 verbose #7158 > │ |> fun x -> _v185 <- Some x │
00:01:11 verbose #7159 > │ let v194 : Async<unit> = _v185.Value │
00:01:11 verbose #7160 > │ v194 │
00:01:11 verbose #7161 > │ #endif │
00:01:11 verbose #7162 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7163 > │ let v195 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7164 > │ v195 │
00:01:11 verbose #7165 > │ #endif │
00:01:11 verbose #7166 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7167 > │ let v196 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:11 verbose #7168 > │ v196 │
00:01:11 verbose #7169 > │ #endif │
00:01:11 verbose #7170 > │ |> fun x -> _v178 <- Some x │
00:01:11 verbose #7171 > │ let v197 : Async<unit> = _v178.Value │
00:01:11 verbose #7172 > │ do! v197 │
00:01:11 verbose #7173 > │ let v198 : System.Threading.CancellationTokenSource = new │
00:01:11 verbose #7174 > │ System.Threading.CancellationTokenSource () │
00:01:11 verbose #7175 > │ let v199 : US0 = US0_1 │
00:01:11 verbose #7176 > │ let v200 : (unit -> string) = closure12() │
00:01:11 verbose #7177 > │ let v201 : (unit -> string) = closure3() │
00:01:11 verbose #7178 > │ method4(v199, v200, v201) │
00:01:11 verbose #7179 > │ let v202 : System.Threading.CancellationToken option = None │
00:01:11 verbose #7180 > │ let v203 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:11 verbose #7181 > │ let v204 : string option = None │
00:01:11 verbose #7182 > │ let v205 : System.Threading.CancellationToken = v198.Token │
00:01:11 verbose #7183 > │ let v206 : System.Threading.CancellationToken option = Some v205 │
00:01:11 verbose #7184 > │ let v207 : Async<struct (int32 * string)> option = None │
00:01:11 verbose #7185 > │ let v208 : bool = true in let mutable _v207 = v207 │
00:01:11 verbose #7186 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7187 > │ let v209 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7188 > │ (int32 * string)>> │
00:01:11 verbose #7189 > │ v209 │
00:01:11 verbose #7190 > │ #endif │
00:01:11 verbose #7191 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7192 > │ let v210 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7193 > │ (int32 * string)>> │
00:01:11 verbose #7194 > │ v210 │
00:01:11 verbose #7195 > │ #endif │
00:01:11 verbose #7196 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7197 > │ let v211 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7198 > │ (int32 * string)>> │
00:01:11 verbose #7199 > │ v211 │
00:01:11 verbose #7200 > │ #endif │
00:01:11 verbose #7201 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7202 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7203 > │ let v212 : Async<struct (int32 * string)> option = None │
00:01:11 verbose #7204 > │ let v213 : bool = true in let mutable _v212 = v212 │
00:01:11 verbose #7205 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7206 > │ let v214 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7207 > │ (int32 * string)>> │
00:01:11 verbose #7208 > │ v214 │
00:01:11 verbose #7209 > │ #endif │
00:01:11 verbose #7210 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7211 > │ let v215 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7212 > │ (int32 * string)>> │
00:01:11 verbose #7213 > │ v215 │
00:01:11 verbose #7214 > │ #endif │
00:01:11 verbose #7215 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7216 > │ let v216 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7217 > │ (int32 * string)>> │
00:01:11 verbose #7218 > │ v216 │
00:01:11 verbose #7219 > │ #endif │
00:01:11 verbose #7220 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7221 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7222 > │ let v217 : Async<struct (int32 * string)> option = None │
00:01:11 verbose #7223 > │ let mutable _v217 = v217 │
00:01:11 verbose #7224 > │ async { │
00:01:11 verbose #7225 > │ let struct (v218 : string, v219 : string) = method13() │
00:01:11 verbose #7226 > │ let v220 : char seq = v171 |> unbox<char seq> │
00:01:11 verbose #7227 > │ let v221 : (char seq -> char list) = Seq.toList │
00:01:11 verbose #7228 > │ let v222 : char list = v221 v220 │
00:01:11 verbose #7229 > │ let v223 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:11 verbose #7230 > │ List.foldBack │
00:01:11 verbose #7231 > │ let v224 : (char -> (UH0 -> UH0)) = method14() │
00:01:11 verbose #7232 > │ let v225 : (char list -> (UH0 -> UH0)) = v223 v224 │
00:01:11 verbose #7233 > │ let v226 : (UH0 -> UH0) = v225 v222 │
00:01:11 verbose #7234 > │ let v227 : UH0 = UH0_0 │
00:01:11 verbose #7235 > │ let v228 : UH0 = v226 v227 │
00:01:11 verbose #7236 > │ let v229 : US3 = US3_0 │
00:01:11 verbose #7237 > │ let struct (v230 : string, v231 : string) = method15(v219, v218, v228, │
00:01:11 verbose #7238 > │ v229) │
00:01:11 verbose #7239 > │ let v232 : (string -> US5) = method16() │
00:01:11 verbose #7240 > │ let v233 : US5 = US5_1 │
00:01:11 verbose #7241 > │ let v234 : US5 = v204 |> Option.map v232 |> Option.defaultValue v233 │
00:01:11 verbose #7242 > │ let v238 : string = │
00:01:11 verbose #7243 > │ match v234 with │
00:01:11 verbose #7244 > │ | US5_1 -> (* None *) │
00:01:11 verbose #7245 > │ let v236 : string = "" │
00:01:11 verbose #7246 > │ v236 │
00:01:11 verbose #7247 > │ | US5_0(v235) -> (* Some *) │
00:01:11 verbose #7248 > │ v235 │
00:01:11 verbose #7249 > │ let v239 : US0 = US0_1 │
00:01:11 verbose #7250 > │ let v240 : (unit -> string) = closure16(v206, v171, v203, v204) │
00:01:11 verbose #7251 > │ let v241 : (unit -> string) = method17() │
00:01:11 verbose #7252 > │ method4(v239, v240, v241) │
00:01:11 verbose #7253 > │ let v242 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:11 verbose #7254 > │ let v243 : System.Diagnostics.ProcessStartInfo = │
00:01:11 verbose #7255 > │ System.Diagnostics.ProcessStartInfo (Arguments = v231, │
00:01:11 verbose #7256 > │ StandardOutputEncoding = v242, WorkingDirectory = v238, FileName = v230, │
00:01:11 verbose #7257 > │ CreateNoWindow = true, RedirectStandardError = true, RedirectStandardOutput │
00:01:11 verbose #7258 > │ = true, UseShellExecute = false) │
00:01:11 verbose #7259 > │ let v244 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:11 verbose #7260 > │ (StartInfo = v243) │
00:01:11 verbose #7261 > │ use v244 = v244 │
00:01:11 verbose #7262 > │ let v245 : System.Diagnostics.Process = v244 │
00:01:11 verbose #7263 > │ let v246 : (unit -> │
00:01:11 verbose #7264 > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:11 verbose #7265 > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:11 verbose #7266 > │ let v247 : System.Collections.Concurrent.ConcurrentStack<string> = v246 │
00:01:11 verbose #7267 > │ () │
00:01:11 verbose #7268 > │ let v248 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:11 verbose #7269 > │ closure17(v206, v171, v203, v204, v245, v247) │
00:01:11 verbose #7270 > │ v245.OutputDataReceived.Add v248 │
00:01:11 verbose #7271 > │ let v249 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:11 verbose #7272 > │ closure20(v206, v171, v203, v204, v245, v247) │
00:01:11 verbose #7273 > │ v245.ErrorDataReceived.Add v249 │
00:01:11 verbose #7274 > │ let v250 : (unit -> bool) = v245.Start │
00:01:11 verbose #7275 > │ let v251 : bool = v250 () │
00:01:11 verbose #7276 > │ let v252 : bool = v251 = false │
00:01:11 verbose #7277 > │ if v252 then │
00:01:11 verbose #7278 > │ let v253 : string = $"execute_with_options_async / process_start │
00:01:11 verbose #7279 > │ error" │
00:01:11 verbose #7280 > │ failwith<unit> v253 │
00:01:11 verbose #7281 > │ let v254 : (unit -> unit) = v245.BeginErrorReadLine │
00:01:11 verbose #7282 > │ v254 () │
00:01:11 verbose #7283 > │ let v255 : (unit -> unit) = v245.BeginOutputReadLine │
00:01:11 verbose #7284 > │ v255 () │
00:01:11 verbose #7285 > │ let v256 : (System.Threading.CancellationToken -> US7) = method19() │
00:01:11 verbose #7286 > │ let v257 : US7 = US7_1 │
00:01:11 verbose #7287 > │ let v258 : US7 = v206 |> Option.map v256 |> Option.defaultValue v257 │
00:01:11 verbose #7288 > │ let v262 : System.Threading.CancellationToken = │
00:01:11 verbose #7289 > │ match v258 with │
00:01:11 verbose #7290 > │ | US7_1 -> (* None *) │
00:01:11 verbose #7291 > │ let v260 : System.Threading.CancellationToken = │
00:01:11 verbose #7292 > │ System.Threading.CancellationToken.None │
00:01:11 verbose #7293 > │ v260 │
00:01:11 verbose #7294 > │ | US7_0(v259) -> (* Some *) │
00:01:11 verbose #7295 > │ v259 │
00:01:11 verbose #7296 > │ let v263 : Async<System.Threading.CancellationToken> option = None │
00:01:11 verbose #7297 > │ let v264 : bool = true in let mutable _v263 = v263 │
00:01:11 verbose #7298 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7299 > │ let v265 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7300 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7301 > │ v265 │
00:01:11 verbose #7302 > │ #endif │
00:01:11 verbose #7303 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7304 > │ let v266 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7305 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7306 > │ v266 │
00:01:11 verbose #7307 > │ #endif │
00:01:11 verbose #7308 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7309 > │ let v267 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7310 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7311 > │ v267 │
00:01:11 verbose #7312 > │ #endif │
00:01:11 verbose #7313 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7314 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7315 > │ let v268 : Async<System.Threading.CancellationToken> option = None │
00:01:11 verbose #7316 > │ let v269 : bool = true in let mutable _v268 = v268 │
00:01:11 verbose #7317 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7318 > │ let v270 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7319 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7320 > │ v270 │
00:01:11 verbose #7321 > │ #endif │
00:01:11 verbose #7322 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7323 > │ let v271 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7324 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7325 > │ v271 │
00:01:11 verbose #7326 > │ #endif │
00:01:11 verbose #7327 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7328 > │ let v272 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7329 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7330 > │ v272 │
00:01:11 verbose #7331 > │ #endif │
00:01:11 verbose #7332 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7333 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7334 > │ let v273 : Async<System.Threading.CancellationToken> option = None │
00:01:11 verbose #7335 > │ let mutable _v273 = v273 │
00:01:11 verbose #7336 > │ async { │
00:01:11 verbose #7337 > │ let v274 : Async<System.Threading.CancellationToken> = │
00:01:11 verbose #7338 > │ Async.CancellationToken │
00:01:11 verbose #7339 > │ let! v274 = v274 │
00:01:11 verbose #7340 > │ let v275 : System.Threading.CancellationToken = v274 │
00:01:11 verbose #7341 > │ let v276 : System.Threading.CancellationToken = │
00:01:11 verbose #7342 > │ Async.DefaultCancellationToken │
00:01:11 verbose #7343 > │ let v277 : (System.Threading.CancellationToken []) = [|v275; v276; │
00:01:11 verbose #7344 > │ v262|] │
00:01:11 verbose #7345 > │ let v278 : ((System.Threading.CancellationToken []) -> │
00:01:11 verbose #7346 > │ System.Threading.CancellationTokenSource) = │
00:01:11 verbose #7347 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:11 verbose #7348 > │ let v279 : System.Threading.CancellationTokenSource = v278 v277 │
00:01:11 verbose #7349 > │ let v280 : System.Threading.CancellationToken = v279.Token │
00:01:11 verbose #7350 > │ return v280 │
00:01:11 verbose #7351 > │ } │
00:01:11 verbose #7352 > │ |> fun x -> _v273 <- Some x │
00:01:11 verbose #7353 > │ let v281 : Async<System.Threading.CancellationToken> = _v273 |> │
00:01:11 verbose #7354 > │ Option.get │
00:01:11 verbose #7355 > │ v281 │
00:01:11 verbose #7356 > │ #endif │
00:01:11 verbose #7357 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7358 > │ let v282 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7359 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7360 > │ v282 │
00:01:11 verbose #7361 > │ #endif │
00:01:11 verbose #7362 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7363 > │ let v283 : Async<System.Threading.CancellationToken> = │
00:01:11 verbose #7364 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7365 > │ v283 │
00:01:11 verbose #7366 > │ #endif │
00:01:11 verbose #7367 > │ |> fun x -> _v268 <- Some x │
00:01:11 verbose #7368 > │ let v284 : Async<System.Threading.CancellationToken> = _v268.Value │
00:01:11 verbose #7369 > │ v284 │
00:01:11 verbose #7370 > │ #endif │
00:01:11 verbose #7371 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7372 > │ let v285 : Async<System.Threading.CancellationToken> = null |> │
00:01:11 verbose #7373 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7374 > │ v285 │
00:01:11 verbose #7375 > │ #endif │
00:01:11 verbose #7376 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7377 > │ let v286 : Async<System.Threading.CancellationToken> = │
00:01:11 verbose #7378 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:11 verbose #7379 > │ v286 │
00:01:11 verbose #7380 > │ #endif │
00:01:11 verbose #7381 > │ |> fun x -> _v263 <- Some x │
00:01:11 verbose #7382 > │ let v287 : Async<System.Threading.CancellationToken> = _v263.Value │
00:01:11 verbose #7383 > │ let! v287 = v287 │
00:01:11 verbose #7384 > │ let v288 : System.Threading.CancellationToken = v287 │
00:01:11 verbose #7385 > │ let v289 : ((unit -> unit) -> │
00:01:11 verbose #7386 > │ System.Threading.CancellationTokenRegistration) = v288.Register │
00:01:11 verbose #7387 > │ let v290 : (unit -> unit) = closure22(v245) │
00:01:11 verbose #7388 > │ let v291 : System.Threading.CancellationTokenRegistration = v289 v290 │
00:01:11 verbose #7389 > │ use v291 = v291 │
00:01:11 verbose #7390 > │ let v292 : System.Threading.CancellationTokenRegistration = v291 │
00:01:11 verbose #7391 > │ let v293 : Async<int32> option = None │
00:01:11 verbose #7392 > │ let v294 : bool = true in let mutable _v293 = v293 │
00:01:11 verbose #7393 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7394 > │ let v295 : Async<int32> = null |> unbox<Async<int32>> │
00:01:11 verbose #7395 > │ v295 │
00:01:11 verbose #7396 > │ #endif │
00:01:11 verbose #7397 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7398 > │ let v296 : Async<int32> = null |> unbox<Async<int32>> │
00:01:11 verbose #7399 > │ v296 │
00:01:11 verbose #7400 > │ #endif │
00:01:11 verbose #7401 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7402 > │ let v297 : Async<int32> = null |> unbox<Async<int32>> │
00:01:11 verbose #7403 > │ v297 │
00:01:11 verbose #7404 > │ #endif │
00:01:11 verbose #7405 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7406 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7407 > │ let v298 : Async<int32> option = None │
00:01:11 verbose #7408 > │ let mutable _v298 = v298 │
00:01:11 verbose #7409 > │ async { │
00:01:11 verbose #7410 > │ try │
00:01:11 verbose #7411 > │ let v299 : System.Threading.Tasks.Task = v245.WaitForExitAsync v288 │
00:01:11 verbose #7412 > │ let v300 : Async<unit> option = None │
00:01:11 verbose #7413 > │ let v301 : bool = true in let mutable _v300 = v300 │
00:01:11 verbose #7414 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7415 > │ let v302 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7416 > │ v302 │
00:01:11 verbose #7417 > │ #endif │
00:01:11 verbose #7418 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7419 > │ let v303 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7420 > │ v303 │
00:01:11 verbose #7421 > │ #endif │
00:01:11 verbose #7422 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7423 > │ let v304 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7424 > │ v304 │
00:01:11 verbose #7425 > │ #endif │
00:01:11 verbose #7426 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7427 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7428 > │ let v305 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:11 verbose #7429 > │ Async.AwaitTask │
00:01:11 verbose #7430 > │ let v306 : Async<unit> = v305 v299 │
00:01:11 verbose #7431 > │ v306 │
00:01:11 verbose #7432 > │ #endif │
00:01:11 verbose #7433 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7434 > │ let v307 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7435 > │ v307 │
00:01:11 verbose #7436 > │ #endif │
00:01:11 verbose #7437 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7438 > │ let v308 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:11 verbose #7439 > │ v308 │
00:01:11 verbose #7440 > │ #endif │
00:01:11 verbose #7441 > │ |> fun x -> _v300 <- Some x │
00:01:11 verbose #7442 > │ let v309 : Async<unit> = _v300.Value │
00:01:11 verbose #7443 > │ do! v309 │
00:01:11 verbose #7444 > │ let v310 : int32 = v245.ExitCode │
00:01:11 verbose #7445 > │ return v310 │
00:01:11 verbose #7446 > │ with ex -> │
00:01:11 verbose #7447 > │ let v311 : exn = ex │
00:01:11 verbose #7448 > │ let v312 : string option = None │
00:01:11 verbose #7449 > │ let v313 : bool = true in let mutable _v312 = v312 │
00:01:11 verbose #7450 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7451 > │ let v314 : string = $"%A{v311}" │
00:01:11 verbose #7452 > │ v314 │
00:01:11 verbose #7453 > │ #endif │
00:01:11 verbose #7454 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7455 > │ let v315 : string = $"%A{v311}" │
00:01:11 verbose #7456 > │ v315 │
00:01:11 verbose #7457 > │ #endif │
00:01:11 verbose #7458 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7459 > │ let v316 : string = $"%A{v311}" │
00:01:11 verbose #7460 > │ v316 │
00:01:11 verbose #7461 > │ #endif │
00:01:11 verbose #7462 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7463 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7464 > │ let v317 : string = $"{v311.GetType ()}: {v311.Message}" │
00:01:11 verbose #7465 > │ v317 │
00:01:11 verbose #7466 > │ #endif │
00:01:11 verbose #7467 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7468 > │ let v318 : string = $"%A{v311}" │
00:01:11 verbose #7469 > │ v318 │
00:01:11 verbose #7470 > │ #endif │
00:01:11 verbose #7471 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7472 > │ let v319 : string = Unchecked.defaultof<string> │
00:01:11 verbose #7473 > │ v319 │
00:01:11 verbose #7474 > │ #endif │
00:01:11 verbose #7475 > │ |> fun x -> _v312 <- Some x │
00:01:11 verbose #7476 > │ let v320 : string = _v312.Value │
00:01:11 verbose #7477 > │ let v321 : (string -> unit) = v247.Push │
00:01:11 verbose #7478 > │ v321 v320 │
00:01:11 verbose #7479 > │ let v322 : System.Threading.Tasks.TaskCanceledException = v311 |> │
00:01:11 verbose #7480 > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:11 verbose #7481 > │ let v323 : US0 = US0_3 │
00:01:11 verbose #7482 > │ let v324 : (unit -> string) = closure23(v322) │
00:01:11 verbose #7483 > │ let v325 : (unit -> string) = method17() │
00:01:11 verbose #7484 > │ method4(v323, v324, v325) │
00:01:11 verbose #7485 > │ return -2147483648 │
00:01:11 verbose #7486 > │ (* │
00:01:11 verbose #7487 > │ *) │
00:01:11 verbose #7488 > │ } │
00:01:11 verbose #7489 > │ |> fun x -> _v298 <- Some x │
00:01:11 verbose #7490 > │ let v326 : Async<int32> = _v298 |> Option.get │
00:01:11 verbose #7491 > │ v326 │
00:01:11 verbose #7492 > │ #endif │
00:01:11 verbose #7493 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7494 > │ let v327 : Async<int32> = null |> unbox<Async<int32>> │
00:01:11 verbose #7495 > │ v327 │
00:01:11 verbose #7496 > │ #endif │
00:01:11 verbose #7497 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7498 > │ let v328 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:11 verbose #7499 > │ v328 │
00:01:11 verbose #7500 > │ #endif │
00:01:11 verbose #7501 > │ |> fun x -> _v293 <- Some x │
00:01:11 verbose #7502 > │ let v329 : Async<int32> = _v293.Value │
00:01:11 verbose #7503 > │ let! v329 = v329 │
00:01:11 verbose #7504 > │ let v330 : int32 = v329 │
00:01:11 verbose #7505 > │ let v331 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:11 verbose #7506 > │ string seq) = Seq.rev │
00:01:11 verbose #7507 > │ let v332 : string seq = v331 v247 │
00:01:11 verbose #7508 > │ let v333 : string = method20() │
00:01:11 verbose #7509 > │ let v334 : (string -> (string seq -> string)) = String.concat │
00:01:11 verbose #7510 > │ let v335 : (string seq -> string) = v334 v333 │
00:01:11 verbose #7511 > │ let v336 : string = v335 v332 │
00:01:11 verbose #7512 > │ let v337 : US0 = US0_1 │
00:01:11 verbose #7513 > │ let v338 : (unit -> string) = closure24(v330, v336) │
00:01:11 verbose #7514 > │ let v339 : (unit -> string) = method17() │
00:01:11 verbose #7515 > │ method4(v337, v338, v339) │
00:01:11 verbose #7516 > │ return struct (v330, v336) │
00:01:11 verbose #7517 > │ } │
00:01:11 verbose #7518 > │ |> fun x -> _v217 <- Some x │
00:01:11 verbose #7519 > │ let v340 : Async<struct (int32 * string)> = _v217 |> Option.get │
00:01:11 verbose #7520 > │ v340 │
00:01:11 verbose #7521 > │ #endif │
00:01:11 verbose #7522 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7523 > │ let v341 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7524 > │ (int32 * string)>> │
00:01:11 verbose #7525 > │ v341 │
00:01:11 verbose #7526 > │ #endif │
00:01:11 verbose #7527 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7528 > │ let v342 : Async<struct (int32 * string)> = │
00:01:11 verbose #7529 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:11 verbose #7530 > │ v342 │
00:01:11 verbose #7531 > │ #endif │
00:01:11 verbose #7532 > │ |> fun x -> _v212 <- Some x │
00:01:11 verbose #7533 > │ let v343 : Async<struct (int32 * string)> = _v212.Value │
00:01:11 verbose #7534 > │ v343 │
00:01:11 verbose #7535 > │ #endif │
00:01:11 verbose #7536 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7537 > │ let v344 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7538 > │ (int32 * string)>> │
00:01:11 verbose #7539 > │ v344 │
00:01:11 verbose #7540 > │ #endif │
00:01:11 verbose #7541 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7542 > │ let v345 : Async<struct (int32 * string)> = │
00:01:11 verbose #7543 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:11 verbose #7544 > │ v345 │
00:01:11 verbose #7545 > │ #endif │
00:01:11 verbose #7546 > │ |> fun x -> _v207 <- Some x │
00:01:11 verbose #7547 > │ let v346 : Async<struct (int32 * string)> = _v207.Value │
00:01:11 verbose #7548 > │ let v347 : Async<Async<struct (int32 * string)>> option = None │
00:01:11 verbose #7549 > │ let v348 : bool = true in let mutable _v347 = v347 │
00:01:11 verbose #7550 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7551 > │ let v349 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7552 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7553 > │ v349 │
00:01:11 verbose #7554 > │ #endif │
00:01:11 verbose #7555 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7556 > │ let v350 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7557 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7558 > │ v350 │
00:01:11 verbose #7559 > │ #endif │
00:01:11 verbose #7560 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7561 > │ let v351 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7562 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7563 > │ v351 │
00:01:11 verbose #7564 > │ #endif │
00:01:11 verbose #7565 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7566 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7567 > │ let v352 : (Async<struct (int32 * string)> -> Async<Async<struct (int32 │
00:01:11 verbose #7568 > │ * string)>>) = Async.StartChild │
00:01:11 verbose #7569 > │ let v353 : Async<Async<struct (int32 * string)>> = v352 v346 │
00:01:11 verbose #7570 > │ v353 │
00:01:11 verbose #7571 > │ #endif │
00:01:11 verbose #7572 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7573 > │ let v354 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7574 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7575 > │ v354 │
00:01:11 verbose #7576 > │ #endif │
00:01:11 verbose #7577 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7578 > │ let v355 : Async<Async<struct (int32 * string)>> = │
00:01:11 verbose #7579 > │ Unchecked.defaultof<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7580 > │ v355 │
00:01:11 verbose #7581 > │ #endif │
00:01:11 verbose #7582 > │ |> fun x -> _v347 <- Some x │
00:01:11 verbose #7583 > │ let v356 : Async<Async<struct (int32 * string)>> = _v347.Value │
00:01:11 verbose #7584 > │ let! v356 = v356 │
00:01:11 verbose #7585 > │ let v357 : Async<struct (int32 * string)> = v356 │
00:01:11 verbose #7586 > │ let v358 : US0 = US0_1 │
00:01:11 verbose #7587 > │ let v359 : (unit -> string) = closure25() │
00:01:11 verbose #7588 > │ method4(v358, v359, v201) │
00:01:11 verbose #7589 > │ let v360 : Async<unit> option = None │
00:01:11 verbose #7590 > │ let v361 : bool = true in let mutable _v360 = v360 │
00:01:11 verbose #7591 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7592 > │ let v362 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7593 > │ v362 │
00:01:11 verbose #7594 > │ #endif │
00:01:11 verbose #7595 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7596 > │ let v363 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7597 > │ v363 │
00:01:11 verbose #7598 > │ #endif │
00:01:11 verbose #7599 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7600 > │ let v364 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7601 > │ v364 │
00:01:11 verbose #7602 > │ #endif │
00:01:11 verbose #7603 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7604 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7605 > │ let v365 : (int32 -> Async<unit>) = Async.Sleep │
00:01:11 verbose #7606 > │ let v366 : Async<unit> = v365 100 │
00:01:11 verbose #7607 > │ v366 │
00:01:11 verbose #7608 > │ #endif │
00:01:11 verbose #7609 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7610 > │ let v367 : Async<unit> = null |> unbox<Async<unit>> │
00:01:11 verbose #7611 > │ v367 │
00:01:11 verbose #7612 > │ #endif │
00:01:11 verbose #7613 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7614 > │ let v368 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:11 verbose #7615 > │ v368 │
00:01:11 verbose #7616 > │ #endif │
00:01:11 verbose #7617 > │ |> fun x -> _v360 <- Some x │
00:01:11 verbose #7618 > │ let v369 : Async<unit> = _v360.Value │
00:01:11 verbose #7619 > │ do! v369 │
00:01:11 verbose #7620 > │ let v370 : US0 = US0_1 │
00:01:11 verbose #7621 > │ let v371 : (unit -> string) = closure26() │
00:01:11 verbose #7622 > │ method4(v370, v371, v201) │
00:01:11 verbose #7623 > │ let v372 : unit option = None │
00:01:11 verbose #7624 > │ let v373 : bool = true in let mutable _v372 = v372 │
00:01:11 verbose #7625 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7626 > │ null |> unbox<unit> │
00:01:11 verbose #7627 > │ () │
00:01:11 verbose #7628 > │ #endif │
00:01:11 verbose #7629 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7630 > │ null |> unbox<unit> │
00:01:11 verbose #7631 > │ () │
00:01:11 verbose #7632 > │ #endif │
00:01:11 verbose #7633 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7634 > │ null |> unbox<unit> │
00:01:11 verbose #7635 > │ () │
00:01:11 verbose #7636 > │ #endif │
00:01:11 verbose #7637 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7638 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7639 > │ let v374 : (unit -> unit) = v198.Cancel │
00:01:11 verbose #7640 > │ v374 () │
00:01:11 verbose #7641 > │ () │
00:01:11 verbose #7642 > │ #endif │
00:01:11 verbose #7643 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7644 > │ null |> unbox<unit> │
00:01:11 verbose #7645 > │ () │
00:01:11 verbose #7646 > │ #endif │
00:01:11 verbose #7647 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7648 > │ Unchecked.defaultof<unit> │
00:01:11 verbose #7649 > │ () │
00:01:11 verbose #7650 > │ #endif │
00:01:11 verbose #7651 > │ |> fun x -> _v372 <- Some x │
00:01:11 verbose #7652 > │ _v372.Value │
00:01:11 verbose #7653 > │ let v375 : US0 = US0_1 │
00:01:11 verbose #7654 > │ let v376 : (unit -> string) = closure27() │
00:01:11 verbose #7655 > │ method4(v375, v376, v201) │
00:01:11 verbose #7656 > │ let! v357 = v357 │
00:01:11 verbose #7657 > │ let struct (v377 : int32, v378 : string) = v357 │
00:01:11 verbose #7658 > │ let v379 : US0 = US0_1 │
00:01:11 verbose #7659 > │ let v380 : (unit -> string) = closure28() │
00:01:11 verbose #7660 > │ method4(v379, v380, v201) │
00:01:11 verbose #7661 > │ return struct (v377, v378) │
00:01:11 verbose #7662 > │ } │
00:01:11 verbose #7663 > │ |> fun x -> _v177 <- Some x │
00:01:11 verbose #7664 > │ let v381 : Async<struct (int32 * string)> = _v177 |> Option.get │
00:01:11 verbose #7665 > │ v381 │
00:01:11 verbose #7666 > │ #endif │
00:01:11 verbose #7667 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7668 > │ let v382 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:11 verbose #7669 > │ (int32 * string)>> │
00:01:11 verbose #7670 > │ v382 │
00:01:11 verbose #7671 > │ #endif │
00:01:11 verbose #7672 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7673 > │ let v383 : Async<struct (int32 * string)> = │
00:01:11 verbose #7674 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:11 verbose #7675 > │ v383 │
00:01:11 verbose #7676 > │ #endif │
00:01:11 verbose #7677 > │ |> fun x -> _v172 <- Some x │
00:01:11 verbose #7678 > │ let v384 : Async<struct (int32 * string)> = _v172.Value │
00:01:11 verbose #7679 > │ let v385 : Async<US8> option = None │
00:01:11 verbose #7680 > │ let v386 : bool = true in let mutable _v385 = v385 │
00:01:11 verbose #7681 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7682 > │ let v387 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7683 > │ v387 │
00:01:11 verbose #7684 > │ #endif │
00:01:11 verbose #7685 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7686 > │ let v388 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7687 > │ v388 │
00:01:11 verbose #7688 > │ #endif │
00:01:11 verbose #7689 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7690 > │ let v389 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7691 > │ v389 │
00:01:11 verbose #7692 > │ #endif │
00:01:11 verbose #7693 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7694 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7695 > │ let v390 : Async<US8> option = None │
00:01:11 verbose #7696 > │ let v391 : bool = true in let mutable _v390 = v390 │
00:01:11 verbose #7697 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7698 > │ let v392 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7699 > │ v392 │
00:01:11 verbose #7700 > │ #endif │
00:01:11 verbose #7701 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7702 > │ let v393 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7703 > │ v393 │
00:01:11 verbose #7704 > │ #endif │
00:01:11 verbose #7705 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7706 > │ let v394 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7707 > │ v394 │
00:01:11 verbose #7708 > │ #endif │
00:01:11 verbose #7709 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7710 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7711 > │ let v395 : Async<US8> option = None │
00:01:11 verbose #7712 > │ let mutable _v395 = v395 │
00:01:11 verbose #7713 > │ async { │
00:01:11 verbose #7714 > │ let v396 : Async<Async<struct (int32 * string)>> option = None │
00:01:11 verbose #7715 > │ let v397 : bool = true in let mutable _v396 = v396 │
00:01:11 verbose #7716 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7717 > │ let v398 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7718 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7719 > │ v398 │
00:01:11 verbose #7720 > │ #endif │
00:01:11 verbose #7721 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7722 > │ let v399 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7723 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7724 > │ v399 │
00:01:11 verbose #7725 > │ #endif │
00:01:11 verbose #7726 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7727 > │ let v400 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7728 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7729 > │ v400 │
00:01:11 verbose #7730 > │ #endif │
00:01:11 verbose #7731 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7732 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7733 > │ let v401 : Async<Async<struct (int32 * string)>> = Async.StartChild │
00:01:11 verbose #7734 > │ (v384, 10000) │
00:01:11 verbose #7735 > │ v401 │
00:01:11 verbose #7736 > │ #endif │
00:01:11 verbose #7737 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7738 > │ let v402 : Async<Async<struct (int32 * string)>> = null |> │
00:01:11 verbose #7739 > │ unbox<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7740 > │ v402 │
00:01:11 verbose #7741 > │ #endif │
00:01:11 verbose #7742 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7743 > │ let v403 : Async<Async<struct (int32 * string)>> = │
00:01:11 verbose #7744 > │ Unchecked.defaultof<Async<Async<struct (int32 * string)>>> │
00:01:11 verbose #7745 > │ v403 │
00:01:11 verbose #7746 > │ #endif │
00:01:11 verbose #7747 > │ |> fun x -> _v396 <- Some x │
00:01:11 verbose #7748 > │ let v404 : Async<Async<struct (int32 * string)>> = _v396.Value │
00:01:11 verbose #7749 > │ let! v404 = v404 │
00:01:11 verbose #7750 > │ let v405 : Async<struct (int32 * string)> = v404 │
00:01:11 verbose #7751 > │ let v406 : Async<Choice<struct (int32 * string), exn>> option = None │
00:01:11 verbose #7752 > │ let v407 : bool = true in let mutable _v406 = v406 │
00:01:11 verbose #7753 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7754 > │ let v408 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:11 verbose #7755 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:11 verbose #7756 > │ v408 │
00:01:11 verbose #7757 > │ #endif │
00:01:11 verbose #7758 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7759 > │ let v409 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:11 verbose #7760 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:11 verbose #7761 > │ v409 │
00:01:11 verbose #7762 > │ #endif │
00:01:11 verbose #7763 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7764 > │ let v410 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:11 verbose #7765 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:11 verbose #7766 > │ v410 │
00:01:11 verbose #7767 > │ #endif │
00:01:11 verbose #7768 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7769 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7770 > │ let v411 : (Async<struct (int32 * string)> -> Async<Choice<struct (int32 │
00:01:11 verbose #7771 > │ * string), exn>>) = Async.Catch │
00:01:11 verbose #7772 > │ let v412 : Async<Choice<struct (int32 * string), exn>> = v411 v405 │
00:01:11 verbose #7773 > │ v412 │
00:01:11 verbose #7774 > │ #endif │
00:01:11 verbose #7775 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7776 > │ let v413 : Async<Choice<struct (int32 * string), exn>> = null |> │
00:01:11 verbose #7777 > │ unbox<Async<Choice<struct (int32 * string), exn>>> │
00:01:11 verbose #7778 > │ v413 │
00:01:11 verbose #7779 > │ #endif │
00:01:11 verbose #7780 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7781 > │ let v414 : Async<Choice<struct (int32 * string), exn>> = │
00:01:11 verbose #7782 > │ Unchecked.defaultof<Async<Choice<struct (int32 * string), exn>>> │
00:01:11 verbose #7783 > │ v414 │
00:01:11 verbose #7784 > │ #endif │
00:01:11 verbose #7785 > │ |> fun x -> _v406 <- Some x │
00:01:11 verbose #7786 > │ let v415 : Async<Choice<struct (int32 * string), exn>> = _v406.Value │
00:01:11 verbose #7787 > │ let v416 : Async<US9> option = None │
00:01:11 verbose #7788 > │ let v417 : bool = true in let mutable _v416 = v416 │
00:01:11 verbose #7789 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7790 > │ let v418 : Async<US9> = null |> unbox<Async<US9>> │
00:01:11 verbose #7791 > │ v418 │
00:01:11 verbose #7792 > │ #endif │
00:01:11 verbose #7793 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7794 > │ let v419 : Async<US9> = null |> unbox<Async<US9>> │
00:01:11 verbose #7795 > │ v419 │
00:01:11 verbose #7796 > │ #endif │
00:01:11 verbose #7797 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7798 > │ let v420 : Async<US9> = null |> unbox<Async<US9>> │
00:01:11 verbose #7799 > │ v420 │
00:01:11 verbose #7800 > │ #endif │
00:01:11 verbose #7801 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7802 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7803 > │ let v421 : Async<US9> option = None │
00:01:11 verbose #7804 > │ let mutable _v421 = v421 │
00:01:11 verbose #7805 > │ async { │
00:01:11 verbose #7806 > │ let! v415 = v415 │
00:01:11 verbose #7807 > │ let v422 : Choice<struct (int32 * string), exn> = v415 │
00:01:11 verbose #7808 > │ let v423 : US9 option = None │
00:01:11 verbose #7809 > │ let v424 : bool = true in let mutable _v423 = v423 │
00:01:11 verbose #7810 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7811 > │ let v425 : US9 = null |> unbox<US9> │
00:01:11 verbose #7812 > │ v425 │
00:01:11 verbose #7813 > │ #endif │
00:01:11 verbose #7814 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7815 > │ let v426 : US9 = null |> unbox<US9> │
00:01:11 verbose #7816 > │ v426 │
00:01:11 verbose #7817 > │ #endif │
00:01:11 verbose #7818 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7819 > │ let v427 : US9 = null |> unbox<US9> │
00:01:11 verbose #7820 > │ v427 │
00:01:11 verbose #7821 > │ #endif │
00:01:11 verbose #7822 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7823 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7824 > │ let v428 : (struct (int32 * string) -> US9) = closure29() │
00:01:11 verbose #7825 > │ let v429 : (exn -> US9) = closure30() │
00:01:11 verbose #7826 > │ let v430 : US9 = match v422 with Choice1Of2 x -> v428 x | Choice2Of2 x │
00:01:11 verbose #7827 > │ -> v429 x │
00:01:11 verbose #7828 > │ v430 │
00:01:11 verbose #7829 > │ #endif │
00:01:11 verbose #7830 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7831 > │ let v431 : US9 = null |> unbox<US9> │
00:01:11 verbose #7832 > │ v431 │
00:01:11 verbose #7833 > │ #endif │
00:01:11 verbose #7834 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7835 > │ let v432 : US9 = Unchecked.defaultof<US9> │
00:01:11 verbose #7836 > │ v432 │
00:01:11 verbose #7837 > │ #endif │
00:01:11 verbose #7838 > │ |> fun x -> _v423 <- Some x │
00:01:11 verbose #7839 > │ let v433 : US9 = _v423.Value │
00:01:11 verbose #7840 > │ return v433 │
00:01:11 verbose #7841 > │ } │
00:01:11 verbose #7842 > │ |> fun x -> _v421 <- Some x │
00:01:11 verbose #7843 > │ let v434 : Async<US9> = _v421 |> Option.get │
00:01:11 verbose #7844 > │ v434 │
00:01:11 verbose #7845 > │ #endif │
00:01:11 verbose #7846 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7847 > │ let v435 : Async<US9> = null |> unbox<Async<US9>> │
00:01:11 verbose #7848 > │ v435 │
00:01:11 verbose #7849 > │ #endif │
00:01:11 verbose #7850 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7851 > │ let v436 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:01:11 verbose #7852 > │ v436 │
00:01:11 verbose #7853 > │ #endif │
00:01:11 verbose #7854 > │ |> fun x -> _v416 <- Some x │
00:01:11 verbose #7855 > │ let v437 : Async<US9> = _v416.Value │
00:01:11 verbose #7856 > │ let v438 : Async<US10> option = None │
00:01:11 verbose #7857 > │ let v439 : bool = true in let mutable _v438 = v438 │
00:01:11 verbose #7858 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7859 > │ let v440 : Async<US10> = null |> unbox<Async<US10>> │
00:01:11 verbose #7860 > │ v440 │
00:01:11 verbose #7861 > │ #endif │
00:01:11 verbose #7862 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7863 > │ let v441 : Async<US10> = null |> unbox<Async<US10>> │
00:01:11 verbose #7864 > │ v441 │
00:01:11 verbose #7865 > │ #endif │
00:01:11 verbose #7866 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7867 > │ let v442 : Async<US10> = null |> unbox<Async<US10>> │
00:01:11 verbose #7868 > │ v442 │
00:01:11 verbose #7869 > │ #endif │
00:01:11 verbose #7870 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7871 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7872 > │ let v443 : Async<US10> option = None │
00:01:11 verbose #7873 > │ let mutable _v443 = v443 │
00:01:11 verbose #7874 > │ async { │
00:01:11 verbose #7875 > │ let! v437 = v437 │
00:01:11 verbose #7876 > │ let v444 : US9 = v437 │
00:01:11 verbose #7877 > │ let v451 : US10 = │
00:01:11 verbose #7878 > │ match v444 with │
00:01:11 verbose #7879 > │ | US9_0(v445, v446) -> (* Choice1Of2 *) │
00:01:11 verbose #7880 > │ US10_0(v445, v446) │
00:01:11 verbose #7881 > │ | US9_1(v448) -> (* Choice2Of2 *) │
00:01:11 verbose #7882 > │ US10_1(v448) │
00:01:11 verbose #7883 > │ return v451 │
00:01:11 verbose #7884 > │ } │
00:01:11 verbose #7885 > │ |> fun x -> _v443 <- Some x │
00:01:11 verbose #7886 > │ let v452 : Async<US10> = _v443 |> Option.get │
00:01:11 verbose #7887 > │ v452 │
00:01:11 verbose #7888 > │ #endif │
00:01:11 verbose #7889 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7890 > │ let v453 : Async<US10> = null |> unbox<Async<US10>> │
00:01:11 verbose #7891 > │ v453 │
00:01:11 verbose #7892 > │ #endif │
00:01:11 verbose #7893 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7894 > │ let v454 : Async<US10> = Unchecked.defaultof<Async<US10>> │
00:01:11 verbose #7895 > │ v454 │
00:01:11 verbose #7896 > │ #endif │
00:01:11 verbose #7897 > │ |> fun x -> _v438 <- Some x │
00:01:11 verbose #7898 > │ let v455 : Async<US10> = _v438.Value │
00:01:11 verbose #7899 > │ let v456 : Async<US8> option = None │
00:01:11 verbose #7900 > │ let v457 : bool = true in let mutable _v456 = v456 │
00:01:11 verbose #7901 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7902 > │ let v458 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7903 > │ v458 │
00:01:11 verbose #7904 > │ #endif │
00:01:11 verbose #7905 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7906 > │ let v459 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7907 > │ v459 │
00:01:11 verbose #7908 > │ #endif │
00:01:11 verbose #7909 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7910 > │ let v460 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7911 > │ v460 │
00:01:11 verbose #7912 > │ #endif │
00:01:11 verbose #7913 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7914 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7915 > │ let v461 : Async<US8> option = None │
00:01:11 verbose #7916 > │ let mutable _v461 = v461 │
00:01:11 verbose #7917 > │ async { │
00:01:11 verbose #7918 > │ let! v455 = v455 │
00:01:11 verbose #7919 > │ let v462 : US10 = v455 │
00:01:11 verbose #7920 > │ let v489 : US8 = │
00:01:11 verbose #7921 > │ match v462 with │
00:01:11 verbose #7922 > │ | US10_1(v466) -> (* Error *) │
00:01:11 verbose #7923 > │ let v467 : string = $"%A{v466}" │
00:01:11 verbose #7924 > │ let v468 : string = "System.TimeoutException" │
00:01:11 verbose #7925 > │ let v469 : bool = v467.Contains v468 │
00:01:11 verbose #7926 > │ if v469 then │
00:01:11 verbose #7927 > │ let v470 : US0 = US0_1 │
00:01:11 verbose #7928 > │ let v471 : (unit -> string) = closure31() │
00:01:11 verbose #7929 > │ let v472 : (unit -> string) = closure32() │
00:01:11 verbose #7930 > │ method4(v470, v471, v472) │
00:01:11 verbose #7931 > │ US8_1 │
00:01:11 verbose #7932 > │ else │
00:01:11 verbose #7933 > │ let v474 : string option = None │
00:01:11 verbose #7934 > │ let v475 : bool = true in let mutable _v474 = v474 │
00:01:11 verbose #7935 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #7936 > │ let v476 : string = $"%A{v466}" │
00:01:11 verbose #7937 > │ v476 │
00:01:11 verbose #7938 > │ #endif │
00:01:11 verbose #7939 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #7940 > │ let v477 : string = $"%A{v466}" │
00:01:11 verbose #7941 > │ v477 │
00:01:11 verbose #7942 > │ #endif │
00:01:11 verbose #7943 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #7944 > │ let v478 : string = $"%A{v466}" │
00:01:11 verbose #7945 > │ v478 │
00:01:11 verbose #7946 > │ #endif │
00:01:11 verbose #7947 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #7948 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #7949 > │ let v479 : string = $"{v466.GetType ()}: {v466.Message}" │
00:01:11 verbose #7950 > │ v479 │
00:01:11 verbose #7951 > │ #endif │
00:01:11 verbose #7952 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7953 > │ let v480 : string = $"%A{v466}" │
00:01:11 verbose #7954 > │ v480 │
00:01:11 verbose #7955 > │ #endif │
00:01:11 verbose #7956 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:11 verbose #7957 > │ FABLE_COMPILER_DART │
00:01:11 verbose #7958 > │ let v481 : string = Unchecked.defaultof<string> │
00:01:11 verbose #7959 > │ v481 │
00:01:11 verbose #7960 > │ #endif │
00:01:11 verbose #7961 > │ |> fun x -> _v474 <- Some x │
00:01:11 verbose #7962 > │ let v482 : string = _v474.Value │
00:01:11 verbose #7963 > │ let v483 : US0 = US0_4 │
00:01:11 verbose #7964 > │ let v484 : (unit -> string) = closure33(v482) │
00:01:11 verbose #7965 > │ let v485 : (unit -> string) = closure32() │
00:01:11 verbose #7966 > │ method4(v483, v484, v485) │
00:01:11 verbose #7967 > │ US8_1 │
00:01:11 verbose #7968 > │ | US10_0(v463, v464) -> (* Ok *) │
00:01:11 verbose #7969 > │ US8_0(v463, v464) │
00:01:11 verbose #7970 > │ return v489 │
00:01:11 verbose #7971 > │ } │
00:01:11 verbose #7972 > │ |> fun x -> _v461 <- Some x │
00:01:11 verbose #7973 > │ let v490 : Async<US8> = _v461 |> Option.get │
00:01:11 verbose #7974 > │ v490 │
00:01:11 verbose #7975 > │ #endif │
00:01:11 verbose #7976 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7977 > │ let v491 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7978 > │ v491 │
00:01:11 verbose #7979 > │ #endif │
00:01:11 verbose #7980 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7981 > │ let v492 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:01:11 verbose #7982 > │ v492 │
00:01:11 verbose #7983 > │ #endif │
00:01:11 verbose #7984 > │ |> fun x -> _v456 <- Some x │
00:01:11 verbose #7985 > │ let v493 : Async<US8> = _v456.Value │
00:01:11 verbose #7986 > │ return! v493 │
00:01:11 verbose #7987 > │ } │
00:01:11 verbose #7988 > │ |> fun x -> _v395 <- Some x │
00:01:11 verbose #7989 > │ let v494 : Async<US8> = _v395 |> Option.get │
00:01:11 verbose #7990 > │ v494 │
00:01:11 verbose #7991 > │ #endif │
00:01:11 verbose #7992 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #7993 > │ let v495 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #7994 > │ v495 │
00:01:11 verbose #7995 > │ #endif │
00:01:11 verbose #7996 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #7997 > │ let v496 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:01:11 verbose #7998 > │ v496 │
00:01:11 verbose #7999 > │ #endif │
00:01:11 verbose #8000 > │ |> fun x -> _v390 <- Some x │
00:01:11 verbose #8001 > │ let v497 : Async<US8> = _v390.Value │
00:01:11 verbose #8002 > │ v497 │
00:01:11 verbose #8003 > │ #endif │
00:01:11 verbose #8004 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #8005 > │ let v498 : Async<US8> = null |> unbox<Async<US8>> │
00:01:11 verbose #8006 > │ v498 │
00:01:11 verbose #8007 > │ #endif │
00:01:11 verbose #8008 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #8009 > │ let v499 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:01:11 verbose #8010 > │ v499 │
00:01:11 verbose #8011 > │ #endif │
00:01:11 verbose #8012 > │ |> fun x -> _v385 <- Some x │
00:01:11 verbose #8013 > │ let v500 : Async<US8> = _v385.Value │
00:01:11 verbose #8014 > │ let v501 : US8 option = None │
00:01:11 verbose #8015 > │ let v502 : bool = true in let mutable _v501 = v501 │
00:01:11 verbose #8016 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:11 verbose #8017 > │ let v503 : US8 = null |> unbox<US8> │
00:01:11 verbose #8018 > │ v503 │
00:01:11 verbose #8019 > │ #endif │
00:01:11 verbose #8020 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:11 verbose #8021 > │ let v504 : US8 = null |> unbox<US8> │
00:01:11 verbose #8022 > │ v504 │
00:01:11 verbose #8023 > │ #endif │
00:01:11 verbose #8024 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:11 verbose #8025 > │ let v505 : US8 = null |> unbox<US8> │
00:01:11 verbose #8026 > │ v505 │
00:01:11 verbose #8027 > │ #endif │
00:01:11 verbose #8028 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:11 verbose #8029 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:11 verbose #8030 > │ let v506 : (Async<US8> -> US8) = Async.RunSynchronously │
00:01:11 verbose #8031 > │ let v507 : US8 = v506 v500 │
00:01:11 verbose #8032 > │ v507 │
00:01:11 verbose #8033 > │ #endif │
00:01:11 verbose #8034 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:11 verbose #8035 > │ let v508 : US8 = null |> unbox<US8> │
00:01:11 verbose #8036 > │ v508 │
00:01:11 verbose #8037 > │ #endif │
00:01:11 verbose #8038 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:11 verbose #8039 > │ let v509 : US8 = Unchecked.defaultof<US8> │
00:01:11 verbose #8040 > │ v509 │
00:01:11 verbose #8041 > │ #endif │
00:01:11 verbose #8042 > │ |> fun x -> _v501 <- Some x │
00:01:11 verbose #8043 > │ let v510 : US8 = _v501.Value │
00:01:11 verbose #8044 > │ let v526 : bool = │
00:01:11 verbose #8045 > │ match v510 with │
00:01:11 verbose #8046 > │ | US8_0(v511, v512) -> (* Some *) │
00:01:11 verbose #8047 > │ let v513 : string = $"%A{v511}" │
00:01:11 verbose #8048 > │ System.Console.WriteLine v513 │
00:01:11 verbose #8049 > │ let v514 : bool = v511 = -2147483648 │
00:01:11 verbose #8050 > │ let v516 : bool = │
00:01:11 verbose #8051 > │ if v514 then │
00:01:11 verbose #8052 > │ true │
00:01:11 verbose #8053 > │ else │
00:01:11 verbose #8054 > │ method21(v514) │
00:01:11 verbose #8055 > │ let v517 : string = $"__expect / actual: %A{v511} / expected: │
00:01:11 verbose #8056 > │ %A{-2147483648}" │
00:01:11 verbose #8057 > │ let v518 : bool = v516 = false │
00:01:11 verbose #8058 > │ if v518 then │
00:01:11 verbose #8059 > │ failwith<unit> v517 │
00:01:11 verbose #8060 > │ let v519 : string = method22() │
00:01:11 verbose #8061 > │ let v520 : string = $"%A{v512}" │
00:01:11 verbose #8062 > │ System.Console.WriteLine v520 │
00:01:11 verbose #8063 > │ let v521 : bool = v512 = v519 │
00:01:11 verbose #8064 > │ let v523 : bool = │
00:01:11 verbose #8065 > │ if v521 then │
00:01:11 verbose #8066 > │ true │
00:01:11 verbose #8067 > │ else │
00:01:11 verbose #8068 > │ method21(v521) │
00:01:11 verbose #8069 > │ let v524 : string = $"__expect / actual: %A{v512} / expected: │
00:01:11 verbose #8070 > │ %A{v519}" │
00:01:11 verbose #8071 > │ let v525 : bool = v523 = false │
00:01:11 verbose #8072 > │ if v525 then │
00:01:11 verbose #8073 > │ failwith<unit> v524 │
00:01:11 verbose #8074 > │ true │
00:01:11 verbose #8075 > │ | _ -> │
00:01:11 verbose #8076 > │ false │
00:01:11 verbose #8077 > │ let v527 : string = $"%A{v526}" │
00:01:11 verbose #8078 > │ System.Console.WriteLine v527 │
00:01:11 verbose #8079 > │ let v529 : bool = │
00:01:11 verbose #8080 > │ if v526 then │
00:01:11 verbose #8081 > │ true │
00:01:11 verbose #8082 > │ else │
00:01:11 verbose #8083 > │ method21(v526) │
00:01:11 verbose #8084 > │ let v530 : string = $"__expect / actual: %A{v526} / expected: %A{true}" │
00:01:11 verbose #8085 > │ let v531 : bool = v529 = false │
00:01:11 verbose #8086 > │ if v531 then │
00:01:11 verbose #8087 > │ failwith<unit> v530 │
00:01:11 verbose #8088 > │ method0() │
00:01:11 verbose #8089 > │ │
00:01:11 verbose #8090 > │ 00:00:00 debug #1 1 │
00:01:11 verbose #8091 > │ 00:00:00 debug #2 2 │
00:01:11 verbose #8092 > │ 00:00:00 debug #3 execute_with_options_async / options: struct (Some │
00:01:11 verbose #8093 > │ System.Threading.CancellationToken, │
00:01:11 verbose #8094 > │ "pwsh -c "Get-Content │
00:01:11 verbose #8095 > │ C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0133-4091-9152-950ce │
00:01:11 verbose #8096 > │ a7379fe\test.txt"", │
00:01:11 verbose #8097 > │ None, None) │
00:01:11 verbose #8098 > │ 00:00:00 debug #4 3 │
00:01:11 verbose #8099 > │ 00:00:00 debug #5 4 │
00:01:11 verbose #8100 > │ 00:00:00 warning #6 execute_with_options_async / WaitForExitAsync / ex: │
00:01:11 verbose #8101 > │ System.Threading.Tasks.TaskCanceledException: A task was canceled. │
00:01:11 verbose #8102 > │ 00:00:00 debug #7 execute_with_options_async / exit_code: -2147483648 / │
00:01:11 verbose #8103 > │ output.Length: 66 │
00:01:11 verbose #8104 > │ 00:00:00 debug #8 5 │
00:01:11 verbose #8105 > │ -2147483648 │
00:01:11 verbose #8106 > │ "System.Threading.Tasks.TaskCanceledException: A task was canceled." │
00:01:11 verbose #8107 > │ true │
00:01:11 verbose #8108 > │ │
00:01:11 verbose #8109 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #8110 >
00:01:11 verbose #8111 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #8112 > nominal command = $'clap_Command'
00:01:11 verbose #8113 > 00:01:11 debug #88 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4476ed8d5506296252c1e5d64c62a28856d7ab4b89f9e32d7a4b44359118c350/main.spi
00:01:11 verbose #8114 >
00:01:11 verbose #8115 > ╭─[ 228.45ms - stdout ]────────────────────────────────────────────────────────╮
00:01:11 verbose #8116 > │ () │
00:01:11 verbose #8117 > │ │
00:01:11 verbose #8118 > │ │
00:01:11 verbose #8119 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #8120 >
00:01:11 verbose #8121 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:11 verbose #8122 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:11 verbose #8123 > │ ## new_command │
00:01:11 verbose #8124 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #8125 >
00:01:11 verbose #8126 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #8127 > inl new_command (s : rust.static_ref' sm'.str) : command =
00:01:11 verbose #8128 > !\\(s, $'"clap::Command::new($0)"')
00:01:11 verbose #8129 > 00:01:11 debug #89 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5e87d2efcc5501f9a703b0ed474ac5bb57f14dbedbe7e73e46c1b9661f817c35/main.spi
00:01:11 verbose #8130 >
00:01:11 verbose #8131 > ╭─[ 207.12ms - stdout ]────────────────────────────────────────────────────────╮
00:01:11 verbose #8132 > │ () │
00:01:11 verbose #8133 > │ │
00:01:11 verbose #8134 > │ │
00:01:11 verbose #8135 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #8136 >
00:01:11 verbose #8137 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #8138 > // // test
00:01:11 verbose #8139 > // // print_code=false
00:01:11 verbose #8140 > // // rust=
00:01:11 verbose #8141 >
00:01:11 verbose #8142 > types ()
00:01:11 verbose #8143 > inl command = ##"command" |> new_command
00:01:11 verbose #8144 > trace Debug
00:01:11 verbose #8145 > fun () => $'$"new_command"'
00:01:11 verbose #8146 > fun () =>
00:01:11 verbose #8147 > inl command = command |> sm'.format_pretty'
00:01:11 verbose #8148 > $'$"command: {!command} / {!_locals ()}"'
00:01:12 verbose #8149 > 00:01:11 debug #90 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bea199755d9920b3fe7c75936256be094ad496451d8ed471f4e01cea7e5217bc/main.spi
00:01:20 verbose #8150 >
00:01:20 verbose #8151 > ╭─[ 8.19s - return value ]─────────────────────────────────────────────────────╮
00:01:20 verbose #8152 > │ 01:33:51 debug #1 new_command / command: Command { │
00:01:20 verbose #8153 > │ name: "command", │
00:01:20 verbose #8154 > │ long_flag: None, │
00:01:20 verbose #8155 > │ short_flag: None, │
00:01:20 verbose #8156 > │ display_name: None, │
00:01:20 verbose #8157 > │ bin_name: None, │
00:01:20 verbose #8158 > │ author: None, │
00:01:20 verbose #8159 > │ version: None, │
00:01:20 verbose #8160 > │ long_version: None, │
00:01:20 verbose #8161 > │ about: None, │
00:01:20 verbose #8162 > │ long_about: None, │
00:01:20 verbose #8163 > │ before_help: None, │
00:01:20 verbose #8164 > │ before_long_help: None, │
00:01:20 verbose #8165 > │ after_help: None, │
00:01:20 verbose #8166 > │ after_long_help: None, │
00:01:20 verbose #8167 > │ aliases: [], │
00:01:20 verbose #8168 > │ short_flag_aliases: [], │
00:01:20 verbose #8169 > │ long_flag_aliases: [], │
00:01:20 verbose #8170 > │ usage_str: None, │
00:01:20 verbose #8171 > │ usage_name: None, │
00:01:20 verbose #8172 > │ help_str: None, │
00:01:20 verbose #8173 > │ disp_ord: None, │
00:01:20 verbose #8174 > │ template: None, │
00:01:20 verbose #8175 > │ settings: AppFlags( │
00:01:20 verbose #8176 > │ 0, │
00:01:20 verbose #8177 > │ ), │
00:01:20 verbose #8178 > │ g_settings: AppFlags( │
00:01:20 verbose #8179 > │ 0, │
00:01:20 verbose #8180 > │ ), │
00:01:20 verbose #8181 > │ args: MKeyMap { │
00:01:20 verbose #8182 > │ args: [], │
00:01:20 verbose #8183 > │ keys: [], │
00:01:20 verbose #8184 > │ }, │
00:01:20 verbose #8185 > │ subcommands: [], │
00:01:20 verbose #8186 > │ groups: [], │
00:01:20 verbose #8187 > │ current_help_hea... │
00:01:20 verbose #8188 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #8189 >
00:01:20 verbose #8190 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:20 verbose #8191 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:20 verbose #8192 > │ ## arg │
00:01:20 verbose #8193 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #8194 >
00:01:20 verbose #8195 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #8196 > nominal arg = $'clap_Arg'
00:01:20 verbose #8197 > 00:01:19 debug #91 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a63a312e175bae5fee4ffc2c0e6bc0b0083322b439929c1fedb6048604326395/main.spi
00:01:20 verbose #8198 >
00:01:20 verbose #8199 > ╭─[ 221.65ms - stdout ]────────────────────────────────────────────────────────╮
00:01:20 verbose #8200 > │ () │
00:01:20 verbose #8201 > │ │
00:01:20 verbose #8202 > │ │
00:01:20 verbose #8203 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #8204 >
00:01:20 verbose #8205 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:20 verbose #8206 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:20 verbose #8207 > │ ## new_arg │
00:01:20 verbose #8208 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #8209 >
00:01:20 verbose #8210 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #8211 > inl new_arg (s : rust.static_ref' sm'.str) : arg =
00:01:20 verbose #8212 > !\\(s, $'"clap::Arg::new($0)"')
00:01:20 verbose #8213 > 00:01:19 debug #92 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/47a9c8e407f08a9beaa44b338a7237d0ac07038b16ac67a8260ade5bfa9f074e/main.spi
00:01:20 verbose #8214 >
00:01:20 verbose #8215 > ╭─[ 207.69ms - stdout ]────────────────────────────────────────────────────────╮
00:01:20 verbose #8216 > │ () │
00:01:20 verbose #8217 > │ │
00:01:20 verbose #8218 > │ │
00:01:20 verbose #8219 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #8220 >
00:01:20 verbose #8221 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #8222 > // // test
00:01:20 verbose #8223 > // // print_code=false
00:01:20 verbose #8224 > // // rust=
00:01:20 verbose #8225 >
00:01:20 verbose #8226 > types ()
00:01:20 verbose #8227 > inl arg = ##"arg" |> new_arg
00:01:20 verbose #8228 > trace Debug
00:01:20 verbose #8229 > fun () => $'$"new_arg"'
00:01:20 verbose #8230 > fun () =>
00:01:20 verbose #8231 > inl arg = arg |> sm'.format_pretty'
00:01:20 verbose #8232 > $'$"arg: {!arg} / {!_locals ()}"'
00:01:20 verbose #8233 > 00:01:20 debug #93 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/667ab54c13b9b037b045f014fd33a125094078a695f12b5446a12d418438a09f/main.spi
00:01:28 verbose #8234 >
00:01:28 verbose #8235 > ╭─[ 7.40s - return value ]─────────────────────────────────────────────────────╮
00:01:28 verbose #8236 > │ 01:33:58 debug #1 new_arg / arg: Arg { │
00:01:28 verbose #8237 > │ id: "arg", │
00:01:28 verbose #8238 > │ help: None, │
00:01:28 verbose #8239 > │ long_help: None, │
00:01:28 verbose #8240 > │ action: None, │
00:01:28 verbose #8241 > │ value_parser: None, │
00:01:28 verbose #8242 > │ blacklist: [], │
00:01:28 verbose #8243 > │ settings: ArgFlags( │
00:01:28 verbose #8244 > │ 0, │
00:01:28 verbose #8245 > │ ), │
00:01:28 verbose #8246 > │ overrides: [], │
00:01:28 verbose #8247 > │ groups: [], │
00:01:28 verbose #8248 > │ requires: [], │
00:01:28 verbose #8249 > │ r_ifs: [], │
00:01:28 verbose #8250 > │ r_unless: [], │
00:01:28 verbose #8251 > │ short: None, │
00:01:28 verbose #8252 > │ long: None, │
00:01:28 verbose #8253 > │ aliases: [], │
00:01:28 verbose #8254 > │ short_aliases: [], │
00:01:28 verbose #8255 > │ disp_ord: None, │
00:01:28 verbose #8256 > │ val_names: [], │
00:01:28 verbose #8257 > │ num_vals: None, │
00:01:28 verbose #8258 > │ val_delim: None, │
00:01:28 verbose #8259 > │ default_vals: [], │
00:01:28 verbose #8260 > │ default_vals_ifs: [], │
00:01:28 verbose #8261 > │ terminator: None, │
00:01:28 verbose #8262 > │ index: None, │
00:01:28 verbose #8263 > │ help_heading: None, │
00:01:28 verbose #8264 > │ value_hint: None, │
00:01:28 verbose #8265 > │ default_missing_vals: [], │
00:01:28 verbose #8266 > │ } │
00:01:28 verbose #8267 > │ │
00:01:28 verbose #8268 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8269 >
00:01:28 verbose #8270 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:28 verbose #8271 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:28 verbose #8272 > │ ## command_arg │
00:01:28 verbose #8273 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8274 >
00:01:28 verbose #8275 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:28 verbose #8276 > inl command_arg (arg : arg) (command : command) : command =
00:01:28 verbose #8277 > !\\((command, arg), $'"clap::Command::arg($0, $1)"')
00:01:28 verbose #8278 > 00:01:27 debug #94 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a8fefc3fe15610a1e1e5a59e2c5c3f0f7d51a0e6f6b102f92f150e0634c5df78/main.spi
00:01:28 verbose #8279 >
00:01:28 verbose #8280 > ╭─[ 309.34ms - stdout ]────────────────────────────────────────────────────────╮
00:01:28 verbose #8281 > │ () │
00:01:28 verbose #8282 > │ │
00:01:28 verbose #8283 > │ │
00:01:28 verbose #8284 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8285 >
00:01:28 verbose #8286 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:28 verbose #8287 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:28 verbose #8288 > │ ## arg_required │
00:01:28 verbose #8289 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8290 >
00:01:28 verbose #8291 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:28 verbose #8292 > inl arg_required (value : bool) (arg : arg) : arg =
00:01:28 verbose #8293 > !\\((arg, value), $'"$0.required($1)"')
00:01:28 verbose #8294 > 00:01:27 debug #95 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/428c2e3322c99448dbedf2082fd80fd07bfd9f791220cdad0988eef6ff97b9d2/main.spi
00:01:28 verbose #8295 >
00:01:28 verbose #8296 > ╭─[ 217.23ms - stdout ]────────────────────────────────────────────────────────╮
00:01:28 verbose #8297 > │ () │
00:01:28 verbose #8298 > │ │
00:01:28 verbose #8299 > │ │
00:01:28 verbose #8300 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8301 >
00:01:28 verbose #8302 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:28 verbose #8303 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:28 verbose #8304 > │ ## arg_index │
00:01:28 verbose #8305 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8306 >
00:01:28 verbose #8307 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:28 verbose #8308 > inl arg_index (value : i32) (arg : arg) : arg =
00:01:28 verbose #8309 > !\\((arg, value), $'"$0.index($1)"')
00:01:28 verbose #8310 > 00:01:28 debug #96 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2dc7df87d9e4ef76a0ea54ae50ca8b1d58b58f83b3c4fffff5108f74df94e41e/main.spi
00:01:28 verbose #8311 >
00:01:28 verbose #8312 > ╭─[ 188.82ms - stdout ]────────────────────────────────────────────────────────╮
00:01:28 verbose #8313 > │ () │
00:01:28 verbose #8314 > │ │
00:01:28 verbose #8315 > │ │
00:01:28 verbose #8316 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8317 >
00:01:28 verbose #8318 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:28 verbose #8319 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:28 verbose #8320 > │ ## arg_index │
00:01:28 verbose #8321 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #8322 >
00:01:28 verbose #8323 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:28 verbose #8324 > inl arg_index (value : i32) (arg : arg) : arg =
00:01:28 verbose #8325 > !\\((arg, value), $'"$0.index($1)"')
00:01:28 verbose #8326 > 00:01:28 debug #97 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/56f722870ed13d1305b8d1ecb890167b5b3aae9c86f39e1df66872ccb78fec76/main.spi
00:01:29 verbose #8327 >
00:01:29 verbose #8328 > ╭─[ 258.72ms - stdout ]────────────────────────────────────────────────────────╮
00:01:29 verbose #8329 > │ () │
00:01:29 verbose #8330 > │ │
00:01:29 verbose #8331 > │ │
00:01:29 verbose #8332 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8333 >
00:01:29 verbose #8334 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #8335 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #8336 > │ ## arg_matches │
00:01:29 verbose #8337 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8338 >
00:01:29 verbose #8339 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #8340 > nominal arg_matches = $'clap_ArgMatches'
00:01:29 verbose #8341 > 00:01:28 debug #98 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8388fa87091c855f53380c038e595ed84d7355cdb819267549dd6baac85d63c6/main.spi
00:01:29 verbose #8342 >
00:01:29 verbose #8343 > ╭─[ 228.46ms - stdout ]────────────────────────────────────────────────────────╮
00:01:29 verbose #8344 > │ () │
00:01:29 verbose #8345 > │ │
00:01:29 verbose #8346 > │ │
00:01:29 verbose #8347 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8348 >
00:01:29 verbose #8349 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #8350 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #8351 > │ ## command_get_matches │
00:01:29 verbose #8352 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8353 >
00:01:29 verbose #8354 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #8355 > inl command_get_matches (command : command) : arg_matches =
00:01:29 verbose #8356 > !\\(command, $'"clap::Command::get_matches($0)"')
00:01:29 verbose #8357 > 00:01:28 debug #99 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8131535e6b0cff554439135e42d06a40144abf8ec610bb4a35bcaf9c43271497/main.spi
00:01:29 verbose #8358 >
00:01:29 verbose #8359 > ╭─[ 212.33ms - stdout ]────────────────────────────────────────────────────────╮
00:01:29 verbose #8360 > │ () │
00:01:29 verbose #8361 > │ │
00:01:29 verbose #8362 > │ │
00:01:29 verbose #8363 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8364 >
00:01:29 verbose #8365 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #8366 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #8367 > │ ## matches_get_one │
00:01:29 verbose #8368 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8369 >
00:01:29 verbose #8370 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #8371 > inl matches_get_one (x : string) (matches : arg_matches) : optionm'.option'
00:01:29 verbose #8372 > sm'.std_string =
00:01:29 verbose #8373 > inl x = join x
00:01:29 verbose #8374 > inl x = x |> sm'.as_str
00:01:29 verbose #8375 > !\($'"clap::ArgMatches::get_one(&!matches, !x).cloned()"')
00:01:29 verbose #8376 > 00:01:28 debug #100 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cc1914d9691d85c98c5873eabf4cad2d04a4b46847ff4970728b01b2bacf721c/main.spi
00:01:29 verbose #8377 >
00:01:29 verbose #8378 > ╭─[ 227.94ms - stdout ]────────────────────────────────────────────────────────╮
00:01:29 verbose #8379 > │ () │
00:01:29 verbose #8380 > │ │
00:01:29 verbose #8381 > │ │
00:01:29 verbose #8382 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8383 >
00:01:29 verbose #8384 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #8385 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #8386 > │ ## command_debug_assert │
00:01:29 verbose #8387 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8388 >
00:01:29 verbose #8389 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #8390 > inl command_debug_assert (command : command) : () =
00:01:29 verbose #8391 > !\\(command, $'"clap::Command::debug_assert($0)"')
00:01:29 verbose #8392 > 00:01:29 debug #101 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d25d1cbea1a3e37122d08e7de765f6af76ce31232db0c6b941c1eb4d886ed537/main.spi
00:01:29 verbose #8393 >
00:01:29 verbose #8394 > ╭─[ 248.97ms - stdout ]────────────────────────────────────────────────────────╮
00:01:29 verbose #8395 > │ () │
00:01:29 verbose #8396 > │ │
00:01:29 verbose #8397 > │ │
00:01:29 verbose #8398 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8399 >
00:01:29 verbose #8400 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #8401 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #8402 > │ ## main │
00:01:29 verbose #8403 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #8404 >
00:01:29 verbose #8405 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #8406 > inl main () =
00:01:29 verbose #8407 > types ()
00:01:29 verbose #8408 > init_trace_state ()
00:01:29 verbose #8409 > $"let is_windows () = !is_windows ()" : ()
00:01:29 verbose #8410 > $"let get_executable_suffix () = !get_executable_suffix ()" : ()
00:01:29 verbose #8411 > $"let execute_async x = !execute_async x" : ()
00:01:29 verbose #8412 > $"let execute_with_options_async x = !execute_with_options_async x" : ()
00:01:30 verbose #8413 > 00:01:29 debug #102 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1fe3913d6817fd0f7a489c3c4203734ee22b73debd8749a725e30c4263afba72/main.spi
00:01:30 verbose #8414 >
00:01:31 verbose #8415 > ╭─[ 1.06s - stdout ]───────────────────────────────────────────────────────────╮
00:01:31 verbose #8416 > │ #if FABLE_COMPILER // runtime.types │
00:01:31 verbose #8417 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:01:31 verbose #8418 > │ end │
00:01:31 verbose #8419 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:01:31 verbose #8420 > │ class end │
00:01:31 verbose #8421 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:01:31 verbose #8422 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:01:31 verbose #8423 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:01:31 verbose #8424 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:01:31 verbose #8425 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:01:31 verbose #8426 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:01:31 verbose #8427 > │ class end │
00:01:31 verbose #8428 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:01:31 verbose #8429 > │ end │
00:01:31 verbose #8430 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:01:31 verbose #8431 > │ class end │
00:01:31 verbose #8432 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:01:31 verbose #8433 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:01:31 verbose #8434 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:01:31 verbose #8435 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:01:31 verbose #8436 > │ class end │
00:01:31 verbose #8437 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:01:31 verbose #8438 > │ class end │
00:01:31 verbose #8439 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:01:31 verbose #8440 > │ class end │
00:01:31 verbose #8441 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:01:31 verbose #8442 > │ std_cell_RefCell<'T> = class end │
00:01:31 verbose #8443 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:01:31 verbose #8444 > │ std_pin_Pin<'T> = class end │
00:01:31 verbose #8445 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:01:31 verbose #8446 > │ = class end │
00:01:31 verbose #8447 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:01:31 verbose #8448 > │ std_rc_Weak<'T> = class end │
00:01:31 verbose #8449 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:01:31 verbose #8450 > │ std_sync_Arc<'T> = class end │
00:01:31 verbose #8451 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:01:31 verbose #8452 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:01:31 verbose #8453 > │ base64_DecodeError = class end │
00:01:31 verbose #8454 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:01:31 verbose #8455 > │ borsh_io_Error = class end │
00:01:31 verbose #8456 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:01:31 verbose #8457 > │ js_sys_JsString = class end │
00:01:31 verbose #8458 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:01:31 verbose #8459 > │ serde_json_Error = class end │
00:01:31 verbose #8460 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:01:31 verbose #8461 > │ serde_json_Value = class end │
00:01:31 verbose #8462 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:01:31 verbose #8463 > │ serde_wasm_bindgen_Error = class end │
00:01:31 verbose #8464 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:01:31 verbose #8465 > │ = class end │
00:01:31 verbose #8466 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:01:31 verbose #8467 > │ std_ffi_OsString = class end │
00:01:31 verbose #8468 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:01:31 verbose #8469 > │ std_str_Utf8Error = class end │
00:01:31 verbose #8470 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:01:31 verbose #8471 > │ std_string_String = class end │
00:01:31 verbose #8472 > │ [<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>] type clap_Arg = class end │
00:01:31 verbose #8473 > │ [<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>] type clap_Command = │
00:01:31 verbose #8474 > │ class end │
00:01:31 verbose #8475 > │ [<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>] type │
00:01:31 verbose #8476 > │ clap_ArgMatches = class end │
00:01:31 verbose #8477 > │ #endif // runtime.types │
00:01:31 verbose #8478 > │ module State = let mutable trace_state = None │
00:01:31 verbose #8479 > │ #if FABLE_COMPILER │
00:01:31 verbose #8480 > │ [<CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>] │
00:01:31 verbose #8481 > │ module System = │
00:01:31 verbose #8482 > │ module Diagnostics = │
00:01:31 verbose #8483 > │ type Process = unit │
00:01:31 verbose #8484 > │ type DataReceivedEventArgs = unit │
00:01:31 verbose #8485 > │ #endif │
00:01:31 verbose #8486 > │ type Mut0 = {mutable l0 : int64} │
00:01:31 verbose #8487 > │ and Mut1 = {mutable l0 : bool} │
00:01:31 verbose #8488 > │ and [<Struct>] US0 = │
00:01:31 verbose #8489 > │ | US0_0 │
00:01:31 verbose #8490 > │ | US0_1 │
00:01:31 verbose #8491 > │ | US0_2 │
00:01:31 verbose #8492 > │ | US0_3 │
00:01:31 verbose #8493 > │ | US0_4 │
00:01:31 verbose #8494 > │ and Mut2 = {mutable l0 : US0} │
00:01:31 verbose #8495 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:01:31 verbose #8496 > │ and [<Struct>] US1 = │
00:01:31 verbose #8497 > │ | US1_0 of f0_0 : int64 │
00:01:31 verbose #8498 > │ | US1_1 │
00:01:31 verbose #8499 > │ and UH0 = │
00:01:31 verbose #8500 > │ | UH0_0 │
00:01:31 verbose #8501 > │ | UH0_1 of char * UH0 │
00:01:31 verbose #8502 > │ and [<Struct>] US3 = │
00:01:31 verbose #8503 > │ | US3_0 │
00:01:31 verbose #8504 > │ | US3_1 │
00:01:31 verbose #8505 > │ and [<Struct>] US2 = │
00:01:31 verbose #8506 > │ | US2_0 │
00:01:31 verbose #8507 > │ | US2_1 of f1_0 : US3 │
00:01:31 verbose #8508 > │ | US2_2 │
00:01:31 verbose #8509 > │ and [<Struct>] US4 = │
00:01:31 verbose #8510 > │ | US4_0 of f0_0 : string │
00:01:31 verbose #8511 > │ | US4_1 │
00:01:31 verbose #8512 > │ and [<Struct>] US5 = │
00:01:31 verbose #8513 > │ | US5_0 of f0_0 : int64 │
00:01:31 verbose #8514 > │ | US5_1 │
00:01:31 verbose #8515 > │ and [<Struct>] US6 = │
00:01:31 verbose #8516 > │ | US6_0 of f0_0 : (struct (bool * string * int32) -> Async<unit>) │
00:01:31 verbose #8517 > │ | US6_1 │
00:01:31 verbose #8518 > │ and [<Struct>] US7 = │
00:01:31 verbose #8519 > │ | US7_0 of f0_0 : System.Threading.CancellationToken │
00:01:31 verbose #8520 > │ | US7_1 │
00:01:31 verbose #8521 > │ let rec closure1 () (v0 : string) : unit = │
00:01:31 verbose #8522 > │ () │
00:01:31 verbose #8523 > │ and method0 (v0 : int64 option) : int64 option = │
00:01:31 verbose #8524 > │ v0 │
00:01:31 verbose #8525 > │ and method1 (v0 : int64 option) : int64 option = │
00:01:31 verbose #8526 > │ v0 │
00:01:31 verbose #8527 > │ and closure0 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:01:31 verbose #8528 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:31 verbose #8529 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:31 verbose #8530 > │ let v2 : US0 = US0_0 │
00:01:31 verbose #8531 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:31 verbose #8532 > │ let v4 : (string -> unit) = closure1() │
00:01:31 verbose #8533 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:01:31 verbose #8534 > │ let v6 : int64 option option = None │
00:01:31 verbose #8535 > │ let mutable _v6 = v6 │
00:01:31 verbose #8536 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:31 verbose #8537 > │ let v7 : string option = None │
00:01:31 verbose #8538 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:31 verbose #8539 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #8540 > │ let v9 : string = null |> unbox<string> │
00:01:31 verbose #8541 > │ v9 │
00:01:31 verbose #8542 > │ #endif │
00:01:31 verbose #8543 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #8544 > │ let v10 : string = null |> unbox<string> │
00:01:31 verbose #8545 > │ v10 │
00:01:31 verbose #8546 > │ #endif │
00:01:31 verbose #8547 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #8548 > │ let v11 : string = null |> unbox<string> │
00:01:31 verbose #8549 > │ v11 │
00:01:31 verbose #8550 > │ #endif │
00:01:31 verbose #8551 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #8552 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #8553 > │ let v12 : string = │
00:01:31 verbose #8554 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:31 verbose #8555 > │ v12 │
00:01:31 verbose #8556 > │ #endif │
00:01:31 verbose #8557 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #8558 > │ let v13 : string = null |> unbox<string> │
00:01:31 verbose #8559 > │ v13 │
00:01:31 verbose #8560 > │ #endif │
00:01:31 verbose #8561 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #8562 > │ let v14 : string = Unchecked.defaultof<string> │
00:01:31 verbose #8563 > │ v14 │
00:01:31 verbose #8564 > │ #endif │
00:01:31 verbose #8565 > │ |> fun x -> _v7 <- Some x │
00:01:31 verbose #8566 > │ let v15 : string = _v7.Value │
00:01:31 verbose #8567 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:01:31 verbose #8568 > │ let v18 : bool = v17 <> true │
00:01:31 verbose #8569 > │ let v24 : US1 = │
00:01:31 verbose #8570 > │ if v18 then │
00:01:31 verbose #8571 > │ let v19 : System.DateTime = System.DateTime.Now │
00:01:31 verbose #8572 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:01:31 verbose #8573 > │ let v21 : int64 = v20 v19 │
00:01:31 verbose #8574 > │ US1_0(v21) │
00:01:31 verbose #8575 > │ else │
00:01:31 verbose #8576 > │ US1_1 │
00:01:31 verbose #8577 > │ let v29 : int64 option = │
00:01:31 verbose #8578 > │ match v24 with │
00:01:31 verbose #8579 > │ | US1_1 -> (* None *) │
00:01:31 verbose #8580 > │ let v27 : int64 option = None │
00:01:31 verbose #8581 > │ v27 │
00:01:31 verbose #8582 > │ | US1_0(v25) -> (* Some *) │
00:01:31 verbose #8583 > │ let v26 : int64 option = Some v25 │
00:01:31 verbose #8584 > │ v26 │
00:01:31 verbose #8585 > │ let v30 : int64 option = method0(v29) │
00:01:31 verbose #8586 > │ v30 │
00:01:31 verbose #8587 > │ #else │
00:01:31 verbose #8588 > │ let v31 : int64 option = None │
00:01:31 verbose #8589 > │ let v32 : int64 option = method1(v31) │
00:01:31 verbose #8590 > │ v32 │
00:01:31 verbose #8591 > │ #endif │
00:01:31 verbose #8592 > │ |> fun x -> _v6 <- Some x │
00:01:31 verbose #8593 > │ let v33 : int64 option = _v6.Value │
00:01:31 verbose #8594 > │ struct (v1, v0, v3, v33, v5) │
00:01:31 verbose #8595 > │ and closure2 () () : bool = │
00:01:31 verbose #8596 > │ let v0 : bool option = None │
00:01:31 verbose #8597 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:31 verbose #8598 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #8599 > │ let v2 : bool = null |> unbox<bool> │
00:01:31 verbose #8600 > │ v2 │
00:01:31 verbose #8601 > │ #endif │
00:01:31 verbose #8602 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #8603 > │ let v3 : bool = null |> unbox<bool> │
00:01:31 verbose #8604 > │ v3 │
00:01:31 verbose #8605 > │ #endif │
00:01:31 verbose #8606 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #8607 > │ let v4 : bool = null |> unbox<bool> │
00:01:31 verbose #8608 > │ v4 │
00:01:31 verbose #8609 > │ #endif │
00:01:31 verbose #8610 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #8611 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #8612 > │ let v5 : System.Runtime.InteropServices.OSPlatform = │
00:01:31 verbose #8613 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:31 verbose #8614 > │ let v6 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:31 verbose #8615 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:31 verbose #8616 > │ let v7 : bool = v6 v5 │
00:01:31 verbose #8617 > │ v7 │
00:01:31 verbose #8618 > │ #endif │
00:01:31 verbose #8619 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #8620 > │ let v8 : bool = null |> unbox<bool> │
00:01:31 verbose #8621 > │ v8 │
00:01:31 verbose #8622 > │ #endif │
00:01:31 verbose #8623 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #8624 > │ let v9 : bool = Unchecked.defaultof<bool> │
00:01:31 verbose #8625 > │ v9 │
00:01:31 verbose #8626 > │ #endif │
00:01:31 verbose #8627 > │ |> fun x -> _v0 <- Some x │
00:01:31 verbose #8628 > │ let v10 : bool = _v0.Value │
00:01:31 verbose #8629 > │ v10 │
00:01:31 verbose #8630 > │ and closure3 () () : string = │
00:01:31 verbose #8631 > │ let v0 : bool option = None │
00:01:31 verbose #8632 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:01:31 verbose #8633 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #8634 > │ let v2 : bool = null |> unbox<bool> │
00:01:31 verbose #8635 > │ v2 │
00:01:31 verbose #8636 > │ #endif │
00:01:31 verbose #8637 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #8638 > │ let v3 : bool = null |> unbox<bool> │
00:01:31 verbose #8639 > │ v3 │
00:01:31 verbose #8640 > │ #endif │
00:01:31 verbose #8641 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #8642 > │ let v4 : bool = null |> unbox<bool> │
00:01:31 verbose #8643 > │ v4 │
00:01:31 verbose #8644 > │ #endif │
00:01:31 verbose #8645 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #8646 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #8647 > │ let v5 : System.Runtime.InteropServices.OSPlatform = │
00:01:31 verbose #8648 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:31 verbose #8649 > │ let v6 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:31 verbose #8650 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:31 verbose #8651 > │ let v7 : bool = v6 v5 │
00:01:31 verbose #8652 > │ v7 │
00:01:31 verbose #8653 > │ #endif │
00:01:31 verbose #8654 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #8655 > │ let v8 : bool = null |> unbox<bool> │
00:01:31 verbose #8656 > │ v8 │
00:01:31 verbose #8657 > │ #endif │
00:01:31 verbose #8658 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #8659 > │ let v9 : bool = Unchecked.defaultof<bool> │
00:01:31 verbose #8660 > │ v9 │
00:01:31 verbose #8661 > │ #endif │
00:01:31 verbose #8662 > │ |> fun x -> _v0 <- Some x │
00:01:31 verbose #8663 > │ let v10 : bool = _v0.Value │
00:01:31 verbose #8664 > │ if v10 then │
00:01:31 verbose #8665 > │ let v11 : string = ".exe" │
00:01:31 verbose #8666 > │ v11 │
00:01:31 verbose #8667 > │ else │
00:01:31 verbose #8668 > │ let v12 : string = "" │
00:01:31 verbose #8669 > │ v12 │
00:01:31 verbose #8670 > │ and method2 () : struct (string * string) = │
00:01:31 verbose #8671 > │ let v0 : string = "" │
00:01:31 verbose #8672 > │ struct (v0, v0) │
00:01:31 verbose #8673 > │ and closure6 (v0 : char) (v1 : UH0) : UH0 = │
00:01:31 verbose #8674 > │ UH0_1(v0, v1) │
00:01:31 verbose #8675 > │ and closure5 () (v0 : char) : (UH0 -> UH0) = │
00:01:31 verbose #8676 > │ closure6(v0) │
00:01:31 verbose #8677 > │ and method3 () : (char -> (UH0 -> UH0)) = │
00:01:31 verbose #8678 > │ closure5() │
00:01:31 verbose #8679 > │ and method4 (v0 : string, v1 : string, v2 : UH0, v3 : US2) : struct (string │
00:01:31 verbose #8680 > │ * string) = │
00:01:31 verbose #8681 > │ match v2 with │
00:01:31 verbose #8682 > │ | UH0_1(v4, v5) -> (* Cons *) │
00:01:31 verbose #8683 > │ let v6 : bool = '"' = v4 │
00:01:31 verbose #8684 > │ if v6 then │
00:01:31 verbose #8685 > │ let v8 : bool = v1 = "" │
00:01:31 verbose #8686 > │ if v8 then │
00:01:31 verbose #8687 > │ let v9 : US3 = US3_0 │
00:01:31 verbose #8688 > │ let v10 : US2 = US2_1(v9) │
00:01:31 verbose #8689 > │ method4(v0, v1, v5, v10) │
00:01:31 verbose #8690 > │ else │
00:01:31 verbose #8691 > │ match v3 with │
00:01:31 verbose #8692 > │ | US2_2 -> (* Arguments *) │
00:01:31 verbose #8693 > │ let v38 : string = $"{v0}{v4}" │
00:01:31 verbose #8694 > │ let v39 : US2 = US2_2 │
00:01:31 verbose #8695 > │ method4(v38, v1, v5, v39) │
00:01:31 verbose #8696 > │ | US2_1(v13) -> (* Path *) │
00:01:31 verbose #8697 > │ match v13 with │
00:01:31 verbose #8698 > │ | US3_0 -> (* Quoted *) │
00:01:31 verbose #8699 > │ let v14 : US3 = US3_1 │
00:01:31 verbose #8700 > │ let v15 : US2 = US2_1(v14) │
00:01:31 verbose #8701 > │ method4(v0, v1, v5, v15) │
00:01:31 verbose #8702 > │ | _ -> │
00:01:31 verbose #8703 > │ let v18 : bool = ' ' = v4 │
00:01:31 verbose #8704 > │ if v18 then │
00:01:31 verbose #8705 > │ let v19 : US2 = US2_2 │
00:01:31 verbose #8706 > │ method4(v0, v1, v5, v19) │
00:01:31 verbose #8707 > │ else │
00:01:31 verbose #8708 > │ let v22 : string = $"{v1}{v4}" │
00:01:31 verbose #8709 > │ method4(v0, v22, v5, v3) │
00:01:31 verbose #8710 > │ | US2_0 -> (* Start *) │
00:01:31 verbose #8711 > │ let v29 : bool = ' ' = v4 │
00:01:31 verbose #8712 > │ if v29 then │
00:01:31 verbose #8713 > │ let v30 : US2 = US2_2 │
00:01:31 verbose #8714 > │ method4(v0, v1, v5, v30) │
00:01:31 verbose #8715 > │ else │
00:01:31 verbose #8716 > │ let v33 : string = $"{v1}{v4}" │
00:01:31 verbose #8717 > │ method4(v0, v33, v5, v3) │
00:01:31 verbose #8718 > │ else │
00:01:31 verbose #8719 > │ let v50 : bool = ''' = v4 │
00:01:31 verbose #8720 > │ if v50 then │
00:01:31 verbose #8721 > │ let v52 : bool = v1 = "" │
00:01:31 verbose #8722 > │ if v52 then │
00:01:31 verbose #8723 > │ let v53 : US3 = US3_0 │
00:01:31 verbose #8724 > │ let v54 : US2 = US2_1(v53) │
00:01:31 verbose #8725 > │ method4(v0, v1, v5, v54) │
00:01:31 verbose #8726 > │ else │
00:01:31 verbose #8727 > │ match v3 with │
00:01:31 verbose #8728 > │ | US2_2 -> (* Arguments *) │
00:01:31 verbose #8729 > │ let v82 : string = $"{v0}{v4}" │
00:01:31 verbose #8730 > │ let v83 : US2 = US2_2 │
00:01:31 verbose #8731 > │ method4(v82, v1, v5, v83) │
00:01:31 verbose #8732 > │ | US2_1(v57) -> (* Path *) │
00:01:31 verbose #8733 > │ match v57 with │
00:01:31 verbose #8734 > │ | US3_0 -> (* Quoted *) │
00:01:31 verbose #8735 > │ let v58 : US3 = US3_1 │
00:01:31 verbose #8736 > │ let v59 : US2 = US2_1(v58) │
00:01:31 verbose #8737 > │ method4(v0, v1, v5, v59) │
00:01:31 verbose #8738 > │ | _ -> │
00:01:31 verbose #8739 > │ let v62 : bool = ' ' = v4 │
00:01:31 verbose #8740 > │ if v62 then │
00:01:31 verbose #8741 > │ let v63 : US2 = US2_2 │
00:01:31 verbose #8742 > │ method4(v0, v1, v5, v63) │
00:01:31 verbose #8743 > │ else │
00:01:31 verbose #8744 > │ let v66 : string = $"{v1}{v4}" │
00:01:31 verbose #8745 > │ method4(v0, v66, v5, v3) │
00:01:31 verbose #8746 > │ | US2_0 -> (* Start *) │
00:01:31 verbose #8747 > │ let v73 : bool = ' ' = v4 │
00:01:31 verbose #8748 > │ if v73 then │
00:01:31 verbose #8749 > │ let v74 : US2 = US2_2 │
00:01:31 verbose #8750 > │ method4(v0, v1, v5, v74) │
00:01:31 verbose #8751 > │ else │
00:01:31 verbose #8752 > │ let v77 : string = $"{v1}{v4}" │
00:01:31 verbose #8753 > │ method4(v0, v77, v5, v3) │
00:01:31 verbose #8754 > │ else │
00:01:31 verbose #8755 > │ match v3 with │
00:01:31 verbose #8756 > │ | US2_2 -> (* Arguments *) │
00:01:31 verbose #8757 > │ let v126 : string = $"{v0}{v4}" │
00:01:31 verbose #8758 > │ let v127 : US2 = US2_2 │
00:01:31 verbose #8759 > │ method4(v126, v1, v5, v127) │
00:01:31 verbose #8760 > │ | US2_1(v94) -> (* Path *) │
00:01:31 verbose #8761 > │ match v94 with │
00:01:31 verbose #8762 > │ | US3_0 -> (* Quoted *) │
00:01:31 verbose #8763 > │ let v95 : bool = ' ' = v4 │
00:01:31 verbose #8764 > │ if v95 then │
00:01:31 verbose #8765 > │ let v96 : string = $"{v1} " │
00:01:31 verbose #8766 > │ let v97 : US3 = US3_0 │
00:01:31 verbose #8767 > │ let v98 : US2 = US2_1(v97) │
00:01:31 verbose #8768 > │ method4(v0, v96, v5, v98) │
00:01:31 verbose #8769 > │ else │
00:01:31 verbose #8770 > │ let v101 : string = $"{v1}{v4}" │
00:01:31 verbose #8771 > │ method4(v0, v101, v5, v3) │
00:01:31 verbose #8772 > │ | _ -> │
00:01:31 verbose #8773 > │ let v106 : bool = ' ' = v4 │
00:01:31 verbose #8774 > │ if v106 then │
00:01:31 verbose #8775 > │ let v107 : US2 = US2_2 │
00:01:31 verbose #8776 > │ method4(v0, v1, v5, v107) │
00:01:31 verbose #8777 > │ else │
00:01:31 verbose #8778 > │ let v110 : string = $"{v1}{v4}" │
00:01:31 verbose #8779 > │ method4(v0, v110, v5, v3) │
00:01:31 verbose #8780 > │ | US2_0 -> (* Start *) │
00:01:31 verbose #8781 > │ let v117 : bool = ' ' = v4 │
00:01:31 verbose #8782 > │ if v117 then │
00:01:31 verbose #8783 > │ let v118 : US2 = US2_2 │
00:01:31 verbose #8784 > │ method4(v0, v1, v5, v118) │
00:01:31 verbose #8785 > │ else │
00:01:31 verbose #8786 > │ let v121 : string = $"{v1}{v4}" │
00:01:31 verbose #8787 > │ method4(v0, v121, v5, v3) │
00:01:31 verbose #8788 > │ | _ -> │
00:01:31 verbose #8789 > │ match v3 with │
00:01:31 verbose #8790 > │ | US2_2 -> (* Arguments *) │
00:01:31 verbose #8791 > │ let v152 : string = "\\" │
00:01:31 verbose #8792 > │ let v153 : string = "/" │
00:01:31 verbose #8793 > │ let v154 : string = v1.Replace (v152, v153) │
00:01:31 verbose #8794 > │ struct (v154, v0) │
00:01:31 verbose #8795 > │ | US2_1(v140) -> (* Path *) │
00:01:31 verbose #8796 > │ match v140 with │
00:01:31 verbose #8797 > │ | US3_0 -> (* Quoted *) │
00:01:31 verbose #8798 > │ let v141 : string = "\\" │
00:01:31 verbose #8799 > │ let v142 : string = "/" │
00:01:31 verbose #8800 > │ let v143 : string = v1.Replace (v141, v142) │
00:01:31 verbose #8801 > │ struct (v143, v0) │
00:01:31 verbose #8802 > │ | _ -> │
00:01:31 verbose #8803 > │ let v144 : string = "\\" │
00:01:31 verbose #8804 > │ let v145 : string = "/" │
00:01:31 verbose #8805 > │ let v146 : string = v1.Replace (v144, v145) │
00:01:31 verbose #8806 > │ struct (v146, v0) │
00:01:31 verbose #8807 > │ | US2_0 -> (* Start *) │
00:01:31 verbose #8808 > │ let v149 : string = "\\" │
00:01:31 verbose #8809 > │ let v150 : string = "/" │
00:01:31 verbose #8810 > │ let v151 : string = v1.Replace (v149, v150) │
00:01:31 verbose #8811 > │ struct (v151, v0) │
00:01:31 verbose #8812 > │ and closure7 () (v0 : string) : US4 = │
00:01:31 verbose #8813 > │ US4_0(v0) │
00:01:31 verbose #8814 > │ and method5 () : (string -> US4) = │
00:01:31 verbose #8815 > │ closure7() │
00:01:31 verbose #8816 > │ and closure8 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:31 verbose #8817 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:31 verbose #8818 > │ option) () : string = │
00:01:31 verbose #8819 > │ let v4 : string = $"execute_with_options_async / options: %A{struct (v0, │
00:01:31 verbose #8820 > │ v1, v2, v3)}" │
00:01:31 verbose #8821 > │ v4 │
00:01:31 verbose #8822 > │ and closure9 () () : string = │
00:01:31 verbose #8823 > │ let v0 : string = "" │
00:01:31 verbose #8824 > │ v0 │
00:01:31 verbose #8825 > │ and method6 () : (unit -> string) = │
00:01:31 verbose #8826 > │ closure9() │
00:01:31 verbose #8827 > │ and closure11 () (v0 : int64) : US5 = │
00:01:31 verbose #8828 > │ US5_0(v0) │
00:01:31 verbose #8829 > │ and method8 () : (int64 -> US5) = │
00:01:31 verbose #8830 > │ closure11() │
00:01:31 verbose #8831 > │ and method9 () : string = │
00:01:31 verbose #8832 > │ let v0 : string = "" │
00:01:31 verbose #8833 > │ v0 │
00:01:31 verbose #8834 > │ and closure10 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:31 verbose #8835 > │ string = │
00:01:31 verbose #8836 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:31 verbose #8837 > │ closure0() │
00:01:31 verbose #8838 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:01:31 verbose #8839 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:01:31 verbose #8840 > │ Mut3) = State.trace_state.Value │
00:01:31 verbose #8841 > │ let v9 : string option = None │
00:01:31 verbose #8842 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:01:31 verbose #8843 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #8844 > │ let v11 : (int64 -> US5) = method8() │
00:01:31 verbose #8845 > │ let v12 : US5 = US5_1 │
00:01:31 verbose #8846 > │ let v13 : US5 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:01:31 verbose #8847 > │ let v31 : System.DateTime = │
00:01:31 verbose #8848 > │ match v13 with │
00:01:31 verbose #8849 > │ | US5_1 -> (* None *) │
00:01:31 verbose #8850 > │ let v29 : System.DateTime = System.DateTime.Now │
00:01:31 verbose #8851 > │ v29 │
00:01:31 verbose #8852 > │ | US5_0(v14) -> (* Some *) │
00:01:31 verbose #8853 > │ let v15 : System.DateTime = System.DateTime.Now │
00:01:31 verbose #8854 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:01:31 verbose #8855 > │ let v17 : int64 = v16 v15 │
00:01:31 verbose #8856 > │ let v18 : int64 = v17 - v14 │
00:01:31 verbose #8857 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:01:31 verbose #8858 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:01:31 verbose #8859 > │ let v21 : int32 = v20 v19 │
00:01:31 verbose #8860 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:01:31 verbose #8861 > │ let v23 : int32 = v22 v19 │
00:01:31 verbose #8862 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:01:31 verbose #8863 > │ let v25 : int32 = v24 v19 │
00:01:31 verbose #8864 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:31 verbose #8865 > │ let v27 : int32 = v26 v19 │
00:01:31 verbose #8866 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:01:31 verbose #8867 > │ v25, v27) │
00:01:31 verbose #8868 > │ v28 │
00:01:31 verbose #8869 > │ let v32 : string = "hh:mm:ss" │
00:01:31 verbose #8870 > │ let v33 : string = v31.ToString v32 │
00:01:31 verbose #8871 > │ v33 │
00:01:31 verbose #8872 > │ #endif │
00:01:31 verbose #8873 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #8874 > │ let v34 : string = method9() │
00:01:31 verbose #8875 > │ v34 │
00:01:31 verbose #8876 > │ #endif │
00:01:31 verbose #8877 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #8878 > │ let v35 : string = method9() │
00:01:31 verbose #8879 > │ v35 │
00:01:31 verbose #8880 > │ #endif │
00:01:31 verbose #8881 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #8882 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #8883 > │ let v36 : (int64 -> US5) = method8() │
00:01:31 verbose #8884 > │ let v37 : US5 = US5_1 │
00:01:31 verbose #8885 > │ let v38 : US5 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:01:31 verbose #8886 > │ let v56 : System.DateTime = │
00:01:31 verbose #8887 > │ match v38 with │
00:01:31 verbose #8888 > │ | US5_1 -> (* None *) │
00:01:31 verbose #8889 > │ let v54 : System.DateTime = System.DateTime.Now │
00:01:31 verbose #8890 > │ v54 │
00:01:31 verbose #8891 > │ | US5_0(v39) -> (* Some *) │
00:01:31 verbose #8892 > │ let v40 : System.DateTime = System.DateTime.Now │
00:01:31 verbose #8893 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:01:31 verbose #8894 > │ let v42 : int64 = v41 v40 │
00:01:31 verbose #8895 > │ let v43 : int64 = v42 - v39 │
00:01:31 verbose #8896 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:01:31 verbose #8897 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:01:31 verbose #8898 > │ let v46 : int32 = v45 v44 │
00:01:31 verbose #8899 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:01:31 verbose #8900 > │ let v48 : int32 = v47 v44 │
00:01:31 verbose #8901 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:01:31 verbose #8902 > │ let v50 : int32 = v49 v44 │
00:01:31 verbose #8903 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:31 verbose #8904 > │ let v52 : int32 = v51 v44 │
00:01:31 verbose #8905 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:01:31 verbose #8906 > │ v50, v52) │
00:01:31 verbose #8907 > │ v53 │
00:01:31 verbose #8908 > │ let v57 : string = "HH:mm:ss" │
00:01:31 verbose #8909 > │ let v58 : string = v56.ToString v57 │
00:01:31 verbose #8910 > │ v58 │
00:01:31 verbose #8911 > │ #endif │
00:01:31 verbose #8912 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #8913 > │ let v59 : string = method9() │
00:01:31 verbose #8914 > │ v59 │
00:01:31 verbose #8915 > │ #endif │
00:01:31 verbose #8916 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #8917 > │ let v60 : string = Unchecked.defaultof<string> │
00:01:31 verbose #8918 > │ v60 │
00:01:31 verbose #8919 > │ #endif │
00:01:31 verbose #8920 > │ |> fun x -> _v9 <- Some x │
00:01:31 verbose #8921 > │ let v61 : string = _v9.Value │
00:01:31 verbose #8922 > │ let v62 : int64 = v4.l0 │
00:01:31 verbose #8923 > │ let v72 : string = │
00:01:31 verbose #8924 > │ match v0 with │
00:01:31 verbose #8925 > │ | US0_4 -> (* Critical *) │
00:01:31 verbose #8926 > │ let v67 : string = "Critical" │
00:01:31 verbose #8927 > │ v67 │
00:01:31 verbose #8928 > │ | US0_1 -> (* Debug *) │
00:01:31 verbose #8929 > │ let v64 : string = "Debug" │
00:01:31 verbose #8930 > │ v64 │
00:01:31 verbose #8931 > │ | US0_2 -> (* Info *) │
00:01:31 verbose #8932 > │ let v65 : string = "Info" │
00:01:31 verbose #8933 > │ v65 │
00:01:31 verbose #8934 > │ | US0_0 -> (* Verbose *) │
00:01:31 verbose #8935 > │ let v63 : string = "Verbose" │
00:01:31 verbose #8936 > │ v63 │
00:01:31 verbose #8937 > │ | US0_3 -> (* Warning *) │
00:01:31 verbose #8938 > │ let v66 : string = "Warning" │
00:01:31 verbose #8939 > │ v66 │
00:01:31 verbose #8940 > │ let v73 : string = v72.ToLower () │
00:01:31 verbose #8941 > │ let v74 : string option = None │
00:01:31 verbose #8942 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:01:31 verbose #8943 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #8944 > │ let v90 : Ref<Str> = │
00:01:31 verbose #8945 > │ match v0 with │
00:01:31 verbose #8946 > │ | US0_4 -> (* Critical *) │
00:01:31 verbose #8947 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:01:31 verbose #8948 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:01:31 verbose #8949 > │ v85 │
00:01:31 verbose #8950 > │ | US0_1 -> (* Debug *) │
00:01:31 verbose #8951 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:01:31 verbose #8952 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:01:31 verbose #8953 > │ v79 │
00:01:31 verbose #8954 > │ | US0_2 -> (* Info *) │
00:01:31 verbose #8955 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:01:31 verbose #8956 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:01:31 verbose #8957 > │ v81 │
00:01:31 verbose #8958 > │ | US0_0 -> (* Verbose *) │
00:01:31 verbose #8959 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:01:31 verbose #8960 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:01:31 verbose #8961 > │ v77 │
00:01:31 verbose #8962 > │ | US0_3 -> (* Warning *) │
00:01:31 verbose #8963 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:01:31 verbose #8964 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:01:31 verbose #8965 > │ v83 │
00:01:31 verbose #8966 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:31 verbose #8967 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:01:31 verbose #8968 > │ let v93 : string = "inline_colorization::color_reset" │
00:01:31 verbose #8969 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:01:31 verbose #8970 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:01:31 verbose #8971 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:01:31 verbose #8972 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:01:31 verbose #8973 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:01:31 verbose #8974 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:01:31 verbose #8975 > │ v99 │
00:01:31 verbose #8976 > │ #endif │
00:01:31 verbose #8977 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #8978 > │ let v114 : Ref<Str> = │
00:01:31 verbose #8979 > │ match v0 with │
00:01:31 verbose #8980 > │ | US0_4 -> (* Critical *) │
00:01:31 verbose #8981 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:01:31 verbose #8982 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #8983 > │ v108 │
00:01:31 verbose #8984 > │ v109 │
00:01:31 verbose #8985 > │ | US0_1 -> (* Debug *) │
00:01:31 verbose #8986 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:01:31 verbose #8987 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #8988 > │ v102 │
00:01:31 verbose #8989 > │ v103 │
00:01:31 verbose #8990 > │ | US0_2 -> (* Info *) │
00:01:31 verbose #8991 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:01:31 verbose #8992 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #8993 > │ v104 │
00:01:31 verbose #8994 > │ v105 │
00:01:31 verbose #8995 > │ | US0_0 -> (* Verbose *) │
00:01:31 verbose #8996 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:01:31 verbose #8997 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #8998 > │ v100 │
00:01:31 verbose #8999 > │ v101 │
00:01:31 verbose #9000 > │ | US0_3 -> (* Warning *) │
00:01:31 verbose #9001 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:01:31 verbose #9002 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9003 > │ v106 │
00:01:31 verbose #9004 > │ v107 │
00:01:31 verbose #9005 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:31 verbose #9006 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:01:31 verbose #9007 > │ let v117 : string = "inline_colorization::color_reset" │
00:01:31 verbose #9008 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:01:31 verbose #9009 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:01:31 verbose #9010 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:01:31 verbose #9011 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9012 > │ v120 │
00:01:31 verbose #9013 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:01:31 verbose #9014 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:01:31 verbose #9015 > │ v123 │
00:01:31 verbose #9016 > │ #endif │
00:01:31 verbose #9017 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9018 > │ let v138 : Ref<Str> = │
00:01:31 verbose #9019 > │ match v0 with │
00:01:31 verbose #9020 > │ | US0_4 -> (* Critical *) │
00:01:31 verbose #9021 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:01:31 verbose #9022 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9023 > │ v132 │
00:01:31 verbose #9024 > │ v133 │
00:01:31 verbose #9025 > │ | US0_1 -> (* Debug *) │
00:01:31 verbose #9026 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:01:31 verbose #9027 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9028 > │ v126 │
00:01:31 verbose #9029 > │ v127 │
00:01:31 verbose #9030 > │ | US0_2 -> (* Info *) │
00:01:31 verbose #9031 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:01:31 verbose #9032 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9033 > │ v128 │
00:01:31 verbose #9034 > │ v129 │
00:01:31 verbose #9035 > │ | US0_0 -> (* Verbose *) │
00:01:31 verbose #9036 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:01:31 verbose #9037 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9038 > │ v124 │
00:01:31 verbose #9039 > │ v125 │
00:01:31 verbose #9040 > │ | US0_3 -> (* Warning *) │
00:01:31 verbose #9041 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:01:31 verbose #9042 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9043 > │ v130 │
00:01:31 verbose #9044 > │ v131 │
00:01:31 verbose #9045 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:31 verbose #9046 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:01:31 verbose #9047 > │ let v141 : string = "inline_colorization::color_reset" │
00:01:31 verbose #9048 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:01:31 verbose #9049 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:01:31 verbose #9050 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:01:31 verbose #9051 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:31 verbose #9052 > │ v144 │
00:01:31 verbose #9053 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:01:31 verbose #9054 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:01:31 verbose #9055 > │ v147 │
00:01:31 verbose #9056 > │ #endif │
00:01:31 verbose #9057 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9058 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9059 > │ v73 │
00:01:31 verbose #9060 > │ #endif │
00:01:31 verbose #9061 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9062 > │ v73 │
00:01:31 verbose #9063 > │ #endif │
00:01:31 verbose #9064 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9065 > │ let v148 : string = Unchecked.defaultof<string> │
00:01:31 verbose #9066 > │ v148 │
00:01:31 verbose #9067 > │ #endif │
00:01:31 verbose #9068 > │ |> fun x -> _v74 <- Some x │
00:01:31 verbose #9069 > │ let v149 : string = _v74.Value │
00:01:31 verbose #9070 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:01:31 verbose #9071 > │ let v151 : (char []) = [||] │
00:01:31 verbose #9072 > │ let v152 : string = v150.TrimStart v151 │
00:01:31 verbose #9073 > │ let v153 : (char []) = [|' '; '/'|] │
00:01:31 verbose #9074 > │ let v154 : string = v152.TrimEnd v153 │
00:01:31 verbose #9075 > │ v154 │
00:01:31 verbose #9076 > │ and method10 (v0 : US0, v1 : (unit -> string)) : unit = │
00:01:31 verbose #9077 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:31 verbose #9078 > │ closure0() │
00:01:31 verbose #9079 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:31 verbose #9080 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:01:31 verbose #9081 > │ Mut3) = State.trace_state.Value │
00:01:31 verbose #9082 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:31 verbose #9083 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:01:31 verbose #9084 > │ Mut3) = State.trace_state.Value │
00:01:31 verbose #9085 > │ let v13 : US0 = v10.l0 │
00:01:31 verbose #9086 > │ let v14 : bool = v9.l0 │
00:01:31 verbose #9087 > │ let v15 : bool = v14 = false │
00:01:31 verbose #9088 > │ let v19 : bool = │
00:01:31 verbose #9089 > │ if v15 then │
00:01:31 verbose #9090 > │ false │
00:01:31 verbose #9091 > │ else │
00:01:31 verbose #9092 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:31 verbose #9093 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:01:31 verbose #9094 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:31 verbose #9095 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:01:31 verbose #9096 > │ let v18 : bool = v16 >= v17 │
00:01:31 verbose #9097 > │ v18 │
00:01:31 verbose #9098 > │ if v19 then │
00:01:31 verbose #9099 > │ let v20 : int64 = v3.l0 │
00:01:31 verbose #9100 > │ let v21 : int64 = v20 + 1L │
00:01:31 verbose #9101 > │ v3.l0 <- v21 │
00:01:31 verbose #9102 > │ let v22 : string = $"%s{v1 ()}" │
00:01:31 verbose #9103 > │ let v23 : unit option = None │
00:01:31 verbose #9104 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:01:31 verbose #9105 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9106 > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:31 verbose #9107 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:01:31 verbose #9108 > │ () │
00:01:31 verbose #9109 > │ #endif │
00:01:31 verbose #9110 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9111 > │ let v26 : string = @"println!(""{}"", $0)" │
00:01:31 verbose #9112 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:01:31 verbose #9113 > │ () │
00:01:31 verbose #9114 > │ #endif │
00:01:31 verbose #9115 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9116 > │ let v27 : string = @"println!(""{}"", $0)" │
00:01:31 verbose #9117 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:01:31 verbose #9118 > │ () │
00:01:31 verbose #9119 > │ #endif │
00:01:31 verbose #9120 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9121 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9122 > │ System.Console.WriteLine v22 │
00:01:31 verbose #9123 > │ () │
00:01:31 verbose #9124 > │ #endif │
00:01:31 verbose #9125 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9126 > │ System.Console.WriteLine v22 │
00:01:31 verbose #9127 > │ () │
00:01:31 verbose #9128 > │ #endif │
00:01:31 verbose #9129 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:31 verbose #9130 > │ FABLE_COMPILER_DART │
00:01:31 verbose #9131 > │ Unchecked.defaultof<unit> │
00:01:31 verbose #9132 > │ () │
00:01:31 verbose #9133 > │ #endif │
00:01:31 verbose #9134 > │ |> fun x -> _v23 <- Some x │
00:01:31 verbose #9135 > │ _v23.Value │
00:01:31 verbose #9136 > │ let v28 : (string -> unit) = v7.l0 │
00:01:31 verbose #9137 > │ v28 v22 │
00:01:31 verbose #9138 > │ and method7 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:31 verbose #9139 > │ = │
00:01:31 verbose #9140 > │ let v3 : (unit -> string) = closure10(v0, v1, v2) │
00:01:31 verbose #9141 > │ method10(v0, v3) │
00:01:31 verbose #9142 > │ and closure13 () (v0 : (struct (bool * string * int32) -> Async<unit>)) : │
00:01:31 verbose #9143 > │ US6 = │
00:01:31 verbose #9144 > │ US6_0(v0) │
00:01:31 verbose #9145 > │ and method11 () : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:31 verbose #9146 > │ closure13() │
00:01:31 verbose #9147 > │ and closure14 (v0 : string) () : string = │
00:01:31 verbose #9148 > │ let v1 : string = $"> {v0}" │
00:01:31 verbose #9149 > │ v1 │
00:01:31 verbose #9150 > │ and closure12 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:31 verbose #9151 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:31 verbose #9152 > │ option, v4 : System.Diagnostics.Process, v5 : │
00:01:31 verbose #9153 > │ System.Collections.Concurrent.ConcurrentStack<string>) (v6 : │
00:01:31 verbose #9154 > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:31 verbose #9155 > │ let v7 : Async<unit> option = None │
00:01:31 verbose #9156 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:31 verbose #9157 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9158 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9159 > │ v9 │
00:01:31 verbose #9160 > │ #endif │
00:01:31 verbose #9161 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9162 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9163 > │ v10 │
00:01:31 verbose #9164 > │ #endif │
00:01:31 verbose #9165 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9166 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9167 > │ v11 │
00:01:31 verbose #9168 > │ #endif │
00:01:31 verbose #9169 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9170 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9171 > │ let v12 : Async<unit> option = None │
00:01:31 verbose #9172 > │ let mutable _v12 = v12 │
00:01:31 verbose #9173 > │ async { │
00:01:31 verbose #9174 > │ let v13 : string = v6.Data │
00:01:31 verbose #9175 > │ let v14 : string = null |> unbox<string> │
00:01:31 verbose #9176 > │ let v15 : bool = v13 = v14 │
00:01:31 verbose #9177 > │ let v16 : bool = v15 <> true │
00:01:31 verbose #9178 > │ if v16 then │
00:01:31 verbose #9179 > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:31 verbose #9180 > │ method11() │
00:01:31 verbose #9181 > │ let v18 : US6 = US6_1 │
00:01:31 verbose #9182 > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:31 verbose #9183 > │ match v19 with │
00:01:31 verbose #9184 > │ | US6_1 -> (* None *) │
00:01:31 verbose #9185 > │ () │
00:01:31 verbose #9186 > │ | US6_0(v20) -> (* Some *) │
00:01:31 verbose #9187 > │ let v21 : int32 = v4.Id │
00:01:31 verbose #9188 > │ let v22 : Async<unit> = v20 struct (false, v13, v21) │
00:01:31 verbose #9189 > │ do! v22 │
00:01:31 verbose #9190 > │ () │
00:01:31 verbose #9191 > │ let v23 : US0 = US0_0 │
00:01:31 verbose #9192 > │ let v24 : (unit -> string) = closure14(v13) │
00:01:31 verbose #9193 > │ let v25 : (unit -> string) = closure9() │
00:01:31 verbose #9194 > │ method7(v23, v24, v25) │
00:01:31 verbose #9195 > │ let v26 : string = "" │
00:01:31 verbose #9196 > │ let v27 : string = $"{v26}{v13}{v26}" │
00:01:31 verbose #9197 > │ let v28 : (string -> unit) = v5.Push │
00:01:31 verbose #9198 > │ v28 v27 │
00:01:31 verbose #9199 > │ } │
00:01:31 verbose #9200 > │ |> fun x -> _v12 <- Some x │
00:01:31 verbose #9201 > │ let v29 : Async<unit> = _v12 |> Option.get │
00:01:31 verbose #9202 > │ v29 │
00:01:31 verbose #9203 > │ #endif │
00:01:31 verbose #9204 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9205 > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9206 > │ v30 │
00:01:31 verbose #9207 > │ #endif │
00:01:31 verbose #9208 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9209 > │ let v31 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:31 verbose #9210 > │ v31 │
00:01:31 verbose #9211 > │ #endif │
00:01:31 verbose #9212 > │ |> fun x -> _v7 <- Some x │
00:01:31 verbose #9213 > │ let v32 : Async<unit> = _v7.Value │
00:01:31 verbose #9214 > │ let v33 : unit option = None │
00:01:31 verbose #9215 > │ let v34 : bool = true in let mutable _v33 = v33 │
00:01:31 verbose #9216 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9217 > │ null |> unbox<unit> │
00:01:31 verbose #9218 > │ () │
00:01:31 verbose #9219 > │ #endif │
00:01:31 verbose #9220 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9221 > │ null |> unbox<unit> │
00:01:31 verbose #9222 > │ () │
00:01:31 verbose #9223 > │ #endif │
00:01:31 verbose #9224 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9225 > │ null |> unbox<unit> │
00:01:31 verbose #9226 > │ () │
00:01:31 verbose #9227 > │ #endif │
00:01:31 verbose #9228 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9229 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9230 > │ let v35 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:31 verbose #9231 > │ v35 v32 │
00:01:31 verbose #9232 > │ () │
00:01:31 verbose #9233 > │ #endif │
00:01:31 verbose #9234 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9235 > │ null |> unbox<unit> │
00:01:31 verbose #9236 > │ () │
00:01:31 verbose #9237 > │ #endif │
00:01:31 verbose #9238 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9239 > │ Unchecked.defaultof<unit> │
00:01:31 verbose #9240 > │ () │
00:01:31 verbose #9241 > │ #endif │
00:01:31 verbose #9242 > │ |> fun x -> _v33 <- Some x │
00:01:31 verbose #9243 > │ _v33.Value │
00:01:31 verbose #9244 > │ () │
00:01:31 verbose #9245 > │ and closure15 (v0 : System.Threading.CancellationToken option, v1 : string, │
00:01:31 verbose #9246 > │ v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : string │
00:01:31 verbose #9247 > │ option, v4 : System.Diagnostics.Process, v5 : │
00:01:31 verbose #9248 > │ System.Collections.Concurrent.ConcurrentStack<string>) (v6 : │
00:01:31 verbose #9249 > │ System.Diagnostics.DataReceivedEventArgs) : unit = │
00:01:31 verbose #9250 > │ let v7 : Async<unit> option = None │
00:01:31 verbose #9251 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:31 verbose #9252 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9253 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9254 > │ v9 │
00:01:31 verbose #9255 > │ #endif │
00:01:31 verbose #9256 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9257 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9258 > │ v10 │
00:01:31 verbose #9259 > │ #endif │
00:01:31 verbose #9260 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9261 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9262 > │ v11 │
00:01:31 verbose #9263 > │ #endif │
00:01:31 verbose #9264 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9265 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9266 > │ let v12 : Async<unit> option = None │
00:01:31 verbose #9267 > │ let mutable _v12 = v12 │
00:01:31 verbose #9268 > │ async { │
00:01:31 verbose #9269 > │ let v13 : string = v6.Data │
00:01:31 verbose #9270 > │ let v14 : string = null |> unbox<string> │
00:01:31 verbose #9271 > │ let v15 : bool = v13 = v14 │
00:01:31 verbose #9272 > │ let v16 : bool = v15 <> true │
00:01:31 verbose #9273 > │ if v16 then │
00:01:31 verbose #9274 > │ let v17 : ((struct (bool * string * int32) -> Async<unit>) -> US6) = │
00:01:31 verbose #9275 > │ method11() │
00:01:31 verbose #9276 > │ let v18 : US6 = US6_1 │
00:01:31 verbose #9277 > │ let v19 : US6 = v2 |> Option.map v17 |> Option.defaultValue v18 │
00:01:31 verbose #9278 > │ match v19 with │
00:01:31 verbose #9279 > │ | US6_1 -> (* None *) │
00:01:31 verbose #9280 > │ () │
00:01:31 verbose #9281 > │ | US6_0(v20) -> (* Some *) │
00:01:31 verbose #9282 > │ let v21 : int32 = v4.Id │
00:01:31 verbose #9283 > │ let v22 : Async<unit> = v20 struct (true, v13, v21) │
00:01:31 verbose #9284 > │ do! v22 │
00:01:31 verbose #9285 > │ () │
00:01:31 verbose #9286 > │ let v23 : US0 = US0_0 │
00:01:31 verbose #9287 > │ let v24 : (unit -> string) = closure14(v13) │
00:01:31 verbose #9288 > │ let v25 : (unit -> string) = closure9() │
00:01:31 verbose #9289 > │ method7(v23, v24, v25) │
00:01:31 verbose #9290 > │ let v26 : string = "[" │
00:01:31 verbose #9291 > │ let v27 : string = "]" │
00:01:31 verbose #9292 > │ let v28 : string = $"{v26}{v13}{v27}" │
00:01:31 verbose #9293 > │ let v29 : (string -> unit) = v5.Push │
00:01:31 verbose #9294 > │ v29 v28 │
00:01:31 verbose #9295 > │ } │
00:01:31 verbose #9296 > │ |> fun x -> _v12 <- Some x │
00:01:31 verbose #9297 > │ let v30 : Async<unit> = _v12 |> Option.get │
00:01:31 verbose #9298 > │ v30 │
00:01:31 verbose #9299 > │ #endif │
00:01:31 verbose #9300 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9301 > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9302 > │ v31 │
00:01:31 verbose #9303 > │ #endif │
00:01:31 verbose #9304 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9305 > │ let v32 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:31 verbose #9306 > │ v32 │
00:01:31 verbose #9307 > │ #endif │
00:01:31 verbose #9308 > │ |> fun x -> _v7 <- Some x │
00:01:31 verbose #9309 > │ let v33 : Async<unit> = _v7.Value │
00:01:31 verbose #9310 > │ let v34 : unit option = None │
00:01:31 verbose #9311 > │ let v35 : bool = true in let mutable _v34 = v34 │
00:01:31 verbose #9312 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9313 > │ null |> unbox<unit> │
00:01:31 verbose #9314 > │ () │
00:01:31 verbose #9315 > │ #endif │
00:01:31 verbose #9316 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9317 > │ null |> unbox<unit> │
00:01:31 verbose #9318 > │ () │
00:01:31 verbose #9319 > │ #endif │
00:01:31 verbose #9320 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9321 > │ null |> unbox<unit> │
00:01:31 verbose #9322 > │ () │
00:01:31 verbose #9323 > │ #endif │
00:01:31 verbose #9324 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9325 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9326 > │ let v36 : (Async<unit> -> unit) = Async.StartImmediate │
00:01:31 verbose #9327 > │ v36 v33 │
00:01:31 verbose #9328 > │ () │
00:01:31 verbose #9329 > │ #endif │
00:01:31 verbose #9330 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9331 > │ null |> unbox<unit> │
00:01:31 verbose #9332 > │ () │
00:01:31 verbose #9333 > │ #endif │
00:01:31 verbose #9334 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9335 > │ Unchecked.defaultof<unit> │
00:01:31 verbose #9336 > │ () │
00:01:31 verbose #9337 > │ #endif │
00:01:31 verbose #9338 > │ |> fun x -> _v34 <- Some x │
00:01:31 verbose #9339 > │ _v34.Value │
00:01:31 verbose #9340 > │ () │
00:01:31 verbose #9341 > │ and closure16 () (v0 : System.Threading.CancellationToken) : US7 = │
00:01:31 verbose #9342 > │ US7_0(v0) │
00:01:31 verbose #9343 > │ and method12 () : (System.Threading.CancellationToken -> US7) = │
00:01:31 verbose #9344 > │ closure16() │
00:01:31 verbose #9345 > │ and closure17 (v0 : System.Diagnostics.Process) () : unit = │
00:01:31 verbose #9346 > │ let v1 : bool option = None │
00:01:31 verbose #9347 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:01:31 verbose #9348 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9349 > │ let v3 : bool = null |> unbox<bool> │
00:01:31 verbose #9350 > │ v3 │
00:01:31 verbose #9351 > │ #endif │
00:01:31 verbose #9352 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9353 > │ let v4 : bool = null |> unbox<bool> │
00:01:31 verbose #9354 > │ v4 │
00:01:31 verbose #9355 > │ #endif │
00:01:31 verbose #9356 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9357 > │ let v5 : bool = null |> unbox<bool> │
00:01:31 verbose #9358 > │ v5 │
00:01:31 verbose #9359 > │ #endif │
00:01:31 verbose #9360 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9361 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9362 > │ let v6 : bool = v0.HasExited │
00:01:31 verbose #9363 > │ v6 │
00:01:31 verbose #9364 > │ #endif │
00:01:31 verbose #9365 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9366 > │ let v7 : bool = null |> unbox<bool> │
00:01:31 verbose #9367 > │ v7 │
00:01:31 verbose #9368 > │ #endif │
00:01:31 verbose #9369 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9370 > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:31 verbose #9371 > │ v8 │
00:01:31 verbose #9372 > │ #endif │
00:01:31 verbose #9373 > │ |> fun x -> _v1 <- Some x │
00:01:31 verbose #9374 > │ let v9 : bool = _v1.Value │
00:01:31 verbose #9375 > │ let v10 : bool = v9 = false │
00:01:31 verbose #9376 > │ if v10 then │
00:01:31 verbose #9377 > │ let v11 : unit option = None │
00:01:31 verbose #9378 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:01:31 verbose #9379 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9380 > │ null |> unbox<unit> │
00:01:31 verbose #9381 > │ () │
00:01:31 verbose #9382 > │ #endif │
00:01:31 verbose #9383 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9384 > │ null |> unbox<unit> │
00:01:31 verbose #9385 > │ () │
00:01:31 verbose #9386 > │ #endif │
00:01:31 verbose #9387 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9388 > │ null |> unbox<unit> │
00:01:31 verbose #9389 > │ () │
00:01:31 verbose #9390 > │ #endif │
00:01:31 verbose #9391 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9392 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9393 > │ let v13 : (unit -> unit) = v0.Kill │
00:01:31 verbose #9394 > │ v13 () │
00:01:31 verbose #9395 > │ () │
00:01:31 verbose #9396 > │ #endif │
00:01:31 verbose #9397 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9398 > │ null |> unbox<unit> │
00:01:31 verbose #9399 > │ () │
00:01:31 verbose #9400 > │ #endif │
00:01:31 verbose #9401 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:31 verbose #9402 > │ FABLE_COMPILER_DART │
00:01:31 verbose #9403 > │ Unchecked.defaultof<unit> │
00:01:31 verbose #9404 > │ () │
00:01:31 verbose #9405 > │ #endif │
00:01:31 verbose #9406 > │ |> fun x -> _v11 <- Some x │
00:01:31 verbose #9407 > │ _v11.Value │
00:01:31 verbose #9408 > │ () │
00:01:31 verbose #9409 > │ and closure18 (v0 : System.Threading.Tasks.TaskCanceledException) () : │
00:01:31 verbose #9410 > │ string = │
00:01:31 verbose #9411 > │ let v1 : string = $"execute_with_options_async / WaitForExitAsync / ex: │
00:01:31 verbose #9412 > │ %A{v0}" │
00:01:31 verbose #9413 > │ v1 │
00:01:31 verbose #9414 > │ and method13 () : string = │
00:01:31 verbose #9415 > │ let v0 : string = "\n" │
00:01:31 verbose #9416 > │ v0 │
00:01:31 verbose #9417 > │ and closure19 (v0 : int32, v1 : string) () : string = │
00:01:31 verbose #9418 > │ let v2 : string = $"execute_with_options_async / exit_code: {v0} / │
00:01:31 verbose #9419 > │ output.Length: {v1.Length}" │
00:01:31 verbose #9420 > │ v2 │
00:01:31 verbose #9421 > │ and closure4 () (v0 : string) : Async<struct (int32 * string)> = │
00:01:31 verbose #9422 > │ let v1 : System.Threading.CancellationToken option = None │
00:01:31 verbose #9423 > │ let v2 : (struct (bool * string * int32) -> Async<unit>) option = None │
00:01:31 verbose #9424 > │ let v3 : string option = None │
00:01:31 verbose #9425 > │ let v4 : Async<struct (int32 * string)> option = None │
00:01:31 verbose #9426 > │ let v5 : bool = true in let mutable _v4 = v4 │
00:01:31 verbose #9427 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9428 > │ let v6 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9429 > │ (int32 * string)>> │
00:01:31 verbose #9430 > │ v6 │
00:01:31 verbose #9431 > │ #endif │
00:01:31 verbose #9432 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9433 > │ let v7 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9434 > │ (int32 * string)>> │
00:01:31 verbose #9435 > │ v7 │
00:01:31 verbose #9436 > │ #endif │
00:01:31 verbose #9437 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9438 > │ let v8 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9439 > │ (int32 * string)>> │
00:01:31 verbose #9440 > │ v8 │
00:01:31 verbose #9441 > │ #endif │
00:01:31 verbose #9442 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9443 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9444 > │ let v9 : Async<struct (int32 * string)> option = None │
00:01:31 verbose #9445 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:01:31 verbose #9446 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9447 > │ let v11 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9448 > │ (int32 * string)>> │
00:01:31 verbose #9449 > │ v11 │
00:01:31 verbose #9450 > │ #endif │
00:01:31 verbose #9451 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9452 > │ let v12 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9453 > │ (int32 * string)>> │
00:01:31 verbose #9454 > │ v12 │
00:01:31 verbose #9455 > │ #endif │
00:01:31 verbose #9456 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9457 > │ let v13 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9458 > │ (int32 * string)>> │
00:01:31 verbose #9459 > │ v13 │
00:01:31 verbose #9460 > │ #endif │
00:01:31 verbose #9461 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9462 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9463 > │ let v14 : Async<struct (int32 * string)> option = None │
00:01:31 verbose #9464 > │ let mutable _v14 = v14 │
00:01:31 verbose #9465 > │ async { │
00:01:31 verbose #9466 > │ let struct (v15 : string, v16 : string) = method2() │
00:01:31 verbose #9467 > │ let v17 : char seq = v0 |> unbox<char seq> │
00:01:31 verbose #9468 > │ let v18 : (char seq -> char list) = Seq.toList │
00:01:31 verbose #9469 > │ let v19 : char list = v18 v17 │
00:01:31 verbose #9470 > │ let v20 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:31 verbose #9471 > │ List.foldBack │
00:01:31 verbose #9472 > │ let v21 : (char -> (UH0 -> UH0)) = method3() │
00:01:31 verbose #9473 > │ let v22 : (char list -> (UH0 -> UH0)) = v20 v21 │
00:01:31 verbose #9474 > │ let v23 : (UH0 -> UH0) = v22 v19 │
00:01:31 verbose #9475 > │ let v24 : UH0 = UH0_0 │
00:01:31 verbose #9476 > │ let v25 : UH0 = v23 v24 │
00:01:31 verbose #9477 > │ let v26 : US2 = US2_0 │
00:01:31 verbose #9478 > │ let struct (v27 : string, v28 : string) = method4(v16, v15, v25, v26) │
00:01:31 verbose #9479 > │ let v29 : (string -> US4) = method5() │
00:01:31 verbose #9480 > │ let v30 : US4 = US4_1 │
00:01:31 verbose #9481 > │ let v31 : US4 = v3 |> Option.map v29 |> Option.defaultValue v30 │
00:01:31 verbose #9482 > │ let v35 : string = │
00:01:31 verbose #9483 > │ match v31 with │
00:01:31 verbose #9484 > │ | US4_1 -> (* None *) │
00:01:31 verbose #9485 > │ let v33 : string = "" │
00:01:31 verbose #9486 > │ v33 │
00:01:31 verbose #9487 > │ | US4_0(v32) -> (* Some *) │
00:01:31 verbose #9488 > │ v32 │
00:01:31 verbose #9489 > │ let v36 : US0 = US0_1 │
00:01:31 verbose #9490 > │ let v37 : (unit -> string) = closure8(v1, v0, v2, v3) │
00:01:31 verbose #9491 > │ let v38 : (unit -> string) = method6() │
00:01:31 verbose #9492 > │ method7(v36, v37, v38) │
00:01:31 verbose #9493 > │ let v39 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:31 verbose #9494 > │ let v40 : System.Diagnostics.ProcessStartInfo = │
00:01:31 verbose #9495 > │ System.Diagnostics.ProcessStartInfo (Arguments = v28, StandardOutputEncoding │
00:01:31 verbose #9496 > │ = v39, WorkingDirectory = v35, FileName = v27, CreateNoWindow = true, │
00:01:31 verbose #9497 > │ RedirectStandardError = true, RedirectStandardOutput = true, UseShellExecute │
00:01:31 verbose #9498 > │ = false) │
00:01:31 verbose #9499 > │ let v41 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:31 verbose #9500 > │ (StartInfo = v40) │
00:01:31 verbose #9501 > │ use v41 = v41 │
00:01:31 verbose #9502 > │ let v42 : System.Diagnostics.Process = v41 │
00:01:31 verbose #9503 > │ let v43 : (unit -> │
00:01:31 verbose #9504 > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:31 verbose #9505 > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:31 verbose #9506 > │ let v44 : System.Collections.Concurrent.ConcurrentStack<string> = v43 () │
00:01:31 verbose #9507 > │ let v45 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:31 verbose #9508 > │ closure12(v1, v0, v2, v3, v42, v44) │
00:01:31 verbose #9509 > │ v42.OutputDataReceived.Add v45 │
00:01:31 verbose #9510 > │ let v46 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:31 verbose #9511 > │ closure15(v1, v0, v2, v3, v42, v44) │
00:01:31 verbose #9512 > │ v42.ErrorDataReceived.Add v46 │
00:01:31 verbose #9513 > │ let v47 : (unit -> bool) = v42.Start │
00:01:31 verbose #9514 > │ let v48 : bool = v47 () │
00:01:31 verbose #9515 > │ let v49 : bool = v48 = false │
00:01:31 verbose #9516 > │ if v49 then │
00:01:31 verbose #9517 > │ let v50 : string = $"execute_with_options_async / process_start │
00:01:31 verbose #9518 > │ error" │
00:01:31 verbose #9519 > │ failwith<unit> v50 │
00:01:31 verbose #9520 > │ let v51 : (unit -> unit) = v42.BeginErrorReadLine │
00:01:31 verbose #9521 > │ v51 () │
00:01:31 verbose #9522 > │ let v52 : (unit -> unit) = v42.BeginOutputReadLine │
00:01:31 verbose #9523 > │ v52 () │
00:01:31 verbose #9524 > │ let v53 : (System.Threading.CancellationToken -> US7) = method12() │
00:01:31 verbose #9525 > │ let v54 : US7 = US7_1 │
00:01:31 verbose #9526 > │ let v55 : US7 = v1 |> Option.map v53 |> Option.defaultValue v54 │
00:01:31 verbose #9527 > │ let v59 : System.Threading.CancellationToken = │
00:01:31 verbose #9528 > │ match v55 with │
00:01:31 verbose #9529 > │ | US7_1 -> (* None *) │
00:01:31 verbose #9530 > │ let v57 : System.Threading.CancellationToken = │
00:01:31 verbose #9531 > │ System.Threading.CancellationToken.None │
00:01:31 verbose #9532 > │ v57 │
00:01:31 verbose #9533 > │ | US7_0(v56) -> (* Some *) │
00:01:31 verbose #9534 > │ v56 │
00:01:31 verbose #9535 > │ let v60 : Async<System.Threading.CancellationToken> option = None │
00:01:31 verbose #9536 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:01:31 verbose #9537 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9538 > │ let v62 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9539 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9540 > │ v62 │
00:01:31 verbose #9541 > │ #endif │
00:01:31 verbose #9542 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9543 > │ let v63 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9544 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9545 > │ v63 │
00:01:31 verbose #9546 > │ #endif │
00:01:31 verbose #9547 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9548 > │ let v64 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9549 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9550 > │ v64 │
00:01:31 verbose #9551 > │ #endif │
00:01:31 verbose #9552 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9553 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9554 > │ let v65 : Async<System.Threading.CancellationToken> option = None │
00:01:31 verbose #9555 > │ let v66 : bool = true in let mutable _v65 = v65 │
00:01:31 verbose #9556 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9557 > │ let v67 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9558 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9559 > │ v67 │
00:01:31 verbose #9560 > │ #endif │
00:01:31 verbose #9561 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9562 > │ let v68 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9563 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9564 > │ v68 │
00:01:31 verbose #9565 > │ #endif │
00:01:31 verbose #9566 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9567 > │ let v69 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9568 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9569 > │ v69 │
00:01:31 verbose #9570 > │ #endif │
00:01:31 verbose #9571 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9572 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9573 > │ let v70 : Async<System.Threading.CancellationToken> option = None │
00:01:31 verbose #9574 > │ let mutable _v70 = v70 │
00:01:31 verbose #9575 > │ async { │
00:01:31 verbose #9576 > │ let v71 : Async<System.Threading.CancellationToken> = │
00:01:31 verbose #9577 > │ Async.CancellationToken │
00:01:31 verbose #9578 > │ let! v71 = v71 │
00:01:31 verbose #9579 > │ let v72 : System.Threading.CancellationToken = v71 │
00:01:31 verbose #9580 > │ let v73 : System.Threading.CancellationToken = │
00:01:31 verbose #9581 > │ Async.DefaultCancellationToken │
00:01:31 verbose #9582 > │ let v74 : (System.Threading.CancellationToken []) = [|v72; v73; v59|] │
00:01:31 verbose #9583 > │ let v75 : ((System.Threading.CancellationToken []) -> │
00:01:31 verbose #9584 > │ System.Threading.CancellationTokenSource) = │
00:01:31 verbose #9585 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:31 verbose #9586 > │ let v76 : System.Threading.CancellationTokenSource = v75 v74 │
00:01:31 verbose #9587 > │ let v77 : System.Threading.CancellationToken = v76.Token │
00:01:31 verbose #9588 > │ return v77 │
00:01:31 verbose #9589 > │ } │
00:01:31 verbose #9590 > │ |> fun x -> _v70 <- Some x │
00:01:31 verbose #9591 > │ let v78 : Async<System.Threading.CancellationToken> = _v70 |> Option.get │
00:01:31 verbose #9592 > │ v78 │
00:01:31 verbose #9593 > │ #endif │
00:01:31 verbose #9594 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9595 > │ let v79 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9596 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9597 > │ v79 │
00:01:31 verbose #9598 > │ #endif │
00:01:31 verbose #9599 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9600 > │ let v80 : Async<System.Threading.CancellationToken> = │
00:01:31 verbose #9601 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9602 > │ v80 │
00:01:31 verbose #9603 > │ #endif │
00:01:31 verbose #9604 > │ |> fun x -> _v65 <- Some x │
00:01:31 verbose #9605 > │ let v81 : Async<System.Threading.CancellationToken> = _v65.Value │
00:01:31 verbose #9606 > │ v81 │
00:01:31 verbose #9607 > │ #endif │
00:01:31 verbose #9608 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9609 > │ let v82 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9610 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9611 > │ v82 │
00:01:31 verbose #9612 > │ #endif │
00:01:31 verbose #9613 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9614 > │ let v83 : Async<System.Threading.CancellationToken> = │
00:01:31 verbose #9615 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9616 > │ v83 │
00:01:31 verbose #9617 > │ #endif │
00:01:31 verbose #9618 > │ |> fun x -> _v60 <- Some x │
00:01:31 verbose #9619 > │ let v84 : Async<System.Threading.CancellationToken> = _v60.Value │
00:01:31 verbose #9620 > │ let! v84 = v84 │
00:01:31 verbose #9621 > │ let v85 : System.Threading.CancellationToken = v84 │
00:01:31 verbose #9622 > │ let v86 : ((unit -> unit) -> │
00:01:31 verbose #9623 > │ System.Threading.CancellationTokenRegistration) = v85.Register │
00:01:31 verbose #9624 > │ let v87 : (unit -> unit) = closure17(v42) │
00:01:31 verbose #9625 > │ let v88 : System.Threading.CancellationTokenRegistration = v86 v87 │
00:01:31 verbose #9626 > │ use v88 = v88 │
00:01:31 verbose #9627 > │ let v89 : System.Threading.CancellationTokenRegistration = v88 │
00:01:31 verbose #9628 > │ let v90 : Async<int32> option = None │
00:01:31 verbose #9629 > │ let v91 : bool = true in let mutable _v90 = v90 │
00:01:31 verbose #9630 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9631 > │ let v92 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #9632 > │ v92 │
00:01:31 verbose #9633 > │ #endif │
00:01:31 verbose #9634 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9635 > │ let v93 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #9636 > │ v93 │
00:01:31 verbose #9637 > │ #endif │
00:01:31 verbose #9638 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9639 > │ let v94 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #9640 > │ v94 │
00:01:31 verbose #9641 > │ #endif │
00:01:31 verbose #9642 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9643 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9644 > │ let v95 : Async<int32> option = None │
00:01:31 verbose #9645 > │ let mutable _v95 = v95 │
00:01:31 verbose #9646 > │ async { │
00:01:31 verbose #9647 > │ try │
00:01:31 verbose #9648 > │ let v96 : System.Threading.Tasks.Task = v42.WaitForExitAsync v85 │
00:01:31 verbose #9649 > │ let v97 : Async<unit> option = None │
00:01:31 verbose #9650 > │ let v98 : bool = true in let mutable _v97 = v97 │
00:01:31 verbose #9651 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9652 > │ let v99 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9653 > │ v99 │
00:01:31 verbose #9654 > │ #endif │
00:01:31 verbose #9655 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9656 > │ let v100 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9657 > │ v100 │
00:01:31 verbose #9658 > │ #endif │
00:01:31 verbose #9659 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9660 > │ let v101 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9661 > │ v101 │
00:01:31 verbose #9662 > │ #endif │
00:01:31 verbose #9663 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9664 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9665 > │ let v102 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:31 verbose #9666 > │ Async.AwaitTask │
00:01:31 verbose #9667 > │ let v103 : Async<unit> = v102 v96 │
00:01:31 verbose #9668 > │ v103 │
00:01:31 verbose #9669 > │ #endif │
00:01:31 verbose #9670 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9671 > │ let v104 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #9672 > │ v104 │
00:01:31 verbose #9673 > │ #endif │
00:01:31 verbose #9674 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9675 > │ let v105 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:31 verbose #9676 > │ v105 │
00:01:31 verbose #9677 > │ #endif │
00:01:31 verbose #9678 > │ |> fun x -> _v97 <- Some x │
00:01:31 verbose #9679 > │ let v106 : Async<unit> = _v97.Value │
00:01:31 verbose #9680 > │ do! v106 │
00:01:31 verbose #9681 > │ let v107 : int32 = v42.ExitCode │
00:01:31 verbose #9682 > │ return v107 │
00:01:31 verbose #9683 > │ with ex -> │
00:01:31 verbose #9684 > │ let v108 : exn = ex │
00:01:31 verbose #9685 > │ let v109 : string option = None │
00:01:31 verbose #9686 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:01:31 verbose #9687 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9688 > │ let v111 : string = $"%A{v108}" │
00:01:31 verbose #9689 > │ v111 │
00:01:31 verbose #9690 > │ #endif │
00:01:31 verbose #9691 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9692 > │ let v112 : string = $"%A{v108}" │
00:01:31 verbose #9693 > │ v112 │
00:01:31 verbose #9694 > │ #endif │
00:01:31 verbose #9695 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9696 > │ let v113 : string = $"%A{v108}" │
00:01:31 verbose #9697 > │ v113 │
00:01:31 verbose #9698 > │ #endif │
00:01:31 verbose #9699 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9700 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9701 > │ let v114 : string = $"{v108.GetType ()}: {v108.Message}" │
00:01:31 verbose #9702 > │ v114 │
00:01:31 verbose #9703 > │ #endif │
00:01:31 verbose #9704 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9705 > │ let v115 : string = $"%A{v108}" │
00:01:31 verbose #9706 > │ v115 │
00:01:31 verbose #9707 > │ #endif │
00:01:31 verbose #9708 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9709 > │ let v116 : string = Unchecked.defaultof<string> │
00:01:31 verbose #9710 > │ v116 │
00:01:31 verbose #9711 > │ #endif │
00:01:31 verbose #9712 > │ |> fun x -> _v109 <- Some x │
00:01:31 verbose #9713 > │ let v117 : string = _v109.Value │
00:01:31 verbose #9714 > │ let v118 : (string -> unit) = v44.Push │
00:01:31 verbose #9715 > │ v118 v117 │
00:01:31 verbose #9716 > │ let v119 : System.Threading.Tasks.TaskCanceledException = v108 |> │
00:01:31 verbose #9717 > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:31 verbose #9718 > │ let v120 : US0 = US0_3 │
00:01:31 verbose #9719 > │ let v121 : (unit -> string) = closure18(v119) │
00:01:31 verbose #9720 > │ let v122 : (unit -> string) = method6() │
00:01:31 verbose #9721 > │ method7(v120, v121, v122) │
00:01:31 verbose #9722 > │ return -2147483648 │
00:01:31 verbose #9723 > │ (* │
00:01:31 verbose #9724 > │ *) │
00:01:31 verbose #9725 > │ } │
00:01:31 verbose #9726 > │ |> fun x -> _v95 <- Some x │
00:01:31 verbose #9727 > │ let v123 : Async<int32> = _v95 |> Option.get │
00:01:31 verbose #9728 > │ v123 │
00:01:31 verbose #9729 > │ #endif │
00:01:31 verbose #9730 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9731 > │ let v124 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #9732 > │ v124 │
00:01:31 verbose #9733 > │ #endif │
00:01:31 verbose #9734 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9735 > │ let v125 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:31 verbose #9736 > │ v125 │
00:01:31 verbose #9737 > │ #endif │
00:01:31 verbose #9738 > │ |> fun x -> _v90 <- Some x │
00:01:31 verbose #9739 > │ let v126 : Async<int32> = _v90.Value │
00:01:31 verbose #9740 > │ let! v126 = v126 │
00:01:31 verbose #9741 > │ let v127 : int32 = v126 │
00:01:31 verbose #9742 > │ let v128 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:31 verbose #9743 > │ string seq) = Seq.rev │
00:01:31 verbose #9744 > │ let v129 : string seq = v128 v44 │
00:01:31 verbose #9745 > │ let v130 : string = method13() │
00:01:31 verbose #9746 > │ let v131 : (string -> (string seq -> string)) = String.concat │
00:01:31 verbose #9747 > │ let v132 : (string seq -> string) = v131 v130 │
00:01:31 verbose #9748 > │ let v133 : string = v132 v129 │
00:01:31 verbose #9749 > │ let v134 : US0 = US0_1 │
00:01:31 verbose #9750 > │ let v135 : (unit -> string) = closure19(v127, v133) │
00:01:31 verbose #9751 > │ let v136 : (unit -> string) = method6() │
00:01:31 verbose #9752 > │ method7(v134, v135, v136) │
00:01:31 verbose #9753 > │ return struct (v127, v133) │
00:01:31 verbose #9754 > │ } │
00:01:31 verbose #9755 > │ |> fun x -> _v14 <- Some x │
00:01:31 verbose #9756 > │ let v137 : Async<struct (int32 * string)> = _v14 |> Option.get │
00:01:31 verbose #9757 > │ v137 │
00:01:31 verbose #9758 > │ #endif │
00:01:31 verbose #9759 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9760 > │ let v138 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9761 > │ (int32 * string)>> │
00:01:31 verbose #9762 > │ v138 │
00:01:31 verbose #9763 > │ #endif │
00:01:31 verbose #9764 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9765 > │ let v139 : Async<struct (int32 * string)> = │
00:01:31 verbose #9766 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:31 verbose #9767 > │ v139 │
00:01:31 verbose #9768 > │ #endif │
00:01:31 verbose #9769 > │ |> fun x -> _v9 <- Some x │
00:01:31 verbose #9770 > │ let v140 : Async<struct (int32 * string)> = _v9.Value │
00:01:31 verbose #9771 > │ v140 │
00:01:31 verbose #9772 > │ #endif │
00:01:31 verbose #9773 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9774 > │ let v141 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9775 > │ (int32 * string)>> │
00:01:31 verbose #9776 > │ v141 │
00:01:31 verbose #9777 > │ #endif │
00:01:31 verbose #9778 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9779 > │ let v142 : Async<struct (int32 * string)> = │
00:01:31 verbose #9780 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:31 verbose #9781 > │ v142 │
00:01:31 verbose #9782 > │ #endif │
00:01:31 verbose #9783 > │ |> fun x -> _v4 <- Some x │
00:01:31 verbose #9784 > │ let v143 : Async<struct (int32 * string)> = _v4.Value │
00:01:31 verbose #9785 > │ v143 │
00:01:31 verbose #9786 > │ and closure20 () struct (v0 : System.Threading.CancellationToken option, v1 │
00:01:31 verbose #9787 > │ : string, v2 : (struct (bool * string * int32) -> Async<unit>) option, v3 : │
00:01:31 verbose #9788 > │ string option) : Async<struct (int32 * string)> = │
00:01:31 verbose #9789 > │ let v4 : Async<struct (int32 * string)> option = None │
00:01:31 verbose #9790 > │ let v5 : bool = true in let mutable _v4 = v4 │
00:01:31 verbose #9791 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9792 > │ let v6 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9793 > │ (int32 * string)>> │
00:01:31 verbose #9794 > │ v6 │
00:01:31 verbose #9795 > │ #endif │
00:01:31 verbose #9796 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9797 > │ let v7 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9798 > │ (int32 * string)>> │
00:01:31 verbose #9799 > │ v7 │
00:01:31 verbose #9800 > │ #endif │
00:01:31 verbose #9801 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9802 > │ let v8 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9803 > │ (int32 * string)>> │
00:01:31 verbose #9804 > │ v8 │
00:01:31 verbose #9805 > │ #endif │
00:01:31 verbose #9806 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9807 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9808 > │ let v9 : Async<struct (int32 * string)> option = None │
00:01:31 verbose #9809 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:01:31 verbose #9810 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9811 > │ let v11 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9812 > │ (int32 * string)>> │
00:01:31 verbose #9813 > │ v11 │
00:01:31 verbose #9814 > │ #endif │
00:01:31 verbose #9815 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9816 > │ let v12 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9817 > │ (int32 * string)>> │
00:01:31 verbose #9818 > │ v12 │
00:01:31 verbose #9819 > │ #endif │
00:01:31 verbose #9820 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9821 > │ let v13 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #9822 > │ (int32 * string)>> │
00:01:31 verbose #9823 > │ v13 │
00:01:31 verbose #9824 > │ #endif │
00:01:31 verbose #9825 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9826 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9827 > │ let v14 : Async<struct (int32 * string)> option = None │
00:01:31 verbose #9828 > │ let mutable _v14 = v14 │
00:01:31 verbose #9829 > │ async { │
00:01:31 verbose #9830 > │ let struct (v15 : string, v16 : string) = method2() │
00:01:31 verbose #9831 > │ let v17 : char seq = v1 |> unbox<char seq> │
00:01:31 verbose #9832 > │ let v18 : (char seq -> char list) = Seq.toList │
00:01:31 verbose #9833 > │ let v19 : char list = v18 v17 │
00:01:31 verbose #9834 > │ let v20 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:01:31 verbose #9835 > │ List.foldBack │
00:01:31 verbose #9836 > │ let v21 : (char -> (UH0 -> UH0)) = method3() │
00:01:31 verbose #9837 > │ let v22 : (char list -> (UH0 -> UH0)) = v20 v21 │
00:01:31 verbose #9838 > │ let v23 : (UH0 -> UH0) = v22 v19 │
00:01:31 verbose #9839 > │ let v24 : UH0 = UH0_0 │
00:01:31 verbose #9840 > │ let v25 : UH0 = v23 v24 │
00:01:31 verbose #9841 > │ let v26 : US2 = US2_0 │
00:01:31 verbose #9842 > │ let struct (v27 : string, v28 : string) = method4(v16, v15, v25, v26) │
00:01:31 verbose #9843 > │ let v29 : (string -> US4) = method5() │
00:01:31 verbose #9844 > │ let v30 : US4 = US4_1 │
00:01:31 verbose #9845 > │ let v31 : US4 = v3 |> Option.map v29 |> Option.defaultValue v30 │
00:01:31 verbose #9846 > │ let v35 : string = │
00:01:31 verbose #9847 > │ match v31 with │
00:01:31 verbose #9848 > │ | US4_1 -> (* None *) │
00:01:31 verbose #9849 > │ let v33 : string = "" │
00:01:31 verbose #9850 > │ v33 │
00:01:31 verbose #9851 > │ | US4_0(v32) -> (* Some *) │
00:01:31 verbose #9852 > │ v32 │
00:01:31 verbose #9853 > │ let v36 : US0 = US0_1 │
00:01:31 verbose #9854 > │ let v37 : (unit -> string) = closure8(v0, v1, v2, v3) │
00:01:31 verbose #9855 > │ let v38 : (unit -> string) = method6() │
00:01:31 verbose #9856 > │ method7(v36, v37, v38) │
00:01:31 verbose #9857 > │ let v39 : System.Text.Encoding = System.Text.Encoding.UTF8 │
00:01:31 verbose #9858 > │ let v40 : System.Diagnostics.ProcessStartInfo = │
00:01:31 verbose #9859 > │ System.Diagnostics.ProcessStartInfo (Arguments = v28, StandardOutputEncoding │
00:01:31 verbose #9860 > │ = v39, WorkingDirectory = v35, FileName = v27, CreateNoWindow = true, │
00:01:31 verbose #9861 > │ RedirectStandardError = true, RedirectStandardOutput = true, UseShellExecute │
00:01:31 verbose #9862 > │ = false) │
00:01:31 verbose #9863 > │ let v41 : System.Diagnostics.Process = new System.Diagnostics.Process │
00:01:31 verbose #9864 > │ (StartInfo = v40) │
00:01:31 verbose #9865 > │ use v41 = v41 │
00:01:31 verbose #9866 > │ let v42 : System.Diagnostics.Process = v41 │
00:01:31 verbose #9867 > │ let v43 : (unit -> │
00:01:31 verbose #9868 > │ System.Collections.Concurrent.ConcurrentStack<string>) = │
00:01:31 verbose #9869 > │ System.Collections.Concurrent.ConcurrentStack<string> │
00:01:31 verbose #9870 > │ let v44 : System.Collections.Concurrent.ConcurrentStack<string> = v43 () │
00:01:31 verbose #9871 > │ let v45 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:31 verbose #9872 > │ closure12(v0, v1, v2, v3, v42, v44) │
00:01:31 verbose #9873 > │ v42.OutputDataReceived.Add v45 │
00:01:31 verbose #9874 > │ let v46 : (System.Diagnostics.DataReceivedEventArgs -> unit) = │
00:01:31 verbose #9875 > │ closure15(v0, v1, v2, v3, v42, v44) │
00:01:31 verbose #9876 > │ v42.ErrorDataReceived.Add v46 │
00:01:31 verbose #9877 > │ let v47 : (unit -> bool) = v42.Start │
00:01:31 verbose #9878 > │ let v48 : bool = v47 () │
00:01:31 verbose #9879 > │ let v49 : bool = v48 = false │
00:01:31 verbose #9880 > │ if v49 then │
00:01:31 verbose #9881 > │ let v50 : string = $"execute_with_options_async / process_start │
00:01:31 verbose #9882 > │ error" │
00:01:31 verbose #9883 > │ failwith<unit> v50 │
00:01:31 verbose #9884 > │ let v51 : (unit -> unit) = v42.BeginErrorReadLine │
00:01:31 verbose #9885 > │ v51 () │
00:01:31 verbose #9886 > │ let v52 : (unit -> unit) = v42.BeginOutputReadLine │
00:01:31 verbose #9887 > │ v52 () │
00:01:31 verbose #9888 > │ let v53 : (System.Threading.CancellationToken -> US7) = method12() │
00:01:31 verbose #9889 > │ let v54 : US7 = US7_1 │
00:01:31 verbose #9890 > │ let v55 : US7 = v0 |> Option.map v53 |> Option.defaultValue v54 │
00:01:31 verbose #9891 > │ let v59 : System.Threading.CancellationToken = │
00:01:31 verbose #9892 > │ match v55 with │
00:01:31 verbose #9893 > │ | US7_1 -> (* None *) │
00:01:31 verbose #9894 > │ let v57 : System.Threading.CancellationToken = │
00:01:31 verbose #9895 > │ System.Threading.CancellationToken.None │
00:01:31 verbose #9896 > │ v57 │
00:01:31 verbose #9897 > │ | US7_0(v56) -> (* Some *) │
00:01:31 verbose #9898 > │ v56 │
00:01:31 verbose #9899 > │ let v60 : Async<System.Threading.CancellationToken> option = None │
00:01:31 verbose #9900 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:01:31 verbose #9901 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9902 > │ let v62 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9903 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9904 > │ v62 │
00:01:31 verbose #9905 > │ #endif │
00:01:31 verbose #9906 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9907 > │ let v63 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9908 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9909 > │ v63 │
00:01:31 verbose #9910 > │ #endif │
00:01:31 verbose #9911 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9912 > │ let v64 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9913 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9914 > │ v64 │
00:01:31 verbose #9915 > │ #endif │
00:01:31 verbose #9916 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9917 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9918 > │ let v65 : Async<System.Threading.CancellationToken> option = None │
00:01:31 verbose #9919 > │ let v66 : bool = true in let mutable _v65 = v65 │
00:01:31 verbose #9920 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9921 > │ let v67 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9922 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9923 > │ v67 │
00:01:31 verbose #9924 > │ #endif │
00:01:31 verbose #9925 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9926 > │ let v68 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9927 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9928 > │ v68 │
00:01:31 verbose #9929 > │ #endif │
00:01:31 verbose #9930 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #9931 > │ let v69 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9932 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9933 > │ v69 │
00:01:31 verbose #9934 > │ #endif │
00:01:31 verbose #9935 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #9936 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #9937 > │ let v70 : Async<System.Threading.CancellationToken> option = None │
00:01:31 verbose #9938 > │ let mutable _v70 = v70 │
00:01:31 verbose #9939 > │ async { │
00:01:31 verbose #9940 > │ let v71 : Async<System.Threading.CancellationToken> = │
00:01:31 verbose #9941 > │ Async.CancellationToken │
00:01:31 verbose #9942 > │ let! v71 = v71 │
00:01:31 verbose #9943 > │ let v72 : System.Threading.CancellationToken = v71 │
00:01:31 verbose #9944 > │ let v73 : System.Threading.CancellationToken = │
00:01:31 verbose #9945 > │ Async.DefaultCancellationToken │
00:01:31 verbose #9946 > │ let v74 : (System.Threading.CancellationToken []) = [|v72; v73; v59|] │
00:01:31 verbose #9947 > │ let v75 : ((System.Threading.CancellationToken []) -> │
00:01:31 verbose #9948 > │ System.Threading.CancellationTokenSource) = │
00:01:31 verbose #9949 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:31 verbose #9950 > │ let v76 : System.Threading.CancellationTokenSource = v75 v74 │
00:01:31 verbose #9951 > │ let v77 : System.Threading.CancellationToken = v76.Token │
00:01:31 verbose #9952 > │ return v77 │
00:01:31 verbose #9953 > │ } │
00:01:31 verbose #9954 > │ |> fun x -> _v70 <- Some x │
00:01:31 verbose #9955 > │ let v78 : Async<System.Threading.CancellationToken> = _v70 |> Option.get │
00:01:31 verbose #9956 > │ v78 │
00:01:31 verbose #9957 > │ #endif │
00:01:31 verbose #9958 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9959 > │ let v79 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9960 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9961 > │ v79 │
00:01:31 verbose #9962 > │ #endif │
00:01:31 verbose #9963 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9964 > │ let v80 : Async<System.Threading.CancellationToken> = │
00:01:31 verbose #9965 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9966 > │ v80 │
00:01:31 verbose #9967 > │ #endif │
00:01:31 verbose #9968 > │ |> fun x -> _v65 <- Some x │
00:01:31 verbose #9969 > │ let v81 : Async<System.Threading.CancellationToken> = _v65.Value │
00:01:31 verbose #9970 > │ v81 │
00:01:31 verbose #9971 > │ #endif │
00:01:31 verbose #9972 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #9973 > │ let v82 : Async<System.Threading.CancellationToken> = null |> │
00:01:31 verbose #9974 > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9975 > │ v82 │
00:01:31 verbose #9976 > │ #endif │
00:01:31 verbose #9977 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #9978 > │ let v83 : Async<System.Threading.CancellationToken> = │
00:01:31 verbose #9979 > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:31 verbose #9980 > │ v83 │
00:01:31 verbose #9981 > │ #endif │
00:01:31 verbose #9982 > │ |> fun x -> _v60 <- Some x │
00:01:31 verbose #9983 > │ let v84 : Async<System.Threading.CancellationToken> = _v60.Value │
00:01:31 verbose #9984 > │ let! v84 = v84 │
00:01:31 verbose #9985 > │ let v85 : System.Threading.CancellationToken = v84 │
00:01:31 verbose #9986 > │ let v86 : ((unit -> unit) -> │
00:01:31 verbose #9987 > │ System.Threading.CancellationTokenRegistration) = v85.Register │
00:01:31 verbose #9988 > │ let v87 : (unit -> unit) = closure17(v42) │
00:01:31 verbose #9989 > │ let v88 : System.Threading.CancellationTokenRegistration = v86 v87 │
00:01:31 verbose #9990 > │ use v88 = v88 │
00:01:31 verbose #9991 > │ let v89 : System.Threading.CancellationTokenRegistration = v88 │
00:01:31 verbose #9992 > │ let v90 : Async<int32> option = None │
00:01:31 verbose #9993 > │ let v91 : bool = true in let mutable _v90 = v90 │
00:01:31 verbose #9994 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #9995 > │ let v92 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #9996 > │ v92 │
00:01:31 verbose #9997 > │ #endif │
00:01:31 verbose #9998 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #9999 > │ let v93 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #10000 > │ v93 │
00:01:31 verbose #10001 > │ #endif │
00:01:31 verbose #10002 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #10003 > │ let v94 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #10004 > │ v94 │
00:01:31 verbose #10005 > │ #endif │
00:01:31 verbose #10006 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #10007 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #10008 > │ let v95 : Async<int32> option = None │
00:01:31 verbose #10009 > │ let mutable _v95 = v95 │
00:01:31 verbose #10010 > │ async { │
00:01:31 verbose #10011 > │ try │
00:01:31 verbose #10012 > │ let v96 : System.Threading.Tasks.Task = v42.WaitForExitAsync v85 │
00:01:31 verbose #10013 > │ let v97 : Async<unit> option = None │
00:01:31 verbose #10014 > │ let v98 : bool = true in let mutable _v97 = v97 │
00:01:31 verbose #10015 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #10016 > │ let v99 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #10017 > │ v99 │
00:01:31 verbose #10018 > │ #endif │
00:01:31 verbose #10019 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #10020 > │ let v100 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #10021 > │ v100 │
00:01:31 verbose #10022 > │ #endif │
00:01:31 verbose #10023 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #10024 > │ let v101 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #10025 > │ v101 │
00:01:31 verbose #10026 > │ #endif │
00:01:31 verbose #10027 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #10028 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #10029 > │ let v102 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:01:31 verbose #10030 > │ Async.AwaitTask │
00:01:31 verbose #10031 > │ let v103 : Async<unit> = v102 v96 │
00:01:31 verbose #10032 > │ v103 │
00:01:31 verbose #10033 > │ #endif │
00:01:31 verbose #10034 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #10035 > │ let v104 : Async<unit> = null |> unbox<Async<unit>> │
00:01:31 verbose #10036 > │ v104 │
00:01:31 verbose #10037 > │ #endif │
00:01:31 verbose #10038 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #10039 > │ let v105 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:01:31 verbose #10040 > │ v105 │
00:01:31 verbose #10041 > │ #endif │
00:01:31 verbose #10042 > │ |> fun x -> _v97 <- Some x │
00:01:31 verbose #10043 > │ let v106 : Async<unit> = _v97.Value │
00:01:31 verbose #10044 > │ do! v106 │
00:01:31 verbose #10045 > │ let v107 : int32 = v42.ExitCode │
00:01:31 verbose #10046 > │ return v107 │
00:01:31 verbose #10047 > │ with ex -> │
00:01:31 verbose #10048 > │ let v108 : exn = ex │
00:01:31 verbose #10049 > │ let v109 : string option = None │
00:01:31 verbose #10050 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:01:31 verbose #10051 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:31 verbose #10052 > │ let v111 : string = $"%A{v108}" │
00:01:31 verbose #10053 > │ v111 │
00:01:31 verbose #10054 > │ #endif │
00:01:31 verbose #10055 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:31 verbose #10056 > │ let v112 : string = $"%A{v108}" │
00:01:31 verbose #10057 > │ v112 │
00:01:31 verbose #10058 > │ #endif │
00:01:31 verbose #10059 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:31 verbose #10060 > │ let v113 : string = $"%A{v108}" │
00:01:31 verbose #10061 > │ v113 │
00:01:31 verbose #10062 > │ #endif │
00:01:31 verbose #10063 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:31 verbose #10064 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:31 verbose #10065 > │ let v114 : string = $"{v108.GetType ()}: {v108.Message}" │
00:01:31 verbose #10066 > │ v114 │
00:01:31 verbose #10067 > │ #endif │
00:01:31 verbose #10068 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #10069 > │ let v115 : string = $"%A{v108}" │
00:01:31 verbose #10070 > │ v115 │
00:01:31 verbose #10071 > │ #endif │
00:01:31 verbose #10072 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #10073 > │ let v116 : string = Unchecked.defaultof<string> │
00:01:31 verbose #10074 > │ v116 │
00:01:31 verbose #10075 > │ #endif │
00:01:31 verbose #10076 > │ |> fun x -> _v109 <- Some x │
00:01:31 verbose #10077 > │ let v117 : string = _v109.Value │
00:01:31 verbose #10078 > │ let v118 : (string -> unit) = v44.Push │
00:01:31 verbose #10079 > │ v118 v117 │
00:01:31 verbose #10080 > │ let v119 : System.Threading.Tasks.TaskCanceledException = v108 |> │
00:01:31 verbose #10081 > │ unbox<System.Threading.Tasks.TaskCanceledException> │
00:01:31 verbose #10082 > │ let v120 : US0 = US0_3 │
00:01:31 verbose #10083 > │ let v121 : (unit -> string) = closure18(v119) │
00:01:31 verbose #10084 > │ let v122 : (unit -> string) = method6() │
00:01:31 verbose #10085 > │ method7(v120, v121, v122) │
00:01:31 verbose #10086 > │ return -2147483648 │
00:01:31 verbose #10087 > │ (* │
00:01:31 verbose #10088 > │ *) │
00:01:31 verbose #10089 > │ } │
00:01:31 verbose #10090 > │ |> fun x -> _v95 <- Some x │
00:01:31 verbose #10091 > │ let v123 : Async<int32> = _v95 |> Option.get │
00:01:31 verbose #10092 > │ v123 │
00:01:31 verbose #10093 > │ #endif │
00:01:31 verbose #10094 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #10095 > │ let v124 : Async<int32> = null |> unbox<Async<int32>> │
00:01:31 verbose #10096 > │ v124 │
00:01:31 verbose #10097 > │ #endif │
00:01:31 verbose #10098 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #10099 > │ let v125 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:01:31 verbose #10100 > │ v125 │
00:01:31 verbose #10101 > │ #endif │
00:01:31 verbose #10102 > │ |> fun x -> _v90 <- Some x │
00:01:31 verbose #10103 > │ let v126 : Async<int32> = _v90.Value │
00:01:31 verbose #10104 > │ let! v126 = v126 │
00:01:31 verbose #10105 > │ let v127 : int32 = v126 │
00:01:31 verbose #10106 > │ let v128 : (System.Collections.Concurrent.ConcurrentStack<string> -> │
00:01:31 verbose #10107 > │ string seq) = Seq.rev │
00:01:31 verbose #10108 > │ let v129 : string seq = v128 v44 │
00:01:31 verbose #10109 > │ let v130 : string = method13() │
00:01:31 verbose #10110 > │ let v131 : (string -> (string seq -> string)) = String.concat │
00:01:31 verbose #10111 > │ let v132 : (string seq -> string) = v131 v130 │
00:01:31 verbose #10112 > │ let v133 : string = v132 v129 │
00:01:31 verbose #10113 > │ let v134 : US0 = US0_1 │
00:01:31 verbose #10114 > │ let v135 : (unit -> string) = closure19(v127, v133) │
00:01:31 verbose #10115 > │ let v136 : (unit -> string) = method6() │
00:01:31 verbose #10116 > │ method7(v134, v135, v136) │
00:01:31 verbose #10117 > │ return struct (v127, v133) │
00:01:31 verbose #10118 > │ } │
00:01:31 verbose #10119 > │ |> fun x -> _v14 <- Some x │
00:01:31 verbose #10120 > │ let v137 : Async<struct (int32 * string)> = _v14 |> Option.get │
00:01:31 verbose #10121 > │ v137 │
00:01:31 verbose #10122 > │ #endif │
00:01:31 verbose #10123 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #10124 > │ let v138 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #10125 > │ (int32 * string)>> │
00:01:31 verbose #10126 > │ v138 │
00:01:31 verbose #10127 > │ #endif │
00:01:31 verbose #10128 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #10129 > │ let v139 : Async<struct (int32 * string)> = │
00:01:31 verbose #10130 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:31 verbose #10131 > │ v139 │
00:01:31 verbose #10132 > │ #endif │
00:01:31 verbose #10133 > │ |> fun x -> _v9 <- Some x │
00:01:31 verbose #10134 > │ let v140 : Async<struct (int32 * string)> = _v9.Value │
00:01:31 verbose #10135 > │ v140 │
00:01:31 verbose #10136 > │ #endif │
00:01:31 verbose #10137 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:31 verbose #10138 > │ let v141 : Async<struct (int32 * string)> = null |> unbox<Async<struct │
00:01:31 verbose #10139 > │ (int32 * string)>> │
00:01:31 verbose #10140 > │ v141 │
00:01:31 verbose #10141 > │ #endif │
00:01:31 verbose #10142 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:31 verbose #10143 > │ let v142 : Async<struct (int32 * string)> = │
00:01:31 verbose #10144 > │ Unchecked.defaultof<Async<struct (int32 * string)>> │
00:01:31 verbose #10145 > │ v142 │
00:01:31 verbose #10146 > │ #endif │
00:01:31 verbose #10147 > │ |> fun x -> _v4 <- Some x │
00:01:31 verbose #10148 > │ let v143 : Async<struct (int32 * string)> = _v4.Value │
00:01:31 verbose #10149 > │ v143 │
00:01:31 verbose #10150 > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:31 verbose #10151 > │ closure0() │
00:01:31 verbose #10152 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:31 verbose #10153 > │ let v1 : (unit -> bool) = closure2() │
00:01:31 verbose #10154 > │ let is_windows () = v1 () │
00:01:31 verbose #10155 > │ let v2 : (unit -> string) = closure3() │
00:01:31 verbose #10156 > │ let get_executable_suffix () = v2 () │
00:01:31 verbose #10157 > │ let v3 : (string -> Async<struct (int32 * string)>) = closure4() │
00:01:31 verbose #10158 > │ let execute_async x = v3 x │
00:01:31 verbose #10159 > │ let v4 : (struct (System.Threading.CancellationToken option * string * │
00:01:31 verbose #10160 > │ (struct (bool * string * int32) -> Async<unit>) option * string option) -> │
00:01:31 verbose #10161 > │ Async<struct (int32 * string)>) = closure20() │
00:01:31 verbose #10162 > │ let execute_with_options_async x = v4 x │
00:01:31 verbose #10163 > │ () │
00:01:31 verbose #10164 > │ │
00:01:31 verbose #10165 > │ │
00:01:31 verbose #10166 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 verbose #10167 > [NbConvertApp] Converting notebook runtime.dib.ipynb to html
00:01:33 verbose #10168 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:33 verbose #10169 > validate(nb)
00:01:34 verbose #10170 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:34 verbose #10171 > return _pygments_highlight(
00:01:34 verbose #10172 > [NbConvertApp] Writing 663601 bytes to runtime.dib.html
00:01:35 debug #10173 execute_with_options_async / exit_code: 0 / output.Length: 670372
00:01:35 debug #6 main / executeCommand / exitCode: 0
00:01:35 debug #10174 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 trace.dib -Retries 3"", None,
None)
00:01:36 verbose #10175 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: trace.dib / _args: [
00:01:36 verbose #10176 > "-Retries",
00:01:36 verbose #10177 > 3
00:01:36 verbose #10178 > ]
00:01:37 verbose #10179 >
00:01:37 verbose #10180 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:37 verbose #10181 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:37 verbose #10182 > │ # trace │
00:01:37 verbose #10183 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #10184 >
00:01:38 verbose #10185 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #10186 > // // test
00:01:38 verbose #10187 >
00:01:38 verbose #10188 > open testing
00:01:40 verbose #10189 > 00:01:40 debug #103 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:01:41 verbose #10190 >
00:01:41 verbose #10191 > ╭─[ 3.91s - stdout ]───────────────────────────────────────────────────────────╮
00:01:41 verbose #10192 > │ () │
00:01:41 verbose #10193 > │ │
00:01:41 verbose #10194 > │ │
00:01:41 verbose #10195 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #10196 >
00:01:41 verbose #10197 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #10198 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #10199 > │ ## types │
00:01:41 verbose #10200 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #10201 >
00:01:41 verbose #10202 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 verbose #10203 > inl types () =
00:01:41 verbose #10204 > global "#if FABLE_COMPILER // trace.types"
00:01:41 verbose #10205 > rust.types ()
00:01:41 verbose #10206 > sm'.types ()
00:01:41 verbose #10207 > global "#endif // trace.types"
00:01:42 verbose #10208 > 00:01:41 debug #104 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c2485c2b626a2c050a5dd8a92d6d30d0fd757bc365b4adcc3175aae8dc244e5c/main.spi
00:01:42 verbose #10209 >
00:01:42 verbose #10210 > ╭─[ 251.83ms - stdout ]────────────────────────────────────────────────────────╮
00:01:42 verbose #10211 > │ () │
00:01:42 verbose #10212 > │ │
00:01:42 verbose #10213 > │ │
00:01:42 verbose #10214 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10215 >
00:01:42 verbose #10216 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #10217 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #10218 > │ ## trace_level │
00:01:42 verbose #10219 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10220 >
00:01:42 verbose #10221 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #10222 > union trace_level =
00:01:42 verbose #10223 > | Verbose
00:01:42 verbose #10224 > | Debug
00:01:42 verbose #10225 > | Info
00:01:42 verbose #10226 > | Warning
00:01:42 verbose #10227 > | Critical
00:01:42 verbose #10228 >
00:01:42 verbose #10229 > instance to_string trace_level = function
00:01:42 verbose #10230 > | Verbose => "Verbose"
00:01:42 verbose #10231 > | Debug => "Debug"
00:01:42 verbose #10232 > | Info => "Info"
00:01:42 verbose #10233 > | Warning => "Warning"
00:01:42 verbose #10234 > | Critical => "Critical"
00:01:42 verbose #10235 >
00:01:42 verbose #10236 > instance of_string trace_level = function
00:01:42 verbose #10237 > | "Verbose" => Verbose
00:01:42 verbose #10238 > | "Debug" => Debug
00:01:42 verbose #10239 > | "Info" => Info
00:01:42 verbose #10240 > | "Warning" => Warning
00:01:42 verbose #10241 > | "Critical" => Critical
00:01:42 verbose #10242 > 00:01:41 debug #105 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cb15355915b890aba0187b16d46eac21d76956b701a295676fb9760e6529dc9e/main.spi
00:01:42 verbose #10243 >
00:01:42 verbose #10244 > ╭─[ 239.31ms - stdout ]────────────────────────────────────────────────────────╮
00:01:42 verbose #10245 > │ () │
00:01:42 verbose #10246 > │ │
00:01:42 verbose #10247 > │ │
00:01:42 verbose #10248 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10249 >
00:01:42 verbose #10250 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #10251 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #10252 > │ ## repl_start │
00:01:42 verbose #10253 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10254 >
00:01:42 verbose #10255 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #10256 > inl repl_start () : optionm'.option' i64 =
00:01:42 verbose #10257 > inl result : optionm'.option' (optionm'.option' i64) = optionm'.none' ()
00:01:42 verbose #10258 > $"let mutable _!result = !result"
00:01:42 verbose #10259 > $'#if INTERACTIVE || \!FABLE_COMPILER' : ()
00:01:42 verbose #10260 > if get_entry_assembly_name () <> "Microsoft.DotNet.Interactive.App"
00:01:42 verbose #10261 > then date_time.now () |> date_time.ticks |> Some
00:01:42 verbose #10262 > else None
00:01:42 verbose #10263 > |> optionm'.box
00:01:42 verbose #10264 > |> fun x =>
00:01:42 verbose #10265 > inl x = join x
00:01:42 verbose #10266 > $'!x '
00:01:42 verbose #10267 > $'#else' : ()
00:01:42 verbose #10268 > (None : option i64) |> optionm'.box
00:01:42 verbose #10269 > |> fun x =>
00:01:42 verbose #10270 > inl x = join x
00:01:42 verbose #10271 > $'!x '
00:01:42 verbose #10272 > $'#endif' : ()
00:01:42 verbose #10273 > $"|> fun x -> _!result <- Some x"
00:01:42 verbose #10274 > $'_!result.Value'
00:01:42 verbose #10275 > 00:01:41 debug #106 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9ac3a530ce7946e5ff8f46066cbe5923c5527235f95e7fe9305cf3a76b6b89ac/main.spi
00:01:42 verbose #10276 >
00:01:42 verbose #10277 > ╭─[ 247.74ms - stdout ]────────────────────────────────────────────────────────╮
00:01:42 verbose #10278 > │ () │
00:01:42 verbose #10279 > │ │
00:01:42 verbose #10280 > │ │
00:01:42 verbose #10281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10282 >
00:01:42 verbose #10283 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #10284 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #10285 > │ ## trace_state │
00:01:42 verbose #10286 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10287 >
00:01:42 verbose #10288 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #10289 > type trace_state =
00:01:42 verbose #10290 > {
00:01:42 verbose #10291 > count : mut i64
00:01:42 verbose #10292 > trace_file : mut (string -> ())
00:01:42 verbose #10293 > enabled : mut bool
00:01:42 verbose #10294 > level : mut trace_level
00:01:42 verbose #10295 > repl_start : optionm'.option' i64
00:01:42 verbose #10296 > }
00:01:42 verbose #10297 >
00:01:42 verbose #10298 > inl new_trace_state () =
00:01:42 verbose #10299 > {
00:01:42 verbose #10300 > enabled = mut true
00:01:42 verbose #10301 > count = mut 0i64
00:01:42 verbose #10302 > level = mut Verbose
00:01:42 verbose #10303 > trace_file = mut ignore
00:01:42 verbose #10304 > repl_start = repl_start ()
00:01:42 verbose #10305 > } : trace_state
00:01:42 verbose #10306 > 00:01:42 debug #107 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2d8198aaed61a00c83a694915795e75736c89b5f9ce72282a7d5a6c34d211167/main.spi
00:01:42 verbose #10307 >
00:01:42 verbose #10308 > ╭─[ 241.22ms - stdout ]────────────────────────────────────────────────────────╮
00:01:42 verbose #10309 > │ () │
00:01:42 verbose #10310 > │ │
00:01:42 verbose #10311 > │ │
00:01:42 verbose #10312 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10313 >
00:01:42 verbose #10314 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #10315 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #10316 > │ ## init_trace_state │
00:01:42 verbose #10317 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #10318 >
00:01:42 verbose #10319 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #10320 > inl init_trace_state () : () =
00:01:42 verbose #10321 > global "module State = let mutable trace_state = None"
00:01:42 verbose #10322 > $"if State.trace_state.IsNone then State.trace_state <- !new_trace_state ()
00:01:42 verbose #10323 > |> Some" : ()
00:01:43 verbose #10324 > 00:01:42 debug #108 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4c9c8b0b825df17aad7d359edd3cf2c6bb7f0c981b64fe7e9fbf9ac04dd612cb/main.spi
00:01:43 verbose #10325 >
00:01:43 verbose #10326 > ╭─[ 245.42ms - stdout ]────────────────────────────────────────────────────────╮
00:01:43 verbose #10327 > │ () │
00:01:43 verbose #10328 > │ │
00:01:43 verbose #10329 > │ │
00:01:43 verbose #10330 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10331 >
00:01:43 verbose #10332 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:43 verbose #10333 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:43 verbose #10334 > │ ## get_trace_state │
00:01:43 verbose #10335 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10336 >
00:01:43 verbose #10337 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:43 verbose #10338 > inl get_trace_state () : trace_state =
00:01:43 verbose #10339 > init_trace_state ()
00:01:43 verbose #10340 > $'State.trace_state.Value'
00:01:43 verbose #10341 > 00:01:42 debug #109 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3092a1fc60612bd383ee0a5c2f959feb35874f134e4e8b0609551555be9d8a8e/main.spi
00:01:43 verbose #10342 >
00:01:43 verbose #10343 > ╭─[ 253.53ms - stdout ]────────────────────────────────────────────────────────╮
00:01:43 verbose #10344 > │ () │
00:01:43 verbose #10345 > │ │
00:01:43 verbose #10346 > │ │
00:01:43 verbose #10347 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10348 >
00:01:43 verbose #10349 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:43 verbose #10350 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:43 verbose #10351 > │ ## _locals │
00:01:43 verbose #10352 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10353 >
00:01:43 verbose #10354 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:43 verbose #10355 > inl _locals () = ""
00:01:43 verbose #10356 > 00:01:42 debug #110 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ad827b038525dfa03fd62a963fc44e63b56ac541022964c9ff49e2f7b6d1ce43/main.spi
00:01:43 verbose #10357 >
00:01:43 verbose #10358 > ╭─[ 258.25ms - stdout ]────────────────────────────────────────────────────────╮
00:01:43 verbose #10359 > │ () │
00:01:43 verbose #10360 > │ │
00:01:43 verbose #10361 > │ │
00:01:43 verbose #10362 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10363 >
00:01:43 verbose #10364 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:43 verbose #10365 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:43 verbose #10366 > │ ## test_trace_level │
00:01:43 verbose #10367 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10368 >
00:01:43 verbose #10369 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:43 verbose #10370 > inl test_trace_level level : bool =
00:01:43 verbose #10371 > inl state = get_trace_state ()
00:01:43 verbose #10372 > inl level' = *state.level
00:01:43 verbose #10373 > if *state.enabled |> not
00:01:43 verbose #10374 > then false
00:01:43 verbose #10375 > else
00:01:43 verbose #10376 > inl level : i32 = real real_core.union_tag level
00:01:43 verbose #10377 > inl level' : i32 = real real_core.union_tag level'
00:01:43 verbose #10378 > level >= level'
00:01:43 verbose #10379 > 00:01:43 debug #111 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8d1ab8c5b54856931a03d197797c1f57601d3939ebd028546839ee9f44922dea/main.spi
00:01:43 verbose #10380 >
00:01:43 verbose #10381 > ╭─[ 245.02ms - stdout ]────────────────────────────────────────────────────────╮
00:01:43 verbose #10382 > │ () │
00:01:43 verbose #10383 > │ │
00:01:43 verbose #10384 > │ │
00:01:43 verbose #10385 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #10386 >
00:01:43 verbose #10387 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:43 verbose #10388 > // // test
00:01:43 verbose #10389 >
00:01:43 verbose #10390 > test_trace_level Critical |> _assert_eq true
00:01:43 verbose #10391 > test_trace_level Verbose |> _assert_eq true
00:01:43 verbose #10392 >
00:01:43 verbose #10393 > inl level = get_trace_state () .level
00:01:43 verbose #10394 > level <- Debug
00:01:43 verbose #10395 > test_trace_level Verbose |> _assert_eq false
00:01:43 verbose #10396 > level <- Verbose
00:01:43 verbose #10397 > test_trace_level Verbose |> _assert_eq true
00:01:44 verbose #10398 > 00:01:43 debug #112 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/561f5d976f9504ce9d7af5c02f440fc6f951e6dedc904b4972c5160e1a5386c6/main.spi
00:01:45 verbose #10399 >
00:01:45 verbose #10400 > ╭─[ 1.78s - stdout ]───────────────────────────────────────────────────────────╮
00:01:45 verbose #10401 > │ module State = let mutable trace_state = None │
00:01:45 verbose #10402 > │ type Mut0 = {mutable l0 : int64} │
00:01:45 verbose #10403 > │ and Mut1 = {mutable l0 : bool} │
00:01:45 verbose #10404 > │ and [<Struct>] US0 = │
00:01:45 verbose #10405 > │ | US0_0 │
00:01:45 verbose #10406 > │ | US0_1 │
00:01:45 verbose #10407 > │ | US0_2 │
00:01:45 verbose #10408 > │ | US0_3 │
00:01:45 verbose #10409 > │ | US0_4 │
00:01:45 verbose #10410 > │ and Mut2 = {mutable l0 : US0} │
00:01:45 verbose #10411 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:01:45 verbose #10412 > │ and [<Struct>] US1 = │
00:01:45 verbose #10413 > │ | US1_0 of f0_0 : int64 │
00:01:45 verbose #10414 > │ | US1_1 │
00:01:45 verbose #10415 > │ let rec closure1 () (v0 : string) : unit = │
00:01:45 verbose #10416 > │ () │
00:01:45 verbose #10417 > │ and method1 (v0 : int64 option) : int64 option = │
00:01:45 verbose #10418 > │ v0 │
00:01:45 verbose #10419 > │ and method2 (v0 : int64 option) : int64 option = │
00:01:45 verbose #10420 > │ v0 │
00:01:45 verbose #10421 > │ and closure0 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:01:45 verbose #10422 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:45 verbose #10423 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:45 verbose #10424 > │ let v2 : US0 = US0_0 │
00:01:45 verbose #10425 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:45 verbose #10426 > │ let v4 : (string -> unit) = closure1() │
00:01:45 verbose #10427 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:01:45 verbose #10428 > │ let v6 : int64 option option = None │
00:01:45 verbose #10429 > │ let mutable _v6 = v6 │
00:01:45 verbose #10430 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:45 verbose #10431 > │ let v7 : string option = None │
00:01:45 verbose #10432 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:45 verbose #10433 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:45 verbose #10434 > │ let v9 : string = null |> unbox<string> │
00:01:45 verbose #10435 > │ v9 │
00:01:45 verbose #10436 > │ #endif │
00:01:45 verbose #10437 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:45 verbose #10438 > │ let v10 : string = null |> unbox<string> │
00:01:45 verbose #10439 > │ v10 │
00:01:45 verbose #10440 > │ #endif │
00:01:45 verbose #10441 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:45 verbose #10442 > │ let v11 : string = null |> unbox<string> │
00:01:45 verbose #10443 > │ v11 │
00:01:45 verbose #10444 > │ #endif │
00:01:45 verbose #10445 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:45 verbose #10446 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:45 verbose #10447 > │ let v12 : string = │
00:01:45 verbose #10448 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:45 verbose #10449 > │ v12 │
00:01:45 verbose #10450 > │ #endif │
00:01:45 verbose #10451 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:45 verbose #10452 > │ let v13 : string = null |> unbox<string> │
00:01:45 verbose #10453 > │ v13 │
00:01:45 verbose #10454 > │ #endif │
00:01:45 verbose #10455 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:45 verbose #10456 > │ let v14 : string = Unchecked.defaultof<string> │
00:01:45 verbose #10457 > │ v14 │
00:01:45 verbose #10458 > │ #endif │
00:01:45 verbose #10459 > │ |> fun x -> _v7 <- Some x │
00:01:45 verbose #10460 > │ let v15 : string = _v7.Value │
00:01:45 verbose #10461 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:01:45 verbose #10462 > │ let v18 : bool = v17 <> true │
00:01:45 verbose #10463 > │ let v24 : US1 = │
00:01:45 verbose #10464 > │ if v18 then │
00:01:45 verbose #10465 > │ let v19 : System.DateTime = System.DateTime.Now │
00:01:45 verbose #10466 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:01:45 verbose #10467 > │ let v21 : int64 = v20 v19 │
00:01:45 verbose #10468 > │ US1_0(v21) │
00:01:45 verbose #10469 > │ else │
00:01:45 verbose #10470 > │ US1_1 │
00:01:45 verbose #10471 > │ let v29 : int64 option = │
00:01:45 verbose #10472 > │ match v24 with │
00:01:45 verbose #10473 > │ | US1_1 -> (* None *) │
00:01:45 verbose #10474 > │ let v27 : int64 option = None │
00:01:45 verbose #10475 > │ v27 │
00:01:45 verbose #10476 > │ | US1_0(v25) -> (* Some *) │
00:01:45 verbose #10477 > │ let v26 : int64 option = Some v25 │
00:01:45 verbose #10478 > │ v26 │
00:01:45 verbose #10479 > │ let v30 : int64 option = method1(v29) │
00:01:45 verbose #10480 > │ v30 │
00:01:45 verbose #10481 > │ #else │
00:01:45 verbose #10482 > │ let v31 : int64 option = None │
00:01:45 verbose #10483 > │ let v32 : int64 option = method2(v31) │
00:01:45 verbose #10484 > │ v32 │
00:01:45 verbose #10485 > │ #endif │
00:01:45 verbose #10486 > │ |> fun x -> _v6 <- Some x │
00:01:45 verbose #10487 > │ let v33 : int64 option = _v6.Value │
00:01:45 verbose #10488 > │ struct (v1, v0, v3, v33, v5) │
00:01:45 verbose #10489 > │ and method3 (v0 : bool) : bool = │
00:01:45 verbose #10490 > │ v0 │
00:01:45 verbose #10491 > │ and method0 () : unit = │
00:01:45 verbose #10492 > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:45 verbose #10493 > │ closure0() │
00:01:45 verbose #10494 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:45 verbose #10495 > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut2, v4 : int64 option, v5 : │
00:01:45 verbose #10496 > │ Mut3) = State.trace_state.Value │
00:01:45 verbose #10497 > │ let v6 : US0 = v3.l0 │
00:01:45 verbose #10498 > │ let v7 : bool = v2.l0 │
00:01:45 verbose #10499 > │ let v8 : bool = v7 = false │
00:01:45 verbose #10500 > │ let v11 : bool = │
00:01:45 verbose #10501 > │ if v8 then │
00:01:45 verbose #10502 > │ false │
00:01:45 verbose #10503 > │ else │
00:01:45 verbose #10504 > │ let v9 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:45 verbose #10505 > │ US0_4, 4 ] |> Map |> Map.find v6 │
00:01:45 verbose #10506 > │ let v10 : bool = 4 >= v9 │
00:01:45 verbose #10507 > │ v10 │
00:01:45 verbose #10508 > │ let v12 : string = $"%A{v11}" │
00:01:45 verbose #10509 > │ System.Console.WriteLine v12 │
00:01:45 verbose #10510 > │ let v14 : bool = │
00:01:45 verbose #10511 > │ if v11 then │
00:01:45 verbose #10512 > │ true │
00:01:45 verbose #10513 > │ else │
00:01:45 verbose #10514 > │ method3(v11) │
00:01:45 verbose #10515 > │ let v15 : string = $"__expect / actual: %A{v11} / expected: %A{true}" │
00:01:45 verbose #10516 > │ let v16 : bool = v14 = false │
00:01:45 verbose #10517 > │ if v16 then │
00:01:45 verbose #10518 > │ failwith<unit> v15 │
00:01:45 verbose #10519 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:45 verbose #10520 > │ let struct (v17 : Mut0, v18 : Mut1, v19 : Mut2, v20 : int64 option, v21 │
00:01:45 verbose #10521 > │ : Mut3) = State.trace_state.Value │
00:01:45 verbose #10522 > │ let v22 : US0 = v19.l0 │
00:01:45 verbose #10523 > │ let v23 : bool = v18.l0 │
00:01:45 verbose #10524 > │ let v24 : bool = v23 = false │
00:01:45 verbose #10525 > │ let v27 : bool = │
00:01:45 verbose #10526 > │ if v24 then │
00:01:45 verbose #10527 > │ false │
00:01:45 verbose #10528 > │ else │
00:01:45 verbose #10529 > │ let v25 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:45 verbose #10530 > │ US0_4, 4 ] |> Map |> Map.find v22 │
00:01:45 verbose #10531 > │ let v26 : bool = 0 >= v25 │
00:01:45 verbose #10532 > │ v26 │
00:01:45 verbose #10533 > │ let v28 : string = $"%A{v27}" │
00:01:45 verbose #10534 > │ System.Console.WriteLine v28 │
00:01:45 verbose #10535 > │ let v30 : bool = │
00:01:45 verbose #10536 > │ if v27 then │
00:01:45 verbose #10537 > │ true │
00:01:45 verbose #10538 > │ else │
00:01:45 verbose #10539 > │ method3(v27) │
00:01:45 verbose #10540 > │ let v31 : string = $"__expect / actual: %A{v27} / expected: %A{true}" │
00:01:45 verbose #10541 > │ let v32 : bool = v30 = false │
00:01:45 verbose #10542 > │ if v32 then │
00:01:45 verbose #10543 > │ failwith<unit> v31 │
00:01:45 verbose #10544 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:45 verbose #10545 > │ let struct (v33 : Mut0, v34 : Mut1, v35 : Mut2, v36 : int64 option, v37 │
00:01:45 verbose #10546 > │ : Mut3) = State.trace_state.Value │
00:01:45 verbose #10547 > │ let v38 : US0 = US0_1 │
00:01:45 verbose #10548 > │ v35.l0 <- v38 │
00:01:45 verbose #10549 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:45 verbose #10550 > │ let struct (v39 : Mut0, v40 : Mut1, v41 : Mut2, v42 : int64 option, v43 │
00:01:45 verbose #10551 > │ : Mut3) = State.trace_state.Value │
00:01:45 verbose #10552 > │ let v44 : US0 = v41.l0 │
00:01:45 verbose #10553 > │ let v45 : bool = v40.l0 │
00:01:45 verbose #10554 > │ let v46 : bool = v45 = false │
00:01:45 verbose #10555 > │ let v49 : bool = │
00:01:45 verbose #10556 > │ if v46 then │
00:01:45 verbose #10557 > │ false │
00:01:45 verbose #10558 > │ else │
00:01:45 verbose #10559 > │ let v47 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:45 verbose #10560 > │ US0_4, 4 ] |> Map |> Map.find v44 │
00:01:45 verbose #10561 > │ let v48 : bool = 0 >= v47 │
00:01:45 verbose #10562 > │ v48 │
00:01:45 verbose #10563 > │ let v50 : string = $"%A{v49}" │
00:01:45 verbose #10564 > │ System.Console.WriteLine v50 │
00:01:45 verbose #10565 > │ let v51 : bool = v49 = false │
00:01:45 verbose #10566 > │ let v53 : bool = │
00:01:45 verbose #10567 > │ if v51 then │
00:01:45 verbose #10568 > │ true │
00:01:45 verbose #10569 > │ else │
00:01:45 verbose #10570 > │ method3(v51) │
00:01:45 verbose #10571 > │ let v54 : string = $"__expect / actual: %A{v49} / expected: %A{false}" │
00:01:45 verbose #10572 > │ let v55 : bool = v53 = false │
00:01:45 verbose #10573 > │ if v55 then │
00:01:45 verbose #10574 > │ failwith<unit> v54 │
00:01:45 verbose #10575 > │ let v56 : US0 = US0_0 │
00:01:45 verbose #10576 > │ v35.l0 <- v56 │
00:01:45 verbose #10577 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:45 verbose #10578 > │ let struct (v57 : Mut0, v58 : Mut1, v59 : Mut2, v60 : int64 option, v61 │
00:01:45 verbose #10579 > │ : Mut3) = State.trace_state.Value │
00:01:45 verbose #10580 > │ let v62 : US0 = v59.l0 │
00:01:45 verbose #10581 > │ let v63 : bool = v58.l0 │
00:01:45 verbose #10582 > │ let v64 : bool = v63 = false │
00:01:45 verbose #10583 > │ let v67 : bool = │
00:01:45 verbose #10584 > │ if v64 then │
00:01:45 verbose #10585 > │ false │
00:01:45 verbose #10586 > │ else │
00:01:45 verbose #10587 > │ let v65 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:45 verbose #10588 > │ US0_4, 4 ] |> Map |> Map.find v62 │
00:01:45 verbose #10589 > │ let v66 : bool = 0 >= v65 │
00:01:45 verbose #10590 > │ v66 │
00:01:45 verbose #10591 > │ let v68 : string = $"%A{v67}" │
00:01:45 verbose #10592 > │ System.Console.WriteLine v68 │
00:01:45 verbose #10593 > │ let v70 : bool = │
00:01:45 verbose #10594 > │ if v67 then │
00:01:45 verbose #10595 > │ true │
00:01:45 verbose #10596 > │ else │
00:01:45 verbose #10597 > │ method3(v67) │
00:01:45 verbose #10598 > │ let v71 : string = $"__expect / actual: %A{v67} / expected: %A{true}" │
00:01:45 verbose #10599 > │ let v72 : bool = v70 = false │
00:01:45 verbose #10600 > │ if v72 then │
00:01:45 verbose #10601 > │ failwith<unit> v71 │
00:01:45 verbose #10602 > │ method0() │
00:01:45 verbose #10603 > │ │
00:01:45 verbose #10604 > │ true │
00:01:45 verbose #10605 > │ true │
00:01:45 verbose #10606 > │ false │
00:01:45 verbose #10607 > │ true │
00:01:45 verbose #10608 > │ │
00:01:45 verbose #10609 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 verbose #10610 >
00:01:45 verbose #10611 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:45 verbose #10612 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:45 verbose #10613 > │ ## trace_raw │
00:01:45 verbose #10614 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 verbose #10615 >
00:01:45 verbose #10616 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 verbose #10617 > let rec trace_raw level fn =
00:01:45 verbose #10618 > inl trace_state = get_trace_state ()
00:01:45 verbose #10619 > if level |> test_trace_level then
00:01:45 verbose #10620 > inl count = trace_state.count
00:01:45 verbose #10621 > count <- *trace_state.count + 1
00:01:45 verbose #10622 >
00:01:45 verbose #10623 > inl text = $'$"%s{!fn ()}"' : string
00:01:45 verbose #10624 > run_target function
00:01:45 verbose #10625 > | Rust _ => fun () =>
00:01:45 verbose #10626 > open rust_operators
00:01:45 verbose #10627 > !\\(text, $'\@"println\!(""{}"", $0)"')
00:01:45 verbose #10628 > | _ => fun () =>
00:01:45 verbose #10629 > $'System.Console.WriteLine !text '
00:01:45 verbose #10630 >
00:01:45 verbose #10631 > *trace_state.trace_file text
00:01:45 verbose #10632 > 00:01:45 debug #113 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/57c1e0565ef0536eb34b7012e6d9705d1652a4958a35b31349f6784891bc1229/main.spi
00:01:46 verbose #10633 >
00:01:46 verbose #10634 > ╭─[ 254.30ms - stdout ]────────────────────────────────────────────────────────╮
00:01:46 verbose #10635 > │ () │
00:01:46 verbose #10636 > │ │
00:01:46 verbose #10637 > │ │
00:01:46 verbose #10638 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #10639 >
00:01:46 verbose #10640 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 verbose #10641 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 verbose #10642 > │ ## trace │
00:01:46 verbose #10643 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #10644 >
00:01:46 verbose #10645 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #10646 > let trace (level : trace_level) (fn : () -> string) (locals : () -> string) =
00:01:46 verbose #10647 > fun () =>
00:01:46 verbose #10648 > inl trace_state = get_trace_state ()
00:01:46 verbose #10649 > inl time =
00:01:46 verbose #10650 > run_target fun target =>
00:01:46 verbose #10651 > match target with
00:01:46 verbose #10652 > | Fsharp (Native)
00:01:46 verbose #10653 > | Rust (Native) => fun () =>
00:01:46 verbose #10654 > match trace_state.repl_start |> optionm'.unbox with
00:01:46 verbose #10655 > | Some repl_start =>
00:01:46 verbose #10656 > inl t =
00:01:46 verbose #10657 > (date_time.now () |> date_time.ticks |> fun
00:01:46 verbose #10658 > (date_time.timestamp x) => x)
00:01:46 verbose #10659 > - repl_start |> date_time.time_span
00:01:46 verbose #10660 > date_time.date_time_milliseconds
00:01:46 verbose #10661 > 1i32 1i32 1i32
00:01:46 verbose #10662 > (t |> date_time.hours)
00:01:46 verbose #10663 > (t |> date_time.minutes)
00:01:46 verbose #10664 > (t |> date_time.seconds)
00:01:46 verbose #10665 > (t |> date_time.milliseconds)
00:01:46 verbose #10666 > | None => date_time.now ()
00:01:46 verbose #10667 > |> fun date_time =>
00:01:46 verbose #10668 > inl format =
00:01:46 verbose #10669 > match target with
00:01:46 verbose #10670 > | Rust _ => "hh:mm:ss"
00:01:46 verbose #10671 > | _ => "HH:mm:ss"
00:01:46 verbose #10672 > $'!date_time.ToString !format '
00:01:46 verbose #10673 > | _ => fun () => join ""
00:01:46 verbose #10674 > inl count = *trace_state.count
00:01:46 verbose #10675 > inl level_str = level |> to_string |> sm'.to_lower
00:01:46 verbose #10676 > inl level_str =
00:01:46 verbose #10677 > run_target function
00:01:46 verbose #10678 > | Rust _ => fun () =>
00:01:46 verbose #10679 > open rust_operators
00:01:46 verbose #10680 > inl color : rust.ref' sm'.str =
00:01:46 verbose #10681 > match level with
00:01:46 verbose #10682 > | Verbose =>
00:01:46 verbose #10683 > !\($'"inline_colorization::color_bright_black"')
00:01:46 verbose #10684 > | Debug => !\($'"inline_colorization::color_bright_blue"')
00:01:46 verbose #10685 > | Info => !\($'"inline_colorization::color_bright_green"')
00:01:46 verbose #10686 > | Warning =>
00:01:46 verbose #10687 > !\($'"inline_colorization::color_bright_yellow"')
00:01:46 verbose #10688 > | Critical => !\($'"inline_colorization::color_bright_red"')
00:01:46 verbose #10689 > inl level_str = level_str |> sm'.as_str
00:01:46 verbose #10690 > inl color_reset : rust.ref' sm'.str =
00:01:46 verbose #10691 > !\($'"inline_colorization::color_reset"')
00:01:46 verbose #10692 > $'"\\\"{!color}{!level_str}{!color_reset}\\\""'
00:01:46 verbose #10693 > |> sm'.format''
00:01:46 verbose #10694 > |> sm'.from_std_string
00:01:46 verbose #10695 > | _ => fun () => level_str
00:01:46 verbose #10696 > $'$"{!time} {!level_str} #{!count} %s{!fn ()} / %s{!locals ()}"'
00:01:46 verbose #10697 > |> sm'.trim_start ;[[]]
00:01:46 verbose #10698 > |> sm'.trim_end ;[[ ' '; '/' ]]
00:01:46 verbose #10699 > |> trace_raw level
00:01:46 verbose #10700 > 00:01:45 debug #114 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/36971a1180e45beaf7a5f878405ff0a47a0ecc5c363fbd69c37f2206fdca311d/main.spi
00:01:46 verbose #10701 >
00:01:46 verbose #10702 > ╭─[ 221.49ms - stdout ]────────────────────────────────────────────────────────╮
00:01:46 verbose #10703 > │ () │
00:01:46 verbose #10704 > │ │
00:01:46 verbose #10705 > │ │
00:01:46 verbose #10706 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #10707 >
00:01:46 verbose #10708 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #10709 > // // test
00:01:46 verbose #10710 > // // print_code=false
00:01:46 verbose #10711 >
00:01:46 verbose #10712 > trace Debug (fun () => "test") _locals
00:01:46 verbose #10713 > trace Debug (fun () => "test") _locals
00:01:46 verbose #10714 > 00:01:45 debug #115 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fe21e0700847760432286965ebb4fedb0153f33c2c7ad341d3b0ac9c3882339a/main.spi
00:01:46 verbose #10715 >
00:01:46 verbose #10716 > ╭─[ 527.85ms - stdout ]────────────────────────────────────────────────────────╮
00:01:46 verbose #10717 > │ 00:00:00 debug #1 test │
00:01:46 verbose #10718 > │ 00:00:00 debug #2 test │
00:01:46 verbose #10719 > │ │
00:01:46 verbose #10720 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #10721 >
00:01:46 verbose #10722 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #10723 > // // test
00:01:46 verbose #10724 > // // print_code=false
00:01:46 verbose #10725 > // // rust=
00:01:46 verbose #10726 >
00:01:46 verbose #10727 > types ()
00:01:46 verbose #10728 > trace Debug (fun () => "test") _locals
00:01:46 verbose #10729 > 00:01:46 debug #116 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2487b66f68c51498ed42b83865fe8820072860538de4d5b072be946452c6942/main.spi
00:01:54 verbose #10730 >
00:01:54 verbose #10731 > ╭─[ 7.28s - return value ]─────────────────────────────────────────────────────╮
00:01:54 verbose #10732 > │ 01:34:24 debug #1 test │
00:01:54 verbose #10733 > │ │
00:01:54 verbose #10734 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #10735 >
00:01:54 verbose #10736 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 verbose #10737 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 verbose #10738 > │ ## main │
00:01:54 verbose #10739 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #10740 >
00:01:54 verbose #10741 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 verbose #10742 > inl main () =
00:01:54 verbose #10743 > types ()
00:01:54 verbose #10744 > init_trace_state ()
00:01:54 verbose #10745 > $"let trace x = !trace x" : ()
00:01:54 verbose #10746 > 00:01:53 debug #117 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aa88bedc4f7988eac7d9693ed5ec30f9f5644fd1ea29be118e7aa78e43333ff2/main.spi
00:01:54 verbose #10747 >
00:01:54 verbose #10748 > ╭─[ 563.99ms - stdout ]────────────────────────────────────────────────────────╮
00:01:54 verbose #10749 > │ #if FABLE_COMPILER // trace.types │
00:01:54 verbose #10750 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:01:54 verbose #10751 > │ end │
00:01:54 verbose #10752 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:01:54 verbose #10753 > │ class end │
00:01:54 verbose #10754 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:01:54 verbose #10755 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:01:54 verbose #10756 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:01:54 verbose #10757 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:01:54 verbose #10758 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:01:54 verbose #10759 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:01:54 verbose #10760 > │ class end │
00:01:54 verbose #10761 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:01:54 verbose #10762 > │ end │
00:01:54 verbose #10763 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:01:54 verbose #10764 > │ class end │
00:01:54 verbose #10765 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:01:54 verbose #10766 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:01:54 verbose #10767 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:01:54 verbose #10768 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:01:54 verbose #10769 > │ class end │
00:01:54 verbose #10770 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:01:54 verbose #10771 > │ class end │
00:01:54 verbose #10772 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:01:54 verbose #10773 > │ class end │
00:01:54 verbose #10774 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:01:54 verbose #10775 > │ std_cell_RefCell<'T> = class end │
00:01:54 verbose #10776 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:01:54 verbose #10777 > │ std_pin_Pin<'T> = class end │
00:01:54 verbose #10778 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:01:54 verbose #10779 > │ = class end │
00:01:54 verbose #10780 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:01:54 verbose #10781 > │ std_rc_Weak<'T> = class end │
00:01:54 verbose #10782 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:01:54 verbose #10783 > │ std_sync_Arc<'T> = class end │
00:01:54 verbose #10784 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:01:54 verbose #10785 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:01:54 verbose #10786 > │ base64_DecodeError = class end │
00:01:54 verbose #10787 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:01:54 verbose #10788 > │ borsh_io_Error = class end │
00:01:54 verbose #10789 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:01:54 verbose #10790 > │ js_sys_JsString = class end │
00:01:54 verbose #10791 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:01:54 verbose #10792 > │ serde_json_Error = class end │
00:01:54 verbose #10793 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:01:54 verbose #10794 > │ serde_json_Value = class end │
00:01:54 verbose #10795 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:01:54 verbose #10796 > │ serde_wasm_bindgen_Error = class end │
00:01:54 verbose #10797 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:01:54 verbose #10798 > │ = class end │
00:01:54 verbose #10799 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:01:54 verbose #10800 > │ std_ffi_OsString = class end │
00:01:54 verbose #10801 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:01:54 verbose #10802 > │ std_str_Utf8Error = class end │
00:01:54 verbose #10803 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:01:54 verbose #10804 > │ std_string_String = class end │
00:01:54 verbose #10805 > │ #endif // trace.types │
00:01:54 verbose #10806 > │ module State = let mutable trace_state = None │
00:01:54 verbose #10807 > │ type Mut0 = {mutable l0 : int64} │
00:01:54 verbose #10808 > │ and Mut1 = {mutable l0 : bool} │
00:01:54 verbose #10809 > │ and [<Struct>] US0 = │
00:01:54 verbose #10810 > │ | US0_0 │
00:01:54 verbose #10811 > │ | US0_1 │
00:01:54 verbose #10812 > │ | US0_2 │
00:01:54 verbose #10813 > │ | US0_3 │
00:01:54 verbose #10814 > │ | US0_4 │
00:01:54 verbose #10815 > │ and Mut2 = {mutable l0 : US0} │
00:01:54 verbose #10816 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:01:54 verbose #10817 > │ and [<Struct>] US1 = │
00:01:54 verbose #10818 > │ | US1_0 of f0_0 : int64 │
00:01:54 verbose #10819 > │ | US1_1 │
00:01:54 verbose #10820 > │ and [<Struct>] US2 = │
00:01:54 verbose #10821 > │ | US2_0 of f0_0 : int64 │
00:01:54 verbose #10822 > │ | US2_1 │
00:01:54 verbose #10823 > │ let rec closure1 () (v0 : string) : unit = │
00:01:54 verbose #10824 > │ () │
00:01:54 verbose #10825 > │ and method0 (v0 : int64 option) : int64 option = │
00:01:54 verbose #10826 > │ v0 │
00:01:54 verbose #10827 > │ and method1 (v0 : int64 option) : int64 option = │
00:01:54 verbose #10828 > │ v0 │
00:01:54 verbose #10829 > │ and closure0 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:01:54 verbose #10830 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:54 verbose #10831 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:54 verbose #10832 > │ let v2 : US0 = US0_0 │
00:01:54 verbose #10833 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:54 verbose #10834 > │ let v4 : (string -> unit) = closure1() │
00:01:54 verbose #10835 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:01:54 verbose #10836 > │ let v6 : int64 option option = None │
00:01:54 verbose #10837 > │ let mutable _v6 = v6 │
00:01:54 verbose #10838 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:54 verbose #10839 > │ let v7 : string option = None │
00:01:54 verbose #10840 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:01:54 verbose #10841 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:54 verbose #10842 > │ let v9 : string = null |> unbox<string> │
00:01:54 verbose #10843 > │ v9 │
00:01:54 verbose #10844 > │ #endif │
00:01:54 verbose #10845 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:54 verbose #10846 > │ let v10 : string = null |> unbox<string> │
00:01:54 verbose #10847 > │ v10 │
00:01:54 verbose #10848 > │ #endif │
00:01:54 verbose #10849 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:54 verbose #10850 > │ let v11 : string = null |> unbox<string> │
00:01:54 verbose #10851 > │ v11 │
00:01:54 verbose #10852 > │ #endif │
00:01:54 verbose #10853 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:54 verbose #10854 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:54 verbose #10855 > │ let v12 : string = │
00:01:54 verbose #10856 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:54 verbose #10857 > │ v12 │
00:01:54 verbose #10858 > │ #endif │
00:01:54 verbose #10859 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:54 verbose #10860 > │ let v13 : string = null |> unbox<string> │
00:01:54 verbose #10861 > │ v13 │
00:01:54 verbose #10862 > │ #endif │
00:01:54 verbose #10863 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:54 verbose #10864 > │ let v14 : string = Unchecked.defaultof<string> │
00:01:54 verbose #10865 > │ v14 │
00:01:54 verbose #10866 > │ #endif │
00:01:54 verbose #10867 > │ |> fun x -> _v7 <- Some x │
00:01:54 verbose #10868 > │ let v15 : string = _v7.Value │
00:01:54 verbose #10869 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:01:54 verbose #10870 > │ let v18 : bool = v17 <> true │
00:01:54 verbose #10871 > │ let v24 : US1 = │
00:01:54 verbose #10872 > │ if v18 then │
00:01:54 verbose #10873 > │ let v19 : System.DateTime = System.DateTime.Now │
00:01:54 verbose #10874 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:01:54 verbose #10875 > │ let v21 : int64 = v20 v19 │
00:01:54 verbose #10876 > │ US1_0(v21) │
00:01:54 verbose #10877 > │ else │
00:01:54 verbose #10878 > │ US1_1 │
00:01:54 verbose #10879 > │ let v29 : int64 option = │
00:01:54 verbose #10880 > │ match v24 with │
00:01:54 verbose #10881 > │ | US1_1 -> (* None *) │
00:01:54 verbose #10882 > │ let v27 : int64 option = None │
00:01:54 verbose #10883 > │ v27 │
00:01:54 verbose #10884 > │ | US1_0(v25) -> (* Some *) │
00:01:54 verbose #10885 > │ let v26 : int64 option = Some v25 │
00:01:54 verbose #10886 > │ v26 │
00:01:54 verbose #10887 > │ let v30 : int64 option = method0(v29) │
00:01:54 verbose #10888 > │ v30 │
00:01:54 verbose #10889 > │ #else │
00:01:54 verbose #10890 > │ let v31 : int64 option = None │
00:01:54 verbose #10891 > │ let v32 : int64 option = method1(v31) │
00:01:54 verbose #10892 > │ v32 │
00:01:54 verbose #10893 > │ #endif │
00:01:54 verbose #10894 > │ |> fun x -> _v6 <- Some x │
00:01:54 verbose #10895 > │ let v33 : int64 option = _v6.Value │
00:01:54 verbose #10896 > │ struct (v1, v0, v3, v33, v5) │
00:01:54 verbose #10897 > │ and closure6 () (v0 : int64) : US2 = │
00:01:54 verbose #10898 > │ US2_0(v0) │
00:01:54 verbose #10899 > │ and method3 () : (int64 -> US2) = │
00:01:54 verbose #10900 > │ closure6() │
00:01:54 verbose #10901 > │ and method4 () : string = │
00:01:54 verbose #10902 > │ let v0 : string = "" │
00:01:54 verbose #10903 > │ v0 │
00:01:54 verbose #10904 > │ and closure5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:54 verbose #10905 > │ string = │
00:01:54 verbose #10906 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:54 verbose #10907 > │ closure0() │
00:01:54 verbose #10908 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:01:54 verbose #10909 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:01:54 verbose #10910 > │ Mut3) = State.trace_state.Value │
00:01:54 verbose #10911 > │ let v9 : string option = None │
00:01:54 verbose #10912 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:01:54 verbose #10913 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:54 verbose #10914 > │ let v11 : (int64 -> US2) = method3() │
00:01:54 verbose #10915 > │ let v12 : US2 = US2_1 │
00:01:54 verbose #10916 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:01:54 verbose #10917 > │ let v31 : System.DateTime = │
00:01:54 verbose #10918 > │ match v13 with │
00:01:54 verbose #10919 > │ | US2_1 -> (* None *) │
00:01:54 verbose #10920 > │ let v29 : System.DateTime = System.DateTime.Now │
00:01:54 verbose #10921 > │ v29 │
00:01:54 verbose #10922 > │ | US2_0(v14) -> (* Some *) │
00:01:54 verbose #10923 > │ let v15 : System.DateTime = System.DateTime.Now │
00:01:54 verbose #10924 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:01:54 verbose #10925 > │ let v17 : int64 = v16 v15 │
00:01:54 verbose #10926 > │ let v18 : int64 = v17 - v14 │
00:01:54 verbose #10927 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:01:54 verbose #10928 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:01:54 verbose #10929 > │ let v21 : int32 = v20 v19 │
00:01:54 verbose #10930 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:01:54 verbose #10931 > │ let v23 : int32 = v22 v19 │
00:01:54 verbose #10932 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:01:54 verbose #10933 > │ let v25 : int32 = v24 v19 │
00:01:54 verbose #10934 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:54 verbose #10935 > │ let v27 : int32 = v26 v19 │
00:01:54 verbose #10936 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:01:54 verbose #10937 > │ v25, v27) │
00:01:54 verbose #10938 > │ v28 │
00:01:54 verbose #10939 > │ let v32 : string = "hh:mm:ss" │
00:01:54 verbose #10940 > │ let v33 : string = v31.ToString v32 │
00:01:54 verbose #10941 > │ v33 │
00:01:54 verbose #10942 > │ #endif │
00:01:54 verbose #10943 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:54 verbose #10944 > │ let v34 : string = method4() │
00:01:54 verbose #10945 > │ v34 │
00:01:54 verbose #10946 > │ #endif │
00:01:54 verbose #10947 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:54 verbose #10948 > │ let v35 : string = method4() │
00:01:54 verbose #10949 > │ v35 │
00:01:54 verbose #10950 > │ #endif │
00:01:54 verbose #10951 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:54 verbose #10952 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:54 verbose #10953 > │ let v36 : (int64 -> US2) = method3() │
00:01:54 verbose #10954 > │ let v37 : US2 = US2_1 │
00:01:54 verbose #10955 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:01:54 verbose #10956 > │ let v56 : System.DateTime = │
00:01:54 verbose #10957 > │ match v38 with │
00:01:54 verbose #10958 > │ | US2_1 -> (* None *) │
00:01:54 verbose #10959 > │ let v54 : System.DateTime = System.DateTime.Now │
00:01:54 verbose #10960 > │ v54 │
00:01:54 verbose #10961 > │ | US2_0(v39) -> (* Some *) │
00:01:54 verbose #10962 > │ let v40 : System.DateTime = System.DateTime.Now │
00:01:54 verbose #10963 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:01:54 verbose #10964 > │ let v42 : int64 = v41 v40 │
00:01:54 verbose #10965 > │ let v43 : int64 = v42 - v39 │
00:01:54 verbose #10966 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:01:54 verbose #10967 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:01:54 verbose #10968 > │ let v46 : int32 = v45 v44 │
00:01:54 verbose #10969 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:01:54 verbose #10970 > │ let v48 : int32 = v47 v44 │
00:01:54 verbose #10971 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:01:54 verbose #10972 > │ let v50 : int32 = v49 v44 │
00:01:54 verbose #10973 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:54 verbose #10974 > │ let v52 : int32 = v51 v44 │
00:01:54 verbose #10975 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:01:54 verbose #10976 > │ v50, v52) │
00:01:54 verbose #10977 > │ v53 │
00:01:54 verbose #10978 > │ let v57 : string = "HH:mm:ss" │
00:01:54 verbose #10979 > │ let v58 : string = v56.ToString v57 │
00:01:54 verbose #10980 > │ v58 │
00:01:54 verbose #10981 > │ #endif │
00:01:54 verbose #10982 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:54 verbose #10983 > │ let v59 : string = method4() │
00:01:54 verbose #10984 > │ v59 │
00:01:54 verbose #10985 > │ #endif │
00:01:54 verbose #10986 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:54 verbose #10987 > │ let v60 : string = Unchecked.defaultof<string> │
00:01:54 verbose #10988 > │ v60 │
00:01:54 verbose #10989 > │ #endif │
00:01:54 verbose #10990 > │ |> fun x -> _v9 <- Some x │
00:01:54 verbose #10991 > │ let v61 : string = _v9.Value │
00:01:54 verbose #10992 > │ let v62 : int64 = v4.l0 │
00:01:54 verbose #10993 > │ let v72 : string = │
00:01:54 verbose #10994 > │ match v0 with │
00:01:54 verbose #10995 > │ | US0_4 -> (* Critical *) │
00:01:54 verbose #10996 > │ let v67 : string = "Critical" │
00:01:54 verbose #10997 > │ v67 │
00:01:54 verbose #10998 > │ | US0_1 -> (* Debug *) │
00:01:54 verbose #10999 > │ let v64 : string = "Debug" │
00:01:54 verbose #11000 > │ v64 │
00:01:54 verbose #11001 > │ | US0_2 -> (* Info *) │
00:01:54 verbose #11002 > │ let v65 : string = "Info" │
00:01:54 verbose #11003 > │ v65 │
00:01:54 verbose #11004 > │ | US0_0 -> (* Verbose *) │
00:01:54 verbose #11005 > │ let v63 : string = "Verbose" │
00:01:54 verbose #11006 > │ v63 │
00:01:54 verbose #11007 > │ | US0_3 -> (* Warning *) │
00:01:54 verbose #11008 > │ let v66 : string = "Warning" │
00:01:54 verbose #11009 > │ v66 │
00:01:54 verbose #11010 > │ let v73 : string = v72.ToLower () │
00:01:54 verbose #11011 > │ let v74 : string option = None │
00:01:54 verbose #11012 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:01:54 verbose #11013 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:54 verbose #11014 > │ let v90 : Ref<Str> = │
00:01:54 verbose #11015 > │ match v0 with │
00:01:54 verbose #11016 > │ | US0_4 -> (* Critical *) │
00:01:54 verbose #11017 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:01:54 verbose #11018 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:01:54 verbose #11019 > │ v85 │
00:01:54 verbose #11020 > │ | US0_1 -> (* Debug *) │
00:01:54 verbose #11021 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:01:54 verbose #11022 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:01:54 verbose #11023 > │ v79 │
00:01:54 verbose #11024 > │ | US0_2 -> (* Info *) │
00:01:54 verbose #11025 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:01:54 verbose #11026 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:01:54 verbose #11027 > │ v81 │
00:01:54 verbose #11028 > │ | US0_0 -> (* Verbose *) │
00:01:54 verbose #11029 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:01:54 verbose #11030 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:01:54 verbose #11031 > │ v77 │
00:01:54 verbose #11032 > │ | US0_3 -> (* Warning *) │
00:01:54 verbose #11033 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:01:54 verbose #11034 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:01:54 verbose #11035 > │ v83 │
00:01:54 verbose #11036 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 verbose #11037 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:01:54 verbose #11038 > │ let v93 : string = "inline_colorization::color_reset" │
00:01:54 verbose #11039 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:01:54 verbose #11040 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:01:54 verbose #11041 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:01:54 verbose #11042 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:01:54 verbose #11043 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:01:54 verbose #11044 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:01:54 verbose #11045 > │ v99 │
00:01:54 verbose #11046 > │ #endif │
00:01:54 verbose #11047 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:54 verbose #11048 > │ let v114 : Ref<Str> = │
00:01:54 verbose #11049 > │ match v0 with │
00:01:54 verbose #11050 > │ | US0_4 -> (* Critical *) │
00:01:54 verbose #11051 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:01:54 verbose #11052 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11053 > │ v108 │
00:01:54 verbose #11054 > │ v109 │
00:01:54 verbose #11055 > │ | US0_1 -> (* Debug *) │
00:01:54 verbose #11056 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:01:54 verbose #11057 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11058 > │ v102 │
00:01:54 verbose #11059 > │ v103 │
00:01:54 verbose #11060 > │ | US0_2 -> (* Info *) │
00:01:54 verbose #11061 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:01:54 verbose #11062 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11063 > │ v104 │
00:01:54 verbose #11064 > │ v105 │
00:01:54 verbose #11065 > │ | US0_0 -> (* Verbose *) │
00:01:54 verbose #11066 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:01:54 verbose #11067 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11068 > │ v100 │
00:01:54 verbose #11069 > │ v101 │
00:01:54 verbose #11070 > │ | US0_3 -> (* Warning *) │
00:01:54 verbose #11071 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:01:54 verbose #11072 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11073 > │ v106 │
00:01:54 verbose #11074 > │ v107 │
00:01:54 verbose #11075 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 verbose #11076 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:01:54 verbose #11077 > │ let v117 : string = "inline_colorization::color_reset" │
00:01:54 verbose #11078 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:01:54 verbose #11079 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:01:54 verbose #11080 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:01:54 verbose #11081 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11082 > │ v120 │
00:01:54 verbose #11083 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:01:54 verbose #11084 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:01:54 verbose #11085 > │ v123 │
00:01:54 verbose #11086 > │ #endif │
00:01:54 verbose #11087 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:54 verbose #11088 > │ let v138 : Ref<Str> = │
00:01:54 verbose #11089 > │ match v0 with │
00:01:54 verbose #11090 > │ | US0_4 -> (* Critical *) │
00:01:54 verbose #11091 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:01:54 verbose #11092 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11093 > │ v132 │
00:01:54 verbose #11094 > │ v133 │
00:01:54 verbose #11095 > │ | US0_1 -> (* Debug *) │
00:01:54 verbose #11096 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:01:54 verbose #11097 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11098 > │ v126 │
00:01:54 verbose #11099 > │ v127 │
00:01:54 verbose #11100 > │ | US0_2 -> (* Info *) │
00:01:54 verbose #11101 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:01:54 verbose #11102 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11103 > │ v128 │
00:01:54 verbose #11104 > │ v129 │
00:01:54 verbose #11105 > │ | US0_0 -> (* Verbose *) │
00:01:54 verbose #11106 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:01:54 verbose #11107 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11108 > │ v124 │
00:01:54 verbose #11109 > │ v125 │
00:01:54 verbose #11110 > │ | US0_3 -> (* Warning *) │
00:01:54 verbose #11111 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:01:54 verbose #11112 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11113 > │ v130 │
00:01:54 verbose #11114 > │ v131 │
00:01:54 verbose #11115 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:01:54 verbose #11116 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:01:54 verbose #11117 > │ let v141 : string = "inline_colorization::color_reset" │
00:01:54 verbose #11118 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:01:54 verbose #11119 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:01:54 verbose #11120 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:01:54 verbose #11121 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:01:54 verbose #11122 > │ v144 │
00:01:54 verbose #11123 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:01:54 verbose #11124 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:01:54 verbose #11125 > │ v147 │
00:01:54 verbose #11126 > │ #endif │
00:01:54 verbose #11127 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:54 verbose #11128 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:54 verbose #11129 > │ v73 │
00:01:54 verbose #11130 > │ #endif │
00:01:54 verbose #11131 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:54 verbose #11132 > │ v73 │
00:01:54 verbose #11133 > │ #endif │
00:01:54 verbose #11134 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:54 verbose #11135 > │ let v148 : string = Unchecked.defaultof<string> │
00:01:54 verbose #11136 > │ v148 │
00:01:54 verbose #11137 > │ #endif │
00:01:54 verbose #11138 > │ |> fun x -> _v74 <- Some x │
00:01:54 verbose #11139 > │ let v149 : string = _v74.Value │
00:01:54 verbose #11140 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:01:54 verbose #11141 > │ let v151 : (char []) = [||] │
00:01:54 verbose #11142 > │ let v152 : string = v150.TrimStart v151 │
00:01:54 verbose #11143 > │ let v153 : (char []) = [|' '; '/'|] │
00:01:54 verbose #11144 > │ let v154 : string = v152.TrimEnd v153 │
00:01:54 verbose #11145 > │ v154 │
00:01:54 verbose #11146 > │ and method5 (v0 : US0, v1 : (unit -> string)) : unit = │
00:01:54 verbose #11147 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:54 verbose #11148 > │ closure0() │
00:01:54 verbose #11149 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:54 verbose #11150 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:01:54 verbose #11151 > │ Mut3) = State.trace_state.Value │
00:01:54 verbose #11152 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:01:54 verbose #11153 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:01:54 verbose #11154 > │ Mut3) = State.trace_state.Value │
00:01:54 verbose #11155 > │ let v13 : US0 = v10.l0 │
00:01:54 verbose #11156 > │ let v14 : bool = v9.l0 │
00:01:54 verbose #11157 > │ let v15 : bool = v14 = false │
00:01:54 verbose #11158 > │ let v19 : bool = │
00:01:54 verbose #11159 > │ if v15 then │
00:01:54 verbose #11160 > │ false │
00:01:54 verbose #11161 > │ else │
00:01:54 verbose #11162 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:54 verbose #11163 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:01:54 verbose #11164 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:01:54 verbose #11165 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:01:54 verbose #11166 > │ let v18 : bool = v16 >= v17 │
00:01:54 verbose #11167 > │ v18 │
00:01:54 verbose #11168 > │ if v19 then │
00:01:54 verbose #11169 > │ let v20 : int64 = v3.l0 │
00:01:54 verbose #11170 > │ let v21 : int64 = v20 + 1L │
00:01:54 verbose #11171 > │ v3.l0 <- v21 │
00:01:54 verbose #11172 > │ let v22 : string = $"%s{v1 ()}" │
00:01:54 verbose #11173 > │ let v23 : unit option = None │
00:01:54 verbose #11174 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:01:54 verbose #11175 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:54 verbose #11176 > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:54 verbose #11177 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:01:54 verbose #11178 > │ () │
00:01:54 verbose #11179 > │ #endif │
00:01:54 verbose #11180 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:54 verbose #11181 > │ let v26 : string = @"println!(""{}"", $0)" │
00:01:54 verbose #11182 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:01:54 verbose #11183 > │ () │
00:01:54 verbose #11184 > │ #endif │
00:01:54 verbose #11185 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:54 verbose #11186 > │ let v27 : string = @"println!(""{}"", $0)" │
00:01:54 verbose #11187 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:01:54 verbose #11188 > │ () │
00:01:54 verbose #11189 > │ #endif │
00:01:54 verbose #11190 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:54 verbose #11191 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:54 verbose #11192 > │ System.Console.WriteLine v22 │
00:01:54 verbose #11193 > │ () │
00:01:54 verbose #11194 > │ #endif │
00:01:54 verbose #11195 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:54 verbose #11196 > │ System.Console.WriteLine v22 │
00:01:54 verbose #11197 > │ () │
00:01:54 verbose #11198 > │ #endif │
00:01:54 verbose #11199 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:54 verbose #11200 > │ FABLE_COMPILER_DART │
00:01:54 verbose #11201 > │ Unchecked.defaultof<unit> │
00:01:54 verbose #11202 > │ () │
00:01:54 verbose #11203 > │ #endif │
00:01:54 verbose #11204 > │ |> fun x -> _v23 <- Some x │
00:01:54 verbose #11205 > │ _v23.Value │
00:01:54 verbose #11206 > │ let v28 : (string -> unit) = v7.l0 │
00:01:54 verbose #11207 > │ v28 v22 │
00:01:54 verbose #11208 > │ and method2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:54 verbose #11209 > │ = │
00:01:54 verbose #11210 > │ let v3 : (unit -> string) = closure5(v0, v1, v2) │
00:01:54 verbose #11211 > │ method5(v0, v3) │
00:01:54 verbose #11212 > │ and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : │
00:01:54 verbose #11213 > │ unit = │
00:01:54 verbose #11214 > │ method2(v0, v1, v2) │
00:01:54 verbose #11215 > │ and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) │
00:01:54 verbose #11216 > │ = │
00:01:54 verbose #11217 > │ closure4(v0, v1) │
00:01:54 verbose #11218 > │ and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> │
00:01:54 verbose #11219 > │ unit)) = │
00:01:54 verbose #11220 > │ closure3(v0) │
00:01:54 verbose #11221 > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:01:54 verbose #11222 > │ closure0() │
00:01:54 verbose #11223 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:01:54 verbose #11224 > │ let v1 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = │
00:01:54 verbose #11225 > │ closure2() │
00:01:54 verbose #11226 > │ let trace x = v1 x │
00:01:54 verbose #11227 > │ () │
00:01:54 verbose #11228 > │ │
00:01:54 verbose #11229 > │ │
00:01:54 verbose #11230 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #11231 > [NbConvertApp] Converting notebook trace.dib.ipynb to html
00:01:56 verbose #11232 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:56 verbose #11233 > validate(nb)
00:01:57 verbose #11234 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:57 verbose #11235 > return _pygments_highlight(
00:01:57 verbose #11236 > [NbConvertApp] Writing 339837 bytes to trace.dib.html
00:01:58 debug #11237 execute_with_options_async / exit_code: 0 / output.Length: 73045
00:01:58 debug #7 main / executeCommand / exitCode: 0
00:01:58 debug #11238 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 crypto.dib -Retries 3"", None,
None)
00:01:58 verbose #11239 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: crypto.dib / _args: [
00:01:58 verbose #11240 > "-Retries",
00:01:58 verbose #11241 > 3
00:01:58 verbose #11242 > ]
00:02:00 verbose #11243 >
00:02:01 verbose #11244 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 verbose #11245 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 verbose #11246 > │ # crypto │
00:02:01 verbose #11247 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #11248 >
00:02:01 verbose #11249 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 verbose #11250 > // // test
00:02:01 verbose #11251 >
00:02:01 verbose #11252 > open testing
00:02:03 verbose #11253 > 00:02:03 debug #118 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:02:04 verbose #11254 >
00:02:04 verbose #11255 > ╭─[ 3.77s - stdout ]───────────────────────────────────────────────────────────╮
00:02:04 verbose #11256 > │ () │
00:02:04 verbose #11257 > │ │
00:02:04 verbose #11258 > │ │
00:02:04 verbose #11259 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #11260 >
00:02:04 verbose #11261 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #11262 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #11263 > │ ## sha256 │
00:02:04 verbose #11264 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #11265 >
00:02:04 verbose #11266 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #11267 > nominal sha256 = $'System.Security.Cryptography.SHA256'
00:02:04 verbose #11268 >
00:02:04 verbose #11269 > inl sha256 () : sha256 =
00:02:04 verbose #11270 > $'`sha256.Create' ()
00:02:04 verbose #11271 > 00:02:04 debug #119 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/391125733aa8f01f98990ed96a96f6458feb5d256c9c5d9b37dace0ed8d7854f/main.spi
00:02:05 verbose #11272 >
00:02:05 verbose #11273 > ╭─[ 244.27ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 verbose #11274 > │ () │
00:02:05 verbose #11275 > │ │
00:02:05 verbose #11276 > │ │
00:02:05 verbose #11277 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11278 >
00:02:05 verbose #11279 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #11280 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #11281 > │ ## sha256_compute_hash │
00:02:05 verbose #11282 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11283 >
00:02:05 verbose #11284 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #11285 > inl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =
00:02:05 verbose #11286 > data |> $'!x.ComputeHash'
00:02:05 verbose #11287 > 00:02:04 debug #120 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/32fe47403608d84fb54876a14ed9a5219f0876037328d0ce6ea6fa5557881356/main.spi
00:02:05 verbose #11288 >
00:02:05 verbose #11289 > ╭─[ 270.98ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 verbose #11290 > │ () │
00:02:05 verbose #11291 > │ │
00:02:05 verbose #11292 > │ │
00:02:05 verbose #11293 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11294 >
00:02:05 verbose #11295 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #11296 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #11297 > │ ## create_hash │
00:02:05 verbose #11298 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11299 >
00:02:05 verbose #11300 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #11301 > inl create_hash (x : string) : any =
00:02:05 verbose #11302 > open ts_operators
00:02:05 verbose #11303 > global "type ICryptoCreateHash = abstract createHash: x: string -> obj"
00:02:05 verbose #11304 > inl crypto : $'ICryptoCreateHash' = ts.import_all "crypto"
00:02:05 verbose #11305 > !\\(x, $'"!crypto.createHash($0)"')
00:02:05 verbose #11306 > 00:02:04 debug #121 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/45c29146c406001ac11dffde7d1aa9509ef39ab2d5ce182fb847cd255e842f66/main.spi
00:02:05 verbose #11307 >
00:02:05 verbose #11308 > ╭─[ 239.06ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 verbose #11309 > │ () │
00:02:05 verbose #11310 > │ │
00:02:05 verbose #11311 > │ │
00:02:05 verbose #11312 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11313 >
00:02:05 verbose #11314 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #11315 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #11316 > │ ## hash_update │
00:02:05 verbose #11317 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11318 >
00:02:05 verbose #11319 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #11320 > inl hash_update (s : string) (x : any) : any =
00:02:05 verbose #11321 > open ts_operators
00:02:05 verbose #11322 > !\\((x, s), $'"$0.update($1, \'utf8\')"')
00:02:05 verbose #11323 > 00:02:05 debug #122 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/447f7ecf9544c8fdb6655339b3c23425aa25932883806ab1f393bc1bef8841da/main.spi
00:02:05 verbose #11324 >
00:02:05 verbose #11325 > ╭─[ 226.03ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 verbose #11326 > │ () │
00:02:05 verbose #11327 > │ │
00:02:05 verbose #11328 > │ │
00:02:05 verbose #11329 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11330 >
00:02:05 verbose #11331 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #11332 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #11333 > │ ## hash_digest │
00:02:05 verbose #11334 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #11335 >
00:02:05 verbose #11336 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #11337 > inl hash_digest (s : string) (x : any) : string =
00:02:05 verbose #11338 > open ts_operators
00:02:05 verbose #11339 > !\\((x, s), $'"$0.digest($1)"')
00:02:05 verbose #11340 > 00:02:05 debug #123 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/44447460b0f50c2cc132f70d4879b4e541808249da1865bf1b3633dc341b7097/main.spi
00:02:06 verbose #11341 >
00:02:06 verbose #11342 > ╭─[ 230.65ms - stdout ]────────────────────────────────────────────────────────╮
00:02:06 verbose #11343 > │ () │
00:02:06 verbose #11344 > │ │
00:02:06 verbose #11345 > │ │
00:02:06 verbose #11346 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #11347 >
00:02:06 verbose #11348 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #11349 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #11350 > │ ## hash_text │
00:02:06 verbose #11351 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #11352 >
00:02:06 verbose #11353 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #11354 > inl hash_text (input : string) =
00:02:06 verbose #11355 > run_target function
00:02:06 verbose #11356 > | Fsharp (Native) => fun () =>
00:02:06 verbose #11357 > inl sha256 = sha256 () |> use
00:02:06 verbose #11358 > input
00:02:06 verbose #11359 > |> sm'.utf8_get_bytes
00:02:06 verbose #11360 > |> sha256_compute_hash sha256
00:02:06 verbose #11361 > |> am.map (sm'.byte_to_string "x2")
00:02:06 verbose #11362 > |> seq.of_array'
00:02:06 verbose #11363 > |> sm'.concat ""
00:02:06 verbose #11364 > | TypeScript _ => fun () =>
00:02:06 verbose #11365 > create_hash "sha256"
00:02:06 verbose #11366 > |> hash_update input
00:02:06 verbose #11367 > |> hash_digest "hex"
00:02:06 verbose #11368 > | _ => fun () => null ()
00:02:06 verbose #11369 > 00:02:05 debug #124 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a02ce4a2c0c5ba46e7ceabae5f9c684ebaccd6e030bb4496ed54df7aacc6791/main.spi
00:02:06 verbose #11370 >
00:02:06 verbose #11371 > ╭─[ 226.28ms - stdout ]────────────────────────────────────────────────────────╮
00:02:06 verbose #11372 > │ () │
00:02:06 verbose #11373 > │ │
00:02:06 verbose #11374 > │ │
00:02:06 verbose #11375 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #11376 >
00:02:06 verbose #11377 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #11378 > // // test
00:02:06 verbose #11379 >
00:02:06 verbose #11380 > ""
00:02:06 verbose #11381 > |> hash_text
00:02:06 verbose #11382 > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:02:06 verbose #11383 > 00:02:05 debug #125 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5eeb29d029fc15593f3b65bbe295c41d5810fa0c74c4a906f249b181d087f439/main.spi
00:02:07 verbose #11384 >
00:02:07 verbose #11385 > ╭─[ 1.55s - stdout ]───────────────────────────────────────────────────────────╮
00:02:07 verbose #11386 > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:02:07 verbose #11387 > │ type Mut0 = {mutable l0 : int32} │
00:02:07 verbose #11388 > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:02:07 verbose #11389 > │ let v2 : int32 = v1.l0 │
00:02:07 verbose #11390 > │ let v3 : bool = v2 < v0 │
00:02:07 verbose #11391 > │ v3 │
00:02:07 verbose #11392 > │ and method2 () : string = │
00:02:07 verbose #11393 > │ let v0 : string = "" │
00:02:07 verbose #11394 > │ v0 │
00:02:07 verbose #11395 > │ and method3 (v0 : bool) : bool = │
00:02:07 verbose #11396 > │ v0 │
00:02:07 verbose #11397 > │ and method0 () : unit = │
00:02:07 verbose #11398 > │ let v0 : string option = None │
00:02:07 verbose #11399 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:02:07 verbose #11400 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:07 verbose #11401 > │ let v2 : string = null |> unbox<string> │
00:02:07 verbose #11402 > │ v2 │
00:02:07 verbose #11403 > │ #endif │
00:02:07 verbose #11404 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:07 verbose #11405 > │ let v3 : string = null |> unbox<string> │
00:02:07 verbose #11406 > │ v3 │
00:02:07 verbose #11407 > │ #endif │
00:02:07 verbose #11408 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:07 verbose #11409 > │ let v4 : string = null |> unbox<string> │
00:02:07 verbose #11410 > │ v4 │
00:02:07 verbose #11411 > │ #endif │
00:02:07 verbose #11412 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:07 verbose #11413 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:07 verbose #11414 > │ let v5 : (unit -> System.Security.Cryptography.SHA256) = │
00:02:07 verbose #11415 > │ System.Security.Cryptography.SHA256.Create │
00:02:07 verbose #11416 > │ let v6 : System.Security.Cryptography.SHA256 = v5 () │
00:02:07 verbose #11417 > │ use v6 = v6 │
00:02:07 verbose #11418 > │ let v7 : System.Security.Cryptography.SHA256 = v6 │
00:02:07 verbose #11419 > │ let v8 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:02:07 verbose #11420 > │ let v9 : string = "" │
00:02:07 verbose #11421 > │ let v10 : (uint8 []) = v8 v9 │
00:02:07 verbose #11422 > │ let v11 : ((uint8 []) -> (uint8 [])) = v7.ComputeHash │
00:02:07 verbose #11423 > │ let v12 : (uint8 []) = v11 v10 │
00:02:07 verbose #11424 > │ let v13 : int32 = v12.Length │
00:02:07 verbose #11425 > │ let v14 : (string []) = Array.zeroCreate<string> (v13) │
00:02:07 verbose #11426 > │ let v15 : Mut0 = {l0 = 0} : Mut0 │
00:02:07 verbose #11427 > │ while method1(v13, v15) do │
00:02:07 verbose #11428 > │ let v17 : int32 = v15.l0 │
00:02:07 verbose #11429 > │ let v18 : uint8 = v12.[int v17] │
00:02:07 verbose #11430 > │ let v19 : (string -> string) = v18.ToString │
00:02:07 verbose #11431 > │ let v20 : string = "x2" │
00:02:07 verbose #11432 > │ let v21 : string = v19 v20 │
00:02:07 verbose #11433 > │ v14.[int v17] <- v21 │
00:02:07 verbose #11434 > │ let v22 : int32 = v17 + 1 │
00:02:07 verbose #11435 > │ v15.l0 <- v22 │
00:02:07 verbose #11436 > │ () │
00:02:07 verbose #11437 > │ let v23 : string seq = seq { for i = 0 to v14.Length - 1 do yield v14.[ │
00:02:07 verbose #11438 > │ i] } │
00:02:07 verbose #11439 > │ let v24 : string = method2() │
00:02:07 verbose #11440 > │ let v25 : (string -> (string seq -> string)) = String.concat │
00:02:07 verbose #11441 > │ let v26 : (string seq -> string) = v25 v24 │
00:02:07 verbose #11442 > │ let v27 : string = v26 v23 │
00:02:07 verbose #11443 > │ v27 │
00:02:07 verbose #11444 > │ #endif │
00:02:07 verbose #11445 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:07 verbose #11446 > │ let v28 : string = "crypto" │
00:02:07 verbose #11447 > │ let v29 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v28 │
00:02:07 verbose #11448 > │ let v30 : string = "v29.createHash($0)" │
00:02:07 verbose #11449 > │ let v31 : string = "sha256" │
00:02:07 verbose #11450 > │ let v32 : obj = Fable.Core.JsInterop.emitJsExpr v31 v30 │
00:02:07 verbose #11451 > │ let v33 : string = "$0.update($1, 'utf8')" │
00:02:07 verbose #11452 > │ let v34 : obj = Fable.Core.JsInterop.emitJsExpr struct (v32, v9) v33 │
00:02:07 verbose #11453 > │ let v35 : string = "$0.digest($1)" │
00:02:07 verbose #11454 > │ let v36 : string = "hex" │
00:02:07 verbose #11455 > │ let v37 : string = Fable.Core.JsInterop.emitJsExpr struct (v34, v36) v35 │
00:02:07 verbose #11456 > │ v37 │
00:02:07 verbose #11457 > │ #endif │
00:02:07 verbose #11458 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:07 verbose #11459 > │ let v38 : string = Unchecked.defaultof<string> │
00:02:07 verbose #11460 > │ v38 │
00:02:07 verbose #11461 > │ #endif │
00:02:07 verbose #11462 > │ |> fun x -> _v0 <- Some x │
00:02:07 verbose #11463 > │ let v39 : string = _v0.Value │
00:02:07 verbose #11464 > │ let v40 : string = $"%A{v39}" │
00:02:07 verbose #11465 > │ System.Console.WriteLine v40 │
00:02:07 verbose #11466 > │ let v42 : bool = v39 = │
00:02:07 verbose #11467 > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:02:07 verbose #11468 > │ let v44 : bool = │
00:02:07 verbose #11469 > │ if v42 then │
00:02:07 verbose #11470 > │ true │
00:02:07 verbose #11471 > │ else │
00:02:07 verbose #11472 > │ method3(v42) │
00:02:07 verbose #11473 > │ let v45 : string = │
00:02:07 verbose #11474 > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:02:07 verbose #11475 > │ let v46 : string = $"__expect / actual: %A{v39} / expected: %A{v45}" │
00:02:07 verbose #11476 > │ let v47 : bool = v44 = false │
00:02:07 verbose #11477 > │ if v47 then │
00:02:07 verbose #11478 > │ failwith<unit> v46 │
00:02:07 verbose #11479 > │ method0() │
00:02:07 verbose #11480 > │ │
00:02:07 verbose #11481 > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:02:07 verbose #11482 > │ │
00:02:07 verbose #11483 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:07 verbose #11484 >
00:02:07 verbose #11485 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:07 verbose #11486 > // // test
00:02:07 verbose #11487 >
00:02:07 verbose #11488 > " "
00:02:07 verbose #11489 > |> hash_text
00:02:07 verbose #11490 > |> _assert_eq "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068"
00:02:08 verbose #11491 > 00:02:07 debug #126 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/11b6b2452eb6b1ece24906e6a5bec57f0279e3c3d4bb31a6971208cf7fca1ff2/main.spi
00:02:08 verbose #11492 >
00:02:08 verbose #11493 > ╭─[ 391.29ms - stdout ]────────────────────────────────────────────────────────╮
00:02:08 verbose #11494 > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:02:08 verbose #11495 > │ type Mut0 = {mutable l0 : int32} │
00:02:08 verbose #11496 > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:02:08 verbose #11497 > │ let v2 : int32 = v1.l0 │
00:02:08 verbose #11498 > │ let v3 : bool = v2 < v0 │
00:02:08 verbose #11499 > │ v3 │
00:02:08 verbose #11500 > │ and method2 () : string = │
00:02:08 verbose #11501 > │ let v0 : string = "" │
00:02:08 verbose #11502 > │ v0 │
00:02:08 verbose #11503 > │ and method3 (v0 : bool) : bool = │
00:02:08 verbose #11504 > │ v0 │
00:02:08 verbose #11505 > │ and method0 () : unit = │
00:02:08 verbose #11506 > │ let v0 : string option = None │
00:02:08 verbose #11507 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:02:08 verbose #11508 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:08 verbose #11509 > │ let v2 : string = null |> unbox<string> │
00:02:08 verbose #11510 > │ v2 │
00:02:08 verbose #11511 > │ #endif │
00:02:08 verbose #11512 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:08 verbose #11513 > │ let v3 : string = null |> unbox<string> │
00:02:08 verbose #11514 > │ v3 │
00:02:08 verbose #11515 > │ #endif │
00:02:08 verbose #11516 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:08 verbose #11517 > │ let v4 : string = null |> unbox<string> │
00:02:08 verbose #11518 > │ v4 │
00:02:08 verbose #11519 > │ #endif │
00:02:08 verbose #11520 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:08 verbose #11521 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:08 verbose #11522 > │ let v5 : (unit -> System.Security.Cryptography.SHA256) = │
00:02:08 verbose #11523 > │ System.Security.Cryptography.SHA256.Create │
00:02:08 verbose #11524 > │ let v6 : System.Security.Cryptography.SHA256 = v5 () │
00:02:08 verbose #11525 > │ use v6 = v6 │
00:02:08 verbose #11526 > │ let v7 : System.Security.Cryptography.SHA256 = v6 │
00:02:08 verbose #11527 > │ let v8 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:02:08 verbose #11528 > │ let v9 : string = " " │
00:02:08 verbose #11529 > │ let v10 : (uint8 []) = v8 v9 │
00:02:08 verbose #11530 > │ let v11 : ((uint8 []) -> (uint8 [])) = v7.ComputeHash │
00:02:08 verbose #11531 > │ let v12 : (uint8 []) = v11 v10 │
00:02:08 verbose #11532 > │ let v13 : int32 = v12.Length │
00:02:08 verbose #11533 > │ let v14 : (string []) = Array.zeroCreate<string> (v13) │
00:02:08 verbose #11534 > │ let v15 : Mut0 = {l0 = 0} : Mut0 │
00:02:08 verbose #11535 > │ while method1(v13, v15) do │
00:02:08 verbose #11536 > │ let v17 : int32 = v15.l0 │
00:02:08 verbose #11537 > │ let v18 : uint8 = v12.[int v17] │
00:02:08 verbose #11538 > │ let v19 : (string -> string) = v18.ToString │
00:02:08 verbose #11539 > │ let v20 : string = "x2" │
00:02:08 verbose #11540 > │ let v21 : string = v19 v20 │
00:02:08 verbose #11541 > │ v14.[int v17] <- v21 │
00:02:08 verbose #11542 > │ let v22 : int32 = v17 + 1 │
00:02:08 verbose #11543 > │ v15.l0 <- v22 │
00:02:08 verbose #11544 > │ () │
00:02:08 verbose #11545 > │ let v23 : string seq = seq { for i = 0 to v14.Length - 1 do yield v14.[ │
00:02:08 verbose #11546 > │ i] } │
00:02:08 verbose #11547 > │ let v24 : string = method2() │
00:02:08 verbose #11548 > │ let v25 : (string -> (string seq -> string)) = String.concat │
00:02:08 verbose #11549 > │ let v26 : (string seq -> string) = v25 v24 │
00:02:08 verbose #11550 > │ let v27 : string = v26 v23 │
00:02:08 verbose #11551 > │ v27 │
00:02:08 verbose #11552 > │ #endif │
00:02:08 verbose #11553 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:08 verbose #11554 > │ let v28 : string = "crypto" │
00:02:08 verbose #11555 > │ let v29 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v28 │
00:02:08 verbose #11556 > │ let v30 : string = "v29.createHash($0)" │
00:02:08 verbose #11557 > │ let v31 : string = "sha256" │
00:02:08 verbose #11558 > │ let v32 : obj = Fable.Core.JsInterop.emitJsExpr v31 v30 │
00:02:08 verbose #11559 > │ let v33 : string = "$0.update($1, 'utf8')" │
00:02:08 verbose #11560 > │ let v34 : obj = Fable.Core.JsInterop.emitJsExpr struct (v32, v9) v33 │
00:02:08 verbose #11561 > │ let v35 : string = "$0.digest($1)" │
00:02:08 verbose #11562 > │ let v36 : string = "hex" │
00:02:08 verbose #11563 > │ let v37 : string = Fable.Core.JsInterop.emitJsExpr struct (v34, v36) v35 │
00:02:08 verbose #11564 > │ v37 │
00:02:08 verbose #11565 > │ #endif │
00:02:08 verbose #11566 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:08 verbose #11567 > │ let v38 : string = Unchecked.defaultof<string> │
00:02:08 verbose #11568 > │ v38 │
00:02:08 verbose #11569 > │ #endif │
00:02:08 verbose #11570 > │ |> fun x -> _v0 <- Some x │
00:02:08 verbose #11571 > │ let v39 : string = _v0.Value │
00:02:08 verbose #11572 > │ let v40 : string = $"%A{v39}" │
00:02:08 verbose #11573 > │ System.Console.WriteLine v40 │
00:02:08 verbose #11574 > │ let v42 : bool = v39 = │
00:02:08 verbose #11575 > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:02:08 verbose #11576 > │ let v44 : bool = │
00:02:08 verbose #11577 > │ if v42 then │
00:02:08 verbose #11578 > │ true │
00:02:08 verbose #11579 > │ else │
00:02:08 verbose #11580 > │ method3(v42) │
00:02:08 verbose #11581 > │ let v45 : string = │
00:02:08 verbose #11582 > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:02:08 verbose #11583 > │ let v46 : string = $"__expect / actual: %A{v39} / expected: %A{v45}" │
00:02:08 verbose #11584 > │ let v47 : bool = v44 = false │
00:02:08 verbose #11585 > │ if v47 then │
00:02:08 verbose #11586 > │ failwith<unit> v46 │
00:02:08 verbose #11587 > │ method0() │
00:02:08 verbose #11588 > │ │
00:02:08 verbose #11589 > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:02:08 verbose #11590 > │ │
00:02:08 verbose #11591 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:08 verbose #11592 >
00:02:08 verbose #11593 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:08 verbose #11594 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:08 verbose #11595 > │ ## main │
00:02:08 verbose #11596 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:08 verbose #11597 >
00:02:08 verbose #11598 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:08 verbose #11599 > inl main () =
00:02:08 verbose #11600 > $"let hash_text x = !hash_text x" : ()
00:02:08 verbose #11601 > 00:02:07 debug #127 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8c504e1ba817402c5f6afec88963331159a9277143945416e38e7c6500e605fb/main.spi
00:02:08 verbose #11602 >
00:02:08 verbose #11603 > ╭─[ 326.01ms - stdout ]────────────────────────────────────────────────────────╮
00:02:08 verbose #11604 > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:02:08 verbose #11605 > │ type Mut0 = {mutable l0 : int32} │
00:02:08 verbose #11606 > │ let rec method0 (v0 : int32, v1 : Mut0) : bool = │
00:02:08 verbose #11607 > │ let v2 : int32 = v1.l0 │
00:02:08 verbose #11608 > │ let v3 : bool = v2 < v0 │
00:02:08 verbose #11609 > │ v3 │
00:02:08 verbose #11610 > │ and method1 () : string = │
00:02:08 verbose #11611 > │ let v0 : string = "" │
00:02:08 verbose #11612 > │ v0 │
00:02:08 verbose #11613 > │ and closure0 () (v0 : string) : string = │
00:02:08 verbose #11614 > │ let v1 : string option = None │
00:02:08 verbose #11615 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:02:08 verbose #11616 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:08 verbose #11617 > │ let v3 : string = null |> unbox<string> │
00:02:08 verbose #11618 > │ v3 │
00:02:08 verbose #11619 > │ #endif │
00:02:08 verbose #11620 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:08 verbose #11621 > │ let v4 : string = null |> unbox<string> │
00:02:08 verbose #11622 > │ v4 │
00:02:08 verbose #11623 > │ #endif │
00:02:08 verbose #11624 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:08 verbose #11625 > │ let v5 : string = null |> unbox<string> │
00:02:08 verbose #11626 > │ v5 │
00:02:08 verbose #11627 > │ #endif │
00:02:08 verbose #11628 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:08 verbose #11629 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:08 verbose #11630 > │ let v6 : (unit -> System.Security.Cryptography.SHA256) = │
00:02:08 verbose #11631 > │ System.Security.Cryptography.SHA256.Create │
00:02:08 verbose #11632 > │ let v7 : System.Security.Cryptography.SHA256 = v6 () │
00:02:08 verbose #11633 > │ use v7 = v7 │
00:02:08 verbose #11634 > │ let v8 : System.Security.Cryptography.SHA256 = v7 │
00:02:08 verbose #11635 > │ let v9 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:02:08 verbose #11636 > │ let v10 : (uint8 []) = v9 v0 │
00:02:08 verbose #11637 > │ let v11 : ((uint8 []) -> (uint8 [])) = v8.ComputeHash │
00:02:08 verbose #11638 > │ let v12 : (uint8 []) = v11 v10 │
00:02:08 verbose #11639 > │ let v13 : int32 = v12.Length │
00:02:08 verbose #11640 > │ let v14 : (string []) = Array.zeroCreate<string> (v13) │
00:02:08 verbose #11641 > │ let v15 : Mut0 = {l0 = 0} : Mut0 │
00:02:08 verbose #11642 > │ while method0(v13, v15) do │
00:02:08 verbose #11643 > │ let v17 : int32 = v15.l0 │
00:02:08 verbose #11644 > │ let v18 : uint8 = v12.[int v17] │
00:02:08 verbose #11645 > │ let v19 : (string -> string) = v18.ToString │
00:02:08 verbose #11646 > │ let v20 : string = "x2" │
00:02:08 verbose #11647 > │ let v21 : string = v19 v20 │
00:02:08 verbose #11648 > │ v14.[int v17] <- v21 │
00:02:08 verbose #11649 > │ let v22 : int32 = v17 + 1 │
00:02:08 verbose #11650 > │ v15.l0 <- v22 │
00:02:08 verbose #11651 > │ () │
00:02:08 verbose #11652 > │ let v23 : string seq = seq { for i = 0 to v14.Length - 1 do yield v14.[ │
00:02:08 verbose #11653 > │ i] } │
00:02:08 verbose #11654 > │ let v24 : string = method1() │
00:02:08 verbose #11655 > │ let v25 : (string -> (string seq -> string)) = String.concat │
00:02:08 verbose #11656 > │ let v26 : (string seq -> string) = v25 v24 │
00:02:08 verbose #11657 > │ let v27 : string = v26 v23 │
00:02:08 verbose #11658 > │ v27 │
00:02:08 verbose #11659 > │ #endif │
00:02:08 verbose #11660 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:08 verbose #11661 > │ let v28 : string = "crypto" │
00:02:08 verbose #11662 > │ let v29 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v28 │
00:02:08 verbose #11663 > │ let v30 : string = "v29.createHash($0)" │
00:02:08 verbose #11664 > │ let v31 : string = "sha256" │
00:02:08 verbose #11665 > │ let v32 : obj = Fable.Core.JsInterop.emitJsExpr v31 v30 │
00:02:08 verbose #11666 > │ let v33 : string = "$0.update($1, 'utf8')" │
00:02:08 verbose #11667 > │ let v34 : obj = Fable.Core.JsInterop.emitJsExpr struct (v32, v0) v33 │
00:02:08 verbose #11668 > │ let v35 : string = "$0.digest($1)" │
00:02:08 verbose #11669 > │ let v36 : string = "hex" │
00:02:08 verbose #11670 > │ let v37 : string = Fable.Core.JsInterop.emitJsExpr struct (v34, v36) v35 │
00:02:08 verbose #11671 > │ v37 │
00:02:08 verbose #11672 > │ #endif │
00:02:08 verbose #11673 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:08 verbose #11674 > │ let v38 : string = Unchecked.defaultof<string> │
00:02:08 verbose #11675 > │ v38 │
00:02:08 verbose #11676 > │ #endif │
00:02:08 verbose #11677 > │ |> fun x -> _v1 <- Some x │
00:02:08 verbose #11678 > │ let v39 : string = _v1.Value │
00:02:08 verbose #11679 > │ v39 │
00:02:08 verbose #11680 > │ let v0 : (string -> string) = closure0() │
00:02:08 verbose #11681 > │ let hash_text x = v0 x │
00:02:08 verbose #11682 > │ () │
00:02:08 verbose #11683 > │ │
00:02:08 verbose #11684 > │ │
00:02:08 verbose #11685 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:10 verbose #11686 > [NbConvertApp] Converting notebook crypto.dib.ipynb to html
00:02:10 verbose #11687 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:10 verbose #11688 > validate(nb)
00:02:10 verbose #11689 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:10 verbose #11690 > return _pygments_highlight(
00:02:11 verbose #11691 > [NbConvertApp] Writing 299784 bytes to crypto.dib.html
00:02:11 debug #11692 execute_with_options_async / exit_code: 0 / output.Length: 31354
00:02:11 debug #8 main / executeCommand / exitCode: 0
00:02:11 debug #11693 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 common.dib -Retries 3"", None,
None)
00:02:12 verbose #11694 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: common.dib / _args: [
00:02:12 verbose #11695 > "-Retries",
00:02:12 verbose #11696 > 3
00:02:12 verbose #11697 > ]
00:02:14 verbose #11698 >
00:02:14 verbose #11699 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:14 verbose #11700 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:14 verbose #11701 > │ # common │
00:02:14 verbose #11702 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:14 verbose #11703 >
00:02:14 verbose #11704 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:14 verbose #11705 > // // test
00:02:14 verbose #11706 >
00:02:14 verbose #11707 > open testing
00:02:17 verbose #11708 > 00:02:16 debug #128 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:02:18 verbose #11709 >
00:02:18 verbose #11710 > ╭─[ 4.05s - stdout ]───────────────────────────────────────────────────────────╮
00:02:18 verbose #11711 > │ () │
00:02:18 verbose #11712 > │ │
00:02:18 verbose #11713 > │ │
00:02:18 verbose #11714 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #11715 >
00:02:18 verbose #11716 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:18 verbose #11717 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:18 verbose #11718 > │ ## types │
00:02:18 verbose #11719 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #11720 >
00:02:18 verbose #11721 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:18 verbose #11722 > inl types () =
00:02:18 verbose #11723 > global "#if FABLE_COMPILER // common.types"
00:02:18 verbose #11724 > rust.types ()
00:02:18 verbose #11725 > sm'.types ()
00:02:18 verbose #11726 > global "#endif // common.types"
00:02:18 verbose #11727 > 00:02:17 debug #129 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7ae9bfccbce8cbcc704c19272b4d3e380f817d4c29ffefadca5b7735f35f5b8f/main.spi
00:02:18 verbose #11728 >
00:02:18 verbose #11729 > ╭─[ 271.51ms - stdout ]────────────────────────────────────────────────────────╮
00:02:18 verbose #11730 > │ () │
00:02:18 verbose #11731 > │ │
00:02:18 verbose #11732 > │ │
00:02:18 verbose #11733 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #11734 >
00:02:18 verbose #11735 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:18 verbose #11736 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:18 verbose #11737 > │ ## prototype │
00:02:18 verbose #11738 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #11739 >
00:02:18 verbose #11740 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:18 verbose #11741 > prototype (~:>) r : forall t. t -> r
00:02:18 verbose #11742 > 00:02:18 debug #130 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/10ce1e4e7916d451a1aecf8f54a49c98952ad5c451793b027e28cc8967cd21c0/main.spi
00:02:18 verbose #11743 >
00:02:18 verbose #11744 > ╭─[ 260.10ms - stdout ]────────────────────────────────────────────────────────╮
00:02:18 verbose #11745 > │ () │
00:02:18 verbose #11746 > │ │
00:02:18 verbose #11747 > │ │
00:02:18 verbose #11748 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #11749 >
00:02:18 verbose #11750 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:18 verbose #11751 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:18 verbose #11752 > │ ## run_target │
00:02:18 verbose #11753 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #11754 >
00:02:18 verbose #11755 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:18 verbose #11756 > // // test
00:02:18 verbose #11757 >
00:02:18 verbose #11758 > run_target function
00:02:18 verbose #11759 > | Fsharp (Native) => fun () => $"1uy"
00:02:18 verbose #11760 > | _ => fun () => $"2uy"
00:02:18 verbose #11761 > |> _assert_eq 1u8
00:02:18 verbose #11762 > 00:02:18 debug #131 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/27ebb2f1bf3351e1128af193e6453fb6bcb269d9d5aefcfb4c74c71e9ee5b554/main.spi
00:02:19 verbose #11763 >
00:02:19 verbose #11764 > ╭─[ 1.04s - stdout ]───────────────────────────────────────────────────────────╮
00:02:19 verbose #11765 > │ let rec method1 (v0 : bool) : bool = │
00:02:19 verbose #11766 > │ v0 │
00:02:19 verbose #11767 > │ and method0 () : unit = │
00:02:19 verbose #11768 > │ let v0 : uint8 option = None │
00:02:19 verbose #11769 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:02:19 verbose #11770 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:19 verbose #11771 > │ let v2 : uint8 = 2uy │
00:02:19 verbose #11772 > │ v2 │
00:02:19 verbose #11773 > │ #endif │
00:02:19 verbose #11774 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:19 verbose #11775 > │ let v3 : uint8 = 2uy │
00:02:19 verbose #11776 > │ v3 │
00:02:19 verbose #11777 > │ #endif │
00:02:19 verbose #11778 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:19 verbose #11779 > │ let v4 : uint8 = 2uy │
00:02:19 verbose #11780 > │ v4 │
00:02:19 verbose #11781 > │ #endif │
00:02:19 verbose #11782 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:19 verbose #11783 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:19 verbose #11784 > │ let v5 : uint8 = 1uy │
00:02:19 verbose #11785 > │ v5 │
00:02:19 verbose #11786 > │ #endif │
00:02:19 verbose #11787 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:19 verbose #11788 > │ let v6 : uint8 = 2uy │
00:02:19 verbose #11789 > │ v6 │
00:02:19 verbose #11790 > │ #endif │
00:02:19 verbose #11791 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:19 verbose #11792 > │ let v7 : uint8 = Unchecked.defaultof<uint8> │
00:02:19 verbose #11793 > │ v7 │
00:02:19 verbose #11794 > │ #endif │
00:02:19 verbose #11795 > │ |> fun x -> _v0 <- Some x │
00:02:19 verbose #11796 > │ let v8 : uint8 = _v0.Value │
00:02:19 verbose #11797 > │ let v9 : string = $"%A{v8}" │
00:02:19 verbose #11798 > │ System.Console.WriteLine v9 │
00:02:19 verbose #11799 > │ let v10 : bool = v8 = 1uy │
00:02:19 verbose #11800 > │ let v12 : bool = │
00:02:19 verbose #11801 > │ if v10 then │
00:02:19 verbose #11802 > │ true │
00:02:19 verbose #11803 > │ else │
00:02:19 verbose #11804 > │ method1(v10) │
00:02:19 verbose #11805 > │ let v13 : string = $"__expect / actual: %A{v8} / expected: %A{1uy}" │
00:02:19 verbose #11806 > │ let v14 : bool = v12 = false │
00:02:19 verbose #11807 > │ if v14 then │
00:02:19 verbose #11808 > │ failwith<unit> v13 │
00:02:19 verbose #11809 > │ method0() │
00:02:19 verbose #11810 > │ │
00:02:19 verbose #11811 > │ 1uy │
00:02:19 verbose #11812 > │ │
00:02:19 verbose #11813 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:19 verbose #11814 >
00:02:19 verbose #11815 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:19 verbose #11816 > // // test
00:02:19 verbose #11817 > // // rust=
00:02:19 verbose #11818 >
00:02:19 verbose #11819 > run_target function
00:02:19 verbose #11820 > | Rust (Native) => fun () => $"1uy"
00:02:19 verbose #11821 > | _ => fun () => $"2uy"
00:02:19 verbose #11822 > |> _assert_eq 1u8
00:02:20 verbose #11823 > 00:02:19 debug #132 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b2210de7d360a6e53b9a0188288ffaa698488e6ca05b3c6593c58112876b9705/main.spi
00:02:25 verbose #11824 >
00:02:25 verbose #11825 > ╭─[ 5.75s - return value ]─────────────────────────────────────────────────────╮
00:02:25 verbose #11826 > │ .rs output: │
00:02:25 verbose #11827 > │ 1 │
00:02:25 verbose #11828 > │ │
00:02:25 verbose #11829 > │ │
00:02:25 verbose #11830 > │ │
00:02:25 verbose #11831 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #11832 >
00:02:25 verbose #11833 > ╭─[ 5.75s - stdout ]───────────────────────────────────────────────────────────╮
00:02:25 verbose #11834 > │ .fsx: │
00:02:25 verbose #11835 > │ let rec method1 (v0 : bool) : bool = │
00:02:25 verbose #11836 > │ v0 │
00:02:25 verbose #11837 > │ and method0 () : unit = │
00:02:25 verbose #11838 > │ let v0 : uint8 option = None │
00:02:25 verbose #11839 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:02:25 verbose #11840 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:25 verbose #11841 > │ let v2 : uint8 = 1uy │
00:02:25 verbose #11842 > │ v2 │
00:02:25 verbose #11843 > │ #endif │
00:02:25 verbose #11844 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:25 verbose #11845 > │ let v3 : uint8 = 2uy │
00:02:25 verbose #11846 > │ v3 │
00:02:25 verbose #11847 > │ #endif │
00:02:25 verbose #11848 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:25 verbose #11849 > │ let v4 : uint8 = 2uy │
00:02:25 verbose #11850 > │ v4 │
00:02:25 verbose #11851 > │ #endif │
00:02:25 verbose #11852 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:25 verbose #11853 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:25 verbose #11854 > │ let v5 : uint8 = 2uy │
00:02:25 verbose #11855 > │ v5 │
00:02:25 verbose #11856 > │ #endif │
00:02:25 verbose #11857 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:25 verbose #11858 > │ let v6 : uint8 = 2uy │
00:02:25 verbose #11859 > │ v6 │
00:02:25 verbose #11860 > │ #endif │
00:02:25 verbose #11861 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:25 verbose #11862 > │ let v7 : uint8 = Unchecked.defaultof<uint8> │
00:02:25 verbose #11863 > │ v7 │
00:02:25 verbose #11864 > │ #endif │
00:02:25 verbose #11865 > │ |> fun x -> _v0 <- Some x │
00:02:25 verbose #11866 > │ let v8 : uint8 = _v0.Value │
00:02:25 verbose #11867 > │ let v9 : string = $"%A{v8}" │
00:02:25 verbose #11868 > │ System.Console.WriteLine v9 │
00:02:25 verbose #11869 > │ let v10 : bool = v8 = 1uy │
00:02:25 verbose #11870 > │ let v12 : bool = │
00:02:25 verbose #11871 > │ if v10 then │
00:02:25 verbose #11872 > │ true │
00:02:25 verbose #11873 > │ else │
00:02:25 verbose #11874 > │ method1(v10) │
00:02:25 verbose #11875 > │ let v13 : string = $"__expect / actual: %A{v8} / expected: %A{1uy}" │
00:02:25 verbose #11876 > │ let v14 : bool = v12 = false │
00:02:25 verbose #11877 > │ if v14 then │
00:02:25 verbose #11878 > │ failwith<unit> v13 │
00:02:25 verbose #11879 > │ method0() │
00:02:25 verbose #11880 > │ │
00:02:25 verbose #11881 > │ │
00:02:25 verbose #11882 > │ .rs: │
00:02:25 verbose #11883 > │ #![allow(dead_code)] │
00:02:25 verbose #11884 > │ #![allow(non_camel_case_types)] │
00:02:25 verbose #11885 > │ #![allow(non_snake_case)] │
00:02:25 verbose #11886 > │ #![allow(non_upper_case_globals)] │
00:02:25 verbose #11887 > │ #![allow(unreachable_code)] │
00:02:25 verbose #11888 > │ #![allow(unused_attributes)] │
00:02:25 verbose #11889 > │ #![allow(unused_imports)] │
00:02:25 verbose #11890 > │ #![allow(unused_macros)] │
00:02:25 verbose #11891 > │ #![allow(unused_parens)] │
00:02:25 verbose #11892 > │ #![allow(unused_variables)] │
00:02:25 verbose #11893 > │ mod module_ccfa04bf { │
00:02:25 verbose #11894 > │ pub mod Spiral_eval { │
00:02:25 verbose #11895 > │ use super::*; │
00:02:25 verbose #11896 > │ use fable_library_rust::Native_::on_startup; │
00:02:25 verbose #11897 > │ use fable_library_rust::Native_::MutCell; │
00:02:25 verbose #11898 > │ use fable_library_rust::Option_::getValue; │
00:02:25 verbose #11899 > │ use fable_library_rust::String_::printfn; │
00:02:25 verbose #11900 > │ use fable_library_rust::String_::sprintf; │
00:02:25 verbose #11901 > │ use fable_library_rust::String_::string; │
00:02:25 verbose #11902 > │ pub fn method1(v0: bool) -> bool { │
00:02:25 verbose #11903 > │ v0 │
00:02:25 verbose #11904 > │ } │
00:02:25 verbose #11905 > │ pub fn method0() { │
00:02:25 verbose #11906 > │ let _v0: MutCell<Option<u8>> = MutCell::new(None::<u8>); │
00:02:25 verbose #11907 > │ _v0.set(Some(1_u8)); │
00:02:25 verbose #11908 > │ { │
00:02:25 verbose #11909 > │ let v8: u8 = getValue(_v0.get().clone()); │
00:02:25 verbose #11910 > │ let v9: string = sprintf!("{:?}", v8); │
00:02:25 verbose #11911 > │ printfn!("{0}", v9); │
00:02:25 verbose #11912 > │ { │
00:02:25 verbose #11913 > │ let v10: bool = v8 == 1_u8; │
00:02:25 verbose #11914 > │ if (if v10 { true } else { Spiral_eval::method1(v10) }) │
00:02:25 verbose #11915 > │ == false { │
00:02:25 verbose #11916 > │ panic!( │
00:02:25 verbose #11917 > │ "{}", │
00:02:25 verbose #11918 > │ sprintf!("__expect / actual: {:?} / expected: │
00:02:25 verbose #11919 > │ {:?}", v8, 1_u8), │
00:02:25 verbose #11920 > │ ); │
00:02:25 verbose #11921 > │ } │
00:02:25 verbose #11922 > │ } │
00:02:25 verbose #11923 > │ } │
00:02:25 verbose #11924 > │ } │
00:02:25 verbose #11925 > │ on_startup!(Spiral_eval::method0()); │
00:02:25 verbose #11926 > │ } │
00:02:25 verbose #11927 > │ } │
00:02:25 verbose #11928 > │ pub use module_ccfa04bf::*; │
00:02:25 verbose #11929 > │ │
00:02:25 verbose #11930 > │ │
00:02:25 verbose #11931 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #11932 >
00:02:25 verbose #11933 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #11934 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #11935 > │ ## upcast │
00:02:25 verbose #11936 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #11937 >
00:02:25 verbose #11938 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #11939 > inl upcast forall t u. (x : t) : u =
00:02:25 verbose #11940 > $'!x :> `u '
00:02:25 verbose #11941 > 00:02:25 debug #133 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8f4dcca7c5904f9f31844f7688c17eee1347ac2c9636d06a991a22c304d7edda/main.spi
00:02:25 verbose #11942 >
00:02:25 verbose #11943 > ╭─[ 240.71ms - stdout ]────────────────────────────────────────────────────────╮
00:02:25 verbose #11944 > │ () │
00:02:25 verbose #11945 > │ │
00:02:25 verbose #11946 > │ │
00:02:25 verbose #11947 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #11948 >
00:02:25 verbose #11949 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #11950 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #11951 > │ ## downcast │
00:02:25 verbose #11952 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #11953 >
00:02:25 verbose #11954 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #11955 > inl downcast forall t u. (x : t) : u =
00:02:25 verbose #11956 > $'!x :?> `u '
00:02:26 verbose #11957 > 00:02:25 debug #134 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f00a222ce32b1e1e49789ba501be58dca284c5ca9500854568954cf7d0a018bb/main.spi
00:02:26 verbose #11958 >
00:02:26 verbose #11959 > ╭─[ 268.92ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 verbose #11960 > │ () │
00:02:26 verbose #11961 > │ │
00:02:26 verbose #11962 > │ │
00:02:26 verbose #11963 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #11964 >
00:02:26 verbose #11965 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 verbose #11966 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 verbose #11967 > │ ## pair │
00:02:26 verbose #11968 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #11969 >
00:02:26 verbose #11970 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 verbose #11971 > // // test
00:02:26 verbose #11972 >
00:02:26 verbose #11973 > pair 1i32 2i32
00:02:26 verbose #11974 > |> _assert_eq (1, 2)
00:02:26 verbose #11975 > 00:02:25 debug #135 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/845b90a10df7fa403e9020ac7531decd59f280bf89cc0c5c713301326ed2531d/main.spi
00:02:26 verbose #11976 >
00:02:26 verbose #11977 > ╭─[ 339.94ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 verbose #11978 > │ let rec method0 () : unit = │
00:02:26 verbose #11979 > │ let v0 : string = $"%A{struct (1, 2)}" │
00:02:26 verbose #11980 > │ System.Console.WriteLine v0 │
00:02:26 verbose #11981 > │ let v1 : string = $"__expect / actual: %A{struct (1, 2)} / expected: │
00:02:26 verbose #11982 > │ %A{struct (1, 2)}" │
00:02:26 verbose #11983 > │ () │
00:02:26 verbose #11984 > │ method0() │
00:02:26 verbose #11985 > │ │
00:02:26 verbose #11986 > │ struct (1, 2) │
00:02:26 verbose #11987 > │ │
00:02:26 verbose #11988 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #11989 >
00:02:26 verbose #11990 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 verbose #11991 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 verbose #11992 > │ ## new_pair │
00:02:26 verbose #11993 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #11994 >
00:02:26 verbose #11995 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 verbose #11996 > inl new_pair forall a b. (a : a) (b : b) : pair a b =
00:02:26 verbose #11997 > $"!a, !b"
00:02:26 verbose #11998 > 00:02:26 debug #136 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/946ad76def7267d3ce75c27a155862f5690176f3d12d8661a09c55fbfbb96219/main.spi
00:02:26 verbose #11999 >
00:02:26 verbose #12000 > ╭─[ 236.69ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 verbose #12001 > │ () │
00:02:26 verbose #12002 > │ │
00:02:26 verbose #12003 > │ │
00:02:26 verbose #12004 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #12005 >
00:02:26 verbose #12006 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:26 verbose #12007 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:26 verbose #12008 > │ ## from_pair │
00:02:26 verbose #12009 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:26 verbose #12010 >
00:02:26 verbose #12011 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:26 verbose #12012 > inl from_pair forall a b. (pair : pair a b) : a * b =
00:02:26 verbose #12013 > $"let (a, b) = !pair"
00:02:26 verbose #12014 > $"a", $"b"
00:02:26 verbose #12015 > 00:02:26 debug #137 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f46625d38d4f56237ed698752c9b19ee3987f86a12961053dcf5a9f5df16664c/main.spi
00:02:27 verbose #12016 >
00:02:27 verbose #12017 > ╭─[ 215.29ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 verbose #12018 > │ () │
00:02:27 verbose #12019 > │ │
00:02:27 verbose #12020 > │ │
00:02:27 verbose #12021 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #12022 >
00:02:27 verbose #12023 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #12024 > // // test
00:02:27 verbose #12025 >
00:02:27 verbose #12026 > new_pair "a" 1i32
00:02:27 verbose #12027 > |> from_pair
00:02:27 verbose #12028 > |> _assert_eq ("a", 1i32)
00:02:27 verbose #12029 > 00:02:26 debug #138 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e383a2ddf9cb60cd5a9f2a4fd23735b9fe5a3832de3d431a46db3ad1f7ed87f8/main.spi
00:02:27 verbose #12030 >
00:02:27 verbose #12031 > ╭─[ 271.29ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 verbose #12032 > │ let rec method1 (v0 : bool) : bool = │
00:02:27 verbose #12033 > │ v0 │
00:02:27 verbose #12034 > │ and method0 () : unit = │
00:02:27 verbose #12035 > │ let v0 : string = "a" │
00:02:27 verbose #12036 > │ let v1 : (string * int32) = v0, 1 │
00:02:27 verbose #12037 > │ let (a, b) = v1 │
00:02:27 verbose #12038 > │ let v2 : string = a │
00:02:27 verbose #12039 > │ let v3 : int32 = b │
00:02:27 verbose #12040 > │ let v4 : string = $"%A{struct (v2, v3)}" │
00:02:27 verbose #12041 > │ System.Console.WriteLine v4 │
00:02:27 verbose #12042 > │ let v5 : bool = v2 = "a" │
00:02:27 verbose #12043 > │ let v7 : bool = │
00:02:27 verbose #12044 > │ if v5 then │
00:02:27 verbose #12045 > │ let v6 : bool = v3 = 1 │
00:02:27 verbose #12046 > │ v6 │
00:02:27 verbose #12047 > │ else │
00:02:27 verbose #12048 > │ false │
00:02:27 verbose #12049 > │ let v9 : bool = │
00:02:27 verbose #12050 > │ if v7 then │
00:02:27 verbose #12051 > │ true │
00:02:27 verbose #12052 > │ else │
00:02:27 verbose #12053 > │ method1(v7) │
00:02:27 verbose #12054 > │ let v10 : string = $"__expect / actual: %A{struct (v2, v3)} / expected: │
00:02:27 verbose #12055 > │ %A{struct (v0, 1)}" │
00:02:27 verbose #12056 > │ let v11 : bool = v9 = false │
00:02:27 verbose #12057 > │ if v11 then │
00:02:27 verbose #12058 > │ failwith<unit> v10 │
00:02:27 verbose #12059 > │ method0() │
00:02:27 verbose #12060 > │ │
00:02:27 verbose #12061 > │ struct ("a", 1) │
00:02:27 verbose #12062 > │ │
00:02:27 verbose #12063 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #12064 >
00:02:27 verbose #12065 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #12066 > // // test
00:02:27 verbose #12067 >
00:02:27 verbose #12068 > new_pair "a" (new_pair 1i32 "b")
00:02:27 verbose #12069 > |> from_pair
00:02:27 verbose #12070 > 00:02:26 debug #139 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e908d787128744f8dcb3cf09ada14b314af82c0e9114aecd9013e63de37d669c/main.spi
00:02:27 verbose #12071 >
00:02:27 verbose #12072 > ╭─[ 367.24ms - return value ]──────────────────────────────────────────────────╮
00:02:27 verbose #12073 > │ <details open="open" class="dni-treeview"><summary><span │
00:02:27 verbose #12074 > │ class="dni-code-hint"><code>(a, (1, │
00:02:27 verbose #12075 > │ b))</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │
00:02:27 verbose #12076 > │ d>Item1</td><td><div │
00:02:27 verbose #12077 > │ class="dni-plaintext"><pre>a</pre></div></td></tr><tr><td>Item2</td><td><det │
00:02:27 verbose #12078 > │ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>(1, │
00:02:27 verbose #12079 > │ b)</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
00:02:27 verbose #12080 > │ >Item1</td><td><div │
00:02:27 verbose #12081 > │ class="dni-plaintext"><pre>1</pre></div></td></tr><tr><td>Item2</td><td><div │
00:02:27 verbose #12082 > │ class="dni-plaintext"><pre>b</pre></div></td></tr></tbody></table></div></de │
00:02:27 verbose #12083 > │ tails></td></tr></tbody></table></div></details><style> │
00:02:27 verbose #12084 > │ .dni-code-hint { │
00:02:27 verbose #12085 > │ font-style: italic; │
00:02:27 verbose #12086 > │ overflow: hidden; │
00:02:27 verbose #12087 > │ white-space: nowrap; │
00:02:27 verbose #12088 > │ } │
00:02:27 verbose #12089 > │ .dni-treev... │
00:02:27 verbose #12090 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #12091 >
00:02:27 verbose #12092 > ╭─[ 377.08ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 verbose #12093 > │ let rec method0 () : struct (string * (int32 * string)) = │
00:02:27 verbose #12094 > │ let v0 : string = "b" │
00:02:27 verbose #12095 > │ let v1 : (int32 * string) = 1, v0 │
00:02:27 verbose #12096 > │ let v2 : string = "a" │
00:02:27 verbose #12097 > │ let v3 : (string * (int32 * string)) = v2, v1 │
00:02:27 verbose #12098 > │ let (a, b) = v3 │
00:02:27 verbose #12099 > │ let v4 : string = a │
00:02:27 verbose #12100 > │ let v5 : (int32 * string) = b │
00:02:27 verbose #12101 > │ struct (v4, v5) │
00:02:27 verbose #12102 > │ method0() │
00:02:27 verbose #12103 > │ │
00:02:27 verbose #12104 > │ │
00:02:27 verbose #12105 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #12106 >
00:02:27 verbose #12107 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #12108 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #12109 > │ ## memoize │
00:02:27 verbose #12110 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #12111 >
00:02:27 verbose #12112 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #12113 > nominal lazy t = $'Lazy<`t>'
00:02:27 verbose #12114 >
00:02:27 verbose #12115 > inl memoize forall t. (fn : () -> t) : () -> t =
00:02:27 verbose #12116 > inl fn = join fn
00:02:27 verbose #12117 > inl result : lazy t = $'lazy !fn ()'
00:02:27 verbose #12118 > fun () => $'!result.Value'
00:02:27 verbose #12119 > 00:02:27 debug #140 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/74cfcd1040495cae36d23399a7e040169029ffc5c01c55280f5634fb67707888/main.spi
00:02:27 verbose #12120 >
00:02:27 verbose #12121 > ╭─[ 238.97ms - stdout ]────────────────────────────────────────────────────────╮
00:02:27 verbose #12122 > │ () │
00:02:27 verbose #12123 > │ │
00:02:27 verbose #12124 > │ │
00:02:27 verbose #12125 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #12126 >
00:02:27 verbose #12127 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #12128 > // // test
00:02:27 verbose #12129 >
00:02:27 verbose #12130 > inl count = mut 0i32
00:02:27 verbose #12131 > inl add =
00:02:27 verbose #12132 > fun () => count <- *count + 1
00:02:27 verbose #12133 > |> memoize
00:02:27 verbose #12134 >
00:02:27 verbose #12135 > add ()
00:02:27 verbose #12136 > add ()
00:02:27 verbose #12137 > add ()
00:02:27 verbose #12138 >
00:02:27 verbose #12139 > *count
00:02:27 verbose #12140 > |> _assert_eq 1
00:02:28 verbose #12141 > 00:02:27 debug #141 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/110e7d6c3135e2871aa4a1e1742fdd2bed08d5b4758dee958e76dce12c310d5d/main.spi
00:02:28 verbose #12142 >
00:02:28 verbose #12143 > ╭─[ 634.47ms - stdout ]────────────────────────────────────────────────────────╮
00:02:28 verbose #12144 > │ type Mut0 = {mutable l0 : int32} │
00:02:28 verbose #12145 > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:28 verbose #12146 > │ let v1 : int32 = v0.l0 │
00:02:28 verbose #12147 > │ let v2 : int32 = v1 + 1 │
00:02:28 verbose #12148 > │ v0.l0 <- v2 │
00:02:28 verbose #12149 > │ () │
00:02:28 verbose #12150 > │ and method1 (v0 : Mut0) : (unit -> unit) = │
00:02:28 verbose #12151 > │ closure0(v0) │
00:02:28 verbose #12152 > │ and method2 (v0 : bool) : bool = │
00:02:28 verbose #12153 > │ v0 │
00:02:28 verbose #12154 > │ and method0 () : unit = │
00:02:28 verbose #12155 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:28 verbose #12156 > │ let v1 : (unit -> unit) = method1(v0) │
00:02:28 verbose #12157 > │ let v2 : Lazy<unit> = lazy v1 () │
00:02:28 verbose #12158 > │ v2.Value │
00:02:28 verbose #12159 > │ v2.Value │
00:02:28 verbose #12160 > │ v2.Value │
00:02:28 verbose #12161 > │ let v3 : int32 = v0.l0 │
00:02:28 verbose #12162 > │ let v4 : string = $"%A{v3}" │
00:02:28 verbose #12163 > │ System.Console.WriteLine v4 │
00:02:28 verbose #12164 > │ let v5 : bool = v3 = 1 │
00:02:28 verbose #12165 > │ let v7 : bool = │
00:02:28 verbose #12166 > │ if v5 then │
00:02:28 verbose #12167 > │ true │
00:02:28 verbose #12168 > │ else │
00:02:28 verbose #12169 > │ method2(v5) │
00:02:28 verbose #12170 > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{1}" │
00:02:28 verbose #12171 > │ let v9 : bool = v7 = false │
00:02:28 verbose #12172 > │ if v9 then │
00:02:28 verbose #12173 > │ failwith<unit> v8 │
00:02:28 verbose #12174 > │ method0() │
00:02:28 verbose #12175 > │ │
00:02:28 verbose #12176 > │ 1 │
00:02:28 verbose #12177 > │ │
00:02:28 verbose #12178 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 verbose #12179 >
00:02:28 verbose #12180 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:28 verbose #12181 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:28 verbose #12182 > │ ## to_any │
00:02:28 verbose #12183 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 verbose #12184 >
00:02:28 verbose #12185 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:28 verbose #12186 > inl to_any forall t. (obj : t) : any =
00:02:28 verbose #12187 > $"!obj"
00:02:28 verbose #12188 >
00:02:28 verbose #12189 > instance (~:>) any = to_any
00:02:28 verbose #12190 > 00:02:28 debug #142 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e581da2f168dbdcc85f1c79a6aed2f306a835d0f5b61d597237ba36240e05309/main.spi
00:02:28 verbose #12191 >
00:02:28 verbose #12192 > ╭─[ 229.21ms - stdout ]────────────────────────────────────────────────────────╮
00:02:28 verbose #12193 > │ () │
00:02:28 verbose #12194 > │ │
00:02:28 verbose #12195 > │ │
00:02:28 verbose #12196 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 verbose #12197 >
00:02:28 verbose #12198 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:28 verbose #12199 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:28 verbose #12200 > │ ## (+.) │
00:02:28 verbose #12201 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 verbose #12202 >
00:02:28 verbose #12203 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:28 verbose #12204 > inl (+.) forall t. (a : t) (b : t) : t =
00:02:28 verbose #12205 > $"!a + !b"
00:02:29 verbose #12206 > 00:02:28 debug #143 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/64314863bbde6b594554eca9c4300662a2e488327453458a4115f0a0bf0c84c1/main.spi
00:02:29 verbose #12207 >
00:02:29 verbose #12208 > ╭─[ 258.00ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 verbose #12209 > │ () │
00:02:29 verbose #12210 > │ │
00:02:29 verbose #12211 > │ │
00:02:29 verbose #12212 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12213 >
00:02:29 verbose #12214 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 verbose #12215 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 verbose #12216 > │ ## (-.) │
00:02:29 verbose #12217 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12218 >
00:02:29 verbose #12219 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 verbose #12220 > inl (-.) forall t. (a : t) (b : t) : t =
00:02:29 verbose #12221 > $"!a - !b"
00:02:29 verbose #12222 > 00:02:28 debug #144 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ca291f805763d53b71e4810154e2190aa901888258d10f0ebd37b36f77cc5a21/main.spi
00:02:29 verbose #12223 >
00:02:29 verbose #12224 > ╭─[ 229.81ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 verbose #12225 > │ () │
00:02:29 verbose #12226 > │ │
00:02:29 verbose #12227 > │ │
00:02:29 verbose #12228 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12229 >
00:02:29 verbose #12230 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 verbose #12231 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 verbose #12232 > │ ## (*.) │
00:02:29 verbose #12233 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12234 >
00:02:29 verbose #12235 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 verbose #12236 > inl (*.) forall t. (a : t) (b : t) : t =
00:02:29 verbose #12237 > $"!a * !b"
00:02:29 verbose #12238 > 00:02:28 debug #145 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9db4484a976cfa64a5d40df2cdddaebf945beb0aa4a43f87c8df3033a6a49784/main.spi
00:02:29 verbose #12239 >
00:02:29 verbose #12240 > ╭─[ 228.33ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 verbose #12241 > │ () │
00:02:29 verbose #12242 > │ │
00:02:29 verbose #12243 > │ │
00:02:29 verbose #12244 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12245 >
00:02:29 verbose #12246 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 verbose #12247 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 verbose #12248 > │ ## (/.) │
00:02:29 verbose #12249 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12250 >
00:02:29 verbose #12251 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 verbose #12252 > inl (/.) forall t. (a : t) (b : t) : t =
00:02:29 verbose #12253 > $"!a / !b"
00:02:29 verbose #12254 > 00:02:29 debug #146 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e2d9efe2108dce13327de646d7a15808859f8205eeef33659a9dafe487546043/main.spi
00:02:29 verbose #12255 >
00:02:29 verbose #12256 > ╭─[ 225.44ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 verbose #12257 > │ () │
00:02:29 verbose #12258 > │ │
00:02:29 verbose #12259 > │ │
00:02:29 verbose #12260 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12261 >
00:02:29 verbose #12262 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 verbose #12263 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 verbose #12264 > │ ## (=.) │
00:02:29 verbose #12265 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #12266 >
00:02:29 verbose #12267 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 verbose #12268 > inl (=.) forall t. (a : t) (b : t) : bool =
00:02:29 verbose #12269 > $"!a = !b"
00:02:29 verbose #12270 > 00:02:29 debug #147 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/98807be5f3746aa08f4571d3baff20a8460dcf130a6df58080969e98da0640ab/main.spi
00:02:30 verbose #12271 >
00:02:30 verbose #12272 > ╭─[ 218.99ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 verbose #12273 > │ () │
00:02:30 verbose #12274 > │ │
00:02:30 verbose #12275 > │ │
00:02:30 verbose #12276 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12277 >
00:02:30 verbose #12278 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:30 verbose #12279 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:30 verbose #12280 > │ ## (||>) │
00:02:30 verbose #12281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12282 >
00:02:30 verbose #12283 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 verbose #12284 > inl (||>) (arg1, arg2) fn =
00:02:30 verbose #12285 > arg2 |> fn arg1
00:02:30 verbose #12286 > 00:02:29 debug #148 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/318c27396652671d574698d5d61313f4959907a5c12a78df9e30e493419f2ed6/main.spi
00:02:30 verbose #12287 >
00:02:30 verbose #12288 > ╭─[ 198.06ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 verbose #12289 > │ () │
00:02:30 verbose #12290 > │ │
00:02:30 verbose #12291 > │ │
00:02:30 verbose #12292 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12293 >
00:02:30 verbose #12294 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 verbose #12295 > // // test
00:02:30 verbose #12296 >
00:02:30 verbose #12297 > (3i32, 2i32)
00:02:30 verbose #12298 > ||> fun a b => a - b
00:02:30 verbose #12299 > |> _assert_eq 1
00:02:30 verbose #12300 > 00:02:29 debug #149 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1402ee44ed3f6770d29baebfc34cd9b2f40b4afc2a4425fb3ed3c63f11aef4ef/main.spi
00:02:30 verbose #12301 >
00:02:30 verbose #12302 > ╭─[ 251.66ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 verbose #12303 > │ let rec method0 () : unit = │
00:02:30 verbose #12304 > │ let v0 : string = $"%A{1}" │
00:02:30 verbose #12305 > │ System.Console.WriteLine v0 │
00:02:30 verbose #12306 > │ let v1 : string = $"__expect / actual: %A{1} / expected: %A{1}" │
00:02:30 verbose #12307 > │ () │
00:02:30 verbose #12308 > │ method0() │
00:02:30 verbose #12309 > │ │
00:02:30 verbose #12310 > │ 1 │
00:02:30 verbose #12311 > │ │
00:02:30 verbose #12312 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12313 >
00:02:30 verbose #12314 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:30 verbose #12315 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:30 verbose #12316 > │ ## flip │
00:02:30 verbose #12317 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12318 >
00:02:30 verbose #12319 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 verbose #12320 > inl flip fn a b =
00:02:30 verbose #12321 > fn b a
00:02:30 verbose #12322 > 00:02:29 debug #150 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4ad9342692a8b014c8fa3466e1e95905d1f182fb60e181de6b7980f589a19770/main.spi
00:02:30 verbose #12323 >
00:02:30 verbose #12324 > ╭─[ 205.38ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 verbose #12325 > │ () │
00:02:30 verbose #12326 > │ │
00:02:30 verbose #12327 > │ │
00:02:30 verbose #12328 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12329 >
00:02:30 verbose #12330 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 verbose #12331 > // // test
00:02:30 verbose #12332 >
00:02:30 verbose #12333 > (1i32, 2i32)
00:02:30 verbose #12334 > ||> flip pair
00:02:30 verbose #12335 > |> _assert_eq (2, 1)
00:02:30 verbose #12336 > 00:02:30 debug #151 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/828494ac8d7892ccbdde97c4b1842406b025b5402781364ead040faa819ee653/main.spi
00:02:30 verbose #12337 >
00:02:30 verbose #12338 > ╭─[ 228.76ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 verbose #12339 > │ let rec method0 () : unit = │
00:02:30 verbose #12340 > │ let v0 : string = $"%A{struct (2, 1)}" │
00:02:30 verbose #12341 > │ System.Console.WriteLine v0 │
00:02:30 verbose #12342 > │ let v1 : string = $"__expect / actual: %A{struct (2, 1)} / expected: │
00:02:30 verbose #12343 > │ %A{struct (2, 1)}" │
00:02:30 verbose #12344 > │ () │
00:02:30 verbose #12345 > │ method0() │
00:02:30 verbose #12346 > │ │
00:02:30 verbose #12347 > │ struct (2, 1) │
00:02:30 verbose #12348 > │ │
00:02:30 verbose #12349 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12350 >
00:02:30 verbose #12351 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:30 verbose #12352 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:30 verbose #12353 > │ ## join_body │
00:02:30 verbose #12354 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 verbose #12355 >
00:02:30 verbose #12356 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 verbose #12357 > inl join_body body acc x =
00:02:30 verbose #12358 > if var_is x |> not
00:02:30 verbose #12359 > then body acc x
00:02:30 verbose #12360 > else
00:02:30 verbose #12361 > inl acc = dyn acc
00:02:30 verbose #12362 > join body acc x
00:02:31 verbose #12363 > 00:02:30 debug #152 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/965aa4371828335e54f4e2e0124956226aeeb5c7ad27dd7735a4091931e300ad/main.spi
00:02:31 verbose #12364 >
00:02:31 verbose #12365 > ╭─[ 222.57ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 verbose #12366 > │ () │
00:02:31 verbose #12367 > │ │
00:02:31 verbose #12368 > │ │
00:02:31 verbose #12369 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #12370 >
00:02:31 verbose #12371 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 verbose #12372 > // // test
00:02:31 verbose #12373 >
00:02:31 verbose #12374 > inl rec fold_list f s = function
00:02:31 verbose #12375 > | Cons (x, x') => fold_list f (f s x) x'
00:02:31 verbose #12376 > | Nil => s
00:02:31 verbose #12377 > 00:02:30 debug #153 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6010ce83386fe997ad470cf46e1263be4a119c13b5b8f717f0552fa55feac7f6/main.spi
00:02:31 verbose #12378 >
00:02:31 verbose #12379 > ╭─[ 274.43ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 verbose #12380 > │ () │
00:02:31 verbose #12381 > │ │
00:02:31 verbose #12382 > │ │
00:02:31 verbose #12383 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #12384 >
00:02:31 verbose #12385 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 verbose #12386 > // // test
00:02:31 verbose #12387 >
00:02:31 verbose #12388 > [[ 5i32; 4; join 3; 2; 1 ]]
00:02:31 verbose #12389 > |> fold_list (+) 0
00:02:31 verbose #12390 > |> _assert_eq 15
00:02:31 verbose #12391 > 00:02:30 debug #154 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d725863f0e1afbb8bf3ac7c85d732453b9619e38341384bb1c9d3dd297a98905/main.spi
00:02:31 verbose #12392 >
00:02:31 verbose #12393 > ╭─[ 219.09ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 verbose #12394 > │ let rec method1 () : int32 = │
00:02:31 verbose #12395 > │ 3 │
00:02:31 verbose #12396 > │ and method2 (v0 : bool) : bool = │
00:02:31 verbose #12397 > │ v0 │
00:02:31 verbose #12398 > │ and method0 () : unit = │
00:02:31 verbose #12399 > │ let v0 : int32 = method1() │
00:02:31 verbose #12400 > │ let v1 : int32 = 9 + v0 │
00:02:31 verbose #12401 > │ let v2 : int32 = v1 + 2 │
00:02:31 verbose #12402 > │ let v3 : int32 = v2 + 1 │
00:02:31 verbose #12403 > │ let v4 : string = $"%A{v3}" │
00:02:31 verbose #12404 > │ System.Console.WriteLine v4 │
00:02:31 verbose #12405 > │ let v5 : bool = v3 = 15 │
00:02:31 verbose #12406 > │ let v7 : bool = │
00:02:31 verbose #12407 > │ if v5 then │
00:02:31 verbose #12408 > │ true │
00:02:31 verbose #12409 > │ else │
00:02:31 verbose #12410 > │ method2(v5) │
00:02:31 verbose #12411 > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{15}" │
00:02:31 verbose #12412 > │ let v9 : bool = v7 = false │
00:02:31 verbose #12413 > │ if v9 then │
00:02:31 verbose #12414 > │ failwith<unit> v8 │
00:02:31 verbose #12415 > │ method0() │
00:02:31 verbose #12416 > │ │
00:02:31 verbose #12417 > │ 15 │
00:02:31 verbose #12418 > │ │
00:02:31 verbose #12419 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #12420 >
00:02:31 verbose #12421 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 verbose #12422 > // // test
00:02:31 verbose #12423 >
00:02:31 verbose #12424 > [[ 5i32; 4; join 3; 2; 1 ]]
00:02:31 verbose #12425 > |> fold_list (join_body (+)) 0
00:02:31 verbose #12426 > |> _assert_eq 15
00:02:31 verbose #12427 > 00:02:31 debug #155 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/68d7ea647302d35b04e2de47c852fedc9ba28dd6f2c8c5ba45bdea828734db92/main.spi
00:02:31 verbose #12428 >
00:02:31 verbose #12429 > ╭─[ 274.03ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 verbose #12430 > │ let rec method1 () : int32 = │
00:02:31 verbose #12431 > │ 3 │
00:02:31 verbose #12432 > │ and method2 (v0 : int32, v1 : int32) : int32 = │
00:02:31 verbose #12433 > │ let v2 : int32 = v1 + v0 │
00:02:31 verbose #12434 > │ v2 │
00:02:31 verbose #12435 > │ and method3 (v0 : bool) : bool = │
00:02:31 verbose #12436 > │ v0 │
00:02:31 verbose #12437 > │ and method0 () : unit = │
00:02:31 verbose #12438 > │ let v0 : int32 = method1() │
00:02:31 verbose #12439 > │ let v1 : int32 = 9 │
00:02:31 verbose #12440 > │ let v2 : int32 = method2(v0, v1) │
00:02:31 verbose #12441 > │ let v3 : int32 = v2 + 2 │
00:02:31 verbose #12442 > │ let v4 : int32 = v3 + 1 │
00:02:31 verbose #12443 > │ let v5 : string = $"%A{v4}" │
00:02:31 verbose #12444 > │ System.Console.WriteLine v5 │
00:02:31 verbose #12445 > │ let v6 : bool = v4 = 15 │
00:02:31 verbose #12446 > │ let v8 : bool = │
00:02:31 verbose #12447 > │ if v6 then │
00:02:31 verbose #12448 > │ true │
00:02:31 verbose #12449 > │ else │
00:02:31 verbose #12450 > │ method3(v6) │
00:02:31 verbose #12451 > │ let v9 : string = $"__expect / actual: %A{v4} / expected: %A{15}" │
00:02:31 verbose #12452 > │ let v10 : bool = v8 = false │
00:02:31 verbose #12453 > │ if v10 then │
00:02:31 verbose #12454 > │ failwith<unit> v9 │
00:02:31 verbose #12455 > │ method0() │
00:02:31 verbose #12456 > │ │
00:02:31 verbose #12457 > │ 15 │
00:02:31 verbose #12458 > │ │
00:02:31 verbose #12459 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #12460 >
00:02:31 verbose #12461 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:31 verbose #12462 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:31 verbose #12463 > │ ## join_body_unit │
00:02:31 verbose #12464 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #12465 >
00:02:31 verbose #12466 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 verbose #12467 > inl join_body_unit body d x =
00:02:31 verbose #12468 > if var_is d |> not
00:02:31 verbose #12469 > then body x
00:02:31 verbose #12470 > else
00:02:31 verbose #12471 > inl x = dyn x
00:02:31 verbose #12472 > join body x
00:02:32 verbose #12473 > 00:02:31 debug #156 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c3b8d8ab9b1ff60b243d8a96580f3d18849e668eddf7774453ec1a9a7155abdf/main.spi
00:02:32 verbose #12474 >
00:02:32 verbose #12475 > ╭─[ 218.36ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 verbose #12476 > │ () │
00:02:32 verbose #12477 > │ │
00:02:32 verbose #12478 > │ │
00:02:32 verbose #12479 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #12480 >
00:02:32 verbose #12481 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 verbose #12482 > // // test
00:02:32 verbose #12483 >
00:02:32 verbose #12484 > [[ 5i32; 4; join 3; 2; 1 ]]
00:02:32 verbose #12485 > |> fold_list (fun acc n => join_body_unit ((+) acc) n n) 0
00:02:32 verbose #12486 > |> _assert_eq 15
00:02:32 verbose #12487 > 00:02:31 debug #157 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f8fc3140d64dc56fae6d05314b986531ad16782d678ce304d3690acb0748e801/main.spi
00:02:32 verbose #12488 >
00:02:32 verbose #12489 > ╭─[ 265.22ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 verbose #12490 > │ let rec method1 () : int32 = │
00:02:32 verbose #12491 > │ 3 │
00:02:32 verbose #12492 > │ and method2 (v0 : int32) : int32 = │
00:02:32 verbose #12493 > │ let v1 : int32 = 9 + v0 │
00:02:32 verbose #12494 > │ v1 │
00:02:32 verbose #12495 > │ and method3 (v0 : bool) : bool = │
00:02:32 verbose #12496 > │ v0 │
00:02:32 verbose #12497 > │ and method0 () : unit = │
00:02:32 verbose #12498 > │ let v0 : int32 = method1() │
00:02:32 verbose #12499 > │ let v1 : int32 = method2(v0) │
00:02:32 verbose #12500 > │ let v2 : int32 = v1 + 2 │
00:02:32 verbose #12501 > │ let v3 : int32 = v2 + 1 │
00:02:32 verbose #12502 > │ let v4 : string = $"%A{v3}" │
00:02:32 verbose #12503 > │ System.Console.WriteLine v4 │
00:02:32 verbose #12504 > │ let v5 : bool = v3 = 15 │
00:02:32 verbose #12505 > │ let v7 : bool = │
00:02:32 verbose #12506 > │ if v5 then │
00:02:32 verbose #12507 > │ true │
00:02:32 verbose #12508 > │ else │
00:02:32 verbose #12509 > │ method3(v5) │
00:02:32 verbose #12510 > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{15}" │
00:02:32 verbose #12511 > │ let v9 : bool = v7 = false │
00:02:32 verbose #12512 > │ if v9 then │
00:02:32 verbose #12513 > │ failwith<unit> v8 │
00:02:32 verbose #12514 > │ method0() │
00:02:32 verbose #12515 > │ │
00:02:32 verbose #12516 > │ 15 │
00:02:32 verbose #12517 > │ │
00:02:32 verbose #12518 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #12519 >
00:02:32 verbose #12520 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:32 verbose #12521 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:32 verbose #12522 > │ ## nameof │
00:02:32 verbose #12523 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #12524 >
00:02:32 verbose #12525 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 verbose #12526 > inl nameof x : string =
00:02:32 verbose #12527 > $"nameof !x"
00:02:32 verbose #12528 > 00:02:31 debug #158 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ed8ac1054078b22a9c56e08b2e9831d95a26a2a870b70e16e9569a90aedcbf6b/main.spi
00:02:32 verbose #12529 >
00:02:32 verbose #12530 > ╭─[ 321.30ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 verbose #12531 > │ () │
00:02:32 verbose #12532 > │ │
00:02:32 verbose #12533 > │ │
00:02:32 verbose #12534 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #12535 >
00:02:32 verbose #12536 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:32 verbose #12537 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:32 verbose #12538 > │ ## get_environment_variable │
00:02:32 verbose #12539 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #12540 >
00:02:32 verbose #12541 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 verbose #12542 > inl get_environment_variable (var : string) : string =
00:02:32 verbose #12543 > $"System.Environment.GetEnvironmentVariable !var"
00:02:32 verbose #12544 > 00:02:32 debug #159 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e52bfd2e78ef07c40faf3f20d27f67fae5925bdc3ef202e3ba3f837ebb58dd98/main.spi
00:02:32 verbose #12545 >
00:02:32 verbose #12546 > ╭─[ 205.20ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 verbose #12547 > │ () │
00:02:32 verbose #12548 > │ │
00:02:32 verbose #12549 > │ │
00:02:32 verbose #12550 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #12551 >
00:02:32 verbose #12552 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 verbose #12553 > // // test
00:02:32 verbose #12554 >
00:02:32 verbose #12555 > fun () => failwith "test"
00:02:32 verbose #12556 > |> _throws
00:02:32 verbose #12557 > |> optionm.map sm'.format_exception
00:02:32 verbose #12558 > |> _assert_eq (Some "System.Exception: test")
00:02:33 verbose #12559 > 00:02:32 debug #160 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2a17d1b8ab0b983fc466e3f280d8404a3530afd30e630ce9fc756e41a6f743c/main.spi
00:02:33 verbose #12560 >
00:02:33 verbose #12561 > ╭─[ 476.39ms - stdout ]────────────────────────────────────────────────────────╮
00:02:33 verbose #12562 > │ type [<Struct>] US0 = │
00:02:33 verbose #12563 > │ | US0_0 of f0_0 : exn │
00:02:33 verbose #12564 > │ | US0_1 │
00:02:33 verbose #12565 > │ and [<Struct>] US1 = │
00:02:33 verbose #12566 > │ | US1_0 of f0_0 : string │
00:02:33 verbose #12567 > │ | US1_1 │
00:02:33 verbose #12568 > │ let rec closure0 () () : unit = │
00:02:33 verbose #12569 > │ failwith<unit> "test" │
00:02:33 verbose #12570 > │ and closure1 () (v0 : exn) : US0 = │
00:02:33 verbose #12571 > │ US0_0(v0) │
00:02:33 verbose #12572 > │ and method1 (v0 : bool) : bool = │
00:02:33 verbose #12573 > │ v0 │
00:02:33 verbose #12574 > │ and method0 () : unit = │
00:02:33 verbose #12575 > │ let v0 : (unit -> unit) = closure0() │
00:02:33 verbose #12576 > │ let v1 : US0 = US0_1 │
00:02:33 verbose #12577 > │ let v2 : (exn -> US0) = closure1() │
00:02:33 verbose #12578 > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:02:33 verbose #12579 > │ let v17 : US1 = │
00:02:33 verbose #12580 > │ match v3 with │
00:02:33 verbose #12581 > │ | US0_1 -> (* None *) │
00:02:33 verbose #12582 > │ US1_1 │
00:02:33 verbose #12583 > │ | US0_0(v4) -> (* Some *) │
00:02:33 verbose #12584 > │ let v5 : string option = None │
00:02:33 verbose #12585 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:02:33 verbose #12586 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:33 verbose #12587 > │ let v7 : string = $"%A{v4}" │
00:02:33 verbose #12588 > │ v7 │
00:02:33 verbose #12589 > │ #endif │
00:02:33 verbose #12590 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:33 verbose #12591 > │ let v8 : string = $"%A{v4}" │
00:02:33 verbose #12592 > │ v8 │
00:02:33 verbose #12593 > │ #endif │
00:02:33 verbose #12594 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:33 verbose #12595 > │ let v9 : string = $"%A{v4}" │
00:02:33 verbose #12596 > │ v9 │
00:02:33 verbose #12597 > │ #endif │
00:02:33 verbose #12598 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:33 verbose #12599 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:33 verbose #12600 > │ let v10 : string = $"{v4.GetType ()}: {v4.Message}" │
00:02:33 verbose #12601 > │ v10 │
00:02:33 verbose #12602 > │ #endif │
00:02:33 verbose #12603 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:33 verbose #12604 > │ let v11 : string = $"%A{v4}" │
00:02:33 verbose #12605 > │ v11 │
00:02:33 verbose #12606 > │ #endif │
00:02:33 verbose #12607 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:02:33 verbose #12608 > │ FABLE_COMPILER_DART │
00:02:33 verbose #12609 > │ let v12 : string = Unchecked.defaultof<string> │
00:02:33 verbose #12610 > │ v12 │
00:02:33 verbose #12611 > │ #endif │
00:02:33 verbose #12612 > │ |> fun x -> _v5 <- Some x │
00:02:33 verbose #12613 > │ let v13 : string = _v5.Value │
00:02:33 verbose #12614 > │ US1_0(v13) │
00:02:33 verbose #12615 > │ let v18 : string = $"%A{v17}" │
00:02:33 verbose #12616 > │ System.Console.WriteLine v18 │
00:02:33 verbose #12617 > │ let v23 : bool = │
00:02:33 verbose #12618 > │ match v17 with │
00:02:33 verbose #12619 > │ | US1_0(v21) -> (* Some *) │
00:02:33 verbose #12620 > │ let v22 : bool = v21 = "System.Exception: test" │
00:02:33 verbose #12621 > │ v22 │
00:02:33 verbose #12622 > │ | _ -> │
00:02:33 verbose #12623 > │ false │
00:02:33 verbose #12624 > │ let v25 : bool = │
00:02:33 verbose #12625 > │ if v23 then │
00:02:33 verbose #12626 > │ true │
00:02:33 verbose #12627 > │ else │
00:02:33 verbose #12628 > │ method1(v23) │
00:02:33 verbose #12629 > │ let v26 : string = "System.Exception: test" │
00:02:33 verbose #12630 > │ let v27 : US1 = US1_0(v26) │
00:02:33 verbose #12631 > │ let v28 : string = $"__expect / actual: %A{v17} / expected: %A{v27}" │
00:02:33 verbose #12632 > │ let v29 : bool = v25 = false │
00:02:33 verbose #12633 > │ if v29 then │
00:02:33 verbose #12634 > │ failwith<unit> v28 │
00:02:33 verbose #12635 > │ method0() │
00:02:33 verbose #12636 > │ │
00:02:33 verbose #12637 > │ US1_0 "System.Exception: test" │
00:02:33 verbose #12638 > │ │
00:02:33 verbose #12639 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #12640 >
00:02:33 verbose #12641 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:33 verbose #12642 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:33 verbose #12643 > │ ## disposable │
00:02:33 verbose #12644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #12645 >
00:02:33 verbose #12646 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 verbose #12647 > nominal disposable t = $"System.IDisposable"
00:02:33 verbose #12648 > 00:02:33 debug #161 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/39051b18b25761bbc5ce380ac4a923b3e56091f9f189ef99e5d2138e4150274e/main.spi
00:02:33 verbose #12649 >
00:02:33 verbose #12650 > ╭─[ 278.82ms - stdout ]────────────────────────────────────────────────────────╮
00:02:33 verbose #12651 > │ () │
00:02:33 verbose #12652 > │ │
00:02:33 verbose #12653 > │ │
00:02:33 verbose #12654 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #12655 >
00:02:33 verbose #12656 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:33 verbose #12657 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:33 verbose #12658 > │ ## dispose │
00:02:33 verbose #12659 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #12660 >
00:02:33 verbose #12661 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 verbose #12662 > inl dispose (disposable : disposable _) : () =
00:02:33 verbose #12663 > disposable |> $'_.Dispose()'
00:02:33 verbose #12664 > 00:02:33 debug #162 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/523c9f74f3691c726d265d64f62778ef4a481c63e9459dd601a34786101be3ba/main.spi
00:02:34 verbose #12665 >
00:02:34 verbose #12666 > ╭─[ 250.92ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 verbose #12667 > │ () │
00:02:34 verbose #12668 > │ │
00:02:34 verbose #12669 > │ │
00:02:34 verbose #12670 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #12671 >
00:02:34 verbose #12672 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 verbose #12673 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 verbose #12674 > │ ## new_disposable │
00:02:34 verbose #12675 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #12676 >
00:02:34 verbose #12677 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #12678 > inl new_disposable (fn : () -> ()) : disposable _ =
00:02:34 verbose #12679 > run_target function
00:02:34 verbose #12680 > | Fsharp _ => fun () => $'{ new System.IDisposable with member _.Dispose
00:02:34 verbose #12681 > () = !fn () }'
00:02:34 verbose #12682 > // | Rust _ =>
00:02:34 verbose #12683 > // fun () =>
00:02:34 verbose #12684 > // $'{ new System.IDisposable with member _.Dispose () =
00:02:34 verbose #12685 > Fable.Core.RustInterop.emitRustExpr () "!fn()" }'
00:02:34 verbose #12686 > | _ => fun () => null ()
00:02:34 verbose #12687 > 00:02:33 debug #163 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/14a8e03b6a32e0cca1c5c00916ab8f3e64d81c7b9d85182f8ee3dff2a7847d89/main.spi
00:02:34 verbose #12688 >
00:02:34 verbose #12689 > ╭─[ 219.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 verbose #12690 > │ () │
00:02:34 verbose #12691 > │ │
00:02:34 verbose #12692 > │ │
00:02:34 verbose #12693 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #12694 >
00:02:34 verbose #12695 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #12696 > // // test
00:02:34 verbose #12697 >
00:02:34 verbose #12698 > inl new_disposable_test = mut 0i32
00:02:34 verbose #12699 > new_disposable (fun () => new_disposable_test <- *new_disposable_test + 1)
00:02:34 verbose #12700 > |> fun x => x : disposable ()
00:02:34 verbose #12701 > |> dispose
00:02:34 verbose #12702 > *new_disposable_test |> _assert_eq 1
00:02:34 verbose #12703 > 00:02:33 debug #164 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/312b74144c653a3be24b0e5756e7921561ceddd191bef316476489f4bb47867b/main.spi
00:02:34 verbose #12704 >
00:02:34 verbose #12705 > ╭─[ 332.61ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 verbose #12706 > │ type Mut0 = {mutable l0 : int32} │
00:02:34 verbose #12707 > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:34 verbose #12708 > │ let v1 : int32 = v0.l0 │
00:02:34 verbose #12709 > │ let v2 : int32 = v1 + 1 │
00:02:34 verbose #12710 > │ v0.l0 <- v2 │
00:02:34 verbose #12711 > │ () │
00:02:34 verbose #12712 > │ and method1 (v0 : bool) : bool = │
00:02:34 verbose #12713 > │ v0 │
00:02:34 verbose #12714 > │ and method0 () : unit = │
00:02:34 verbose #12715 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:34 verbose #12716 > │ let v1 : System.IDisposable option = None │
00:02:34 verbose #12717 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:02:34 verbose #12718 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:34 verbose #12719 > │ let v3 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12720 > │ v3 │
00:02:34 verbose #12721 > │ #endif │
00:02:34 verbose #12722 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:34 verbose #12723 > │ let v4 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12724 > │ v4 │
00:02:34 verbose #12725 > │ #endif │
00:02:34 verbose #12726 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:34 verbose #12727 > │ let v5 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12728 > │ v5 │
00:02:34 verbose #12729 > │ #endif │
00:02:34 verbose #12730 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:34 verbose #12731 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:34 verbose #12732 > │ let v6 : (unit -> unit) = closure0(v0) │
00:02:34 verbose #12733 > │ let v7 : System.IDisposable = { new System.IDisposable with member │
00:02:34 verbose #12734 > │ _.Dispose () = v6 () } │
00:02:34 verbose #12735 > │ v7 │
00:02:34 verbose #12736 > │ #endif │
00:02:34 verbose #12737 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:34 verbose #12738 > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12739 > │ v8 │
00:02:34 verbose #12740 > │ #endif │
00:02:34 verbose #12741 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:34 verbose #12742 > │ let v9 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:34 verbose #12743 > │ v9 │
00:02:34 verbose #12744 > │ #endif │
00:02:34 verbose #12745 > │ |> fun x -> _v1 <- Some x │
00:02:34 verbose #12746 > │ let v10 : System.IDisposable = _v1.Value │
00:02:34 verbose #12747 > │ let v11 : (System.IDisposable -> unit) = _.Dispose() │
00:02:34 verbose #12748 > │ v11 v10 │
00:02:34 verbose #12749 > │ let v12 : int32 = v0.l0 │
00:02:34 verbose #12750 > │ let v13 : string = $"%A{v12}" │
00:02:34 verbose #12751 > │ System.Console.WriteLine v13 │
00:02:34 verbose #12752 > │ let v14 : bool = v12 = 1 │
00:02:34 verbose #12753 > │ let v16 : bool = │
00:02:34 verbose #12754 > │ if v14 then │
00:02:34 verbose #12755 > │ true │
00:02:34 verbose #12756 > │ else │
00:02:34 verbose #12757 > │ method1(v14) │
00:02:34 verbose #12758 > │ let v17 : string = $"__expect / actual: %A{v12} / expected: %A{1}" │
00:02:34 verbose #12759 > │ let v18 : bool = v16 = false │
00:02:34 verbose #12760 > │ if v18 then │
00:02:34 verbose #12761 > │ failwith<unit> v17 │
00:02:34 verbose #12762 > │ method0() │
00:02:34 verbose #12763 > │ │
00:02:34 verbose #12764 > │ 1 │
00:02:34 verbose #12765 > │ │
00:02:34 verbose #12766 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #12767 >
00:02:34 verbose #12768 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #12769 > // // test
00:02:34 verbose #12770 >
00:02:34 verbose #12771 > inl new_disposable_test = mut 0i32
00:02:34 verbose #12772 > fun () =>
00:02:34 verbose #12773 > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:34 verbose #12774 > |> fun x => x : disposable ()
00:02:34 verbose #12775 > |> use
00:02:34 verbose #12776 > |> ignore
00:02:34 verbose #12777 > |> return
00:02:34 verbose #12778 > |> async.new_task
00:02:34 verbose #12779 > |> async.await_task
00:02:34 verbose #12780 > |> async.run_synchronously
00:02:34 verbose #12781 > *new_disposable_test |> _assert_eq 1
00:02:34 verbose #12782 > 00:02:34 debug #165 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2686d73fc9e255b0a6df915b31795a4f54e049920c537ba39312a03244c2279f/main.spi
00:02:34 verbose #12783 >
00:02:34 verbose #12784 > ╭─[ 377.34ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 verbose #12785 > │ type Mut0 = {mutable l0 : int32} │
00:02:34 verbose #12786 > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:34 verbose #12787 > │ let v1 : int32 = v0.l0 │
00:02:34 verbose #12788 > │ let v2 : int32 = v1 + 1 │
00:02:34 verbose #12789 > │ v0.l0 <- v2 │
00:02:34 verbose #12790 > │ () │
00:02:34 verbose #12791 > │ and method1 (v0 : bool) : bool = │
00:02:34 verbose #12792 > │ v0 │
00:02:34 verbose #12793 > │ and method0 () : unit = │
00:02:34 verbose #12794 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:34 verbose #12795 > │ let v1 : System.Threading.Tasks.Task option = None │
00:02:34 verbose #12796 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:02:34 verbose #12797 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:34 verbose #12798 > │ let v3 : System.Threading.Tasks.Task = null |> │
00:02:34 verbose #12799 > │ unbox<System.Threading.Tasks.Task> │
00:02:34 verbose #12800 > │ v3 │
00:02:34 verbose #12801 > │ #endif │
00:02:34 verbose #12802 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:34 verbose #12803 > │ let v4 : System.Threading.Tasks.Task = null |> │
00:02:34 verbose #12804 > │ unbox<System.Threading.Tasks.Task> │
00:02:34 verbose #12805 > │ v4 │
00:02:34 verbose #12806 > │ #endif │
00:02:34 verbose #12807 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:34 verbose #12808 > │ let v5 : System.Threading.Tasks.Task = null |> │
00:02:34 verbose #12809 > │ unbox<System.Threading.Tasks.Task> │
00:02:34 verbose #12810 > │ v5 │
00:02:34 verbose #12811 > │ #endif │
00:02:34 verbose #12812 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:34 verbose #12813 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:34 verbose #12814 > │ let v6 : System.Threading.Tasks.Task option = None │
00:02:34 verbose #12815 > │ let mutable _v6 = v6 │
00:02:34 verbose #12816 > │ task { │
00:02:34 verbose #12817 > │ let v7 : System.IDisposable option = None │
00:02:34 verbose #12818 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:02:34 verbose #12819 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:34 verbose #12820 > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12821 > │ v9 │
00:02:34 verbose #12822 > │ #endif │
00:02:34 verbose #12823 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:34 verbose #12824 > │ let v10 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12825 > │ v10 │
00:02:34 verbose #12826 > │ #endif │
00:02:34 verbose #12827 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:34 verbose #12828 > │ let v11 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12829 > │ v11 │
00:02:34 verbose #12830 > │ #endif │
00:02:34 verbose #12831 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:34 verbose #12832 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:34 verbose #12833 > │ let v12 : (unit -> unit) = closure0(v0) │
00:02:34 verbose #12834 > │ let v13 : System.IDisposable = { new System.IDisposable with member │
00:02:34 verbose #12835 > │ _.Dispose () = v12 () } │
00:02:34 verbose #12836 > │ v13 │
00:02:34 verbose #12837 > │ #endif │
00:02:34 verbose #12838 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:34 verbose #12839 > │ let v14 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:34 verbose #12840 > │ v14 │
00:02:34 verbose #12841 > │ #endif │
00:02:34 verbose #12842 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:34 verbose #12843 > │ let v15 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:34 verbose #12844 > │ v15 │
00:02:34 verbose #12845 > │ #endif │
00:02:34 verbose #12846 > │ |> fun x -> _v7 <- Some x │
00:02:34 verbose #12847 > │ let v16 : System.IDisposable = _v7.Value │
00:02:34 verbose #12848 > │ use v16 = v16 │
00:02:34 verbose #12849 > │ let v17 : System.IDisposable = v16 │
00:02:34 verbose #12850 > │ return () │
00:02:34 verbose #12851 > │ } │
00:02:34 verbose #12852 > │ |> fun x -> _v6 <- Some x │
00:02:34 verbose #12853 > │ let v18 : System.Threading.Tasks.Task = _v6 |> Option.get │
00:02:34 verbose #12854 > │ v18 │
00:02:34 verbose #12855 > │ #endif │
00:02:34 verbose #12856 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:34 verbose #12857 > │ let v19 : System.Threading.Tasks.Task = null |> │
00:02:34 verbose #12858 > │ unbox<System.Threading.Tasks.Task> │
00:02:34 verbose #12859 > │ v19 │
00:02:34 verbose #12860 > │ #endif │
00:02:34 verbose #12861 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:34 verbose #12862 > │ let v20 : System.Threading.Tasks.Task = │
00:02:34 verbose #12863 > │ Unchecked.defaultof<System.Threading.Tasks.Task> │
00:02:34 verbose #12864 > │ v20 │
00:02:34 verbose #12865 > │ #endif │
00:02:34 verbose #12866 > │ |> fun x -> _v1 <- Some x │
00:02:34 verbose #12867 > │ let v21 : System.Threading.Tasks.Task = _v1.Value │
00:02:34 verbose #12868 > │ let v22 : Async<unit> option = None │
00:02:34 verbose #12869 > │ let v23 : bool = true in let mutable _v22 = v22 │
00:02:34 verbose #12870 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:34 verbose #12871 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:02:34 verbose #12872 > │ v24 │
00:02:34 verbose #12873 > │ #endif │
00:02:34 verbose #12874 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:34 verbose #12875 > │ let v25 : Async<unit> = null |> unbox<Async<unit>> │
00:02:34 verbose #12876 > │ v25 │
00:02:34 verbose #12877 > │ #endif │
00:02:34 verbose #12878 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:34 verbose #12879 > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:02:34 verbose #12880 > │ v26 │
00:02:34 verbose #12881 > │ #endif │
00:02:35 verbose #12882 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #12883 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #12884 > │ let v27 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:02:35 verbose #12885 > │ let v28 : Async<unit> = v27 v21 │
00:02:35 verbose #12886 > │ v28 │
00:02:35 verbose #12887 > │ #endif │
00:02:35 verbose #12888 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #12889 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #12890 > │ v29 │
00:02:35 verbose #12891 > │ #endif │
00:02:35 verbose #12892 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #12893 > │ let v30 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:35 verbose #12894 > │ v30 │
00:02:35 verbose #12895 > │ #endif │
00:02:35 verbose #12896 > │ |> fun x -> _v22 <- Some x │
00:02:35 verbose #12897 > │ let v31 : Async<unit> = _v22.Value │
00:02:35 verbose #12898 > │ let v32 : unit option = None │
00:02:35 verbose #12899 > │ let v33 : bool = true in let mutable _v32 = v32 │
00:02:35 verbose #12900 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #12901 > │ null |> unbox<unit> │
00:02:35 verbose #12902 > │ () │
00:02:35 verbose #12903 > │ #endif │
00:02:35 verbose #12904 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #12905 > │ null |> unbox<unit> │
00:02:35 verbose #12906 > │ () │
00:02:35 verbose #12907 > │ #endif │
00:02:35 verbose #12908 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #12909 > │ null |> unbox<unit> │
00:02:35 verbose #12910 > │ () │
00:02:35 verbose #12911 > │ #endif │
00:02:35 verbose #12912 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #12913 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #12914 > │ let v34 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:35 verbose #12915 > │ v34 v31 │
00:02:35 verbose #12916 > │ () │
00:02:35 verbose #12917 > │ #endif │
00:02:35 verbose #12918 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #12919 > │ null |> unbox<unit> │
00:02:35 verbose #12920 > │ () │
00:02:35 verbose #12921 > │ #endif │
00:02:35 verbose #12922 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #12923 > │ Unchecked.defaultof<unit> │
00:02:35 verbose #12924 > │ () │
00:02:35 verbose #12925 > │ #endif │
00:02:35 verbose #12926 > │ |> fun x -> _v32 <- Some x │
00:02:35 verbose #12927 > │ _v32.Value │
00:02:35 verbose #12928 > │ let v35 : int32 = v0.l0 │
00:02:35 verbose #12929 > │ let v36 : string = $"%A{v35}" │
00:02:35 verbose #12930 > │ System.Console.WriteLine v36 │
00:02:35 verbose #12931 > │ let v37 : bool = v35 = 1 │
00:02:35 verbose #12932 > │ let v39 : bool = │
00:02:35 verbose #12933 > │ if v37 then │
00:02:35 verbose #12934 > │ true │
00:02:35 verbose #12935 > │ else │
00:02:35 verbose #12936 > │ method1(v37) │
00:02:35 verbose #12937 > │ let v40 : string = $"__expect / actual: %A{v35} / expected: %A{1}" │
00:02:35 verbose #12938 > │ let v41 : bool = v39 = false │
00:02:35 verbose #12939 > │ if v41 then │
00:02:35 verbose #12940 > │ failwith<unit> v40 │
00:02:35 verbose #12941 > │ method0() │
00:02:35 verbose #12942 > │ │
00:02:35 verbose #12943 > │ 1 │
00:02:35 verbose #12944 > │ │
00:02:35 verbose #12945 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #12946 >
00:02:35 verbose #12947 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 verbose #12948 > // // test
00:02:35 verbose #12949 >
00:02:35 verbose #12950 > inl new_disposable_test = mut 0i32
00:02:35 verbose #12951 > fun () =>
00:02:35 verbose #12952 > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:35 verbose #12953 > |> fun x => x : disposable ()
00:02:35 verbose #12954 > |> use
00:02:35 verbose #12955 > |> ignore
00:02:35 verbose #12956 > |> return
00:02:35 verbose #12957 > |> async.new_async
00:02:35 verbose #12958 > |> async.run_synchronously
00:02:35 verbose #12959 > *new_disposable_test |> _assert_eq 1
00:02:35 verbose #12960 > 00:02:34 debug #166 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/75108397d835dfbc95f878b508114ce994c27cdcb56f6019be1527bf1be71d0e/main.spi
00:02:35 verbose #12961 >
00:02:35 verbose #12962 > ╭─[ 273.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 verbose #12963 > │ type Mut0 = {mutable l0 : int32} │
00:02:35 verbose #12964 > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:35 verbose #12965 > │ let v1 : int32 = v0.l0 │
00:02:35 verbose #12966 > │ let v2 : int32 = v1 + 1 │
00:02:35 verbose #12967 > │ v0.l0 <- v2 │
00:02:35 verbose #12968 > │ () │
00:02:35 verbose #12969 > │ and method1 (v0 : bool) : bool = │
00:02:35 verbose #12970 > │ v0 │
00:02:35 verbose #12971 > │ and method0 () : unit = │
00:02:35 verbose #12972 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:35 verbose #12973 > │ let v1 : Async<unit> option = None │
00:02:35 verbose #12974 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:02:35 verbose #12975 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #12976 > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #12977 > │ v3 │
00:02:35 verbose #12978 > │ #endif │
00:02:35 verbose #12979 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #12980 > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #12981 > │ v4 │
00:02:35 verbose #12982 > │ #endif │
00:02:35 verbose #12983 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #12984 > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #12985 > │ v5 │
00:02:35 verbose #12986 > │ #endif │
00:02:35 verbose #12987 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #12988 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #12989 > │ let v6 : Async<unit> option = None │
00:02:35 verbose #12990 > │ let mutable _v6 = v6 │
00:02:35 verbose #12991 > │ async { │
00:02:35 verbose #12992 > │ let v7 : System.IDisposable option = None │
00:02:35 verbose #12993 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:02:35 verbose #12994 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #12995 > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #12996 > │ v9 │
00:02:35 verbose #12997 > │ #endif │
00:02:35 verbose #12998 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #12999 > │ let v10 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13000 > │ v10 │
00:02:35 verbose #13001 > │ #endif │
00:02:35 verbose #13002 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #13003 > │ let v11 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13004 > │ v11 │
00:02:35 verbose #13005 > │ #endif │
00:02:35 verbose #13006 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #13007 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #13008 > │ let v12 : (unit -> unit) = closure0(v0) │
00:02:35 verbose #13009 > │ let v13 : System.IDisposable = { new System.IDisposable with member │
00:02:35 verbose #13010 > │ _.Dispose () = v12 () } │
00:02:35 verbose #13011 > │ v13 │
00:02:35 verbose #13012 > │ #endif │
00:02:35 verbose #13013 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #13014 > │ let v14 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13015 > │ v14 │
00:02:35 verbose #13016 > │ #endif │
00:02:35 verbose #13017 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #13018 > │ let v15 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:35 verbose #13019 > │ v15 │
00:02:35 verbose #13020 > │ #endif │
00:02:35 verbose #13021 > │ |> fun x -> _v7 <- Some x │
00:02:35 verbose #13022 > │ let v16 : System.IDisposable = _v7.Value │
00:02:35 verbose #13023 > │ use v16 = v16 │
00:02:35 verbose #13024 > │ let v17 : System.IDisposable = v16 │
00:02:35 verbose #13025 > │ return () │
00:02:35 verbose #13026 > │ } │
00:02:35 verbose #13027 > │ |> fun x -> _v6 <- Some x │
00:02:35 verbose #13028 > │ let v18 : Async<unit> = _v6 |> Option.get │
00:02:35 verbose #13029 > │ v18 │
00:02:35 verbose #13030 > │ #endif │
00:02:35 verbose #13031 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #13032 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #13033 > │ v19 │
00:02:35 verbose #13034 > │ #endif │
00:02:35 verbose #13035 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #13036 > │ let v20 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:35 verbose #13037 > │ v20 │
00:02:35 verbose #13038 > │ #endif │
00:02:35 verbose #13039 > │ |> fun x -> _v1 <- Some x │
00:02:35 verbose #13040 > │ let v21 : Async<unit> = _v1.Value │
00:02:35 verbose #13041 > │ let v22 : unit option = None │
00:02:35 verbose #13042 > │ let v23 : bool = true in let mutable _v22 = v22 │
00:02:35 verbose #13043 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #13044 > │ null |> unbox<unit> │
00:02:35 verbose #13045 > │ () │
00:02:35 verbose #13046 > │ #endif │
00:02:35 verbose #13047 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #13048 > │ null |> unbox<unit> │
00:02:35 verbose #13049 > │ () │
00:02:35 verbose #13050 > │ #endif │
00:02:35 verbose #13051 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #13052 > │ null |> unbox<unit> │
00:02:35 verbose #13053 > │ () │
00:02:35 verbose #13054 > │ #endif │
00:02:35 verbose #13055 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #13056 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #13057 > │ let v24 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:35 verbose #13058 > │ v24 v21 │
00:02:35 verbose #13059 > │ () │
00:02:35 verbose #13060 > │ #endif │
00:02:35 verbose #13061 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #13062 > │ null |> unbox<unit> │
00:02:35 verbose #13063 > │ () │
00:02:35 verbose #13064 > │ #endif │
00:02:35 verbose #13065 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #13066 > │ Unchecked.defaultof<unit> │
00:02:35 verbose #13067 > │ () │
00:02:35 verbose #13068 > │ #endif │
00:02:35 verbose #13069 > │ |> fun x -> _v22 <- Some x │
00:02:35 verbose #13070 > │ _v22.Value │
00:02:35 verbose #13071 > │ let v25 : int32 = v0.l0 │
00:02:35 verbose #13072 > │ let v26 : string = $"%A{v25}" │
00:02:35 verbose #13073 > │ System.Console.WriteLine v26 │
00:02:35 verbose #13074 > │ let v27 : bool = v25 = 1 │
00:02:35 verbose #13075 > │ let v29 : bool = │
00:02:35 verbose #13076 > │ if v27 then │
00:02:35 verbose #13077 > │ true │
00:02:35 verbose #13078 > │ else │
00:02:35 verbose #13079 > │ method1(v27) │
00:02:35 verbose #13080 > │ let v30 : string = $"__expect / actual: %A{v25} / expected: %A{1}" │
00:02:35 verbose #13081 > │ let v31 : bool = v29 = false │
00:02:35 verbose #13082 > │ if v31 then │
00:02:35 verbose #13083 > │ failwith<unit> v30 │
00:02:35 verbose #13084 > │ method0() │
00:02:35 verbose #13085 > │ │
00:02:35 verbose #13086 > │ 1 │
00:02:35 verbose #13087 > │ │
00:02:35 verbose #13088 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #13089 >
00:02:35 verbose #13090 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 verbose #13091 > // // test
00:02:35 verbose #13092 >
00:02:35 verbose #13093 > inl new_disposable_test = mut 0i32
00:02:35 verbose #13094 > fun () =>
00:02:35 verbose #13095 > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:35 verbose #13096 > |> fun x => x : disposable ()
00:02:35 verbose #13097 > |> ignore
00:02:35 verbose #13098 > |> return
00:02:35 verbose #13099 > |> async.new_async
00:02:35 verbose #13100 > |> async.run_synchronously
00:02:35 verbose #13101 > *new_disposable_test |> _assert_eq 0
00:02:35 verbose #13102 > 00:02:34 debug #167 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5090654e464de10d5c5e38ca8e6c3e9bcbf17bc9f149e40abd5ad7fb969c2f1c/main.spi
00:02:35 verbose #13103 >
00:02:35 verbose #13104 > ╭─[ 346.36ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 verbose #13105 > │ type Mut0 = {mutable l0 : int32} │
00:02:35 verbose #13106 > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:35 verbose #13107 > │ let v1 : int32 = v0.l0 │
00:02:35 verbose #13108 > │ let v2 : int32 = v1 + 1 │
00:02:35 verbose #13109 > │ v0.l0 <- v2 │
00:02:35 verbose #13110 > │ () │
00:02:35 verbose #13111 > │ and method1 (v0 : bool) : bool = │
00:02:35 verbose #13112 > │ v0 │
00:02:35 verbose #13113 > │ and method0 () : unit = │
00:02:35 verbose #13114 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:35 verbose #13115 > │ let v1 : Async<unit> option = None │
00:02:35 verbose #13116 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:02:35 verbose #13117 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #13118 > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #13119 > │ v3 │
00:02:35 verbose #13120 > │ #endif │
00:02:35 verbose #13121 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #13122 > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #13123 > │ v4 │
00:02:35 verbose #13124 > │ #endif │
00:02:35 verbose #13125 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #13126 > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #13127 > │ v5 │
00:02:35 verbose #13128 > │ #endif │
00:02:35 verbose #13129 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #13130 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #13131 > │ let v6 : Async<unit> option = None │
00:02:35 verbose #13132 > │ let mutable _v6 = v6 │
00:02:35 verbose #13133 > │ async { │
00:02:35 verbose #13134 > │ let v7 : System.IDisposable option = None │
00:02:35 verbose #13135 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:02:35 verbose #13136 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #13137 > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13138 > │ v9 │
00:02:35 verbose #13139 > │ #endif │
00:02:35 verbose #13140 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #13141 > │ let v10 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13142 > │ v10 │
00:02:35 verbose #13143 > │ #endif │
00:02:35 verbose #13144 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #13145 > │ let v11 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13146 > │ v11 │
00:02:35 verbose #13147 > │ #endif │
00:02:35 verbose #13148 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #13149 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #13150 > │ let v12 : (unit -> unit) = closure0(v0) │
00:02:35 verbose #13151 > │ let v13 : System.IDisposable = { new System.IDisposable with member │
00:02:35 verbose #13152 > │ _.Dispose () = v12 () } │
00:02:35 verbose #13153 > │ v13 │
00:02:35 verbose #13154 > │ #endif │
00:02:35 verbose #13155 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #13156 > │ let v14 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:35 verbose #13157 > │ v14 │
00:02:35 verbose #13158 > │ #endif │
00:02:35 verbose #13159 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #13160 > │ let v15 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:35 verbose #13161 > │ v15 │
00:02:35 verbose #13162 > │ #endif │
00:02:35 verbose #13163 > │ |> fun x -> _v7 <- Some x │
00:02:35 verbose #13164 > │ let v16 : System.IDisposable = _v7.Value │
00:02:35 verbose #13165 > │ return () │
00:02:35 verbose #13166 > │ } │
00:02:35 verbose #13167 > │ |> fun x -> _v6 <- Some x │
00:02:35 verbose #13168 > │ let v17 : Async<unit> = _v6 |> Option.get │
00:02:35 verbose #13169 > │ v17 │
00:02:35 verbose #13170 > │ #endif │
00:02:35 verbose #13171 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #13172 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:02:35 verbose #13173 > │ v18 │
00:02:35 verbose #13174 > │ #endif │
00:02:35 verbose #13175 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #13176 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:35 verbose #13177 > │ v19 │
00:02:35 verbose #13178 > │ #endif │
00:02:35 verbose #13179 > │ |> fun x -> _v1 <- Some x │
00:02:35 verbose #13180 > │ let v20 : Async<unit> = _v1.Value │
00:02:35 verbose #13181 > │ let v21 : unit option = None │
00:02:35 verbose #13182 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:02:35 verbose #13183 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:35 verbose #13184 > │ null |> unbox<unit> │
00:02:35 verbose #13185 > │ () │
00:02:35 verbose #13186 > │ #endif │
00:02:35 verbose #13187 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:35 verbose #13188 > │ null |> unbox<unit> │
00:02:35 verbose #13189 > │ () │
00:02:35 verbose #13190 > │ #endif │
00:02:35 verbose #13191 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:35 verbose #13192 > │ null |> unbox<unit> │
00:02:35 verbose #13193 > │ () │
00:02:35 verbose #13194 > │ #endif │
00:02:35 verbose #13195 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:35 verbose #13196 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:35 verbose #13197 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:35 verbose #13198 > │ v23 v20 │
00:02:35 verbose #13199 > │ () │
00:02:35 verbose #13200 > │ #endif │
00:02:35 verbose #13201 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:35 verbose #13202 > │ null |> unbox<unit> │
00:02:35 verbose #13203 > │ () │
00:02:35 verbose #13204 > │ #endif │
00:02:35 verbose #13205 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:35 verbose #13206 > │ Unchecked.defaultof<unit> │
00:02:35 verbose #13207 > │ () │
00:02:35 verbose #13208 > │ #endif │
00:02:35 verbose #13209 > │ |> fun x -> _v21 <- Some x │
00:02:35 verbose #13210 > │ _v21.Value │
00:02:35 verbose #13211 > │ let v24 : int32 = v0.l0 │
00:02:35 verbose #13212 > │ let v25 : string = $"%A{v24}" │
00:02:35 verbose #13213 > │ System.Console.WriteLine v25 │
00:02:35 verbose #13214 > │ let v26 : bool = v24 = 0 │
00:02:35 verbose #13215 > │ let v28 : bool = │
00:02:35 verbose #13216 > │ if v26 then │
00:02:35 verbose #13217 > │ true │
00:02:35 verbose #13218 > │ else │
00:02:35 verbose #13219 > │ method1(v26) │
00:02:35 verbose #13220 > │ let v29 : string = $"__expect / actual: %A{v24} / expected: %A{0}" │
00:02:35 verbose #13221 > │ let v30 : bool = v28 = false │
00:02:35 verbose #13222 > │ if v30 then │
00:02:35 verbose #13223 > │ failwith<unit> v29 │
00:02:35 verbose #13224 > │ method0() │
00:02:35 verbose #13225 > │ │
00:02:35 verbose #13226 > │ 0 │
00:02:35 verbose #13227 > │ │
00:02:35 verbose #13228 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #13229 >
00:02:35 verbose #13230 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 verbose #13231 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 verbose #13232 > │ ## return │
00:02:35 verbose #13233 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #13234 >
00:02:35 verbose #13235 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 verbose #13236 > inl return forall t. (x : t) : () =
00:02:35 verbose #13237 > $'return !x '
00:02:35 verbose #13238 >
00:02:35 verbose #13239 > inl return' forall t. (x : t) : t =
00:02:35 verbose #13240 > $'return !x '
00:02:35 verbose #13241 > 00:02:35 debug #168 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1951abb6f3abab4871f2239c96029f75c7d06502537d93dabb3383f006ac0d0d/main.spi
00:02:35 verbose #13242 >
00:02:35 verbose #13243 > ╭─[ 252.74ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 verbose #13244 > │ () │
00:02:35 verbose #13245 > │ │
00:02:35 verbose #13246 > │ │
00:02:35 verbose #13247 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #13248 >
00:02:35 verbose #13249 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 verbose #13250 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 verbose #13251 > │ ## sleep │
00:02:35 verbose #13252 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #13253 >
00:02:35 verbose #13254 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 verbose #13255 > inl sleep (n : i32) : () =
00:02:35 verbose #13256 > run_target function
00:02:35 verbose #13257 > | Fsharp (Native) => fun () => $'System.Threading.Thread.Sleep' n
00:02:35 verbose #13258 > | _ => fun () => ()
00:02:36 verbose #13259 > 00:02:35 debug #169 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3bd612b36aa5d6bd3fa5ea7242b32b4535947106a0968a57983aaaf765bf4ebc/main.spi
00:02:36 verbose #13260 >
00:02:36 verbose #13261 > ╭─[ 260.67ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 verbose #13262 > │ () │
00:02:36 verbose #13263 > │ │
00:02:36 verbose #13264 > │ │
00:02:36 verbose #13265 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #13266 >
00:02:36 verbose #13267 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #13268 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #13269 > │ ## retry_fn │
00:02:36 verbose #13270 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #13271 >
00:02:36 verbose #13272 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #13273 > inl retry_fn forall t. retries (fn : () -> t) : option t =
00:02:36 verbose #13274 > let rec loop retry =
00:02:36 verbose #13275 > try
00:02:36 verbose #13276 > fun () =>
00:02:36 verbose #13277 > if retry < retries
00:02:36 verbose #13278 > then fn () |> Some
00:02:36 verbose #13279 > else None
00:02:36 verbose #13280 > fun ex =>
00:02:36 verbose #13281 > trace Warning
00:02:36 verbose #13282 > fun () => "retry_fn"
00:02:36 verbose #13283 > fun () =>
00:02:36 verbose #13284 > $'$"retry: {!retry} / ex: %A{!ex} / {!_locals ()}"'
00:02:36 verbose #13285 > sleep 1
00:02:36 verbose #13286 > None
00:02:36 verbose #13287 > |> function
00:02:36 verbose #13288 > | Some x => x
00:02:36 verbose #13289 > | None => loop (retry + 1)
00:02:36 verbose #13290 > loop 0
00:02:36 verbose #13291 > 00:02:35 debug #170 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/276e5192ab2f63118e186809bdb7b9e51532df4f92d18ebe20dc4bc901565f35/main.spi
00:02:36 verbose #13292 >
00:02:36 verbose #13293 > ╭─[ 312.38ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 verbose #13294 > │ () │
00:02:36 verbose #13295 > │ │
00:02:36 verbose #13296 > │ │
00:02:36 verbose #13297 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #13298 >
00:02:36 verbose #13299 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #13300 > // // test
00:02:36 verbose #13301 >
00:02:36 verbose #13302 > inl retry_fn_test = mut 0i32
00:02:36 verbose #13303 > fun () =>
00:02:36 verbose #13304 > retry_fn_test <- *retry_fn_test + 1
00:02:36 verbose #13305 > *retry_fn_test
00:02:36 verbose #13306 > |> retry_fn 3i32
00:02:36 verbose #13307 > |> _assert_eq (Some 1i32)
00:02:36 verbose #13308 > 00:02:36 debug #171 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6045da83e81033afaeda286a2de153c1eb7032b796aae7b133ddc4851ab459ed/main.spi
00:02:37 verbose #13309 >
00:02:37 verbose #13310 > ╭─[ 545.91ms - stdout ]────────────────────────────────────────────────────────╮
00:02:37 verbose #13311 > │ module State = let mutable trace_state = None │
00:02:37 verbose #13312 > │ type Mut0 = {mutable l0 : int32} │
00:02:37 verbose #13313 > │ and [<Struct>] US0 = │
00:02:37 verbose #13314 > │ | US0_0 of f0_0 : int32 │
00:02:37 verbose #13315 > │ | US0_1 │
00:02:37 verbose #13316 > │ and [<Struct>] US1 = │
00:02:37 verbose #13317 > │ | US1_0 of f0_0 : US0 │
00:02:37 verbose #13318 > │ | US1_1 │
00:02:37 verbose #13319 > │ and [<Struct>] US2 = │
00:02:37 verbose #13320 > │ | US2_0 │
00:02:37 verbose #13321 > │ | US2_1 │
00:02:37 verbose #13322 > │ | US2_2 │
00:02:37 verbose #13323 > │ | US2_3 │
00:02:37 verbose #13324 > │ | US2_4 │
00:02:37 verbose #13325 > │ and Mut1 = {mutable l0 : int64} │
00:02:37 verbose #13326 > │ and Mut2 = {mutable l0 : bool} │
00:02:37 verbose #13327 > │ and Mut3 = {mutable l0 : US2} │
00:02:37 verbose #13328 > │ and Mut4 = {mutable l0 : (string -> unit)} │
00:02:37 verbose #13329 > │ and [<Struct>] US3 = │
00:02:37 verbose #13330 > │ | US3_0 of f0_0 : int64 │
00:02:37 verbose #13331 > │ | US3_1 │
00:02:37 verbose #13332 > │ and [<Struct>] US4 = │
00:02:37 verbose #13333 > │ | US4_0 of f0_0 : int64 │
00:02:37 verbose #13334 > │ | US4_1 │
00:02:37 verbose #13335 > │ let rec closure0 (v0 : Mut0, v1 : int32) () : US0 = │
00:02:37 verbose #13336 > │ let v2 : bool = v1 < 3 │
00:02:37 verbose #13337 > │ if v2 then │
00:02:37 verbose #13338 > │ let v3 : int32 = v0.l0 │
00:02:37 verbose #13339 > │ let v4 : int32 = v3 + 1 │
00:02:37 verbose #13340 > │ v0.l0 <- v4 │
00:02:37 verbose #13341 > │ let v5 : int32 = v0.l0 │
00:02:37 verbose #13342 > │ US0_0(v5) │
00:02:37 verbose #13343 > │ else │
00:02:37 verbose #13344 > │ US0_1 │
00:02:37 verbose #13345 > │ and closure1 () (v0 : US0) : US1 = │
00:02:37 verbose #13346 > │ US1_0(v0) │
00:02:37 verbose #13347 > │ and closure3 () () : string = │
00:02:37 verbose #13348 > │ let v0 : string = "retry_fn" │
00:02:37 verbose #13349 > │ v0 │
00:02:37 verbose #13350 > │ and closure5 () () : string = │
00:02:37 verbose #13351 > │ let v0 : string = "" │
00:02:37 verbose #13352 > │ v0 │
00:02:37 verbose #13353 > │ and closure4 (v0 : int32, v1 : exn) () : string = │
00:02:37 verbose #13354 > │ let v2 : (unit -> string) = closure5() │
00:02:37 verbose #13355 > │ let v3 : string = $"retry: {v0} / ex: %A{v1} / {v2 ()}" │
00:02:37 verbose #13356 > │ v3 │
00:02:37 verbose #13357 > │ and closure8 () (v0 : string) : unit = │
00:02:37 verbose #13358 > │ () │
00:02:37 verbose #13359 > │ and method3 (v0 : int64 option) : int64 option = │
00:02:37 verbose #13360 > │ v0 │
00:02:37 verbose #13361 > │ and method4 (v0 : int64 option) : int64 option = │
00:02:37 verbose #13362 > │ v0 │
00:02:37 verbose #13363 > │ and closure7 () () : struct (Mut1 * Mut2 * Mut3 * int64 option * Mut4) = │
00:02:37 verbose #13364 > │ let v0 : Mut2 = {l0 = true} : Mut2 │
00:02:37 verbose #13365 > │ let v1 : Mut1 = {l0 = 0L} : Mut1 │
00:02:37 verbose #13366 > │ let v2 : US2 = US2_0 │
00:02:37 verbose #13367 > │ let v3 : Mut3 = {l0 = v2} : Mut3 │
00:02:37 verbose #13368 > │ let v4 : (string -> unit) = closure8() │
00:02:37 verbose #13369 > │ let v5 : Mut4 = {l0 = v4} : Mut4 │
00:02:37 verbose #13370 > │ let v6 : int64 option option = None │
00:02:37 verbose #13371 > │ let mutable _v6 = v6 │
00:02:37 verbose #13372 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:02:37 verbose #13373 > │ let v7 : string option = None │
00:02:37 verbose #13374 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:02:37 verbose #13375 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13376 > │ let v9 : string = null |> unbox<string> │
00:02:37 verbose #13377 > │ v9 │
00:02:37 verbose #13378 > │ #endif │
00:02:37 verbose #13379 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #13380 > │ let v10 : string = null |> unbox<string> │
00:02:37 verbose #13381 > │ v10 │
00:02:37 verbose #13382 > │ #endif │
00:02:37 verbose #13383 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #13384 > │ let v11 : string = null |> unbox<string> │
00:02:37 verbose #13385 > │ v11 │
00:02:37 verbose #13386 > │ #endif │
00:02:37 verbose #13387 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #13388 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #13389 > │ let v12 : string = │
00:02:37 verbose #13390 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:02:37 verbose #13391 > │ v12 │
00:02:37 verbose #13392 > │ #endif │
00:02:37 verbose #13393 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #13394 > │ let v13 : string = null |> unbox<string> │
00:02:37 verbose #13395 > │ v13 │
00:02:37 verbose #13396 > │ #endif │
00:02:37 verbose #13397 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #13398 > │ let v14 : string = Unchecked.defaultof<string> │
00:02:37 verbose #13399 > │ v14 │
00:02:37 verbose #13400 > │ #endif │
00:02:37 verbose #13401 > │ |> fun x -> _v7 <- Some x │
00:02:37 verbose #13402 > │ let v15 : string = _v7.Value │
00:02:37 verbose #13403 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:02:37 verbose #13404 > │ let v18 : bool = v17 <> true │
00:02:37 verbose #13405 > │ let v24 : US3 = │
00:02:37 verbose #13406 > │ if v18 then │
00:02:37 verbose #13407 > │ let v19 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13408 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:02:37 verbose #13409 > │ let v21 : int64 = v20 v19 │
00:02:37 verbose #13410 > │ US3_0(v21) │
00:02:37 verbose #13411 > │ else │
00:02:37 verbose #13412 > │ US3_1 │
00:02:37 verbose #13413 > │ let v29 : int64 option = │
00:02:37 verbose #13414 > │ match v24 with │
00:02:37 verbose #13415 > │ | US3_1 -> (* None *) │
00:02:37 verbose #13416 > │ let v27 : int64 option = None │
00:02:37 verbose #13417 > │ v27 │
00:02:37 verbose #13418 > │ | US3_0(v25) -> (* Some *) │
00:02:37 verbose #13419 > │ let v26 : int64 option = Some v25 │
00:02:37 verbose #13420 > │ v26 │
00:02:37 verbose #13421 > │ let v30 : int64 option = method3(v29) │
00:02:37 verbose #13422 > │ v30 │
00:02:37 verbose #13423 > │ #else │
00:02:37 verbose #13424 > │ let v31 : int64 option = None │
00:02:37 verbose #13425 > │ let v32 : int64 option = method4(v31) │
00:02:37 verbose #13426 > │ v32 │
00:02:37 verbose #13427 > │ #endif │
00:02:37 verbose #13428 > │ |> fun x -> _v6 <- Some x │
00:02:37 verbose #13429 > │ let v33 : int64 option = _v6.Value │
00:02:37 verbose #13430 > │ struct (v1, v0, v3, v33, v5) │
00:02:37 verbose #13431 > │ and closure9 () (v0 : int64) : US4 = │
00:02:37 verbose #13432 > │ US4_0(v0) │
00:02:37 verbose #13433 > │ and method5 () : (int64 -> US4) = │
00:02:37 verbose #13434 > │ closure9() │
00:02:37 verbose #13435 > │ and method6 () : string = │
00:02:37 verbose #13436 > │ let v0 : string = "" │
00:02:37 verbose #13437 > │ v0 │
00:02:37 verbose #13438 > │ and closure6 (v0 : US2, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:02:37 verbose #13439 > │ string = │
00:02:37 verbose #13440 > │ let v3 : (unit -> struct (Mut1 * Mut2 * Mut3 * int64 option * Mut4)) = │
00:02:37 verbose #13441 > │ closure7() │
00:02:37 verbose #13442 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:02:37 verbose #13443 > │ let struct (v4 : Mut1, v5 : Mut2, v6 : Mut3, v7 : int64 option, v8 : │
00:02:37 verbose #13444 > │ Mut4) = State.trace_state.Value │
00:02:37 verbose #13445 > │ let v9 : string option = None │
00:02:37 verbose #13446 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:02:37 verbose #13447 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13448 > │ let v11 : (int64 -> US4) = method5() │
00:02:37 verbose #13449 > │ let v12 : US4 = US4_1 │
00:02:37 verbose #13450 > │ let v13 : US4 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:02:37 verbose #13451 > │ let v31 : System.DateTime = │
00:02:37 verbose #13452 > │ match v13 with │
00:02:37 verbose #13453 > │ | US4_1 -> (* None *) │
00:02:37 verbose #13454 > │ let v29 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13455 > │ v29 │
00:02:37 verbose #13456 > │ | US4_0(v14) -> (* Some *) │
00:02:37 verbose #13457 > │ let v15 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13458 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:02:37 verbose #13459 > │ let v17 : int64 = v16 v15 │
00:02:37 verbose #13460 > │ let v18 : int64 = v17 - v14 │
00:02:37 verbose #13461 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:02:37 verbose #13462 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:02:37 verbose #13463 > │ let v21 : int32 = v20 v19 │
00:02:37 verbose #13464 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:02:37 verbose #13465 > │ let v23 : int32 = v22 v19 │
00:02:37 verbose #13466 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:02:37 verbose #13467 > │ let v25 : int32 = v24 v19 │
00:02:37 verbose #13468 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:02:37 verbose #13469 > │ let v27 : int32 = v26 v19 │
00:02:37 verbose #13470 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:02:37 verbose #13471 > │ v25, v27) │
00:02:37 verbose #13472 > │ v28 │
00:02:37 verbose #13473 > │ let v32 : string = "hh:mm:ss" │
00:02:37 verbose #13474 > │ let v33 : string = v31.ToString v32 │
00:02:37 verbose #13475 > │ v33 │
00:02:37 verbose #13476 > │ #endif │
00:02:37 verbose #13477 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #13478 > │ let v34 : string = method6() │
00:02:37 verbose #13479 > │ v34 │
00:02:37 verbose #13480 > │ #endif │
00:02:37 verbose #13481 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #13482 > │ let v35 : string = method6() │
00:02:37 verbose #13483 > │ v35 │
00:02:37 verbose #13484 > │ #endif │
00:02:37 verbose #13485 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #13486 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #13487 > │ let v36 : (int64 -> US4) = method5() │
00:02:37 verbose #13488 > │ let v37 : US4 = US4_1 │
00:02:37 verbose #13489 > │ let v38 : US4 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:02:37 verbose #13490 > │ let v56 : System.DateTime = │
00:02:37 verbose #13491 > │ match v38 with │
00:02:37 verbose #13492 > │ | US4_1 -> (* None *) │
00:02:37 verbose #13493 > │ let v54 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13494 > │ v54 │
00:02:37 verbose #13495 > │ | US4_0(v39) -> (* Some *) │
00:02:37 verbose #13496 > │ let v40 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13497 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:02:37 verbose #13498 > │ let v42 : int64 = v41 v40 │
00:02:37 verbose #13499 > │ let v43 : int64 = v42 - v39 │
00:02:37 verbose #13500 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:02:37 verbose #13501 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:02:37 verbose #13502 > │ let v46 : int32 = v45 v44 │
00:02:37 verbose #13503 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:02:37 verbose #13504 > │ let v48 : int32 = v47 v44 │
00:02:37 verbose #13505 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:02:37 verbose #13506 > │ let v50 : int32 = v49 v44 │
00:02:37 verbose #13507 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:02:37 verbose #13508 > │ let v52 : int32 = v51 v44 │
00:02:37 verbose #13509 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:02:37 verbose #13510 > │ v50, v52) │
00:02:37 verbose #13511 > │ v53 │
00:02:37 verbose #13512 > │ let v57 : string = "HH:mm:ss" │
00:02:37 verbose #13513 > │ let v58 : string = v56.ToString v57 │
00:02:37 verbose #13514 > │ v58 │
00:02:37 verbose #13515 > │ #endif │
00:02:37 verbose #13516 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #13517 > │ let v59 : string = method6() │
00:02:37 verbose #13518 > │ v59 │
00:02:37 verbose #13519 > │ #endif │
00:02:37 verbose #13520 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #13521 > │ let v60 : string = Unchecked.defaultof<string> │
00:02:37 verbose #13522 > │ v60 │
00:02:37 verbose #13523 > │ #endif │
00:02:37 verbose #13524 > │ |> fun x -> _v9 <- Some x │
00:02:37 verbose #13525 > │ let v61 : string = _v9.Value │
00:02:37 verbose #13526 > │ let v62 : int64 = v4.l0 │
00:02:37 verbose #13527 > │ let v72 : string = │
00:02:37 verbose #13528 > │ match v0 with │
00:02:37 verbose #13529 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #13530 > │ let v67 : string = "Critical" │
00:02:37 verbose #13531 > │ v67 │
00:02:37 verbose #13532 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #13533 > │ let v64 : string = "Debug" │
00:02:37 verbose #13534 > │ v64 │
00:02:37 verbose #13535 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #13536 > │ let v65 : string = "Info" │
00:02:37 verbose #13537 > │ v65 │
00:02:37 verbose #13538 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #13539 > │ let v63 : string = "Verbose" │
00:02:37 verbose #13540 > │ v63 │
00:02:37 verbose #13541 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #13542 > │ let v66 : string = "Warning" │
00:02:37 verbose #13543 > │ v66 │
00:02:37 verbose #13544 > │ let v73 : string = v72.ToLower () │
00:02:37 verbose #13545 > │ let v74 : string option = None │
00:02:37 verbose #13546 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:02:37 verbose #13547 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13548 > │ let v90 : Ref<Str> = │
00:02:37 verbose #13549 > │ match v0 with │
00:02:37 verbose #13550 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #13551 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:02:37 verbose #13552 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:02:37 verbose #13553 > │ v85 │
00:02:37 verbose #13554 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #13555 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:02:37 verbose #13556 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:02:37 verbose #13557 > │ v79 │
00:02:37 verbose #13558 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #13559 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:02:37 verbose #13560 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:02:37 verbose #13561 > │ v81 │
00:02:37 verbose #13562 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #13563 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:02:37 verbose #13564 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:37 verbose #13565 > │ v77 │
00:02:37 verbose #13566 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #13567 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:02:37 verbose #13568 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:02:37 verbose #13569 > │ v83 │
00:02:37 verbose #13570 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:37 verbose #13571 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:02:37 verbose #13572 > │ let v93 : string = "inline_colorization::color_reset" │
00:02:37 verbose #13573 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:02:37 verbose #13574 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:02:37 verbose #13575 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:02:37 verbose #13576 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:02:37 verbose #13577 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:02:37 verbose #13578 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:02:37 verbose #13579 > │ v99 │
00:02:37 verbose #13580 > │ #endif │
00:02:37 verbose #13581 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #13582 > │ let v114 : Ref<Str> = │
00:02:37 verbose #13583 > │ match v0 with │
00:02:37 verbose #13584 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #13585 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:02:37 verbose #13586 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13587 > │ v108 │
00:02:37 verbose #13588 > │ v109 │
00:02:37 verbose #13589 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #13590 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:02:37 verbose #13591 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13592 > │ v102 │
00:02:37 verbose #13593 > │ v103 │
00:02:37 verbose #13594 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #13595 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:02:37 verbose #13596 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13597 > │ v104 │
00:02:37 verbose #13598 > │ v105 │
00:02:37 verbose #13599 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #13600 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:02:37 verbose #13601 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13602 > │ v100 │
00:02:37 verbose #13603 > │ v101 │
00:02:37 verbose #13604 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #13605 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:02:37 verbose #13606 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13607 > │ v106 │
00:02:37 verbose #13608 > │ v107 │
00:02:37 verbose #13609 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:37 verbose #13610 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:02:37 verbose #13611 > │ let v117 : string = "inline_colorization::color_reset" │
00:02:37 verbose #13612 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:02:37 verbose #13613 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:02:37 verbose #13614 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:02:37 verbose #13615 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13616 > │ v120 │
00:02:37 verbose #13617 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:02:37 verbose #13618 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:02:37 verbose #13619 > │ v123 │
00:02:37 verbose #13620 > │ #endif │
00:02:37 verbose #13621 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #13622 > │ let v138 : Ref<Str> = │
00:02:37 verbose #13623 > │ match v0 with │
00:02:37 verbose #13624 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #13625 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:02:37 verbose #13626 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13627 > │ v132 │
00:02:37 verbose #13628 > │ v133 │
00:02:37 verbose #13629 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #13630 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:02:37 verbose #13631 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13632 > │ v126 │
00:02:37 verbose #13633 > │ v127 │
00:02:37 verbose #13634 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #13635 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:02:37 verbose #13636 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13637 > │ v128 │
00:02:37 verbose #13638 > │ v129 │
00:02:37 verbose #13639 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #13640 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:02:37 verbose #13641 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13642 > │ v124 │
00:02:37 verbose #13643 > │ v125 │
00:02:37 verbose #13644 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #13645 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:02:37 verbose #13646 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13647 > │ v130 │
00:02:37 verbose #13648 > │ v131 │
00:02:37 verbose #13649 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:37 verbose #13650 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:02:37 verbose #13651 > │ let v141 : string = "inline_colorization::color_reset" │
00:02:37 verbose #13652 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:02:37 verbose #13653 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:02:37 verbose #13654 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:02:37 verbose #13655 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #13656 > │ v144 │
00:02:37 verbose #13657 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:02:37 verbose #13658 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:02:37 verbose #13659 > │ v147 │
00:02:37 verbose #13660 > │ #endif │
00:02:37 verbose #13661 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #13662 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #13663 > │ v73 │
00:02:37 verbose #13664 > │ #endif │
00:02:37 verbose #13665 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #13666 > │ v73 │
00:02:37 verbose #13667 > │ #endif │
00:02:37 verbose #13668 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #13669 > │ let v148 : string = Unchecked.defaultof<string> │
00:02:37 verbose #13670 > │ v148 │
00:02:37 verbose #13671 > │ #endif │
00:02:37 verbose #13672 > │ |> fun x -> _v74 <- Some x │
00:02:37 verbose #13673 > │ let v149 : string = _v74.Value │
00:02:37 verbose #13674 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:02:37 verbose #13675 > │ let v151 : (char []) = [||] │
00:02:37 verbose #13676 > │ let v152 : string = v150.TrimStart v151 │
00:02:37 verbose #13677 > │ let v153 : (char []) = [|' '; '/'|] │
00:02:37 verbose #13678 > │ let v154 : string = v152.TrimEnd v153 │
00:02:37 verbose #13679 > │ v154 │
00:02:37 verbose #13680 > │ and method7 (v0 : US2, v1 : (unit -> string)) : unit = │
00:02:37 verbose #13681 > │ let v2 : (unit -> struct (Mut1 * Mut2 * Mut3 * int64 option * Mut4)) = │
00:02:37 verbose #13682 > │ closure7() │
00:02:37 verbose #13683 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:02:37 verbose #13684 > │ let struct (v3 : Mut1, v4 : Mut2, v5 : Mut3, v6 : int64 option, v7 : │
00:02:37 verbose #13685 > │ Mut4) = State.trace_state.Value │
00:02:37 verbose #13686 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:02:37 verbose #13687 > │ let struct (v8 : Mut1, v9 : Mut2, v10 : Mut3, v11 : int64 option, v12 : │
00:02:37 verbose #13688 > │ Mut4) = State.trace_state.Value │
00:02:37 verbose #13689 > │ let v13 : US2 = v10.l0 │
00:02:37 verbose #13690 > │ let v14 : bool = v9.l0 │
00:02:37 verbose #13691 > │ let v15 : bool = v14 = false │
00:02:37 verbose #13692 > │ let v19 : bool = │
00:02:37 verbose #13693 > │ if v15 then │
00:02:37 verbose #13694 > │ false │
00:02:37 verbose #13695 > │ else │
00:02:37 verbose #13696 > │ let v16 : int32 = [ US2_0, 0; US2_1, 1; US2_2, 2; US2_3, 3; │
00:02:37 verbose #13697 > │ US2_4, 4 ] |> Map |> Map.find v0 │
00:02:37 verbose #13698 > │ let v17 : int32 = [ US2_0, 0; US2_1, 1; US2_2, 2; US2_3, 3; │
00:02:37 verbose #13699 > │ US2_4, 4 ] |> Map |> Map.find v13 │
00:02:37 verbose #13700 > │ let v18 : bool = v16 >= v17 │
00:02:37 verbose #13701 > │ v18 │
00:02:37 verbose #13702 > │ if v19 then │
00:02:37 verbose #13703 > │ let v20 : int64 = v3.l0 │
00:02:37 verbose #13704 > │ let v21 : int64 = v20 + 1L │
00:02:37 verbose #13705 > │ v3.l0 <- v21 │
00:02:37 verbose #13706 > │ let v22 : string = $"%s{v1 ()}" │
00:02:37 verbose #13707 > │ let v23 : unit option = None │
00:02:37 verbose #13708 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:02:37 verbose #13709 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13710 > │ let v25 : string = @"println!(""{}"", $0)" │
00:02:37 verbose #13711 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:02:37 verbose #13712 > │ () │
00:02:37 verbose #13713 > │ #endif │
00:02:37 verbose #13714 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #13715 > │ let v26 : string = @"println!(""{}"", $0)" │
00:02:37 verbose #13716 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:02:37 verbose #13717 > │ () │
00:02:37 verbose #13718 > │ #endif │
00:02:37 verbose #13719 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #13720 > │ let v27 : string = @"println!(""{}"", $0)" │
00:02:37 verbose #13721 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:02:37 verbose #13722 > │ () │
00:02:37 verbose #13723 > │ #endif │
00:02:37 verbose #13724 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #13725 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #13726 > │ System.Console.WriteLine v22 │
00:02:37 verbose #13727 > │ () │
00:02:37 verbose #13728 > │ #endif │
00:02:37 verbose #13729 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #13730 > │ System.Console.WriteLine v22 │
00:02:37 verbose #13731 > │ () │
00:02:37 verbose #13732 > │ #endif │
00:02:37 verbose #13733 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:02:37 verbose #13734 > │ FABLE_COMPILER_DART │
00:02:37 verbose #13735 > │ Unchecked.defaultof<unit> │
00:02:37 verbose #13736 > │ () │
00:02:37 verbose #13737 > │ #endif │
00:02:37 verbose #13738 > │ |> fun x -> _v23 <- Some x │
00:02:37 verbose #13739 > │ _v23.Value │
00:02:37 verbose #13740 > │ let v28 : (string -> unit) = v7.l0 │
00:02:37 verbose #13741 > │ v28 v22 │
00:02:37 verbose #13742 > │ and method2 (v0 : US2, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:02:37 verbose #13743 > │ = │
00:02:37 verbose #13744 > │ let v3 : (unit -> string) = closure6(v0, v1, v2) │
00:02:37 verbose #13745 > │ method7(v0, v3) │
00:02:37 verbose #13746 > │ and closure2 (v0 : int32) (v1 : exn) : US1 = │
00:02:37 verbose #13747 > │ let v2 : US2 = US2_3 │
00:02:37 verbose #13748 > │ let v3 : (unit -> string) = closure3() │
00:02:37 verbose #13749 > │ let v4 : (unit -> string) = closure4(v0, v1) │
00:02:37 verbose #13750 > │ method2(v2, v3, v4) │
00:02:37 verbose #13751 > │ let v5 : unit option = None │
00:02:37 verbose #13752 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:02:37 verbose #13753 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13754 > │ () │
00:02:37 verbose #13755 > │ #endif │
00:02:37 verbose #13756 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #13757 > │ () │
00:02:37 verbose #13758 > │ #endif │
00:02:37 verbose #13759 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #13760 > │ () │
00:02:37 verbose #13761 > │ #endif │
00:02:37 verbose #13762 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #13763 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #13764 > │ let v7 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:37 verbose #13765 > │ v7 1 │
00:02:37 verbose #13766 > │ () │
00:02:37 verbose #13767 > │ #endif │
00:02:37 verbose #13768 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #13769 > │ () │
00:02:37 verbose #13770 > │ #endif │
00:02:37 verbose #13771 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #13772 > │ Unchecked.defaultof<unit> │
00:02:37 verbose #13773 > │ () │
00:02:37 verbose #13774 > │ #endif │
00:02:37 verbose #13775 > │ |> fun x -> _v5 <- Some x │
00:02:37 verbose #13776 > │ _v5.Value │
00:02:37 verbose #13777 > │ US1_1 │
00:02:37 verbose #13778 > │ and method1 (v0 : Mut0, v1 : int32) : US0 = │
00:02:37 verbose #13779 > │ let v2 : (unit -> US0) = closure0(v0, v1) │
00:02:37 verbose #13780 > │ let v3 : (US0 -> US1) = closure1() │
00:02:37 verbose #13781 > │ let v4 : (exn -> US1) = closure2(v1) │
00:02:37 verbose #13782 > │ let v5 : US1 = try v2 () |> v3 with ex -> v4 ex │
00:02:37 verbose #13783 > │ match v5 with │
00:02:37 verbose #13784 > │ | US1_1 -> (* None *) │
00:02:37 verbose #13785 > │ let v7 : int32 = v1 + 1 │
00:02:37 verbose #13786 > │ method1(v0, v7) │
00:02:37 verbose #13787 > │ | US1_0(v6) -> (* Some *) │
00:02:37 verbose #13788 > │ v6 │
00:02:37 verbose #13789 > │ and method8 (v0 : bool) : bool = │
00:02:37 verbose #13790 > │ v0 │
00:02:37 verbose #13791 > │ and method0 () : unit = │
00:02:37 verbose #13792 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:37 verbose #13793 > │ let v1 : int32 = 0 │
00:02:37 verbose #13794 > │ let v2 : US0 = method1(v0, v1) │
00:02:37 verbose #13795 > │ let v3 : string = $"%A{v2}" │
00:02:37 verbose #13796 > │ System.Console.WriteLine v3 │
00:02:37 verbose #13797 > │ let v7 : bool = │
00:02:37 verbose #13798 > │ match v2 with │
00:02:37 verbose #13799 > │ | US0_0(v5) -> (* Some *) │
00:02:37 verbose #13800 > │ let v6 : bool = v5 = 1 │
00:02:37 verbose #13801 > │ v6 │
00:02:37 verbose #13802 > │ | _ -> │
00:02:37 verbose #13803 > │ false │
00:02:37 verbose #13804 > │ let v9 : bool = │
00:02:37 verbose #13805 > │ if v7 then │
00:02:37 verbose #13806 > │ true │
00:02:37 verbose #13807 > │ else │
00:02:37 verbose #13808 > │ method8(v7) │
00:02:37 verbose #13809 > │ let v10 : US0 = US0_0(1) │
00:02:37 verbose #13810 > │ let v11 : string = $"__expect / actual: %A{v2} / expected: %A{v10}" │
00:02:37 verbose #13811 > │ let v12 : bool = v9 = false │
00:02:37 verbose #13812 > │ if v12 then │
00:02:37 verbose #13813 > │ failwith<unit> v11 │
00:02:37 verbose #13814 > │ method0() │
00:02:37 verbose #13815 > │ │
00:02:37 verbose #13816 > │ US0_0 1 │
00:02:37 verbose #13817 > │ │
00:02:37 verbose #13818 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 verbose #13819 >
00:02:37 verbose #13820 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:37 verbose #13821 > // // test
00:02:37 verbose #13822 >
00:02:37 verbose #13823 > inl retry_fn_test = mut 0i32
00:02:37 verbose #13824 > fun () =>
00:02:37 verbose #13825 > if *retry_fn_test >= 2
00:02:37 verbose #13826 > then *retry_fn_test
00:02:37 verbose #13827 > else
00:02:37 verbose #13828 > retry_fn_test <- *retry_fn_test + 1
00:02:37 verbose #13829 > failwith "test"
00:02:37 verbose #13830 > |> retry_fn 3i32
00:02:37 verbose #13831 > |> _assert_eq (Some 2i32)
00:02:37 verbose #13832 > 00:02:36 debug #172 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/58dac9ed204585be8fbf70483f46e2ac08e60beb68093b329e973f5fb061f076/main.spi
00:02:37 verbose #13833 >
00:02:37 verbose #13834 > ╭─[ 546.02ms - stdout ]────────────────────────────────────────────────────────╮
00:02:37 verbose #13835 > │ module State = let mutable trace_state = None │
00:02:37 verbose #13836 > │ type Mut0 = {mutable l0 : int32} │
00:02:37 verbose #13837 > │ and [<Struct>] US0 = │
00:02:37 verbose #13838 > │ | US0_0 of f0_0 : int32 │
00:02:37 verbose #13839 > │ | US0_1 │
00:02:37 verbose #13840 > │ and [<Struct>] US1 = │
00:02:37 verbose #13841 > │ | US1_0 of f0_0 : US0 │
00:02:37 verbose #13842 > │ | US1_1 │
00:02:37 verbose #13843 > │ and [<Struct>] US2 = │
00:02:37 verbose #13844 > │ | US2_0 │
00:02:37 verbose #13845 > │ | US2_1 │
00:02:37 verbose #13846 > │ | US2_2 │
00:02:37 verbose #13847 > │ | US2_3 │
00:02:37 verbose #13848 > │ | US2_4 │
00:02:37 verbose #13849 > │ and Mut1 = {mutable l0 : int64} │
00:02:37 verbose #13850 > │ and Mut2 = {mutable l0 : bool} │
00:02:37 verbose #13851 > │ and Mut3 = {mutable l0 : US2} │
00:02:37 verbose #13852 > │ and Mut4 = {mutable l0 : (string -> unit)} │
00:02:37 verbose #13853 > │ and [<Struct>] US3 = │
00:02:37 verbose #13854 > │ | US3_0 of f0_0 : int64 │
00:02:37 verbose #13855 > │ | US3_1 │
00:02:37 verbose #13856 > │ and [<Struct>] US4 = │
00:02:37 verbose #13857 > │ | US4_0 of f0_0 : int64 │
00:02:37 verbose #13858 > │ | US4_1 │
00:02:37 verbose #13859 > │ let rec closure0 (v0 : Mut0, v1 : int32) () : US0 = │
00:02:37 verbose #13860 > │ let v2 : bool = v1 < 3 │
00:02:37 verbose #13861 > │ if v2 then │
00:02:37 verbose #13862 > │ let v3 : int32 = v0.l0 │
00:02:37 verbose #13863 > │ let v4 : bool = v3 >= 2 │
00:02:37 verbose #13864 > │ let v9 : int32 = │
00:02:37 verbose #13865 > │ if v4 then │
00:02:37 verbose #13866 > │ let v5 : int32 = v0.l0 │
00:02:37 verbose #13867 > │ v5 │
00:02:37 verbose #13868 > │ else │
00:02:37 verbose #13869 > │ let v6 : int32 = v0.l0 │
00:02:37 verbose #13870 > │ let v7 : int32 = v6 + 1 │
00:02:37 verbose #13871 > │ v0.l0 <- v7 │
00:02:37 verbose #13872 > │ failwith<int32> "test" │
00:02:37 verbose #13873 > │ US0_0(v9) │
00:02:37 verbose #13874 > │ else │
00:02:37 verbose #13875 > │ US0_1 │
00:02:37 verbose #13876 > │ and closure1 () (v0 : US0) : US1 = │
00:02:37 verbose #13877 > │ US1_0(v0) │
00:02:37 verbose #13878 > │ and closure3 () () : string = │
00:02:37 verbose #13879 > │ let v0 : string = "retry_fn" │
00:02:37 verbose #13880 > │ v0 │
00:02:37 verbose #13881 > │ and closure5 () () : string = │
00:02:37 verbose #13882 > │ let v0 : string = "" │
00:02:37 verbose #13883 > │ v0 │
00:02:37 verbose #13884 > │ and closure4 (v0 : int32, v1 : exn) () : string = │
00:02:37 verbose #13885 > │ let v2 : (unit -> string) = closure5() │
00:02:37 verbose #13886 > │ let v3 : string = $"retry: {v0} / ex: %A{v1} / {v2 ()}" │
00:02:37 verbose #13887 > │ v3 │
00:02:37 verbose #13888 > │ and closure8 () (v0 : string) : unit = │
00:02:37 verbose #13889 > │ () │
00:02:37 verbose #13890 > │ and method3 (v0 : int64 option) : int64 option = │
00:02:37 verbose #13891 > │ v0 │
00:02:37 verbose #13892 > │ and method4 (v0 : int64 option) : int64 option = │
00:02:37 verbose #13893 > │ v0 │
00:02:37 verbose #13894 > │ and closure7 () () : struct (Mut1 * Mut2 * Mut3 * int64 option * Mut4) = │
00:02:37 verbose #13895 > │ let v0 : Mut2 = {l0 = true} : Mut2 │
00:02:37 verbose #13896 > │ let v1 : Mut1 = {l0 = 0L} : Mut1 │
00:02:37 verbose #13897 > │ let v2 : US2 = US2_0 │
00:02:37 verbose #13898 > │ let v3 : Mut3 = {l0 = v2} : Mut3 │
00:02:37 verbose #13899 > │ let v4 : (string -> unit) = closure8() │
00:02:37 verbose #13900 > │ let v5 : Mut4 = {l0 = v4} : Mut4 │
00:02:37 verbose #13901 > │ let v6 : int64 option option = None │
00:02:37 verbose #13902 > │ let mutable _v6 = v6 │
00:02:37 verbose #13903 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:02:37 verbose #13904 > │ let v7 : string option = None │
00:02:37 verbose #13905 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:02:37 verbose #13906 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13907 > │ let v9 : string = null |> unbox<string> │
00:02:37 verbose #13908 > │ v9 │
00:02:37 verbose #13909 > │ #endif │
00:02:37 verbose #13910 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #13911 > │ let v10 : string = null |> unbox<string> │
00:02:37 verbose #13912 > │ v10 │
00:02:37 verbose #13913 > │ #endif │
00:02:37 verbose #13914 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #13915 > │ let v11 : string = null |> unbox<string> │
00:02:37 verbose #13916 > │ v11 │
00:02:37 verbose #13917 > │ #endif │
00:02:37 verbose #13918 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #13919 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #13920 > │ let v12 : string = │
00:02:37 verbose #13921 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:02:37 verbose #13922 > │ v12 │
00:02:37 verbose #13923 > │ #endif │
00:02:37 verbose #13924 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #13925 > │ let v13 : string = null |> unbox<string> │
00:02:37 verbose #13926 > │ v13 │
00:02:37 verbose #13927 > │ #endif │
00:02:37 verbose #13928 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #13929 > │ let v14 : string = Unchecked.defaultof<string> │
00:02:37 verbose #13930 > │ v14 │
00:02:37 verbose #13931 > │ #endif │
00:02:37 verbose #13932 > │ |> fun x -> _v7 <- Some x │
00:02:37 verbose #13933 > │ let v15 : string = _v7.Value │
00:02:37 verbose #13934 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:02:37 verbose #13935 > │ let v18 : bool = v17 <> true │
00:02:37 verbose #13936 > │ let v24 : US3 = │
00:02:37 verbose #13937 > │ if v18 then │
00:02:37 verbose #13938 > │ let v19 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13939 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:02:37 verbose #13940 > │ let v21 : int64 = v20 v19 │
00:02:37 verbose #13941 > │ US3_0(v21) │
00:02:37 verbose #13942 > │ else │
00:02:37 verbose #13943 > │ US3_1 │
00:02:37 verbose #13944 > │ let v29 : int64 option = │
00:02:37 verbose #13945 > │ match v24 with │
00:02:37 verbose #13946 > │ | US3_1 -> (* None *) │
00:02:37 verbose #13947 > │ let v27 : int64 option = None │
00:02:37 verbose #13948 > │ v27 │
00:02:37 verbose #13949 > │ | US3_0(v25) -> (* Some *) │
00:02:37 verbose #13950 > │ let v26 : int64 option = Some v25 │
00:02:37 verbose #13951 > │ v26 │
00:02:37 verbose #13952 > │ let v30 : int64 option = method3(v29) │
00:02:37 verbose #13953 > │ v30 │
00:02:37 verbose #13954 > │ #else │
00:02:37 verbose #13955 > │ let v31 : int64 option = None │
00:02:37 verbose #13956 > │ let v32 : int64 option = method4(v31) │
00:02:37 verbose #13957 > │ v32 │
00:02:37 verbose #13958 > │ #endif │
00:02:37 verbose #13959 > │ |> fun x -> _v6 <- Some x │
00:02:37 verbose #13960 > │ let v33 : int64 option = _v6.Value │
00:02:37 verbose #13961 > │ struct (v1, v0, v3, v33, v5) │
00:02:37 verbose #13962 > │ and closure9 () (v0 : int64) : US4 = │
00:02:37 verbose #13963 > │ US4_0(v0) │
00:02:37 verbose #13964 > │ and method5 () : (int64 -> US4) = │
00:02:37 verbose #13965 > │ closure9() │
00:02:37 verbose #13966 > │ and method6 () : string = │
00:02:37 verbose #13967 > │ let v0 : string = "" │
00:02:37 verbose #13968 > │ v0 │
00:02:37 verbose #13969 > │ and closure6 (v0 : US2, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:02:37 verbose #13970 > │ string = │
00:02:37 verbose #13971 > │ let v3 : (unit -> struct (Mut1 * Mut2 * Mut3 * int64 option * Mut4)) = │
00:02:37 verbose #13972 > │ closure7() │
00:02:37 verbose #13973 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:02:37 verbose #13974 > │ let struct (v4 : Mut1, v5 : Mut2, v6 : Mut3, v7 : int64 option, v8 : │
00:02:37 verbose #13975 > │ Mut4) = State.trace_state.Value │
00:02:37 verbose #13976 > │ let v9 : string option = None │
00:02:37 verbose #13977 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:02:37 verbose #13978 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #13979 > │ let v11 : (int64 -> US4) = method5() │
00:02:37 verbose #13980 > │ let v12 : US4 = US4_1 │
00:02:37 verbose #13981 > │ let v13 : US4 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:02:37 verbose #13982 > │ let v31 : System.DateTime = │
00:02:37 verbose #13983 > │ match v13 with │
00:02:37 verbose #13984 > │ | US4_1 -> (* None *) │
00:02:37 verbose #13985 > │ let v29 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13986 > │ v29 │
00:02:37 verbose #13987 > │ | US4_0(v14) -> (* Some *) │
00:02:37 verbose #13988 > │ let v15 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #13989 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:02:37 verbose #13990 > │ let v17 : int64 = v16 v15 │
00:02:37 verbose #13991 > │ let v18 : int64 = v17 - v14 │
00:02:37 verbose #13992 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:02:37 verbose #13993 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:02:37 verbose #13994 > │ let v21 : int32 = v20 v19 │
00:02:37 verbose #13995 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:02:37 verbose #13996 > │ let v23 : int32 = v22 v19 │
00:02:37 verbose #13997 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:02:37 verbose #13998 > │ let v25 : int32 = v24 v19 │
00:02:37 verbose #13999 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:02:37 verbose #14000 > │ let v27 : int32 = v26 v19 │
00:02:37 verbose #14001 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:02:37 verbose #14002 > │ v25, v27) │
00:02:37 verbose #14003 > │ v28 │
00:02:37 verbose #14004 > │ let v32 : string = "hh:mm:ss" │
00:02:37 verbose #14005 > │ let v33 : string = v31.ToString v32 │
00:02:37 verbose #14006 > │ v33 │
00:02:37 verbose #14007 > │ #endif │
00:02:37 verbose #14008 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #14009 > │ let v34 : string = method6() │
00:02:37 verbose #14010 > │ v34 │
00:02:37 verbose #14011 > │ #endif │
00:02:37 verbose #14012 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #14013 > │ let v35 : string = method6() │
00:02:37 verbose #14014 > │ v35 │
00:02:37 verbose #14015 > │ #endif │
00:02:37 verbose #14016 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #14017 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #14018 > │ let v36 : (int64 -> US4) = method5() │
00:02:37 verbose #14019 > │ let v37 : US4 = US4_1 │
00:02:37 verbose #14020 > │ let v38 : US4 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:02:37 verbose #14021 > │ let v56 : System.DateTime = │
00:02:37 verbose #14022 > │ match v38 with │
00:02:37 verbose #14023 > │ | US4_1 -> (* None *) │
00:02:37 verbose #14024 > │ let v54 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #14025 > │ v54 │
00:02:37 verbose #14026 > │ | US4_0(v39) -> (* Some *) │
00:02:37 verbose #14027 > │ let v40 : System.DateTime = System.DateTime.Now │
00:02:37 verbose #14028 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:02:37 verbose #14029 > │ let v42 : int64 = v41 v40 │
00:02:37 verbose #14030 > │ let v43 : int64 = v42 - v39 │
00:02:37 verbose #14031 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:02:37 verbose #14032 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:02:37 verbose #14033 > │ let v46 : int32 = v45 v44 │
00:02:37 verbose #14034 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:02:37 verbose #14035 > │ let v48 : int32 = v47 v44 │
00:02:37 verbose #14036 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:02:37 verbose #14037 > │ let v50 : int32 = v49 v44 │
00:02:37 verbose #14038 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:02:37 verbose #14039 > │ let v52 : int32 = v51 v44 │
00:02:37 verbose #14040 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:02:37 verbose #14041 > │ v50, v52) │
00:02:37 verbose #14042 > │ v53 │
00:02:37 verbose #14043 > │ let v57 : string = "HH:mm:ss" │
00:02:37 verbose #14044 > │ let v58 : string = v56.ToString v57 │
00:02:37 verbose #14045 > │ v58 │
00:02:37 verbose #14046 > │ #endif │
00:02:37 verbose #14047 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #14048 > │ let v59 : string = method6() │
00:02:37 verbose #14049 > │ v59 │
00:02:37 verbose #14050 > │ #endif │
00:02:37 verbose #14051 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #14052 > │ let v60 : string = Unchecked.defaultof<string> │
00:02:37 verbose #14053 > │ v60 │
00:02:37 verbose #14054 > │ #endif │
00:02:37 verbose #14055 > │ |> fun x -> _v9 <- Some x │
00:02:37 verbose #14056 > │ let v61 : string = _v9.Value │
00:02:37 verbose #14057 > │ let v62 : int64 = v4.l0 │
00:02:37 verbose #14058 > │ let v72 : string = │
00:02:37 verbose #14059 > │ match v0 with │
00:02:37 verbose #14060 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #14061 > │ let v67 : string = "Critical" │
00:02:37 verbose #14062 > │ v67 │
00:02:37 verbose #14063 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #14064 > │ let v64 : string = "Debug" │
00:02:37 verbose #14065 > │ v64 │
00:02:37 verbose #14066 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #14067 > │ let v65 : string = "Info" │
00:02:37 verbose #14068 > │ v65 │
00:02:37 verbose #14069 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #14070 > │ let v63 : string = "Verbose" │
00:02:37 verbose #14071 > │ v63 │
00:02:37 verbose #14072 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #14073 > │ let v66 : string = "Warning" │
00:02:37 verbose #14074 > │ v66 │
00:02:37 verbose #14075 > │ let v73 : string = v72.ToLower () │
00:02:37 verbose #14076 > │ let v74 : string option = None │
00:02:37 verbose #14077 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:02:37 verbose #14078 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:37 verbose #14079 > │ let v90 : Ref<Str> = │
00:02:37 verbose #14080 > │ match v0 with │
00:02:37 verbose #14081 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #14082 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:02:37 verbose #14083 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:02:37 verbose #14084 > │ v85 │
00:02:37 verbose #14085 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #14086 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:02:37 verbose #14087 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:02:37 verbose #14088 > │ v79 │
00:02:37 verbose #14089 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #14090 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:02:37 verbose #14091 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:02:37 verbose #14092 > │ v81 │
00:02:37 verbose #14093 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #14094 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:02:37 verbose #14095 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:37 verbose #14096 > │ v77 │
00:02:37 verbose #14097 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #14098 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:02:37 verbose #14099 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:02:37 verbose #14100 > │ v83 │
00:02:37 verbose #14101 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:37 verbose #14102 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:02:37 verbose #14103 > │ let v93 : string = "inline_colorization::color_reset" │
00:02:37 verbose #14104 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:02:37 verbose #14105 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:02:37 verbose #14106 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:02:37 verbose #14107 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:02:37 verbose #14108 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:02:37 verbose #14109 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:02:37 verbose #14110 > │ v99 │
00:02:37 verbose #14111 > │ #endif │
00:02:37 verbose #14112 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:37 verbose #14113 > │ let v114 : Ref<Str> = │
00:02:37 verbose #14114 > │ match v0 with │
00:02:37 verbose #14115 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #14116 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:02:37 verbose #14117 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14118 > │ v108 │
00:02:37 verbose #14119 > │ v109 │
00:02:37 verbose #14120 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #14121 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:02:37 verbose #14122 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14123 > │ v102 │
00:02:37 verbose #14124 > │ v103 │
00:02:37 verbose #14125 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #14126 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:02:37 verbose #14127 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14128 > │ v104 │
00:02:37 verbose #14129 > │ v105 │
00:02:37 verbose #14130 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #14131 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:02:37 verbose #14132 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14133 > │ v100 │
00:02:37 verbose #14134 > │ v101 │
00:02:37 verbose #14135 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #14136 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:02:37 verbose #14137 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14138 > │ v106 │
00:02:37 verbose #14139 > │ v107 │
00:02:37 verbose #14140 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:37 verbose #14141 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:02:37 verbose #14142 > │ let v117 : string = "inline_colorization::color_reset" │
00:02:37 verbose #14143 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:02:37 verbose #14144 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:02:37 verbose #14145 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:02:37 verbose #14146 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14147 > │ v120 │
00:02:37 verbose #14148 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:02:37 verbose #14149 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:02:37 verbose #14150 > │ v123 │
00:02:37 verbose #14151 > │ #endif │
00:02:37 verbose #14152 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:37 verbose #14153 > │ let v138 : Ref<Str> = │
00:02:37 verbose #14154 > │ match v0 with │
00:02:37 verbose #14155 > │ | US2_4 -> (* Critical *) │
00:02:37 verbose #14156 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:02:37 verbose #14157 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14158 > │ v132 │
00:02:37 verbose #14159 > │ v133 │
00:02:37 verbose #14160 > │ | US2_1 -> (* Debug *) │
00:02:37 verbose #14161 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:02:37 verbose #14162 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14163 > │ v126 │
00:02:37 verbose #14164 > │ v127 │
00:02:37 verbose #14165 > │ | US2_2 -> (* Info *) │
00:02:37 verbose #14166 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:02:37 verbose #14167 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14168 > │ v128 │
00:02:37 verbose #14169 > │ v129 │
00:02:37 verbose #14170 > │ | US2_0 -> (* Verbose *) │
00:02:37 verbose #14171 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:02:37 verbose #14172 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14173 > │ v124 │
00:02:37 verbose #14174 > │ v125 │
00:02:37 verbose #14175 > │ | US2_3 -> (* Warning *) │
00:02:37 verbose #14176 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:02:37 verbose #14177 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14178 > │ v130 │
00:02:37 verbose #14179 > │ v131 │
00:02:37 verbose #14180 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:37 verbose #14181 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:02:37 verbose #14182 > │ let v141 : string = "inline_colorization::color_reset" │
00:02:37 verbose #14183 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:02:37 verbose #14184 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:02:37 verbose #14185 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:02:37 verbose #14186 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:02:37 verbose #14187 > │ v144 │
00:02:37 verbose #14188 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:02:37 verbose #14189 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:02:37 verbose #14190 > │ v147 │
00:02:37 verbose #14191 > │ #endif │
00:02:37 verbose #14192 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:37 verbose #14193 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:37 verbose #14194 > │ v73 │
00:02:37 verbose #14195 > │ #endif │
00:02:37 verbose #14196 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:37 verbose #14197 > │ v73 │
00:02:37 verbose #14198 > │ #endif │
00:02:37 verbose #14199 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:37 verbose #14200 > │ let v148 : string = Unchecked.defaultof<string> │
00:02:37 verbose #14201 > │ v148 │
00:02:37 verbose #14202 > │ #endif │
00:02:37 verbose #14203 > │ |> fun x -> _v74 <- Some x │
00:02:37 verbose #14204 > │ let v149 : string = _v74.Value │
00:02:37 verbose #14205 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:02:37 verbose #14206 > │ let v151 : (char []) = [||] │
00:02:38 verbose #14207 > │ let v152 : string = v150.TrimStart v151 │
00:02:38 verbose #14208 > │ let v153 : (char []) = [|' '; '/'|] │
00:02:38 verbose #14209 > │ let v154 : string = v152.TrimEnd v153 │
00:02:38 verbose #14210 > │ v154 │
00:02:38 verbose #14211 > │ and method7 (v0 : US2, v1 : (unit -> string)) : unit = │
00:02:38 verbose #14212 > │ let v2 : (unit -> struct (Mut1 * Mut2 * Mut3 * int64 option * Mut4)) = │
00:02:38 verbose #14213 > │ closure7() │
00:02:38 verbose #14214 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:02:38 verbose #14215 > │ let struct (v3 : Mut1, v4 : Mut2, v5 : Mut3, v6 : int64 option, v7 : │
00:02:38 verbose #14216 > │ Mut4) = State.trace_state.Value │
00:02:38 verbose #14217 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:02:38 verbose #14218 > │ let struct (v8 : Mut1, v9 : Mut2, v10 : Mut3, v11 : int64 option, v12 : │
00:02:38 verbose #14219 > │ Mut4) = State.trace_state.Value │
00:02:38 verbose #14220 > │ let v13 : US2 = v10.l0 │
00:02:38 verbose #14221 > │ let v14 : bool = v9.l0 │
00:02:38 verbose #14222 > │ let v15 : bool = v14 = false │
00:02:38 verbose #14223 > │ let v19 : bool = │
00:02:38 verbose #14224 > │ if v15 then │
00:02:38 verbose #14225 > │ false │
00:02:38 verbose #14226 > │ else │
00:02:38 verbose #14227 > │ let v16 : int32 = [ US2_0, 0; US2_1, 1; US2_2, 2; US2_3, 3; │
00:02:38 verbose #14228 > │ US2_4, 4 ] |> Map |> Map.find v0 │
00:02:38 verbose #14229 > │ let v17 : int32 = [ US2_0, 0; US2_1, 1; US2_2, 2; US2_3, 3; │
00:02:38 verbose #14230 > │ US2_4, 4 ] |> Map |> Map.find v13 │
00:02:38 verbose #14231 > │ let v18 : bool = v16 >= v17 │
00:02:38 verbose #14232 > │ v18 │
00:02:38 verbose #14233 > │ if v19 then │
00:02:38 verbose #14234 > │ let v20 : int64 = v3.l0 │
00:02:38 verbose #14235 > │ let v21 : int64 = v20 + 1L │
00:02:38 verbose #14236 > │ v3.l0 <- v21 │
00:02:38 verbose #14237 > │ let v22 : string = $"%s{v1 ()}" │
00:02:38 verbose #14238 > │ let v23 : unit option = None │
00:02:38 verbose #14239 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:02:38 verbose #14240 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14241 > │ let v25 : string = @"println!(""{}"", $0)" │
00:02:38 verbose #14242 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:02:38 verbose #14243 > │ () │
00:02:38 verbose #14244 > │ #endif │
00:02:38 verbose #14245 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14246 > │ let v26 : string = @"println!(""{}"", $0)" │
00:02:38 verbose #14247 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:02:38 verbose #14248 > │ () │
00:02:38 verbose #14249 > │ #endif │
00:02:38 verbose #14250 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14251 > │ let v27 : string = @"println!(""{}"", $0)" │
00:02:38 verbose #14252 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:02:38 verbose #14253 > │ () │
00:02:38 verbose #14254 > │ #endif │
00:02:38 verbose #14255 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14256 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14257 > │ System.Console.WriteLine v22 │
00:02:38 verbose #14258 > │ () │
00:02:38 verbose #14259 > │ #endif │
00:02:38 verbose #14260 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14261 > │ System.Console.WriteLine v22 │
00:02:38 verbose #14262 > │ () │
00:02:38 verbose #14263 > │ #endif │
00:02:38 verbose #14264 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:02:38 verbose #14265 > │ FABLE_COMPILER_DART │
00:02:38 verbose #14266 > │ Unchecked.defaultof<unit> │
00:02:38 verbose #14267 > │ () │
00:02:38 verbose #14268 > │ #endif │
00:02:38 verbose #14269 > │ |> fun x -> _v23 <- Some x │
00:02:38 verbose #14270 > │ _v23.Value │
00:02:38 verbose #14271 > │ let v28 : (string -> unit) = v7.l0 │
00:02:38 verbose #14272 > │ v28 v22 │
00:02:38 verbose #14273 > │ and method2 (v0 : US2, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:02:38 verbose #14274 > │ = │
00:02:38 verbose #14275 > │ let v3 : (unit -> string) = closure6(v0, v1, v2) │
00:02:38 verbose #14276 > │ method7(v0, v3) │
00:02:38 verbose #14277 > │ and closure2 (v0 : int32) (v1 : exn) : US1 = │
00:02:38 verbose #14278 > │ let v2 : US2 = US2_3 │
00:02:38 verbose #14279 > │ let v3 : (unit -> string) = closure3() │
00:02:38 verbose #14280 > │ let v4 : (unit -> string) = closure4(v0, v1) │
00:02:38 verbose #14281 > │ method2(v2, v3, v4) │
00:02:38 verbose #14282 > │ let v5 : unit option = None │
00:02:38 verbose #14283 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:02:38 verbose #14284 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14285 > │ () │
00:02:38 verbose #14286 > │ #endif │
00:02:38 verbose #14287 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14288 > │ () │
00:02:38 verbose #14289 > │ #endif │
00:02:38 verbose #14290 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14291 > │ () │
00:02:38 verbose #14292 > │ #endif │
00:02:38 verbose #14293 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14294 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14295 > │ let v7 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:38 verbose #14296 > │ v7 1 │
00:02:38 verbose #14297 > │ () │
00:02:38 verbose #14298 > │ #endif │
00:02:38 verbose #14299 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14300 > │ () │
00:02:38 verbose #14301 > │ #endif │
00:02:38 verbose #14302 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 verbose #14303 > │ Unchecked.defaultof<unit> │
00:02:38 verbose #14304 > │ () │
00:02:38 verbose #14305 > │ #endif │
00:02:38 verbose #14306 > │ |> fun x -> _v5 <- Some x │
00:02:38 verbose #14307 > │ _v5.Value │
00:02:38 verbose #14308 > │ US1_1 │
00:02:38 verbose #14309 > │ and method1 (v0 : Mut0, v1 : int32) : US0 = │
00:02:38 verbose #14310 > │ let v2 : (unit -> US0) = closure0(v0, v1) │
00:02:38 verbose #14311 > │ let v3 : (US0 -> US1) = closure1() │
00:02:38 verbose #14312 > │ let v4 : (exn -> US1) = closure2(v1) │
00:02:38 verbose #14313 > │ let v5 : US1 = try v2 () |> v3 with ex -> v4 ex │
00:02:38 verbose #14314 > │ match v5 with │
00:02:38 verbose #14315 > │ | US1_1 -> (* None *) │
00:02:38 verbose #14316 > │ let v7 : int32 = v1 + 1 │
00:02:38 verbose #14317 > │ method1(v0, v7) │
00:02:38 verbose #14318 > │ | US1_0(v6) -> (* Some *) │
00:02:38 verbose #14319 > │ v6 │
00:02:38 verbose #14320 > │ and method8 (v0 : bool) : bool = │
00:02:38 verbose #14321 > │ v0 │
00:02:38 verbose #14322 > │ and method0 () : unit = │
00:02:38 verbose #14323 > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:38 verbose #14324 > │ let v1 : int32 = 0 │
00:02:38 verbose #14325 > │ let v2 : US0 = method1(v0, v1) │
00:02:38 verbose #14326 > │ let v3 : string = $"%A{v2}" │
00:02:38 verbose #14327 > │ System.Console.WriteLine v3 │
00:02:38 verbose #14328 > │ let v7 : bool = │
00:02:38 verbose #14329 > │ match v2 with │
00:02:38 verbose #14330 > │ | US0_0(v5) -> (* Some *) │
00:02:38 verbose #14331 > │ let v6 : bool = v5 = 2 │
00:02:38 verbose #14332 > │ v6 │
00:02:38 verbose #14333 > │ | _ -> │
00:02:38 verbose #14334 > │ false │
00:02:38 verbose #14335 > │ let v9 : bool = │
00:02:38 verbose #14336 > │ if v7 then │
00:02:38 verbose #14337 > │ true │
00:02:38 verbose #14338 > │ else │
00:02:38 verbose #14339 > │ method8(v7) │
00:02:38 verbose #14340 > │ let v10 : US0 = US0_0(2) │
00:02:38 verbose #14341 > │ let v11 : string = $"__expect / actual: %A{v2} / expected: %A{v10}" │
00:02:38 verbose #14342 > │ let v12 : bool = v9 = false │
00:02:38 verbose #14343 > │ if v12 then │
00:02:38 verbose #14344 > │ failwith<unit> v11 │
00:02:38 verbose #14345 > │ method0() │
00:02:38 verbose #14346 > │ │
00:02:38 verbose #14347 > │ 00:00:00 warning #1 retry_fn / retry: 0 / ex: System.Exception: test │
00:02:38 verbose #14348 > │ at FSI_0045.closure0(Mut0 v0, Int32 v1, Unit unitVar2) │
00:02:38 verbose #14349 > │ at FSI_0045.method1(Mut0 v0, Int32 v1) │
00:02:38 verbose #14350 > │ 00:00:00 warning #2 retry_fn / retry: 1 / ex: System.Exception: test │
00:02:38 verbose #14351 > │ at FSI_0045.closure0(Mut0 v0, Int32 v1, Unit unitVar2) │
00:02:38 verbose #14352 > │ at FSI_0045.method1(Mut0 v0, Int32 v1) │
00:02:38 verbose #14353 > │ US0_0 2 │
00:02:38 verbose #14354 > │ │
00:02:38 verbose #14355 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 verbose #14356 >
00:02:38 verbose #14357 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:38 verbose #14358 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:38 verbose #14359 > │ ## main │
00:02:38 verbose #14360 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 verbose #14361 >
00:02:38 verbose #14362 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #14363 > inl main () =
00:02:38 verbose #14364 > types ()
00:02:38 verbose #14365 > init_trace_state ()
00:02:38 verbose #14366 > inl new_disposable x : _ () = new_disposable x
00:02:38 verbose #14367 > $"let new_disposable x = !new_disposable x" : ()
00:02:38 verbose #14368 >
00:02:38 verbose #14369 > inl retry_fn (r : i32) (x : () -> _) : optionm'.option' () = retry_fn r x |>
00:02:38 verbose #14370 > optionm'.box
00:02:38 verbose #14371 > $"let retry_fn x = !retry_fn x" : ()
00:02:38 verbose #14372 > 00:02:37 debug #173 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/db46da45b158734285945fa175283640956509262539c306ff7eb8af901e32a9/main.spi
00:02:38 verbose #14373 >
00:02:38 verbose #14374 > ╭─[ 444.62ms - stdout ]────────────────────────────────────────────────────────╮
00:02:38 verbose #14375 > │ #if FABLE_COMPILER // common.types │
00:02:38 verbose #14376 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:02:38 verbose #14377 > │ end │
00:02:38 verbose #14378 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:02:38 verbose #14379 > │ class end │
00:02:38 verbose #14380 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:02:38 verbose #14381 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:02:38 verbose #14382 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:02:38 verbose #14383 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:02:38 verbose #14384 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:02:38 verbose #14385 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:02:38 verbose #14386 > │ class end │
00:02:38 verbose #14387 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:02:38 verbose #14388 > │ end │
00:02:38 verbose #14389 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:02:38 verbose #14390 > │ class end │
00:02:38 verbose #14391 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:02:38 verbose #14392 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:02:38 verbose #14393 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:02:38 verbose #14394 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:02:38 verbose #14395 > │ class end │
00:02:38 verbose #14396 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:02:38 verbose #14397 > │ class end │
00:02:38 verbose #14398 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:02:38 verbose #14399 > │ class end │
00:02:38 verbose #14400 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:02:38 verbose #14401 > │ std_cell_RefCell<'T> = class end │
00:02:38 verbose #14402 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:02:38 verbose #14403 > │ std_pin_Pin<'T> = class end │
00:02:38 verbose #14404 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:02:38 verbose #14405 > │ = class end │
00:02:38 verbose #14406 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:02:38 verbose #14407 > │ std_rc_Weak<'T> = class end │
00:02:38 verbose #14408 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:02:38 verbose #14409 > │ std_sync_Arc<'T> = class end │
00:02:38 verbose #14410 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:02:38 verbose #14411 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:02:38 verbose #14412 > │ base64_DecodeError = class end │
00:02:38 verbose #14413 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:02:38 verbose #14414 > │ borsh_io_Error = class end │
00:02:38 verbose #14415 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:02:38 verbose #14416 > │ js_sys_JsString = class end │
00:02:38 verbose #14417 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:02:38 verbose #14418 > │ serde_json_Error = class end │
00:02:38 verbose #14419 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:02:38 verbose #14420 > │ serde_json_Value = class end │
00:02:38 verbose #14421 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:02:38 verbose #14422 > │ serde_wasm_bindgen_Error = class end │
00:02:38 verbose #14423 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:02:38 verbose #14424 > │ = class end │
00:02:38 verbose #14425 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:02:38 verbose #14426 > │ std_ffi_OsString = class end │
00:02:38 verbose #14427 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:02:38 verbose #14428 > │ std_str_Utf8Error = class end │
00:02:38 verbose #14429 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:02:38 verbose #14430 > │ std_string_String = class end │
00:02:38 verbose #14431 > │ #endif // common.types │
00:02:38 verbose #14432 > │ module State = let mutable trace_state = None │
00:02:38 verbose #14433 > │ type Mut0 = {mutable l0 : int64} │
00:02:38 verbose #14434 > │ and Mut1 = {mutable l0 : bool} │
00:02:38 verbose #14435 > │ and [<Struct>] US0 = │
00:02:38 verbose #14436 > │ | US0_0 │
00:02:38 verbose #14437 > │ | US0_1 │
00:02:38 verbose #14438 > │ | US0_2 │
00:02:38 verbose #14439 > │ | US0_3 │
00:02:38 verbose #14440 > │ | US0_4 │
00:02:38 verbose #14441 > │ and Mut2 = {mutable l0 : US0} │
00:02:38 verbose #14442 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:02:38 verbose #14443 > │ and [<Struct>] US1 = │
00:02:38 verbose #14444 > │ | US1_0 of f0_0 : int64 │
00:02:38 verbose #14445 > │ | US1_1 │
00:02:38 verbose #14446 > │ and [<Struct>] US2 = │
00:02:38 verbose #14447 > │ | US2_0 │
00:02:38 verbose #14448 > │ | US2_1 │
00:02:38 verbose #14449 > │ and [<Struct>] US3 = │
00:02:38 verbose #14450 > │ | US3_0 of f0_0 : US2 │
00:02:38 verbose #14451 > │ | US3_1 │
00:02:38 verbose #14452 > │ and [<Struct>] US4 = │
00:02:38 verbose #14453 > │ | US4_0 of f0_0 : int64 │
00:02:38 verbose #14454 > │ | US4_1 │
00:02:38 verbose #14455 > │ let rec closure1 () (v0 : string) : unit = │
00:02:38 verbose #14456 > │ () │
00:02:38 verbose #14457 > │ and method0 (v0 : int64 option) : int64 option = │
00:02:38 verbose #14458 > │ v0 │
00:02:38 verbose #14459 > │ and method1 (v0 : int64 option) : int64 option = │
00:02:38 verbose #14460 > │ v0 │
00:02:38 verbose #14461 > │ and closure0 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:02:38 verbose #14462 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:02:38 verbose #14463 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:02:38 verbose #14464 > │ let v2 : US0 = US0_0 │
00:02:38 verbose #14465 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:02:38 verbose #14466 > │ let v4 : (string -> unit) = closure1() │
00:02:38 verbose #14467 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:02:38 verbose #14468 > │ let v6 : int64 option option = None │
00:02:38 verbose #14469 > │ let mutable _v6 = v6 │
00:02:38 verbose #14470 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:02:38 verbose #14471 > │ let v7 : string option = None │
00:02:38 verbose #14472 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:02:38 verbose #14473 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14474 > │ let v9 : string = null |> unbox<string> │
00:02:38 verbose #14475 > │ v9 │
00:02:38 verbose #14476 > │ #endif │
00:02:38 verbose #14477 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14478 > │ let v10 : string = null |> unbox<string> │
00:02:38 verbose #14479 > │ v10 │
00:02:38 verbose #14480 > │ #endif │
00:02:38 verbose #14481 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14482 > │ let v11 : string = null |> unbox<string> │
00:02:38 verbose #14483 > │ v11 │
00:02:38 verbose #14484 > │ #endif │
00:02:38 verbose #14485 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14486 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14487 > │ let v12 : string = │
00:02:38 verbose #14488 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:02:38 verbose #14489 > │ v12 │
00:02:38 verbose #14490 > │ #endif │
00:02:38 verbose #14491 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14492 > │ let v13 : string = null |> unbox<string> │
00:02:38 verbose #14493 > │ v13 │
00:02:38 verbose #14494 > │ #endif │
00:02:38 verbose #14495 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 verbose #14496 > │ let v14 : string = Unchecked.defaultof<string> │
00:02:38 verbose #14497 > │ v14 │
00:02:38 verbose #14498 > │ #endif │
00:02:38 verbose #14499 > │ |> fun x -> _v7 <- Some x │
00:02:38 verbose #14500 > │ let v15 : string = _v7.Value │
00:02:38 verbose #14501 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:02:38 verbose #14502 > │ let v18 : bool = v17 <> true │
00:02:38 verbose #14503 > │ let v24 : US1 = │
00:02:38 verbose #14504 > │ if v18 then │
00:02:38 verbose #14505 > │ let v19 : System.DateTime = System.DateTime.Now │
00:02:38 verbose #14506 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:02:38 verbose #14507 > │ let v21 : int64 = v20 v19 │
00:02:38 verbose #14508 > │ US1_0(v21) │
00:02:38 verbose #14509 > │ else │
00:02:38 verbose #14510 > │ US1_1 │
00:02:38 verbose #14511 > │ let v29 : int64 option = │
00:02:38 verbose #14512 > │ match v24 with │
00:02:38 verbose #14513 > │ | US1_1 -> (* None *) │
00:02:38 verbose #14514 > │ let v27 : int64 option = None │
00:02:38 verbose #14515 > │ v27 │
00:02:38 verbose #14516 > │ | US1_0(v25) -> (* Some *) │
00:02:38 verbose #14517 > │ let v26 : int64 option = Some v25 │
00:02:38 verbose #14518 > │ v26 │
00:02:38 verbose #14519 > │ let v30 : int64 option = method0(v29) │
00:02:38 verbose #14520 > │ v30 │
00:02:38 verbose #14521 > │ #else │
00:02:38 verbose #14522 > │ let v31 : int64 option = None │
00:02:38 verbose #14523 > │ let v32 : int64 option = method1(v31) │
00:02:38 verbose #14524 > │ v32 │
00:02:38 verbose #14525 > │ #endif │
00:02:38 verbose #14526 > │ |> fun x -> _v6 <- Some x │
00:02:38 verbose #14527 > │ let v33 : int64 option = _v6.Value │
00:02:38 verbose #14528 > │ struct (v1, v0, v3, v33, v5) │
00:02:38 verbose #14529 > │ and closure2 () (v0 : (unit -> unit)) : System.IDisposable = │
00:02:38 verbose #14530 > │ let v1 : System.IDisposable option = None │
00:02:38 verbose #14531 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:02:38 verbose #14532 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14533 > │ let v3 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:38 verbose #14534 > │ v3 │
00:02:38 verbose #14535 > │ #endif │
00:02:38 verbose #14536 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14537 > │ let v4 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:38 verbose #14538 > │ v4 │
00:02:38 verbose #14539 > │ #endif │
00:02:38 verbose #14540 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14541 > │ let v5 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:38 verbose #14542 > │ v5 │
00:02:38 verbose #14543 > │ #endif │
00:02:38 verbose #14544 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14545 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14546 > │ let v6 : System.IDisposable = { new System.IDisposable with member │
00:02:38 verbose #14547 > │ _.Dispose () = v0 () } │
00:02:38 verbose #14548 > │ v6 │
00:02:38 verbose #14549 > │ #endif │
00:02:38 verbose #14550 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14551 > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:38 verbose #14552 > │ v7 │
00:02:38 verbose #14553 > │ #endif │
00:02:38 verbose #14554 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 verbose #14555 > │ let v8 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:38 verbose #14556 > │ v8 │
00:02:38 verbose #14557 > │ #endif │
00:02:38 verbose #14558 > │ |> fun x -> _v1 <- Some x │
00:02:38 verbose #14559 > │ let v9 : System.IDisposable = _v1.Value │
00:02:38 verbose #14560 > │ v9 │
00:02:38 verbose #14561 > │ and closure5 (v0 : int32, v1 : (unit -> unit), v2 : int32) () : US2 = │
00:02:38 verbose #14562 > │ let v3 : bool = v2 < v0 │
00:02:38 verbose #14563 > │ if v3 then │
00:02:38 verbose #14564 > │ v1 () │
00:02:38 verbose #14565 > │ US2_0 │
00:02:38 verbose #14566 > │ else │
00:02:38 verbose #14567 > │ US2_1 │
00:02:38 verbose #14568 > │ and closure6 () (v0 : US2) : US3 = │
00:02:38 verbose #14569 > │ US3_0(v0) │
00:02:38 verbose #14570 > │ and closure8 () () : string = │
00:02:38 verbose #14571 > │ let v0 : string = "retry_fn" │
00:02:38 verbose #14572 > │ v0 │
00:02:38 verbose #14573 > │ and closure10 () () : string = │
00:02:38 verbose #14574 > │ let v0 : string = "" │
00:02:38 verbose #14575 > │ v0 │
00:02:38 verbose #14576 > │ and closure9 (v0 : int32, v1 : exn) () : string = │
00:02:38 verbose #14577 > │ let v2 : (unit -> string) = closure10() │
00:02:38 verbose #14578 > │ let v3 : string = $"retry: {v0} / ex: %A{v1} / {v2 ()}" │
00:02:38 verbose #14579 > │ v3 │
00:02:38 verbose #14580 > │ and closure12 () (v0 : int64) : US4 = │
00:02:38 verbose #14581 > │ US4_0(v0) │
00:02:38 verbose #14582 > │ and method4 () : (int64 -> US4) = │
00:02:38 verbose #14583 > │ closure12() │
00:02:38 verbose #14584 > │ and method5 () : string = │
00:02:38 verbose #14585 > │ let v0 : string = "" │
00:02:38 verbose #14586 > │ v0 │
00:02:38 verbose #14587 > │ and closure11 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:02:38 verbose #14588 > │ string = │
00:02:38 verbose #14589 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:02:38 verbose #14590 > │ closure0() │
00:02:38 verbose #14591 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:02:38 verbose #14592 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:02:38 verbose #14593 > │ Mut3) = State.trace_state.Value │
00:02:38 verbose #14594 > │ let v9 : string option = None │
00:02:38 verbose #14595 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:02:38 verbose #14596 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14597 > │ let v11 : (int64 -> US4) = method4() │
00:02:38 verbose #14598 > │ let v12 : US4 = US4_1 │
00:02:38 verbose #14599 > │ let v13 : US4 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:02:38 verbose #14600 > │ let v31 : System.DateTime = │
00:02:38 verbose #14601 > │ match v13 with │
00:02:38 verbose #14602 > │ | US4_1 -> (* None *) │
00:02:38 verbose #14603 > │ let v29 : System.DateTime = System.DateTime.Now │
00:02:38 verbose #14604 > │ v29 │
00:02:38 verbose #14605 > │ | US4_0(v14) -> (* Some *) │
00:02:38 verbose #14606 > │ let v15 : System.DateTime = System.DateTime.Now │
00:02:38 verbose #14607 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:02:38 verbose #14608 > │ let v17 : int64 = v16 v15 │
00:02:38 verbose #14609 > │ let v18 : int64 = v17 - v14 │
00:02:38 verbose #14610 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:02:38 verbose #14611 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:02:38 verbose #14612 > │ let v21 : int32 = v20 v19 │
00:02:38 verbose #14613 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:02:38 verbose #14614 > │ let v23 : int32 = v22 v19 │
00:02:38 verbose #14615 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:02:38 verbose #14616 > │ let v25 : int32 = v24 v19 │
00:02:38 verbose #14617 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:02:38 verbose #14618 > │ let v27 : int32 = v26 v19 │
00:02:38 verbose #14619 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:02:38 verbose #14620 > │ v25, v27) │
00:02:38 verbose #14621 > │ v28 │
00:02:38 verbose #14622 > │ let v32 : string = "hh:mm:ss" │
00:02:38 verbose #14623 > │ let v33 : string = v31.ToString v32 │
00:02:38 verbose #14624 > │ v33 │
00:02:38 verbose #14625 > │ #endif │
00:02:38 verbose #14626 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14627 > │ let v34 : string = method5() │
00:02:38 verbose #14628 > │ v34 │
00:02:38 verbose #14629 > │ #endif │
00:02:38 verbose #14630 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14631 > │ let v35 : string = method5() │
00:02:38 verbose #14632 > │ v35 │
00:02:38 verbose #14633 > │ #endif │
00:02:38 verbose #14634 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14635 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14636 > │ let v36 : (int64 -> US4) = method4() │
00:02:38 verbose #14637 > │ let v37 : US4 = US4_1 │
00:02:38 verbose #14638 > │ let v38 : US4 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:02:38 verbose #14639 > │ let v56 : System.DateTime = │
00:02:38 verbose #14640 > │ match v38 with │
00:02:38 verbose #14641 > │ | US4_1 -> (* None *) │
00:02:38 verbose #14642 > │ let v54 : System.DateTime = System.DateTime.Now │
00:02:38 verbose #14643 > │ v54 │
00:02:38 verbose #14644 > │ | US4_0(v39) -> (* Some *) │
00:02:38 verbose #14645 > │ let v40 : System.DateTime = System.DateTime.Now │
00:02:38 verbose #14646 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:02:38 verbose #14647 > │ let v42 : int64 = v41 v40 │
00:02:38 verbose #14648 > │ let v43 : int64 = v42 - v39 │
00:02:38 verbose #14649 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:02:38 verbose #14650 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:02:38 verbose #14651 > │ let v46 : int32 = v45 v44 │
00:02:38 verbose #14652 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:02:38 verbose #14653 > │ let v48 : int32 = v47 v44 │
00:02:38 verbose #14654 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:02:38 verbose #14655 > │ let v50 : int32 = v49 v44 │
00:02:38 verbose #14656 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:02:38 verbose #14657 > │ let v52 : int32 = v51 v44 │
00:02:38 verbose #14658 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:02:38 verbose #14659 > │ v50, v52) │
00:02:38 verbose #14660 > │ v53 │
00:02:38 verbose #14661 > │ let v57 : string = "HH:mm:ss" │
00:02:38 verbose #14662 > │ let v58 : string = v56.ToString v57 │
00:02:38 verbose #14663 > │ v58 │
00:02:38 verbose #14664 > │ #endif │
00:02:38 verbose #14665 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14666 > │ let v59 : string = method5() │
00:02:38 verbose #14667 > │ v59 │
00:02:38 verbose #14668 > │ #endif │
00:02:38 verbose #14669 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 verbose #14670 > │ let v60 : string = Unchecked.defaultof<string> │
00:02:38 verbose #14671 > │ v60 │
00:02:38 verbose #14672 > │ #endif │
00:02:38 verbose #14673 > │ |> fun x -> _v9 <- Some x │
00:02:38 verbose #14674 > │ let v61 : string = _v9.Value │
00:02:38 verbose #14675 > │ let v62 : int64 = v4.l0 │
00:02:38 verbose #14676 > │ let v72 : string = │
00:02:38 verbose #14677 > │ match v0 with │
00:02:38 verbose #14678 > │ | US0_4 -> (* Critical *) │
00:02:38 verbose #14679 > │ let v67 : string = "Critical" │
00:02:38 verbose #14680 > │ v67 │
00:02:38 verbose #14681 > │ | US0_1 -> (* Debug *) │
00:02:38 verbose #14682 > │ let v64 : string = "Debug" │
00:02:38 verbose #14683 > │ v64 │
00:02:38 verbose #14684 > │ | US0_2 -> (* Info *) │
00:02:38 verbose #14685 > │ let v65 : string = "Info" │
00:02:38 verbose #14686 > │ v65 │
00:02:38 verbose #14687 > │ | US0_0 -> (* Verbose *) │
00:02:38 verbose #14688 > │ let v63 : string = "Verbose" │
00:02:38 verbose #14689 > │ v63 │
00:02:38 verbose #14690 > │ | US0_3 -> (* Warning *) │
00:02:38 verbose #14691 > │ let v66 : string = "Warning" │
00:02:38 verbose #14692 > │ v66 │
00:02:38 verbose #14693 > │ let v73 : string = v72.ToLower () │
00:02:38 verbose #14694 > │ let v74 : string option = None │
00:02:38 verbose #14695 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:02:38 verbose #14696 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14697 > │ let v90 : Ref<Str> = │
00:02:38 verbose #14698 > │ match v0 with │
00:02:38 verbose #14699 > │ | US0_4 -> (* Critical *) │
00:02:38 verbose #14700 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:02:38 verbose #14701 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:02:38 verbose #14702 > │ v85 │
00:02:38 verbose #14703 > │ | US0_1 -> (* Debug *) │
00:02:38 verbose #14704 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:02:38 verbose #14705 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:02:38 verbose #14706 > │ v79 │
00:02:38 verbose #14707 > │ | US0_2 -> (* Info *) │
00:02:38 verbose #14708 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:02:38 verbose #14709 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:02:38 verbose #14710 > │ v81 │
00:02:38 verbose #14711 > │ | US0_0 -> (* Verbose *) │
00:02:38 verbose #14712 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:02:38 verbose #14713 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:38 verbose #14714 > │ v77 │
00:02:38 verbose #14715 > │ | US0_3 -> (* Warning *) │
00:02:38 verbose #14716 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:02:38 verbose #14717 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:02:38 verbose #14718 > │ v83 │
00:02:38 verbose #14719 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:38 verbose #14720 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:02:38 verbose #14721 > │ let v93 : string = "inline_colorization::color_reset" │
00:02:38 verbose #14722 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:02:38 verbose #14723 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:02:38 verbose #14724 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:02:38 verbose #14725 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:02:38 verbose #14726 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:02:38 verbose #14727 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:02:38 verbose #14728 > │ v99 │
00:02:38 verbose #14729 > │ #endif │
00:02:38 verbose #14730 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14731 > │ let v114 : Ref<Str> = │
00:02:38 verbose #14732 > │ match v0 with │
00:02:38 verbose #14733 > │ | US0_4 -> (* Critical *) │
00:02:38 verbose #14734 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:02:38 verbose #14735 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14736 > │ v108 │
00:02:38 verbose #14737 > │ v109 │
00:02:38 verbose #14738 > │ | US0_1 -> (* Debug *) │
00:02:38 verbose #14739 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:02:38 verbose #14740 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14741 > │ v102 │
00:02:38 verbose #14742 > │ v103 │
00:02:38 verbose #14743 > │ | US0_2 -> (* Info *) │
00:02:38 verbose #14744 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:02:38 verbose #14745 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14746 > │ v104 │
00:02:38 verbose #14747 > │ v105 │
00:02:38 verbose #14748 > │ | US0_0 -> (* Verbose *) │
00:02:38 verbose #14749 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:02:38 verbose #14750 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14751 > │ v100 │
00:02:38 verbose #14752 > │ v101 │
00:02:38 verbose #14753 > │ | US0_3 -> (* Warning *) │
00:02:38 verbose #14754 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:02:38 verbose #14755 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14756 > │ v106 │
00:02:38 verbose #14757 > │ v107 │
00:02:38 verbose #14758 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:38 verbose #14759 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:02:38 verbose #14760 > │ let v117 : string = "inline_colorization::color_reset" │
00:02:38 verbose #14761 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:02:38 verbose #14762 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:02:38 verbose #14763 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:02:38 verbose #14764 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14765 > │ v120 │
00:02:38 verbose #14766 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:02:38 verbose #14767 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:02:38 verbose #14768 > │ v123 │
00:02:38 verbose #14769 > │ #endif │
00:02:38 verbose #14770 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14771 > │ let v138 : Ref<Str> = │
00:02:38 verbose #14772 > │ match v0 with │
00:02:38 verbose #14773 > │ | US0_4 -> (* Critical *) │
00:02:38 verbose #14774 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:02:38 verbose #14775 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14776 > │ v132 │
00:02:38 verbose #14777 > │ v133 │
00:02:38 verbose #14778 > │ | US0_1 -> (* Debug *) │
00:02:38 verbose #14779 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:02:38 verbose #14780 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14781 > │ v126 │
00:02:38 verbose #14782 > │ v127 │
00:02:38 verbose #14783 > │ | US0_2 -> (* Info *) │
00:02:38 verbose #14784 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:02:38 verbose #14785 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14786 > │ v128 │
00:02:38 verbose #14787 > │ v129 │
00:02:38 verbose #14788 > │ | US0_0 -> (* Verbose *) │
00:02:38 verbose #14789 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:02:38 verbose #14790 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14791 > │ v124 │
00:02:38 verbose #14792 > │ v125 │
00:02:38 verbose #14793 > │ | US0_3 -> (* Warning *) │
00:02:38 verbose #14794 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:02:38 verbose #14795 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14796 > │ v130 │
00:02:38 verbose #14797 > │ v131 │
00:02:38 verbose #14798 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:38 verbose #14799 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:02:38 verbose #14800 > │ let v141 : string = "inline_colorization::color_reset" │
00:02:38 verbose #14801 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:02:38 verbose #14802 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:02:38 verbose #14803 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:02:38 verbose #14804 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:02:38 verbose #14805 > │ v144 │
00:02:38 verbose #14806 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:02:38 verbose #14807 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:02:38 verbose #14808 > │ v147 │
00:02:38 verbose #14809 > │ #endif │
00:02:38 verbose #14810 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14811 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14812 > │ v73 │
00:02:38 verbose #14813 > │ #endif │
00:02:38 verbose #14814 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14815 > │ v73 │
00:02:38 verbose #14816 > │ #endif │
00:02:38 verbose #14817 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 verbose #14818 > │ let v148 : string = Unchecked.defaultof<string> │
00:02:38 verbose #14819 > │ v148 │
00:02:38 verbose #14820 > │ #endif │
00:02:38 verbose #14821 > │ |> fun x -> _v74 <- Some x │
00:02:38 verbose #14822 > │ let v149 : string = _v74.Value │
00:02:38 verbose #14823 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:02:38 verbose #14824 > │ let v151 : (char []) = [||] │
00:02:38 verbose #14825 > │ let v152 : string = v150.TrimStart v151 │
00:02:38 verbose #14826 > │ let v153 : (char []) = [|' '; '/'|] │
00:02:38 verbose #14827 > │ let v154 : string = v152.TrimEnd v153 │
00:02:38 verbose #14828 > │ v154 │
00:02:38 verbose #14829 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:02:38 verbose #14830 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:02:38 verbose #14831 > │ closure0() │
00:02:38 verbose #14832 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:02:38 verbose #14833 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:02:38 verbose #14834 > │ Mut3) = State.trace_state.Value │
00:02:38 verbose #14835 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:02:38 verbose #14836 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:02:38 verbose #14837 > │ Mut3) = State.trace_state.Value │
00:02:38 verbose #14838 > │ let v13 : US0 = v10.l0 │
00:02:38 verbose #14839 > │ let v14 : bool = v9.l0 │
00:02:38 verbose #14840 > │ let v15 : bool = v14 = false │
00:02:38 verbose #14841 > │ let v19 : bool = │
00:02:38 verbose #14842 > │ if v15 then │
00:02:38 verbose #14843 > │ false │
00:02:38 verbose #14844 > │ else │
00:02:38 verbose #14845 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:02:38 verbose #14846 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:02:38 verbose #14847 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:02:38 verbose #14848 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:02:38 verbose #14849 > │ let v18 : bool = v16 >= v17 │
00:02:38 verbose #14850 > │ v18 │
00:02:38 verbose #14851 > │ if v19 then │
00:02:38 verbose #14852 > │ let v20 : int64 = v3.l0 │
00:02:38 verbose #14853 > │ let v21 : int64 = v20 + 1L │
00:02:38 verbose #14854 > │ v3.l0 <- v21 │
00:02:38 verbose #14855 > │ let v22 : string = $"%s{v1 ()}" │
00:02:38 verbose #14856 > │ let v23 : unit option = None │
00:02:38 verbose #14857 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:02:38 verbose #14858 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14859 > │ let v25 : string = @"println!(""{}"", $0)" │
00:02:38 verbose #14860 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:02:38 verbose #14861 > │ () │
00:02:38 verbose #14862 > │ #endif │
00:02:38 verbose #14863 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14864 > │ let v26 : string = @"println!(""{}"", $0)" │
00:02:38 verbose #14865 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:02:38 verbose #14866 > │ () │
00:02:38 verbose #14867 > │ #endif │
00:02:38 verbose #14868 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14869 > │ let v27 : string = @"println!(""{}"", $0)" │
00:02:38 verbose #14870 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:02:38 verbose #14871 > │ () │
00:02:38 verbose #14872 > │ #endif │
00:02:38 verbose #14873 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14874 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14875 > │ System.Console.WriteLine v22 │
00:02:38 verbose #14876 > │ () │
00:02:38 verbose #14877 > │ #endif │
00:02:38 verbose #14878 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14879 > │ System.Console.WriteLine v22 │
00:02:38 verbose #14880 > │ () │
00:02:38 verbose #14881 > │ #endif │
00:02:38 verbose #14882 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:02:38 verbose #14883 > │ FABLE_COMPILER_DART │
00:02:38 verbose #14884 > │ Unchecked.defaultof<unit> │
00:02:38 verbose #14885 > │ () │
00:02:38 verbose #14886 > │ #endif │
00:02:38 verbose #14887 > │ |> fun x -> _v23 <- Some x │
00:02:38 verbose #14888 > │ _v23.Value │
00:02:38 verbose #14889 > │ let v28 : (string -> unit) = v7.l0 │
00:02:38 verbose #14890 > │ v28 v22 │
00:02:38 verbose #14891 > │ and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:02:38 verbose #14892 > │ = │
00:02:38 verbose #14893 > │ let v3 : (unit -> string) = closure11(v0, v1, v2) │
00:02:38 verbose #14894 > │ method6(v0, v3) │
00:02:38 verbose #14895 > │ and closure7 (v0 : int32) (v1 : exn) : US3 = │
00:02:38 verbose #14896 > │ let v2 : US0 = US0_3 │
00:02:38 verbose #14897 > │ let v3 : (unit -> string) = closure8() │
00:02:38 verbose #14898 > │ let v4 : (unit -> string) = closure9(v0, v1) │
00:02:38 verbose #14899 > │ method3(v2, v3, v4) │
00:02:38 verbose #14900 > │ let v5 : unit option = None │
00:02:38 verbose #14901 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:02:38 verbose #14902 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:38 verbose #14903 > │ () │
00:02:38 verbose #14904 > │ #endif │
00:02:38 verbose #14905 > │ #if FABLE_COMPILER_RUST && WASM │
00:02:38 verbose #14906 > │ () │
00:02:38 verbose #14907 > │ #endif │
00:02:38 verbose #14908 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:38 verbose #14909 > │ () │
00:02:38 verbose #14910 > │ #endif │
00:02:38 verbose #14911 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:38 verbose #14912 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:38 verbose #14913 > │ let v7 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:38 verbose #14914 > │ v7 1 │
00:02:38 verbose #14915 > │ () │
00:02:38 verbose #14916 > │ #endif │
00:02:38 verbose #14917 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:38 verbose #14918 > │ () │
00:02:38 verbose #14919 > │ #endif │
00:02:38 verbose #14920 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:38 verbose #14921 > │ Unchecked.defaultof<unit> │
00:02:38 verbose #14922 > │ () │
00:02:38 verbose #14923 > │ #endif │
00:02:38 verbose #14924 > │ |> fun x -> _v5 <- Some x │
00:02:38 verbose #14925 > │ _v5.Value │
00:02:38 verbose #14926 > │ US3_1 │
00:02:38 verbose #14927 > │ and method2 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US2 = │
00:02:38 verbose #14928 > │ let v3 : (unit -> US2) = closure5(v0, v1, v2) │
00:02:38 verbose #14929 > │ let v4 : (US2 -> US3) = closure6() │
00:02:38 verbose #14930 > │ let v5 : (exn -> US3) = closure7(v2) │
00:02:38 verbose #14931 > │ let v6 : US3 = try v3 () |> v4 with ex -> v5 ex │
00:02:38 verbose #14932 > │ match v6 with │
00:02:38 verbose #14933 > │ | US3_1 -> (* None *) │
00:02:38 verbose #14934 > │ let v8 : int32 = v2 + 1 │
00:02:38 verbose #14935 > │ method2(v0, v1, v8) │
00:02:38 verbose #14936 > │ | US3_0(v7) -> (* Some *) │
00:02:38 verbose #14937 > │ v7 │
00:02:38 verbose #14938 > │ and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = │
00:02:38 verbose #14939 > │ let v2 : int32 = 0 │
00:02:38 verbose #14940 > │ let v3 : US2 = method2(v0, v1, v2) │
00:02:38 verbose #14941 > │ match v3 with │
00:02:38 verbose #14942 > │ | US2_1 -> (* None *) │
00:02:38 verbose #14943 > │ let v5 : unit option = None │
00:02:38 verbose #14944 > │ v5 │
00:02:38 verbose #14945 > │ | US2_0 -> (* Some *) │
00:02:38 verbose #14946 > │ let v4 : unit option = Some () │
00:02:38 verbose #14947 > │ v4 │
00:02:38 verbose #14948 > │ and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = │
00:02:38 verbose #14949 > │ closure4(v0) │
00:02:38 verbose #14950 > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:02:38 verbose #14951 > │ closure0() │
00:02:38 verbose #14952 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:02:38 verbose #14953 > │ let v1 : ((unit -> unit) -> System.IDisposable) = closure2() │
00:02:38 verbose #14954 > │ let new_disposable x = v1 x │
00:02:38 verbose #14955 > │ let v2 : (int32 -> ((unit -> unit) -> unit option)) = closure3() │
00:02:38 verbose #14956 > │ let retry_fn x = v2 x │
00:02:38 verbose #14957 > │ () │
00:02:38 verbose #14958 > │ │
00:02:38 verbose #14959 > │ │
00:02:38 verbose #14960 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 verbose #14961 > [NbConvertApp] Converting notebook common.dib.ipynb to html
00:02:40 verbose #14962 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:40 verbose #14963 > validate(nb)
00:02:41 verbose #14964 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:41 verbose #14965 > return _pygments_highlight(
00:02:41 verbose #14966 > [NbConvertApp] Writing 447493 bytes to common.dib.html
00:02:42 debug #14967 execute_with_options_async / exit_code: 0 / output.Length: 237653
00:02:42 debug #9 main / executeCommand / exitCode: 0
00:02:42 debug #14968 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 resultm.dib -Retries 3"", None,
None)
00:02:42 verbose #14969 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: resultm.dib / _args: [
00:02:42 verbose #14970 > "-Retries",
00:02:42 verbose #14971 > 3
00:02:42 verbose #14972 > ]
00:02:44 verbose #14973 >
00:02:44 verbose #14974 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:44 verbose #14975 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:44 verbose #14976 > │ # resultm │
00:02:44 verbose #14977 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 verbose #14978 >
00:02:44 verbose #14979 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 verbose #14980 > open rust_operators
00:02:47 verbose #14981 > 00:02:46 debug #174 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/509422cf3bb8a8cfc4cbb3c916e280922525b9b9428a427906e968efadb5b7b1/main.spi
00:02:48 verbose #14982 >
00:02:48 verbose #14983 > ╭─[ 3.79s - stdout ]───────────────────────────────────────────────────────────╮
00:02:48 verbose #14984 > │ () │
00:02:48 verbose #14985 > │ │
00:02:48 verbose #14986 > │ │
00:02:48 verbose #14987 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 verbose #14988 >
00:02:48 verbose #14989 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:48 verbose #14990 > // // test
00:02:48 verbose #14991 >
00:02:48 verbose #14992 > open testing
00:02:48 verbose #14993 > 00:02:48 debug #175 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/89a2ef849d6c3b2184af79b96248f5c4c02791c5063b63d0c53ad845fa512858/main.spi
00:02:48 verbose #14994 >
00:02:48 verbose #14995 > ╭─[ 261.10ms - stdout ]────────────────────────────────────────────────────────╮
00:02:48 verbose #14996 > │ () │
00:02:48 verbose #14997 > │ │
00:02:48 verbose #14998 > │ │
00:02:48 verbose #14999 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 verbose #15000 >
00:02:48 verbose #15001 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:48 verbose #15002 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:48 verbose #15003 > │ ## result' │
00:02:48 verbose #15004 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 verbose #15005 >
00:02:48 verbose #15006 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:48 verbose #15007 > nominal result' t u = $"Result<`t, `u>"
00:02:48 verbose #15008 > 00:02:48 debug #176 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/48372dbf0b18df3b6ee7f17e3c20aba44fa13dbde16877658a654940b8c11415/main.spi
00:02:49 verbose #15009 >
00:02:49 verbose #15010 > ╭─[ 254.75ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 verbose #15011 > │ () │
00:02:49 verbose #15012 > │ │
00:02:49 verbose #15013 > │ │
00:02:49 verbose #15014 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15015 >
00:02:49 verbose #15016 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:49 verbose #15017 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:49 verbose #15018 > │ ## from_option_error │
00:02:49 verbose #15019 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15020 >
00:02:49 verbose #15021 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 verbose #15022 > inl from_option_error error opt =
00:02:49 verbose #15023 > match opt with
00:02:49 verbose #15024 > | Some x => Ok x
00:02:49 verbose #15025 > | None => Error error
00:02:49 verbose #15026 > 00:02:48 debug #177 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fb78a31615a38e0fb1f43ee143486b05a08d9157a43be12852deb57427086ea9/main.spi
00:02:49 verbose #15027 >
00:02:49 verbose #15028 > ╭─[ 258.22ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 verbose #15029 > │ () │
00:02:49 verbose #15030 > │ │
00:02:49 verbose #15031 > │ │
00:02:49 verbose #15032 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15033 >
00:02:49 verbose #15034 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:49 verbose #15035 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:49 verbose #15036 > │ ## from_option │
00:02:49 verbose #15037 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15038 >
00:02:49 verbose #15039 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 verbose #15040 > inl from_option opt =
00:02:49 verbose #15041 > opt |> from_option_error "resultm.from_option / Option does not have a
00:02:49 verbose #15042 > value."
00:02:49 verbose #15043 > 00:02:48 debug #178 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/80b53f698dfad2deae6b6df59b1f2226d6aeac170c6b441ef45b5cc15d40f63d/main.spi
00:02:49 verbose #15044 >
00:02:49 verbose #15045 > ╭─[ 244.22ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 verbose #15046 > │ () │
00:02:49 verbose #15047 > │ │
00:02:49 verbose #15048 > │ │
00:02:49 verbose #15049 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15050 >
00:02:49 verbose #15051 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:49 verbose #15052 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:49 verbose #15053 > │ ## flatten_option │
00:02:49 verbose #15054 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15055 >
00:02:49 verbose #15056 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 verbose #15057 > inl flatten_option forall t u. (x : option (result (option t) u)) : result
00:02:49 verbose #15058 > (option t) u =
00:02:49 verbose #15059 > match x with
00:02:49 verbose #15060 > | Some (Error x) => Error x
00:02:49 verbose #15061 > | Some (Ok (Some x)) => Ok (Some x)
00:02:49 verbose #15062 > | _ => Ok None
00:02:49 verbose #15063 > 00:02:49 debug #179 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/61b456acfe80bdda378ce7f60648b8111277b048c21a8e901444b1819e11fe5b/main.spi
00:02:49 verbose #15064 >
00:02:49 verbose #15065 > ╭─[ 255.35ms - stdout ]────────────────────────────────────────────────────────╮
00:02:49 verbose #15066 > │ () │
00:02:49 verbose #15067 > │ │
00:02:49 verbose #15068 > │ │
00:02:49 verbose #15069 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15070 >
00:02:49 verbose #15071 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:49 verbose #15072 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:49 verbose #15073 > │ ## flatten │
00:02:49 verbose #15074 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #15075 >
00:02:49 verbose #15076 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 verbose #15077 > inl flatten forall t u. (x : result (result t u) u) : result t u =
00:02:49 verbose #15078 > match x with
00:02:49 verbose #15079 > | Ok x => x
00:02:49 verbose #15080 > | Error x => Error x
00:02:50 verbose #15081 > 00:02:49 debug #180 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b58c22565205fe64b15cabf1285bd31a3d594ac501559160a209b107440332a9/main.spi
00:02:50 verbose #15082 >
00:02:50 verbose #15083 > ╭─[ 256.01ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 verbose #15084 > │ () │
00:02:50 verbose #15085 > │ │
00:02:50 verbose #15086 > │ │
00:02:50 verbose #15087 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15088 >
00:02:50 verbose #15089 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #15090 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #15091 > │ ## get │
00:02:50 verbose #15092 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15093 >
00:02:50 verbose #15094 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #15095 > inl get forall t e. (source : result t e) : t =
00:02:50 verbose #15096 > match source with
00:02:50 verbose #15097 > | Ok x => x
00:02:50 verbose #15098 > | Error x => failwith $'$"resultm.get / Result value was Error: {!x}"'
00:02:50 verbose #15099 > 00:02:49 debug #181 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/80b175ea141c2e7524b69ce9d8555995bc88cc70b133f29f38d17ff22506847f/main.spi
00:02:50 verbose #15100 >
00:02:50 verbose #15101 > ╭─[ 229.12ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 verbose #15102 > │ () │
00:02:50 verbose #15103 > │ │
00:02:50 verbose #15104 > │ │
00:02:50 verbose #15105 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15106 >
00:02:50 verbose #15107 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #15108 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #15109 > │ ## map │
00:02:50 verbose #15110 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15111 >
00:02:50 verbose #15112 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #15113 > inl map forall t e u. (fn : t -> u) (source : result t e) : result u e =
00:02:50 verbose #15114 > match source with
00:02:50 verbose #15115 > | Ok x => x |> fn |> Ok
00:02:50 verbose #15116 > | Error x => Error x
00:02:50 verbose #15117 > 00:02:49 debug #182 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/100d1ed67d05f20233f0aa9b5890cc60edc938d649c6e9d66b4bfed14ec9994a/main.spi
00:02:50 verbose #15118 >
00:02:50 verbose #15119 > ╭─[ 251.89ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 verbose #15120 > │ () │
00:02:50 verbose #15121 > │ │
00:02:50 verbose #15122 > │ │
00:02:50 verbose #15123 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15124 >
00:02:50 verbose #15125 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #15126 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #15127 > │ ## map_error │
00:02:50 verbose #15128 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15129 >
00:02:50 verbose #15130 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #15131 > inl map_error forall t e u. (fn : e -> u) (source : result t e) : result t u =
00:02:50 verbose #15132 > match source with
00:02:50 verbose #15133 > | Ok x => Ok x
00:02:50 verbose #15134 > | Error x => x |> fn |> Error
00:02:50 verbose #15135 > 00:02:50 debug #183 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/02a3f363e95b033e26d1a770d906db5c57f770332311f2061b5c8b36b228f4a7/main.spi
00:02:50 verbose #15136 >
00:02:50 verbose #15137 > ╭─[ 216.57ms - stdout ]────────────────────────────────────────────────────────╮
00:02:50 verbose #15138 > │ () │
00:02:50 verbose #15139 > │ │
00:02:50 verbose #15140 > │ │
00:02:50 verbose #15141 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15142 >
00:02:50 verbose #15143 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #15144 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #15145 > │ ## map' │
00:02:50 verbose #15146 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #15147 >
00:02:50 verbose #15148 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #15149 > inl map' forall t e u. (fn : t -> u) (source : result' t e) : result' u e =
00:02:50 verbose #15150 > inl source = join source
00:02:50 verbose #15151 > !\\((source, fn), $'"$0.map(|x| $1(x))"')
00:02:50 verbose #15152 > 00:02:50 debug #184 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4f1ebe73e4fb33f47e99ab75de200f58714c446ad48b59a68744a082ec04933a/main.spi
00:02:51 verbose #15153 >
00:02:51 verbose #15154 > ╭─[ 264.74ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 verbose #15155 > │ () │
00:02:51 verbose #15156 > │ │
00:02:51 verbose #15157 > │ │
00:02:51 verbose #15158 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15159 >
00:02:51 verbose #15160 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 verbose #15161 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 verbose #15162 > │ ## map_error' │
00:02:51 verbose #15163 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15164 >
00:02:51 verbose #15165 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 verbose #15166 > inl map_error' forall t e u. (fn : e -> u) (source : result' t e) : result' t u
00:02:51 verbose #15167 > =
00:02:51 verbose #15168 > inl fn = join fn
00:02:51 verbose #15169 > !\\((source, fn), $'"$0.map_err(|x| $1(x))"')
00:02:51 verbose #15170 > 00:02:50 debug #185 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/05b218b39b22f9f05054115a8a9220172a510e9a2a2546e8bb712b4096284d0f/main.spi
00:02:51 verbose #15171 >
00:02:51 verbose #15172 > ╭─[ 227.26ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 verbose #15173 > │ () │
00:02:51 verbose #15174 > │ │
00:02:51 verbose #15175 > │ │
00:02:51 verbose #15176 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15177 >
00:02:51 verbose #15178 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 verbose #15179 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 verbose #15180 > │ ## unbox │
00:02:51 verbose #15181 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15182 >
00:02:51 verbose #15183 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 verbose #15184 > inl unbox forall t u. (x : result' t u) : result t u =
00:02:51 verbose #15185 > inl ok x : result t u = Ok x
00:02:51 verbose #15186 > inl error x : result t u = Error x
00:02:51 verbose #15187 > $"match !x with Ok x -> !ok x | Error x -> !error x"
00:02:51 verbose #15188 > 00:02:50 debug #186 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8848f1e40c263219a33db86ce0354dd314c120711df1625bdebbed0fd6f9070a/main.spi
00:02:51 verbose #15189 >
00:02:51 verbose #15190 > ╭─[ 253.15ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 verbose #15191 > │ () │
00:02:51 verbose #15192 > │ │
00:02:51 verbose #15193 > │ │
00:02:51 verbose #15194 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15195 >
00:02:51 verbose #15196 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 verbose #15197 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 verbose #15198 > │ ## box │
00:02:51 verbose #15199 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15200 >
00:02:51 verbose #15201 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 verbose #15202 > inl box forall t u. (x : result t u) : result' t u =
00:02:51 verbose #15203 > match x with
00:02:51 verbose #15204 > | Ok x => $"Ok !x"
00:02:51 verbose #15205 > | Error err => $"Error !err"
00:02:51 verbose #15206 > 00:02:51 debug #187 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6651a4651e685b0136736dab8c101999a16ad2e45f5150266117c6012f0110eb/main.spi
00:02:51 verbose #15207 >
00:02:51 verbose #15208 > ╭─[ 219.47ms - stdout ]────────────────────────────────────────────────────────╮
00:02:51 verbose #15209 > │ () │
00:02:51 verbose #15210 > │ │
00:02:51 verbose #15211 > │ │
00:02:51 verbose #15212 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15213 >
00:02:51 verbose #15214 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 verbose #15215 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 verbose #15216 > │ ## try' │
00:02:51 verbose #15217 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #15218 >
00:02:51 verbose #15219 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 verbose #15220 > inl try' forall t u. (x : result' t u) : t =
00:02:51 verbose #15221 > !\\(x, $'"$0?"')
00:02:51 verbose #15222 > 00:02:51 debug #188 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b9d7e5c7f0eb68a4a283e608ac8fe25ea1a97535d77996d4c3896d1d8a28109e/main.spi
00:02:52 verbose #15223 >
00:02:52 verbose #15224 > ╭─[ 193.54ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 verbose #15225 > │ () │
00:02:52 verbose #15226 > │ │
00:02:52 verbose #15227 > │ │
00:02:52 verbose #15228 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15229 >
00:02:52 verbose #15230 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 verbose #15231 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 verbose #15232 > │ ## unwrap' │
00:02:52 verbose #15233 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15234 >
00:02:52 verbose #15235 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #15236 > inl unwrap' forall t u. (x : result' t u) : t =
00:02:52 verbose #15237 > !\\(x, $'"$0.unwrap()"')
00:02:52 verbose #15238 > 00:02:51 debug #189 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0e55b95599e3d8dee15872ef8971b89fd53f15e53023c85c1d347a6e36db9406/main.spi
00:02:52 verbose #15239 >
00:02:52 verbose #15240 > ╭─[ 226.96ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 verbose #15241 > │ () │
00:02:52 verbose #15242 > │ │
00:02:52 verbose #15243 > │ │
00:02:52 verbose #15244 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15245 >
00:02:52 verbose #15246 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 verbose #15247 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 verbose #15248 > │ ## expect │
00:02:52 verbose #15249 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15250 >
00:02:52 verbose #15251 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #15252 > inl expect forall t u. (error : rust.ref' string) (x : result' t u) : t =
00:02:52 verbose #15253 > !\($'"!x.expect(&!error)"')
00:02:52 verbose #15254 > 00:02:51 debug #190 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/281dd3eb2670b91dfd6946f6200710085bbbcfca2b7093edff955276a1dab9e8/main.spi
00:02:52 verbose #15255 >
00:02:52 verbose #15256 > ╭─[ 264.83ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 verbose #15257 > │ () │
00:02:52 verbose #15258 > │ │
00:02:52 verbose #15259 > │ │
00:02:52 verbose #15260 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15261 >
00:02:52 verbose #15262 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 verbose #15263 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 verbose #15264 > │ ## ok' │
00:02:52 verbose #15265 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15266 >
00:02:52 verbose #15267 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #15268 > inl ok' forall t. (x : result' t _) : optionm'.option' t =
00:02:52 verbose #15269 > !\($'"!x.ok()"')
00:02:52 verbose #15270 > 00:02:52 debug #191 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b0b8ffe38d453d5447b1fe3ba88bf90d0f85ed26b67270105351bc4bdd91fb6b/main.spi
00:02:52 verbose #15271 >
00:02:52 verbose #15272 > ╭─[ 241.10ms - stdout ]────────────────────────────────────────────────────────╮
00:02:52 verbose #15273 > │ () │
00:02:52 verbose #15274 > │ │
00:02:52 verbose #15275 > │ │
00:02:52 verbose #15276 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15277 >
00:02:52 verbose #15278 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 verbose #15279 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 verbose #15280 > │ ## ok │
00:02:52 verbose #15281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #15282 >
00:02:52 verbose #15283 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #15284 > inl ok forall t. (x : result t _) : option t =
00:02:52 verbose #15285 > match x with
00:02:52 verbose #15286 > | Ok x => Some x
00:02:52 verbose #15287 > | Error _ => None
00:02:52 verbose #15288 > 00:02:52 debug #192 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6488d6e575189507d42eba4723e2897d6744c16eb9c693ebf60ae7c150f75fd5/main.spi
00:02:53 verbose #15289 >
00:02:53 verbose #15290 > ╭─[ 264.43ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 verbose #15291 > │ () │
00:02:53 verbose #15292 > │ │
00:02:53 verbose #15293 > │ │
00:02:53 verbose #15294 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #15295 >
00:02:53 verbose #15296 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #15297 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #15298 > │ ## transpose │
00:02:53 verbose #15299 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #15300 >
00:02:53 verbose #15301 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #15302 > inl transpose forall t u. (x : optionm'.option' (result' t u)) : result'
00:02:53 verbose #15303 > (optionm'.option' t) u =
00:02:53 verbose #15304 > !\\(x, $'"$0.transpose()"')
00:02:53 verbose #15305 > 00:02:52 debug #193 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e87855ced0242abc432155e0dc18a3d49a5acd4d231a0e722842f5d8154978e9/main.spi
00:02:53 verbose #15306 >
00:02:53 verbose #15307 > ╭─[ 225.93ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 verbose #15308 > │ () │
00:02:53 verbose #15309 > │ │
00:02:53 verbose #15310 > │ │
00:02:53 verbose #15311 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #15312 >
00:02:53 verbose #15313 > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #15314 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #15315 > │ ## rc_try_unwrap │
00:02:53 verbose #15316 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #15317 >
00:02:53 verbose #15318 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #15319 > inl rc_try_unwrap forall t. (x : rust.rc t) : result' t (rust.rc t) =
00:02:53 verbose #15320 > !\($'"std::rc::Rc::try_unwrap(!x)"')
00:02:53 verbose #15321 > 00:02:52 debug #194 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1df91d99b87772c2c9936236611b83c26b8cbe19e418276806f96b590abd1327/main.spi
00:02:53 verbose #15322 >
00:02:53 verbose #15323 > ╭─[ 250.67ms - stdout ]────────────────────────────────────────────────────────╮
00:02:53 verbose #15324 > │ () │
00:02:53 verbose #15325 > │ │
00:02:53 verbose #15326 > │ │
00:02:53 verbose #15327 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #15328 >
00:02:53 verbose #15329 > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #15330 > // // test
00:02:53 verbose #15331 > // // rust=
00:02:53 verbose #15332 >
00:02:53 verbose #15333 > types ()
00:02:53 verbose #15334 > rust.new_rc ()
00:02:53 verbose #15335 > |> rc_try_unwrap
00:02:53 verbose #15336 > |> unbox
00:02:53 verbose #15337 > |> _assert_eq (Ok ())
00:02:53 verbose #15338 > 00:02:53 debug #195 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3252bfa54d76f863092d58e46f641f6a22992720879e950e56a5c6a347902edd/main.spi
00:03:00 verbose #15339 >
00:03:00 verbose #15340 > ╭─[ 7.04s - return value ]─────────────────────────────────────────────────────╮
00:03:00 verbose #15341 > │ .rs output: │
00:03:00 verbose #15342 > │ US0_0 │
00:03:00 verbose #15343 > │ │
00:03:00 verbose #15344 > │ │
00:03:00 verbose #15345 > │ │
00:03:00 verbose #15346 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:00 verbose #15347 >
00:03:00 verbose #15348 > ╭─[ 7.05s - stdout ]───────────────────────────────────────────────────────────╮
00:03:00 verbose #15349 > │ .fsx: │
00:03:00 verbose #15350 > │ #if FABLE_COMPILER // common.types │
00:03:00 verbose #15351 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:03:00 verbose #15352 > │ end │
00:03:00 verbose #15353 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:03:00 verbose #15354 > │ class end │
00:03:00 verbose #15355 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:03:00 verbose #15356 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:03:00 verbose #15357 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:03:00 verbose #15358 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:03:00 verbose #15359 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:03:00 verbose #15360 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:03:00 verbose #15361 > │ class end │
00:03:00 verbose #15362 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:03:00 verbose #15363 > │ end │
00:03:00 verbose #15364 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:03:00 verbose #15365 > │ class end │
00:03:00 verbose #15366 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:03:00 verbose #15367 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:03:00 verbose #15368 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:03:00 verbose #15369 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:03:00 verbose #15370 > │ class end │
00:03:00 verbose #15371 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:03:00 verbose #15372 > │ class end │
00:03:00 verbose #15373 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:03:00 verbose #15374 > │ class end │
00:03:00 verbose #15375 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:03:00 verbose #15376 > │ std_cell_RefCell<'T> = class end │
00:03:00 verbose #15377 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:03:00 verbose #15378 > │ std_pin_Pin<'T> = class end │
00:03:00 verbose #15379 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:03:00 verbose #15380 > │ = class end │
00:03:00 verbose #15381 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:03:00 verbose #15382 > │ std_rc_Weak<'T> = class end │
00:03:00 verbose #15383 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:03:00 verbose #15384 > │ std_sync_Arc<'T> = class end │
00:03:00 verbose #15385 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:03:00 verbose #15386 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:03:00 verbose #15387 > │ base64_DecodeError = class end │
00:03:00 verbose #15388 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:03:00 verbose #15389 > │ borsh_io_Error = class end │
00:03:00 verbose #15390 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:03:00 verbose #15391 > │ js_sys_JsString = class end │
00:03:00 verbose #15392 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:03:00 verbose #15393 > │ serde_json_Error = class end │
00:03:00 verbose #15394 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:03:00 verbose #15395 > │ serde_json_Value = class end │
00:03:00 verbose #15396 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:03:00 verbose #15397 > │ serde_wasm_bindgen_Error = class end │
00:03:00 verbose #15398 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:03:00 verbose #15399 > │ = class end │
00:03:00 verbose #15400 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:03:00 verbose #15401 > │ std_ffi_OsString = class end │
00:03:00 verbose #15402 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:03:00 verbose #15403 > │ std_str_Utf8Error = class end │
00:03:00 verbose #15404 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:03:00 verbose #15405 > │ std_string_String = class end │
00:03:00 verbose #15406 > │ #endif // common.types │
00:03:00 verbose #15407 > │ type [<Struct>] US0 = │
00:03:00 verbose #15408 > │ | US0_0 │
00:03:00 verbose #15409 > │ | US0_1 of f1_0 : std_rc_Rc<unit> │
00:03:00 verbose #15410 > │ let rec method1 () : unit = │
00:03:00 verbose #15411 > │ () │
00:03:00 verbose #15412 > │ and closure0 () () : US0 = │
00:03:00 verbose #15413 > │ US0_0 │
00:03:00 verbose #15414 > │ and closure1 () (v0 : std_rc_Rc<unit>) : US0 = │
00:03:00 verbose #15415 > │ US0_1(v0) │
00:03:00 verbose #15416 > │ and method2 (v0 : bool) : bool = │
00:03:00 verbose #15417 > │ v0 │
00:03:00 verbose #15418 > │ and method0 () : unit = │
00:03:00 verbose #15419 > │ method1() │
00:03:00 verbose #15420 > │ let v0 : string = "std::rc::Rc::new(())" │
00:03:00 verbose #15421 > │ let v1 : std_rc_Rc<unit> = Fable.Core.RustInterop.emitRustExpr () v0 │
00:03:00 verbose #15422 > │ let v2 : string = "std::rc::Rc::try_unwrap(v1)" │
00:03:00 verbose #15423 > │ let v3 : Result<unit, std_rc_Rc<unit>> = │
00:03:00 verbose #15424 > │ Fable.Core.RustInterop.emitRustExpr () v2 │
00:03:00 verbose #15425 > │ let v4 : (unit -> US0) = closure0() │
00:03:00 verbose #15426 > │ let v5 : (std_rc_Rc<unit> -> US0) = closure1() │
00:03:00 verbose #15427 > │ let v6 : US0 = match v3 with Ok x -> v4 x | Error x -> v5 x │
00:03:00 verbose #15428 > │ let v7 : string = $"%A{v6}" │
00:03:00 verbose #15429 > │ System.Console.WriteLine v7 │
00:03:00 verbose #15430 > │ let v9 : bool = │
00:03:00 verbose #15431 > │ match v6 with │
00:03:00 verbose #15432 > │ | US0_0 -> (* Ok *) │
00:03:00 verbose #15433 > │ true │
00:03:00 verbose #15434 > │ | _ -> │
00:03:00 verbose #15435 > │ false │
00:03:00 verbose #15436 > │ let v11 : bool = │
00:03:00 verbose #15437 > │ if v9 then │
00:03:00 verbose #15438 > │ true │
00:03:00 verbose #15439 > │ else │
00:03:00 verbose #15440 > │ method2(v9) │
00:03:00 verbose #15441 > │ let v12 : US0 = US0_0 │
00:03:00 verbose #15442 > │ let v13 : string = $"__expect / actual: %A{v6} / expected: %A{v12}" │
00:03:00 verbose #15443 > │ let v14 : bool = v11 = false │
00:03:00 verbose #15444 > │ if v14 then │
00:03:00 verbose #15445 > │ failwith<unit> v13 │
00:03:00 verbose #15446 > │ method0() │
00:03:00 verbose #15447 > │ │
00:03:00 verbose #15448 > │ │
00:03:00 verbose #15449 > │ .rs: │
00:03:00 verbose #15450 > │ #![allow(dead_code)] │
00:03:00 verbose #15451 > │ #![allow(non_camel_case_types)] │
00:03:00 verbose #15452 > │ #![allow(non_snake_case)] │
00:03:00 verbose #15453 > │ #![allow(non_upper_case_globals)] │
00:03:00 verbose #15454 > │ #![allow(unreachable_code)] │
00:03:00 verbose #15455 > │ #![allow(unused_attributes)] │
00:03:00 verbose #15456 > │ #![allow(unused_imports)] │
00:03:00 verbose #15457 > │ #![allow(unused_macros)] │
00:03:00 verbose #15458 > │ #![allow(unused_parens)] │
00:03:00 verbose #15459 > │ #![allow(unused_variables)] │
00:03:00 verbose #15460 > │ mod module_ccfa04bf { │
00:03:00 verbose #15461 > │ pub mod Spiral_eval { │
00:03:00 verbose #15462 > │ use super::*; │
00:03:00 verbose #15463 > │ use fable_library_rust::Native_::on_startup; │
00:03:00 verbose #15464 > │ use fable_library_rust::Native_::MutCell; │
00:03:00 verbose #15465 > │ use fable_library_rust::String_::printfn; │
00:03:00 verbose #15466 > │ use fable_library_rust::String_::sprintf; │
00:03:00 verbose #15467 > │ use fable_library_rust::String_::string; │
00:03:00 verbose #15468 > │ #[derive(Clone, Debug)] │
00:03:00 verbose #15469 > │ pub enum US0 { │
00:03:00 verbose #15470 > │ US0_0, │
00:03:00 verbose #15471 > │ US0_1(std::rc::Rc<()>), │
00:03:00 verbose #15472 > │ } │
00:03:00 verbose #15473 > │ impl Spiral_eval::US0 { │
00:03:00 verbose #15474 > │ pub fn get_IsUS0_0(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:03:00 verbose #15475 > │ ()) -> bool { │
00:03:00 verbose #15476 > │ if unreachable!() { │
00:03:00 verbose #15477 > │ true │
00:03:00 verbose #15478 > │ } else { │
00:03:00 verbose #15479 > │ false │
00:03:00 verbose #15480 > │ } │
00:03:00 verbose #15481 > │ } │
00:03:00 verbose #15482 > │ pub fn get_IsUS0_1(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:03:00 verbose #15483 > │ ()) -> bool { │
00:03:00 verbose #15484 > │ if unreachable!() { │
00:03:00 verbose #15485 > │ true │
00:03:00 verbose #15486 > │ } else { │
00:03:00 verbose #15487 > │ false │
00:03:00 verbose #15488 > │ } │
00:03:00 verbose #15489 > │ } │
00:03:00 verbose #15490 > │ } │
00:03:00 verbose #15491 > │ impl core::fmt::Display for Spiral_eval::US0 { │
00:03:00 verbose #15492 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:03:00 verbose #15493 > │ { │
00:03:00 verbose #15494 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:03:00 verbose #15495 > │ } │
00:03:00 verbose #15496 > │ } │
00:03:00 verbose #15497 > │ pub fn method1() { │
00:03:00 verbose #15498 > │ (); │
00:03:00 verbose #15499 > │ } │
00:03:00 verbose #15500 > │ pub fn closure0(unitVar: (), unitVar_1: ()) -> Spiral_eval::US0 { │
00:03:00 verbose #15501 > │ Spiral_eval::US0::US0_0 │
00:03:00 verbose #15502 > │ } │
00:03:00 verbose #15503 > │ pub fn closure1(unitVar: (), v0: std::rc::Rc<()>) -> │
00:03:00 verbose #15504 > │ Spiral_eval::US0 { │
00:03:00 verbose #15505 > │ Spiral_eval::US0::US0_1(v0) │
00:03:00 verbose #15506 > │ } │
00:03:00 verbose #15507 > │ pub fn method2(v0: bool) -> bool { │
00:03:00 verbose #15508 > │ v0 │
00:03:00 verbose #15509 > │ } │
00:03:00 verbose #15510 > │ pub fn method0() { │
00:03:00 verbose #15511 > │ Spiral_eval::method1(); │
00:03:00 verbose #15512 > │ { │
00:03:00 verbose #15513 > │ let v1: std::rc::Rc<()> = std::rc::Rc::new(()); │
00:03:00 verbose #15514 > │ let v3: Result<(), std::rc::Rc<()>> = │
00:03:00 verbose #15515 > │ std::rc::Rc::try_unwrap(v1); │
00:03:00 verbose #15516 > │ let v6: Spiral_eval::US0 = match &v3 { │
00:03:00 verbose #15517 > │ Err(v3_1_0) => Spiral_eval::closure1((), │
00:03:00 verbose #15518 > │ v3_1_0.clone()), │
00:03:00 verbose #15519 > │ _ => Spiral_eval::closure0((), ()), │
00:03:00 verbose #15520 > │ }; │
00:03:00 verbose #15521 > │ let v7: string = sprintf!("{:?}", v6.clone()); │
00:03:00 verbose #15522 > │ printfn!("{0}", v7); │
00:03:00 verbose #15523 > │ { │
00:03:00 verbose #15524 > │ let v9: bool = if let Spiral_eval::US0::US0_0 = &v6 { │
00:03:00 verbose #15525 > │ true │
00:03:00 verbose #15526 > │ } else { │
00:03:00 verbose #15527 > │ false │
00:03:00 verbose #15528 > │ }; │
00:03:00 verbose #15529 > │ if (if v9 { true } else { Spiral_eval::method2(v9) }) == │
00:03:00 verbose #15530 > │ false { │
00:03:00 verbose #15531 > │ panic!( │
00:03:00 verbose #15532 > │ "{}", │
00:03:00 verbose #15533 > │ sprintf!( │
00:03:00 verbose #15534 > │ "__expect / actual: {:?} / expected: {:?}", │
00:03:00 verbose #15535 > │ v6, │
00:03:00 verbose #15536 > │ Spiral_eval::US0::US0_0 │
00:03:00 verbose #15537 > │ ), │
00:03:00 verbose #15538 > │ ); │
00:03:00 verbose #15539 > │ } │
00:03:00 verbose #15540 > │ } │
00:03:00 verbose #15541 > │ } │
00:03:00 verbose #15542 > │ } │
00:03:00 verbose #15543 > │ on_startup!(Spiral_eval::method0()); │
00:03:00 verbose #15544 > │ } │
00:03:00 verbose #15545 > │ } │
00:03:00 verbose #15546 > │ pub use module_ccfa04bf::*; │
00:03:00 verbose #15547 > │ │
00:03:00 verbose #15548 > │ │
00:03:00 verbose #15549 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:02 verbose #15550 > [NbConvertApp] Converting notebook resultm.dib.ipynb to html
00:03:02 verbose #15551 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:02 verbose #15552 > validate(nb)
00:03:03 verbose #15553 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:03 verbose #15554 > return _pygments_highlight(
00:03:04 verbose #15555 > [NbConvertApp] Writing 322817 bytes to resultm.dib.html
00:03:05 debug #15556 execute_with_options_async / exit_code: 0 / output.Length: 37086
00:03:04 debug #10 main / executeCommand / exitCode: 0
00:03:05 debug #15557 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 console.dib -Retries 3"", None,
None)
00:03:05 verbose #15558 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: console.dib / _args: [
00:03:05 verbose #15559 > "-Retries",
00:03:05 verbose #15560 > 3
00:03:05 verbose #15561 > ]
00:03:08 verbose #15562 >
00:03:08 verbose #15563 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:08 verbose #15564 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:08 verbose #15565 > │ # console │
00:03:08 verbose #15566 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:08 verbose #15567 >
00:03:08 verbose #15568 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:08 verbose #15569 > // // test
00:03:08 verbose #15570 >
00:03:08 verbose #15571 > open testing
00:03:11 verbose #15572 > 00:03:11 debug #196 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:03:13 verbose #15573 >
00:03:13 verbose #15574 > ╭─[ 4.83s - stdout ]───────────────────────────────────────────────────────────╮
00:03:13 verbose #15575 > │ () │
00:03:13 verbose #15576 > │ │
00:03:13 verbose #15577 > │ │
00:03:13 verbose #15578 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 verbose #15579 >
00:03:13 verbose #15580 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 verbose #15581 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 verbose #15582 > │ ## write_line │
00:03:13 verbose #15583 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 verbose #15584 >
00:03:13 verbose #15585 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 verbose #15586 > inl write_line obj : () =
00:03:13 verbose #15587 > $"System.Console.WriteLine !obj"
00:03:13 verbose #15588 > 00:03:12 debug #197 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8734924cc556d38ddd4fe9d78b6dfed880f3092692ae54965b235b33bbc96230/main.spi
00:03:13 verbose #15589 >
00:03:13 verbose #15590 > ╭─[ 216.90ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 verbose #15591 > │ () │
00:03:13 verbose #15592 > │ │
00:03:13 verbose #15593 > │ │
00:03:13 verbose #15594 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 verbose #15595 >
00:03:13 verbose #15596 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 verbose #15597 > inl write_line_ ~obj : () =
00:03:13 verbose #15598 > $"System.Console.WriteLine !obj"
00:03:13 verbose #15599 > 00:03:12 debug #198 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ffaaa2487bdb8cfacc66c52e1a4dcc7ef33c94cbbd6668b8d01a1910eaf1fc2a/main.spi
00:03:13 verbose #15600 >
00:03:13 verbose #15601 > ╭─[ 210.39ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 verbose #15602 > │ () │
00:03:13 verbose #15603 > │ │
00:03:13 verbose #15604 > │ │
00:03:13 verbose #15605 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 verbose #15606 >
00:03:13 verbose #15607 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 verbose #15608 > nominal console_color = $"System.ConsoleColor"
00:03:13 verbose #15609 >
00:03:13 verbose #15610 > inl reset_color () : () =
00:03:13 verbose #15611 > run_target function
00:03:13 verbose #15612 > | Fsharp => fun () => $"System.Console.ResetColor ()"
00:03:13 verbose #15613 > | _ => fun () => ()
00:03:13 verbose #15614 >
00:03:13 verbose #15615 > inl set_foreground_color (color : console_color) : () =
00:03:13 verbose #15616 > run_target function
00:03:13 verbose #15617 > | Fsharp => fun () => $"System.Console.ForegroundColor <- !color"
00:03:13 verbose #15618 > | _ => fun () => ()
00:03:13 verbose #15619 > 00:03:13 debug #199 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e5b6fb32e8bdd3db4dce6c028f792dc4c7b1febe5ab70e4c0ab6cf1a7a579ffe/main.spi
00:03:13 verbose #15620 >
00:03:13 verbose #15621 > ╭─[ 295.52ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 verbose #15622 > │ () │
00:03:13 verbose #15623 > │ │
00:03:13 verbose #15624 > │ │
00:03:13 verbose #15625 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:16 verbose #15626 > [NbConvertApp] Converting notebook console.dib.ipynb to html
00:03:16 verbose #15627 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:16 verbose #15628 > validate(nb)
00:03:16 verbose #15629 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:16 verbose #15630 > return _pygments_highlight(
00:03:16 verbose #15631 > [NbConvertApp] Writing 276933 bytes to console.dib.html
00:03:17 debug #15632 execute_with_options_async / exit_code: 0 / output.Length: 3984
00:03:17 debug #11 main / executeCommand / exitCode: 0
00:03:17 debug #15633 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 date_time.dib -Retries 3"", None,
None)
00:03:18 verbose #15634 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: date_time.dib / _args: [
00:03:18 verbose #15635 > "-Retries",
00:03:18 verbose #15636 > 3
00:03:18 verbose #15637 > ]
00:03:21 verbose #15638 >
00:03:21 verbose #15639 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:21 verbose #15640 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:21 verbose #15641 > │ # date_time │
00:03:21 verbose #15642 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 verbose #15643 >
00:03:21 verbose #15644 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 verbose #15645 > open rust_operators
00:03:21 verbose #15646 > open sm'_operators
00:03:24 verbose #15647 > 00:03:24 debug #200 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/032c8b088372ab832664d98a64dd782e20000598cb6f954fca120c7fcc91e0cc/main.spi
00:03:25 verbose #15648 >
00:03:25 verbose #15649 > ╭─[ 4.77s - stdout ]───────────────────────────────────────────────────────────╮
00:03:25 verbose #15650 > │ () │
00:03:25 verbose #15651 > │ │
00:03:25 verbose #15652 > │ │
00:03:25 verbose #15653 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 verbose #15654 >
00:03:25 verbose #15655 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:25 verbose #15656 > // // test
00:03:25 verbose #15657 >
00:03:25 verbose #15658 > open testing
00:03:26 verbose #15659 > 00:03:25 debug #201 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7d7acecd62a06a4005bd00e248722e32f4574e14d082c2ccfef1dbc96319cca4/main.spi
00:03:26 verbose #15660 >
00:03:26 verbose #15661 > ╭─[ 290.71ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 verbose #15662 > │ () │
00:03:26 verbose #15663 > │ │
00:03:26 verbose #15664 > │ │
00:03:26 verbose #15665 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15666 >
00:03:26 verbose #15667 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 verbose #15668 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 verbose #15669 > │ ## types │
00:03:26 verbose #15670 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15671 >
00:03:26 verbose #15672 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 verbose #15673 > inl types () =
00:03:26 verbose #15674 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::DateTime<$0>\")>]]
00:03:26 verbose #15675 > type chrono_DateTime<'T> = class end"
00:03:26 verbose #15676 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::Local\")>]] type
00:03:26 verbose #15677 > chrono_Local = class end"
00:03:26 verbose #15678 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::NaiveDateTime\")>]]
00:03:26 verbose #15679 > type chrono_NaiveDateTime = class end"
00:03:26 verbose #15680 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::Utc\")>]] type
00:03:26 verbose #15681 > chrono_Utc = class end"
00:03:26 verbose #15682 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::time::Duration\")>]]
00:03:26 verbose #15683 > type std_time_Duration = class end"
00:03:26 verbose #15684 > 00:03:25 debug #202 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2953bf1a005214994e27ad55daafee82b9bf77a24b4393dfffbdabcfb93b8c88/main.spi
00:03:26 verbose #15685 >
00:03:26 verbose #15686 > ╭─[ 235.00ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 verbose #15687 > │ () │
00:03:26 verbose #15688 > │ │
00:03:26 verbose #15689 > │ │
00:03:26 verbose #15690 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15691 >
00:03:26 verbose #15692 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 verbose #15693 > nominal timestamp = i64
00:03:26 verbose #15694 > nominal duration = $"std_time_Duration"
00:03:26 verbose #15695 > nominal date_time = $"System.DateTime"
00:03:26 verbose #15696 > nominal date_time' t = $"chrono_DateTime<`t>"
00:03:26 verbose #15697 > nominal local = $"chrono_Local"
00:03:26 verbose #15698 > nominal naive_date_time = $"chrono_NaiveDateTime"
00:03:26 verbose #15699 > nominal utc = $"chrono_Utc"
00:03:26 verbose #15700 > 00:03:25 debug #203 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6c0b3e9ca3c9907dd971325e2bd5b81c8762e32927fe516cb10ed1c7b55c1026/main.spi
00:03:26 verbose #15701 >
00:03:26 verbose #15702 > ╭─[ 248.98ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 verbose #15703 > │ () │
00:03:26 verbose #15704 > │ │
00:03:26 verbose #15705 > │ │
00:03:26 verbose #15706 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15707 >
00:03:26 verbose #15708 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 verbose #15709 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 verbose #15710 > │ ## date_time_milliseconds │
00:03:26 verbose #15711 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15712 >
00:03:26 verbose #15713 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 verbose #15714 > inl date_time_milliseconds
00:03:26 verbose #15715 > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:03:26 verbose #15716 > int) (millisecond : int)
00:03:26 verbose #15717 > : date_time
00:03:26 verbose #15718 > =
00:03:26 verbose #15719 > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:03:26 verbose #15720 > !millisecond)'
00:03:26 verbose #15721 > 00:03:26 debug #204 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0271928b63f588de19cca51efb9201b132137fa01b1be39316ed7b0961e2b9bd/main.spi
00:03:26 verbose #15722 >
00:03:26 verbose #15723 > ╭─[ 230.99ms - stdout ]────────────────────────────────────────────────────────╮
00:03:26 verbose #15724 > │ () │
00:03:26 verbose #15725 > │ │
00:03:26 verbose #15726 > │ │
00:03:26 verbose #15727 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15728 >
00:03:26 verbose #15729 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 verbose #15730 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 verbose #15731 > │ ## naive_utc │
00:03:26 verbose #15732 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #15733 >
00:03:26 verbose #15734 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 verbose #15735 > inl naive_utc (date_time : date_time' utc) : naive_date_time =
00:03:26 verbose #15736 > inl date_time = join date_time
00:03:26 verbose #15737 > !\($'"!date_time.naive_utc()"')
00:03:27 verbose #15738 > 00:03:26 debug #205 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f136473bb2a4a3e1002489893b76030aa31c96f68964997f6f4d7b246f3a412f/main.spi
00:03:27 verbose #15739 >
00:03:27 verbose #15740 > ╭─[ 210.62ms - stdout ]────────────────────────────────────────────────────────╮
00:03:27 verbose #15741 > │ () │
00:03:27 verbose #15742 > │ │
00:03:27 verbose #15743 > │ │
00:03:27 verbose #15744 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15745 >
00:03:27 verbose #15746 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:27 verbose #15747 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:27 verbose #15748 > │ ## to_local │
00:03:27 verbose #15749 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15750 >
00:03:27 verbose #15751 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 verbose #15752 > inl to_local (date_time : date_time' utc) : date_time' local =
00:03:27 verbose #15753 > inl naive_date_time = date_time |> naive_utc
00:03:27 verbose #15754 > !\($'"chrono::offset::TimeZone::from_utc_datetime(&chrono::Local,
00:03:27 verbose #15755 > &!naive_date_time)"')
00:03:27 verbose #15756 > 00:03:26 debug #206 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0897c4a048fe611e4d311e87bf5cafaf43cd196958e8cbcf0b04408e4ee841c7/main.spi
00:03:27 verbose #15757 >
00:03:27 verbose #15758 > ╭─[ 221.89ms - stdout ]────────────────────────────────────────────────────────╮
00:03:27 verbose #15759 > │ () │
00:03:27 verbose #15760 > │ │
00:03:27 verbose #15761 > │ │
00:03:27 verbose #15762 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15763 >
00:03:27 verbose #15764 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:27 verbose #15765 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:27 verbose #15766 > │ ## from_timestamp' │
00:03:27 verbose #15767 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15768 >
00:03:27 verbose #15769 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 verbose #15770 > inl from_timestamp' forall t {number; int}. (timestamp : t) : option (date_time'
00:03:27 verbose #15771 > utc) =
00:03:27 verbose #15772 > inl timestamp = join timestamp
00:03:27 verbose #15773 > inl result : optionm'.option' (date_time' utc) =
00:03:27 verbose #15774 > !\($'"chrono::DateTime::from_timestamp_micros(!timestamp / 1000i64)"')
00:03:27 verbose #15775 > result |> optionm'.unbox
00:03:27 verbose #15776 > 00:03:26 debug #207 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dcb1b12acef991d762d9849665274969876964ba4adeba360022a8c7b6383e75/main.spi
00:03:27 verbose #15777 >
00:03:27 verbose #15778 > ╭─[ 263.88ms - stdout ]────────────────────────────────────────────────────────╮
00:03:27 verbose #15779 > │ () │
00:03:27 verbose #15780 > │ │
00:03:27 verbose #15781 > │ │
00:03:27 verbose #15782 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15783 >
00:03:27 verbose #15784 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:27 verbose #15785 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:27 verbose #15786 > │ ## ticks │
00:03:27 verbose #15787 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15788 >
00:03:27 verbose #15789 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 verbose #15790 > inl ticks (date_time : date_time) : timestamp =
00:03:27 verbose #15791 > date_time |> $'_.Ticks'
00:03:27 verbose #15792 > 00:03:27 debug #208 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1f72db073283544225a1ed8197dcb6980e3e903370b4f91d0548fee8470046ed/main.spi
00:03:27 verbose #15793 >
00:03:27 verbose #15794 > ╭─[ 291.57ms - stdout ]────────────────────────────────────────────────────────╮
00:03:27 verbose #15795 > │ () │
00:03:27 verbose #15796 > │ │
00:03:27 verbose #15797 > │ │
00:03:27 verbose #15798 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15799 >
00:03:27 verbose #15800 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:27 verbose #15801 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:27 verbose #15802 > │ ## format │
00:03:27 verbose #15803 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #15804 >
00:03:27 verbose #15805 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 verbose #15806 > inl format (format : string) (date_time : date_time) : string =
00:03:27 verbose #15807 > $'!date_time.ToString' format
00:03:28 verbose #15808 > 00:03:27 debug #209 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9ba3706405fa5713e40e9c593d68455da31ea6f00be428bfc7312d71c43fed40/main.spi
00:03:28 verbose #15809 >
00:03:28 verbose #15810 > ╭─[ 205.43ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 verbose #15811 > │ () │
00:03:28 verbose #15812 > │ │
00:03:28 verbose #15813 > │ │
00:03:28 verbose #15814 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15815 >
00:03:28 verbose #15816 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:28 verbose #15817 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:28 verbose #15818 > │ ## format_iso8601 │
00:03:28 verbose #15819 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15820 >
00:03:28 verbose #15821 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 verbose #15822 > inl format_iso8601 (date_time : date_time) =
00:03:28 verbose #15823 > date_time |> format "yyyy-MM-ddTHH-mm-ss.fff"
00:03:28 verbose #15824 > 00:03:27 debug #210 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/61b6d8ba614785689d10e277624ac581fbf2736b552fc6f6a268bfc278e21503/main.spi
00:03:28 verbose #15825 >
00:03:28 verbose #15826 > ╭─[ 241.36ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 verbose #15827 > │ () │
00:03:28 verbose #15828 > │ │
00:03:28 verbose #15829 > │ │
00:03:28 verbose #15830 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15831 >
00:03:28 verbose #15832 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:28 verbose #15833 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:28 verbose #15834 > │ ## format' │
00:03:28 verbose #15835 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15836 >
00:03:28 verbose #15837 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 verbose #15838 > inl format' (format : string) (date_time : date_time' utc) : sm'.std_string =
00:03:28 verbose #15839 > inl format = #format
00:03:28 verbose #15840 > inl date_time = join date_time
00:03:28 verbose #15841 > !\($'"!date_time.format(!format).to_string()"')
00:03:28 verbose #15842 > 00:03:27 debug #211 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/188deee443dcf7f329cca702191cee12e0b05d39739160b8e9cac2317e87b672/main.spi
00:03:28 verbose #15843 >
00:03:28 verbose #15844 > ╭─[ 235.27ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 verbose #15845 > │ () │
00:03:28 verbose #15846 > │ │
00:03:28 verbose #15847 > │ │
00:03:28 verbose #15848 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15849 >
00:03:28 verbose #15850 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:28 verbose #15851 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:28 verbose #15852 > │ ## format'' │
00:03:28 verbose #15853 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15854 >
00:03:28 verbose #15855 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 verbose #15856 > inl format'' (format : string) (date_time : date_time' _) : sm'.std_string =
00:03:28 verbose #15857 > inl format = #format
00:03:28 verbose #15858 > inl date_time = join date_time
00:03:28 verbose #15859 > !\($'"!date_time.format(!format).to_string()"')
00:03:28 verbose #15860 > 00:03:28 debug #212 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a6459429bb8466e82baafd2cdee900ee97b94d46b875a8a1dc4a62b2e2ba8e38/main.spi
00:03:28 verbose #15861 >
00:03:28 verbose #15862 > ╭─[ 195.18ms - stdout ]────────────────────────────────────────────────────────╮
00:03:28 verbose #15863 > │ () │
00:03:28 verbose #15864 > │ │
00:03:28 verbose #15865 > │ │
00:03:28 verbose #15866 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15867 >
00:03:28 verbose #15868 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:28 verbose #15869 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:28 verbose #15870 > │ ## format_timestamp │
00:03:28 verbose #15871 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #15872 >
00:03:28 verbose #15873 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 verbose #15874 > inl format_timestamp (timestamp : sm'.std_string) =
00:03:28 verbose #15875 > inl timestamp = join timestamp
00:03:28 verbose #15876 > timestamp
00:03:28 verbose #15877 > |> fun x => !\($'"!x.parse().unwrap()"') : i64
00:03:28 verbose #15878 > |> from_timestamp'
00:03:28 verbose #15879 > |> optionm.map fun x =>
00:03:28 verbose #15880 > x
00:03:28 verbose #15881 > |> to_local
00:03:28 verbose #15882 > |> format'' "%Y-%m-%d %H:%M:%S"
00:03:28 verbose #15883 > |> sm'.from_std_string
00:03:28 verbose #15884 > |> resultm.from_option
00:03:28 verbose #15885 > 00:03:28 debug #213 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/65523346cdbc0cf97b8f9f141c916f5cdca6d19fe5325b402c67164edf9cd20f/main.spi
00:03:29 verbose #15886 >
00:03:29 verbose #15887 > ╭─[ 234.06ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 verbose #15888 > │ () │
00:03:29 verbose #15889 > │ │
00:03:29 verbose #15890 > │ │
00:03:29 verbose #15891 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 verbose #15892 >
00:03:29 verbose #15893 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:29 verbose #15894 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:29 verbose #15895 > │ ## duration_from_millis │
00:03:29 verbose #15896 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 verbose #15897 >
00:03:29 verbose #15898 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 verbose #15899 > inl duration_from_millis (ms : u64) : duration =
00:03:29 verbose #15900 > inl ms = join ms
00:03:29 verbose #15901 > !\($'"std::time::Duration::from_millis(!ms)"')
00:03:29 verbose #15902 > 00:03:28 debug #214 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d222b707827b406e707c275df273b034988b5e8a3cdc3a4ed32557fbebb8e9b0/main.spi
00:03:29 verbose #15903 >
00:03:29 verbose #15904 > ╭─[ 255.74ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 verbose #15905 > │ () │
00:03:29 verbose #15906 > │ │
00:03:29 verbose #15907 > │ │
00:03:29 verbose #15908 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 verbose #15909 >
00:03:29 verbose #15910 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:29 verbose #15911 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:29 verbose #15912 > │ ## get_environment_variable │
00:03:29 verbose #15913 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 verbose #15914 >
00:03:29 verbose #15915 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 verbose #15916 > inl get_environment_variable (var : string) : string =
00:03:29 verbose #15917 > $"System.Environment.GetEnvironmentVariable !var"
00:03:29 verbose #15918 > 00:03:28 debug #215 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a8ecb04d75ee33bf8cb4dbf112d82accf2c5b14becc9ff2113b5dd16af1dbfba/main.spi
00:03:29 verbose #15919 >
00:03:29 verbose #15920 > ╭─[ 283.90ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 verbose #15921 > │ () │
00:03:29 verbose #15922 > │ │
00:03:29 verbose #15923 > │ │
00:03:29 verbose #15924 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 verbose #15925 >
00:03:29 verbose #15926 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 verbose #15927 > // // test
00:03:29 verbose #15928 >
00:03:29 verbose #15929 > inl test_guid () =
00:03:29 verbose #15930 > guid.new_guid "FEDCBA98-7654-3210-FEDC-BA9876543210"
00:03:29 verbose #15931 > 00:03:29 debug #216 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a1a1aae093484247dde4303049df188ea3521f3f47df7108cff654e834cc205d/main.spi
00:03:29 verbose #15932 >
00:03:29 verbose #15933 > ╭─[ 287.80ms - stdout ]────────────────────────────────────────────────────────╮
00:03:29 verbose #15934 > │ () │
00:03:29 verbose #15935 > │ │
00:03:29 verbose #15936 > │ │
00:03:29 verbose #15937 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:29 verbose #15938 >
00:03:29 verbose #15939 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:29 verbose #15940 > type timestamp_guid = guid.guid
00:03:29 verbose #15941 > type date_time_guid = guid.guid
00:03:30 verbose #15942 > 00:03:29 debug #217 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1f4c7c8fdef1bf50224b6732c2faeb1637e2652fe23ba59163d52cdbc782730c/main.spi
00:03:30 verbose #15943 >
00:03:30 verbose #15944 > ╭─[ 224.46ms - stdout ]────────────────────────────────────────────────────────╮
00:03:30 verbose #15945 > │ () │
00:03:30 verbose #15946 > │ │
00:03:30 verbose #15947 > │ │
00:03:30 verbose #15948 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 verbose #15949 >
00:03:30 verbose #15950 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:30 verbose #15951 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:30 verbose #15952 > │ ## date_time_guid_from_date_time │
00:03:30 verbose #15953 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 verbose #15954 >
00:03:30 verbose #15955 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:30 verbose #15956 > inl date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =
00:03:30 verbose #15957 > inl guid = guid |> sm'.obj_to_string
00:03:30 verbose #15958 > inl prefix = $'!date_time.ToString "yyyyMMdd-HHmm-ssff-ffff-f"' : string
00:03:30 verbose #15959 > $'`date_time_guid $"{!prefix}{!guid.[[!prefix.Length..]]}"' : date_time_guid
00:03:30 verbose #15960 > 00:03:29 debug #218 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aafccfe21388732e6e367d17f9b4de300ec85a52d81c7adee3deccbc92af476a/main.spi
00:03:30 verbose #15961 >
00:03:30 verbose #15962 > ╭─[ 210.05ms - stdout ]────────────────────────────────────────────────────────╮
00:03:30 verbose #15963 > │ () │
00:03:30 verbose #15964 > │ │
00:03:30 verbose #15965 > │ │
00:03:30 verbose #15966 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:30 verbose #15967 >
00:03:30 verbose #15968 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:30 verbose #15969 > // // test
00:03:30 verbose #15970 >
00:03:30 verbose #15971 > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.MinValue'
00:03:30 verbose #15972 > |> sm'.obj_to_string
00:03:30 verbose #15973 > |> _assert_eq' "00010101-0000-0000-0000-0a9876543210"
00:03:30 verbose #15974 > 00:03:29 debug #219 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2bc1ab8674226e2bc5133d1097a457d0e4ccb44b660459aa78a47788529bb766/main.spi
00:03:31 verbose #15975 >
00:03:31 verbose #15976 > ╭─[ 1.02s - stdout ]───────────────────────────────────────────────────────────╮
00:03:31 verbose #15977 > │ let rec method1 (v0 : bool) : bool = │
00:03:31 verbose #15978 > │ v0 │
00:03:31 verbose #15979 > │ and method0 () : unit = │
00:03:31 verbose #15980 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:31 verbose #15981 > │ let v1 : System.Guid = System.Guid v0 │
00:03:31 verbose #15982 > │ let v2 : System.DateTime = System.DateTime.MinValue │
00:03:31 verbose #15983 > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:31 verbose #15984 > │ let v4 : string = v3 v1 │
00:03:31 verbose #15985 > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:31 verbose #15986 > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:03:31 verbose #15987 > │ let v7 : (System.Guid -> string) = _.ToString() │
00:03:31 verbose #15988 > │ let v8 : string = v7 v6 │
00:03:31 verbose #15989 > │ let v9 : string = $"%A{v8}" │
00:03:31 verbose #15990 > │ System.Console.WriteLine v9 │
00:03:31 verbose #15991 > │ let v10 : string = "00010101-0000-0000-0000-0a9876543210" │
00:03:31 verbose #15992 > │ let v11 : bool = v8 = v10 │
00:03:31 verbose #15993 > │ let v13 : bool = │
00:03:31 verbose #15994 > │ if v11 then │
00:03:31 verbose #15995 > │ true │
00:03:31 verbose #15996 > │ else │
00:03:31 verbose #15997 > │ method1(v11) │
00:03:31 verbose #15998 > │ let v14 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:03:31 verbose #15999 > │ let v15 : bool = v13 = false │
00:03:31 verbose #16000 > │ if v15 then │
00:03:31 verbose #16001 > │ failwith<unit> v14 │
00:03:31 verbose #16002 > │ method0() │
00:03:31 verbose #16003 > │ │
00:03:31 verbose #16004 > │ "00010101-0000-0000-0000-0a9876543210" │
00:03:31 verbose #16005 > │ │
00:03:31 verbose #16006 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 verbose #16007 >
00:03:31 verbose #16008 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:31 verbose #16009 > // // test
00:03:31 verbose #16010 >
00:03:31 verbose #16011 > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.MaxValue'
00:03:31 verbose #16012 > |> sm'.obj_to_string
00:03:31 verbose #16013 > |> _assert_eq $'$"99991231-2359-5999-9999-9{(!test_guid() |>
00:03:31 verbose #16014 > string).[[^10..]]}"'
00:03:31 verbose #16015 > 00:03:30 debug #220 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0527db9e9851847b76794310fa3a73a09208b11cbaf58e5edf89c47cb3185594/main.spi
00:03:31 verbose #16016 >
00:03:31 verbose #16017 > ╭─[ 322.26ms - stdout ]────────────────────────────────────────────────────────╮
00:03:31 verbose #16018 > │ let rec closure0 () () : System.Guid = │
00:03:31 verbose #16019 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:31 verbose #16020 > │ let v1 : System.Guid = System.Guid v0 │
00:03:31 verbose #16021 > │ v1 │
00:03:31 verbose #16022 > │ and method1 (v0 : bool) : bool = │
00:03:31 verbose #16023 > │ v0 │
00:03:31 verbose #16024 > │ and method0 () : unit = │
00:03:31 verbose #16025 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:31 verbose #16026 > │ let v1 : System.Guid = System.Guid v0 │
00:03:31 verbose #16027 > │ let v2 : System.DateTime = System.DateTime.MaxValue │
00:03:31 verbose #16028 > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:31 verbose #16029 > │ let v4 : string = v3 v1 │
00:03:31 verbose #16030 > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:31 verbose #16031 > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:03:31 verbose #16032 > │ let v7 : (System.Guid -> string) = _.ToString() │
00:03:31 verbose #16033 > │ let v8 : string = v7 v6 │
00:03:31 verbose #16034 > │ let v9 : (unit -> System.Guid) = closure0() │
00:03:31 verbose #16035 > │ let v10 : string = $"99991231-2359-5999-9999-9{(v9() |> string).[ │
00:03:31 verbose #16036 > │ ^10..]}" │
00:03:31 verbose #16037 > │ let v11 : string = $"%A{v8}" │
00:03:31 verbose #16038 > │ System.Console.WriteLine v11 │
00:03:31 verbose #16039 > │ let v12 : bool = v8 = v10 │
00:03:31 verbose #16040 > │ let v14 : bool = │
00:03:31 verbose #16041 > │ if v12 then │
00:03:31 verbose #16042 > │ true │
00:03:31 verbose #16043 > │ else │
00:03:31 verbose #16044 > │ method1(v12) │
00:03:31 verbose #16045 > │ let v15 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:03:31 verbose #16046 > │ let v16 : bool = v14 = false │
00:03:31 verbose #16047 > │ if v16 then │
00:03:31 verbose #16048 > │ failwith<unit> v15 │
00:03:31 verbose #16049 > │ method0() │
00:03:31 verbose #16050 > │ │
00:03:31 verbose #16051 > │ "99991231-2359-5999-9999-9a9876543210" │
00:03:31 verbose #16052 > │ │
00:03:31 verbose #16053 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 verbose #16054 >
00:03:31 verbose #16055 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:31 verbose #16056 > // // test
00:03:31 verbose #16057 >
00:03:31 verbose #16058 > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.UnixEpoch'
00:03:31 verbose #16059 > |> sm'.obj_to_string
00:03:31 verbose #16060 > |> _assert_eq $'$"19700101-0000-0000-0000-0{(!test_guid () |>
00:03:31 verbose #16061 > string).[[^10..]]}"'
00:03:31 verbose #16062 > 00:03:31 debug #221 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eee635e1b3085daf98a2c61c4adb992fe0fe441a41f8bff5de5c6953a2b4b89a/main.spi
00:03:31 verbose #16063 >
00:03:31 verbose #16064 > ╭─[ 284.21ms - stdout ]────────────────────────────────────────────────────────╮
00:03:31 verbose #16065 > │ let rec closure0 () () : System.Guid = │
00:03:31 verbose #16066 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:31 verbose #16067 > │ let v1 : System.Guid = System.Guid v0 │
00:03:31 verbose #16068 > │ v1 │
00:03:31 verbose #16069 > │ and method1 (v0 : bool) : bool = │
00:03:31 verbose #16070 > │ v0 │
00:03:31 verbose #16071 > │ and method0 () : unit = │
00:03:31 verbose #16072 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:31 verbose #16073 > │ let v1 : System.Guid = System.Guid v0 │
00:03:31 verbose #16074 > │ let v2 : System.DateTime = System.DateTime.UnixEpoch │
00:03:31 verbose #16075 > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:31 verbose #16076 > │ let v4 : string = v3 v1 │
00:03:31 verbose #16077 > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:31 verbose #16078 > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:03:31 verbose #16079 > │ let v7 : (System.Guid -> string) = _.ToString() │
00:03:31 verbose #16080 > │ let v8 : string = v7 v6 │
00:03:31 verbose #16081 > │ let v9 : (unit -> System.Guid) = closure0() │
00:03:31 verbose #16082 > │ let v10 : string = $"19700101-0000-0000-0000-0{(v9 () |> string).[ │
00:03:31 verbose #16083 > │ ^10..]}" │
00:03:31 verbose #16084 > │ let v11 : string = $"%A{v8}" │
00:03:31 verbose #16085 > │ System.Console.WriteLine v11 │
00:03:31 verbose #16086 > │ let v12 : bool = v8 = v10 │
00:03:31 verbose #16087 > │ let v14 : bool = │
00:03:31 verbose #16088 > │ if v12 then │
00:03:31 verbose #16089 > │ true │
00:03:31 verbose #16090 > │ else │
00:03:31 verbose #16091 > │ method1(v12) │
00:03:31 verbose #16092 > │ let v15 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:03:31 verbose #16093 > │ let v16 : bool = v14 = false │
00:03:31 verbose #16094 > │ if v16 then │
00:03:31 verbose #16095 > │ failwith<unit> v15 │
00:03:31 verbose #16096 > │ method0() │
00:03:31 verbose #16097 > │ │
00:03:31 verbose #16098 > │ "19700101-0000-0000-0000-0a9876543210" │
00:03:31 verbose #16099 > │ │
00:03:31 verbose #16100 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 verbose #16101 >
00:03:31 verbose #16102 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:31 verbose #16103 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:31 verbose #16104 > │ ## date_time_from_guid │
00:03:31 verbose #16105 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:31 verbose #16106 >
00:03:31 verbose #16107 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:31 verbose #16108 > inl date_time_from_guid (date_time_guid : date_time_guid) =
00:03:31 verbose #16109 > inl date_time_guid = date_time_guid |> sm'.obj_to_string
00:03:31 verbose #16110 > inl sm'_replace = join sm'.replace
00:03:31 verbose #16111 > run_target function
00:03:31 verbose #16112 > | Rust _ => fun () =>
00:03:31 verbose #16113 > $'System.DateTime.Parse (!date_time_guid.[[..24]] |> !sm'_replace
00:03:31 verbose #16114 > "-" "")' : date_time
00:03:31 verbose #16115 > | _ => fun () => $'System.DateTime.ParseExact (!date_time_guid.[[..24]]
00:03:31 verbose #16116 > |> !sm'_replace "-" "", "yyyyMMddHHmmssfffffff", null)' : date_time
00:03:32 verbose #16117 > 00:03:31 debug #222 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b686984d5eed2c5f378090cc0c2c1330dcb1372215ce16624a67a38cc7ae5404/main.spi
00:03:32 verbose #16118 >
00:03:32 verbose #16119 > ╭─[ 255.11ms - stdout ]────────────────────────────────────────────────────────╮
00:03:32 verbose #16120 > │ () │
00:03:32 verbose #16121 > │ │
00:03:32 verbose #16122 > │ │
00:03:32 verbose #16123 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 verbose #16124 >
00:03:32 verbose #16125 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 verbose #16126 > // // test
00:03:32 verbose #16127 >
00:03:32 verbose #16128 > date_time_from_guid (guid.new_guid "00010101-0000-0000-0000-0a9876543210")
00:03:32 verbose #16129 > |> _assert_eq' $'System.DateTime.MinValue'
00:03:32 verbose #16130 > 00:03:31 debug #223 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aecf8098ad43c6532f2cb3eafac78d4bd4ad3bc0ccee37ee7833e505ea1578e8/main.spi
00:03:32 verbose #16131 >
00:03:32 verbose #16132 > ╭─[ 455.25ms - stdout ]────────────────────────────────────────────────────────╮
00:03:32 verbose #16133 > │ let rec closure2 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:32 verbose #16134 > │ let v3 : string = v2.Replace (v0, v1) │
00:03:32 verbose #16135 > │ v3 │
00:03:32 verbose #16136 > │ and closure1 (v0 : string) (v1 : string) : (string -> string) = │
00:03:32 verbose #16137 > │ closure2(v0, v1) │
00:03:32 verbose #16138 > │ and closure0 () (v0 : string) : (string -> (string -> string)) = │
00:03:32 verbose #16139 > │ closure1(v0) │
00:03:32 verbose #16140 > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:32 verbose #16141 > │ closure0() │
00:03:32 verbose #16142 > │ and method2 (v0 : bool) : bool = │
00:03:32 verbose #16143 > │ v0 │
00:03:32 verbose #16144 > │ and method0 () : unit = │
00:03:32 verbose #16145 > │ let v0 : string = "00010101-0000-0000-0000-0a9876543210" │
00:03:32 verbose #16146 > │ let v1 : System.Guid = System.Guid v0 │
00:03:32 verbose #16147 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:32 verbose #16148 > │ let v3 : string = v2 v1 │
00:03:32 verbose #16149 > │ let v4 : (string -> (string -> (string -> string))) = method1() │
00:03:32 verbose #16150 > │ let v5 : System.DateTime option = None │
00:03:32 verbose #16151 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:03:32 verbose #16152 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:32 verbose #16153 > │ let v7 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:03:32 verbose #16154 > │ "") │
00:03:32 verbose #16155 > │ v7 │
00:03:32 verbose #16156 > │ #endif │
00:03:32 verbose #16157 > │ #if FABLE_COMPILER_RUST && WASM │
00:03:32 verbose #16158 > │ let v8 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:03:32 verbose #16159 > │ "") │
00:03:32 verbose #16160 > │ v8 │
00:03:32 verbose #16161 > │ #endif │
00:03:32 verbose #16162 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:32 verbose #16163 > │ let v9 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:03:32 verbose #16164 > │ "") │
00:03:32 verbose #16165 > │ v9 │
00:03:32 verbose #16166 > │ #endif │
00:03:32 verbose #16167 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:32 verbose #16168 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:32 verbose #16169 > │ let v10 : System.DateTime = System.DateTime.ParseExact (v3.[..24] |> v4 │
00:03:32 verbose #16170 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:32 verbose #16171 > │ v10 │
00:03:32 verbose #16172 > │ #endif │
00:03:32 verbose #16173 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:32 verbose #16174 > │ let v11 : System.DateTime = System.DateTime.ParseExact (v3.[..24] |> v4 │
00:03:32 verbose #16175 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:32 verbose #16176 > │ v11 │
00:03:32 verbose #16177 > │ #endif │
00:03:32 verbose #16178 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:32 verbose #16179 > │ let v12 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:32 verbose #16180 > │ v12 │
00:03:32 verbose #16181 > │ #endif │
00:03:32 verbose #16182 > │ |> fun x -> _v5 <- Some x │
00:03:32 verbose #16183 > │ let v13 : System.DateTime = _v5.Value │
00:03:32 verbose #16184 > │ let v14 : System.DateTime = System.DateTime.MinValue │
00:03:32 verbose #16185 > │ let v15 : string = $"%A{v13}" │
00:03:32 verbose #16186 > │ System.Console.WriteLine v15 │
00:03:32 verbose #16187 > │ let v16 : bool = v13 = v14 │
00:03:32 verbose #16188 > │ let v18 : bool = │
00:03:32 verbose #16189 > │ if v16 then │
00:03:32 verbose #16190 > │ true │
00:03:32 verbose #16191 > │ else │
00:03:32 verbose #16192 > │ method2(v16) │
00:03:32 verbose #16193 > │ let v19 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:03:32 verbose #16194 > │ let v20 : bool = v18 = false │
00:03:32 verbose #16195 > │ if v20 then │
00:03:32 verbose #16196 > │ failwith<unit> v19 │
00:03:32 verbose #16197 > │ method0() │
00:03:32 verbose #16198 > │ │
00:03:32 verbose #16199 > │ 0001-01-01 12:00:00 AM │
00:03:32 verbose #16200 > │ │
00:03:32 verbose #16201 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 verbose #16202 >
00:03:32 verbose #16203 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 verbose #16204 > // // test
00:03:32 verbose #16205 >
00:03:32 verbose #16206 > date_time_from_guid (guid.new_guid $'$"99991231-2359-5999-9999-9{(!test_guid ()
00:03:32 verbose #16207 > |> string).[[^10..]]}"')
00:03:32 verbose #16208 > |> _assert_eq' $'System.DateTime.MaxValue'
00:03:32 verbose #16209 > 00:03:32 debug #224 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/81684ed12d4e63c9694a345a484aef409c312e7f7ce1b1d1f0755dceb49c67f1/main.spi
00:03:33 verbose #16210 >
00:03:33 verbose #16211 > ╭─[ 286.64ms - stdout ]────────────────────────────────────────────────────────╮
00:03:33 verbose #16212 > │ let rec closure0 () () : System.Guid = │
00:03:33 verbose #16213 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:33 verbose #16214 > │ let v1 : System.Guid = System.Guid v0 │
00:03:33 verbose #16215 > │ v1 │
00:03:33 verbose #16216 > │ and closure3 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:33 verbose #16217 > │ let v3 : string = v2.Replace (v0, v1) │
00:03:33 verbose #16218 > │ v3 │
00:03:33 verbose #16219 > │ and closure2 (v0 : string) (v1 : string) : (string -> string) = │
00:03:33 verbose #16220 > │ closure3(v0, v1) │
00:03:33 verbose #16221 > │ and closure1 () (v0 : string) : (string -> (string -> string)) = │
00:03:33 verbose #16222 > │ closure2(v0) │
00:03:33 verbose #16223 > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:33 verbose #16224 > │ closure1() │
00:03:33 verbose #16225 > │ and method2 (v0 : bool) : bool = │
00:03:33 verbose #16226 > │ v0 │
00:03:33 verbose #16227 > │ and method0 () : unit = │
00:03:33 verbose #16228 > │ let v0 : (unit -> System.Guid) = closure0() │
00:03:33 verbose #16229 > │ let v1 : string = $"99991231-2359-5999-9999-9{(v0 () |> string).[ │
00:03:33 verbose #16230 > │ ^10..]}" │
00:03:33 verbose #16231 > │ let v2 : System.Guid = System.Guid v1 │
00:03:33 verbose #16232 > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:33 verbose #16233 > │ let v4 : string = v3 v2 │
00:03:33 verbose #16234 > │ let v5 : (string -> (string -> (string -> string))) = method1() │
00:03:33 verbose #16235 > │ let v6 : System.DateTime option = None │
00:03:33 verbose #16236 > │ let v7 : bool = true in let mutable _v6 = v6 │
00:03:33 verbose #16237 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:33 verbose #16238 > │ let v8 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:33 verbose #16239 > │ "") │
00:03:33 verbose #16240 > │ v8 │
00:03:33 verbose #16241 > │ #endif │
00:03:33 verbose #16242 > │ #if FABLE_COMPILER_RUST && WASM │
00:03:33 verbose #16243 > │ let v9 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:33 verbose #16244 > │ "") │
00:03:33 verbose #16245 > │ v9 │
00:03:33 verbose #16246 > │ #endif │
00:03:33 verbose #16247 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:33 verbose #16248 > │ let v10 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:33 verbose #16249 > │ "") │
00:03:33 verbose #16250 > │ v10 │
00:03:33 verbose #16251 > │ #endif │
00:03:33 verbose #16252 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:33 verbose #16253 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:33 verbose #16254 > │ let v11 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:33 verbose #16255 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:33 verbose #16256 > │ v11 │
00:03:33 verbose #16257 > │ #endif │
00:03:33 verbose #16258 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:33 verbose #16259 > │ let v12 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:33 verbose #16260 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:33 verbose #16261 > │ v12 │
00:03:33 verbose #16262 > │ #endif │
00:03:33 verbose #16263 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:33 verbose #16264 > │ let v13 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:33 verbose #16265 > │ v13 │
00:03:33 verbose #16266 > │ #endif │
00:03:33 verbose #16267 > │ |> fun x -> _v6 <- Some x │
00:03:33 verbose #16268 > │ let v14 : System.DateTime = _v6.Value │
00:03:33 verbose #16269 > │ let v15 : System.DateTime = System.DateTime.MaxValue │
00:03:33 verbose #16270 > │ let v16 : string = $"%A{v14}" │
00:03:33 verbose #16271 > │ System.Console.WriteLine v16 │
00:03:33 verbose #16272 > │ let v17 : bool = v14 = v15 │
00:03:33 verbose #16273 > │ let v19 : bool = │
00:03:33 verbose #16274 > │ if v17 then │
00:03:33 verbose #16275 > │ true │
00:03:33 verbose #16276 > │ else │
00:03:33 verbose #16277 > │ method2(v17) │
00:03:33 verbose #16278 > │ let v20 : string = $"__expect / actual: %A{v14} / expected: %A{v15}" │
00:03:33 verbose #16279 > │ let v21 : bool = v19 = false │
00:03:33 verbose #16280 > │ if v21 then │
00:03:33 verbose #16281 > │ failwith<unit> v20 │
00:03:33 verbose #16282 > │ method0() │
00:03:33 verbose #16283 > │ │
00:03:33 verbose #16284 > │ 9999-12-31 11:59:59 PM │
00:03:33 verbose #16285 > │ │
00:03:33 verbose #16286 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 verbose #16287 >
00:03:33 verbose #16288 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 verbose #16289 > // // test
00:03:33 verbose #16290 >
00:03:33 verbose #16291 > date_time_from_guid (guid.new_guid $'$"19700101-0000-0000-0000-0{(!test_guid ()
00:03:33 verbose #16292 > |> string).[[^10..]]}"')
00:03:33 verbose #16293 > |> _assert_eq' $'System.DateTime.UnixEpoch'
00:03:33 verbose #16294 > 00:03:32 debug #225 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8569dfc0c9e7110dbc36e30a6c0d81f49a196488a0a0f6131f3a0bda7835383c/main.spi
00:03:33 verbose #16295 >
00:03:33 verbose #16296 > ╭─[ 353.46ms - stdout ]────────────────────────────────────────────────────────╮
00:03:33 verbose #16297 > │ let rec closure0 () () : System.Guid = │
00:03:33 verbose #16298 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:33 verbose #16299 > │ let v1 : System.Guid = System.Guid v0 │
00:03:33 verbose #16300 > │ v1 │
00:03:33 verbose #16301 > │ and closure3 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:33 verbose #16302 > │ let v3 : string = v2.Replace (v0, v1) │
00:03:33 verbose #16303 > │ v3 │
00:03:33 verbose #16304 > │ and closure2 (v0 : string) (v1 : string) : (string -> string) = │
00:03:33 verbose #16305 > │ closure3(v0, v1) │
00:03:33 verbose #16306 > │ and closure1 () (v0 : string) : (string -> (string -> string)) = │
00:03:33 verbose #16307 > │ closure2(v0) │
00:03:33 verbose #16308 > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:33 verbose #16309 > │ closure1() │
00:03:33 verbose #16310 > │ and method2 (v0 : bool) : bool = │
00:03:33 verbose #16311 > │ v0 │
00:03:33 verbose #16312 > │ and method0 () : unit = │
00:03:33 verbose #16313 > │ let v0 : (unit -> System.Guid) = closure0() │
00:03:33 verbose #16314 > │ let v1 : string = $"19700101-0000-0000-0000-0{(v0 () |> string).[ │
00:03:33 verbose #16315 > │ ^10..]}" │
00:03:33 verbose #16316 > │ let v2 : System.Guid = System.Guid v1 │
00:03:33 verbose #16317 > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:33 verbose #16318 > │ let v4 : string = v3 v2 │
00:03:33 verbose #16319 > │ let v5 : (string -> (string -> (string -> string))) = method1() │
00:03:33 verbose #16320 > │ let v6 : System.DateTime option = None │
00:03:33 verbose #16321 > │ let v7 : bool = true in let mutable _v6 = v6 │
00:03:33 verbose #16322 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:33 verbose #16323 > │ let v8 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:33 verbose #16324 > │ "") │
00:03:33 verbose #16325 > │ v8 │
00:03:33 verbose #16326 > │ #endif │
00:03:33 verbose #16327 > │ #if FABLE_COMPILER_RUST && WASM │
00:03:33 verbose #16328 > │ let v9 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:33 verbose #16329 > │ "") │
00:03:33 verbose #16330 > │ v9 │
00:03:33 verbose #16331 > │ #endif │
00:03:33 verbose #16332 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:33 verbose #16333 > │ let v10 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:33 verbose #16334 > │ "") │
00:03:33 verbose #16335 > │ v10 │
00:03:33 verbose #16336 > │ #endif │
00:03:33 verbose #16337 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:33 verbose #16338 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:33 verbose #16339 > │ let v11 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:33 verbose #16340 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:33 verbose #16341 > │ v11 │
00:03:33 verbose #16342 > │ #endif │
00:03:33 verbose #16343 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:33 verbose #16344 > │ let v12 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:33 verbose #16345 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:33 verbose #16346 > │ v12 │
00:03:33 verbose #16347 > │ #endif │
00:03:33 verbose #16348 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:33 verbose #16349 > │ let v13 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:33 verbose #16350 > │ v13 │
00:03:33 verbose #16351 > │ #endif │
00:03:33 verbose #16352 > │ |> fun x -> _v6 <- Some x │
00:03:33 verbose #16353 > │ let v14 : System.DateTime = _v6.Value │
00:03:33 verbose #16354 > │ let v15 : System.DateTime = System.DateTime.UnixEpoch │
00:03:33 verbose #16355 > │ let v16 : string = $"%A{v14}" │
00:03:33 verbose #16356 > │ System.Console.WriteLine v16 │
00:03:33 verbose #16357 > │ let v17 : bool = v14 = v15 │
00:03:33 verbose #16358 > │ let v19 : bool = │
00:03:33 verbose #16359 > │ if v17 then │
00:03:33 verbose #16360 > │ true │
00:03:33 verbose #16361 > │ else │
00:03:33 verbose #16362 > │ method2(v17) │
00:03:33 verbose #16363 > │ let v20 : string = $"__expect / actual: %A{v14} / expected: %A{v15}" │
00:03:33 verbose #16364 > │ let v21 : bool = v19 = false │
00:03:33 verbose #16365 > │ if v21 then │
00:03:33 verbose #16366 > │ failwith<unit> v20 │
00:03:33 verbose #16367 > │ method0() │
00:03:33 verbose #16368 > │ │
00:03:33 verbose #16369 > │ 1970-01-01 12:00:00 AM │
00:03:33 verbose #16370 > │ │
00:03:33 verbose #16371 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 verbose #16372 >
00:03:33 verbose #16373 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:33 verbose #16374 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:33 verbose #16375 > │ ## timestamp_guid_from_timestamp │
00:03:33 verbose #16376 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 verbose #16377 >
00:03:33 verbose #16378 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 verbose #16379 > inl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) :
00:03:33 verbose #16380 > timestamp_guid =
00:03:33 verbose #16381 > inl guid = guid |> sm'.obj_to_string
00:03:33 verbose #16382 > inl timestamp = timestamp |> sm'.obj_to_string |> sm'.pad_left 18i32 '0'
00:03:33 verbose #16383 > $'`timestamp_guid
00:03:33 verbose #16384 > $"{!timestamp.[[0..7]]}-{!timestamp.[[8..11]]}-{!timestamp.[[12..15]]}-{!timesta
00:03:33 verbose #16385 > mp.[[16..17]]}{!guid.[[21..]]}"'
00:03:33 verbose #16386 > 00:03:33 debug #226 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dd804a77723e420c5a57736cdbf2be77fb03a4a57c3bafd4c11f90b33078be92/main.spi
00:03:33 verbose #16387 >
00:03:33 verbose #16388 > ╭─[ 264.86ms - stdout ]────────────────────────────────────────────────────────╮
00:03:33 verbose #16389 > │ () │
00:03:33 verbose #16390 > │ │
00:03:33 verbose #16391 > │ │
00:03:33 verbose #16392 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 verbose #16393 >
00:03:33 verbose #16394 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 verbose #16395 > // // test
00:03:33 verbose #16396 >
00:03:33 verbose #16397 > timestamp_guid_from_timestamp (test_guid ()) (timestamp 0i64)
00:03:33 verbose #16398 > |> _assert_eq' (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:03:33 verbose #16399 > 00:03:33 debug #227 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bc6fb7c436c18c8aa92ececa628adf1dd954502262dc8723cfa55d404ed98e8a/main.spi
00:03:34 verbose #16400 >
00:03:34 verbose #16401 > ╭─[ 293.69ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 verbose #16402 > │ let rec method1 (v0 : bool) : bool = │
00:03:34 verbose #16403 > │ v0 │
00:03:34 verbose #16404 > │ and method0 () : unit = │
00:03:34 verbose #16405 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:34 verbose #16406 > │ let v1 : System.Guid = System.Guid v0 │
00:03:34 verbose #16407 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:34 verbose #16408 > │ let v3 : string = v2 v1 │
00:03:34 verbose #16409 > │ let v4 : (int64 -> string) = _.ToString() │
00:03:34 verbose #16410 > │ let v5 : string = v4 0L │
00:03:34 verbose #16411 > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:34 verbose #16412 > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:34 verbose #16413 > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:34 verbose #16414 > │ let v8 : string = "00000000-0000-0000-00dc-ba9876543210" │
00:03:34 verbose #16415 > │ let v9 : System.Guid = System.Guid v8 │
00:03:34 verbose #16416 > │ let v10 : string = $"%A{v7}" │
00:03:34 verbose #16417 > │ System.Console.WriteLine v10 │
00:03:34 verbose #16418 > │ let v11 : bool = v7 = v9 │
00:03:34 verbose #16419 > │ let v13 : bool = │
00:03:34 verbose #16420 > │ if v11 then │
00:03:34 verbose #16421 > │ true │
00:03:34 verbose #16422 > │ else │
00:03:34 verbose #16423 > │ method1(v11) │
00:03:34 verbose #16424 > │ let v14 : string = $"__expect / actual: %A{v7} / expected: %A{v9}" │
00:03:34 verbose #16425 > │ let v15 : bool = v13 = false │
00:03:34 verbose #16426 > │ if v15 then │
00:03:34 verbose #16427 > │ failwith<unit> v14 │
00:03:34 verbose #16428 > │ method0() │
00:03:34 verbose #16429 > │ │
00:03:34 verbose #16430 > │ 00000000-0000-0000-00dc-ba9876543210 │
00:03:34 verbose #16431 > │ │
00:03:34 verbose #16432 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 verbose #16433 >
00:03:34 verbose #16434 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 verbose #16435 > // // test
00:03:34 verbose #16436 >
00:03:34 verbose #16437 > timestamp_guid_from_timestamp (test_guid ()) (timestamp 999999999999999999i64)
00:03:34 verbose #16438 > |> _assert_eq' (guid.new_guid $'$"99999999-9999-9999-99dc-b{(!test_guid () |>
00:03:34 verbose #16439 > string).[[^10..]]}"')
00:03:34 verbose #16440 > 00:03:33 debug #228 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/441c8e928eec8c522bfadd0c955cacc7bce7fab0444bc17cec51763b63744f5c/main.spi
00:03:34 verbose #16441 >
00:03:34 verbose #16442 > ╭─[ 327.29ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 verbose #16443 > │ let rec closure0 () () : System.Guid = │
00:03:34 verbose #16444 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:34 verbose #16445 > │ let v1 : System.Guid = System.Guid v0 │
00:03:34 verbose #16446 > │ v1 │
00:03:34 verbose #16447 > │ and method1 (v0 : bool) : bool = │
00:03:34 verbose #16448 > │ v0 │
00:03:34 verbose #16449 > │ and method0 () : unit = │
00:03:34 verbose #16450 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:34 verbose #16451 > │ let v1 : System.Guid = System.Guid v0 │
00:03:34 verbose #16452 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:34 verbose #16453 > │ let v3 : string = v2 v1 │
00:03:34 verbose #16454 > │ let v4 : (int64 -> string) = _.ToString() │
00:03:34 verbose #16455 > │ let v5 : string = v4 999999999999999999L │
00:03:34 verbose #16456 > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:34 verbose #16457 > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:34 verbose #16458 > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:34 verbose #16459 > │ let v8 : (unit -> System.Guid) = closure0() │
00:03:34 verbose #16460 > │ let v9 : string = $"99999999-9999-9999-99dc-b{(v8 () |> string).[ │
00:03:34 verbose #16461 > │ ^10..]}" │
00:03:34 verbose #16462 > │ let v10 : System.Guid = System.Guid v9 │
00:03:34 verbose #16463 > │ let v11 : string = $"%A{v7}" │
00:03:34 verbose #16464 > │ System.Console.WriteLine v11 │
00:03:34 verbose #16465 > │ let v12 : bool = v7 = v10 │
00:03:34 verbose #16466 > │ let v14 : bool = │
00:03:34 verbose #16467 > │ if v12 then │
00:03:34 verbose #16468 > │ true │
00:03:34 verbose #16469 > │ else │
00:03:34 verbose #16470 > │ method1(v12) │
00:03:34 verbose #16471 > │ let v15 : string = $"__expect / actual: %A{v7} / expected: %A{v10}" │
00:03:34 verbose #16472 > │ let v16 : bool = v14 = false │
00:03:34 verbose #16473 > │ if v16 then │
00:03:34 verbose #16474 > │ failwith<unit> v15 │
00:03:34 verbose #16475 > │ method0() │
00:03:34 verbose #16476 > │ │
00:03:34 verbose #16477 > │ 99999999-9999-9999-99dc-ba9876543210 │
00:03:34 verbose #16478 > │ │
00:03:34 verbose #16479 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 verbose #16480 >
00:03:34 verbose #16481 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:34 verbose #16482 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:34 verbose #16483 > │ ## timestamp_from_guid │
00:03:34 verbose #16484 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 verbose #16485 >
00:03:34 verbose #16486 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 verbose #16487 > inl timestamp_from_guid (guid : date_time_guid) : timestamp =
00:03:34 verbose #16488 > inl guid = guid |> sm'.obj_to_string
00:03:34 verbose #16489 > $'`i64
00:03:34 verbose #16490 > $"{!guid.[[0..7]]}{!guid.[[9..12]]}{!guid.[[14..17]]}{!guid.[[19..20]]}"'
00:03:34 verbose #16491 > 00:03:33 debug #229 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8519f31e8e492418788d8965b72ccddd5a9a0e1af15705892adc9680bd66a8e9/main.spi
00:03:34 verbose #16492 >
00:03:34 verbose #16493 > ╭─[ 226.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 verbose #16494 > │ () │
00:03:34 verbose #16495 > │ │
00:03:34 verbose #16496 > │ │
00:03:34 verbose #16497 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 verbose #16498 >
00:03:34 verbose #16499 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 verbose #16500 > // // test
00:03:34 verbose #16501 >
00:03:34 verbose #16502 > timestamp_from_guid (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:03:34 verbose #16503 > |> _assert_eq (timestamp 0)
00:03:34 verbose #16504 > 00:03:34 debug #230 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ce3d2cef896a7bc4e764efd542594127898cafd9915ca93eafc126c63201b629/main.spi
00:03:34 verbose #16505 >
00:03:34 verbose #16506 > ╭─[ 283.89ms - stdout ]────────────────────────────────────────────────────────╮
00:03:34 verbose #16507 > │ let rec method1 (v0 : bool) : bool = │
00:03:34 verbose #16508 > │ v0 │
00:03:34 verbose #16509 > │ and method0 () : unit = │
00:03:34 verbose #16510 > │ let v0 : string = "00000000-0000-0000-00dc-ba9876543210" │
00:03:34 verbose #16511 > │ let v1 : System.Guid = System.Guid v0 │
00:03:34 verbose #16512 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:34 verbose #16513 > │ let v3 : string = v2 v1 │
00:03:34 verbose #16514 > │ let v4 : int64 = int64 $"{v3.[0..7]}{v3.[9..12]}{v3.[14..17]}{v3.[ │
00:03:34 verbose #16515 > │ 19..20]}" │
00:03:34 verbose #16516 > │ let v5 : string = $"%A{v4}" │
00:03:34 verbose #16517 > │ System.Console.WriteLine v5 │
00:03:34 verbose #16518 > │ let v6 : bool = v4 = 0L │
00:03:34 verbose #16519 > │ let v8 : bool = │
00:03:34 verbose #16520 > │ if v6 then │
00:03:34 verbose #16521 > │ true │
00:03:34 verbose #16522 > │ else │
00:03:34 verbose #16523 > │ method1(v6) │
00:03:34 verbose #16524 > │ let v9 : string = $"__expect / actual: %A{v4} / expected: %A{0L}" │
00:03:34 verbose #16525 > │ let v10 : bool = v8 = false │
00:03:34 verbose #16526 > │ if v10 then │
00:03:34 verbose #16527 > │ failwith<unit> v9 │
00:03:34 verbose #16528 > │ method0() │
00:03:34 verbose #16529 > │ │
00:03:34 verbose #16530 > │ 0L │
00:03:34 verbose #16531 > │ │
00:03:34 verbose #16532 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:34 verbose #16533 >
00:03:34 verbose #16534 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:34 verbose #16535 > // // test
00:03:34 verbose #16536 >
00:03:34 verbose #16537 > timestamp_from_guid (guid.new_guid $'$"99999999-9999-9999-99{(!test_guid () |>
00:03:34 verbose #16538 > string).[[^14..]]}"')
00:03:34 verbose #16539 > |> _assert_eq (timestamp 999999999999999999)
00:03:35 verbose #16540 > 00:03:34 debug #231 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e42bc905811dcb453d867e514b2307821753b982c37bc770aef9094e101946b2/main.spi
00:03:35 verbose #16541 >
00:03:35 verbose #16542 > ╭─[ 303.05ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 verbose #16543 > │ let rec closure0 () () : System.Guid = │
00:03:35 verbose #16544 > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:35 verbose #16545 > │ let v1 : System.Guid = System.Guid v0 │
00:03:35 verbose #16546 > │ v1 │
00:03:35 verbose #16547 > │ and method1 (v0 : bool) : bool = │
00:03:35 verbose #16548 > │ v0 │
00:03:35 verbose #16549 > │ and method0 () : unit = │
00:03:35 verbose #16550 > │ let v0 : (unit -> System.Guid) = closure0() │
00:03:35 verbose #16551 > │ let v1 : string = $"99999999-9999-9999-99{(v0 () |> string).[^14..]}" │
00:03:35 verbose #16552 > │ let v2 : System.Guid = System.Guid v1 │
00:03:35 verbose #16553 > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:35 verbose #16554 > │ let v4 : string = v3 v2 │
00:03:35 verbose #16555 > │ let v5 : int64 = int64 $"{v4.[0..7]}{v4.[9..12]}{v4.[14..17]}{v4.[ │
00:03:35 verbose #16556 > │ 19..20]}" │
00:03:35 verbose #16557 > │ let v6 : string = $"%A{v5}" │
00:03:35 verbose #16558 > │ System.Console.WriteLine v6 │
00:03:35 verbose #16559 > │ let v7 : bool = v5 = 999999999999999999L │
00:03:35 verbose #16560 > │ let v9 : bool = │
00:03:35 verbose #16561 > │ if v7 then │
00:03:35 verbose #16562 > │ true │
00:03:35 verbose #16563 > │ else │
00:03:35 verbose #16564 > │ method1(v7) │
00:03:35 verbose #16565 > │ let v10 : string = $"__expect / actual: %A{v5} / expected: │
00:03:35 verbose #16566 > │ %A{999999999999999999L}" │
00:03:35 verbose #16567 > │ let v11 : bool = v9 = false │
00:03:35 verbose #16568 > │ if v11 then │
00:03:35 verbose #16569 > │ failwith<unit> v10 │
00:03:35 verbose #16570 > │ method0() │
00:03:35 verbose #16571 > │ │
00:03:35 verbose #16572 > │ 999999999999999999L │
00:03:35 verbose #16573 > │ │
00:03:35 verbose #16574 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16575 >
00:03:35 verbose #16576 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 verbose #16577 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 verbose #16578 > │ ## now │
00:03:35 verbose #16579 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16580 >
00:03:35 verbose #16581 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 verbose #16582 > inl now () : date_time =
00:03:35 verbose #16583 > $'System.DateTime.Now'
00:03:35 verbose #16584 > 00:03:34 debug #232 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9b2bf3f0e9363fa129b9feb1a8421d0ce02032dc17aac966df9bfe25e300bed9/main.spi
00:03:35 verbose #16585 >
00:03:35 verbose #16586 > ╭─[ 224.73ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 verbose #16587 > │ () │
00:03:35 verbose #16588 > │ │
00:03:35 verbose #16589 > │ │
00:03:35 verbose #16590 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16591 >
00:03:35 verbose #16592 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 verbose #16593 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 verbose #16594 > │ ## utc_now │
00:03:35 verbose #16595 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16596 >
00:03:35 verbose #16597 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 verbose #16598 > inl utc_now () : date_time =
00:03:35 verbose #16599 > $'System.DateTime.UtcNow'
00:03:35 verbose #16600 > 00:03:34 debug #233 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ebe613da5bf4dd809cedc14f41e8f14dff3cf316f46714d5cae81546bc4faf4f/main.spi
00:03:35 verbose #16601 >
00:03:35 verbose #16602 > ╭─[ 241.88ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 verbose #16603 > │ () │
00:03:35 verbose #16604 > │ │
00:03:35 verbose #16605 > │ │
00:03:35 verbose #16606 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16607 >
00:03:35 verbose #16608 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 verbose #16609 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 verbose #16610 > │ ## time_span │
00:03:35 verbose #16611 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16612 >
00:03:35 verbose #16613 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 verbose #16614 > nominal time_span = $'System.TimeSpan'
00:03:35 verbose #16615 >
00:03:35 verbose #16616 > inl time_span x : time_span =
00:03:35 verbose #16617 > $'`time_span !x '
00:03:35 verbose #16618 > 00:03:35 debug #234 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/109ffd69d9b2f5965eaf3937dbb312d7a8c3312687a8dfad3034b58b604f1913/main.spi
00:03:35 verbose #16619 >
00:03:35 verbose #16620 > ╭─[ 285.53ms - stdout ]────────────────────────────────────────────────────────╮
00:03:35 verbose #16621 > │ () │
00:03:35 verbose #16622 > │ │
00:03:35 verbose #16623 > │ │
00:03:35 verbose #16624 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16625 >
00:03:35 verbose #16626 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:35 verbose #16627 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:35 verbose #16628 > │ ## new_time_span │
00:03:35 verbose #16629 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:35 verbose #16630 >
00:03:35 verbose #16631 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:35 verbose #16632 > inl new_time_span (a : date_time) (b : date_time) : time_span =
00:03:35 verbose #16633 > $'!b - !a '
00:03:36 verbose #16634 > 00:03:35 debug #235 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9e69038b4205ef39c57cdae2e3ab916e3944759811498dc6bdea3c719ae23fc1/main.spi
00:03:36 verbose #16635 >
00:03:36 verbose #16636 > ╭─[ 268.06ms - stdout ]────────────────────────────────────────────────────────╮
00:03:36 verbose #16637 > │ () │
00:03:36 verbose #16638 > │ │
00:03:36 verbose #16639 > │ │
00:03:36 verbose #16640 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16641 >
00:03:36 verbose #16642 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:36 verbose #16643 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:36 verbose #16644 > │ ## hours │
00:03:36 verbose #16645 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16646 >
00:03:36 verbose #16647 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:36 verbose #16648 > inl hours (time_span : time_span) : i32 =
00:03:36 verbose #16649 > time_span |> $'_.Hours'
00:03:36 verbose #16650 > 00:03:35 debug #236 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bb9256a6d62c73fbb090dd57c425b20110664e2c9392b56ebd558e2c38516c21/main.spi
00:03:36 verbose #16651 >
00:03:36 verbose #16652 > ╭─[ 223.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:36 verbose #16653 > │ () │
00:03:36 verbose #16654 > │ │
00:03:36 verbose #16655 > │ │
00:03:36 verbose #16656 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16657 >
00:03:36 verbose #16658 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:36 verbose #16659 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:36 verbose #16660 > │ ## milliseconds │
00:03:36 verbose #16661 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16662 >
00:03:36 verbose #16663 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:36 verbose #16664 > inl milliseconds (time_span : time_span) : i32 =
00:03:36 verbose #16665 > time_span |> $'_.Milliseconds'
00:03:36 verbose #16666 > 00:03:36 debug #237 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d5574b50c7200e926f1b349e352fe1e7abfadf37427ed15a34bf157c9008bc33/main.spi
00:03:36 verbose #16667 >
00:03:36 verbose #16668 > ╭─[ 228.07ms - stdout ]────────────────────────────────────────────────────────╮
00:03:36 verbose #16669 > │ () │
00:03:36 verbose #16670 > │ │
00:03:36 verbose #16671 > │ │
00:03:36 verbose #16672 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16673 >
00:03:36 verbose #16674 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:36 verbose #16675 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:36 verbose #16676 > │ ## minutes │
00:03:36 verbose #16677 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16678 >
00:03:36 verbose #16679 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:36 verbose #16680 > inl minutes (time_span : time_span) : i32 =
00:03:36 verbose #16681 > time_span |> $'_.Minutes'
00:03:36 verbose #16682 > 00:03:36 debug #238 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a8e61c615e56bc8fa3075e489a9b19f50b4a8e009192e5400e39cd853353a025/main.spi
00:03:36 verbose #16683 >
00:03:36 verbose #16684 > ╭─[ 245.77ms - stdout ]────────────────────────────────────────────────────────╮
00:03:36 verbose #16685 > │ () │
00:03:36 verbose #16686 > │ │
00:03:36 verbose #16687 > │ │
00:03:36 verbose #16688 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16689 >
00:03:36 verbose #16690 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:36 verbose #16691 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:36 verbose #16692 > │ ## seconds │
00:03:36 verbose #16693 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 verbose #16694 >
00:03:36 verbose #16695 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:36 verbose #16696 > inl seconds (time_span : time_span) : i32 =
00:03:36 verbose #16697 > time_span |> $'_.Seconds'
00:03:37 verbose #16698 > 00:03:36 debug #239 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/39e35736357412761a9a7762f0f4e6fbadb1d7a031649a95a3e1f719555f4bec/main.spi
00:03:37 verbose #16699 >
00:03:37 verbose #16700 > ╭─[ 242.93ms - stdout ]────────────────────────────────────────────────────────╮
00:03:37 verbose #16701 > │ () │
00:03:37 verbose #16702 > │ │
00:03:37 verbose #16703 > │ │
00:03:37 verbose #16704 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 verbose #16705 >
00:03:37 verbose #16706 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:37 verbose #16707 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:37 verbose #16708 > │ ## total_seconds │
00:03:37 verbose #16709 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 verbose #16710 >
00:03:37 verbose #16711 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:37 verbose #16712 > inl total_seconds (time_span : time_span) : f64 =
00:03:37 verbose #16713 > time_span |> $'_.TotalSeconds'
00:03:37 verbose #16714 > 00:03:36 debug #240 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b2fff9f63e5fa696b7412e78453cc436278a22971418fbe0df9e652ec7e25565/main.spi
00:03:37 verbose #16715 >
00:03:37 verbose #16716 > ╭─[ 223.86ms - stdout ]────────────────────────────────────────────────────────╮
00:03:37 verbose #16717 > │ () │
00:03:37 verbose #16718 > │ │
00:03:37 verbose #16719 > │ │
00:03:37 verbose #16720 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 verbose #16721 >
00:03:37 verbose #16722 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:37 verbose #16723 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:37 verbose #16724 > │ ## new_guid_from_date_time │
00:03:37 verbose #16725 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 verbose #16726 >
00:03:37 verbose #16727 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:37 verbose #16728 > inl new_guid_from_date_time (date_time : date_time) =
00:03:37 verbose #16729 > inl guid = guid.new_raw_guid ()
00:03:37 verbose #16730 > date_time_guid_from_date_time guid date_time
00:03:37 verbose #16731 > 00:03:36 debug #241 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e725cec876cee814f44bfecbd3499712237b5e797d8519f4d503247d946dc308/main.spi
00:03:37 verbose #16732 >
00:03:37 verbose #16733 > ╭─[ 291.51ms - stdout ]────────────────────────────────────────────────────────╮
00:03:37 verbose #16734 > │ () │
00:03:37 verbose #16735 > │ │
00:03:37 verbose #16736 > │ │
00:03:37 verbose #16737 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 verbose #16738 >
00:03:37 verbose #16739 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:37 verbose #16740 > // // test
00:03:37 verbose #16741 >
00:03:37 verbose #16742 > utc_now ()
00:03:37 verbose #16743 > |> new_guid_from_date_time
00:03:37 verbose #16744 > |> date_time_from_guid
00:03:37 verbose #16745 > |> fun date_time => new_time_span date_time (utc_now ()) |> total_seconds |> i32
00:03:37 verbose #16746 > |> _assert_eq 0
00:03:37 verbose #16747 > 00:03:37 debug #242 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d45bb92bf6e105f39b5c0bf32cfba1c6b14ddcb905aa2f48dcc8a1772413f2d7/main.spi
00:03:38 verbose #16748 >
00:03:38 verbose #16749 > ╭─[ 326.89ms - stdout ]────────────────────────────────────────────────────────╮
00:03:38 verbose #16750 > │ let rec closure2 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:38 verbose #16751 > │ let v3 : string = v2.Replace (v0, v1) │
00:03:38 verbose #16752 > │ v3 │
00:03:38 verbose #16753 > │ and closure1 (v0 : string) (v1 : string) : (string -> string) = │
00:03:38 verbose #16754 > │ closure2(v0, v1) │
00:03:38 verbose #16755 > │ and closure0 () (v0 : string) : (string -> (string -> string)) = │
00:03:38 verbose #16756 > │ closure1(v0) │
00:03:38 verbose #16757 > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:38 verbose #16758 > │ closure0() │
00:03:38 verbose #16759 > │ and method2 (v0 : bool) : bool = │
00:03:38 verbose #16760 > │ v0 │
00:03:38 verbose #16761 > │ and method0 () : unit = │
00:03:38 verbose #16762 > │ let v0 : System.DateTime = System.DateTime.UtcNow │
00:03:38 verbose #16763 > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:03:38 verbose #16764 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:38 verbose #16765 > │ let v3 : string = v2 v1 │
00:03:38 verbose #16766 > │ let v4 : string = v0.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:38 verbose #16767 > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:03:38 verbose #16768 > │ let v6 : (System.Guid -> string) = _.ToString() │
00:03:38 verbose #16769 > │ let v7 : string = v6 v5 │
00:03:38 verbose #16770 > │ let v8 : (string -> (string -> (string -> string))) = method1() │
00:03:38 verbose #16771 > │ let v9 : System.DateTime option = None │
00:03:38 verbose #16772 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:03:38 verbose #16773 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:38 verbose #16774 > │ let v11 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:03:38 verbose #16775 > │ "") │
00:03:38 verbose #16776 > │ v11 │
00:03:38 verbose #16777 > │ #endif │
00:03:38 verbose #16778 > │ #if FABLE_COMPILER_RUST && WASM │
00:03:38 verbose #16779 > │ let v12 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:03:38 verbose #16780 > │ "") │
00:03:38 verbose #16781 > │ v12 │
00:03:38 verbose #16782 > │ #endif │
00:03:38 verbose #16783 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:38 verbose #16784 > │ let v13 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:03:38 verbose #16785 > │ "") │
00:03:38 verbose #16786 > │ v13 │
00:03:38 verbose #16787 > │ #endif │
00:03:38 verbose #16788 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:38 verbose #16789 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:38 verbose #16790 > │ let v14 : System.DateTime = System.DateTime.ParseExact (v7.[..24] |> v8 │
00:03:38 verbose #16791 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:38 verbose #16792 > │ v14 │
00:03:38 verbose #16793 > │ #endif │
00:03:38 verbose #16794 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:38 verbose #16795 > │ let v15 : System.DateTime = System.DateTime.ParseExact (v7.[..24] |> v8 │
00:03:38 verbose #16796 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:38 verbose #16797 > │ v15 │
00:03:38 verbose #16798 > │ #endif │
00:03:38 verbose #16799 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:38 verbose #16800 > │ let v16 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:38 verbose #16801 > │ v16 │
00:03:38 verbose #16802 > │ #endif │
00:03:38 verbose #16803 > │ |> fun x -> _v9 <- Some x │
00:03:38 verbose #16804 > │ let v17 : System.DateTime = _v9.Value │
00:03:38 verbose #16805 > │ let v18 : System.DateTime = System.DateTime.UtcNow │
00:03:38 verbose #16806 > │ let v19 : System.TimeSpan = v18 - v17 │
00:03:38 verbose #16807 > │ let v20 : (System.TimeSpan -> float) = _.TotalSeconds │
00:03:38 verbose #16808 > │ let v21 : float = v20 v19 │
00:03:38 verbose #16809 > │ let v22 : int32 = int32 v21 │
00:03:38 verbose #16810 > │ let v23 : string = $"%A{v22}" │
00:03:38 verbose #16811 > │ System.Console.WriteLine v23 │
00:03:38 verbose #16812 > │ let v24 : bool = v22 = 0 │
00:03:38 verbose #16813 > │ let v26 : bool = │
00:03:38 verbose #16814 > │ if v24 then │
00:03:38 verbose #16815 > │ true │
00:03:38 verbose #16816 > │ else │
00:03:38 verbose #16817 > │ method2(v24) │
00:03:38 verbose #16818 > │ let v27 : string = $"__expect / actual: %A{v22} / expected: %A{0}" │
00:03:38 verbose #16819 > │ let v28 : bool = v26 = false │
00:03:38 verbose #16820 > │ if v28 then │
00:03:38 verbose #16821 > │ failwith<unit> v27 │
00:03:38 verbose #16822 > │ method0() │
00:03:38 verbose #16823 > │ │
00:03:38 verbose #16824 > │ 0 │
00:03:38 verbose #16825 > │ │
00:03:38 verbose #16826 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #16827 >
00:03:38 verbose #16828 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:38 verbose #16829 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:38 verbose #16830 > │ ## new_guid_from_timestamp │
00:03:38 verbose #16831 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #16832 >
00:03:38 verbose #16833 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 verbose #16834 > inl new_guid_from_timestamp (timestamp : timestamp) =
00:03:38 verbose #16835 > inl guid = guid.new_raw_guid ()
00:03:38 verbose #16836 > timestamp_guid_from_timestamp guid timestamp
00:03:38 verbose #16837 > 00:03:37 debug #243 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0e1cd384d747729d265b0862373747f61cec9e349ec174b9a84b8f1607e7fdd4/main.spi
00:03:38 verbose #16838 >
00:03:38 verbose #16839 > ╭─[ 221.28ms - stdout ]────────────────────────────────────────────────────────╮
00:03:38 verbose #16840 > │ () │
00:03:38 verbose #16841 > │ │
00:03:38 verbose #16842 > │ │
00:03:38 verbose #16843 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #16844 >
00:03:38 verbose #16845 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 verbose #16846 > // // test
00:03:38 verbose #16847 >
00:03:38 verbose #16848 > utc_now ()
00:03:38 verbose #16849 > |> ticks
00:03:38 verbose #16850 > |> new_guid_from_timestamp
00:03:38 verbose #16851 > |> timestamp_from_guid
00:03:38 verbose #16852 > |> fun (timestamp timestamp) => (timestamp - (utc_now () |> ticks |> fun
00:03:38 verbose #16853 > (timestamp x) => x)) / 100000i64
00:03:38 verbose #16854 > |> _assert_eq 0i64
00:03:38 verbose #16855 > 00:03:37 debug #244 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5846d31998d401a2e757fab667b15d484917cdd5804b10026327da3af42cbb2c/main.spi
00:03:38 verbose #16856 >
00:03:38 verbose #16857 > ╭─[ 329.91ms - stdout ]────────────────────────────────────────────────────────╮
00:03:38 verbose #16858 > │ let rec method1 (v0 : bool) : bool = │
00:03:38 verbose #16859 > │ v0 │
00:03:38 verbose #16860 > │ and method0 () : unit = │
00:03:38 verbose #16861 > │ let v0 : System.DateTime = System.DateTime.UtcNow │
00:03:38 verbose #16862 > │ let v1 : (System.DateTime -> int64) = _.Ticks │
00:03:38 verbose #16863 > │ let v2 : int64 = v1 v0 │
00:03:38 verbose #16864 > │ let v3 : System.Guid = System.Guid.NewGuid () │
00:03:38 verbose #16865 > │ let v4 : (System.Guid -> string) = _.ToString() │
00:03:38 verbose #16866 > │ let v5 : string = v4 v3 │
00:03:38 verbose #16867 > │ let v6 : (int64 -> string) = _.ToString() │
00:03:38 verbose #16868 > │ let v7 : string = v6 v2 │
00:03:38 verbose #16869 > │ let v8 : string = v7.PadLeft (18, '0') │
00:03:38 verbose #16870 > │ let v9 : System.Guid = System.Guid $"{v8.[0..7]}-{v8.[8..11]}-{v8.[ │
00:03:38 verbose #16871 > │ 12..15]}-{v8.[16..17]}{v5.[21..]}" │
00:03:38 verbose #16872 > │ let v10 : (System.Guid -> string) = _.ToString() │
00:03:38 verbose #16873 > │ let v11 : string = v10 v9 │
00:03:38 verbose #16874 > │ let v12 : int64 = int64 $"{v11.[0..7]}{v11.[9..12]}{v11.[14..17]}{v11.[ │
00:03:38 verbose #16875 > │ 19..20]}" │
00:03:38 verbose #16876 > │ let v13 : System.DateTime = System.DateTime.UtcNow │
00:03:38 verbose #16877 > │ let v14 : (System.DateTime -> int64) = _.Ticks │
00:03:38 verbose #16878 > │ let v15 : int64 = v14 v13 │
00:03:38 verbose #16879 > │ let v16 : int64 = v12 - v15 │
00:03:38 verbose #16880 > │ let v17 : int64 = v16 / 100000L │
00:03:38 verbose #16881 > │ let v18 : string = $"%A{v17}" │
00:03:38 verbose #16882 > │ System.Console.WriteLine v18 │
00:03:38 verbose #16883 > │ let v19 : bool = v17 = 0L │
00:03:38 verbose #16884 > │ let v21 : bool = │
00:03:38 verbose #16885 > │ if v19 then │
00:03:38 verbose #16886 > │ true │
00:03:38 verbose #16887 > │ else │
00:03:38 verbose #16888 > │ method1(v19) │
00:03:38 verbose #16889 > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{0L}" │
00:03:38 verbose #16890 > │ let v23 : bool = v21 = false │
00:03:38 verbose #16891 > │ if v23 then │
00:03:38 verbose #16892 > │ failwith<unit> v22 │
00:03:38 verbose #16893 > │ method0() │
00:03:38 verbose #16894 > │ │
00:03:38 verbose #16895 > │ 0L │
00:03:38 verbose #16896 > │ │
00:03:38 verbose #16897 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #16898 >
00:03:38 verbose #16899 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:38 verbose #16900 > //// test
00:03:38 verbose #16901 >
00:03:38 verbose #16902 > type DateTimeWithZone = {
00:03:38 verbose #16903 > DateTime: System.DateTimeOffset
00:03:38 verbose #16904 > TimeZone: System.TimeZoneInfo
00:03:38 verbose #16905 > }
00:03:38 verbose #16906 >
00:03:38 verbose #16907 > try
00:03:38 verbose #16908 > let now = System.DateTimeOffset.Now
00:03:38 verbose #16909 > let timeZoneInfo = System.TimeZoneInfo.Local
00:03:38 verbose #16910 > let dateTimeWithZone = { DateTime = now; TimeZone = timeZoneInfo }
00:03:38 verbose #16911 >
00:03:38 verbose #16912 > printfn "DateTime: %O" dateTimeWithZone.DateTime
00:03:38 verbose #16913 > printfn "Time Zone: %s" dateTimeWithZone.TimeZone.DisplayName
00:03:38 verbose #16914 > printfn "Is DST: %b"
00:03:38 verbose #16915 > (timeZoneInfo.IsDaylightSavingTime(dateTimeWithZone.DateTime.DateTime))
00:03:38 verbose #16916 > printfn "v1: %s" (dateTimeWithZone.TimeZone.GetUtcOffset(now) |> string)
00:03:38 verbose #16917 > printfn "v2: %s" (dateTimeWithZone.TimeZone |> string)
00:03:38 verbose #16918 > with ex ->
00:03:38 verbose #16919 > printfn "error: %A" ex
00:03:38 verbose #16920 >
00:03:38 verbose #16921 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:38 verbose #16922 > #r
00:03:38 verbose #16923 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:03:38 verbose #16924 > spNetCore.Html.Abstractions.dll"
00:03:38 verbose #16925 > #r
00:03:38 verbose #16926 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:38 verbose #16927 > otNet.Interactive.dll"
00:03:38 verbose #16928 > #r
00:03:38 verbose #16929 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:38 verbose #16930 > otNet.Interactive.FSharp.dll"
00:03:38 verbose #16931 > #r
00:03:38 verbose #16932 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:38 verbose #16933 > otNet.Interactive.Formatting.dll"
00:03:38 verbose #16934 > open System
00:03:38 verbose #16935 > open System.IO
00:03:38 verbose #16936 > open System.Text
00:03:38 verbose #16937 > open Microsoft.DotNet.Interactive.Formatting
00:03:39 verbose #16938 >
00:03:39 verbose #16939 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:39 verbose #16940 > #r
00:03:39 verbose #16941 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:39 verbose #16942 > otNet.Interactive.FSharp.dll"
00:03:39 verbose #16943 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:03:39 verbose #16944 > #r
00:03:39 verbose #16945 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:39 verbose #16946 > otNet.Interactive.dll"
00:03:39 verbose #16947 > open type Microsoft.DotNet.Interactive.Kernel
00:03:40 verbose #16948 >
00:03:40 verbose #16949 > ╭─[ 1.58s - stdout ]───────────────────────────────────────────────────────────╮
00:03:40 verbose #16950 > │ DateTime: 2024-04-22 1:36:11 AM -04:00 │
00:03:40 verbose #16951 > │ Time Zone: (UTC-04:00) Cuiaba │
00:03:40 verbose #16952 > │ Is DST: false │
00:03:40 verbose #16953 > │ v1: -04:00:00 │
00:03:40 verbose #16954 > │ v2: (UTC-04:00) Cuiaba │
00:03:40 verbose #16955 > │ │
00:03:40 verbose #16956 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 verbose #16957 >
00:03:40 verbose #16958 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:40 verbose #16959 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:40 verbose #16960 > │ ## main │
00:03:40 verbose #16961 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 verbose #16962 >
00:03:40 verbose #16963 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:40 verbose #16964 > inl main () =
00:03:40 verbose #16965 > $"let date_time_guid_from_date_time x = !date_time_guid_from_date_time x" :
00:03:40 verbose #16966 > ()
00:03:40 verbose #16967 > $"let date_time_from_guid x = !date_time_from_guid x" : ()
00:03:40 verbose #16968 > $"let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x" :
00:03:40 verbose #16969 > ()
00:03:40 verbose #16970 > $"let timestamp_from_guid x = !timestamp_from_guid x" : ()
00:03:40 verbose #16971 > $"let new_guid_from_date_time x = !new_guid_from_date_time x" : ()
00:03:40 verbose #16972 > $"let new_guid_from_timestamp x = !new_guid_from_timestamp x" : ()
00:03:40 verbose #16973 > $"let format x = !format x" : ()
00:03:40 verbose #16974 > $"let format_iso8601 x = !format_iso8601 x" : ()
00:03:40 verbose #16975 > 00:03:39 debug #245 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b9c850e35eb53c1eda15e438d943363d5e17137f923f3b45e350f3a7cb3a8035/main.spi
00:03:40 verbose #16976 >
00:03:40 verbose #16977 > ╭─[ 354.38ms - stdout ]────────────────────────────────────────────────────────╮
00:03:40 verbose #16978 > │ let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid = │
00:03:40 verbose #16979 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:40 verbose #16980 > │ let v3 : string = v2 v0 │
00:03:40 verbose #16981 > │ let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:40 verbose #16982 > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:03:40 verbose #16983 > │ v5 │
00:03:40 verbose #16984 > │ and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) = │
00:03:40 verbose #16985 > │ closure1(v0) │
00:03:40 verbose #16986 > │ and closure5 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:40 verbose #16987 > │ let v3 : string = v2.Replace (v0, v1) │
00:03:40 verbose #16988 > │ v3 │
00:03:40 verbose #16989 > │ and closure4 (v0 : string) (v1 : string) : (string -> string) = │
00:03:40 verbose #16990 > │ closure5(v0, v1) │
00:03:40 verbose #16991 > │ and closure3 () (v0 : string) : (string -> (string -> string)) = │
00:03:40 verbose #16992 > │ closure4(v0) │
00:03:40 verbose #16993 > │ and method0 () : (string -> (string -> (string -> string))) = │
00:03:40 verbose #16994 > │ closure3() │
00:03:40 verbose #16995 > │ and closure2 () (v0 : System.Guid) : System.DateTime = │
00:03:40 verbose #16996 > │ let v1 : (System.Guid -> string) = _.ToString() │
00:03:40 verbose #16997 > │ let v2 : string = v1 v0 │
00:03:40 verbose #16998 > │ let v3 : (string -> (string -> (string -> string))) = method0() │
00:03:40 verbose #16999 > │ let v4 : System.DateTime option = None │
00:03:40 verbose #17000 > │ let v5 : bool = true in let mutable _v4 = v4 │
00:03:40 verbose #17001 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:40 verbose #17002 > │ let v6 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:03:40 verbose #17003 > │ "") │
00:03:40 verbose #17004 > │ v6 │
00:03:40 verbose #17005 > │ #endif │
00:03:40 verbose #17006 > │ #if FABLE_COMPILER_RUST && WASM │
00:03:40 verbose #17007 > │ let v7 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:03:40 verbose #17008 > │ "") │
00:03:40 verbose #17009 > │ v7 │
00:03:40 verbose #17010 > │ #endif │
00:03:40 verbose #17011 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:40 verbose #17012 > │ let v8 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:03:40 verbose #17013 > │ "") │
00:03:40 verbose #17014 > │ v8 │
00:03:40 verbose #17015 > │ #endif │
00:03:40 verbose #17016 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:40 verbose #17017 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:40 verbose #17018 > │ let v9 : System.DateTime = System.DateTime.ParseExact (v2.[..24] |> v3 │
00:03:40 verbose #17019 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:40 verbose #17020 > │ v9 │
00:03:40 verbose #17021 > │ #endif │
00:03:40 verbose #17022 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:40 verbose #17023 > │ let v10 : System.DateTime = System.DateTime.ParseExact (v2.[..24] |> v3 │
00:03:40 verbose #17024 > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:40 verbose #17025 > │ v10 │
00:03:40 verbose #17026 > │ #endif │
00:03:40 verbose #17027 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:40 verbose #17028 > │ let v11 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:40 verbose #17029 > │ v11 │
00:03:40 verbose #17030 > │ #endif │
00:03:40 verbose #17031 > │ |> fun x -> _v4 <- Some x │
00:03:40 verbose #17032 > │ let v12 : System.DateTime = _v4.Value │
00:03:40 verbose #17033 > │ v12 │
00:03:40 verbose #17034 > │ and closure7 (v0 : System.Guid) (v1 : int64) : System.Guid = │
00:03:40 verbose #17035 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:40 verbose #17036 > │ let v3 : string = v2 v0 │
00:03:40 verbose #17037 > │ let v4 : (int64 -> string) = _.ToString() │
00:03:40 verbose #17038 > │ let v5 : string = v4 v1 │
00:03:40 verbose #17039 > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:40 verbose #17040 > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:40 verbose #17041 > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:40 verbose #17042 > │ v7 │
00:03:40 verbose #17043 > │ and closure6 () (v0 : System.Guid) : (int64 -> System.Guid) = │
00:03:40 verbose #17044 > │ closure7(v0) │
00:03:40 verbose #17045 > │ and closure8 () (v0 : System.Guid) : int64 = │
00:03:40 verbose #17046 > │ let v1 : (System.Guid -> string) = _.ToString() │
00:03:40 verbose #17047 > │ let v2 : string = v1 v0 │
00:03:40 verbose #17048 > │ let v3 : int64 = int64 $"{v2.[0..7]}{v2.[9..12]}{v2.[14..17]}{v2.[ │
00:03:40 verbose #17049 > │ 19..20]}" │
00:03:40 verbose #17050 > │ v3 │
00:03:40 verbose #17051 > │ and closure9 () (v0 : System.DateTime) : System.Guid = │
00:03:40 verbose #17052 > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:03:40 verbose #17053 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:40 verbose #17054 > │ let v3 : string = v2 v1 │
00:03:40 verbose #17055 > │ let v4 : string = v0.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:40 verbose #17056 > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:03:40 verbose #17057 > │ v5 │
00:03:40 verbose #17058 > │ and closure10 () (v0 : int64) : System.Guid = │
00:03:40 verbose #17059 > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:03:40 verbose #17060 > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:40 verbose #17061 > │ let v3 : string = v2 v1 │
00:03:40 verbose #17062 > │ let v4 : (int64 -> string) = _.ToString() │
00:03:40 verbose #17063 > │ let v5 : string = v4 v0 │
00:03:40 verbose #17064 > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:40 verbose #17065 > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:40 verbose #17066 > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:40 verbose #17067 > │ v7 │
00:03:40 verbose #17068 > │ and closure12 (v0 : string) (v1 : System.DateTime) : string = │
00:03:40 verbose #17069 > │ let v2 : (string -> string) = v1.ToString │
00:03:40 verbose #17070 > │ v2 v0 │
00:03:40 verbose #17071 > │ and closure11 () (v0 : string) : (System.DateTime -> string) = │
00:03:40 verbose #17072 > │ closure12(v0) │
00:03:40 verbose #17073 > │ and closure13 () (v0 : System.DateTime) : string = │
00:03:40 verbose #17074 > │ let v1 : (string -> string) = v0.ToString │
00:03:40 verbose #17075 > │ let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" │
00:03:40 verbose #17076 > │ v1 v2 │
00:03:40 verbose #17077 > │ let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() │
00:03:40 verbose #17078 > │ let date_time_guid_from_date_time x = v0 x │
00:03:40 verbose #17079 > │ let v1 : (System.Guid -> System.DateTime) = closure2() │
00:03:40 verbose #17080 > │ let date_time_from_guid x = v1 x │
00:03:40 verbose #17081 > │ let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() │
00:03:40 verbose #17082 > │ let timestamp_guid_from_timestamp x = v2 x │
00:03:40 verbose #17083 > │ let v3 : (System.Guid -> int64) = closure8() │
00:03:40 verbose #17084 > │ let timestamp_from_guid x = v3 x │
00:03:40 verbose #17085 > │ let v4 : (System.DateTime -> System.Guid) = closure9() │
00:03:40 verbose #17086 > │ let new_guid_from_date_time x = v4 x │
00:03:40 verbose #17087 > │ let v5 : (int64 -> System.Guid) = closure10() │
00:03:40 verbose #17088 > │ let new_guid_from_timestamp x = v5 x │
00:03:40 verbose #17089 > │ let v6 : (string -> (System.DateTime -> string)) = closure11() │
00:03:40 verbose #17090 > │ let format x = v6 x │
00:03:40 verbose #17091 > │ let v7 : (System.DateTime -> string) = closure13() │
00:03:40 verbose #17092 > │ let format_iso8601 x = v7 x │
00:03:40 verbose #17093 > │ () │
00:03:40 verbose #17094 > │ │
00:03:40 verbose #17095 > │ │
00:03:40 verbose #17096 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:42 verbose #17097 > [NbConvertApp] Converting notebook date_time.dib.ipynb to html
00:03:42 verbose #17098 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:42 verbose #17099 > validate(nb)
00:03:43 verbose #17100 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:43 verbose #17101 > return _pygments_highlight(
00:03:43 verbose #17102 > [NbConvertApp] Writing 385390 bytes to date_time.dib.html
00:03:44 debug #17103 execute_with_options_async / exit_code: 0 / output.Length: 94478
00:03:44 debug #12 main / executeCommand / exitCode: 0
00:03:44 debug #17104 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 math.dib -Retries 3"", None, None)
00:03:45 verbose #17105 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: math.dib / _args: [
00:03:45 verbose #17106 > "-Retries",
00:03:45 verbose #17107 > 3
00:03:45 verbose #17108 > ]
00:03:47 verbose #17109 >
00:03:47 verbose #17110 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:47 verbose #17111 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:47 verbose #17112 > │ # math │
00:03:47 verbose #17113 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 verbose #17114 >
00:03:47 verbose #17115 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 verbose #17116 > // // test
00:03:47 verbose #17117 >
00:03:47 verbose #17118 > open testing
00:03:50 verbose #17119 > 00:03:49 debug #246 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:03:51 verbose #17120 >
00:03:51 verbose #17121 > ╭─[ 4.28s - stdout ]───────────────────────────────────────────────────────────╮
00:03:51 verbose #17122 > │ () │
00:03:51 verbose #17123 > │ │
00:03:51 verbose #17124 > │ │
00:03:51 verbose #17125 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 verbose #17126 >
00:03:51 verbose #17127 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 verbose #17128 > // // test
00:03:51 verbose #17129 >
00:03:51 verbose #17130 > 2 * 2 / 0.4f64 |> sqrt
00:03:51 verbose #17131 > |> _assert_approx_eq None 3.1622776601683795
00:03:51 verbose #17132 > 00:03:51 debug #247 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/87b5a21ff6994dccc4d7f209e967da0f0684ba5f0876512508db01ae76a10045/main.spi
00:03:52 verbose #17133 >
00:03:52 verbose #17134 > ╭─[ 859.67ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 verbose #17135 > │ let rec method0 () : unit = │
00:03:52 verbose #17136 > │ let v0 : string = $"%A{3.1622776601683795}" │
00:03:52 verbose #17137 > │ System.Console.WriteLine v0 │
00:03:52 verbose #17138 > │ let v1 : string = $"__expect / actual: %A{3.1622776601683795} / │
00:03:52 verbose #17139 > │ expected: %A{3.1622776601683795}" │
00:03:52 verbose #17140 > │ () │
00:03:52 verbose #17141 > │ method0() │
00:03:52 verbose #17142 > │ │
00:03:52 verbose #17143 > │ 3.16227766 │
00:03:52 verbose #17144 > │ │
00:03:52 verbose #17145 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 verbose #17146 >
00:03:52 verbose #17147 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 verbose #17148 > // // test
00:03:52 verbose #17149 >
00:03:52 verbose #17150 > 2f64 / 3
00:03:52 verbose #17151 > |> _assert_approx_eq None 0.6666666666666666
00:03:52 verbose #17152 > 00:03:51 debug #248 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f201cbec49c0a7b6324cf45a7fd9d1966d3a7e45791741c600e64d991bc95032/main.spi
00:03:52 verbose #17153 >
00:03:52 verbose #17154 > ╭─[ 259.66ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 verbose #17155 > │ let rec method0 () : unit = │
00:03:52 verbose #17156 > │ let v0 : string = $"%A{0.6666666666666666}" │
00:03:52 verbose #17157 > │ System.Console.WriteLine v0 │
00:03:52 verbose #17158 > │ let v1 : string = $"__expect / actual: %A{0.6666666666666666} / │
00:03:52 verbose #17159 > │ expected: %A{0.6666666666666666}" │
00:03:52 verbose #17160 > │ () │
00:03:52 verbose #17161 > │ method0() │
00:03:52 verbose #17162 > │ │
00:03:52 verbose #17163 > │ 0.6666666667 │
00:03:52 verbose #17164 > │ │
00:03:52 verbose #17165 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 verbose #17166 >
00:03:52 verbose #17167 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 verbose #17168 > // // test
00:03:52 verbose #17169 >
00:03:52 verbose #17170 > 2f64 |> log
00:03:52 verbose #17171 > |> _assert_approx_eq None 0.6931471805599453
00:03:52 verbose #17172 > 00:03:52 debug #249 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f876268b4b06977b27e7fe43e9d9e44c0cf93875005652360409c55f1116d341/main.spi
00:03:52 verbose #17173 >
00:03:52 verbose #17174 > ╭─[ 269.79ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 verbose #17175 > │ let rec method0 () : unit = │
00:03:52 verbose #17176 > │ let v0 : string = $"%A{0.6931471805599453}" │
00:03:52 verbose #17177 > │ System.Console.WriteLine v0 │
00:03:52 verbose #17178 > │ let v1 : string = $"__expect / actual: %A{0.6931471805599453} / │
00:03:52 verbose #17179 > │ expected: %A{0.6931471805599453}" │
00:03:52 verbose #17180 > │ () │
00:03:52 verbose #17181 > │ method0() │
00:03:52 verbose #17182 > │ │
00:03:52 verbose #17183 > │ 0.6931471806 │
00:03:52 verbose #17184 > │ │
00:03:52 verbose #17185 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 verbose #17186 >
00:03:52 verbose #17187 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 verbose #17188 > // // test
00:03:52 verbose #17189 >
00:03:52 verbose #17190 > pi
00:03:52 verbose #17191 > |> _assert_approx_eq None 3.141592653589793f64
00:03:53 verbose #17192 > 00:03:52 debug #250 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ed29441ffd8bb707d15580b1ba4c934813222816b0c54717228948b66e9ea141/main.spi
00:03:53 verbose #17193 >
00:03:53 verbose #17194 > ╭─[ 240.32ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 verbose #17195 > │ let rec method0 () : unit = │
00:03:53 verbose #17196 > │ let v0 : string = $"%A{3.141592653589793}" │
00:03:53 verbose #17197 > │ System.Console.WriteLine v0 │
00:03:53 verbose #17198 > │ let v1 : string = $"__expect / actual: %A{3.141592653589793} / expected: │
00:03:53 verbose #17199 > │ %A{3.141592653589793}" │
00:03:53 verbose #17200 > │ () │
00:03:53 verbose #17201 > │ method0() │
00:03:53 verbose #17202 > │ │
00:03:53 verbose #17203 > │ 3.141592654 │
00:03:53 verbose #17204 > │ │
00:03:53 verbose #17205 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 verbose #17206 >
00:03:53 verbose #17207 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 verbose #17208 > // // test
00:03:53 verbose #17209 >
00:03:53 verbose #17210 > pi |> cos
00:03:53 verbose #17211 > |> _assert_eq -1f64
00:03:53 verbose #17212 > 00:03:52 debug #251 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fc982cff505ed44171faa5ade16de3cfdc975d7882c9ce2f602671b8c2e7cecf/main.spi
00:03:53 verbose #17213 >
00:03:53 verbose #17214 > ╭─[ 322.92ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 verbose #17215 > │ let rec method0 () : unit = │
00:03:53 verbose #17216 > │ let v0 : string = $"%A{-1.0}" │
00:03:53 verbose #17217 > │ System.Console.WriteLine v0 │
00:03:53 verbose #17218 > │ let v1 : string = $"__expect / actual: %A{-1.0} / expected: %A{-1.0}" │
00:03:53 verbose #17219 > │ () │
00:03:53 verbose #17220 > │ method0() │
00:03:53 verbose #17221 > │ │
00:03:53 verbose #17222 > │ -1.0 │
00:03:53 verbose #17223 > │ │
00:03:53 verbose #17224 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 verbose #17225 >
00:03:53 verbose #17226 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 verbose #17227 > // // test
00:03:53 verbose #17228 >
00:03:53 verbose #17229 > pi
00:03:53 verbose #17230 > |> cos
00:03:53 verbose #17231 > |> fun n => n / 2f64
00:03:53 verbose #17232 > |> _assert_approx_eq None -0.5
00:03:53 verbose #17233 > 00:03:53 debug #252 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7b458f213fbe11c5ff35afa0df884c3e56ac731dfbc13a3c6818babab2ed0283/main.spi
00:03:53 verbose #17234 >
00:03:53 verbose #17235 > ╭─[ 273.47ms - stdout ]────────────────────────────────────────────────────────╮
00:03:53 verbose #17236 > │ let rec method0 () : unit = │
00:03:53 verbose #17237 > │ let v0 : string = $"%A{-0.5}" │
00:03:53 verbose #17238 > │ System.Console.WriteLine v0 │
00:03:53 verbose #17239 > │ let v1 : string = $"__expect / actual: %A{-0.5} / expected: %A{-0.5}" │
00:03:53 verbose #17240 > │ () │
00:03:53 verbose #17241 > │ method0() │
00:03:53 verbose #17242 > │ │
00:03:53 verbose #17243 > │ -0.5 │
00:03:53 verbose #17244 > │ │
00:03:53 verbose #17245 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 verbose #17246 >
00:03:53 verbose #17247 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 verbose #17248 > // // test
00:03:53 verbose #17249 >
00:03:53 verbose #17250 > pi / 2 |> cos
00:03:53 verbose #17251 > |> _assert_approx_eq None 0.00000000000000006123233995736766f64
00:03:53 verbose #17252 > 00:03:53 debug #253 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d3e7563eb61c58eb9a0de8f13fb4644cd6e4bd27fa8259645e887d11cbb52a4c/main.spi
00:03:54 verbose #17253 >
00:03:54 verbose #17254 > ╭─[ 264.33ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 verbose #17255 > │ let rec method0 () : unit = │
00:03:54 verbose #17256 > │ let v0 : string = $"%A{6.123233995736766E-17}" │
00:03:54 verbose #17257 > │ System.Console.WriteLine v0 │
00:03:54 verbose #17258 > │ let v1 : string = $"__expect / actual: %A{6.123233995736766E-17} / │
00:03:54 verbose #17259 > │ expected: %A{6.123233995736766E-17}" │
00:03:54 verbose #17260 > │ () │
00:03:54 verbose #17261 > │ method0() │
00:03:54 verbose #17262 > │ │
00:03:54 verbose #17263 > │ 6.123233996e-17 │
00:03:54 verbose #17264 > │ │
00:03:54 verbose #17265 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17266 >
00:03:54 verbose #17267 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:54 verbose #17268 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:54 verbose #17269 > │ ## atan2 │
00:03:54 verbose #17270 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17271 >
00:03:54 verbose #17272 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 verbose #17273 > inl atan2 (y : f64) (x : f64) =
00:03:54 verbose #17274 > $"System.Math.Atan2 (!y, !x)" : f64
00:03:54 verbose #17275 > 00:03:53 debug #254 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b52f00ae01e0a82baf398447b5c66bc8552bc3ed8e220d6574b2c95a9b9562a1/main.spi
00:03:54 verbose #17276 >
00:03:54 verbose #17277 > ╭─[ 258.52ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 verbose #17278 > │ () │
00:03:54 verbose #17279 > │ │
00:03:54 verbose #17280 > │ │
00:03:54 verbose #17281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17282 >
00:03:54 verbose #17283 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 verbose #17284 > // // test
00:03:54 verbose #17285 >
00:03:54 verbose #17286 > 0 |> atan2 1
00:03:54 verbose #17287 > |> _assert_eq 1.5707963267948966
00:03:54 verbose #17288 > 00:03:53 debug #255 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/282bea1a492a1f762845c6b5e6c280778ba9ca7e342dabcd29c5bedcdcdf9570/main.spi
00:03:54 verbose #17289 >
00:03:54 verbose #17290 > ╭─[ 313.61ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 verbose #17291 > │ let rec method1 (v0 : bool) : bool = │
00:03:54 verbose #17292 > │ v0 │
00:03:54 verbose #17293 > │ and method0 () : unit = │
00:03:54 verbose #17294 > │ let v0 : float = System.Math.Atan2 (1.0, 0.0) │
00:03:54 verbose #17295 > │ let v1 : string = $"%A{v0}" │
00:03:54 verbose #17296 > │ System.Console.WriteLine v1 │
00:03:54 verbose #17297 > │ let v2 : bool = v0 = 1.5707963267948966 │
00:03:54 verbose #17298 > │ let v4 : bool = │
00:03:54 verbose #17299 > │ if v2 then │
00:03:54 verbose #17300 > │ true │
00:03:54 verbose #17301 > │ else │
00:03:54 verbose #17302 > │ method1(v2) │
00:03:54 verbose #17303 > │ let v5 : string = $"__expect / actual: %A{v0} / expected: │
00:03:54 verbose #17304 > │ %A{1.5707963267948966}" │
00:03:54 verbose #17305 > │ let v6 : bool = v4 = false │
00:03:54 verbose #17306 > │ if v6 then │
00:03:54 verbose #17307 > │ failwith<unit> v5 │
00:03:54 verbose #17308 > │ method0() │
00:03:54 verbose #17309 > │ │
00:03:54 verbose #17310 > │ 1.570796327 │
00:03:54 verbose #17311 > │ │
00:03:54 verbose #17312 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17313 >
00:03:54 verbose #17314 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:54 verbose #17315 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:54 verbose #17316 > │ ## e │
00:03:54 verbose #17317 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17318 >
00:03:54 verbose #17319 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 verbose #17320 > inl e () =
00:03:54 verbose #17321 > exp 1f64
00:03:54 verbose #17322 > 00:03:54 debug #256 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9f18f8809a1420fe6309a84b48fe1415a4f94278d9c504bb06944d9b47a33ff2/main.spi
00:03:54 verbose #17323 >
00:03:54 verbose #17324 > ╭─[ 250.23ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 verbose #17325 > │ () │
00:03:54 verbose #17326 > │ │
00:03:54 verbose #17327 > │ │
00:03:54 verbose #17328 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17329 >
00:03:54 verbose #17330 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:54 verbose #17331 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:54 verbose #17332 > │ ## floor │
00:03:54 verbose #17333 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #17334 >
00:03:54 verbose #17335 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 verbose #17336 > inl floor forall t {float}. (n : t) : t =
00:03:54 verbose #17337 > n |> $'floor'
00:03:55 verbose #17338 > 00:03:54 debug #257 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9e926fdbe3def79728214d9696c26ef88c37fccacce22427c44cd0ae376edd9f/main.spi
00:03:55 verbose #17339 >
00:03:55 verbose #17340 > ╭─[ 255.62ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 verbose #17341 > │ () │
00:03:55 verbose #17342 > │ │
00:03:55 verbose #17343 > │ │
00:03:55 verbose #17344 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #17345 >
00:03:55 verbose #17346 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 verbose #17347 > // // test
00:03:55 verbose #17348 >
00:03:55 verbose #17349 > 0.6 |> floor
00:03:55 verbose #17350 > |> _assert_eq 0f64
00:03:55 verbose #17351 > 00:03:54 debug #258 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b926d15f7df8c5da17b3f1c85c24ca5eac34b38534816ab26b0581b4ff19de0e/main.spi
00:03:55 verbose #17352 >
00:03:55 verbose #17353 > ╭─[ 328.83ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 verbose #17354 > │ let rec method1 (v0 : bool) : bool = │
00:03:55 verbose #17355 > │ v0 │
00:03:55 verbose #17356 > │ and method0 () : unit = │
00:03:55 verbose #17357 > │ let v0 : (float -> float) = floor │
00:03:55 verbose #17358 > │ let v1 : float = v0 0.6 │
00:03:55 verbose #17359 > │ let v2 : string = $"%A{v1}" │
00:03:55 verbose #17360 > │ System.Console.WriteLine v2 │
00:03:55 verbose #17361 > │ let v3 : bool = v1 = 0.0 │
00:03:55 verbose #17362 > │ let v5 : bool = │
00:03:55 verbose #17363 > │ if v3 then │
00:03:55 verbose #17364 > │ true │
00:03:55 verbose #17365 > │ else │
00:03:55 verbose #17366 > │ method1(v3) │
00:03:55 verbose #17367 > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{0.0}" │
00:03:55 verbose #17368 > │ let v7 : bool = v5 = false │
00:03:55 verbose #17369 > │ if v7 then │
00:03:55 verbose #17370 > │ failwith<unit> v6 │
00:03:55 verbose #17371 > │ method0() │
00:03:55 verbose #17372 > │ │
00:03:55 verbose #17373 > │ 0.0 │
00:03:55 verbose #17374 > │ │
00:03:55 verbose #17375 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #17376 >
00:03:55 verbose #17377 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 verbose #17378 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 verbose #17379 > │ ## ceil │
00:03:55 verbose #17380 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #17381 >
00:03:55 verbose #17382 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 verbose #17383 > inl ceil forall t {float}. (n : t) : t =
00:03:55 verbose #17384 > n |> $'ceil'
00:03:55 verbose #17385 > 00:03:55 debug #259 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6ec9e7066fc9025ca918507b5f2b101901cfb9fd538defd3b8fd96866eaf081f/main.spi
00:03:55 verbose #17386 >
00:03:55 verbose #17387 > ╭─[ 236.86ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 verbose #17388 > │ () │
00:03:55 verbose #17389 > │ │
00:03:55 verbose #17390 > │ │
00:03:55 verbose #17391 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #17392 >
00:03:55 verbose #17393 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 verbose #17394 > // // test
00:03:55 verbose #17395 >
00:03:55 verbose #17396 > 0.6 |> ceil
00:03:55 verbose #17397 > |> _assert_eq 1f64
00:03:55 verbose #17398 > 00:03:55 debug #260 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/944af23eadcba06dbcf5481a7d879730112003385d0f89a2495a05f399526f15/main.spi
00:03:55 verbose #17399 >
00:03:55 verbose #17400 > ╭─[ 247.48ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 verbose #17401 > │ let rec method1 (v0 : bool) : bool = │
00:03:55 verbose #17402 > │ v0 │
00:03:55 verbose #17403 > │ and method0 () : unit = │
00:03:55 verbose #17404 > │ let v0 : (float -> float) = ceil │
00:03:55 verbose #17405 > │ let v1 : float = v0 0.6 │
00:03:55 verbose #17406 > │ let v2 : string = $"%A{v1}" │
00:03:55 verbose #17407 > │ System.Console.WriteLine v2 │
00:03:55 verbose #17408 > │ let v3 : bool = v1 = 1.0 │
00:03:55 verbose #17409 > │ let v5 : bool = │
00:03:55 verbose #17410 > │ if v3 then │
00:03:55 verbose #17411 > │ true │
00:03:55 verbose #17412 > │ else │
00:03:55 verbose #17413 > │ method1(v3) │
00:03:55 verbose #17414 > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{1.0}" │
00:03:55 verbose #17415 > │ let v7 : bool = v5 = false │
00:03:55 verbose #17416 > │ if v7 then │
00:03:55 verbose #17417 > │ failwith<unit> v6 │
00:03:55 verbose #17418 > │ method0() │
00:03:55 verbose #17419 > │ │
00:03:55 verbose #17420 > │ 1.0 │
00:03:55 verbose #17421 > │ │
00:03:55 verbose #17422 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #17423 >
00:03:55 verbose #17424 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 verbose #17425 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 verbose #17426 > │ ## round │
00:03:55 verbose #17427 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #17428 >
00:03:55 verbose #17429 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 verbose #17430 > inl round forall t {float}. (n : t) : t =
00:03:55 verbose #17431 > n |> $'round'
00:03:56 verbose #17432 > 00:03:55 debug #261 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/593cd5dadf0ac6a91b1962983385282591b3532b4a1b99524d9b0058c35d3542/main.spi
00:03:56 verbose #17433 >
00:03:56 verbose #17434 > ╭─[ 284.77ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 verbose #17435 > │ () │
00:03:56 verbose #17436 > │ │
00:03:56 verbose #17437 > │ │
00:03:56 verbose #17438 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #17439 >
00:03:56 verbose #17440 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #17441 > // // test
00:03:56 verbose #17442 >
00:03:56 verbose #17443 > 0.5 |> round
00:03:56 verbose #17444 > |> _assert_eq 0f64
00:03:56 verbose #17445 >
00:03:56 verbose #17446 > 1.5 |> round
00:03:56 verbose #17447 > |> _assert_eq 2f64
00:03:56 verbose #17448 >
00:03:56 verbose #17449 > 2.5 |> round
00:03:56 verbose #17450 > |> _assert_eq 2f64
00:03:56 verbose #17451 >
00:03:56 verbose #17452 > 3.5 |> round
00:03:56 verbose #17453 > |> _assert_eq 4f64
00:03:56 verbose #17454 > 00:03:55 debug #262 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b7e854ce4afe028c5a5b7ca5484faeb0ea63410a8848df8b1dae6816b6eca162/main.spi
00:03:56 verbose #17455 >
00:03:56 verbose #17456 > ╭─[ 267.01ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 verbose #17457 > │ let rec method1 (v0 : bool) : bool = │
00:03:56 verbose #17458 > │ v0 │
00:03:56 verbose #17459 > │ and method0 () : unit = │
00:03:56 verbose #17460 > │ let v0 : (float -> float) = round │
00:03:56 verbose #17461 > │ let v1 : float = v0 0.5 │
00:03:56 verbose #17462 > │ let v2 : string = $"%A{v1}" │
00:03:56 verbose #17463 > │ System.Console.WriteLine v2 │
00:03:56 verbose #17464 > │ let v3 : bool = v1 = 0.0 │
00:03:56 verbose #17465 > │ let v5 : bool = │
00:03:56 verbose #17466 > │ if v3 then │
00:03:56 verbose #17467 > │ true │
00:03:56 verbose #17468 > │ else │
00:03:56 verbose #17469 > │ method1(v3) │
00:03:56 verbose #17470 > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{0.0}" │
00:03:56 verbose #17471 > │ let v7 : bool = v5 = false │
00:03:56 verbose #17472 > │ if v7 then │
00:03:56 verbose #17473 > │ failwith<unit> v6 │
00:03:56 verbose #17474 > │ let v8 : (float -> float) = round │
00:03:56 verbose #17475 > │ let v9 : float = v8 1.5 │
00:03:56 verbose #17476 > │ let v10 : string = $"%A{v9}" │
00:03:56 verbose #17477 > │ System.Console.WriteLine v10 │
00:03:56 verbose #17478 > │ let v11 : bool = v9 = 2.0 │
00:03:56 verbose #17479 > │ let v13 : bool = │
00:03:56 verbose #17480 > │ if v11 then │
00:03:56 verbose #17481 > │ true │
00:03:56 verbose #17482 > │ else │
00:03:56 verbose #17483 > │ method1(v11) │
00:03:56 verbose #17484 > │ let v14 : string = $"__expect / actual: %A{v9} / expected: %A{2.0}" │
00:03:56 verbose #17485 > │ let v15 : bool = v13 = false │
00:03:56 verbose #17486 > │ if v15 then │
00:03:56 verbose #17487 > │ failwith<unit> v14 │
00:03:56 verbose #17488 > │ let v16 : (float -> float) = round │
00:03:56 verbose #17489 > │ let v17 : float = v16 2.5 │
00:03:56 verbose #17490 > │ let v18 : string = $"%A{v17}" │
00:03:56 verbose #17491 > │ System.Console.WriteLine v18 │
00:03:56 verbose #17492 > │ let v19 : bool = v17 = 2.0 │
00:03:56 verbose #17493 > │ let v21 : bool = │
00:03:56 verbose #17494 > │ if v19 then │
00:03:56 verbose #17495 > │ true │
00:03:56 verbose #17496 > │ else │
00:03:56 verbose #17497 > │ method1(v19) │
00:03:56 verbose #17498 > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{2.0}" │
00:03:56 verbose #17499 > │ let v23 : bool = v21 = false │
00:03:56 verbose #17500 > │ if v23 then │
00:03:56 verbose #17501 > │ failwith<unit> v22 │
00:03:56 verbose #17502 > │ let v24 : (float -> float) = round │
00:03:56 verbose #17503 > │ let v25 : float = v24 3.5 │
00:03:56 verbose #17504 > │ let v26 : string = $"%A{v25}" │
00:03:56 verbose #17505 > │ System.Console.WriteLine v26 │
00:03:56 verbose #17506 > │ let v27 : bool = v25 = 4.0 │
00:03:56 verbose #17507 > │ let v29 : bool = │
00:03:56 verbose #17508 > │ if v27 then │
00:03:56 verbose #17509 > │ true │
00:03:56 verbose #17510 > │ else │
00:03:56 verbose #17511 > │ method1(v27) │
00:03:56 verbose #17512 > │ let v30 : string = $"__expect / actual: %A{v25} / expected: %A{4.0}" │
00:03:56 verbose #17513 > │ let v31 : bool = v29 = false │
00:03:56 verbose #17514 > │ if v31 then │
00:03:56 verbose #17515 > │ failwith<unit> v30 │
00:03:56 verbose #17516 > │ method0() │
00:03:56 verbose #17517 > │ │
00:03:56 verbose #17518 > │ 0.0 │
00:03:56 verbose #17519 > │ 2.0 │
00:03:56 verbose #17520 > │ 2.0 │
00:03:56 verbose #17521 > │ 4.0 │
00:03:56 verbose #17522 > │ │
00:03:56 verbose #17523 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #17524 >
00:03:56 verbose #17525 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 verbose #17526 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 verbose #17527 > │ ## log_base │
00:03:56 verbose #17528 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #17529 >
00:03:56 verbose #17530 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #17531 > inl log_base (new_base : f64) (a : f64) =
00:03:56 verbose #17532 > $"System.Math.Log (!a, !new_base)" : f64
00:03:56 verbose #17533 > 00:03:56 debug #263 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5cc26f6b307404f6c34526ddc5dfb5d4810ef14de3a38adcdaa329989f623bb1/main.spi
00:03:56 verbose #17534 >
00:03:56 verbose #17535 > ╭─[ 241.55ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 verbose #17536 > │ () │
00:03:56 verbose #17537 > │ │
00:03:56 verbose #17538 > │ │
00:03:56 verbose #17539 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #17540 >
00:03:56 verbose #17541 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #17542 > // // test
00:03:56 verbose #17543 >
00:03:56 verbose #17544 > 100 |> log_base 10
00:03:56 verbose #17545 > |> _assert_eq 2
00:03:56 verbose #17546 > 00:03:56 debug #264 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8082d61c18bfe3690d4405438d19aa4743c4231769af9d1834a9581f6aed9055/main.spi
00:03:57 verbose #17547 >
00:03:57 verbose #17548 > ╭─[ 245.19ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 verbose #17549 > │ let rec method1 (v0 : bool) : bool = │
00:03:57 verbose #17550 > │ v0 │
00:03:57 verbose #17551 > │ and method0 () : unit = │
00:03:57 verbose #17552 > │ let v0 : float = System.Math.Log (100.0, 10.0) │
00:03:57 verbose #17553 > │ let v1 : string = $"%A{v0}" │
00:03:57 verbose #17554 > │ System.Console.WriteLine v1 │
00:03:57 verbose #17555 > │ let v2 : bool = v0 = 2.0 │
00:03:57 verbose #17556 > │ let v4 : bool = │
00:03:57 verbose #17557 > │ if v2 then │
00:03:57 verbose #17558 > │ true │
00:03:57 verbose #17559 > │ else │
00:03:57 verbose #17560 > │ method1(v2) │
00:03:57 verbose #17561 > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{2.0}" │
00:03:57 verbose #17562 > │ let v6 : bool = v4 = false │
00:03:57 verbose #17563 > │ if v6 then │
00:03:57 verbose #17564 > │ failwith<unit> v5 │
00:03:57 verbose #17565 > │ method0() │
00:03:57 verbose #17566 > │ │
00:03:57 verbose #17567 > │ 2.0 │
00:03:57 verbose #17568 > │ │
00:03:57 verbose #17569 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #17570 >
00:03:57 verbose #17571 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 verbose #17572 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 verbose #17573 > │ ## round │
00:03:57 verbose #17574 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #17575 >
00:03:57 verbose #17576 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 verbose #17577 > inl round forall t {float}. (x : t) : t =
00:03:57 verbose #17578 > $"round !x"
00:03:57 verbose #17579 > 00:03:56 debug #265 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4a82adc786a4d2e4d5c8f2e10720e424266e5819fb02bf34e6bd3e601c751636/main.spi
00:03:57 verbose #17580 >
00:03:57 verbose #17581 > ╭─[ 230.69ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 verbose #17582 > │ () │
00:03:57 verbose #17583 > │ │
00:03:57 verbose #17584 > │ │
00:03:57 verbose #17585 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #17586 >
00:03:57 verbose #17587 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 verbose #17588 > // // test
00:03:57 verbose #17589 >
00:03:57 verbose #17590 > 0.5 |> round
00:03:57 verbose #17591 > |> _assert_eq 0f64
00:03:57 verbose #17592 > 00:03:56 debug #266 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c2800e18c533626438a5e8bd0777d340a96a68a7531380b1cc02d38dadd37232/main.spi
00:03:57 verbose #17593 >
00:03:57 verbose #17594 > ╭─[ 257.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 verbose #17595 > │ let rec method1 (v0 : bool) : bool = │
00:03:57 verbose #17596 > │ v0 │
00:03:57 verbose #17597 > │ and method0 () : unit = │
00:03:57 verbose #17598 > │ let v0 : float = round 0.5 │
00:03:57 verbose #17599 > │ let v1 : string = $"%A{v0}" │
00:03:57 verbose #17600 > │ System.Console.WriteLine v1 │
00:03:57 verbose #17601 > │ let v2 : bool = v0 = 0.0 │
00:03:57 verbose #17602 > │ let v4 : bool = │
00:03:57 verbose #17603 > │ if v2 then │
00:03:57 verbose #17604 > │ true │
00:03:57 verbose #17605 > │ else │
00:03:57 verbose #17606 > │ method1(v2) │
00:03:57 verbose #17607 > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{0.0}" │
00:03:57 verbose #17608 > │ let v6 : bool = v4 = false │
00:03:57 verbose #17609 > │ if v6 then │
00:03:57 verbose #17610 > │ failwith<unit> v5 │
00:03:57 verbose #17611 > │ method0() │
00:03:57 verbose #17612 > │ │
00:03:57 verbose #17613 > │ 0.0 │
00:03:57 verbose #17614 > │ │
00:03:57 verbose #17615 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #17616 >
00:03:57 verbose #17617 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 verbose #17618 > // // test
00:03:57 verbose #17619 >
00:03:57 verbose #17620 > 0.6 |> round
00:03:57 verbose #17621 > |> _assert_eq 1f64
00:03:57 verbose #17622 > 00:03:57 debug #267 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9bdfbc487d6ac05c65e40811e4191da51c25ca471316fff7173cbec4948a6f91/main.spi
00:03:57 verbose #17623 >
00:03:57 verbose #17624 > ╭─[ 274.67ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 verbose #17625 > │ let rec method1 (v0 : bool) : bool = │
00:03:57 verbose #17626 > │ v0 │
00:03:57 verbose #17627 > │ and method0 () : unit = │
00:03:57 verbose #17628 > │ let v0 : float = round 0.6 │
00:03:57 verbose #17629 > │ let v1 : string = $"%A{v0}" │
00:03:57 verbose #17630 > │ System.Console.WriteLine v1 │
00:03:57 verbose #17631 > │ let v2 : bool = v0 = 1.0 │
00:03:57 verbose #17632 > │ let v4 : bool = │
00:03:57 verbose #17633 > │ if v2 then │
00:03:57 verbose #17634 > │ true │
00:03:57 verbose #17635 > │ else │
00:03:57 verbose #17636 > │ method1(v2) │
00:03:57 verbose #17637 > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{1.0}" │
00:03:57 verbose #17638 > │ let v6 : bool = v4 = false │
00:03:57 verbose #17639 > │ if v6 then │
00:03:57 verbose #17640 > │ failwith<unit> v5 │
00:03:57 verbose #17641 > │ method0() │
00:03:57 verbose #17642 > │ │
00:03:57 verbose #17643 > │ 1.0 │
00:03:57 verbose #17644 > │ │
00:03:57 verbose #17645 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #17646 >
00:03:57 verbose #17647 > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 verbose #17648 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 verbose #17649 > │ ## square │
00:03:57 verbose #17650 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #17651 >
00:03:57 verbose #17652 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 verbose #17653 > inl square x =
00:03:57 verbose #17654 > x ** 2
00:03:58 verbose #17655 > 00:03:57 debug #268 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0a6224adba94e3830901ee228ee47e45ca3607fb178a21f3b7959f83b3b9c373/main.spi
00:03:58 verbose #17656 >
00:03:58 verbose #17657 > ╭─[ 236.75ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 verbose #17658 > │ () │
00:03:58 verbose #17659 > │ │
00:03:58 verbose #17660 > │ │
00:03:58 verbose #17661 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 verbose #17662 >
00:03:58 verbose #17663 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 verbose #17664 > // // test
00:03:58 verbose #17665 >
00:03:58 verbose #17666 > 5f64
00:03:58 verbose #17667 > |> sqrt
00:03:58 verbose #17668 > |> square
00:03:58 verbose #17669 > |> _assert_approx_eq None 5
00:03:58 verbose #17670 > 00:03:57 debug #269 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ba0718d978830d09c983a032cdb9fa16f86d2e7f1ff2a68aa358e77d82db4ae8/main.spi
00:03:58 verbose #17671 >
00:03:58 verbose #17672 > ╭─[ 295.47ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 verbose #17673 > │ let rec method0 () : unit = │
00:03:58 verbose #17674 > │ let v0 : string = $"%A{5.000000000000001}" │
00:03:58 verbose #17675 > │ System.Console.WriteLine v0 │
00:03:58 verbose #17676 > │ let v1 : string = $"__expect / actual: %A{5.000000000000001} / expected: │
00:03:58 verbose #17677 > │ %A{5.0}" │
00:03:58 verbose #17678 > │ () │
00:03:58 verbose #17679 > │ method0() │
00:03:58 verbose #17680 > │ │
00:03:58 verbose #17681 > │ 5.0 │
00:03:58 verbose #17682 > │ │
00:03:58 verbose #17683 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 verbose #17684 >
00:03:58 verbose #17685 > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 verbose #17686 > // // test
00:03:58 verbose #17687 >
00:03:58 verbose #17688 > e () |> square
00:03:58 verbose #17689 > |> _assert_approx_eq None 7.3890560989306495
00:03:58 verbose #17690 > 00:03:57 debug #270 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e8a3502899a4272c12824483af8d92c4e64f786f1eda3217d7d9c8b586512baf/main.spi
00:03:58 verbose #17691 >
00:03:58 verbose #17692 > ╭─[ 265.67ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 verbose #17693 > │ let rec method0 () : unit = │
00:03:58 verbose #17694 > │ let v0 : string = $"%A{7.3890560989306495}" │
00:03:58 verbose #17695 > │ System.Console.WriteLine v0 │
00:03:58 verbose #17696 > │ let v1 : string = $"__expect / actual: %A{7.3890560989306495} / │
00:03:58 verbose #17697 > │ expected: %A{7.3890560989306495}" │
00:03:58 verbose #17698 > │ () │
00:03:58 verbose #17699 > │ method0() │
00:03:58 verbose #17700 > │ │
00:03:58 verbose #17701 > │ 7.389056099 │
00:03:58 verbose #17702 > │ │
00:03:58 verbose #17703 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 verbose #17704 > [NbConvertApp] Converting notebook math.dib.ipynb to html
00:04:00 verbose #17705 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:00 verbose #17706 > validate(nb)
00:04:01 verbose #17707 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:01 verbose #17708 > return _pygments_highlight(
00:04:01 verbose #17709 > [NbConvertApp] Writing 313224 bytes to math.dib.html
00:04:01 debug #17710 execute_with_options_async / exit_code: 0 / output.Length: 36034
00:04:01 debug #13 main / executeCommand / exitCode: 0
00:04:01 debug #17711 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"optionm'.dib\" -Retries 3"",
None, None)
00:04:02 verbose #17712 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: optionm'.dib / _args: [
00:04:02 verbose #17713 > "-Retries",
00:04:02 verbose #17714 > 3
00:04:02 verbose #17715 > ]
00:04:04 verbose #17716 >
00:04:04 verbose #17717 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #17718 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #17719 > │ # optionm │
00:04:04 verbose #17720 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #17721 >
00:04:04 verbose #17722 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #17723 > // // test
00:04:04 verbose #17724 >
00:04:04 verbose #17725 > open testing
00:04:07 verbose #17726 > 00:04:06 debug #271 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:04:08 verbose #17727 >
00:04:08 verbose #17728 > ╭─[ 3.99s - stdout ]───────────────────────────────────────────────────────────╮
00:04:08 verbose #17729 > │ () │
00:04:08 verbose #17730 > │ │
00:04:08 verbose #17731 > │ │
00:04:08 verbose #17732 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 verbose #17733 >
00:04:08 verbose #17734 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:08 verbose #17735 > open rust_operators
00:04:08 verbose #17736 > 00:04:08 debug #272 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0/main.spi
00:04:08 verbose #17737 >
00:04:08 verbose #17738 > ╭─[ 305.88ms - stdout ]────────────────────────────────────────────────────────╮
00:04:08 verbose #17739 > │ () │
00:04:08 verbose #17740 > │ │
00:04:08 verbose #17741 > │ │
00:04:08 verbose #17742 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 verbose #17743 >
00:04:08 verbose #17744 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:08 verbose #17745 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:08 verbose #17746 > │ ## default_value │
00:04:08 verbose #17747 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 verbose #17748 >
00:04:08 verbose #17749 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:08 verbose #17750 > inl default_value d =
00:04:08 verbose #17751 > optionm.defaultWith d
00:04:08 verbose #17752 > 00:04:08 debug #273 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/67879457f8da40dc6d225e4ec958787028de82cfe885be7a3cdce48a543bf5c4/main.spi
00:04:09 verbose #17753 >
00:04:09 verbose #17754 > ╭─[ 272.52ms - stdout ]────────────────────────────────────────────────────────╮
00:04:09 verbose #17755 > │ () │
00:04:09 verbose #17756 > │ │
00:04:09 verbose #17757 > │ │
00:04:09 verbose #17758 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:09 verbose #17759 >
00:04:09 verbose #17760 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:09 verbose #17761 > // // test
00:04:09 verbose #17762 >
00:04:09 verbose #17763 > None
00:04:09 verbose #17764 > |> default_value 3i32
00:04:09 verbose #17765 > |> _assert_eq 3i32
00:04:09 verbose #17766 > 00:04:08 debug #274 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f127e910128409c2144d0ec128524c6d3f4ea158b822f92b4bde74822af60286/main.spi
00:04:09 verbose #17767 >
00:04:09 verbose #17768 > ╭─[ 890.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:09 verbose #17769 > │ let rec method0 () : unit = │
00:04:09 verbose #17770 > │ let v0 : string = $"%A{3}" │
00:04:09 verbose #17771 > │ System.Console.WriteLine v0 │
00:04:09 verbose #17772 > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:04:09 verbose #17773 > │ () │
00:04:09 verbose #17774 > │ method0() │
00:04:09 verbose #17775 > │ │
00:04:09 verbose #17776 > │ 3 │
00:04:09 verbose #17777 > │ │
00:04:09 verbose #17778 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:09 verbose #17779 >
00:04:09 verbose #17780 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:09 verbose #17781 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:09 verbose #17782 > │ ## (/??) │
00:04:09 verbose #17783 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:09 verbose #17784 >
00:04:09 verbose #17785 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:09 verbose #17786 > inl (/??) a b =
00:04:09 verbose #17787 > a |> default_value b
00:04:10 verbose #17788 > 00:04:09 debug #275 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8ac13221d2a941e0351392f381fd7f7a76bbee28a435f6166d57c9d6edeaed75/main.spi
00:04:10 verbose #17789 >
00:04:10 verbose #17790 > ╭─[ 268.49ms - stdout ]────────────────────────────────────────────────────────╮
00:04:10 verbose #17791 > │ () │
00:04:10 verbose #17792 > │ │
00:04:10 verbose #17793 > │ │
00:04:10 verbose #17794 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #17795 >
00:04:10 verbose #17796 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:10 verbose #17797 > // // test
00:04:10 verbose #17798 >
00:04:10 verbose #17799 > None /?? 3i32
00:04:10 verbose #17800 > |> _assert_eq 3i32
00:04:10 verbose #17801 > 00:04:09 debug #276 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/81032139a8d1837f2e24dd8e76254e3c5e3d1b290f1f037b49ebed4992b9367a/main.spi
00:04:10 verbose #17802 >
00:04:10 verbose #17803 > ╭─[ 221.16ms - stdout ]────────────────────────────────────────────────────────╮
00:04:10 verbose #17804 > │ let rec method0 () : unit = │
00:04:10 verbose #17805 > │ let v0 : string = $"%A{3}" │
00:04:10 verbose #17806 > │ System.Console.WriteLine v0 │
00:04:10 verbose #17807 > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:04:10 verbose #17808 > │ () │
00:04:10 verbose #17809 > │ method0() │
00:04:10 verbose #17810 > │ │
00:04:10 verbose #17811 > │ 3 │
00:04:10 verbose #17812 > │ │
00:04:10 verbose #17813 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #17814 >
00:04:10 verbose #17815 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:10 verbose #17816 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:10 verbose #17817 > │ ## default_with │
00:04:10 verbose #17818 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #17819 >
00:04:10 verbose #17820 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:10 verbose #17821 > inl default_with fn = function
00:04:10 verbose #17822 > | Some x => x
00:04:10 verbose #17823 > | None => fn ()
00:04:10 verbose #17824 > 00:04:09 debug #277 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/25cdae92c8945151af3cafac33bf38a8e49f838b2bdaa1cd03b1ab2309e59aee/main.spi
00:04:10 verbose #17825 >
00:04:10 verbose #17826 > ╭─[ 217.60ms - stdout ]────────────────────────────────────────────────────────╮
00:04:10 verbose #17827 > │ () │
00:04:10 verbose #17828 > │ │
00:04:10 verbose #17829 > │ │
00:04:10 verbose #17830 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #17831 >
00:04:10 verbose #17832 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:10 verbose #17833 > // // test
00:04:10 verbose #17834 >
00:04:10 verbose #17835 > None
00:04:10 verbose #17836 > |> default_with fun () => 3i32
00:04:10 verbose #17837 > |> _assert_eq 3i32
00:04:10 verbose #17838 > 00:04:10 debug #278 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3d0a5ba8955e48e694d1aee4d367d506b897018237440ccaefde413d3cf6b122/main.spi
00:04:10 verbose #17839 >
00:04:10 verbose #17840 > ╭─[ 257.04ms - stdout ]────────────────────────────────────────────────────────╮
00:04:10 verbose #17841 > │ let rec method0 () : unit = │
00:04:10 verbose #17842 > │ let v0 : string = $"%A{3}" │
00:04:10 verbose #17843 > │ System.Console.WriteLine v0 │
00:04:10 verbose #17844 > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:04:10 verbose #17845 > │ () │
00:04:10 verbose #17846 > │ method0() │
00:04:10 verbose #17847 > │ │
00:04:10 verbose #17848 > │ 3 │
00:04:10 verbose #17849 > │ │
00:04:10 verbose #17850 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #17851 >
00:04:10 verbose #17852 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:10 verbose #17853 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:10 verbose #17854 > │ ## choose │
00:04:10 verbose #17855 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #17856 >
00:04:10 verbose #17857 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:10 verbose #17858 > inl choose fn a b =
00:04:10 verbose #17859 > match a, b with
00:04:10 verbose #17860 > | Some x, Some y => fn x y |> Some
00:04:10 verbose #17861 > | _ => None
00:04:11 verbose #17862 > 00:04:10 debug #279 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5ce28a8150483c0d279d8581b3d5bf160c6489ada948ce74630bd54b6d30603e/main.spi
00:04:11 verbose #17863 >
00:04:11 verbose #17864 > ╭─[ 249.68ms - stdout ]────────────────────────────────────────────────────────╮
00:04:11 verbose #17865 > │ () │
00:04:11 verbose #17866 > │ │
00:04:11 verbose #17867 > │ │
00:04:11 verbose #17868 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:11 verbose #17869 >
00:04:11 verbose #17870 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:11 verbose #17871 > // // test
00:04:11 verbose #17872 >
00:04:11 verbose #17873 > (Some 2i32, Some 3)
00:04:11 verbose #17874 > ||> choose (+)
00:04:11 verbose #17875 > |> _assert_eq (Some 5)
00:04:11 verbose #17876 > 00:04:10 debug #280 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/421b231584700139210a8a78bd888043a4511c6e8cfd39b1199b1441afee064e/main.spi
00:04:11 verbose #17877 >
00:04:11 verbose #17878 > ╭─[ 727.56ms - stdout ]────────────────────────────────────────────────────────╮
00:04:11 verbose #17879 > │ type [<Struct>] US0 = │
00:04:11 verbose #17880 > │ | US0_0 of f0_0 : int32 │
00:04:11 verbose #17881 > │ | US0_1 │
00:04:11 verbose #17882 > │ let rec method0 () : unit = │
00:04:11 verbose #17883 > │ let v0 : US0 = US0_0(5) │
00:04:11 verbose #17884 > │ let v1 : string = $"%A{v0}" │
00:04:11 verbose #17885 > │ System.Console.WriteLine v1 │
00:04:11 verbose #17886 > │ let v5 : US0 = US0_0(5) │
00:04:11 verbose #17887 > │ let v6 : US0 = US0_0(5) │
00:04:11 verbose #17888 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:04:11 verbose #17889 > │ () │
00:04:11 verbose #17890 > │ method0() │
00:04:11 verbose #17891 > │ │
00:04:11 verbose #17892 > │ US0_0 5 │
00:04:11 verbose #17893 > │ │
00:04:11 verbose #17894 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:11 verbose #17895 >
00:04:11 verbose #17896 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:11 verbose #17897 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:11 verbose #17898 > │ ## iter │
00:04:11 verbose #17899 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:11 verbose #17900 >
00:04:11 verbose #17901 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:11 verbose #17902 > inl iter fn = function
00:04:11 verbose #17903 > | Some x => fn x
00:04:11 verbose #17904 > | None => ()
00:04:12 verbose #17905 > 00:04:11 debug #281 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6b71c772c676b54887ca3127d3461a4519f9fc60d20088c62814be31b7b7586e/main.spi
00:04:12 verbose #17906 >
00:04:12 verbose #17907 > ╭─[ 257.46ms - stdout ]────────────────────────────────────────────────────────╮
00:04:12 verbose #17908 > │ () │
00:04:12 verbose #17909 > │ │
00:04:12 verbose #17910 > │ │
00:04:12 verbose #17911 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:12 verbose #17912 >
00:04:12 verbose #17913 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:12 verbose #17914 > // // test
00:04:12 verbose #17915 >
00:04:12 verbose #17916 > inl n = mut 1i32
00:04:12 verbose #17917 > inl fn =
00:04:12 verbose #17918 > fun n' =>
00:04:12 verbose #17919 > n <- *n + n'
00:04:12 verbose #17920 > Some 1i32 |> iter fn
00:04:12 verbose #17921 > None |> iter fn
00:04:12 verbose #17922 > *n
00:04:12 verbose #17923 > |> _assert_eq 2i32
00:04:12 verbose #17924 > 00:04:11 debug #282 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8dc4e3276ef0ed082dee76c2df62a507aee81f28f265a2b4231ebec10582426d/main.spi
00:04:12 verbose #17925 >
00:04:12 verbose #17926 > ╭─[ 371.59ms - stdout ]────────────────────────────────────────────────────────╮
00:04:12 verbose #17927 > │ type Mut0 = {mutable l0 : int32} │
00:04:12 verbose #17928 > │ let rec method1 (v0 : bool) : bool = │
00:04:12 verbose #17929 > │ v0 │
00:04:12 verbose #17930 > │ and method0 () : unit = │
00:04:12 verbose #17931 > │ let v0 : Mut0 = {l0 = 1} : Mut0 │
00:04:12 verbose #17932 > │ let v1 : int32 = v0.l0 │
00:04:12 verbose #17933 > │ let v2 : int32 = v1 + 1 │
00:04:12 verbose #17934 > │ v0.l0 <- v2 │
00:04:12 verbose #17935 > │ let v3 : int32 = v0.l0 │
00:04:12 verbose #17936 > │ let v4 : string = $"%A{v3}" │
00:04:12 verbose #17937 > │ System.Console.WriteLine v4 │
00:04:12 verbose #17938 > │ let v5 : bool = v3 = 2 │
00:04:12 verbose #17939 > │ let v7 : bool = │
00:04:12 verbose #17940 > │ if v5 then │
00:04:12 verbose #17941 > │ true │
00:04:12 verbose #17942 > │ else │
00:04:12 verbose #17943 > │ method1(v5) │
00:04:12 verbose #17944 > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{2}" │
00:04:12 verbose #17945 > │ let v9 : bool = v7 = false │
00:04:12 verbose #17946 > │ if v9 then │
00:04:12 verbose #17947 > │ failwith<unit> v8 │
00:04:12 verbose #17948 > │ method0() │
00:04:12 verbose #17949 > │ │
00:04:12 verbose #17950 > │ 2 │
00:04:12 verbose #17951 > │ │
00:04:12 verbose #17952 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:12 verbose #17953 >
00:04:12 verbose #17954 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:12 verbose #17955 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:12 verbose #17956 > │ ## option' │
00:04:12 verbose #17957 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:12 verbose #17958 >
00:04:12 verbose #17959 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:12 verbose #17960 > nominal option' t = $"`t option"
00:04:12 verbose #17961 > 00:04:12 debug #283 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/36176593a8fc7e49837a0752c5271c8bbf20dba7eab7702a2646ac56a8a22d2f/main.spi
00:04:12 verbose #17962 >
00:04:12 verbose #17963 > ╭─[ 298.59ms - stdout ]────────────────────────────────────────────────────────╮
00:04:12 verbose #17964 > │ () │
00:04:12 verbose #17965 > │ │
00:04:12 verbose #17966 > │ │
00:04:12 verbose #17967 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:12 verbose #17968 >
00:04:12 verbose #17969 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:12 verbose #17970 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:12 verbose #17971 > │ ## none' │
00:04:12 verbose #17972 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:12 verbose #17973 >
00:04:12 verbose #17974 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:12 verbose #17975 > inl none' forall t. () : option' t =
00:04:12 verbose #17976 > $'None'
00:04:13 verbose #17977 > 00:04:12 debug #284 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/61cf11b890e30cc7af2db4da0c20ed70a99e3752df1f131161c5149c28d64481/main.spi
00:04:13 verbose #17978 >
00:04:13 verbose #17979 > ╭─[ 269.99ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 verbose #17980 > │ () │
00:04:13 verbose #17981 > │ │
00:04:13 verbose #17982 > │ │
00:04:13 verbose #17983 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #17984 >
00:04:13 verbose #17985 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 verbose #17986 > inl some' forall t. (x : t) : option' t =
00:04:13 verbose #17987 > $'Some !x '
00:04:13 verbose #17988 > 00:04:12 debug #285 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cd3fc4e682f03bb9e8a92093370444dd11eaea3e4fa892de8675a188e769908b/main.spi
00:04:13 verbose #17989 >
00:04:13 verbose #17990 > ╭─[ 275.85ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 verbose #17991 > │ () │
00:04:13 verbose #17992 > │ │
00:04:13 verbose #17993 > │ │
00:04:13 verbose #17994 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #17995 >
00:04:13 verbose #17996 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 verbose #17997 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 verbose #17998 > │ ## map │
00:04:13 verbose #17999 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #18000 >
00:04:13 verbose #18001 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 verbose #18002 > inl map forall t u. (fn : t -> u) (x : option' t) : option' u =
00:04:13 verbose #18003 > $'!x |> Option.map !fn '
00:04:13 verbose #18004 > 00:04:12 debug #286 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/328e4e90c2e02fcb5140bb04fa5ba5135366b9f9c8fbb39342e52adfd0200611/main.spi
00:04:13 verbose #18005 >
00:04:13 verbose #18006 > ╭─[ 271.76ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 verbose #18007 > │ () │
00:04:13 verbose #18008 > │ │
00:04:13 verbose #18009 > │ │
00:04:13 verbose #18010 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #18011 >
00:04:13 verbose #18012 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 verbose #18013 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 verbose #18014 > │ ## default_value' │
00:04:13 verbose #18015 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #18016 >
00:04:13 verbose #18017 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 verbose #18018 > inl default_value' forall t. (value : t) (x : option' t) : t =
00:04:13 verbose #18019 > $'!x |> Option.defaultValue !value '
00:04:13 verbose #18020 > 00:04:13 debug #287 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6be86e30f5faa062d2f646db126f0658b00a3e4eac876a24c69584ab68623bba/main.spi
00:04:13 verbose #18021 >
00:04:13 verbose #18022 > ╭─[ 238.35ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 verbose #18023 > │ () │
00:04:13 verbose #18024 > │ │
00:04:13 verbose #18025 > │ │
00:04:13 verbose #18026 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #18027 >
00:04:13 verbose #18028 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 verbose #18029 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 verbose #18030 > │ ## unbox │
00:04:13 verbose #18031 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 verbose #18032 >
00:04:13 verbose #18033 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 verbose #18034 > inl unbox forall t. (x : option' t) : option t =
00:04:13 verbose #18035 > // x
00:04:13 verbose #18036 > // |> map Some
00:04:13 verbose #18037 > // |> default_value' None
00:04:13 verbose #18038 > inl some x : option t = Some x
00:04:13 verbose #18039 > inl some = join some
00:04:13 verbose #18040 > inl none : option t = None
00:04:13 verbose #18041 > $'!x |> Option.map !some |> Option.defaultValue !none '
00:04:14 verbose #18042 > 00:04:13 debug #288 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b2db0a968256653f13e6f1be5fbe106f9ba76c764f98669ea965b3fd3fb7c6c2/main.spi
00:04:14 verbose #18043 >
00:04:14 verbose #18044 > ╭─[ 202.93ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 verbose #18045 > │ () │
00:04:14 verbose #18046 > │ │
00:04:14 verbose #18047 > │ │
00:04:14 verbose #18048 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #18049 >
00:04:14 verbose #18050 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:14 verbose #18051 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:14 verbose #18052 > │ ## box │
00:04:14 verbose #18053 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #18054 >
00:04:14 verbose #18055 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 verbose #18056 > inl box forall t. (x : option t) : option' t =
00:04:14 verbose #18057 > // x
00:04:14 verbose #18058 > // |> optionm.map some'
00:04:14 verbose #18059 > // |> default_with none'
00:04:14 verbose #18060 > match x with
00:04:14 verbose #18061 > | Some x => some' x
00:04:14 verbose #18062 > | None => none' ()
00:04:14 verbose #18063 > 00:04:13 debug #289 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a78ede552695dc9de7f7db67d1fb45afb89687614395b1a5a2dd5a655694afad/main.spi
00:04:14 verbose #18064 >
00:04:14 verbose #18065 > ╭─[ 238.65ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 verbose #18066 > │ () │
00:04:14 verbose #18067 > │ │
00:04:14 verbose #18068 > │ │
00:04:14 verbose #18069 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #18070 >
00:04:14 verbose #18071 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 verbose #18072 > // // test
00:04:14 verbose #18073 >
00:04:14 verbose #18074 > inl x = Some 3i32
00:04:14 verbose #18075 > inl y : option i32 = None
00:04:14 verbose #18076 > inl x' = x |> box |> unbox
00:04:14 verbose #18077 > inl y' = y |> box |> unbox
00:04:14 verbose #18078 > (x', y') |> _assert_eq (x, y)
00:04:14 verbose #18079 > 00:04:13 debug #290 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0aeace847dae50c0e69af1bc159df72293015a0a75a9298cdbf988efdf7bcb3a/main.spi
00:04:14 verbose #18080 >
00:04:14 verbose #18081 > ╭─[ 417.32ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 verbose #18082 > │ type [<Struct>] US0 = │
00:04:14 verbose #18083 > │ | US0_0 of f0_0 : int32 │
00:04:14 verbose #18084 > │ | US0_1 │
00:04:14 verbose #18085 > │ let rec closure0 () (v0 : int32) : US0 = │
00:04:14 verbose #18086 > │ US0_0(v0) │
00:04:14 verbose #18087 > │ and method1 () : (int32 -> US0) = │
00:04:14 verbose #18088 > │ closure0() │
00:04:14 verbose #18089 > │ and method2 (v0 : bool) : bool = │
00:04:14 verbose #18090 > │ v0 │
00:04:14 verbose #18091 > │ and method0 () : unit = │
00:04:14 verbose #18092 > │ let v0 : int32 option = Some 3 │
00:04:14 verbose #18093 > │ let v1 : (int32 -> US0) = method1() │
00:04:14 verbose #18094 > │ let v2 : US0 = US0_1 │
00:04:14 verbose #18095 > │ let v3 : US0 = v0 |> Option.map v1 |> Option.defaultValue v2 │
00:04:14 verbose #18096 > │ let v4 : int32 option = None │
00:04:14 verbose #18097 > │ let v5 : (int32 -> US0) = method1() │
00:04:14 verbose #18098 > │ let v6 : US0 = US0_1 │
00:04:14 verbose #18099 > │ let v7 : US0 = v4 |> Option.map v5 |> Option.defaultValue v6 │
00:04:14 verbose #18100 > │ let v8 : string = $"%A{struct (v3, v7)}" │
00:04:14 verbose #18101 > │ System.Console.WriteLine v8 │
00:04:14 verbose #18102 > │ let v13 : bool = │
00:04:14 verbose #18103 > │ match v3 with │
00:04:14 verbose #18104 > │ | US0_0(v11) -> (* Some *) │
00:04:14 verbose #18105 > │ let v12 : bool = v11 = 3 │
00:04:14 verbose #18106 > │ v12 │
00:04:14 verbose #18107 > │ | _ -> │
00:04:14 verbose #18108 > │ false │
00:04:14 verbose #18109 > │ let v15 : bool = │
00:04:14 verbose #18110 > │ if v13 then │
00:04:14 verbose #18111 > │ match v7 with │
00:04:14 verbose #18112 > │ | US0_1 -> (* None *) │
00:04:14 verbose #18113 > │ true │
00:04:14 verbose #18114 > │ | _ -> │
00:04:14 verbose #18115 > │ false │
00:04:14 verbose #18116 > │ else │
00:04:14 verbose #18117 > │ false │
00:04:14 verbose #18118 > │ let v17 : bool = │
00:04:14 verbose #18119 > │ if v15 then │
00:04:14 verbose #18120 > │ true │
00:04:14 verbose #18121 > │ else │
00:04:14 verbose #18122 > │ method2(v15) │
00:04:14 verbose #18123 > │ let v18 : US0 = US0_0(3) │
00:04:14 verbose #18124 > │ let v19 : US0 = US0_1 │
00:04:14 verbose #18125 > │ let v20 : string = $"__expect / actual: %A{struct (v3, v7)} / expected: │
00:04:14 verbose #18126 > │ %A{struct (v18, v19)}" │
00:04:14 verbose #18127 > │ let v21 : bool = v17 = false │
00:04:14 verbose #18128 > │ if v21 then │
00:04:14 verbose #18129 > │ failwith<unit> v20 │
00:04:14 verbose #18130 > │ method0() │
00:04:14 verbose #18131 > │ │
00:04:14 verbose #18132 > │ struct (US0_0 3, US0_1) │
00:04:14 verbose #18133 > │ │
00:04:14 verbose #18134 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #18135 >
00:04:14 verbose #18136 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:14 verbose #18137 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:14 verbose #18138 > │ ## try' │
00:04:14 verbose #18139 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #18140 >
00:04:14 verbose #18141 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 verbose #18142 > inl try' forall t. (x : option' t) : t =
00:04:14 verbose #18143 > !\\(x, $'"$0?"')
00:04:14 verbose #18144 > 00:04:14 debug #291 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e932dca77827d733c597dc005999451239aec49491cee6fc2fa7b3b00a6bc9e9/main.spi
00:04:15 verbose #18145 >
00:04:15 verbose #18146 > ╭─[ 220.32ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 verbose #18147 > │ () │
00:04:15 verbose #18148 > │ │
00:04:15 verbose #18149 > │ │
00:04:15 verbose #18150 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18151 >
00:04:15 verbose #18152 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 verbose #18153 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 verbose #18154 > │ ## flatten │
00:04:15 verbose #18155 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18156 >
00:04:15 verbose #18157 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 verbose #18158 > inl flatten x =
00:04:15 verbose #18159 > match x with
00:04:15 verbose #18160 > | Some (Some x) => Some x
00:04:15 verbose #18161 > | _ => None
00:04:15 verbose #18162 > 00:04:14 debug #292 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9d03e78bd0838e8c4b0c09022722c45b13d1dee49cbb72ca6a1aed6b7f9a545d/main.spi
00:04:15 verbose #18163 >
00:04:15 verbose #18164 > ╭─[ 251.51ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 verbose #18165 > │ () │
00:04:15 verbose #18166 > │ │
00:04:15 verbose #18167 > │ │
00:04:15 verbose #18168 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18169 >
00:04:15 verbose #18170 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 verbose #18171 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 verbose #18172 > │ ## unwrap │
00:04:15 verbose #18173 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18174 >
00:04:15 verbose #18175 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 verbose #18176 > inl unwrap forall t. (x : option' t) : t =
00:04:15 verbose #18177 > !\($'"!x.unwrap()"')
00:04:15 verbose #18178 > 00:04:14 debug #293 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c624bfeb41e844c578e8a5628302bdedae0dc20b8fd02127e04d6798b9737393/main.spi
00:04:15 verbose #18179 >
00:04:15 verbose #18180 > ╭─[ 239.64ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 verbose #18181 > │ () │
00:04:15 verbose #18182 > │ │
00:04:15 verbose #18183 > │ │
00:04:15 verbose #18184 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18185 >
00:04:15 verbose #18186 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 verbose #18187 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 verbose #18188 > │ ## unwrap_or │
00:04:15 verbose #18189 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18190 >
00:04:15 verbose #18191 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 verbose #18192 > inl unwrap_or forall t. (def : t) (x : option' t) : t =
00:04:15 verbose #18193 > !\($'"!x.unwrap_or(!def)"')
00:04:15 verbose #18194 > 00:04:15 debug #294 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d7a292df577870f7c411168cc5a5630e6494ab4c70096c2ff064f136287dab36/main.spi
00:04:15 verbose #18195 >
00:04:15 verbose #18196 > ╭─[ 218.96ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 verbose #18197 > │ () │
00:04:15 verbose #18198 > │ │
00:04:15 verbose #18199 > │ │
00:04:15 verbose #18200 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18201 >
00:04:15 verbose #18202 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 verbose #18203 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 verbose #18204 > │ ## rc_upgrade │
00:04:15 verbose #18205 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #18206 >
00:04:15 verbose #18207 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 verbose #18208 > inl rc_upgrade forall t. (x : rust.weak_rc t) : option' (rust.rc t) =
00:04:15 verbose #18209 > inl x = join x
00:04:15 verbose #18210 > !\($'"std::rc::Weak::upgrade(&!x)"')
00:04:15 verbose #18211 > 00:04:15 debug #295 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1d9d0622bbac956199855db34432bc5ccc1bf2c39c61f6e192f17330d72758c1/main.spi
00:04:16 verbose #18212 >
00:04:16 verbose #18213 > ╭─[ 261.63ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 verbose #18214 > │ () │
00:04:16 verbose #18215 > │ │
00:04:16 verbose #18216 > │ │
00:04:16 verbose #18217 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 verbose #18218 >
00:04:16 verbose #18219 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:16 verbose #18220 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:16 verbose #18221 > │ ## rc_into_inner │
00:04:16 verbose #18222 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 verbose #18223 >
00:04:16 verbose #18224 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 verbose #18225 > inl rc_into_inner forall t. (x : rust.rc t) : option' t =
00:04:16 verbose #18226 > !\\(x, $'"std::rc::Rc::into_inner($0)"')
00:04:16 verbose #18227 > 00:04:15 debug #296 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d77ac696adf105d1d2670cfa292d5884568821eb433e3cb70eeb85c9066b7e2f/main.spi
00:04:16 verbose #18228 >
00:04:16 verbose #18229 > ╭─[ 234.86ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 verbose #18230 > │ () │
00:04:16 verbose #18231 > │ │
00:04:16 verbose #18232 > │ │
00:04:16 verbose #18233 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 verbose #18234 >
00:04:16 verbose #18235 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 verbose #18236 > // // test
00:04:16 verbose #18237 > // // rust=
00:04:16 verbose #18238 > // // print_code=false
00:04:16 verbose #18239 >
00:04:16 verbose #18240 > types ()
00:04:16 verbose #18241 > rust.new_rc 0i32
00:04:16 verbose #18242 > |> rc_into_inner
00:04:16 verbose #18243 > |> unbox
00:04:16 verbose #18244 > |> _assert_eq' (Some 0i32)
00:04:16 verbose #18245 > 00:04:15 debug #297 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/56aebac688abc1951f37727d72146a35b0da066c767da7335183d8df888988aa/main.spi
00:04:22 verbose #18246 >
00:04:22 verbose #18247 > ╭─[ 6.36s - return value ]─────────────────────────────────────────────────────╮
00:04:22 verbose #18248 > │ US0_0(0) │
00:04:22 verbose #18249 > │ │
00:04:22 verbose #18250 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #18251 > [NbConvertApp] Converting notebook optionm'.dib.ipynb to html
00:04:24 verbose #18252 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:24 verbose #18253 > validate(nb)
00:04:25 verbose #18254 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:25 verbose #18255 > return _pygments_highlight(
00:04:25 verbose #18256 > [NbConvertApp] Writing 320417 bytes to optionm'.dib.html
00:04:26 debug #18257 execute_with_options_async / exit_code: 0 / output.Length: 30286
00:04:26 debug #14 main / executeCommand / exitCode: 0
00:04:26 debug #18258 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"am'.dib\" -Retries 3"", None,
None)
00:04:26 verbose #18259 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: am'.dib / _args: [
00:04:26 verbose #18260 > "-Retries",
00:04:26 verbose #18261 > 3
00:04:26 verbose #18262 > ]
00:04:28 verbose #18263 >
00:04:28 verbose #18264 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:28 verbose #18265 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:28 verbose #18266 > │ # am' │
00:04:28 verbose #18267 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:28 verbose #18268 >
00:04:28 verbose #18269 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:28 verbose #18270 > // // test
00:04:28 verbose #18271 >
00:04:28 verbose #18272 > open testing
00:04:28 verbose #18273 >
00:04:28 verbose #18274 > prototype append t : t -> t -> t
00:04:31 verbose #18275 > 00:04:31 debug #298 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d3d1d1fda00dd59384a760ee28afa07876963bb48cdababc03a709d40c2fc076/main.spi
00:04:32 verbose #18276 >
00:04:32 verbose #18277 > ╭─[ 3.88s - stdout ]───────────────────────────────────────────────────────────╮
00:04:32 verbose #18278 > │ () │
00:04:32 verbose #18279 > │ │
00:04:32 verbose #18280 > │ │
00:04:32 verbose #18281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:32 verbose #18282 >
00:04:32 verbose #18283 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:32 verbose #18284 > open rust_operators
00:04:32 verbose #18285 > 00:04:32 debug #299 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/13d26aa870446379747b84676a44180aa3203ef2c14e9c6ed6def74d269ef546/main.spi
00:04:32 verbose #18286 >
00:04:32 verbose #18287 > ╭─[ 293.29ms - stdout ]────────────────────────────────────────────────────────╮
00:04:32 verbose #18288 > │ () │
00:04:32 verbose #18289 > │ │
00:04:32 verbose #18290 > │ │
00:04:32 verbose #18291 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:32 verbose #18292 >
00:04:32 verbose #18293 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:32 verbose #18294 > inl types () =
00:04:32 verbose #18295 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"[[$0]]\")>]] type Slice<'T> =
00:04:32 verbose #18296 > class end"
00:04:32 verbose #18297 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"[[$0; $1]]\")>]] type
00:04:32 verbose #18298 > Slice'<'T, 'U> = class end"
00:04:32 verbose #18299 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Vec<$0>\")>]] type Vec<'T> =
00:04:32 verbose #18300 > class end"
00:04:33 verbose #18301 > 00:04:32 debug #300 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a246473e46304eac16c62c52a5a8c4d56812b3707f446c29d6befd9812cc4ed1/main.spi
00:04:33 verbose #18302 >
00:04:33 verbose #18303 > ╭─[ 241.37ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 verbose #18304 > │ () │
00:04:33 verbose #18305 > │ │
00:04:33 verbose #18306 > │ │
00:04:33 verbose #18307 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 verbose #18308 >
00:04:33 verbose #18309 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:33 verbose #18310 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:33 verbose #18311 > │ ## length │
00:04:33 verbose #18312 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 verbose #18313 >
00:04:33 verbose #18314 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 verbose #18315 > inl length forall dim {int} el. (a : a dim el) : dim =
00:04:33 verbose #18316 > a |> length
00:04:33 verbose #18317 > 00:04:32 debug #301 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a6d2bf8c7739a4897fd6df1a6a2f505a8e0b3ddd37de6b83c66d916cabd46cfa/main.spi
00:04:33 verbose #18318 >
00:04:33 verbose #18319 > ╭─[ 267.06ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 verbose #18320 > │ () │
00:04:33 verbose #18321 > │ │
00:04:33 verbose #18322 > │ │
00:04:33 verbose #18323 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 verbose #18324 >
00:04:33 verbose #18325 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:33 verbose #18326 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:33 verbose #18327 > │ ## index │
00:04:33 verbose #18328 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 verbose #18329 >
00:04:33 verbose #18330 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 verbose #18331 > inl index forall dim {int} el. (i : dim) (a : a dim el) : el =
00:04:33 verbose #18332 > index a i
00:04:33 verbose #18333 > 00:04:33 debug #302 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/336a73751fa0664fe14f5735785601485f75d018fdad0e0e677ee0dbe1d8231d/main.spi
00:04:33 verbose #18334 >
00:04:33 verbose #18335 > ╭─[ 315.48ms - stdout ]────────────────────────────────────────────────────────╮
00:04:33 verbose #18336 > │ () │
00:04:33 verbose #18337 > │ │
00:04:33 verbose #18338 > │ │
00:04:33 verbose #18339 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 verbose #18340 >
00:04:33 verbose #18341 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:33 verbose #18342 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:33 verbose #18343 > │ ## append │
00:04:33 verbose #18344 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 verbose #18345 >
00:04:33 verbose #18346 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 verbose #18347 > instance append a dim {int; number} t =
00:04:33 verbose #18348 > am.append
00:04:33 verbose #18349 > 00:04:33 debug #303 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/519d26b3db1ac382080493fdcb2d8534bc2a4cab7e1ffc5d9c5332475ca7d1ed/main.spi
00:04:34 verbose #18350 >
00:04:34 verbose #18351 > ╭─[ 247.11ms - stdout ]────────────────────────────────────────────────────────╮
00:04:34 verbose #18352 > │ () │
00:04:34 verbose #18353 > │ │
00:04:34 verbose #18354 > │ │
00:04:34 verbose #18355 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 verbose #18356 >
00:04:34 verbose #18357 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:34 verbose #18358 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:34 verbose #18359 > │ ## /@ │
00:04:34 verbose #18360 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 verbose #18361 >
00:04:34 verbose #18362 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:34 verbose #18363 > inl (/@) a b =
00:04:34 verbose #18364 > b |> append a
00:04:34 verbose #18365 > 00:04:33 debug #304 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b7caca8a0792a108d00b1d861735eb2ba8bba7bf5b27c651790e5a6b64a0c9f8/main.spi
00:04:34 verbose #18366 >
00:04:34 verbose #18367 > ╭─[ 235.33ms - stdout ]────────────────────────────────────────────────────────╮
00:04:34 verbose #18368 > │ () │
00:04:34 verbose #18369 > │ │
00:04:34 verbose #18370 > │ │
00:04:34 verbose #18371 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 verbose #18372 >
00:04:34 verbose #18373 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:34 verbose #18374 > // // test
00:04:34 verbose #18375 >
00:04:34 verbose #18376 > a ;[[ "a"; "b" ]] /@ a ;[[ "c"; "d" ]]
00:04:34 verbose #18377 > |> _assert_eq (a ;[[ "a"; "b"; "c"; "d" ]] : _ i32 _)
00:04:34 verbose #18378 > 00:04:33 debug #305 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/df4afc29c4c45298ac46f5b85aa5bbe90d5a2526f3a6b237ba63524d3637b4d3/main.spi
00:04:35 verbose #18379 >
00:04:35 verbose #18380 > ╭─[ 1.51s - stdout ]───────────────────────────────────────────────────────────╮
00:04:35 verbose #18381 > │ type Mut0 = {mutable l0 : int32} │
00:04:35 verbose #18382 > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:04:35 verbose #18383 > │ let v2 : int32 = v1.l0 │
00:04:35 verbose #18384 > │ let v3 : bool = v2 < v0 │
00:04:35 verbose #18385 > │ v3 │
00:04:35 verbose #18386 > │ and method2 (v0 : (string []), v1 : (string []), v2 : int32) : bool = │
00:04:35 verbose #18387 > │ let v3 : int32 = v0.Length │
00:04:35 verbose #18388 > │ let v4 : bool = v2 < v3 │
00:04:35 verbose #18389 > │ if v4 then │
00:04:35 verbose #18390 > │ let v5 : string = v0.[int v2] │
00:04:35 verbose #18391 > │ let v6 : string = v1.[int v2] │
00:04:35 verbose #18392 > │ let v7 : bool = v5 = v6 │
00:04:35 verbose #18393 > │ if v7 then │
00:04:35 verbose #18394 > │ let v8 : int32 = v2 + 1 │
00:04:35 verbose #18395 > │ method2(v0, v1, v8) │
00:04:35 verbose #18396 > │ else │
00:04:35 verbose #18397 > │ false │
00:04:35 verbose #18398 > │ else │
00:04:35 verbose #18399 > │ true │
00:04:35 verbose #18400 > │ and method3 (v0 : bool) : bool = │
00:04:35 verbose #18401 > │ v0 │
00:04:35 verbose #18402 > │ and method0 () : unit = │
00:04:35 verbose #18403 > │ let v0 : string = "a" │
00:04:35 verbose #18404 > │ let v1 : string = "b" │
00:04:35 verbose #18405 > │ let v2 : (string []) = [|v0; v1|] │
00:04:35 verbose #18406 > │ let v3 : string = "c" │
00:04:35 verbose #18407 > │ let v4 : string = "d" │
00:04:35 verbose #18408 > │ let v5 : (string []) = [|v3; v4|] │
00:04:35 verbose #18409 > │ let v6 : int32 = v2.Length │
00:04:35 verbose #18410 > │ let v7 : int32 = v5.Length │
00:04:35 verbose #18411 > │ let v8 : int32 = v6 + v7 │
00:04:35 verbose #18412 > │ let v9 : (string []) = Array.zeroCreate<string> (v8) │
00:04:35 verbose #18413 > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:04:35 verbose #18414 > │ while method1(v8, v10) do │
00:04:35 verbose #18415 > │ let v12 : int32 = v10.l0 │
00:04:35 verbose #18416 > │ let v13 : bool = v12 < v6 │
00:04:35 verbose #18417 > │ let v17 : string = │
00:04:35 verbose #18418 > │ if v13 then │
00:04:35 verbose #18419 > │ let v14 : string = v2.[int v12] │
00:04:35 verbose #18420 > │ v14 │
00:04:35 verbose #18421 > │ else │
00:04:35 verbose #18422 > │ let v15 : int32 = v12 - v6 │
00:04:35 verbose #18423 > │ let v16 : string = v5.[int v15] │
00:04:35 verbose #18424 > │ v16 │
00:04:35 verbose #18425 > │ v9.[int v12] <- v17 │
00:04:35 verbose #18426 > │ let v18 : int32 = v12 + 1 │
00:04:35 verbose #18427 > │ v10.l0 <- v18 │
00:04:35 verbose #18428 > │ () │
00:04:35 verbose #18429 > │ let v19 : (string []) = [|v0; v1; v3; v4|] │
00:04:35 verbose #18430 > │ let v20 : string = $"%A{v9}" │
00:04:35 verbose #18431 > │ System.Console.WriteLine v20 │
00:04:35 verbose #18432 > │ let v21 : int32 = v9.Length │
00:04:35 verbose #18433 > │ let v22 : int32 = v19.Length │
00:04:35 verbose #18434 > │ let v23 : bool = v21 = v22 │
00:04:35 verbose #18435 > │ let v24 : bool = v23 <> true │
00:04:35 verbose #18436 > │ let v27 : bool = │
00:04:35 verbose #18437 > │ if v24 then │
00:04:35 verbose #18438 > │ false │
00:04:35 verbose #18439 > │ else │
00:04:35 verbose #18440 > │ let v25 : int32 = 0 │
00:04:35 verbose #18441 > │ method2(v9, v19, v25) │
00:04:35 verbose #18442 > │ let v29 : bool = │
00:04:35 verbose #18443 > │ if v27 then │
00:04:35 verbose #18444 > │ true │
00:04:35 verbose #18445 > │ else │
00:04:35 verbose #18446 > │ method3(v27) │
00:04:35 verbose #18447 > │ let v30 : string = $"__expect / actual: %A{v9} / expected: %A{v19}" │
00:04:35 verbose #18448 > │ let v31 : bool = v29 = false │
00:04:35 verbose #18449 > │ if v31 then │
00:04:35 verbose #18450 > │ failwith<unit> v30 │
00:04:35 verbose #18451 > │ method0() │
00:04:35 verbose #18452 > │ │
00:04:35 verbose #18453 > │ [|"a"; "b"; "c"; "d"|] │
00:04:35 verbose #18454 > │ │
00:04:35 verbose #18455 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:35 verbose #18456 >
00:04:35 verbose #18457 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:35 verbose #18458 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:35 verbose #18459 > │ ## collect │
00:04:35 verbose #18460 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:35 verbose #18461 >
00:04:35 verbose #18462 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:35 verbose #18463 > inl collect forall t r. (fn : t -> a i32 r) (items : a i32 t) : a i32 r =
00:04:35 verbose #18464 > items
00:04:35 verbose #18465 > |> am.map fn
00:04:35 verbose #18466 > |> am.fold (/@) (a ;[[]])
00:04:35 verbose #18467 > 00:04:35 debug #306 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2693c6b90f129744e060db4d79d9eface9c6fe47ca378ca3d7909f8858bb1361/main.spi
00:04:36 verbose #18468 >
00:04:36 verbose #18469 > ╭─[ 234.68ms - stdout ]────────────────────────────────────────────────────────╮
00:04:36 verbose #18470 > │ () │
00:04:36 verbose #18471 > │ │
00:04:36 verbose #18472 > │ │
00:04:36 verbose #18473 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 verbose #18474 >
00:04:36 verbose #18475 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:36 verbose #18476 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:36 verbose #18477 > │ ## choose │
00:04:36 verbose #18478 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 verbose #18479 >
00:04:36 verbose #18480 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:36 verbose #18481 > inl choose f l =
00:04:36 verbose #18482 > (l, [[]])
00:04:36 verbose #18483 > ||> am.foldBack fun x acc =>
00:04:36 verbose #18484 > match f x with
00:04:36 verbose #18485 > | Some y => y :: acc
00:04:36 verbose #18486 > | None => acc
00:04:36 verbose #18487 > |> listm.toArray
00:04:36 verbose #18488 > 00:04:35 debug #307 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bdc19e2c49dab8063681100a8c3f6cf6dcb93b090e2e6290c2cd5e5e85670ed4/main.spi
00:04:36 verbose #18489 >
00:04:36 verbose #18490 > ╭─[ 237.72ms - stdout ]────────────────────────────────────────────────────────╮
00:04:36 verbose #18491 > │ () │
00:04:36 verbose #18492 > │ │
00:04:36 verbose #18493 > │ │
00:04:36 verbose #18494 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 verbose #18495 >
00:04:36 verbose #18496 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:36 verbose #18497 > // // test
00:04:36 verbose #18498 >
00:04:36 verbose #18499 > (am.init 10i32 id : a _ _)
00:04:36 verbose #18500 > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:04:36 verbose #18501 > |> _assert_eq (a ;[[ 0; 2; 4; 6; 8 ]] : _ i32 _)
00:04:36 verbose #18502 > 00:04:35 debug #308 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c26b724252467a7efd00f43b4635fbeec0ea48a2bdda3cdf5f85ffda1b9c7ec0/main.spi
00:04:36 verbose #18503 >
00:04:36 verbose #18504 > ╭─[ 587.77ms - stdout ]────────────────────────────────────────────────────────╮
00:04:36 verbose #18505 > │ type Mut0 = {mutable l0 : int32} │
00:04:36 verbose #18506 > │ and UH0 = │
00:04:36 verbose #18507 > │ | UH0_0 │
00:04:36 verbose #18508 > │ | UH0_1 of int32 * UH0 │
00:04:36 verbose #18509 > │ and Mut1 = {mutable l0 : int32; mutable l1 : UH0} │
00:04:36 verbose #18510 > │ and [<Struct>] US0 = │
00:04:36 verbose #18511 > │ | US0_0 of f0_0 : int32 │
00:04:36 verbose #18512 > │ | US0_1 │
00:04:36 verbose #18513 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:36 verbose #18514 > │ let v1 : int32 = v0.l0 │
00:04:36 verbose #18515 > │ let v2 : bool = v1 < 10 │
00:04:36 verbose #18516 > │ v2 │
00:04:36 verbose #18517 > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:36 verbose #18518 > │ let v2 : int32 = v1.l0 │
00:04:36 verbose #18519 > │ let v3 : bool = v2 < v0 │
00:04:36 verbose #18520 > │ v3 │
00:04:36 verbose #18521 > │ and method4 (v0 : UH0, v1 : int32) : int32 = │
00:04:36 verbose #18522 > │ match v0 with │
00:04:36 verbose #18523 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:04:36 verbose #18524 > │ let v4 : int32 = v1 + 1 │
00:04:36 verbose #18525 > │ method4(v3, v4) │
00:04:36 verbose #18526 > │ | UH0_0 -> (* Nil *) │
00:04:36 verbose #18527 > │ v1 │
00:04:36 verbose #18528 > │ and method5 (v0 : (int32 []), v1 : UH0, v2 : int32) : int32 = │
00:04:36 verbose #18529 > │ match v1 with │
00:04:36 verbose #18530 > │ | UH0_1(v3, v4) -> (* Cons *) │
00:04:36 verbose #18531 > │ v0.[int v2] <- v3 │
00:04:36 verbose #18532 > │ let v5 : int32 = v2 + 1 │
00:04:36 verbose #18533 > │ method5(v0, v4, v5) │
00:04:36 verbose #18534 > │ | UH0_0 -> (* Nil *) │
00:04:36 verbose #18535 > │ v2 │
00:04:36 verbose #18536 > │ and method3 (v0 : UH0) : (int32 []) = │
00:04:36 verbose #18537 > │ let v1 : int32 = 0 │
00:04:36 verbose #18538 > │ let v2 : int32 = method4(v0, v1) │
00:04:36 verbose #18539 > │ let v3 : (int32 []) = Array.zeroCreate<int32> (v2) │
00:04:36 verbose #18540 > │ let v4 : int32 = 0 │
00:04:36 verbose #18541 > │ let v5 : int32 = method5(v3, v0, v4) │
00:04:36 verbose #18542 > │ v3 │
00:04:36 verbose #18543 > │ and method6 (v0 : (int32 []), v1 : (int32 []), v2 : int32) : bool = │
00:04:36 verbose #18544 > │ let v3 : int32 = v0.Length │
00:04:36 verbose #18545 > │ let v4 : bool = v2 < v3 │
00:04:36 verbose #18546 > │ if v4 then │
00:04:36 verbose #18547 > │ let v5 : int32 = v0.[int v2] │
00:04:36 verbose #18548 > │ let v6 : int32 = v1.[int v2] │
00:04:36 verbose #18549 > │ let v7 : bool = v5 = v6 │
00:04:36 verbose #18550 > │ if v7 then │
00:04:36 verbose #18551 > │ let v8 : int32 = v2 + 1 │
00:04:36 verbose #18552 > │ method6(v0, v1, v8) │
00:04:36 verbose #18553 > │ else │
00:04:36 verbose #18554 > │ false │
00:04:36 verbose #18555 > │ else │
00:04:36 verbose #18556 > │ true │
00:04:36 verbose #18557 > │ and method7 (v0 : bool) : bool = │
00:04:36 verbose #18558 > │ v0 │
00:04:36 verbose #18559 > │ and method0 () : unit = │
00:04:36 verbose #18560 > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:36 verbose #18561 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:36 verbose #18562 > │ while method1(v1) do │
00:04:36 verbose #18563 > │ let v3 : int32 = v1.l0 │
00:04:36 verbose #18564 > │ v0.[int v3] <- v3 │
00:04:36 verbose #18565 > │ let v4 : int32 = v3 + 1 │
00:04:36 verbose #18566 > │ v1.l0 <- v4 │
00:04:36 verbose #18567 > │ () │
00:04:36 verbose #18568 > │ let v5 : int32 = v0.Length │
00:04:36 verbose #18569 > │ let v6 : UH0 = UH0_0 │
00:04:36 verbose #18570 > │ let v7 : Mut1 = {l0 = 0; l1 = v6} : Mut1 │
00:04:36 verbose #18571 > │ while method2(v5, v7) do │
00:04:36 verbose #18572 > │ let v9 : int32 = v7.l0 │
00:04:36 verbose #18573 > │ let v10 : int32 = -v9 │
00:04:36 verbose #18574 > │ let v11 : int32 = v10 + v5 │
00:04:36 verbose #18575 > │ let v12 : int32 = v11 - 1 │
00:04:36 verbose #18576 > │ let v13 : UH0 = v7.l1 │
00:04:36 verbose #18577 > │ let v14 : int32 = v0.[int v12] │
00:04:36 verbose #18578 > │ let v15 : int32 = v14 % 2 │
00:04:36 verbose #18579 > │ let v16 : bool = v15 = 0 │
00:04:36 verbose #18580 > │ let v19 : US0 = │
00:04:36 verbose #18581 > │ if v16 then │
00:04:36 verbose #18582 > │ US0_0(v14) │
00:04:36 verbose #18583 > │ else │
00:04:36 verbose #18584 > │ US0_1 │
00:04:36 verbose #18585 > │ let v23 : UH0 = │
00:04:36 verbose #18586 > │ match v19 with │
00:04:36 verbose #18587 > │ | US0_1 -> (* None *) │
00:04:36 verbose #18588 > │ v13 │
00:04:36 verbose #18589 > │ | US0_0(v20) -> (* Some *) │
00:04:36 verbose #18590 > │ UH0_1(v20, v13) │
00:04:36 verbose #18591 > │ let v24 : int32 = v9 + 1 │
00:04:36 verbose #18592 > │ v7.l0 <- v24 │
00:04:36 verbose #18593 > │ v7.l1 <- v23 │
00:04:36 verbose #18594 > │ () │
00:04:36 verbose #18595 > │ let v25 : UH0 = v7.l1 │
00:04:36 verbose #18596 > │ let v26 : (int32 []) = method3(v25) │
00:04:36 verbose #18597 > │ let v27 : (int32 []) = [|0; 2; 4; 6; 8|] │
00:04:36 verbose #18598 > │ let v28 : string = $"%A{v26}" │
00:04:36 verbose #18599 > │ System.Console.WriteLine v28 │
00:04:36 verbose #18600 > │ let v29 : int32 = v26.Length │
00:04:36 verbose #18601 > │ let v30 : int32 = v27.Length │
00:04:36 verbose #18602 > │ let v31 : bool = v29 = v30 │
00:04:36 verbose #18603 > │ let v32 : bool = v31 <> true │
00:04:36 verbose #18604 > │ let v35 : bool = │
00:04:36 verbose #18605 > │ if v32 then │
00:04:36 verbose #18606 > │ false │
00:04:36 verbose #18607 > │ else │
00:04:36 verbose #18608 > │ let v33 : int32 = 0 │
00:04:36 verbose #18609 > │ method6(v26, v27, v33) │
00:04:36 verbose #18610 > │ let v37 : bool = │
00:04:36 verbose #18611 > │ if v35 then │
00:04:36 verbose #18612 > │ true │
00:04:36 verbose #18613 > │ else │
00:04:36 verbose #18614 > │ method7(v35) │
00:04:36 verbose #18615 > │ let v38 : string = $"__expect / actual: %A{v26} / expected: %A{v27}" │
00:04:36 verbose #18616 > │ let v39 : bool = v37 = false │
00:04:36 verbose #18617 > │ if v39 then │
00:04:36 verbose #18618 > │ failwith<unit> v38 │
00:04:36 verbose #18619 > │ method0() │
00:04:36 verbose #18620 > │ │
00:04:36 verbose #18621 > │ [|0; 2; 4; 6; 8|] │
00:04:36 verbose #18622 > │ │
00:04:36 verbose #18623 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 verbose #18624 >
00:04:36 verbose #18625 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:36 verbose #18626 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:36 verbose #18627 > │ ## sum │
00:04:36 verbose #18628 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:36 verbose #18629 >
00:04:36 verbose #18630 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:36 verbose #18631 > inl sum (a' : a _ _) =
00:04:36 verbose #18632 > a' |> am.fold (+) 0
00:04:37 verbose #18633 > 00:04:36 debug #309 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c790ae083d786fe97262d691a4a1b0447dcb6ae4b60d294c9deb1a6d27d94e05/main.spi
00:04:37 verbose #18634 >
00:04:37 verbose #18635 > ╭─[ 283.61ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 verbose #18636 > │ () │
00:04:37 verbose #18637 > │ │
00:04:37 verbose #18638 > │ │
00:04:37 verbose #18639 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 verbose #18640 >
00:04:37 verbose #18641 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 verbose #18642 > // // test
00:04:37 verbose #18643 >
00:04:37 verbose #18644 > am.init 10i32 id
00:04:37 verbose #18645 > |> sum
00:04:37 verbose #18646 > |> _assert_eq 45
00:04:37 verbose #18647 > 00:04:36 debug #310 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/de9b7e62d1578f79255422e90622f25cf83423b56d6d2a5981a400d26f10d3ea/main.spi
00:04:37 verbose #18648 >
00:04:37 verbose #18649 > ╭─[ 267.84ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 verbose #18650 > │ type Mut0 = {mutable l0 : int32} │
00:04:37 verbose #18651 > │ and Mut1 = {mutable l0 : int32; mutable l1 : int32} │
00:04:37 verbose #18652 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:37 verbose #18653 > │ let v1 : int32 = v0.l0 │
00:04:37 verbose #18654 > │ let v2 : bool = v1 < 10 │
00:04:37 verbose #18655 > │ v2 │
00:04:37 verbose #18656 > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:37 verbose #18657 > │ let v2 : int32 = v1.l0 │
00:04:37 verbose #18658 > │ let v3 : bool = v2 < v0 │
00:04:37 verbose #18659 > │ v3 │
00:04:37 verbose #18660 > │ and method3 (v0 : bool) : bool = │
00:04:37 verbose #18661 > │ v0 │
00:04:37 verbose #18662 > │ and method0 () : unit = │
00:04:37 verbose #18663 > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:37 verbose #18664 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:37 verbose #18665 > │ while method1(v1) do │
00:04:37 verbose #18666 > │ let v3 : int32 = v1.l0 │
00:04:37 verbose #18667 > │ v0.[int v3] <- v3 │
00:04:37 verbose #18668 > │ let v4 : int32 = v3 + 1 │
00:04:37 verbose #18669 > │ v1.l0 <- v4 │
00:04:37 verbose #18670 > │ () │
00:04:37 verbose #18671 > │ let v5 : int32 = v0.Length │
00:04:37 verbose #18672 > │ let v6 : Mut1 = {l0 = 0; l1 = 0} : Mut1 │
00:04:37 verbose #18673 > │ while method2(v5, v6) do │
00:04:37 verbose #18674 > │ let v8 : int32 = v6.l0 │
00:04:37 verbose #18675 > │ let v9 : int32 = v6.l1 │
00:04:37 verbose #18676 > │ let v10 : int32 = v0.[int v8] │
00:04:37 verbose #18677 > │ let v11 : int32 = v9 + v10 │
00:04:37 verbose #18678 > │ let v12 : int32 = v8 + 1 │
00:04:37 verbose #18679 > │ v6.l0 <- v12 │
00:04:37 verbose #18680 > │ v6.l1 <- v11 │
00:04:37 verbose #18681 > │ () │
00:04:37 verbose #18682 > │ let v13 : int32 = v6.l1 │
00:04:37 verbose #18683 > │ let v14 : string = $"%A{v13}" │
00:04:37 verbose #18684 > │ System.Console.WriteLine v14 │
00:04:37 verbose #18685 > │ let v15 : bool = v13 = 45 │
00:04:37 verbose #18686 > │ let v17 : bool = │
00:04:37 verbose #18687 > │ if v15 then │
00:04:37 verbose #18688 > │ true │
00:04:37 verbose #18689 > │ else │
00:04:37 verbose #18690 > │ method3(v15) │
00:04:37 verbose #18691 > │ let v18 : string = $"__expect / actual: %A{v13} / expected: %A{45}" │
00:04:37 verbose #18692 > │ let v19 : bool = v17 = false │
00:04:37 verbose #18693 > │ if v19 then │
00:04:37 verbose #18694 > │ failwith<unit> v18 │
00:04:37 verbose #18695 > │ method0() │
00:04:37 verbose #18696 > │ │
00:04:37 verbose #18697 > │ 45 │
00:04:37 verbose #18698 > │ │
00:04:37 verbose #18699 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 verbose #18700 >
00:04:37 verbose #18701 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:37 verbose #18702 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:37 verbose #18703 > │ ## init_series │
00:04:37 verbose #18704 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 verbose #18705 >
00:04:37 verbose #18706 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 verbose #18707 > inl init_series start end inc =
00:04:37 verbose #18708 > inl total = conv ((end - start) / inc) + 1
00:04:37 verbose #18709 > am.init total (conv >> (*) inc >> (+) start) : a i32 _
00:04:37 verbose #18710 > 00:04:37 debug #311 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/058dbf427278c05865af272cfbc19c29faff3dc8bcec170c34cfb5a9dd1bc99d/main.spi
00:04:37 verbose #18711 >
00:04:37 verbose #18712 > ╭─[ 232.54ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 verbose #18713 > │ () │
00:04:37 verbose #18714 > │ │
00:04:37 verbose #18715 > │ │
00:04:37 verbose #18716 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 verbose #18717 >
00:04:37 verbose #18718 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 verbose #18719 > // // test
00:04:37 verbose #18720 >
00:04:37 verbose #18721 > init_series 0 1 0.5
00:04:37 verbose #18722 > |> _assert_eq (a ;[[ 0f64; 0.5; 1 ]])
00:04:37 verbose #18723 > 00:04:37 debug #312 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3011d13ca6d4c6b6e4bf5d7f4fce601e2086079fc5b1aa10659807244b8a69fc/main.spi
00:04:38 verbose #18724 >
00:04:38 verbose #18725 > ╭─[ 286.02ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 verbose #18726 > │ type Mut0 = {mutable l0 : int32} │
00:04:38 verbose #18727 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:38 verbose #18728 > │ let v1 : int32 = v0.l0 │
00:04:38 verbose #18729 > │ let v2 : bool = v1 < 3 │
00:04:38 verbose #18730 > │ v2 │
00:04:38 verbose #18731 > │ and method2 (v0 : (float []), v1 : (float []), v2 : int32) : bool = │
00:04:38 verbose #18732 > │ let v3 : int32 = v0.Length │
00:04:38 verbose #18733 > │ let v4 : bool = v2 < v3 │
00:04:38 verbose #18734 > │ if v4 then │
00:04:38 verbose #18735 > │ let v5 : float = v0.[int v2] │
00:04:38 verbose #18736 > │ let v6 : float = v1.[int v2] │
00:04:38 verbose #18737 > │ let v7 : bool = v5 = v6 │
00:04:38 verbose #18738 > │ if v7 then │
00:04:38 verbose #18739 > │ let v8 : int32 = v2 + 1 │
00:04:38 verbose #18740 > │ method2(v0, v1, v8) │
00:04:38 verbose #18741 > │ else │
00:04:38 verbose #18742 > │ false │
00:04:38 verbose #18743 > │ else │
00:04:38 verbose #18744 > │ true │
00:04:38 verbose #18745 > │ and method3 (v0 : bool) : bool = │
00:04:38 verbose #18746 > │ v0 │
00:04:38 verbose #18747 > │ and method0 () : unit = │
00:04:38 verbose #18748 > │ let v0 : (float []) = Array.zeroCreate<float> (3) │
00:04:38 verbose #18749 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:38 verbose #18750 > │ while method1(v1) do │
00:04:38 verbose #18751 > │ let v3 : int32 = v1.l0 │
00:04:38 verbose #18752 > │ let v4 : float = float v3 │
00:04:38 verbose #18753 > │ let v5 : float = 0.5 * v4 │
00:04:38 verbose #18754 > │ v0.[int v3] <- v5 │
00:04:38 verbose #18755 > │ let v6 : int32 = v3 + 1 │
00:04:38 verbose #18756 > │ v1.l0 <- v6 │
00:04:38 verbose #18757 > │ () │
00:04:38 verbose #18758 > │ let v7 : (float []) = [|0.0; 0.5; 1.0|] │
00:04:38 verbose #18759 > │ let v8 : string = $"%A{v0}" │
00:04:38 verbose #18760 > │ System.Console.WriteLine v8 │
00:04:38 verbose #18761 > │ let v9 : int32 = v0.Length │
00:04:38 verbose #18762 > │ let v10 : int32 = v7.Length │
00:04:38 verbose #18763 > │ let v11 : bool = v9 = v10 │
00:04:38 verbose #18764 > │ let v12 : bool = v11 <> true │
00:04:38 verbose #18765 > │ let v15 : bool = │
00:04:38 verbose #18766 > │ if v12 then │
00:04:38 verbose #18767 > │ false │
00:04:38 verbose #18768 > │ else │
00:04:38 verbose #18769 > │ let v13 : int32 = 0 │
00:04:38 verbose #18770 > │ method2(v0, v7, v13) │
00:04:38 verbose #18771 > │ let v17 : bool = │
00:04:38 verbose #18772 > │ if v15 then │
00:04:38 verbose #18773 > │ true │
00:04:38 verbose #18774 > │ else │
00:04:38 verbose #18775 > │ method3(v15) │
00:04:38 verbose #18776 > │ let v18 : string = $"__expect / actual: %A{v0} / expected: %A{v7}" │
00:04:38 verbose #18777 > │ let v19 : bool = v17 = false │
00:04:38 verbose #18778 > │ if v19 then │
00:04:38 verbose #18779 > │ failwith<unit> v18 │
00:04:38 verbose #18780 > │ method0() │
00:04:38 verbose #18781 > │ │
00:04:38 verbose #18782 > │ [|0.0; 0.5; 1.0|] │
00:04:38 verbose #18783 > │ │
00:04:38 verbose #18784 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18785 >
00:04:38 verbose #18786 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #18787 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #18788 > │ ## head │
00:04:38 verbose #18789 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18790 >
00:04:38 verbose #18791 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #18792 > inl head (ar : a _ _) =
00:04:38 verbose #18793 > if var_is ar || length ar > 0
00:04:38 verbose #18794 > then ar |> index 0
00:04:38 verbose #18795 > else error_type "The length of the array should be greater than 0."
00:04:38 verbose #18796 > 00:04:37 debug #313 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/981dc93870296fc9f9f1d68d1f395589e6b1ca94d4b37f4cc899e5e368e3e565/main.spi
00:04:38 verbose #18797 >
00:04:38 verbose #18798 > ╭─[ 247.91ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 verbose #18799 > │ () │
00:04:38 verbose #18800 > │ │
00:04:38 verbose #18801 > │ │
00:04:38 verbose #18802 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18803 >
00:04:38 verbose #18804 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #18805 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #18806 > │ ## last │
00:04:38 verbose #18807 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18808 >
00:04:38 verbose #18809 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #18810 > inl last (ar : a _ _) =
00:04:38 verbose #18811 > inl len = length ar
00:04:38 verbose #18812 > if var_is ar || len > 0
00:04:38 verbose #18813 > then ar |> index (len - 1)
00:04:38 verbose #18814 > else error_type "The length of the array should be greater than 0."
00:04:38 verbose #18815 > 00:04:37 debug #314 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ff52934dc8f78e5716309459d1b627c8dafdb8c593c448d2dae4a846ed7943bb/main.spi
00:04:38 verbose #18816 >
00:04:38 verbose #18817 > ╭─[ 338.03ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 verbose #18818 > │ () │
00:04:38 verbose #18819 > │ │
00:04:38 verbose #18820 > │ │
00:04:38 verbose #18821 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18822 >
00:04:38 verbose #18823 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #18824 > // // test
00:04:38 verbose #18825 >
00:04:38 verbose #18826 > am.init 10i32 id
00:04:38 verbose #18827 > |> last
00:04:38 verbose #18828 > |> _assert_eq 9
00:04:38 verbose #18829 > 00:04:38 debug #315 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/47cfe2cba41e3b652e3a4e9be98ac035fd792927b5fcce3f7198b17a65159b97/main.spi
00:04:38 verbose #18830 >
00:04:38 verbose #18831 > ╭─[ 259.85ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 verbose #18832 > │ type Mut0 = {mutable l0 : int32} │
00:04:38 verbose #18833 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:38 verbose #18834 > │ let v1 : int32 = v0.l0 │
00:04:38 verbose #18835 > │ let v2 : bool = v1 < 10 │
00:04:38 verbose #18836 > │ v2 │
00:04:38 verbose #18837 > │ and method2 (v0 : bool) : bool = │
00:04:38 verbose #18838 > │ v0 │
00:04:38 verbose #18839 > │ and method0 () : unit = │
00:04:38 verbose #18840 > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:38 verbose #18841 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:38 verbose #18842 > │ while method1(v1) do │
00:04:38 verbose #18843 > │ let v3 : int32 = v1.l0 │
00:04:38 verbose #18844 > │ v0.[int v3] <- v3 │
00:04:38 verbose #18845 > │ let v4 : int32 = v3 + 1 │
00:04:38 verbose #18846 > │ v1.l0 <- v4 │
00:04:38 verbose #18847 > │ () │
00:04:38 verbose #18848 > │ let v5 : int32 = v0.Length │
00:04:38 verbose #18849 > │ let v6 : int32 = v5 - 1 │
00:04:38 verbose #18850 > │ let v7 : int32 = v0.[int v6] │
00:04:38 verbose #18851 > │ let v8 : string = $"%A{v7}" │
00:04:38 verbose #18852 > │ System.Console.WriteLine v8 │
00:04:38 verbose #18853 > │ let v9 : bool = v7 = 9 │
00:04:38 verbose #18854 > │ let v11 : bool = │
00:04:38 verbose #18855 > │ if v9 then │
00:04:38 verbose #18856 > │ true │
00:04:38 verbose #18857 > │ else │
00:04:38 verbose #18858 > │ method2(v9) │
00:04:38 verbose #18859 > │ let v12 : string = $"__expect / actual: %A{v7} / expected: %A{9}" │
00:04:38 verbose #18860 > │ let v13 : bool = v11 = false │
00:04:38 verbose #18861 > │ if v13 then │
00:04:38 verbose #18862 > │ failwith<unit> v12 │
00:04:38 verbose #18863 > │ method0() │
00:04:38 verbose #18864 > │ │
00:04:38 verbose #18865 > │ 9 │
00:04:38 verbose #18866 > │ │
00:04:38 verbose #18867 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18868 >
00:04:38 verbose #18869 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #18870 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #18871 > │ ## try_pick │
00:04:38 verbose #18872 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #18873 >
00:04:38 verbose #18874 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #18875 > inl try_pick forall t u. (fn : t -> option u) (array : a _ t) : option u =
00:04:38 verbose #18876 > (array, None)
00:04:38 verbose #18877 > ||> am.foldBack fun x acc =>
00:04:38 verbose #18878 > match acc with
00:04:38 verbose #18879 > | Some _ => acc
00:04:38 verbose #18880 > | None => x |> fn
00:04:39 verbose #18881 > 00:04:38 debug #316 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3b5608351d345e2a257de949f82f9d7cb1f42a9f4c8465f1bb3e4d1328536dc2/main.spi
00:04:39 verbose #18882 >
00:04:39 verbose #18883 > ╭─[ 252.59ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 verbose #18884 > │ () │
00:04:39 verbose #18885 > │ │
00:04:39 verbose #18886 > │ │
00:04:39 verbose #18887 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 verbose #18888 >
00:04:39 verbose #18889 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 verbose #18890 > // // test
00:04:39 verbose #18891 >
00:04:39 verbose #18892 > am.init 10i32 id
00:04:39 verbose #18893 > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:04:39 verbose #18894 > |> _assert_eq (Some 5i32)
00:04:39 verbose #18895 > 00:04:38 debug #317 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/54d3f56ff16ada411e532ba41ac0d7a152123d8519540d65e3999fb8db32c93b/main.spi
00:04:39 verbose #18896 >
00:04:39 verbose #18897 > ╭─[ 332.70ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 verbose #18898 > │ type Mut0 = {mutable l0 : int32} │
00:04:39 verbose #18899 > │ and [<Struct>] US0 = │
00:04:39 verbose #18900 > │ | US0_0 of f0_0 : int32 │
00:04:39 verbose #18901 > │ | US0_1 │
00:04:39 verbose #18902 > │ and Mut1 = {mutable l0 : int32; mutable l1 : US0} │
00:04:39 verbose #18903 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:39 verbose #18904 > │ let v1 : int32 = v0.l0 │
00:04:39 verbose #18905 > │ let v2 : bool = v1 < 10 │
00:04:39 verbose #18906 > │ v2 │
00:04:39 verbose #18907 > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:39 verbose #18908 > │ let v2 : int32 = v1.l0 │
00:04:39 verbose #18909 > │ let v3 : bool = v2 < v0 │
00:04:39 verbose #18910 > │ v3 │
00:04:39 verbose #18911 > │ and method3 (v0 : bool) : bool = │
00:04:39 verbose #18912 > │ v0 │
00:04:39 verbose #18913 > │ and method0 () : unit = │
00:04:39 verbose #18914 > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:39 verbose #18915 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:39 verbose #18916 > │ while method1(v1) do │
00:04:39 verbose #18917 > │ let v3 : int32 = v1.l0 │
00:04:39 verbose #18918 > │ v0.[int v3] <- v3 │
00:04:39 verbose #18919 > │ let v4 : int32 = v3 + 1 │
00:04:39 verbose #18920 > │ v1.l0 <- v4 │
00:04:39 verbose #18921 > │ () │
00:04:39 verbose #18922 > │ let v5 : int32 = v0.Length │
00:04:39 verbose #18923 > │ let v6 : US0 = US0_1 │
00:04:39 verbose #18924 > │ let v7 : Mut1 = {l0 = 0; l1 = v6} : Mut1 │
00:04:39 verbose #18925 > │ while method2(v5, v7) do │
00:04:39 verbose #18926 > │ let v9 : int32 = v7.l0 │
00:04:39 verbose #18927 > │ let v10 : int32 = -v9 │
00:04:39 verbose #18928 > │ let v11 : int32 = v10 + v5 │
00:04:39 verbose #18929 > │ let v12 : int32 = v11 - 1 │
00:04:39 verbose #18930 > │ let v13 : US0 = v7.l1 │
00:04:39 verbose #18931 > │ let v14 : int32 = v0.[int v12] │
00:04:39 verbose #18932 > │ let v21 : US0 = │
00:04:39 verbose #18933 > │ match v13 with │
00:04:39 verbose #18934 > │ | US0_1 -> (* None *) │
00:04:39 verbose #18935 > │ let v16 : bool = v14 = 5 │
00:04:39 verbose #18936 > │ if v16 then │
00:04:39 verbose #18937 > │ US0_0(v14) │
00:04:39 verbose #18938 > │ else │
00:04:39 verbose #18939 > │ US0_1 │
00:04:39 verbose #18940 > │ | US0_0(v15) -> (* Some *) │
00:04:39 verbose #18941 > │ v13 │
00:04:39 verbose #18942 > │ let v22 : int32 = v9 + 1 │
00:04:39 verbose #18943 > │ v7.l0 <- v22 │
00:04:39 verbose #18944 > │ v7.l1 <- v21 │
00:04:39 verbose #18945 > │ () │
00:04:39 verbose #18946 > │ let v23 : US0 = v7.l1 │
00:04:39 verbose #18947 > │ let v24 : string = $"%A{v23}" │
00:04:39 verbose #18948 > │ System.Console.WriteLine v24 │
00:04:39 verbose #18949 > │ let v28 : bool = │
00:04:39 verbose #18950 > │ match v23 with │
00:04:39 verbose #18951 > │ | US0_0(v26) -> (* Some *) │
00:04:39 verbose #18952 > │ let v27 : bool = v26 = 5 │
00:04:39 verbose #18953 > │ v27 │
00:04:39 verbose #18954 > │ | _ -> │
00:04:39 verbose #18955 > │ false │
00:04:39 verbose #18956 > │ let v30 : bool = │
00:04:39 verbose #18957 > │ if v28 then │
00:04:39 verbose #18958 > │ true │
00:04:39 verbose #18959 > │ else │
00:04:39 verbose #18960 > │ method3(v28) │
00:04:39 verbose #18961 > │ let v31 : US0 = US0_0(5) │
00:04:39 verbose #18962 > │ let v32 : string = $"__expect / actual: %A{v23} / expected: %A{v31}" │
00:04:39 verbose #18963 > │ let v33 : bool = v30 = false │
00:04:39 verbose #18964 > │ if v33 then │
00:04:39 verbose #18965 > │ failwith<unit> v32 │
00:04:39 verbose #18966 > │ method0() │
00:04:39 verbose #18967 > │ │
00:04:39 verbose #18968 > │ US0_0 5 │
00:04:39 verbose #18969 > │ │
00:04:39 verbose #18970 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 verbose #18971 >
00:04:39 verbose #18972 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 verbose #18973 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 verbose #18974 > │ ## indexed' │
00:04:39 verbose #18975 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 verbose #18976 >
00:04:39 verbose #18977 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 verbose #18978 > inl indexed' forall t dim {int; number} dim' {int; number} u {number}. (ar : a
00:04:39 verbose #18979 > dim t) : a dim' (u * t) =
00:04:39 verbose #18980 > ((0, a ;[[]]), ar)
00:04:39 verbose #18981 > ||> am.fold fun (i, acc) x =>
00:04:39 verbose #18982 > i + 1, acc /@ a ;[[i, x]]
00:04:39 verbose #18983 > |> snd
00:04:39 verbose #18984 > 00:04:39 debug #318 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/63aa2a6eed38de9050734fca837d5719aa31ef4f71f2c74263c39c6362b79699/main.spi
00:04:39 verbose #18985 >
00:04:39 verbose #18986 > ╭─[ 270.10ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 verbose #18987 > │ () │
00:04:39 verbose #18988 > │ │
00:04:39 verbose #18989 > │ │
00:04:39 verbose #18990 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 verbose #18991 >
00:04:39 verbose #18992 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 verbose #18993 > // // test
00:04:39 verbose #18994 >
00:04:39 verbose #18995 > am.init 3i32 ((*) 2)
00:04:39 verbose #18996 > |> indexed'
00:04:39 verbose #18997 > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:04:39 verbose #18998 > 00:04:39 debug #319 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c85db5920fea777bd738ebec7af04a20f4d25ec044affbb559d8d92da053fc1b/main.spi
00:04:40 verbose #18999 >
00:04:40 verbose #19000 > ╭─[ 367.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 verbose #19001 > │ type Mut0 = {mutable l0 : int32} │
00:04:40 verbose #19002 > │ and Mut1 = {mutable l0 : int32; mutable l1 : int32; mutable l2 : (struct │
00:04:40 verbose #19003 > │ (int32 * int32) [])} │
00:04:40 verbose #19004 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:40 verbose #19005 > │ let v1 : int32 = v0.l0 │
00:04:40 verbose #19006 > │ let v2 : bool = v1 < 3 │
00:04:40 verbose #19007 > │ v2 │
00:04:40 verbose #19008 > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:40 verbose #19009 > │ let v2 : int32 = v1.l0 │
00:04:40 verbose #19010 > │ let v3 : bool = v2 < v0 │
00:04:40 verbose #19011 > │ v3 │
00:04:40 verbose #19012 > │ and method3 (v0 : int32, v1 : Mut0) : bool = │
00:04:40 verbose #19013 > │ let v2 : int32 = v1.l0 │
00:04:40 verbose #19014 > │ let v3 : bool = v2 < v0 │
00:04:40 verbose #19015 > │ v3 │
00:04:40 verbose #19016 > │ and method4 (v0 : (struct (int32 * int32) []), v1 : (struct (int32 * int32) │
00:04:40 verbose #19017 > │ []), v2 : int32) : bool = │
00:04:40 verbose #19018 > │ let v3 : int32 = v0.Length │
00:04:40 verbose #19019 > │ let v4 : bool = v2 < v3 │
00:04:40 verbose #19020 > │ if v4 then │
00:04:40 verbose #19021 > │ let struct (v5 : int32, v6 : int32) = v0.[int v2] │
00:04:40 verbose #19022 > │ let struct (v7 : int32, v8 : int32) = v1.[int v2] │
00:04:40 verbose #19023 > │ let v9 : bool = v5 = v7 │
00:04:40 verbose #19024 > │ let v11 : bool = │
00:04:40 verbose #19025 > │ if v9 then │
00:04:40 verbose #19026 > │ let v10 : bool = v6 = v8 │
00:04:40 verbose #19027 > │ v10 │
00:04:40 verbose #19028 > │ else │
00:04:40 verbose #19029 > │ false │
00:04:40 verbose #19030 > │ if v11 then │
00:04:40 verbose #19031 > │ let v12 : int32 = v2 + 1 │
00:04:40 verbose #19032 > │ method4(v0, v1, v12) │
00:04:40 verbose #19033 > │ else │
00:04:40 verbose #19034 > │ false │
00:04:40 verbose #19035 > │ else │
00:04:40 verbose #19036 > │ true │
00:04:40 verbose #19037 > │ and method5 (v0 : bool) : bool = │
00:04:40 verbose #19038 > │ v0 │
00:04:40 verbose #19039 > │ and method0 () : unit = │
00:04:40 verbose #19040 > │ let v0 : (int32 []) = Array.zeroCreate<int32> (3) │
00:04:40 verbose #19041 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:40 verbose #19042 > │ while method1(v1) do │
00:04:40 verbose #19043 > │ let v3 : int32 = v1.l0 │
00:04:40 verbose #19044 > │ let v4 : int32 = 2 * v3 │
00:04:40 verbose #19045 > │ v0.[int v3] <- v4 │
00:04:40 verbose #19046 > │ let v5 : int32 = v3 + 1 │
00:04:40 verbose #19047 > │ v1.l0 <- v5 │
00:04:40 verbose #19048 > │ () │
00:04:40 verbose #19049 > │ let v6 : (struct (int32 * int32) []) = [||] │
00:04:40 verbose #19050 > │ let v7 : int32 = v0.Length │
00:04:40 verbose #19051 > │ let v8 : Mut1 = {l0 = 0; l1 = 0; l2 = v6} : Mut1 │
00:04:40 verbose #19052 > │ while method2(v7, v8) do │
00:04:40 verbose #19053 > │ let v10 : int32 = v8.l0 │
00:04:40 verbose #19054 > │ let struct (v11 : int32, v12 : (struct (int32 * int32) [])) = v8.l1, │
00:04:40 verbose #19055 > │ v8.l2 │
00:04:40 verbose #19056 > │ let v13 : int32 = v0.[int v10] │
00:04:40 verbose #19057 > │ let v14 : int32 = v11 + 1 │
00:04:40 verbose #19058 > │ let v15 : (struct (int32 * int32) []) = [|struct (v11, v13)|] │
00:04:40 verbose #19059 > │ let v16 : int32 = v12.Length │
00:04:40 verbose #19060 > │ let v17 : int32 = v15.Length │
00:04:40 verbose #19061 > │ let v18 : int32 = v16 + v17 │
00:04:40 verbose #19062 > │ let v19 : (struct (int32 * int32) []) = Array.zeroCreate<struct │
00:04:40 verbose #19063 > │ (int32 * int32)> (v18) │
00:04:40 verbose #19064 > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:04:40 verbose #19065 > │ while method3(v18, v20) do │
00:04:40 verbose #19066 > │ let v22 : int32 = v20.l0 │
00:04:40 verbose #19067 > │ let v23 : bool = v22 < v16 │
00:04:40 verbose #19068 > │ let struct (v29 : int32, v30 : int32) = │
00:04:40 verbose #19069 > │ if v23 then │
00:04:40 verbose #19070 > │ let struct (v24 : int32, v25 : int32) = v12.[int v22] │
00:04:40 verbose #19071 > │ struct (v24, v25) │
00:04:40 verbose #19072 > │ else │
00:04:40 verbose #19073 > │ let v26 : int32 = v22 - v16 │
00:04:40 verbose #19074 > │ let struct (v27 : int32, v28 : int32) = v15.[int v26] │
00:04:40 verbose #19075 > │ struct (v27, v28) │
00:04:40 verbose #19076 > │ v19.[int v22] <- struct (v29, v30) │
00:04:40 verbose #19077 > │ let v31 : int32 = v22 + 1 │
00:04:40 verbose #19078 > │ v20.l0 <- v31 │
00:04:40 verbose #19079 > │ () │
00:04:40 verbose #19080 > │ let v32 : int32 = v10 + 1 │
00:04:40 verbose #19081 > │ v8.l0 <- v32 │
00:04:40 verbose #19082 > │ v8.l1 <- v14 │
00:04:40 verbose #19083 > │ v8.l2 <- v19 │
00:04:40 verbose #19084 > │ () │
00:04:40 verbose #19085 > │ let struct (v33 : int32, v34 : (struct (int32 * int32) [])) = v8.l1, │
00:04:40 verbose #19086 > │ v8.l2 │
00:04:40 verbose #19087 > │ let v35 : (struct (int32 * int32) []) = [|struct (0, 0); struct (1, 2); │
00:04:40 verbose #19088 > │ struct (2, 4)|] │
00:04:40 verbose #19089 > │ let v36 : string = $"%A{v34}" │
00:04:40 verbose #19090 > │ System.Console.WriteLine v36 │
00:04:40 verbose #19091 > │ let v37 : int32 = v34.Length │
00:04:40 verbose #19092 > │ let v38 : int32 = v35.Length │
00:04:40 verbose #19093 > │ let v39 : bool = v37 = v38 │
00:04:40 verbose #19094 > │ let v40 : bool = v39 <> true │
00:04:40 verbose #19095 > │ let v43 : bool = │
00:04:40 verbose #19096 > │ if v40 then │
00:04:40 verbose #19097 > │ false │
00:04:40 verbose #19098 > │ else │
00:04:40 verbose #19099 > │ let v41 : int32 = 0 │
00:04:40 verbose #19100 > │ method4(v34, v35, v41) │
00:04:40 verbose #19101 > │ let v45 : bool = │
00:04:40 verbose #19102 > │ if v43 then │
00:04:40 verbose #19103 > │ true │
00:04:40 verbose #19104 > │ else │
00:04:40 verbose #19105 > │ method5(v43) │
00:04:40 verbose #19106 > │ let v46 : string = $"__expect / actual: %A{v34} / expected: %A{v35}" │
00:04:40 verbose #19107 > │ let v47 : bool = v45 = false │
00:04:40 verbose #19108 > │ if v47 then │
00:04:40 verbose #19109 > │ failwith<unit> v46 │
00:04:40 verbose #19110 > │ method0() │
00:04:40 verbose #19111 > │ │
00:04:40 verbose #19112 > │ [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:04:40 verbose #19113 > │ │
00:04:40 verbose #19114 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19115 >
00:04:40 verbose #19116 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 verbose #19117 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 verbose #19118 > │ ## map_base │
00:04:40 verbose #19119 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19120 >
00:04:40 verbose #19121 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 verbose #19122 > inl map_base forall t u. (fn : t -> u) (x : array_base t) : array_base u =
00:04:40 verbose #19123 > a x
00:04:40 verbose #19124 > |> am.map fn
00:04:40 verbose #19125 > |> fun (a x : _ i64 _) => x
00:04:40 verbose #19126 > 00:04:39 debug #320 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a58fe736a5e2a7c90a7fba333e960891e0342a49117a331a97abbb783845365d/main.spi
00:04:40 verbose #19127 >
00:04:40 verbose #19128 > ╭─[ 253.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 verbose #19129 > │ () │
00:04:40 verbose #19130 > │ │
00:04:40 verbose #19131 > │ │
00:04:40 verbose #19132 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19133 >
00:04:40 verbose #19134 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 verbose #19135 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 verbose #19136 > │ ## average │
00:04:40 verbose #19137 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19138 >
00:04:40 verbose #19139 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 verbose #19140 > inl average forall el {number}. (a : a _ el) : el =
00:04:40 verbose #19141 > a |> $'Array.average'
00:04:40 verbose #19142 > 00:04:40 debug #321 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e0b3acf2a87410fcd1d271766651e399c13a35d87f958b553764e2ca4dfca848/main.spi
00:04:40 verbose #19143 >
00:04:40 verbose #19144 > ╭─[ 263.20ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 verbose #19145 > │ () │
00:04:40 verbose #19146 > │ │
00:04:40 verbose #19147 > │ │
00:04:40 verbose #19148 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19149 >
00:04:40 verbose #19150 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 verbose #19151 > inl distinct forall dim el. (a : a dim el) : a dim el =
00:04:40 verbose #19152 > a |> $'Array.distinct'
00:04:40 verbose #19153 > 00:04:40 debug #322 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/23719e93ee87d1d8a8d2207049467be97e385d3023b6cbcc37634c0cd60808eb/main.spi
00:04:40 verbose #19154 >
00:04:40 verbose #19155 > ╭─[ 235.44ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 verbose #19156 > │ () │
00:04:40 verbose #19157 > │ │
00:04:40 verbose #19158 > │ │
00:04:40 verbose #19159 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19160 >
00:04:40 verbose #19161 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 verbose #19162 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 verbose #19163 > │ ## parallel_map │
00:04:40 verbose #19164 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #19165 >
00:04:40 verbose #19166 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 verbose #19167 > inl parallel_map forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el'
00:04:40 verbose #19168 > =
00:04:40 verbose #19169 > a |> $'Array.Parallel.map' fn
00:04:41 verbose #19170 > 00:04:40 debug #323 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aeaaf52aab939cf23513b3ce0e4db19009a5a7481cfc6b885917ccff8853914a/main.spi
00:04:41 verbose #19171 >
00:04:41 verbose #19172 > ╭─[ 191.71ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 verbose #19173 > │ () │
00:04:41 verbose #19174 > │ │
00:04:41 verbose #19175 > │ │
00:04:41 verbose #19176 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19177 >
00:04:41 verbose #19178 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 verbose #19179 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 verbose #19180 > │ ## sort_by │
00:04:41 verbose #19181 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19182 >
00:04:41 verbose #19183 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 verbose #19184 > inl sort_by forall dim el. (fn : el -> _) (a : a dim el) : a dim el =
00:04:41 verbose #19185 > a |> $'Array.sortBy' fn
00:04:41 verbose #19186 > 00:04:40 debug #324 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/15dcda3fe4d70c30adad96772635b401e1d982e1149df734ec7df5e2425b1e25/main.spi
00:04:41 verbose #19187 >
00:04:41 verbose #19188 > ╭─[ 219.26ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 verbose #19189 > │ () │
00:04:41 verbose #19190 > │ │
00:04:41 verbose #19191 > │ │
00:04:41 verbose #19192 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19193 >
00:04:41 verbose #19194 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 verbose #19195 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 verbose #19196 > │ ## sort_descending │
00:04:41 verbose #19197 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19198 >
00:04:41 verbose #19199 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 verbose #19200 > inl sort_descending forall dim el. (a : a dim el) : a dim el =
00:04:41 verbose #19201 > a |> $'Array.sortDescending'
00:04:41 verbose #19202 > 00:04:40 debug #325 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3ba18b494387591436ea84b7f74c27fff4295f9b524d9fe9f8be0c0fa07e74fe/main.spi
00:04:41 verbose #19203 >
00:04:41 verbose #19204 > ╭─[ 241.22ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 verbose #19205 > │ () │
00:04:41 verbose #19206 > │ │
00:04:41 verbose #19207 > │ │
00:04:41 verbose #19208 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19209 >
00:04:41 verbose #19210 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 verbose #19211 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 verbose #19212 > │ ## transpose │
00:04:41 verbose #19213 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19214 >
00:04:41 verbose #19215 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 verbose #19216 > inl transpose forall dim el. (a : a dim (a dim el)) : a dim (a dim el) =
00:04:41 verbose #19217 > a |> $'Array.transpose'
00:04:41 verbose #19218 > 00:04:41 debug #326 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dba16f3298415ca0b5a19b7104b50ee40ddcde086f33d315ec5ac562044dbea6/main.spi
00:04:41 verbose #19219 >
00:04:41 verbose #19220 > ╭─[ 249.15ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 verbose #19221 > │ () │
00:04:41 verbose #19222 > │ │
00:04:41 verbose #19223 > │ │
00:04:41 verbose #19224 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19225 >
00:04:41 verbose #19226 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 verbose #19227 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 verbose #19228 > │ ## try_item │
00:04:41 verbose #19229 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #19230 >
00:04:41 verbose #19231 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 verbose #19232 > inl try_item forall dim el. (i : i32) (a : a dim el) : option el =
00:04:41 verbose #19233 > a |> $'Array.tryItem' i |> optionm'.unbox
00:04:42 verbose #19234 > 00:04:41 debug #327 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a4d4e9600415133779b9f8a52525e310611724c9f1aff5745d02ebdcb0ca708f/main.spi
00:04:42 verbose #19235 >
00:04:42 verbose #19236 > ╭─[ 238.95ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 verbose #19237 > │ () │
00:04:42 verbose #19238 > │ │
00:04:42 verbose #19239 > │ │
00:04:42 verbose #19240 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #19241 >
00:04:42 verbose #19242 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 verbose #19243 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 verbose #19244 > │ ## indexed │
00:04:42 verbose #19245 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #19246 >
00:04:42 verbose #19247 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 verbose #19248 > inl indexed (array : a _ _) =
00:04:42 verbose #19249 > (([[]], 0), array)
00:04:42 verbose #19250 > ||> am.fold fun (acc, i) x =>
00:04:42 verbose #19251 > (i, x) :: acc, i + 1
00:04:42 verbose #19252 > |> fst
00:04:42 verbose #19253 > |> listm.rev
00:04:42 verbose #19254 > |> listm.toArray
00:04:42 verbose #19255 > 00:04:41 debug #328 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fea65d8a4be04f8a1affdaa328abfa300fb78a0363f6ea7b56cf9e71f9a6f0a1/main.spi
00:04:42 verbose #19256 >
00:04:42 verbose #19257 > ╭─[ 215.83ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 verbose #19258 > │ () │
00:04:42 verbose #19259 > │ │
00:04:42 verbose #19260 > │ │
00:04:42 verbose #19261 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #19262 >
00:04:42 verbose #19263 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 verbose #19264 > // // test
00:04:42 verbose #19265 >
00:04:42 verbose #19266 > am.init 3i32 ((*) 2)
00:04:42 verbose #19267 > |> indexed
00:04:42 verbose #19268 > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:04:42 verbose #19269 > 00:04:41 debug #329 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/805e27981bf57e65e418f570f640ce1b615a4d74340b18ccd147f60c9fa396f3/main.spi
00:04:42 verbose #19270 >
00:04:42 verbose #19271 > ╭─[ 384.85ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 verbose #19272 > │ type Mut0 = {mutable l0 : int32} │
00:04:42 verbose #19273 > │ and UH0 = │
00:04:42 verbose #19274 > │ | UH0_0 │
00:04:42 verbose #19275 > │ | UH0_1 of int32 * int32 * UH0 │
00:04:42 verbose #19276 > │ and Mut1 = {mutable l0 : int32; mutable l1 : UH0; mutable l2 : int32} │
00:04:42 verbose #19277 > │ let rec method1 (v0 : Mut0) : bool = │
00:04:42 verbose #19278 > │ let v1 : int32 = v0.l0 │
00:04:42 verbose #19279 > │ let v2 : bool = v1 < 3 │
00:04:42 verbose #19280 > │ v2 │
00:04:42 verbose #19281 > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:42 verbose #19282 > │ let v2 : int32 = v1.l0 │
00:04:42 verbose #19283 > │ let v3 : bool = v2 < v0 │
00:04:42 verbose #19284 > │ v3 │
00:04:42 verbose #19285 > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:04:42 verbose #19286 > │ match v0 with │
00:04:42 verbose #19287 > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:04:42 verbose #19288 > │ let v5 : UH0 = UH0_1(v2, v3, v1) │
00:04:42 verbose #19289 > │ method3(v4, v5) │
00:04:42 verbose #19290 > │ | UH0_0 -> (* Nil *) │
00:04:42 verbose #19291 > │ v1 │
00:04:42 verbose #19292 > │ and method5 (v0 : UH0, v1 : int32) : int32 = │
00:04:42 verbose #19293 > │ match v0 with │
00:04:42 verbose #19294 > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:04:42 verbose #19295 > │ let v5 : int32 = v1 + 1 │
00:04:42 verbose #19296 > │ method5(v4, v5) │
00:04:42 verbose #19297 > │ | UH0_0 -> (* Nil *) │
00:04:42 verbose #19298 > │ v1 │
00:04:42 verbose #19299 > │ and method6 (v0 : (struct (int32 * int32) []), v1 : UH0, v2 : int32) : int32 │
00:04:42 verbose #19300 > │ = │
00:04:42 verbose #19301 > │ match v1 with │
00:04:42 verbose #19302 > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:04:42 verbose #19303 > │ v0.[int v2] <- struct (v3, v4) │
00:04:42 verbose #19304 > │ let v6 : int32 = v2 + 1 │
00:04:42 verbose #19305 > │ method6(v0, v5, v6) │
00:04:42 verbose #19306 > │ | UH0_0 -> (* Nil *) │
00:04:42 verbose #19307 > │ v2 │
00:04:42 verbose #19308 > │ and method4 (v0 : UH0) : (struct (int32 * int32) []) = │
00:04:42 verbose #19309 > │ let v1 : int32 = 0 │
00:04:42 verbose #19310 > │ let v2 : int32 = method5(v0, v1) │
00:04:42 verbose #19311 > │ let v3 : (struct (int32 * int32) []) = Array.zeroCreate<struct (int32 * │
00:04:42 verbose #19312 > │ int32)> (v2) │
00:04:42 verbose #19313 > │ let v4 : int32 = 0 │
00:04:42 verbose #19314 > │ let v5 : int32 = method6(v3, v0, v4) │
00:04:42 verbose #19315 > │ v3 │
00:04:42 verbose #19316 > │ and method7 (v0 : (struct (int32 * int32) []), v1 : (struct (int32 * int32) │
00:04:42 verbose #19317 > │ []), v2 : int32) : bool = │
00:04:42 verbose #19318 > │ let v3 : int32 = v0.Length │
00:04:42 verbose #19319 > │ let v4 : bool = v2 < v3 │
00:04:42 verbose #19320 > │ if v4 then │
00:04:42 verbose #19321 > │ let struct (v5 : int32, v6 : int32) = v0.[int v2] │
00:04:42 verbose #19322 > │ let struct (v7 : int32, v8 : int32) = v1.[int v2] │
00:04:42 verbose #19323 > │ let v9 : bool = v5 = v7 │
00:04:42 verbose #19324 > │ let v11 : bool = │
00:04:42 verbose #19325 > │ if v9 then │
00:04:42 verbose #19326 > │ let v10 : bool = v6 = v8 │
00:04:42 verbose #19327 > │ v10 │
00:04:42 verbose #19328 > │ else │
00:04:42 verbose #19329 > │ false │
00:04:42 verbose #19330 > │ if v11 then │
00:04:42 verbose #19331 > │ let v12 : int32 = v2 + 1 │
00:04:42 verbose #19332 > │ method7(v0, v1, v12) │
00:04:42 verbose #19333 > │ else │
00:04:42 verbose #19334 > │ false │
00:04:42 verbose #19335 > │ else │
00:04:42 verbose #19336 > │ true │
00:04:42 verbose #19337 > │ and method8 (v0 : bool) : bool = │
00:04:42 verbose #19338 > │ v0 │
00:04:42 verbose #19339 > │ and method0 () : unit = │
00:04:42 verbose #19340 > │ let v0 : (int32 []) = Array.zeroCreate<int32> (3) │
00:04:42 verbose #19341 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:42 verbose #19342 > │ while method1(v1) do │
00:04:42 verbose #19343 > │ let v3 : int32 = v1.l0 │
00:04:42 verbose #19344 > │ let v4 : int32 = 2 * v3 │
00:04:42 verbose #19345 > │ v0.[int v3] <- v4 │
00:04:42 verbose #19346 > │ let v5 : int32 = v3 + 1 │
00:04:42 verbose #19347 > │ v1.l0 <- v5 │
00:04:42 verbose #19348 > │ () │
00:04:42 verbose #19349 > │ let v6 : int32 = v0.Length │
00:04:42 verbose #19350 > │ let v7 : UH0 = UH0_0 │
00:04:42 verbose #19351 > │ let v8 : Mut1 = {l0 = 0; l1 = v7; l2 = 0} : Mut1 │
00:04:42 verbose #19352 > │ while method2(v6, v8) do │
00:04:42 verbose #19353 > │ let v10 : int32 = v8.l0 │
00:04:42 verbose #19354 > │ let struct (v11 : UH0, v12 : int32) = v8.l1, v8.l2 │
00:04:42 verbose #19355 > │ let v13 : int32 = v0.[int v10] │
00:04:42 verbose #19356 > │ let v14 : int32 = v12 + 1 │
00:04:42 verbose #19357 > │ let v15 : int32 = v10 + 1 │
00:04:42 verbose #19358 > │ let v16 : UH0 = UH0_1(v12, v13, v11) │
00:04:42 verbose #19359 > │ v8.l0 <- v15 │
00:04:42 verbose #19360 > │ v8.l1 <- v16 │
00:04:42 verbose #19361 > │ v8.l2 <- v14 │
00:04:42 verbose #19362 > │ () │
00:04:42 verbose #19363 > │ let struct (v17 : UH0, v18 : int32) = v8.l1, v8.l2 │
00:04:42 verbose #19364 > │ let v19 : UH0 = UH0_0 │
00:04:42 verbose #19365 > │ let v20 : UH0 = method3(v17, v19) │
00:04:42 verbose #19366 > │ let v21 : (struct (int32 * int32) []) = method4(v20) │
00:04:42 verbose #19367 > │ let v22 : (struct (int32 * int32) []) = [|struct (0, 0); struct (1, 2); │
00:04:42 verbose #19368 > │ struct (2, 4)|] │
00:04:42 verbose #19369 > │ let v23 : string = $"%A{v21}" │
00:04:42 verbose #19370 > │ System.Console.WriteLine v23 │
00:04:42 verbose #19371 > │ let v24 : int32 = v21.Length │
00:04:42 verbose #19372 > │ let v25 : int32 = v22.Length │
00:04:42 verbose #19373 > │ let v26 : bool = v24 = v25 │
00:04:42 verbose #19374 > │ let v27 : bool = v26 <> true │
00:04:42 verbose #19375 > │ let v30 : bool = │
00:04:42 verbose #19376 > │ if v27 then │
00:04:42 verbose #19377 > │ false │
00:04:42 verbose #19378 > │ else │
00:04:42 verbose #19379 > │ let v28 : int32 = 0 │
00:04:42 verbose #19380 > │ method7(v21, v22, v28) │
00:04:42 verbose #19381 > │ let v32 : bool = │
00:04:42 verbose #19382 > │ if v30 then │
00:04:42 verbose #19383 > │ true │
00:04:42 verbose #19384 > │ else │
00:04:42 verbose #19385 > │ method8(v30) │
00:04:42 verbose #19386 > │ let v33 : string = $"__expect / actual: %A{v21} / expected: %A{v22}" │
00:04:42 verbose #19387 > │ let v34 : bool = v32 = false │
00:04:42 verbose #19388 > │ if v34 then │
00:04:42 verbose #19389 > │ failwith<unit> v33 │
00:04:42 verbose #19390 > │ method0() │
00:04:42 verbose #19391 > │ │
00:04:42 verbose #19392 > │ [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:04:42 verbose #19393 > │ │
00:04:42 verbose #19394 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #19395 >
00:04:42 verbose #19396 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 verbose #19397 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 verbose #19398 > │ ## vec │
00:04:42 verbose #19399 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #19400 >
00:04:42 verbose #19401 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 verbose #19402 > nominal vec t = $"Vec<`t>"
00:04:42 verbose #19403 > 00:04:42 debug #330 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a0c2487c7f05279aef8279a00aef23d3e35b10abf74d6bd5783888f97c290ce2/main.spi
00:04:43 verbose #19404 >
00:04:43 verbose #19405 > ╭─[ 245.91ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 verbose #19406 > │ () │
00:04:43 verbose #19407 > │ │
00:04:43 verbose #19408 > │ │
00:04:43 verbose #19409 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19410 >
00:04:43 verbose #19411 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #19412 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #19413 > │ ## from_vec │
00:04:43 verbose #19414 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19415 >
00:04:43 verbose #19416 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #19417 > inl from_vec forall dim el. (vec : vec el) : a dim el =
00:04:43 verbose #19418 > !\\(vec, $'"fable_library_rust::NativeArray_::array_from($0)"')
00:04:43 verbose #19419 > 00:04:42 debug #331 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e84916c36bcb98492bb25123dd27a3e87ae80a1548957debe5c731d10fb814a4/main.spi
00:04:43 verbose #19420 >
00:04:43 verbose #19421 > ╭─[ 222.55ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 verbose #19422 > │ () │
00:04:43 verbose #19423 > │ │
00:04:43 verbose #19424 > │ │
00:04:43 verbose #19425 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19426 >
00:04:43 verbose #19427 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #19428 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #19429 > │ ## to_vec │
00:04:43 verbose #19430 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19431 >
00:04:43 verbose #19432 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #19433 > inl to_vec forall t. (ab : array_base t) : vec t =
00:04:43 verbose #19434 > !\\(ab, $'"$0.to_vec()"')
00:04:43 verbose #19435 > 00:04:42 debug #332 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/27531565de1f2f6e9ef542503f704d6153079c4d8599fbf079b491847b138a8b/main.spi
00:04:43 verbose #19436 >
00:04:43 verbose #19437 > ╭─[ 216.75ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 verbose #19438 > │ () │
00:04:43 verbose #19439 > │ │
00:04:43 verbose #19440 > │ │
00:04:43 verbose #19441 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19442 >
00:04:43 verbose #19443 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #19444 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #19445 > │ ## vec_push │
00:04:43 verbose #19446 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19447 >
00:04:43 verbose #19448 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #19449 > inl vec_push forall el. (el : el) (vec : vec el) : vec el =
00:04:43 verbose #19450 > inl el = join el
00:04:43 verbose #19451 > inl vec = join vec
00:04:43 verbose #19452 > !\($'"let mut !vec = !vec"')
00:04:43 verbose #19453 > // inl vec = vec |> rust.to_mut
00:04:43 verbose #19454 > !\($'"!vec.push(!el)"')
00:04:43 verbose #19455 > !\($'"!vec"')
00:04:43 verbose #19456 > 00:04:43 debug #333 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e6120ff9468d063320085eff13abacbf3d0f497820b40c60c5e764cc143e233b/main.spi
00:04:43 verbose #19457 >
00:04:43 verbose #19458 > ╭─[ 235.30ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 verbose #19459 > │ () │
00:04:43 verbose #19460 > │ │
00:04:43 verbose #19461 > │ │
00:04:43 verbose #19462 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19463 >
00:04:43 verbose #19464 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #19465 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #19466 > │ ## vec_reverse │
00:04:43 verbose #19467 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19468 >
00:04:43 verbose #19469 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #19470 > inl vec_reverse forall el. (vec : vec el) : vec el =
00:04:43 verbose #19471 > inl vec = join vec
00:04:43 verbose #19472 > !\($'"let mut !vec = !vec"')
00:04:43 verbose #19473 > !\($'"!vec.reverse()"')
00:04:43 verbose #19474 > !\($'"!vec"')
00:04:43 verbose #19475 > 00:04:43 debug #334 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/64cdd3e8fb790bffb2457da426826c04a83d2edeb8201306020ba579be4792e4/main.spi
00:04:43 verbose #19476 >
00:04:43 verbose #19477 > ╭─[ 223.03ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 verbose #19478 > │ () │
00:04:43 verbose #19479 > │ │
00:04:43 verbose #19480 > │ │
00:04:43 verbose #19481 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19482 >
00:04:43 verbose #19483 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #19484 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #19485 > │ ## vec_retain │
00:04:43 verbose #19486 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #19487 >
00:04:43 verbose #19488 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #19489 > inl vec_retain forall el. (fn : el -> bool) (vec : vec el) : vec el =
00:04:43 verbose #19490 > inl vec = join vec
00:04:43 verbose #19491 > inl fn = join fn
00:04:43 verbose #19492 > !\($'"let mut !vec = !vec"')
00:04:43 verbose #19493 > // inl vec = vec |> rust.to_mut
00:04:43 verbose #19494 > !\($'"!vec.retain(|x| !fn(x.clone()))"')
00:04:43 verbose #19495 > !\($'"!vec"')
00:04:44 verbose #19496 > 00:04:43 debug #335 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b2b77b0134c1485e0a028f234219294fa1b9f391a2989c56e18d814758021d38/main.spi
00:04:44 verbose #19497 >
00:04:44 verbose #19498 > ╭─[ 238.18ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 verbose #19499 > │ () │
00:04:44 verbose #19500 > │ │
00:04:44 verbose #19501 > │ │
00:04:44 verbose #19502 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19503 >
00:04:44 verbose #19504 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 verbose #19505 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 verbose #19506 > │ ## vec_sort_by_key │
00:04:44 verbose #19507 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19508 >
00:04:44 verbose #19509 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 verbose #19510 > inl vec_sort_by_key forall el t. (fn : el -> t) (vec : vec el) : vec el =
00:04:44 verbose #19511 > inl vec = join vec
00:04:44 verbose #19512 > inl fn = join fn
00:04:44 verbose #19513 > !\($'"let mut !vec = !vec"')
00:04:44 verbose #19514 > // inl vec = vec |> rust.to_mut
00:04:44 verbose #19515 > !\($'"!vec.sort_by_key(|x| !fn(x.clone()))"')
00:04:44 verbose #19516 > !\($'"!vec"')
00:04:44 verbose #19517 > 00:04:43 debug #336 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2ccd227557cbf66d72c89125fdcd675228fcfe277f066ef888dd893ae1da24e7/main.spi
00:04:44 verbose #19518 >
00:04:44 verbose #19519 > ╭─[ 211.62ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 verbose #19520 > │ () │
00:04:44 verbose #19521 > │ │
00:04:44 verbose #19522 > │ │
00:04:44 verbose #19523 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19524 >
00:04:44 verbose #19525 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 verbose #19526 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 verbose #19527 > │ ## vec_extend │
00:04:44 verbose #19528 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19529 >
00:04:44 verbose #19530 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 verbose #19531 > inl vec_extend forall el. (el : vec el) (vec : vec el) : vec el =
00:04:44 verbose #19532 > inl el = join el
00:04:44 verbose #19533 > inl vec = join vec
00:04:44 verbose #19534 > !\($'"let mut !vec = !vec"')
00:04:44 verbose #19535 > // inl vec = vec |> rust.to_mut
00:04:44 verbose #19536 > !\($'"!vec.extend(!el)"')
00:04:44 verbose #19537 > !\($'"!vec"')
00:04:44 verbose #19538 > 00:04:43 debug #337 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/85672f34966e652f35c5e200e581944e8ffc6370ae684ebce395ee57b70d2b26/main.spi
00:04:44 verbose #19539 >
00:04:44 verbose #19540 > ╭─[ 244.22ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 verbose #19541 > │ () │
00:04:44 verbose #19542 > │ │
00:04:44 verbose #19543 > │ │
00:04:44 verbose #19544 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19545 >
00:04:44 verbose #19546 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 verbose #19547 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 verbose #19548 > │ ## vec_collect │
00:04:44 verbose #19549 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19550 >
00:04:44 verbose #19551 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 verbose #19552 > inl vec_collect fn vec =
00:04:44 verbose #19553 > ((;[[]] |> to_vec), (vec |> from_vec : _ i32 _))
00:04:44 verbose #19554 > ||> am.fold fun acc x =>
00:04:44 verbose #19555 > acc |> vec_extend (fn x)
00:04:44 verbose #19556 > 00:04:44 debug #338 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a3f07fd84a7fd0cd4d0bf5321ebc75e02c0780d3fa9bbe2f300362572b7e5c39/main.spi
00:04:44 verbose #19557 >
00:04:44 verbose #19558 > ╭─[ 243.07ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 verbose #19559 > │ () │
00:04:44 verbose #19560 > │ │
00:04:44 verbose #19561 > │ │
00:04:44 verbose #19562 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19563 >
00:04:44 verbose #19564 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 verbose #19565 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 verbose #19566 > │ ## vec_collect_option │
00:04:44 verbose #19567 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #19568 >
00:04:44 verbose #19569 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 verbose #19570 > inl vec_collect_option vec =
00:04:44 verbose #19571 > ((;[[]] |> to_vec |> Ok), (vec |> from_vec : _ i32 _))
00:04:44 verbose #19572 > ||> am.fold fun acc x =>
00:04:44 verbose #19573 > x
00:04:44 verbose #19574 > |> resultm.unbox
00:04:44 verbose #19575 > |> fun x =>
00:04:44 verbose #19576 > match acc, x |> resultm.map optionm'.unbox with
00:04:44 verbose #19577 > | Ok acc, Ok (Some x) => acc |> vec_extend x |> Ok
00:04:44 verbose #19578 > | _, Error error => error |> Error
00:04:44 verbose #19579 > | _ => acc
00:04:45 verbose #19580 > 00:04:44 debug #339 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8d3dc277b5bc35bd5deb67b699c7eb6f8b602bd0f34ef83f9cdb19474f2f1091/main.spi
00:04:45 verbose #19581 >
00:04:45 verbose #19582 > ╭─[ 226.15ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 verbose #19583 > │ () │
00:04:45 verbose #19584 > │ │
00:04:45 verbose #19585 > │ │
00:04:45 verbose #19586 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19587 >
00:04:45 verbose #19588 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 verbose #19589 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 verbose #19590 > │ ## vec_collect_into │
00:04:45 verbose #19591 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19592 >
00:04:45 verbose #19593 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 verbose #19594 > inl vec_collect_into forall (c : * -> * -> *) t e.
00:04:45 verbose #19595 > (x : vec (c t e))
00:04:45 verbose #19596 > : c (vec t) e
00:04:45 verbose #19597 > =
00:04:45 verbose #19598 > !\($'"!x.into_iter().collect()"')
00:04:45 verbose #19599 > 00:04:44 debug #340 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5d492dae10c609dc9ff237c88f0c1461f361db291400466b81a396fdcd254ec0/main.spi
00:04:45 verbose #19600 >
00:04:45 verbose #19601 > ╭─[ 258.94ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 verbose #19602 > │ () │
00:04:45 verbose #19603 > │ │
00:04:45 verbose #19604 > │ │
00:04:45 verbose #19605 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19606 >
00:04:45 verbose #19607 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 verbose #19608 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 verbose #19609 > │ ## vec_mapi │
00:04:45 verbose #19610 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19611 >
00:04:45 verbose #19612 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 verbose #19613 > inl vec_mapi forall dim t u. (fn : dim -> t -> u) (ar : vec t) : vec u =
00:04:45 verbose #19614 > inl fn = join fn
00:04:45 verbose #19615 > inl ar = join ar
00:04:45 verbose #19616 > !\($'"!ar.iter().enumerate().map(|(i, x)|
00:04:45 verbose #19617 > !fn(i.try_into().unwrap())(x.clone())).collect()"')
00:04:45 verbose #19618 > 00:04:44 debug #341 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5e2105317a6c289f3a577edecbce3873a87352c8d1cf8c28fce0ac9d5ad627d0/main.spi
00:04:45 verbose #19619 >
00:04:45 verbose #19620 > ╭─[ 220.15ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 verbose #19621 > │ () │
00:04:45 verbose #19622 > │ │
00:04:45 verbose #19623 > │ │
00:04:45 verbose #19624 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19625 >
00:04:45 verbose #19626 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 verbose #19627 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 verbose #19628 > │ ## vec_map │
00:04:45 verbose #19629 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19630 >
00:04:45 verbose #19631 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 verbose #19632 > inl vec_map forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:04:45 verbose #19633 > !\\((ar, fn), $'"$0.iter().map(|x| $1(x.clone())).collect()"')
00:04:45 verbose #19634 > 00:04:45 debug #342 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f3ca3004dd94dece15e57f2d794c3913c4364d6ba30cbdb92f7abb8d482fe331/main.spi
00:04:45 verbose #19635 >
00:04:45 verbose #19636 > ╭─[ 226.99ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 verbose #19637 > │ () │
00:04:45 verbose #19638 > │ │
00:04:45 verbose #19639 > │ │
00:04:45 verbose #19640 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19641 >
00:04:45 verbose #19642 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 verbose #19643 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 verbose #19644 > │ ## vec_filter │
00:04:45 verbose #19645 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #19646 >
00:04:45 verbose #19647 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 verbose #19648 > inl vec_filter forall t. (fn : t -> bool) (ar : vec t) : vec t =
00:04:45 verbose #19649 > inl fn = join fn
00:04:45 verbose #19650 > inl ar = join ar
00:04:45 verbose #19651 > !\($'"!ar.into_iter().filter(|x| !fn(x.clone().clone())).collect()"')
00:04:46 verbose #19652 > 00:04:45 debug #343 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8a0aa8fe9dc2c6a648988c0ba0eb8f4e875f51d7ea610a012c8841999479c05e/main.spi
00:04:46 verbose #19653 >
00:04:46 verbose #19654 > ╭─[ 216.24ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 verbose #19655 > │ () │
00:04:46 verbose #19656 > │ │
00:04:46 verbose #19657 > │ │
00:04:46 verbose #19658 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19659 >
00:04:46 verbose #19660 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 verbose #19661 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 verbose #19662 > │ ## vec_len │
00:04:46 verbose #19663 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19664 >
00:04:46 verbose #19665 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 verbose #19666 > inl vec_len forall t. (vec : vec t) : unativeint =
00:04:46 verbose #19667 > !\\(vec, $'"$0.len()"')
00:04:46 verbose #19668 > 00:04:45 debug #344 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/372448fbbdf45d69766df3e9a5c78564a5245df108ed31febb1832ccb669c7ba/main.spi
00:04:46 verbose #19669 >
00:04:46 verbose #19670 > ╭─[ 216.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 verbose #19671 > │ () │
00:04:46 verbose #19672 > │ │
00:04:46 verbose #19673 > │ │
00:04:46 verbose #19674 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19675 >
00:04:46 verbose #19676 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 verbose #19677 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 verbose #19678 > │ ## slice │
00:04:46 verbose #19679 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19680 >
00:04:46 verbose #19681 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 verbose #19682 > nominal slice t = $"Slice<`t>"
00:04:46 verbose #19683 > 00:04:45 debug #345 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1f7926e8413652fe949a297a2df5a9d204c758a6f3d11bd75887e4b2501c8866/main.spi
00:04:46 verbose #19684 >
00:04:46 verbose #19685 > ╭─[ 249.92ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 verbose #19686 > │ () │
00:04:46 verbose #19687 > │ │
00:04:46 verbose #19688 > │ │
00:04:46 verbose #19689 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19690 >
00:04:46 verbose #19691 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 verbose #19692 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 verbose #19693 > │ ## slice' │
00:04:46 verbose #19694 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19695 >
00:04:46 verbose #19696 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 verbose #19697 > nominal slice' t u = $"Slice'<`t, `u>"
00:04:46 verbose #19698 >
00:04:46 verbose #19699 > inl slice' forall dim el. (x : option el) : slice' el dim =
00:04:46 verbose #19700 > match x with
00:04:46 verbose #19701 > | Some x => !\($'"[[!x]]"')
00:04:46 verbose #19702 > | None =>
00:04:46 verbose #19703 > !\($'"[[\\\"\\\".to_string()]]"') : slice' el dim
00:04:46 verbose #19704 > // emit_expr `(()) `(slice' el dim) () ($'"[[@dim]]"' : string) :
00:04:46 verbose #19705 > slice' el 10
00:04:46 verbose #19706 > // !\( : string) : slice' el i32 // !\($'"[[]]"')
00:04:46 verbose #19707 > 00:04:46 debug #346 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/67e2433e7c2b84dbad3dd8b580dd1e7abf10bf06a01b6bb8da1634ac5d08481d/main.spi
00:04:46 verbose #19708 >
00:04:46 verbose #19709 > ╭─[ 258.08ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 verbose #19710 > │ () │
00:04:46 verbose #19711 > │ │
00:04:46 verbose #19712 > │ │
00:04:46 verbose #19713 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19714 >
00:04:46 verbose #19715 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 verbose #19716 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 verbose #19717 > │ ## as_slice │
00:04:46 verbose #19718 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #19719 >
00:04:46 verbose #19720 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 verbose #19721 > inl as_slice forall t. (x : array_base t) : rust.ref' (slice t) =
00:04:46 verbose #19722 > inl x = x |> to_vec
00:04:46 verbose #19723 > !\($'"!x.as_slice()"')
00:04:47 verbose #19724 > 00:04:46 debug #347 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6c8416b9458c2b9c58f930035f7d16bdebe68c7a7b8747f5526750f00df287f1/main.spi
00:04:47 verbose #19725 >
00:04:47 verbose #19726 > ╭─[ 263.03ms - stdout ]────────────────────────────────────────────────────────╮
00:04:47 verbose #19727 > │ () │
00:04:47 verbose #19728 > │ │
00:04:47 verbose #19729 > │ │
00:04:47 verbose #19730 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #19731 > [NbConvertApp] Converting notebook am'.dib.ipynb to html
00:04:48 verbose #19732 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:48 verbose #19733 > validate(nb)
00:04:49 verbose #19734 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:49 verbose #19735 > return _pygments_highlight(
00:04:50 verbose #19736 > [NbConvertApp] Writing 397905 bytes to am'.dib.html
00:04:50 debug #19737 execute_with_options_async / exit_code: 0 / output.Length: 94541
00:04:50 debug #15 main / executeCommand / exitCode: 0
00:04:50 debug #19738 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"sm'.dib\" -Retries 3"", None,
None)
00:04:51 verbose #19739 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: sm'.dib / _args: [
00:04:51 verbose #19740 > "-Retries",
00:04:51 verbose #19741 > 3
00:04:51 verbose #19742 > ]
00:04:53 verbose #19743 >
00:04:53 verbose #19744 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:53 verbose #19745 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:53 verbose #19746 > │ # sm' │
00:04:53 verbose #19747 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:53 verbose #19748 >
00:04:53 verbose #19749 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:53 verbose #19750 > // // test
00:04:53 verbose #19751 >
00:04:53 verbose #19752 > open testing
00:04:55 verbose #19753 > 00:04:55 debug #348 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:04:57 verbose #19754 >
00:04:57 verbose #19755 > ╭─[ 3.88s - stdout ]───────────────────────────────────────────────────────────╮
00:04:57 verbose #19756 > │ () │
00:04:57 verbose #19757 > │ │
00:04:57 verbose #19758 > │ │
00:04:57 verbose #19759 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 verbose #19760 >
00:04:57 verbose #19761 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 verbose #19762 > open rust_operators
00:04:57 verbose #19763 > 00:04:56 debug #349 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0/main.spi
00:04:57 verbose #19764 >
00:04:57 verbose #19765 > ╭─[ 273.97ms - stdout ]────────────────────────────────────────────────────────╮
00:04:57 verbose #19766 > │ () │
00:04:57 verbose #19767 > │ │
00:04:57 verbose #19768 > │ │
00:04:57 verbose #19769 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 verbose #19770 >
00:04:57 verbose #19771 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:57 verbose #19772 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:57 verbose #19773 > │ ## types │
00:04:57 verbose #19774 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 verbose #19775 >
00:04:57 verbose #19776 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 verbose #19777 > inl types () =
00:04:57 verbose #19778 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"str\")>]] type Str = class
00:04:57 verbose #19779 > end"
00:04:57 verbose #19780 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"base64::DecodeError\")>]]
00:04:57 verbose #19781 > type base64_DecodeError = class end"
00:04:57 verbose #19782 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"borsh::io::Error\")>]] type
00:04:57 verbose #19783 > borsh_io_Error = class end"
00:04:57 verbose #19784 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"js_sys::JsString\")>]] type
00:04:57 verbose #19785 > js_sys_JsString = class end"
00:04:57 verbose #19786 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"serde_json::Error\")>]] type
00:04:57 verbose #19787 > serde_json_Error = class end"
00:04:57 verbose #19788 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"serde_json::Value\")>]] type
00:04:57 verbose #19789 > serde_json_Value = class end"
00:04:57 verbose #19790 > global "[[<Fable.Core.Erase;
00:04:57 verbose #19791 > Fable.Core.Emit(\"serde_wasm_bindgen::Error\")>]] type serde_wasm_bindgen_Error
00:04:57 verbose #19792 > = class end"
00:04:57 verbose #19793 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::ffi::OsStr\")>]] type
00:04:57 verbose #19794 > std_ffi_OsStr = class end"
00:04:57 verbose #19795 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::ffi::OsString\")>]] type
00:04:57 verbose #19796 > std_ffi_OsString = class end"
00:04:57 verbose #19797 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::str::Utf8Error\")>]]
00:04:57 verbose #19798 > type std_str_Utf8Error = class end"
00:04:57 verbose #19799 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::string::String\")>]]
00:04:57 verbose #19800 > type std_string_String = class end"
00:04:57 verbose #19801 > 00:04:56 debug #350 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3b923c18fdf8789e140ac4bda437e92dedbc9cfe0ce81448be66c6330896bc24/main.spi
00:04:57 verbose #19802 >
00:04:57 verbose #19803 > ╭─[ 250.61ms - stdout ]────────────────────────────────────────────────────────╮
00:04:57 verbose #19804 > │ () │
00:04:57 verbose #19805 > │ │
00:04:57 verbose #19806 > │ │
00:04:57 verbose #19807 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 verbose #19808 >
00:04:57 verbose #19809 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 verbose #19810 > // // test
00:04:57 verbose #19811 >
00:04:57 verbose #19812 > inl types () =
00:04:57 verbose #19813 > rust.types ()
00:04:57 verbose #19814 > types ()
00:04:57 verbose #19815 > 00:04:57 debug #351 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eaeb4a5036b9671649a99437c6ece1e888f3d058817c9d15682c137e0d8c924a/main.spi
00:04:57 verbose #19816 >
00:04:57 verbose #19817 > ╭─[ 259.09ms - stdout ]────────────────────────────────────────────────────────╮
00:04:57 verbose #19818 > │ () │
00:04:57 verbose #19819 > │ │
00:04:57 verbose #19820 > │ │
00:04:57 verbose #19821 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 verbose #19822 >
00:04:57 verbose #19823 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 verbose #19824 > nominal base64_decode_error = $"base64_DecodeError"
00:04:57 verbose #19825 > nominal borsh_io_error = $"borsh_io_Error"
00:04:57 verbose #19826 > nominal utf8_error = $"std_str_Utf8Error"
00:04:57 verbose #19827 > nominal json_value = $"serde_json_Value"
00:04:57 verbose #19828 > nominal json_error = $"serde_json_Error"
00:04:57 verbose #19829 > nominal serde_wasm_bindgen_error = $"serde_wasm_bindgen_Error"
00:04:57 verbose #19830 > nominal js_string = $"js_sys_JsString"
00:04:57 verbose #19831 > nominal str = $"Str"
00:04:57 verbose #19832 > nominal os_str = $"std_ffi_OsStr"
00:04:57 verbose #19833 > nominal os_string = $"std_ffi_OsString"
00:04:57 verbose #19834 > nominal std_string = $"std_string_String"
00:04:58 verbose #19835 > 00:04:57 debug #352 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9fd6a53a38f2a1656dc059a6c777420a1d6fae7fdbc8478610bb0ab2447f886f/main.spi
00:04:58 verbose #19836 >
00:04:58 verbose #19837 > ╭─[ 252.53ms - stdout ]────────────────────────────────────────────────────────╮
00:04:58 verbose #19838 > │ () │
00:04:58 verbose #19839 > │ │
00:04:58 verbose #19840 > │ │
00:04:58 verbose #19841 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19842 >
00:04:58 verbose #19843 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:58 verbose #19844 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:58 verbose #19845 > │ ## contains │
00:04:58 verbose #19846 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19847 >
00:04:58 verbose #19848 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:58 verbose #19849 > inl contains (value : string) (s : string) : bool =
00:04:58 verbose #19850 > $"!s.Contains !value"
00:04:58 verbose #19851 > 00:04:57 debug #353 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0e76eb046d0d7c2475b4220a6e9b756c61849742a1ad42325bfc104b58808c74/main.spi
00:04:58 verbose #19852 >
00:04:58 verbose #19853 > ╭─[ 228.09ms - stdout ]────────────────────────────────────────────────────────╮
00:04:58 verbose #19854 > │ () │
00:04:58 verbose #19855 > │ │
00:04:58 verbose #19856 > │ │
00:04:58 verbose #19857 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19858 >
00:04:58 verbose #19859 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:58 verbose #19860 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:58 verbose #19861 > │ ## ends_with │
00:04:58 verbose #19862 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19863 >
00:04:58 verbose #19864 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:58 verbose #19865 > inl ends_with (value : string) (s : string) : bool =
00:04:58 verbose #19866 > $"!s.EndsWith !value"
00:04:58 verbose #19867 > 00:04:57 debug #354 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/22494880b37832d34864f39ab014e8b8638778ff64ad1abe4c927ef1a751f0f7/main.spi
00:04:58 verbose #19868 >
00:04:58 verbose #19869 > ╭─[ 254.59ms - stdout ]────────────────────────────────────────────────────────╮
00:04:58 verbose #19870 > │ () │
00:04:58 verbose #19871 > │ │
00:04:58 verbose #19872 > │ │
00:04:58 verbose #19873 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19874 >
00:04:58 verbose #19875 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:58 verbose #19876 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:58 verbose #19877 > │ ## pad_left │
00:04:58 verbose #19878 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19879 >
00:04:58 verbose #19880 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:58 verbose #19881 > inl pad_left (total_width : i32) (padding_char : char) (s : string) : string =
00:04:58 verbose #19882 > $"!s.PadLeft (!total_width, !padding_char)"
00:04:58 verbose #19883 > 00:04:58 debug #355 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/26c11e35390d086e5e2977546fd44771ad0c8d55c7814e351f5edbc38491907c/main.spi
00:04:58 verbose #19884 >
00:04:58 verbose #19885 > ╭─[ 255.81ms - stdout ]────────────────────────────────────────────────────────╮
00:04:58 verbose #19886 > │ () │
00:04:58 verbose #19887 > │ │
00:04:58 verbose #19888 > │ │
00:04:58 verbose #19889 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19890 >
00:04:58 verbose #19891 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:58 verbose #19892 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:58 verbose #19893 > │ ## pad_right │
00:04:58 verbose #19894 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #19895 >
00:04:58 verbose #19896 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:58 verbose #19897 > inl pad_right (pad : i32) (s : string) : string =
00:04:58 verbose #19898 > $"!s.PadRight !pad"
00:04:59 verbose #19899 > 00:04:58 debug #356 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/016fd839336a9d2045388d14ed8a3ef8a67fa670df7b115b1d4332f6d4ff2d12/main.spi
00:04:59 verbose #19900 >
00:04:59 verbose #19901 > ╭─[ 248.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:59 verbose #19902 > │ () │
00:04:59 verbose #19903 > │ │
00:04:59 verbose #19904 > │ │
00:04:59 verbose #19905 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19906 >
00:04:59 verbose #19907 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:59 verbose #19908 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:59 verbose #19909 > │ ## replace │
00:04:59 verbose #19910 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19911 >
00:04:59 verbose #19912 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:59 verbose #19913 > inl replace (old_value : string) (new_value : string) (s : string) : string =
00:04:59 verbose #19914 > $"!s.Replace (!old_value, !new_value)"
00:04:59 verbose #19915 > 00:04:58 debug #357 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a9dc0676a29f811c3488b9002ab88806a4cc27724a463454edd5ae5752d24900/main.spi
00:04:59 verbose #19916 >
00:04:59 verbose #19917 > ╭─[ 270.75ms - stdout ]────────────────────────────────────────────────────────╮
00:04:59 verbose #19918 > │ () │
00:04:59 verbose #19919 > │ │
00:04:59 verbose #19920 > │ │
00:04:59 verbose #19921 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19922 >
00:04:59 verbose #19923 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:59 verbose #19924 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:59 verbose #19925 > │ ## starts_with │
00:04:59 verbose #19926 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19927 >
00:04:59 verbose #19928 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:59 verbose #19929 > inl starts_with (value : string) (s : string) : bool =
00:04:59 verbose #19930 > $"!s.StartsWith !value"
00:04:59 verbose #19931 > 00:04:58 debug #358 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3f1752b9436b6ab9eb8015244d0cf3263de962ba0084b3ccbb9ad24800085d16/main.spi
00:04:59 verbose #19932 >
00:04:59 verbose #19933 > ╭─[ 267.76ms - stdout ]────────────────────────────────────────────────────────╮
00:04:59 verbose #19934 > │ () │
00:04:59 verbose #19935 > │ │
00:04:59 verbose #19936 > │ │
00:04:59 verbose #19937 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19938 >
00:04:59 verbose #19939 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:59 verbose #19940 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:59 verbose #19941 > │ ## substring │
00:04:59 verbose #19942 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19943 >
00:04:59 verbose #19944 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:59 verbose #19945 > inl substring (start : i32) (len : i32) (str : string) : string =
00:04:59 verbose #19946 > $"!str.Substring (!start, !len)"
00:04:59 verbose #19947 > 00:04:59 debug #359 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/35cf0ce09f55aa8f0492a4a3ded69cef1446530a1f6f295ca7ced4b8de698315/main.spi
00:04:59 verbose #19948 >
00:04:59 verbose #19949 > ╭─[ 248.85ms - stdout ]────────────────────────────────────────────────────────╮
00:04:59 verbose #19950 > │ () │
00:04:59 verbose #19951 > │ │
00:04:59 verbose #19952 > │ │
00:04:59 verbose #19953 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19954 >
00:04:59 verbose #19955 > ── markdown ────────────────────────────────────────────────────────────────────
00:04:59 verbose #19956 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:59 verbose #19957 > │ ## to_lower │
00:04:59 verbose #19958 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #19959 >
00:04:59 verbose #19960 > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:59 verbose #19961 > inl to_lower (input : string) : string =
00:04:59 verbose #19962 > $"!input.ToLower ()"
00:05:00 verbose #19963 > 00:04:59 debug #360 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2567ca395a90d555f517ba8f16071e917841b77124c0f0c789671c9169240a46/main.spi
00:05:00 verbose #19964 >
00:05:00 verbose #19965 > ╭─[ 244.49ms - stdout ]────────────────────────────────────────────────────────╮
00:05:00 verbose #19966 > │ () │
00:05:00 verbose #19967 > │ │
00:05:00 verbose #19968 > │ │
00:05:00 verbose #19969 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #19970 >
00:05:00 verbose #19971 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:00 verbose #19972 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:00 verbose #19973 > │ ## to_upper │
00:05:00 verbose #19974 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #19975 >
00:05:00 verbose #19976 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:00 verbose #19977 > inl to_upper (input : string) : string =
00:05:00 verbose #19978 > $"!input.ToUpper ()"
00:05:00 verbose #19979 > 00:04:59 debug #361 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a50c454501b30ab747cf787fbf78358ecb9a7abf26bd84ce2878fb309928082/main.spi
00:05:00 verbose #19980 >
00:05:00 verbose #19981 > ╭─[ 236.07ms - stdout ]────────────────────────────────────────────────────────╮
00:05:00 verbose #19982 > │ () │
00:05:00 verbose #19983 > │ │
00:05:00 verbose #19984 > │ │
00:05:00 verbose #19985 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #19986 >
00:05:00 verbose #19987 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:00 verbose #19988 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:00 verbose #19989 > │ ## trim │
00:05:00 verbose #19990 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #19991 >
00:05:00 verbose #19992 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:00 verbose #19993 > inl trim (input : string) : string =
00:05:00 verbose #19994 > $"!input.Trim ()"
00:05:00 verbose #19995 > 00:04:59 debug #362 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bb26cc1ee7a036efcb8209ea3813bb048cda62c8e43877183049089be2c507ef/main.spi
00:05:00 verbose #19996 >
00:05:00 verbose #19997 > ╭─[ 264.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:00 verbose #19998 > │ () │
00:05:00 verbose #19999 > │ │
00:05:00 verbose #20000 > │ │
00:05:00 verbose #20001 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #20002 >
00:05:00 verbose #20003 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:00 verbose #20004 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:00 verbose #20005 > │ ## trim_end │
00:05:00 verbose #20006 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #20007 >
00:05:00 verbose #20008 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:00 verbose #20009 > inl trim_end (trim_chars : array_base char) (input : string) : string =
00:05:00 verbose #20010 > $"!input.TrimEnd !trim_chars"
00:05:00 verbose #20011 > 00:05:00 debug #363 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/87b1179f0d15d85c91268a2caad03ecdf4183b6d42bd7442e8e1edf206599073/main.spi
00:05:00 verbose #20012 >
00:05:00 verbose #20013 > ╭─[ 243.21ms - stdout ]────────────────────────────────────────────────────────╮
00:05:00 verbose #20014 > │ () │
00:05:00 verbose #20015 > │ │
00:05:00 verbose #20016 > │ │
00:05:00 verbose #20017 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #20018 >
00:05:00 verbose #20019 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:00 verbose #20020 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:00 verbose #20021 > │ ## trim_start │
00:05:00 verbose #20022 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #20023 >
00:05:00 verbose #20024 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:00 verbose #20025 > inl trim_start (trim_chars : array_base char) (input : string) : string =
00:05:00 verbose #20026 > $"!input.TrimStart !trim_chars"
00:05:01 verbose #20027 > 00:05:00 debug #364 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/21d14611b7c29a5df901d192717f2fbbd802863c614c629220eb7d1c60478ac0/main.spi
00:05:01 verbose #20028 >
00:05:01 verbose #20029 > ╭─[ 276.94ms - stdout ]────────────────────────────────────────────────────────╮
00:05:01 verbose #20030 > │ () │
00:05:01 verbose #20031 > │ │
00:05:01 verbose #20032 > │ │
00:05:01 verbose #20033 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20034 >
00:05:01 verbose #20035 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:01 verbose #20036 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:01 verbose #20037 > │ ## slice │
00:05:01 verbose #20038 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20039 >
00:05:01 verbose #20040 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:01 verbose #20041 > inl slice from to s : string =
00:05:01 verbose #20042 > sm.slice s { from to }
00:05:01 verbose #20043 > 00:05:00 debug #365 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a8b4e6d24335db1d9752523f1e1c0af4eedb2e8c9766c2a217c68ca4580fad8/main.spi
00:05:01 verbose #20044 >
00:05:01 verbose #20045 > ╭─[ 232.27ms - stdout ]────────────────────────────────────────────────────────╮
00:05:01 verbose #20046 > │ () │
00:05:01 verbose #20047 > │ │
00:05:01 verbose #20048 > │ │
00:05:01 verbose #20049 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20050 >
00:05:01 verbose #20051 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:01 verbose #20052 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:01 verbose #20053 > │ ## raw_string_literal │
00:05:01 verbose #20054 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20055 >
00:05:01 verbose #20056 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:01 verbose #20057 > inl raw_string_literal (s : string) : rust.ref' str =
00:05:01 verbose #20058 > !\($"\"r#\\\"\" + !s + \"\\\"#\"")
00:05:01 verbose #20059 > 00:05:00 debug #366 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c462a6ce4d9c58cec1426bb478e253d6d809435b9e8cacd7d8793444eacb953d/main.spi
00:05:01 verbose #20060 >
00:05:01 verbose #20061 > ╭─[ 236.52ms - stdout ]────────────────────────────────────────────────────────╮
00:05:01 verbose #20062 > │ () │
00:05:01 verbose #20063 > │ │
00:05:01 verbose #20064 > │ │
00:05:01 verbose #20065 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20066 >
00:05:01 verbose #20067 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:01 verbose #20068 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:01 verbose #20069 > │ ## raw_string_literal_static │
00:05:01 verbose #20070 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20071 >
00:05:01 verbose #20072 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:01 verbose #20073 > inl raw_string_literal_static (s : string) : rust.static_ref' str =
00:05:01 verbose #20074 > !\($"\"r#\\\"\" + !s + \"\\\"#\"")
00:05:01 verbose #20075 > 00:05:01 debug #367 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8c743b15e092a434e5164f1402572eaf533d289cd79f856ab376b1b1b4b0c59c/main.spi
00:05:01 verbose #20076 >
00:05:01 verbose #20077 > ╭─[ 282.17ms - stdout ]────────────────────────────────────────────────────────╮
00:05:01 verbose #20078 > │ () │
00:05:01 verbose #20079 > │ │
00:05:01 verbose #20080 > │ │
00:05:01 verbose #20081 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20082 >
00:05:01 verbose #20083 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:01 verbose #20084 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:01 verbose #20085 > │ ## include_str │
00:05:01 verbose #20086 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #20087 >
00:05:01 verbose #20088 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:01 verbose #20089 > inl include_str (path : string) : rust.ref' str =
00:05:01 verbose #20090 > !\($'"include_str\!(\\\"" + !path + "\\\")"')
00:05:02 verbose #20091 > 00:05:01 debug #368 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/24d28215aa5cc5624955ef9aeea93c055ece271333c87297af651deff50037f8/main.spi
00:05:02 verbose #20092 >
00:05:02 verbose #20093 > ╭─[ 239.19ms - stdout ]────────────────────────────────────────────────────────╮
00:05:02 verbose #20094 > │ () │
00:05:02 verbose #20095 > │ │
00:05:02 verbose #20096 > │ │
00:05:02 verbose #20097 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #20098 >
00:05:02 verbose #20099 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:02 verbose #20100 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:02 verbose #20101 > │ ## as_str │
00:05:02 verbose #20102 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #20103 >
00:05:02 verbose #20104 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:02 verbose #20105 > inl as_str (s : string) : rust.ref' str =
00:05:02 verbose #20106 > !\\(s, $'"fable_library_rust::String_::LrcStr::as_str(&$0)"')
00:05:02 verbose #20107 > 00:05:01 debug #369 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/82877c7a6cb9acbc3c69363a603aead20a2883eac10dec5bf531ba8ac6c879a8/main.spi
00:05:02 verbose #20108 >
00:05:02 verbose #20109 > ╭─[ 278.54ms - stdout ]────────────────────────────────────────────────────────╮
00:05:02 verbose #20110 > │ () │
00:05:02 verbose #20111 > │ │
00:05:02 verbose #20112 > │ │
00:05:02 verbose #20113 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #20114 >
00:05:02 verbose #20115 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:02 verbose #20116 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:02 verbose #20117 > │ ## as_os_ref │
00:05:02 verbose #20118 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #20119 >
00:05:02 verbose #20120 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:02 verbose #20121 > inl as_os_ref (s : os_string) : rust.ref' os_str =
00:05:02 verbose #20122 > !\\(s, $'"$0.as_ref()"')
00:05:02 verbose #20123 > 00:05:02 debug #370 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/91f0604c39d66c6a5fa5fab3699de9905fdc86c9566a37486d9be3c45fcb520f/main.spi
00:05:02 verbose #20124 >
00:05:02 verbose #20125 > ╭─[ 253.28ms - stdout ]────────────────────────────────────────────────────────╮
00:05:02 verbose #20126 > │ () │
00:05:02 verbose #20127 > │ │
00:05:02 verbose #20128 > │ │
00:05:02 verbose #20129 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #20130 >
00:05:02 verbose #20131 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:02 verbose #20132 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:02 verbose #20133 > │ ## to_os_string │
00:05:02 verbose #20134 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #20135 >
00:05:02 verbose #20136 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:02 verbose #20137 > inl to_os_string (s : rust.ref' os_str) : os_string =
00:05:02 verbose #20138 > !\\(s, $'"$0.to_os_string()"')
00:05:02 verbose #20139 > 00:05:02 debug #371 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2e98d02eab7bd7a2165a98d5d55f8529cab473f0959a02889cb64b1df87ad921/main.spi
00:05:03 verbose #20140 >
00:05:03 verbose #20141 > ╭─[ 264.98ms - stdout ]────────────────────────────────────────────────────────╮
00:05:03 verbose #20142 > │ () │
00:05:03 verbose #20143 > │ │
00:05:03 verbose #20144 > │ │
00:05:03 verbose #20145 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20146 >
00:05:03 verbose #20147 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:03 verbose #20148 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:03 verbose #20149 > │ ## os_to_str │
00:05:03 verbose #20150 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20151 >
00:05:03 verbose #20152 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:03 verbose #20153 > inl os_to_str (s : os_string) : optionm'.option' (rust.ref' str) =
00:05:03 verbose #20154 > !\\(s, $'"$0.to_str()"')
00:05:03 verbose #20155 > 00:05:02 debug #372 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b0047ffdc5857d5799795bf49528303f7288d6c0984064b245cd2114a01d1628/main.spi
00:05:03 verbose #20156 >
00:05:03 verbose #20157 > ╭─[ 258.80ms - stdout ]────────────────────────────────────────────────────────╮
00:05:03 verbose #20158 > │ () │
00:05:03 verbose #20159 > │ │
00:05:03 verbose #20160 > │ │
00:05:03 verbose #20161 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20162 >
00:05:03 verbose #20163 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:03 verbose #20164 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:03 verbose #20165 > │ ## from_std_string │
00:05:03 verbose #20166 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20167 >
00:05:03 verbose #20168 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:03 verbose #20169 > inl from_std_string (str : std_string) : string =
00:05:03 verbose #20170 > !\\(str, $'"fable_library_rust::String_::fromString($0)"')
00:05:03 verbose #20171 > 00:05:02 debug #373 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/90e10d371112167211ebbcd8c609d313a7eddf4b6a2e60fae926bde6711c0675/main.spi
00:05:03 verbose #20172 >
00:05:03 verbose #20173 > ╭─[ 238.90ms - stdout ]────────────────────────────────────────────────────────╮
00:05:03 verbose #20174 > │ () │
00:05:03 verbose #20175 > │ │
00:05:03 verbose #20176 > │ │
00:05:03 verbose #20177 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20178 >
00:05:03 verbose #20179 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:03 verbose #20180 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:03 verbose #20181 > │ ## ref_to_std_string │
00:05:03 verbose #20182 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20183 >
00:05:03 verbose #20184 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:03 verbose #20185 > inl ref_to_std_string (str : rust.ref' str) : std_string =
00:05:03 verbose #20186 > !\\(str, $'"String::from($0)"')
00:05:03 verbose #20187 > 00:05:03 debug #374 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ad5feec77f8dae019dd4123f2fafeb2d07825753d34930694bfff4cd21d57883/main.spi
00:05:03 verbose #20188 >
00:05:03 verbose #20189 > ╭─[ 267.37ms - stdout ]────────────────────────────────────────────────────────╮
00:05:03 verbose #20190 > │ () │
00:05:03 verbose #20191 > │ │
00:05:03 verbose #20192 > │ │
00:05:03 verbose #20193 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20194 >
00:05:03 verbose #20195 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:03 verbose #20196 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:03 verbose #20197 > │ ## to_std_string │
00:05:03 verbose #20198 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #20199 >
00:05:03 verbose #20200 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:03 verbose #20201 > inl to_std_string (s : string) : std_string =
00:05:03 verbose #20202 > inl s = join s
00:05:03 verbose #20203 > s |> as_str |> ref_to_std_string
00:05:03 verbose #20204 > 00:05:03 debug #375 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a0e4879b9415be46bc12783771e09b2ff33829fbb82b2e1579bee54ae498f3f1/main.spi
00:05:04 verbose #20205 >
00:05:04 verbose #20206 > ╭─[ 253.38ms - stdout ]────────────────────────────────────────────────────────╮
00:05:04 verbose #20207 > │ () │
00:05:04 verbose #20208 > │ │
00:05:04 verbose #20209 > │ │
00:05:04 verbose #20210 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20211 >
00:05:04 verbose #20212 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:04 verbose #20213 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:04 verbose #20214 > │ ## as_str_std │
00:05:04 verbose #20215 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20216 >
00:05:04 verbose #20217 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:04 verbose #20218 > inl as_str_std (s : std_string) : rust.ref' str =
00:05:04 verbose #20219 > inl s = join s
00:05:04 verbose #20220 > !\($'"!s.as_str()"')
00:05:04 verbose #20221 > 00:05:03 debug #376 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/05fe9f4ff35bda48bc066c435caed26f645bc4d0b37c908a06af736bf4da0a5b/main.spi
00:05:04 verbose #20222 >
00:05:04 verbose #20223 > ╭─[ 278.27ms - stdout ]────────────────────────────────────────────────────────╮
00:05:04 verbose #20224 > │ () │
00:05:04 verbose #20225 > │ │
00:05:04 verbose #20226 > │ │
00:05:04 verbose #20227 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20228 >
00:05:04 verbose #20229 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:04 verbose #20230 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:04 verbose #20231 > │ ## into_boxed_str │
00:05:04 verbose #20232 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20233 >
00:05:04 verbose #20234 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:04 verbose #20235 > inl into_boxed_str (s : std_string) : rust.box str =
00:05:04 verbose #20236 > !\($'"!s.into_boxed_str()"')
00:05:04 verbose #20237 > 00:05:03 debug #377 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2cae40a55a0d6d5652bb680f433d5699e9939ef0a477e232b00b345d29fd9c8a/main.spi
00:05:04 verbose #20238 >
00:05:04 verbose #20239 > ╭─[ 256.87ms - stdout ]────────────────────────────────────────────────────────╮
00:05:04 verbose #20240 > │ () │
00:05:04 verbose #20241 > │ │
00:05:04 verbose #20242 > │ │
00:05:04 verbose #20243 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20244 >
00:05:04 verbose #20245 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:04 verbose #20246 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:04 verbose #20247 > │ ## format'' │
00:05:04 verbose #20248 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20249 >
00:05:04 verbose #20250 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:04 verbose #20251 > inl format'' (format : string) : std_string =
00:05:04 verbose #20252 > !\($'@@$"format\!(" + !format + ")"')
00:05:04 verbose #20253 > 00:05:04 debug #378 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6325a772252708ae31ca28d87e84669de0d9862f732a78b88f0a0909290a89d2/main.spi
00:05:04 verbose #20254 >
00:05:04 verbose #20255 > ╭─[ 287.29ms - stdout ]────────────────────────────────────────────────────────╮
00:05:04 verbose #20256 > │ () │
00:05:04 verbose #20257 > │ │
00:05:04 verbose #20258 > │ │
00:05:04 verbose #20259 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20260 >
00:05:04 verbose #20261 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:04 verbose #20262 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:04 verbose #20263 > │ ## format' │
00:05:04 verbose #20264 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #20265 >
00:05:04 verbose #20266 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:04 verbose #20267 > inl format' x : std_string =
00:05:04 verbose #20268 > !\\(x, $'@@$"format\!(""{{}}"", $0)"')
00:05:05 verbose #20269 > 00:05:04 debug #379 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/299a7d40e81dff3e5798da952529632d001437e3026c245cf40e71739a3c0ac0/main.spi
00:05:05 verbose #20270 >
00:05:05 verbose #20271 > ╭─[ 250.06ms - stdout ]────────────────────────────────────────────────────────╮
00:05:05 verbose #20272 > │ () │
00:05:05 verbose #20273 > │ │
00:05:05 verbose #20274 > │ │
00:05:05 verbose #20275 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20276 >
00:05:05 verbose #20277 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:05 verbose #20278 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:05 verbose #20279 > │ ## format_debug │
00:05:05 verbose #20280 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20281 >
00:05:05 verbose #20282 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:05 verbose #20283 > inl format_debug x : string =
00:05:05 verbose #20284 > $'$"%A{!x}"'
00:05:05 verbose #20285 > 00:05:04 debug #380 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6bb1ed0de76510e6862d22e7bcaee215a46dfd488a8df42d39e20c9a50701fb9/main.spi
00:05:05 verbose #20286 >
00:05:05 verbose #20287 > ╭─[ 219.29ms - stdout ]────────────────────────────────────────────────────────╮
00:05:05 verbose #20288 > │ () │
00:05:05 verbose #20289 > │ │
00:05:05 verbose #20290 > │ │
00:05:05 verbose #20291 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20292 >
00:05:05 verbose #20293 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:05 verbose #20294 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:05 verbose #20295 > │ ## format_debug' │
00:05:05 verbose #20296 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20297 >
00:05:05 verbose #20298 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:05 verbose #20299 > inl format_debug' x : std_string =
00:05:05 verbose #20300 > !\\(x, $'@@$"format\!(""{{:?}}"", $0)"')
00:05:05 verbose #20301 > 00:05:04 debug #381 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6e74ea673619edc1f500fca45b79839f6253231fbd0e6742f84c4b46fb4dd5d9/main.spi
00:05:05 verbose #20302 >
00:05:05 verbose #20303 > ╭─[ 235.27ms - stdout ]────────────────────────────────────────────────────────╮
00:05:05 verbose #20304 > │ () │
00:05:05 verbose #20305 > │ │
00:05:05 verbose #20306 > │ │
00:05:05 verbose #20307 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20308 >
00:05:05 verbose #20309 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:05 verbose #20310 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:05 verbose #20311 > │ ## format_pretty' │
00:05:05 verbose #20312 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20313 >
00:05:05 verbose #20314 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:05 verbose #20315 > inl format_pretty' x : std_string =
00:05:05 verbose #20316 > !\\(x, $'@@$"format\!(""{{:#?}}"", $0)"')
00:05:05 verbose #20317 > 00:05:05 debug #382 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/435b54ea26764e39b9bd8ba0056c88044b033dc7167814493025793aa15f0bff/main.spi
00:05:05 verbose #20318 >
00:05:05 verbose #20319 > ╭─[ 225.76ms - stdout ]────────────────────────────────────────────────────────╮
00:05:05 verbose #20320 > │ () │
00:05:05 verbose #20321 > │ │
00:05:05 verbose #20322 > │ │
00:05:05 verbose #20323 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20324 >
00:05:05 verbose #20325 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:05 verbose #20326 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:05 verbose #20327 > │ ## format_exception │
00:05:05 verbose #20328 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #20329 >
00:05:05 verbose #20330 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:05 verbose #20331 > inl format_exception (ex : exn) : string =
00:05:05 verbose #20332 > run_target function
00:05:05 verbose #20333 > | Fsharp (Native) => fun () => $'$"{!ex.GetType ()}: {!ex.Message}"'
00:05:05 verbose #20334 > | _ => fun () => ex |> format_debug
00:05:06 verbose #20335 > 00:05:05 debug #383 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/15a3c3b645acd40033e31ab2a30a0c7fe8a9ff15124ea726c44959e0ada8806f/main.spi
00:05:06 verbose #20336 >
00:05:06 verbose #20337 > ╭─[ 280.42ms - stdout ]────────────────────────────────────────────────────────╮
00:05:06 verbose #20338 > │ () │
00:05:06 verbose #20339 > │ │
00:05:06 verbose #20340 > │ │
00:05:06 verbose #20341 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 verbose #20342 >
00:05:06 verbose #20343 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:06 verbose #20344 > // // test
00:05:06 verbose #20345 >
00:05:06 verbose #20346 > fun () => failwith "test"
00:05:06 verbose #20347 > |> _throws
00:05:06 verbose #20348 > |> optionm.map sm'.format_exception
00:05:06 verbose #20349 > |> _assert_eq (Some "System.Exception: test")
00:05:06 verbose #20350 > 00:05:05 debug #384 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bcc0d724c415d4f6c23565d359eb38ffe617b2e5ea576ddec8f4ebf08a4c5fb8/main.spi
00:05:07 verbose #20351 >
00:05:07 verbose #20352 > ╭─[ 1.54s - stdout ]───────────────────────────────────────────────────────────╮
00:05:07 verbose #20353 > │ type [<Struct>] US0 = │
00:05:07 verbose #20354 > │ | US0_0 of f0_0 : exn │
00:05:07 verbose #20355 > │ | US0_1 │
00:05:07 verbose #20356 > │ and [<Struct>] US1 = │
00:05:07 verbose #20357 > │ | US1_0 of f0_0 : string │
00:05:07 verbose #20358 > │ | US1_1 │
00:05:07 verbose #20359 > │ let rec closure0 () () : unit = │
00:05:07 verbose #20360 > │ failwith<unit> "test" │
00:05:07 verbose #20361 > │ and closure1 () (v0 : exn) : US0 = │
00:05:07 verbose #20362 > │ US0_0(v0) │
00:05:07 verbose #20363 > │ and method1 (v0 : bool) : bool = │
00:05:07 verbose #20364 > │ v0 │
00:05:07 verbose #20365 > │ and method0 () : unit = │
00:05:07 verbose #20366 > │ let v0 : (unit -> unit) = closure0() │
00:05:07 verbose #20367 > │ let v1 : US0 = US0_1 │
00:05:07 verbose #20368 > │ let v2 : (exn -> US0) = closure1() │
00:05:07 verbose #20369 > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:05:07 verbose #20370 > │ let v17 : US1 = │
00:05:07 verbose #20371 > │ match v3 with │
00:05:07 verbose #20372 > │ | US0_1 -> (* None *) │
00:05:07 verbose #20373 > │ US1_1 │
00:05:07 verbose #20374 > │ | US0_0(v4) -> (* Some *) │
00:05:07 verbose #20375 > │ let v5 : string option = None │
00:05:07 verbose #20376 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:05:07 verbose #20377 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:07 verbose #20378 > │ let v7 : string = $"%A{v4}" │
00:05:07 verbose #20379 > │ v7 │
00:05:07 verbose #20380 > │ #endif │
00:05:07 verbose #20381 > │ #if FABLE_COMPILER_RUST && WASM │
00:05:07 verbose #20382 > │ let v8 : string = $"%A{v4}" │
00:05:07 verbose #20383 > │ v8 │
00:05:07 verbose #20384 > │ #endif │
00:05:07 verbose #20385 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:07 verbose #20386 > │ let v9 : string = $"%A{v4}" │
00:05:07 verbose #20387 > │ v9 │
00:05:07 verbose #20388 > │ #endif │
00:05:07 verbose #20389 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:07 verbose #20390 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:07 verbose #20391 > │ let v10 : string = $"{v4.GetType ()}: {v4.Message}" │
00:05:07 verbose #20392 > │ v10 │
00:05:07 verbose #20393 > │ #endif │
00:05:07 verbose #20394 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:07 verbose #20395 > │ let v11 : string = $"%A{v4}" │
00:05:07 verbose #20396 > │ v11 │
00:05:07 verbose #20397 > │ #endif │
00:05:07 verbose #20398 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:07 verbose #20399 > │ FABLE_COMPILER_DART │
00:05:07 verbose #20400 > │ let v12 : string = Unchecked.defaultof<string> │
00:05:07 verbose #20401 > │ v12 │
00:05:07 verbose #20402 > │ #endif │
00:05:07 verbose #20403 > │ |> fun x -> _v5 <- Some x │
00:05:07 verbose #20404 > │ let v13 : string = _v5.Value │
00:05:07 verbose #20405 > │ US1_0(v13) │
00:05:07 verbose #20406 > │ let v18 : string = $"%A{v17}" │
00:05:07 verbose #20407 > │ System.Console.WriteLine v18 │
00:05:07 verbose #20408 > │ let v23 : bool = │
00:05:07 verbose #20409 > │ match v17 with │
00:05:07 verbose #20410 > │ | US1_0(v21) -> (* Some *) │
00:05:07 verbose #20411 > │ let v22 : bool = v21 = "System.Exception: test" │
00:05:07 verbose #20412 > │ v22 │
00:05:07 verbose #20413 > │ | _ -> │
00:05:07 verbose #20414 > │ false │
00:05:07 verbose #20415 > │ let v25 : bool = │
00:05:07 verbose #20416 > │ if v23 then │
00:05:07 verbose #20417 > │ true │
00:05:07 verbose #20418 > │ else │
00:05:07 verbose #20419 > │ method1(v23) │
00:05:07 verbose #20420 > │ let v26 : string = "System.Exception: test" │
00:05:07 verbose #20421 > │ let v27 : US1 = US1_0(v26) │
00:05:07 verbose #20422 > │ let v28 : string = $"__expect / actual: %A{v17} / expected: %A{v27}" │
00:05:07 verbose #20423 > │ let v29 : bool = v25 = false │
00:05:07 verbose #20424 > │ if v29 then │
00:05:07 verbose #20425 > │ failwith<unit> v28 │
00:05:07 verbose #20426 > │ method0() │
00:05:07 verbose #20427 > │ │
00:05:07 verbose #20428 > │ US1_0 "System.Exception: test" │
00:05:07 verbose #20429 > │ │
00:05:07 verbose #20430 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 verbose #20431 >
00:05:07 verbose #20432 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:07 verbose #20433 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:07 verbose #20434 > │ ## obj_to_string │
00:05:07 verbose #20435 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 verbose #20436 >
00:05:07 verbose #20437 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 verbose #20438 > inl obj_to_string x : string =
00:05:07 verbose #20439 > x |> $'_.ToString()'
00:05:07 verbose #20440 > 00:05:07 debug #385 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c97caaad3b873324741566144836f640a194d3b147c4c43c90167176285529a5/main.spi
00:05:07 verbose #20441 >
00:05:07 verbose #20442 > ╭─[ 242.46ms - stdout ]────────────────────────────────────────────────────────╮
00:05:07 verbose #20443 > │ () │
00:05:07 verbose #20444 > │ │
00:05:07 verbose #20445 > │ │
00:05:07 verbose #20446 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 verbose #20447 >
00:05:07 verbose #20448 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:07 verbose #20449 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:07 verbose #20450 > │ ## to_string any │
00:05:07 verbose #20451 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 verbose #20452 >
00:05:07 verbose #20453 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 verbose #20454 > instance to_string any =
00:05:07 verbose #20455 > obj_to_string
00:05:08 verbose #20456 > 00:05:07 debug #386 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6d2f89fe6ef9ed2dbf96fdf37c56e69a11398080f476911b05f068538850945f/main.spi
00:05:08 verbose #20457 >
00:05:08 verbose #20458 > ╭─[ 251.60ms - stdout ]────────────────────────────────────────────────────────╮
00:05:08 verbose #20459 > │ () │
00:05:08 verbose #20460 > │ │
00:05:08 verbose #20461 > │ │
00:05:08 verbose #20462 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #20463 >
00:05:08 verbose #20464 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 verbose #20465 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 verbose #20466 > │ ## to_string result t u │
00:05:08 verbose #20467 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #20468 >
00:05:08 verbose #20469 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 verbose #20470 > instance to_string result t u = fun x =>
00:05:08 verbose #20471 > real
00:05:08 verbose #20472 > open rust
00:05:08 verbose #20473 > typecase (t * u) with
00:05:08 verbose #20474 > | string * string =>
00:05:08 verbose #20475 > match x with
00:05:08 verbose #20476 > | Ok x => x
00:05:08 verbose #20477 > | Error x => $'"sm\'.to_string result / Error: " + !x + ""' : string
00:05:08 verbose #20478 > | std_string * std_string =>
00:05:08 verbose #20479 > match x with
00:05:08 verbose #20480 > | Ok x => from_std_string x
00:05:08 verbose #20481 > | Error x => $'"sm\'.to_string result / Error: " + string !x + ""' :
00:05:08 verbose #20482 > string
00:05:08 verbose #20483 > | _ => obj_to_string `u x
00:05:08 verbose #20484 > 00:05:07 debug #387 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bc08022b35feb3e819172137cd5694034025b6b2f6c40e12c7016ad215b97edc/main.spi
00:05:08 verbose #20485 >
00:05:08 verbose #20486 > ╭─[ 247.57ms - stdout ]────────────────────────────────────────────────────────╮
00:05:08 verbose #20487 > │ () │
00:05:08 verbose #20488 > │ │
00:05:08 verbose #20489 > │ │
00:05:08 verbose #20490 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #20491 >
00:05:08 verbose #20492 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 verbose #20493 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 verbose #20494 > │ ## serialize │
00:05:08 verbose #20495 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #20496 >
00:05:08 verbose #20497 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 verbose #20498 > inl serialize forall t. (x : t) : resultm.result' std_string json_error =
00:05:08 verbose #20499 > !\($'"serde_json::to_string(&!x)"')
00:05:08 verbose #20500 > 00:05:08 debug #388 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cb9adfc19cbb127b95ded0819771562360d39d24b9c8214d5480f968640225f6/main.spi
00:05:08 verbose #20501 >
00:05:08 verbose #20502 > ╭─[ 321.89ms - stdout ]────────────────────────────────────────────────────────╮
00:05:08 verbose #20503 > │ () │
00:05:08 verbose #20504 > │ │
00:05:08 verbose #20505 > │ │
00:05:08 verbose #20506 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #20507 >
00:05:08 verbose #20508 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 verbose #20509 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 verbose #20510 > │ ## deserialize │
00:05:08 verbose #20511 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #20512 >
00:05:08 verbose #20513 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 verbose #20514 > inl deserialize forall t. (json : string) : resultm.result' t std_string =
00:05:08 verbose #20515 > inl json = join json
00:05:08 verbose #20516 > inl json = json |> as_str
00:05:08 verbose #20517 > !\($'"serde_json::from_str(&!json)"')
00:05:08 verbose #20518 > |> resultm.map_error' fun (x : json_error) => x |> format'
00:05:08 verbose #20519 > 00:05:08 debug #389 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/90744db5155b55b90ce2fae22668c143e8f6f8bbf68a5ea8e4f29191b3e3e79a/main.spi
00:05:09 verbose #20520 >
00:05:09 verbose #20521 > ╭─[ 273.94ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 verbose #20522 > │ () │
00:05:09 verbose #20523 > │ │
00:05:09 verbose #20524 > │ │
00:05:09 verbose #20525 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20526 >
00:05:09 verbose #20527 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 verbose #20528 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 verbose #20529 > │ ## borsh_deserialize │
00:05:09 verbose #20530 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20531 >
00:05:09 verbose #20532 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 verbose #20533 > inl borsh_deserialize forall t. (data : array_base u8) : resultm.result' t
00:05:09 verbose #20534 > std_string =
00:05:09 verbose #20535 > inl data = data |> am'.as_slice
00:05:09 verbose #20536 > !\($'"let mut !data = !data"')
00:05:09 verbose #20537 > inl result = !\($'"borsh::BorshDeserialize::deserialize(&mut !data)"')
00:05:09 verbose #20538 > result
00:05:09 verbose #20539 > |> resultm.map_error' fun (x : borsh_io_error) => x |> format'
00:05:09 verbose #20540 > 00:05:08 debug #390 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0183b626f584311c7d19557563ee4632cd884be5d51cc08b10412a5e4260590b/main.spi
00:05:09 verbose #20541 >
00:05:09 verbose #20542 > ╭─[ 216.57ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 verbose #20543 > │ () │
00:05:09 verbose #20544 > │ │
00:05:09 verbose #20545 > │ │
00:05:09 verbose #20546 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20547 >
00:05:09 verbose #20548 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 verbose #20549 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 verbose #20550 > │ ## deserialize_vec │
00:05:09 verbose #20551 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20552 >
00:05:09 verbose #20553 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 verbose #20554 > inl deserialize_vec (value : json_value) : resultm.result' (am'.vec u8)
00:05:09 verbose #20555 > std_string =
00:05:09 verbose #20556 > inl value = join value
00:05:09 verbose #20557 > !\($'"serde_json::from_value(!value)"')
00:05:09 verbose #20558 > |> resultm.map_error' fun (x : json_error) => x |> format'
00:05:09 verbose #20559 > 00:05:08 debug #391 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/343d858e01df6ff8ca574531783a0a92d2ac9c9d97651febd27c7f1ebd09cb8b/main.spi
00:05:09 verbose #20560 >
00:05:09 verbose #20561 > ╭─[ 265.86ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 verbose #20562 > │ () │
00:05:09 verbose #20563 > │ │
00:05:09 verbose #20564 > │ │
00:05:09 verbose #20565 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20566 >
00:05:09 verbose #20567 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 verbose #20568 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 verbose #20569 > │ ## encode_uri_component │
00:05:09 verbose #20570 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20571 >
00:05:09 verbose #20572 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 verbose #20573 > inl encode_uri_component (s : std_string) : js_string =
00:05:09 verbose #20574 > !\($'"js_sys::encode_uri_component(&!s)"')
00:05:09 verbose #20575 > 00:05:09 debug #392 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c335a2e052a8f3b1b52747df5919442c2e7961f763abb4fd0be18c043a0c620a/main.spi
00:05:09 verbose #20576 >
00:05:09 verbose #20577 > ╭─[ 244.14ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 verbose #20578 > │ () │
00:05:09 verbose #20579 > │ │
00:05:09 verbose #20580 > │ │
00:05:09 verbose #20581 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20582 >
00:05:09 verbose #20583 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 verbose #20584 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 verbose #20585 > │ ## strip_prefix │
00:05:09 verbose #20586 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #20587 >
00:05:09 verbose #20588 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 verbose #20589 > inl strip_prefix (prefix : char) (s : std_string) : optionm'.option' (rust.ref'
00:05:09 verbose #20590 > str) =
00:05:09 verbose #20591 > inl s = join s
00:05:09 verbose #20592 > !\($'"!s.strip_prefix(!prefix)"')
00:05:09 verbose #20593 > 00:05:09 debug #393 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0580b86d998d695f419058eef766db152f2a5135691944b4bf0a3ae9b17f1fd9/main.spi
00:05:10 verbose #20594 >
00:05:10 verbose #20595 > ╭─[ 272.39ms - stdout ]────────────────────────────────────────────────────────╮
00:05:10 verbose #20596 > │ () │
00:05:10 verbose #20597 > │ │
00:05:10 verbose #20598 > │ │
00:05:10 verbose #20599 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #20600 >
00:05:10 verbose #20601 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:10 verbose #20602 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:10 verbose #20603 > │ ## base64_decode │
00:05:10 verbose #20604 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #20605 >
00:05:10 verbose #20606 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 verbose #20607 > inl base64_decode (s : std_string) : result std_string std_string =
00:05:10 verbose #20608 > fun () =>
00:05:10 verbose #20609 > inl s = join s
00:05:10 verbose #20610 > inl bytes : resultm.result' (am'.vec u8) base64_decode_error =
00:05:10 verbose #20611 >
00:05:10 verbose #20612 > !\($'"base64::Engine::decode(&base64::engine::general_purpose::STANDARD, !s)"')
00:05:10 verbose #20613 > inl bytes =
00:05:10 verbose #20614 > bytes
00:05:10 verbose #20615 > |> resultm.map_error' format'
00:05:10 verbose #20616 > |> resultm.try'
00:05:10 verbose #20617 > inl result : resultm.result' std_string utf8_error =
00:05:10 verbose #20618 > !\($'"std::str::from_utf8(&!bytes).map(String::from)"')
00:05:10 verbose #20619 > result
00:05:10 verbose #20620 > |> resultm.map_error' format'
00:05:10 verbose #20621 > |> fun x =>
00:05:10 verbose #20622 > join x ()
00:05:10 verbose #20623 > |> resultm.unbox
00:05:10 verbose #20624 > 00:05:09 debug #394 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cc251cc097c7170a68da4b1a29bab87c8220c775f769a900e368918c4c54cdac/main.spi
00:05:10 verbose #20625 >
00:05:10 verbose #20626 > ╭─[ 246.46ms - stdout ]────────────────────────────────────────────────────────╮
00:05:10 verbose #20627 > │ () │
00:05:10 verbose #20628 > │ │
00:05:10 verbose #20629 > │ │
00:05:10 verbose #20630 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #20631 >
00:05:10 verbose #20632 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:10 verbose #20633 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:10 verbose #20634 > │ ## concat_array_trailing │
00:05:10 verbose #20635 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #20636 >
00:05:10 verbose #20637 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 verbose #20638 > inl concat_array_trailing (separator : string) (input : a i32 string) =
00:05:10 verbose #20639 > ("", input)
00:05:10 verbose #20640 > ||> am.fold fun acc (x : string) =>
00:05:10 verbose #20641 > $'!acc + !x + !separator + ""'
00:05:10 verbose #20642 > 00:05:09 debug #395 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/66d5a94b6d304b66d820be70f33250405d1748c9da4a12f746a5922e26232bdf/main.spi
00:05:10 verbose #20643 >
00:05:10 verbose #20644 > ╭─[ 222.35ms - stdout ]────────────────────────────────────────────────────────╮
00:05:10 verbose #20645 > │ () │
00:05:10 verbose #20646 > │ │
00:05:10 verbose #20647 > │ │
00:05:10 verbose #20648 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #20649 >
00:05:10 verbose #20650 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 verbose #20651 > // // test
00:05:10 verbose #20652 > // // rust=
00:05:10 verbose #20653 >
00:05:10 verbose #20654 > ;[[
00:05:10 verbose #20655 > "1"
00:05:10 verbose #20656 > "2"
00:05:10 verbose #20657 > "3"
00:05:10 verbose #20658 > ]]
00:05:10 verbose #20659 > |> fun x =>
00:05:10 verbose #20660 > inl code = (a x : _ i32 _) |> concat_array_trailing "\n"
00:05:10 verbose #20661 > code
00:05:10 verbose #20662 > |> _assert_eq "1\n2\n3\n"
00:05:10 verbose #20663 > 00:05:10 debug #396 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/389ec5fe451bef32b18095c521cb7d43a2fbc8ff0251cf595a6378c6990a181e/main.spi
00:05:16 verbose #20664 >
00:05:16 verbose #20665 > ╭─[ 6.11s - return value ]─────────────────────────────────────────────────────╮
00:05:16 verbose #20666 > │ .rs output: │
00:05:16 verbose #20667 > │ "1 │
00:05:16 verbose #20668 > │ 2 │
00:05:16 verbose #20669 > │ 3 │
00:05:16 verbose #20670 > │ " │
00:05:16 verbose #20671 > │ │
00:05:16 verbose #20672 > │ │
00:05:16 verbose #20673 > │ │
00:05:16 verbose #20674 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:16 verbose #20675 >
00:05:16 verbose #20676 > ╭─[ 6.12s - stdout ]───────────────────────────────────────────────────────────╮
00:05:16 verbose #20677 > │ .fsx: │
00:05:16 verbose #20678 > │ type Mut0 = {mutable l0 : int32; mutable l1 : string} │
00:05:16 verbose #20679 > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:05:16 verbose #20680 > │ let v2 : int32 = v1.l0 │
00:05:16 verbose #20681 > │ let v3 : bool = v2 < v0 │
00:05:16 verbose #20682 > │ v3 │
00:05:16 verbose #20683 > │ and method2 (v0 : bool) : bool = │
00:05:16 verbose #20684 > │ v0 │
00:05:16 verbose #20685 > │ and method0 () : unit = │
00:05:16 verbose #20686 > │ let v0 : string = "1" │
00:05:16 verbose #20687 > │ let v1 : string = "2" │
00:05:16 verbose #20688 > │ let v2 : string = "3" │
00:05:16 verbose #20689 > │ let v3 : (string []) = [|v0; v1; v2|] │
00:05:16 verbose #20690 > │ let v4 : int32 = v3.Length │
00:05:16 verbose #20691 > │ let v5 : string = "" │
00:05:16 verbose #20692 > │ let v6 : Mut0 = {l0 = 0; l1 = v5} : Mut0 │
00:05:16 verbose #20693 > │ while method1(v4, v6) do │
00:05:16 verbose #20694 > │ let v8 : int32 = v6.l0 │
00:05:16 verbose #20695 > │ let v9 : string = v6.l1 │
00:05:16 verbose #20696 > │ let v10 : string = v3.[int v8] │
00:05:16 verbose #20697 > │ let v11 : string = "\n" │
00:05:16 verbose #20698 > │ let v12 : string = v9 + v10 + v11 + "" │
00:05:16 verbose #20699 > │ let v13 : int32 = v8 + 1 │
00:05:16 verbose #20700 > │ v6.l0 <- v13 │
00:05:16 verbose #20701 > │ v6.l1 <- v12 │
00:05:16 verbose #20702 > │ () │
00:05:16 verbose #20703 > │ let v14 : string = v6.l1 │
00:05:16 verbose #20704 > │ let v15 : string = $"%A{v14}" │
00:05:16 verbose #20705 > │ System.Console.WriteLine v15 │
00:05:16 verbose #20706 > │ let v17 : bool = v14 = "1\n2\n3\n" │
00:05:16 verbose #20707 > │ let v19 : bool = │
00:05:16 verbose #20708 > │ if v17 then │
00:05:16 verbose #20709 > │ true │
00:05:16 verbose #20710 > │ else │
00:05:16 verbose #20711 > │ method2(v17) │
00:05:16 verbose #20712 > │ let v20 : string = "1\n2\n3\n" │
00:05:16 verbose #20713 > │ let v21 : string = $"__expect / actual: %A{v14} / expected: %A{v20}" │
00:05:16 verbose #20714 > │ let v22 : bool = v19 = false │
00:05:16 verbose #20715 > │ if v22 then │
00:05:16 verbose #20716 > │ failwith<unit> v21 │
00:05:16 verbose #20717 > │ method0() │
00:05:16 verbose #20718 > │ │
00:05:16 verbose #20719 > │ │
00:05:16 verbose #20720 > │ .rs: │
00:05:16 verbose #20721 > │ #![allow(dead_code)] │
00:05:16 verbose #20722 > │ #![allow(non_camel_case_types)] │
00:05:16 verbose #20723 > │ #![allow(non_snake_case)] │
00:05:16 verbose #20724 > │ #![allow(non_upper_case_globals)] │
00:05:16 verbose #20725 > │ #![allow(unreachable_code)] │
00:05:16 verbose #20726 > │ #![allow(unused_attributes)] │
00:05:16 verbose #20727 > │ #![allow(unused_imports)] │
00:05:16 verbose #20728 > │ #![allow(unused_macros)] │
00:05:16 verbose #20729 > │ #![allow(unused_parens)] │
00:05:16 verbose #20730 > │ #![allow(unused_variables)] │
00:05:16 verbose #20731 > │ mod module_ccfa04bf { │
00:05:16 verbose #20732 > │ pub mod Spiral_eval { │
00:05:16 verbose #20733 > │ use super::*; │
00:05:16 verbose #20734 > │ use fable_library_rust::NativeArray_::count; │
00:05:16 verbose #20735 > │ use fable_library_rust::NativeArray_::new_array; │
00:05:16 verbose #20736 > │ use fable_library_rust::NativeArray_::Array; │
00:05:16 verbose #20737 > │ use fable_library_rust::Native_::on_startup; │
00:05:16 verbose #20738 > │ use fable_library_rust::Native_::LrcPtr; │
00:05:16 verbose #20739 > │ use fable_library_rust::Native_::MutCell; │
00:05:16 verbose #20740 > │ use fable_library_rust::String_::append; │
00:05:16 verbose #20741 > │ use fable_library_rust::String_::printfn; │
00:05:16 verbose #20742 > │ use fable_library_rust::String_::sprintf; │
00:05:16 verbose #20743 > │ use fable_library_rust::String_::string; │
00:05:16 verbose #20744 > │ #[derive(Clone, Debug, Default, PartialEq, PartialOrd, Hash, Eq)] │
00:05:16 verbose #20745 > │ pub struct Mut0 { │
00:05:16 verbose #20746 > │ pub l0: MutCell<i32>, │
00:05:16 verbose #20747 > │ pub l1: MutCell<string>, │
00:05:16 verbose #20748 > │ } │
00:05:16 verbose #20749 > │ impl core::fmt::Display for Spiral_eval::Mut0 { │
00:05:16 verbose #20750 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:05:16 verbose #20751 > │ { │
00:05:16 verbose #20752 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:05:16 verbose #20753 > │ } │
00:05:16 verbose #20754 > │ } │
00:05:16 verbose #20755 > │ pub fn method1(v0: i32, v1: LrcPtr<Spiral_eval::Mut0>) -> bool { │
00:05:16 verbose #20756 > │ v1.l0.get().clone() < v0 │
00:05:16 verbose #20757 > │ } │
00:05:16 verbose #20758 > │ pub fn method2(v0: bool) -> bool { │
00:05:16 verbose #20759 > │ v0 │
00:05:16 verbose #20760 > │ } │
00:05:16 verbose #20761 > │ pub fn method0() { │
00:05:16 verbose #20762 > │ let v3: Array<string> = new_array(&[string("1"), string("2"), │
00:05:16 verbose #20763 > │ string("3")]); │
00:05:16 verbose #20764 > │ let v4: i32 = count(v3.clone()); │
00:05:16 verbose #20765 > │ let v6: LrcPtr<Spiral_eval::Mut0> = │
00:05:16 verbose #20766 > │ LrcPtr::new(Spiral_eval::Mut0 { │
00:05:16 verbose #20767 > │ l0: MutCell::new(0_i32), │
00:05:16 verbose #20768 > │ l1: MutCell::new(string("")), │
00:05:16 verbose #20769 > │ }); │
00:05:16 verbose #20770 > │ while Spiral_eval::method1(v4, v6.clone()) { │
00:05:16 verbose #20771 > │ let v8: i32 = v6.l0.get().clone(); │
00:05:16 verbose #20772 > │ let v12: string = append( │
00:05:16 verbose #20773 > │ append(append(v6.l1.get().clone(), v3[v8].clone()), │
00:05:16 verbose #20774 > │ string("\n")), │
00:05:16 verbose #20775 > │ string(""), │
00:05:16 verbose #20776 > │ ); │
00:05:16 verbose #20777 > │ let v13: i32 = v8 + 1_i32; │
00:05:16 verbose #20778 > │ v6.l0.set(v13); │
00:05:16 verbose #20779 > │ v6.l1.set(v12); │
00:05:16 verbose #20780 > │ () │
00:05:16 verbose #20781 > │ } │
00:05:16 verbose #20782 > │ { │
00:05:16 verbose #20783 > │ let v14: string = v6.l1.get().clone(); │
00:05:16 verbose #20784 > │ let v15: string = sprintf!("{:?}", v14.clone()); │
00:05:16 verbose #20785 > │ printfn!("{0}", v15); │
00:05:16 verbose #20786 > │ { │
00:05:16 verbose #20787 > │ let v17: bool = v14.clone() == string("1\n2\n3\n"); │
00:05:16 verbose #20788 > │ if (if v17 { true } else { Spiral_eval::method2(v17) }) │
00:05:16 verbose #20789 > │ == false { │
00:05:16 verbose #20790 > │ panic!( │
00:05:16 verbose #20791 > │ "{}", │
00:05:16 verbose #20792 > │ sprintf!( │
00:05:16 verbose #20793 > │ "__expect / actual: {:?} / expected: {:?}", │
00:05:16 verbose #20794 > │ v14, │
00:05:16 verbose #20795 > │ string("1\n2\n3\n") │
00:05:16 verbose #20796 > │ ), │
00:05:16 verbose #20797 > │ ); │
00:05:16 verbose #20798 > │ } │
00:05:16 verbose #20799 > │ } │
00:05:16 verbose #20800 > │ } │
00:05:16 verbose #20801 > │ } │
00:05:16 verbose #20802 > │ on_startup!(Spiral_eval::method0()); │
00:05:16 verbose #20803 > │ } │
00:05:16 verbose #20804 > │ } │
00:05:16 verbose #20805 > │ pub use module_ccfa04bf::*; │
00:05:16 verbose #20806 > │ │
00:05:16 verbose #20807 > │ │
00:05:16 verbose #20808 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:16 verbose #20809 >
00:05:16 verbose #20810 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:16 verbose #20811 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:16 verbose #20812 > │ ## concat_list_trailing │
00:05:16 verbose #20813 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:16 verbose #20814 >
00:05:16 verbose #20815 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:16 verbose #20816 > inl concat_list_trailing separator input =
00:05:16 verbose #20817 > ("", input)
00:05:16 verbose #20818 > ||> listm.fold fun acc (x : string) =>
00:05:16 verbose #20819 > $'!acc + !x + !separator + ""'
00:05:16 verbose #20820 > 00:05:16 debug #397 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a34bef72386060220f239e5fb2408bad15637d22831b498eb7c53fca5d38b748/main.spi
00:05:16 verbose #20821 >
00:05:16 verbose #20822 > ╭─[ 244.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:16 verbose #20823 > │ () │
00:05:16 verbose #20824 > │ │
00:05:16 verbose #20825 > │ │
00:05:16 verbose #20826 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:16 verbose #20827 >
00:05:16 verbose #20828 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:16 verbose #20829 > // // test
00:05:16 verbose #20830 > // // rust=
00:05:16 verbose #20831 >
00:05:16 verbose #20832 > [[
00:05:16 verbose #20833 > "1"
00:05:16 verbose #20834 > "2"
00:05:16 verbose #20835 > "3"
00:05:16 verbose #20836 > ]]
00:05:16 verbose #20837 > |> fun x =>
00:05:16 verbose #20838 > inl code = (x : _) |> concat_list_trailing "\n"
00:05:16 verbose #20839 > code
00:05:16 verbose #20840 > |> _assert_eq "1\n2\n3\n"
00:05:17 verbose #20841 > 00:05:16 debug #398 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4ebe6897505e23b2f1b5a97bfcd024f3c7434bdf7165b44bc9b6ebb69b0f94eb/main.spi
00:05:21 verbose #20842 >
00:05:21 verbose #20843 > ╭─[ 4.95s - return value ]─────────────────────────────────────────────────────╮
00:05:21 verbose #20844 > │ .rs output: │
00:05:21 verbose #20845 > │ "1 │
00:05:21 verbose #20846 > │ 2 │
00:05:21 verbose #20847 > │ 3 │
00:05:21 verbose #20848 > │ " │
00:05:21 verbose #20849 > │ │
00:05:21 verbose #20850 > │ │
00:05:21 verbose #20851 > │ │
00:05:21 verbose #20852 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 verbose #20853 >
00:05:21 verbose #20854 > ╭─[ 4.96s - stdout ]───────────────────────────────────────────────────────────╮
00:05:21 verbose #20855 > │ .fsx: │
00:05:21 verbose #20856 > │ let rec method1 (v0 : bool) : bool = │
00:05:21 verbose #20857 > │ v0 │
00:05:21 verbose #20858 > │ and method0 () : unit = │
00:05:21 verbose #20859 > │ let v0 : string = "" │
00:05:21 verbose #20860 > │ let v1 : string = "1" │
00:05:21 verbose #20861 > │ let v2 : string = "\n" │
00:05:21 verbose #20862 > │ let v3 : string = v0 + v1 + v2 + "" │
00:05:21 verbose #20863 > │ let v4 : string = "2" │
00:05:21 verbose #20864 > │ let v5 : string = v3 + v4 + v2 + "" │
00:05:21 verbose #20865 > │ let v6 : string = "3" │
00:05:21 verbose #20866 > │ let v7 : string = v5 + v6 + v2 + "" │
00:05:21 verbose #20867 > │ let v8 : string = $"%A{v7}" │
00:05:21 verbose #20868 > │ System.Console.WriteLine v8 │
00:05:21 verbose #20869 > │ let v10 : bool = v7 = "1\n2\n3\n" │
00:05:21 verbose #20870 > │ let v12 : bool = │
00:05:21 verbose #20871 > │ if v10 then │
00:05:21 verbose #20872 > │ true │
00:05:21 verbose #20873 > │ else │
00:05:21 verbose #20874 > │ method1(v10) │
00:05:21 verbose #20875 > │ let v13 : string = "1\n2\n3\n" │
00:05:21 verbose #20876 > │ let v14 : string = $"__expect / actual: %A{v7} / expected: %A{v13}" │
00:05:21 verbose #20877 > │ let v15 : bool = v12 = false │
00:05:21 verbose #20878 > │ if v15 then │
00:05:21 verbose #20879 > │ failwith<unit> v14 │
00:05:21 verbose #20880 > │ method0() │
00:05:21 verbose #20881 > │ │
00:05:21 verbose #20882 > │ │
00:05:21 verbose #20883 > │ .rs: │
00:05:21 verbose #20884 > │ #![allow(dead_code)] │
00:05:21 verbose #20885 > │ #![allow(non_camel_case_types)] │
00:05:21 verbose #20886 > │ #![allow(non_snake_case)] │
00:05:21 verbose #20887 > │ #![allow(non_upper_case_globals)] │
00:05:21 verbose #20888 > │ #![allow(unreachable_code)] │
00:05:21 verbose #20889 > │ #![allow(unused_attributes)] │
00:05:21 verbose #20890 > │ #![allow(unused_imports)] │
00:05:21 verbose #20891 > │ #![allow(unused_macros)] │
00:05:21 verbose #20892 > │ #![allow(unused_parens)] │
00:05:21 verbose #20893 > │ #![allow(unused_variables)] │
00:05:21 verbose #20894 > │ mod module_ccfa04bf { │
00:05:21 verbose #20895 > │ pub mod Spiral_eval { │
00:05:21 verbose #20896 > │ use super::*; │
00:05:21 verbose #20897 > │ use fable_library_rust::Native_::on_startup; │
00:05:21 verbose #20898 > │ use fable_library_rust::String_::printfn; │
00:05:21 verbose #20899 > │ use fable_library_rust::String_::sprintf; │
00:05:21 verbose #20900 > │ use fable_library_rust::String_::string; │
00:05:21 verbose #20901 > │ pub fn method1(v0: bool) -> bool { │
00:05:21 verbose #20902 > │ v0 │
00:05:21 verbose #20903 > │ } │
00:05:21 verbose #20904 > │ pub fn method0() { │
00:05:21 verbose #20905 > │ let v7: string = string("1\n2\n3\n"); │
00:05:21 verbose #20906 > │ let v8: string = sprintf!("{:?}", v7.clone()); │
00:05:21 verbose #20907 > │ printfn!("{0}", v8); │
00:05:21 verbose #20908 > │ { │
00:05:21 verbose #20909 > │ let v10: bool = v7.clone() == string("1\n2\n3\n"); │
00:05:21 verbose #20910 > │ if (if v10 { true } else { Spiral_eval::method1(v10) }) == │
00:05:21 verbose #20911 > │ false { │
00:05:21 verbose #20912 > │ panic!( │
00:05:21 verbose #20913 > │ "{}", │
00:05:21 verbose #20914 > │ sprintf!( │
00:05:21 verbose #20915 > │ "__expect / actual: {:?} / expected: {:?}", │
00:05:21 verbose #20916 > │ v7, │
00:05:21 verbose #20917 > │ string("1\n2\n3\n") │
00:05:21 verbose #20918 > │ ), │
00:05:21 verbose #20919 > │ ); │
00:05:21 verbose #20920 > │ } │
00:05:21 verbose #20921 > │ } │
00:05:21 verbose #20922 > │ } │
00:05:21 verbose #20923 > │ on_startup!(Spiral_eval::method0()); │
00:05:21 verbose #20924 > │ } │
00:05:21 verbose #20925 > │ } │
00:05:21 verbose #20926 > │ pub use module_ccfa04bf::*; │
00:05:21 verbose #20927 > │ │
00:05:21 verbose #20928 > │ │
00:05:21 verbose #20929 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 verbose #20930 >
00:05:21 verbose #20931 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:21 verbose #20932 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:21 verbose #20933 > │ ## concat_list_heap_trailing │
00:05:21 verbose #20934 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 verbose #20935 >
00:05:21 verbose #20936 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:21 verbose #20937 > inl concat_list_heap_trailing separator input =
00:05:21 verbose #20938 > inl separator = join separator
00:05:21 verbose #20939 > inl separator = separator |> as_str
00:05:21 verbose #20940 > ("", input)
00:05:21 verbose #20941 > ||> listm.fold fun acc (x : string) =>
00:05:21 verbose #20942 > inl acc = acc |> to_std_string
00:05:21 verbose #20943 > inl x = x |> as_str
00:05:21 verbose #20944 > $'$"{!acc}{!x}{!separator}"'
00:05:22 verbose #20945 > 00:05:21 debug #399 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6e26897c83dbfb8d06b0d40a4c1e961ac51f829599db48965574335113ed333a/main.spi
00:05:22 verbose #20946 >
00:05:22 verbose #20947 > ╭─[ 235.29ms - stdout ]────────────────────────────────────────────────────────╮
00:05:22 verbose #20948 > │ () │
00:05:22 verbose #20949 > │ │
00:05:22 verbose #20950 > │ │
00:05:22 verbose #20951 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 verbose #20952 >
00:05:22 verbose #20953 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:22 verbose #20954 > // // test
00:05:22 verbose #20955 > // // rust=
00:05:22 verbose #20956 >
00:05:22 verbose #20957 > types ()
00:05:22 verbose #20958 >
00:05:22 verbose #20959 > [[
00:05:22 verbose #20960 > "1"
00:05:22 verbose #20961 > "2"
00:05:22 verbose #20962 > "3"
00:05:22 verbose #20963 > ]]
00:05:22 verbose #20964 > |> fun x =>
00:05:22 verbose #20965 > inl code = (x : _) |> concat_list_heap_trailing "\n"
00:05:22 verbose #20966 > code
00:05:22 verbose #20967 > |> _assert_eq "1\n2\n3\n"
00:05:22 verbose #20968 > 00:05:21 debug #400 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/be3d5fa205c46b2969125988b6ca2c460cd5f28ad8d37260d6c5f04c044c4c56/main.spi
00:05:27 verbose #20969 >
00:05:27 verbose #20970 > ╭─[ 5.28s - return value ]─────────────────────────────────────────────────────╮
00:05:27 verbose #20971 > │ .rs output: │
00:05:27 verbose #20972 > │ "1 │
00:05:27 verbose #20973 > │ 2 │
00:05:27 verbose #20974 > │ 3 │
00:05:27 verbose #20975 > │ " │
00:05:27 verbose #20976 > │ │
00:05:27 verbose #20977 > │ │
00:05:27 verbose #20978 > │ │
00:05:27 verbose #20979 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 verbose #20980 >
00:05:27 verbose #20981 > ╭─[ 5.29s - stdout ]───────────────────────────────────────────────────────────╮
00:05:27 verbose #20982 > │ .fsx: │
00:05:27 verbose #20983 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:05:27 verbose #20984 > │ end │
00:05:27 verbose #20985 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:05:27 verbose #20986 > │ class end │
00:05:27 verbose #20987 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:05:27 verbose #20988 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:05:27 verbose #20989 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:05:27 verbose #20990 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:05:27 verbose #20991 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:05:27 verbose #20992 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:05:27 verbose #20993 > │ class end │
00:05:27 verbose #20994 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:05:27 verbose #20995 > │ end │
00:05:27 verbose #20996 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:05:27 verbose #20997 > │ class end │
00:05:27 verbose #20998 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:05:27 verbose #20999 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:05:27 verbose #21000 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:05:27 verbose #21001 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:05:27 verbose #21002 > │ class end │
00:05:27 verbose #21003 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:05:27 verbose #21004 > │ class end │
00:05:27 verbose #21005 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:05:27 verbose #21006 > │ class end │
00:05:27 verbose #21007 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:05:27 verbose #21008 > │ std_cell_RefCell<'T> = class end │
00:05:27 verbose #21009 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:05:27 verbose #21010 > │ std_pin_Pin<'T> = class end │
00:05:27 verbose #21011 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:05:27 verbose #21012 > │ = class end │
00:05:27 verbose #21013 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:05:27 verbose #21014 > │ std_rc_Weak<'T> = class end │
00:05:27 verbose #21015 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:05:27 verbose #21016 > │ std_sync_Arc<'T> = class end │
00:05:27 verbose #21017 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:05:27 verbose #21018 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:05:27 verbose #21019 > │ base64_DecodeError = class end │
00:05:27 verbose #21020 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:05:27 verbose #21021 > │ borsh_io_Error = class end │
00:05:27 verbose #21022 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:05:27 verbose #21023 > │ js_sys_JsString = class end │
00:05:27 verbose #21024 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:05:27 verbose #21025 > │ serde_json_Error = class end │
00:05:27 verbose #21026 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:05:27 verbose #21027 > │ serde_json_Value = class end │
00:05:27 verbose #21028 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:05:27 verbose #21029 > │ serde_wasm_bindgen_Error = class end │
00:05:27 verbose #21030 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:05:27 verbose #21031 > │ = class end │
00:05:27 verbose #21032 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:05:27 verbose #21033 > │ std_ffi_OsString = class end │
00:05:27 verbose #21034 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:05:27 verbose #21035 > │ std_str_Utf8Error = class end │
00:05:27 verbose #21036 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:05:27 verbose #21037 > │ std_string_String = class end │
00:05:27 verbose #21038 > │ let rec method1 () : string = │
00:05:27 verbose #21039 > │ let v0 : string = "\n" │
00:05:27 verbose #21040 > │ v0 │
00:05:27 verbose #21041 > │ and method2 () : string = │
00:05:27 verbose #21042 > │ let v0 : string = "" │
00:05:27 verbose #21043 > │ v0 │
00:05:27 verbose #21044 > │ and method3 (v0 : string) : string = │
00:05:27 verbose #21045 > │ v0 │
00:05:27 verbose #21046 > │ and method4 (v0 : bool) : bool = │
00:05:27 verbose #21047 > │ v0 │
00:05:27 verbose #21048 > │ and method0 () : unit = │
00:05:27 verbose #21049 > │ let v0 : string = method1() │
00:05:27 verbose #21050 > │ let v1 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21051 > │ let v2 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:05:27 verbose #21052 > │ let v3 : string = method2() │
00:05:27 verbose #21053 > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21054 > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:05:27 verbose #21055 > │ let v6 : string = "String::from($0)" │
00:05:27 verbose #21056 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:05:27 verbose #21057 > │ let v8 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21058 > │ let v9 : string = "1" │
00:05:27 verbose #21059 > │ let v10 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v8 │
00:05:27 verbose #21060 > │ let v11 : string = $"{v7}{v10}{v2}" │
00:05:27 verbose #21061 > │ let v12 : string = method3(v11) │
00:05:27 verbose #21062 > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21063 > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:05:27 verbose #21064 > │ let v15 : string = "String::from($0)" │
00:05:27 verbose #21065 > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:05:27 verbose #21066 > │ v15 │
00:05:27 verbose #21067 > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21068 > │ let v18 : string = "2" │
00:05:27 verbose #21069 > │ let v19 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v18 v17 │
00:05:27 verbose #21070 > │ let v20 : string = $"{v16}{v19}{v2}" │
00:05:27 verbose #21071 > │ let v21 : string = method3(v20) │
00:05:27 verbose #21072 > │ let v22 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21073 > │ let v23 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:05:27 verbose #21074 > │ let v24 : string = "String::from($0)" │
00:05:27 verbose #21075 > │ let v25 : std_string_String = Fable.Core.RustInterop.emitRustExpr v23 │
00:05:27 verbose #21076 > │ v24 │
00:05:27 verbose #21077 > │ let v26 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:27 verbose #21078 > │ let v27 : string = "3" │
00:05:27 verbose #21079 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v27 v26 │
00:05:27 verbose #21080 > │ let v29 : string = $"{v25}{v28}{v2}" │
00:05:27 verbose #21081 > │ let v30 : string = $"%A{v29}" │
00:05:27 verbose #21082 > │ System.Console.WriteLine v30 │
00:05:27 verbose #21083 > │ let v32 : bool = v29 = "1\n2\n3\n" │
00:05:27 verbose #21084 > │ let v34 : bool = │
00:05:27 verbose #21085 > │ if v32 then │
00:05:27 verbose #21086 > │ true │
00:05:27 verbose #21087 > │ else │
00:05:27 verbose #21088 > │ method4(v32) │
00:05:27 verbose #21089 > │ let v35 : string = "1\n2\n3\n" │
00:05:27 verbose #21090 > │ let v36 : string = $"__expect / actual: %A{v29} / expected: %A{v35}" │
00:05:27 verbose #21091 > │ let v37 : bool = v34 = false │
00:05:27 verbose #21092 > │ if v37 then │
00:05:27 verbose #21093 > │ failwith<unit> v36 │
00:05:27 verbose #21094 > │ method0() │
00:05:27 verbose #21095 > │ │
00:05:27 verbose #21096 > │ │
00:05:27 verbose #21097 > │ .rs: │
00:05:27 verbose #21098 > │ #![allow(dead_code)] │
00:05:27 verbose #21099 > │ #![allow(non_camel_case_types)] │
00:05:27 verbose #21100 > │ #![allow(non_snake_case)] │
00:05:27 verbose #21101 > │ #![allow(non_upper_case_globals)] │
00:05:27 verbose #21102 > │ #![allow(unreachable_code)] │
00:05:27 verbose #21103 > │ #![allow(unused_attributes)] │
00:05:27 verbose #21104 > │ #![allow(unused_imports)] │
00:05:27 verbose #21105 > │ #![allow(unused_macros)] │
00:05:27 verbose #21106 > │ #![allow(unused_parens)] │
00:05:27 verbose #21107 > │ #![allow(unused_variables)] │
00:05:27 verbose #21108 > │ mod module_ccfa04bf { │
00:05:27 verbose #21109 > │ pub mod Spiral_eval { │
00:05:27 verbose #21110 > │ use super::*; │
00:05:27 verbose #21111 > │ use fable_library_rust::Native_::on_startup; │
00:05:27 verbose #21112 > │ use fable_library_rust::String_::printfn; │
00:05:27 verbose #21113 > │ use fable_library_rust::String_::sprintf; │
00:05:27 verbose #21114 > │ use fable_library_rust::String_::string; │
00:05:27 verbose #21115 > │ pub fn method1() -> string { │
00:05:27 verbose #21116 > │ string("\n") │
00:05:27 verbose #21117 > │ } │
00:05:27 verbose #21118 > │ pub fn method2() -> string { │
00:05:27 verbose #21119 > │ string("") │
00:05:27 verbose #21120 > │ } │
00:05:27 verbose #21121 > │ pub fn method3(v0: string) -> string { │
00:05:27 verbose #21122 > │ v0 │
00:05:27 verbose #21123 > │ } │
00:05:27 verbose #21124 > │ pub fn method4(v0: bool) -> bool { │
00:05:27 verbose #21125 > │ v0 │
00:05:27 verbose #21126 > │ } │
00:05:27 verbose #21127 > │ pub fn method0() { │
00:05:27 verbose #21128 > │ let v0: string = Spiral_eval::method1(); │
00:05:27 verbose #21129 > │ let v2: &str = fable_library_rust::String_::LrcStr::as_str(&v0); │
00:05:27 verbose #21130 > │ let v3: string = Spiral_eval::method2(); │
00:05:27 verbose #21131 > │ let v5: &str = fable_library_rust::String_::LrcStr::as_str(&v3); │
00:05:27 verbose #21132 > │ let v12: string = Spiral_eval::method3(sprintf!( │
00:05:27 verbose #21133 > │ "{}{}{}", │
00:05:27 verbose #21134 > │ String::from(v5), │
00:05:27 verbose #21135 > │ fable_library_rust::String_::LrcStr::as_str(&string("1")), │
00:05:27 verbose #21136 > │ v2.clone() │
00:05:27 verbose #21137 > │ )); │
00:05:27 verbose #21138 > │ let v14: &str = │
00:05:27 verbose #21139 > │ fable_library_rust::String_::LrcStr::as_str(&v12); │
00:05:27 verbose #21140 > │ let v21: string = Spiral_eval::method3(sprintf!( │
00:05:27 verbose #21141 > │ "{}{}{}", │
00:05:27 verbose #21142 > │ String::from(v14), │
00:05:27 verbose #21143 > │ fable_library_rust::String_::LrcStr::as_str(&string("2")), │
00:05:27 verbose #21144 > │ v2.clone() │
00:05:27 verbose #21145 > │ )); │
00:05:27 verbose #21146 > │ let v23: &str = │
00:05:27 verbose #21147 > │ fable_library_rust::String_::LrcStr::as_str(&v21); │
00:05:27 verbose #21148 > │ let v29: string = sprintf!( │
00:05:27 verbose #21149 > │ "{}{}{}", │
00:05:27 verbose #21150 > │ String::from(v23), │
00:05:27 verbose #21151 > │ fable_library_rust::String_::LrcStr::as_str(&string("3")), │
00:05:27 verbose #21152 > │ v2 │
00:05:27 verbose #21153 > │ ); │
00:05:27 verbose #21154 > │ let v30: string = sprintf!("{:?}", v29.clone()); │
00:05:27 verbose #21155 > │ printfn!("{0}", v30); │
00:05:27 verbose #21156 > │ { │
00:05:27 verbose #21157 > │ let v32: bool = v29.clone() == string("1\n2\n3\n"); │
00:05:27 verbose #21158 > │ if (if v32 { true } else { Spiral_eval::method4(v32) }) == │
00:05:27 verbose #21159 > │ false { │
00:05:27 verbose #21160 > │ panic!( │
00:05:27 verbose #21161 > │ "{}", │
00:05:27 verbose #21162 > │ sprintf!( │
00:05:27 verbose #21163 > │ "__expect / actual: {:?} / expected: {:?}", │
00:05:27 verbose #21164 > │ v29, │
00:05:27 verbose #21165 > │ string("1\n2\n3\n") │
00:05:27 verbose #21166 > │ ), │
00:05:27 verbose #21167 > │ ); │
00:05:27 verbose #21168 > │ } │
00:05:27 verbose #21169 > │ } │
00:05:27 verbose #21170 > │ } │
00:05:27 verbose #21171 > │ on_startup!(Spiral_eval::method0()); │
00:05:27 verbose #21172 > │ } │
00:05:27 verbose #21173 > │ } │
00:05:27 verbose #21174 > │ pub use module_ccfa04bf::*; │
00:05:27 verbose #21175 > │ │
00:05:27 verbose #21176 > │ │
00:05:27 verbose #21177 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 verbose #21178 >
00:05:27 verbose #21179 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 verbose #21180 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 verbose #21181 > │ ## concat │
00:05:27 verbose #21182 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 verbose #21183 >
00:05:27 verbose #21184 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 verbose #21185 > inl concat (a : string) (b : seq.seq' _) : string =
00:05:27 verbose #21186 > inl a = join a
00:05:27 verbose #21187 > b |> $"String.concat" a
00:05:27 verbose #21188 > 00:05:27 debug #401 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/86a7cca0b671dc09998b055c2fed77675a814fb4be108372105c624db8335f57/main.spi
00:05:27 verbose #21189 >
00:05:27 verbose #21190 > ╭─[ 213.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:27 verbose #21191 > │ () │
00:05:27 verbose #21192 > │ │
00:05:27 verbose #21193 > │ │
00:05:27 verbose #21194 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 verbose #21195 >
00:05:27 verbose #21196 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 verbose #21197 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 verbose #21198 > │ ## ellipsis │
00:05:27 verbose #21199 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 verbose #21200 >
00:05:27 verbose #21201 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 verbose #21202 > inl ellipsis (max : i32) (s : string) =
00:05:27 verbose #21203 > if sm.length s <= max
00:05:27 verbose #21204 > then s
00:05:27 verbose #21205 > else s |> slice 0 (max - 1) |> fun x => $'!x + "..."'
00:05:27 verbose #21206 > 00:05:27 debug #402 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/73e55d1cdc241081ac57d57b07abbbbd08ba0a5421c1c98c6c2bb397d389d4e7/main.spi
00:05:28 verbose #21207 >
00:05:28 verbose #21208 > ╭─[ 265.28ms - stdout ]────────────────────────────────────────────────────────╮
00:05:28 verbose #21209 > │ () │
00:05:28 verbose #21210 > │ │
00:05:28 verbose #21211 > │ │
00:05:28 verbose #21212 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 verbose #21213 >
00:05:28 verbose #21214 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 verbose #21215 > // // test
00:05:28 verbose #21216 >
00:05:28 verbose #21217 > "12345"
00:05:28 verbose #21218 > |> ellipsis 2
00:05:28 verbose #21219 > |> _assert_eq "12..."
00:05:28 verbose #21220 >
00:05:28 verbose #21221 > "12345"
00:05:28 verbose #21222 > |> ellipsis 4
00:05:28 verbose #21223 > |> _assert_eq "1234..."
00:05:28 verbose #21224 > 00:05:27 debug #403 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c748590a065624c20cc9d21754053d2131d81fd48889702935156be19280a317/main.spi
00:05:28 verbose #21225 >
00:05:28 verbose #21226 > ╭─[ 346.19ms - stdout ]────────────────────────────────────────────────────────╮
00:05:28 verbose #21227 > │ let rec method1 (v0 : bool) : bool = │
00:05:28 verbose #21228 > │ v0 │
00:05:28 verbose #21229 > │ and method0 () : unit = │
00:05:28 verbose #21230 > │ let v0 : string = "12" │
00:05:28 verbose #21231 > │ let v1 : string = v0 + "..." │
00:05:28 verbose #21232 > │ let v2 : string = $"%A{v1}" │
00:05:28 verbose #21233 > │ System.Console.WriteLine v2 │
00:05:28 verbose #21234 > │ let v4 : bool = v1 = "12..." │
00:05:28 verbose #21235 > │ let v6 : bool = │
00:05:28 verbose #21236 > │ if v4 then │
00:05:28 verbose #21237 > │ true │
00:05:28 verbose #21238 > │ else │
00:05:28 verbose #21239 > │ method1(v4) │
00:05:28 verbose #21240 > │ let v7 : string = "12..." │
00:05:28 verbose #21241 > │ let v8 : string = $"__expect / actual: %A{v1} / expected: %A{v7}" │
00:05:28 verbose #21242 > │ let v9 : bool = v6 = false │
00:05:28 verbose #21243 > │ if v9 then │
00:05:28 verbose #21244 > │ failwith<unit> v8 │
00:05:28 verbose #21245 > │ let v10 : string = "1234" │
00:05:28 verbose #21246 > │ let v11 : string = v10 + "..." │
00:05:28 verbose #21247 > │ let v12 : string = $"%A{v11}" │
00:05:28 verbose #21248 > │ System.Console.WriteLine v12 │
00:05:28 verbose #21249 > │ let v14 : bool = v11 = "1234..." │
00:05:28 verbose #21250 > │ let v16 : bool = │
00:05:28 verbose #21251 > │ if v14 then │
00:05:28 verbose #21252 > │ true │
00:05:28 verbose #21253 > │ else │
00:05:28 verbose #21254 > │ method1(v14) │
00:05:28 verbose #21255 > │ let v17 : string = "1234..." │
00:05:28 verbose #21256 > │ let v18 : string = $"__expect / actual: %A{v11} / expected: %A{v17}" │
00:05:28 verbose #21257 > │ let v19 : bool = v16 = false │
00:05:28 verbose #21258 > │ if v19 then │
00:05:28 verbose #21259 > │ failwith<unit> v18 │
00:05:28 verbose #21260 > │ method0() │
00:05:28 verbose #21261 > │ │
00:05:28 verbose #21262 > │ "12..." │
00:05:28 verbose #21263 > │ "1234..." │
00:05:28 verbose #21264 > │ │
00:05:28 verbose #21265 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 verbose #21266 >
00:05:28 verbose #21267 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:28 verbose #21268 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:28 verbose #21269 > │ ## ellipsis_end │
00:05:28 verbose #21270 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 verbose #21271 >
00:05:28 verbose #21272 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 verbose #21273 > inl ellipsis_end (max : i64) (s : string) =
00:05:28 verbose #21274 > inl len = sm.length s
00:05:28 verbose #21275 > if len <= max
00:05:28 verbose #21276 > then s
00:05:28 verbose #21277 > else
00:05:28 verbose #21278 > inl half = f64 max / 2
00:05:28 verbose #21279 > inl start_half = half |> math.ceil |> i64
00:05:28 verbose #21280 > inl end_half = half |> math.floor |> i64
00:05:28 verbose #21281 > inl start = s |> slice 0 (start_half - 1)
00:05:28 verbose #21282 > inl end = s |> slice (len - end_half) (len - 1)
00:05:28 verbose #21283 > (a ;[[start; "..."; end]] : _ i32 _)
00:05:28 verbose #21284 > |> seq.of_array
00:05:28 verbose #21285 > |> concat ""
00:05:28 verbose #21286 > 00:05:27 debug #404 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d5e30329ebd1094c844a2f31a2f0ac7296c4db2e03c6adaf73423ecc476fe7ca/main.spi
00:05:28 verbose #21287 >
00:05:28 verbose #21288 > ╭─[ 251.93ms - stdout ]────────────────────────────────────────────────────────╮
00:05:28 verbose #21289 > │ () │
00:05:28 verbose #21290 > │ │
00:05:28 verbose #21291 > │ │
00:05:28 verbose #21292 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 verbose #21293 >
00:05:28 verbose #21294 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 verbose #21295 > // // test
00:05:28 verbose #21296 >
00:05:28 verbose #21297 > "12345"
00:05:28 verbose #21298 > |> ellipsis_end 2
00:05:28 verbose #21299 > |> _assert_eq "1...5"
00:05:28 verbose #21300 >
00:05:28 verbose #21301 > "12345"
00:05:28 verbose #21302 > |> ellipsis_end 3
00:05:28 verbose #21303 > |> _assert_eq "12...5"
00:05:28 verbose #21304 >
00:05:28 verbose #21305 > "1234567"
00:05:28 verbose #21306 > |> ellipsis_end 4
00:05:28 verbose #21307 > |> _assert_eq "12...67"
00:05:28 verbose #21308 > 00:05:28 debug #405 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1dfd803f39924c47360c481b99629ce2e055c8ea6d11b1a9a952a6267e8f4303/main.spi
00:05:29 verbose #21309 >
00:05:29 verbose #21310 > ╭─[ 374.47ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 verbose #21311 > │ let rec method1 () : string = │
00:05:29 verbose #21312 > │ let v0 : string = "" │
00:05:29 verbose #21313 > │ v0 │
00:05:29 verbose #21314 > │ and method2 (v0 : bool) : bool = │
00:05:29 verbose #21315 > │ v0 │
00:05:29 verbose #21316 > │ and method0 () : unit = │
00:05:29 verbose #21317 > │ let v0 : float = float 2L │
00:05:29 verbose #21318 > │ let v1 : float = v0 / 2.0 │
00:05:29 verbose #21319 > │ let v2 : (float -> float) = ceil │
00:05:29 verbose #21320 > │ let v3 : float = v2 v1 │
00:05:29 verbose #21321 > │ let v4 : int64 = int64 v3 │
00:05:29 verbose #21322 > │ let v5 : (float -> float) = floor │
00:05:29 verbose #21323 > │ let v6 : float = v5 v1 │
00:05:29 verbose #21324 > │ let v7 : int64 = int64 v6 │
00:05:29 verbose #21325 > │ let v8 : int64 = v4 - 1L │
00:05:29 verbose #21326 > │ let v9 : string = "12345".[int 0L..int v8] │
00:05:29 verbose #21327 > │ let v10 : int64 = 5L - v7 │
00:05:29 verbose #21328 > │ let v11 : string = "12345".[int v10..int 4L] │
00:05:29 verbose #21329 > │ let v12 : string = "..." │
00:05:29 verbose #21330 > │ let v13 : (string []) = [|v9; v12; v11|] │
00:05:29 verbose #21331 > │ let v14 : ((string []) -> string seq) = Seq.ofArray │
00:05:29 verbose #21332 > │ let v15 : string seq = v14 v13 │
00:05:29 verbose #21333 > │ let v16 : string = method1() │
00:05:29 verbose #21334 > │ let v17 : (string -> (string seq -> string)) = String.concat │
00:05:29 verbose #21335 > │ let v18 : (string seq -> string) = v17 v16 │
00:05:29 verbose #21336 > │ let v19 : string = v18 v15 │
00:05:29 verbose #21337 > │ let v20 : string = $"%A{v19}" │
00:05:29 verbose #21338 > │ System.Console.WriteLine v20 │
00:05:29 verbose #21339 > │ let v22 : bool = v19 = "1...5" │
00:05:29 verbose #21340 > │ let v24 : bool = │
00:05:29 verbose #21341 > │ if v22 then │
00:05:29 verbose #21342 > │ true │
00:05:29 verbose #21343 > │ else │
00:05:29 verbose #21344 > │ method2(v22) │
00:05:29 verbose #21345 > │ let v25 : string = "1...5" │
00:05:29 verbose #21346 > │ let v26 : string = $"__expect / actual: %A{v19} / expected: %A{v25}" │
00:05:29 verbose #21347 > │ let v27 : bool = v24 = false │
00:05:29 verbose #21348 > │ if v27 then │
00:05:29 verbose #21349 > │ failwith<unit> v26 │
00:05:29 verbose #21350 > │ let v28 : float = float 3L │
00:05:29 verbose #21351 > │ let v29 : float = v28 / 2.0 │
00:05:29 verbose #21352 > │ let v30 : (float -> float) = ceil │
00:05:29 verbose #21353 > │ let v31 : float = v30 v29 │
00:05:29 verbose #21354 > │ let v32 : int64 = int64 v31 │
00:05:29 verbose #21355 > │ let v33 : (float -> float) = floor │
00:05:29 verbose #21356 > │ let v34 : float = v33 v29 │
00:05:29 verbose #21357 > │ let v35 : int64 = int64 v34 │
00:05:29 verbose #21358 > │ let v36 : int64 = v32 - 1L │
00:05:29 verbose #21359 > │ let v37 : string = "12345".[int 0L..int v36] │
00:05:29 verbose #21360 > │ let v38 : int64 = 5L - v35 │
00:05:29 verbose #21361 > │ let v39 : string = "12345".[int v38..int 4L] │
00:05:29 verbose #21362 > │ let v40 : (string []) = [|v37; v12; v39|] │
00:05:29 verbose #21363 > │ let v41 : ((string []) -> string seq) = Seq.ofArray │
00:05:29 verbose #21364 > │ let v42 : string seq = v41 v40 │
00:05:29 verbose #21365 > │ let v43 : string = method1() │
00:05:29 verbose #21366 > │ let v44 : (string -> (string seq -> string)) = String.concat │
00:05:29 verbose #21367 > │ let v45 : (string seq -> string) = v44 v43 │
00:05:29 verbose #21368 > │ let v46 : string = v45 v42 │
00:05:29 verbose #21369 > │ let v47 : string = $"%A{v46}" │
00:05:29 verbose #21370 > │ System.Console.WriteLine v47 │
00:05:29 verbose #21371 > │ let v49 : bool = v46 = "12...5" │
00:05:29 verbose #21372 > │ let v51 : bool = │
00:05:29 verbose #21373 > │ if v49 then │
00:05:29 verbose #21374 > │ true │
00:05:29 verbose #21375 > │ else │
00:05:29 verbose #21376 > │ method2(v49) │
00:05:29 verbose #21377 > │ let v52 : string = "12...5" │
00:05:29 verbose #21378 > │ let v53 : string = $"__expect / actual: %A{v46} / expected: %A{v52}" │
00:05:29 verbose #21379 > │ let v54 : bool = v51 = false │
00:05:29 verbose #21380 > │ if v54 then │
00:05:29 verbose #21381 > │ failwith<unit> v53 │
00:05:29 verbose #21382 > │ let v55 : float = float 4L │
00:05:29 verbose #21383 > │ let v56 : float = v55 / 2.0 │
00:05:29 verbose #21384 > │ let v57 : (float -> float) = ceil │
00:05:29 verbose #21385 > │ let v58 : float = v57 v56 │
00:05:29 verbose #21386 > │ let v59 : int64 = int64 v58 │
00:05:29 verbose #21387 > │ let v60 : (float -> float) = floor │
00:05:29 verbose #21388 > │ let v61 : float = v60 v56 │
00:05:29 verbose #21389 > │ let v62 : int64 = int64 v61 │
00:05:29 verbose #21390 > │ let v63 : int64 = v59 - 1L │
00:05:29 verbose #21391 > │ let v64 : string = "1234567".[int 0L..int v63] │
00:05:29 verbose #21392 > │ let v65 : int64 = 7L - v62 │
00:05:29 verbose #21393 > │ let v66 : string = "1234567".[int v65..int 6L] │
00:05:29 verbose #21394 > │ let v67 : (string []) = [|v64; v12; v66|] │
00:05:29 verbose #21395 > │ let v68 : ((string []) -> string seq) = Seq.ofArray │
00:05:29 verbose #21396 > │ let v69 : string seq = v68 v67 │
00:05:29 verbose #21397 > │ let v70 : string = method1() │
00:05:29 verbose #21398 > │ let v71 : (string -> (string seq -> string)) = String.concat │
00:05:29 verbose #21399 > │ let v72 : (string seq -> string) = v71 v70 │
00:05:29 verbose #21400 > │ let v73 : string = v72 v69 │
00:05:29 verbose #21401 > │ let v74 : string = $"%A{v73}" │
00:05:29 verbose #21402 > │ System.Console.WriteLine v74 │
00:05:29 verbose #21403 > │ let v76 : bool = v73 = "12...67" │
00:05:29 verbose #21404 > │ let v78 : bool = │
00:05:29 verbose #21405 > │ if v76 then │
00:05:29 verbose #21406 > │ true │
00:05:29 verbose #21407 > │ else │
00:05:29 verbose #21408 > │ method2(v76) │
00:05:29 verbose #21409 > │ let v79 : string = "12...67" │
00:05:29 verbose #21410 > │ let v80 : string = $"__expect / actual: %A{v73} / expected: %A{v79}" │
00:05:29 verbose #21411 > │ let v81 : bool = v78 = false │
00:05:29 verbose #21412 > │ if v81 then │
00:05:29 verbose #21413 > │ failwith<unit> v80 │
00:05:29 verbose #21414 > │ method0() │
00:05:29 verbose #21415 > │ │
00:05:29 verbose #21416 > │ "1...5" │
00:05:29 verbose #21417 > │ "12...5" │
00:05:29 verbose #21418 > │ "12...67" │
00:05:29 verbose #21419 > │ │
00:05:29 verbose #21420 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21421 >
00:05:29 verbose #21422 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 verbose #21423 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 verbose #21424 > │ ## format_ellipsis │
00:05:29 verbose #21425 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21426 >
00:05:29 verbose #21427 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 verbose #21428 > inl format_ellipsis s =
00:05:29 verbose #21429 > s
00:05:29 verbose #21430 > |> format_debug
00:05:29 verbose #21431 > |> ellipsis_end 400
00:05:29 verbose #21432 > 00:05:28 debug #406 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0c0fa0562d7792cbd3de62218c4703930abde8e4a021cbfd8549bc4cfd9987d9/main.spi
00:05:29 verbose #21433 >
00:05:29 verbose #21434 > ╭─[ 239.39ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 verbose #21435 > │ () │
00:05:29 verbose #21436 > │ │
00:05:29 verbose #21437 > │ │
00:05:29 verbose #21438 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21439 >
00:05:29 verbose #21440 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 verbose #21441 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 verbose #21442 > │ ## split │
00:05:29 verbose #21443 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21444 >
00:05:29 verbose #21445 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 verbose #21446 > inl split (separator : string) (str : string) : array_base string =
00:05:29 verbose #21447 > $"!str.Split !separator"
00:05:29 verbose #21448 > 00:05:28 debug #407 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/35cb8344003db0d78923e1feebf303ac870d343e5dade1a5d8acf1e6c54edbdb/main.spi
00:05:29 verbose #21449 >
00:05:29 verbose #21450 > ╭─[ 202.27ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 verbose #21451 > │ () │
00:05:29 verbose #21452 > │ │
00:05:29 verbose #21453 > │ │
00:05:29 verbose #21454 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21455 >
00:05:29 verbose #21456 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 verbose #21457 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 verbose #21458 > │ ## split_string │
00:05:29 verbose #21459 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21460 >
00:05:29 verbose #21461 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 verbose #21462 > inl split_string (separator : array_base string) (str : string) : array_base
00:05:29 verbose #21463 > string =
00:05:29 verbose #21464 > run_target function
00:05:29 verbose #21465 > | Fsharp (Native) => fun () => $"!str.Split (!separator,
00:05:29 verbose #21466 > System.StringSplitOptions.None)"
00:05:29 verbose #21467 > | _ => fun () => str |> split ((a separator : _ i32 _) |> seq.of_array
00:05:29 verbose #21468 > |> concat "")
00:05:29 verbose #21469 > 00:05:29 debug #408 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ead8196d5baf4291b046c0fdfcd048799c3fbc58001d71d9080066e9c0fb9797/main.spi
00:05:29 verbose #21470 >
00:05:29 verbose #21471 > ╭─[ 265.83ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 verbose #21472 > │ () │
00:05:29 verbose #21473 > │ │
00:05:29 verbose #21474 > │ │
00:05:29 verbose #21475 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21476 >
00:05:29 verbose #21477 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 verbose #21478 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 verbose #21479 > │ ## join' │
00:05:29 verbose #21480 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 verbose #21481 >
00:05:29 verbose #21482 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 verbose #21483 > inl join' (concat : string) (s : a i32 string) : string =
00:05:29 verbose #21484 > $"System.String.Join (!concat, !s)"
00:05:29 verbose #21485 > 00:05:29 debug #409 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/abd41a59507cbdaeb48dc04d3412221d1ac687f28c131d577186725aaa438c12/main.spi
00:05:29 verbose #21486 >
00:05:29 verbose #21487 > ╭─[ 221.68ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 verbose #21488 > │ () │
00:05:30 verbose #21489 > │ │
00:05:30 verbose #21490 > │ │
00:05:30 verbose #21491 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #21492 >
00:05:30 verbose #21493 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:30 verbose #21494 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:30 verbose #21495 > │ ## to_char_array │
00:05:30 verbose #21496 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #21497 >
00:05:30 verbose #21498 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 verbose #21499 > inl to_char_array (str : string) : a i32 char =
00:05:30 verbose #21500 > am.init (str |> sm.length) (fun i => sm.index str i)
00:05:30 verbose #21501 > 00:05:29 debug #410 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4e0f075da2b548a09a9a3f5733c9108f6f457702b82666050eed1a9eb8adaa78/main.spi
00:05:30 verbose #21502 >
00:05:30 verbose #21503 > ╭─[ 211.02ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 verbose #21504 > │ () │
00:05:30 verbose #21505 > │ │
00:05:30 verbose #21506 > │ │
00:05:30 verbose #21507 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #21508 >
00:05:30 verbose #21509 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 verbose #21510 > // // test
00:05:30 verbose #21511 >
00:05:30 verbose #21512 > "abc"
00:05:30 verbose #21513 > |> to_char_array
00:05:30 verbose #21514 > |> _assert_eq (a ;[['a'; 'b'; 'c']])
00:05:30 verbose #21515 > 00:05:29 debug #411 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5d95c1eeb2ff83aecfa63b22c7f47cc592ab5ca5695fcedf74a23d4b559cbb1d/main.spi
00:05:30 verbose #21516 >
00:05:30 verbose #21517 > ╭─[ 351.14ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 verbose #21518 > │ type Mut0 = {mutable l0 : int32} │
00:05:30 verbose #21519 > │ let rec method1 (v0 : Mut0) : bool = │
00:05:30 verbose #21520 > │ let v1 : int32 = v0.l0 │
00:05:30 verbose #21521 > │ let v2 : bool = v1 < 3 │
00:05:30 verbose #21522 > │ v2 │
00:05:30 verbose #21523 > │ and method2 (v0 : (char []), v1 : (char []), v2 : int32) : bool = │
00:05:30 verbose #21524 > │ let v3 : int32 = v0.Length │
00:05:30 verbose #21525 > │ let v4 : bool = v2 < v3 │
00:05:30 verbose #21526 > │ if v4 then │
00:05:30 verbose #21527 > │ let v5 : char = v0.[int v2] │
00:05:30 verbose #21528 > │ let v6 : char = v1.[int v2] │
00:05:30 verbose #21529 > │ let v7 : bool = v5 = v6 │
00:05:30 verbose #21530 > │ if v7 then │
00:05:30 verbose #21531 > │ let v8 : int32 = v2 + 1 │
00:05:30 verbose #21532 > │ method2(v0, v1, v8) │
00:05:30 verbose #21533 > │ else │
00:05:30 verbose #21534 > │ false │
00:05:30 verbose #21535 > │ else │
00:05:30 verbose #21536 > │ true │
00:05:30 verbose #21537 > │ and method3 (v0 : bool) : bool = │
00:05:30 verbose #21538 > │ v0 │
00:05:30 verbose #21539 > │ and method0 () : unit = │
00:05:30 verbose #21540 > │ let v0 : (char []) = Array.zeroCreate<char> (3) │
00:05:30 verbose #21541 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:05:30 verbose #21542 > │ while method1(v1) do │
00:05:30 verbose #21543 > │ let v3 : int32 = v1.l0 │
00:05:30 verbose #21544 > │ let v4 : char = "abc".[int v3] │
00:05:30 verbose #21545 > │ v0.[int v3] <- v4 │
00:05:30 verbose #21546 > │ let v5 : int32 = v3 + 1 │
00:05:30 verbose #21547 > │ v1.l0 <- v5 │
00:05:30 verbose #21548 > │ () │
00:05:30 verbose #21549 > │ let v6 : (char []) = [|'a'; 'b'; 'c'|] │
00:05:30 verbose #21550 > │ let v7 : string = $"%A{v0}" │
00:05:30 verbose #21551 > │ System.Console.WriteLine v7 │
00:05:30 verbose #21552 > │ let v8 : int32 = v0.Length │
00:05:30 verbose #21553 > │ let v9 : int32 = v6.Length │
00:05:30 verbose #21554 > │ let v10 : bool = v8 = v9 │
00:05:30 verbose #21555 > │ let v11 : bool = v10 <> true │
00:05:30 verbose #21556 > │ let v14 : bool = │
00:05:30 verbose #21557 > │ if v11 then │
00:05:30 verbose #21558 > │ false │
00:05:30 verbose #21559 > │ else │
00:05:30 verbose #21560 > │ let v12 : int32 = 0 │
00:05:30 verbose #21561 > │ method2(v0, v6, v12) │
00:05:30 verbose #21562 > │ let v16 : bool = │
00:05:30 verbose #21563 > │ if v14 then │
00:05:30 verbose #21564 > │ true │
00:05:30 verbose #21565 > │ else │
00:05:30 verbose #21566 > │ method3(v14) │
00:05:30 verbose #21567 > │ let v17 : string = $"__expect / actual: %A{v0} / expected: %A{v6}" │
00:05:30 verbose #21568 > │ let v18 : bool = v16 = false │
00:05:30 verbose #21569 > │ if v18 then │
00:05:30 verbose #21570 > │ failwith<unit> v17 │
00:05:30 verbose #21571 > │ method0() │
00:05:30 verbose #21572 > │ │
00:05:30 verbose #21573 > │ [|'a'; 'b'; 'c'|] │
00:05:30 verbose #21574 > │ │
00:05:30 verbose #21575 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #21576 >
00:05:30 verbose #21577 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:30 verbose #21578 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:30 verbose #21579 > │ ## to_char_list │
00:05:30 verbose #21580 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #21581 >
00:05:30 verbose #21582 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 verbose #21583 > inl to_char_list (str : string) : list char =
00:05:30 verbose #21584 > listm.init (str |> sm.length) (fun (i : i64) => sm.index str i)
00:05:30 verbose #21585 > 00:05:30 debug #412 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5cb85f59dec73581b241e9014db2f8334d2f70043eff94c98e75a7c7edeecfe5/main.spi
00:05:30 verbose #21586 >
00:05:30 verbose #21587 > ╭─[ 191.19ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 verbose #21588 > │ () │
00:05:30 verbose #21589 > │ │
00:05:30 verbose #21590 > │ │
00:05:30 verbose #21591 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #21592 >
00:05:30 verbose #21593 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 verbose #21594 > // // test
00:05:30 verbose #21595 >
00:05:30 verbose #21596 > "abc"
00:05:30 verbose #21597 > |> to_char_list
00:05:30 verbose #21598 > |> _assert_eq [['a'; 'b'; 'c']]
00:05:30 verbose #21599 > 00:05:30 debug #413 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/11baf37466e190fb68be610b13be54320fc89a0b25a6f9665092bfa8c9b83330/main.spi
00:05:31 verbose #21600 >
00:05:31 verbose #21601 > ╭─[ 307.65ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 verbose #21602 > │ type UH0 = │
00:05:31 verbose #21603 > │ | UH0_0 │
00:05:31 verbose #21604 > │ | UH0_1 of char * UH0 │
00:05:31 verbose #21605 > │ let rec method0 () : unit = │
00:05:31 verbose #21606 > │ let v0 : UH0 = UH0_0 │
00:05:31 verbose #21607 > │ let v1 : UH0 = UH0_1('c', v0) │
00:05:31 verbose #21608 > │ let v2 : UH0 = UH0_1('b', v1) │
00:05:31 verbose #21609 > │ let v3 : UH0 = UH0_1('a', v2) │
00:05:31 verbose #21610 > │ let v4 : string = $"%A{v3}" │
00:05:31 verbose #21611 > │ System.Console.WriteLine v4 │
00:05:31 verbose #21612 > │ let v23 : UH0 = UH0_0 │
00:05:31 verbose #21613 > │ let v24 : UH0 = UH0_1('c', v23) │
00:05:31 verbose #21614 > │ let v25 : UH0 = UH0_1('b', v24) │
00:05:31 verbose #21615 > │ let v26 : UH0 = UH0_1('a', v25) │
00:05:31 verbose #21616 > │ let v27 : UH0 = UH0_0 │
00:05:31 verbose #21617 > │ let v28 : UH0 = UH0_1('c', v27) │
00:05:31 verbose #21618 > │ let v29 : UH0 = UH0_1('b', v28) │
00:05:31 verbose #21619 > │ let v30 : UH0 = UH0_1('a', v29) │
00:05:31 verbose #21620 > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:31 verbose #21621 > │ () │
00:05:31 verbose #21622 > │ method0() │
00:05:31 verbose #21623 > │ │
00:05:31 verbose #21624 > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) │
00:05:31 verbose #21625 > │ │
00:05:31 verbose #21626 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21627 >
00:05:31 verbose #21628 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 verbose #21629 > nominal encoding = $'System.Text.Encoding'
00:05:31 verbose #21630 >
00:05:31 verbose #21631 > inl encoding_utf8 () : encoding =
00:05:31 verbose #21632 > $'System.Text.Encoding.UTF8'
00:05:31 verbose #21633 > 00:05:30 debug #414 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/90f0b0d1d1e2ee09329319afa357e5d33adc9a8d60fefb9e18e810896f8e4bfc/main.spi
00:05:31 verbose #21634 >
00:05:31 verbose #21635 > ╭─[ 232.45ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 verbose #21636 > │ () │
00:05:31 verbose #21637 > │ │
00:05:31 verbose #21638 > │ │
00:05:31 verbose #21639 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21640 >
00:05:31 verbose #21641 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:31 verbose #21642 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:31 verbose #21643 > │ ## utf8_get_bytes │
00:05:31 verbose #21644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21645 >
00:05:31 verbose #21646 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 verbose #21647 > inl utf8_get_bytes (s : string) : a i32 u8 =
00:05:31 verbose #21648 > s |> $'`encoding.UTF8.GetBytes'
00:05:31 verbose #21649 > 00:05:30 debug #415 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4b3c1f84d9fe7607ce3969367813b9d7c77452739236ed4a31a9c8ed5bc7e24d/main.spi
00:05:31 verbose #21650 >
00:05:31 verbose #21651 > ╭─[ 217.31ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 verbose #21652 > │ () │
00:05:31 verbose #21653 > │ │
00:05:31 verbose #21654 > │ │
00:05:31 verbose #21655 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21656 >
00:05:31 verbose #21657 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:31 verbose #21658 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:31 verbose #21659 > │ ## byte_to_string │
00:05:31 verbose #21660 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21661 >
00:05:31 verbose #21662 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 verbose #21663 > inl byte_to_string (format : string) (x : u8) : string =
00:05:31 verbose #21664 > $'!x.ToString' format
00:05:31 verbose #21665 > 00:05:31 debug #416 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c453c9b82777606bd9f579b719a935f6eb79ff4a5f114adde45b78322fd10436/main.spi
00:05:31 verbose #21666 >
00:05:31 verbose #21667 > ╭─[ 294.77ms - stdout ]────────────────────────────────────────────────────────╮
00:05:31 verbose #21668 > │ () │
00:05:31 verbose #21669 > │ │
00:05:31 verbose #21670 > │ │
00:05:31 verbose #21671 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21672 >
00:05:31 verbose #21673 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:31 verbose #21674 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:31 verbose #21675 > │ ## to_string std_string │
00:05:31 verbose #21676 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:31 verbose #21677 >
00:05:31 verbose #21678 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:31 verbose #21679 > open rust
00:05:31 verbose #21680 > instance to_string std_string = from_std_string
00:05:31 verbose #21681 > 00:05:31 debug #417 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/59a459f26d5f6f6622bff3d76dbd78c977a2ab01fe4b3b43a6f8f587fe124d4a/main.spi
00:05:32 verbose #21682 >
00:05:32 verbose #21683 > ╭─[ 263.74ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 verbose #21684 > │ () │
00:05:32 verbose #21685 > │ │
00:05:32 verbose #21686 > │ │
00:05:32 verbose #21687 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 verbose #21688 >
00:05:32 verbose #21689 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:32 verbose #21690 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:32 verbose #21691 > │ ## main │
00:05:32 verbose #21692 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 verbose #21693 >
00:05:32 verbose #21694 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:32 verbose #21695 > inl main () =
00:05:32 verbose #21696 > $"let contains x = !contains x" : ()
00:05:32 verbose #21697 > $"let ends_with x = !ends_with x" : ()
00:05:32 verbose #21698 > $"let pad_left x = !pad_left x" : ()
00:05:32 verbose #21699 > $"let pad_right x = !pad_right x" : ()
00:05:32 verbose #21700 > $"let replace x = !replace x" : ()
00:05:32 verbose #21701 > inl slice (a : i32) (b : i32) c = slice a b c
00:05:32 verbose #21702 > $"let slice x = !slice x" : ()
00:05:32 verbose #21703 > $"let split x = !split x" : ()
00:05:32 verbose #21704 > $"let split_string x = !split_string x" : ()
00:05:32 verbose #21705 > $"let starts_with x = !starts_with x" : ()
00:05:32 verbose #21706 > $"let substring x = !substring x" : ()
00:05:32 verbose #21707 > $"let to_lower x = !to_lower x" : ()
00:05:32 verbose #21708 > $"let to_upper x = !to_upper x" : ()
00:05:32 verbose #21709 > $"let trim x = !trim x" : ()
00:05:32 verbose #21710 > $"let trim_end x = !trim_end x" : ()
00:05:32 verbose #21711 > $"let trim_start x = !trim_start x" : ()
00:05:32 verbose #21712 > $"let ellipsis x = !ellipsis x" : ()
00:05:32 verbose #21713 > $"let ellipsis_end x = !ellipsis_end x" : ()
00:05:32 verbose #21714 > $"let format_exception x = !format_exception x" : ()
00:05:32 verbose #21715 > $"let concat_array_trailing x = !concat_array_trailing x" : ()
00:05:32 verbose #21716 > inl concat a (b : seq.seq' string) = concat a b
00:05:32 verbose #21717 > $"let concat x = !concat x" : ()
00:05:32 verbose #21718 > $"let join' x = !join' x" : ()
00:05:32 verbose #21719 > $"let to_char_array x = !to_char_array x" : ()
00:05:32 verbose #21720 > 00:05:31 debug #418 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8fa26ee971b7a73c745105e7b2d77f5cfe20892bab34b86c27af9f56a5bd5dd5/main.spi
00:05:32 verbose #21721 >
00:05:32 verbose #21722 > ╭─[ 583.96ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 verbose #21723 > │ type Mut0 = {mutable l0 : int32; mutable l1 : string} │
00:05:32 verbose #21724 > │ and Mut1 = {mutable l0 : int32} │
00:05:32 verbose #21725 > │ let rec closure1 (v0 : string) (v1 : string) : bool = │
00:05:32 verbose #21726 > │ let v2 : bool = v1.Contains v0 │
00:05:32 verbose #21727 > │ v2 │
00:05:32 verbose #21728 > │ and closure0 () (v0 : string) : (string -> bool) = │
00:05:32 verbose #21729 > │ closure1(v0) │
00:05:32 verbose #21730 > │ and closure3 (v0 : string) (v1 : string) : bool = │
00:05:32 verbose #21731 > │ let v2 : bool = v1.EndsWith v0 │
00:05:32 verbose #21732 > │ v2 │
00:05:32 verbose #21733 > │ and closure2 () (v0 : string) : (string -> bool) = │
00:05:32 verbose #21734 > │ closure3(v0) │
00:05:32 verbose #21735 > │ and closure6 (v0 : int32, v1 : char) (v2 : string) : string = │
00:05:32 verbose #21736 > │ let v3 : string = v2.PadLeft (v0, v1) │
00:05:32 verbose #21737 > │ v3 │
00:05:32 verbose #21738 > │ and closure5 (v0 : int32) (v1 : char) : (string -> string) = │
00:05:32 verbose #21739 > │ closure6(v0, v1) │
00:05:32 verbose #21740 > │ and closure4 () (v0 : int32) : (char -> (string -> string)) = │
00:05:32 verbose #21741 > │ closure5(v0) │
00:05:32 verbose #21742 > │ and closure8 (v0 : int32) (v1 : string) : string = │
00:05:32 verbose #21743 > │ let v2 : string = v1.PadRight v0 │
00:05:32 verbose #21744 > │ v2 │
00:05:32 verbose #21745 > │ and closure7 () (v0 : int32) : (string -> string) = │
00:05:32 verbose #21746 > │ closure8(v0) │
00:05:32 verbose #21747 > │ and closure11 (v0 : string, v1 : string) (v2 : string) : string = │
00:05:32 verbose #21748 > │ let v3 : string = v2.Replace (v0, v1) │
00:05:32 verbose #21749 > │ v3 │
00:05:32 verbose #21750 > │ and closure10 (v0 : string) (v1 : string) : (string -> string) = │
00:05:32 verbose #21751 > │ closure11(v0, v1) │
00:05:32 verbose #21752 > │ and closure9 () (v0 : string) : (string -> (string -> string)) = │
00:05:32 verbose #21753 > │ closure10(v0) │
00:05:32 verbose #21754 > │ and closure14 (v0 : int32, v1 : int32) (v2 : string) : string = │
00:05:32 verbose #21755 > │ let v3 : string = v2.[int v0..int v1] │
00:05:32 verbose #21756 > │ v3 │
00:05:32 verbose #21757 > │ and closure13 (v0 : int32) (v1 : int32) : (string -> string) = │
00:05:32 verbose #21758 > │ closure14(v0, v1) │
00:05:32 verbose #21759 > │ and closure12 () (v0 : int32) : (int32 -> (string -> string)) = │
00:05:32 verbose #21760 > │ closure13(v0) │
00:05:32 verbose #21761 > │ and closure16 (v0 : string) (v1 : string) : (string []) = │
00:05:32 verbose #21762 > │ let v2 : (string []) = v1.Split v0 │
00:05:32 verbose #21763 > │ v2 │
00:05:32 verbose #21764 > │ and closure15 () (v0 : string) : (string -> (string [])) = │
00:05:32 verbose #21765 > │ closure16(v0) │
00:05:32 verbose #21766 > │ and method0 () : string = │
00:05:32 verbose #21767 > │ let v0 : string = "" │
00:05:32 verbose #21768 > │ v0 │
00:05:32 verbose #21769 > │ and closure18 (v0 : (string [])) (v1 : string) : (string []) = │
00:05:32 verbose #21770 > │ let v2 : (string []) option = None │
00:05:32 verbose #21771 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:05:32 verbose #21772 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:32 verbose #21773 > │ let v4 : ((string []) -> string seq) = Seq.ofArray │
00:05:32 verbose #21774 > │ let v5 : string seq = v4 v0 │
00:05:32 verbose #21775 > │ let v6 : string = method0() │
00:05:32 verbose #21776 > │ let v7 : (string -> (string seq -> string)) = String.concat │
00:05:32 verbose #21777 > │ let v8 : (string seq -> string) = v7 v6 │
00:05:32 verbose #21778 > │ let v9 : string = v8 v5 │
00:05:32 verbose #21779 > │ let v10 : (string []) = v1.Split v9 │
00:05:32 verbose #21780 > │ v10 │
00:05:32 verbose #21781 > │ #endif │
00:05:32 verbose #21782 > │ #if FABLE_COMPILER_RUST && WASM │
00:05:32 verbose #21783 > │ let v11 : ((string []) -> string seq) = Seq.ofArray │
00:05:32 verbose #21784 > │ let v12 : string seq = v11 v0 │
00:05:32 verbose #21785 > │ let v13 : string = method0() │
00:05:32 verbose #21786 > │ let v14 : (string -> (string seq -> string)) = String.concat │
00:05:32 verbose #21787 > │ let v15 : (string seq -> string) = v14 v13 │
00:05:32 verbose #21788 > │ let v16 : string = v15 v12 │
00:05:32 verbose #21789 > │ let v17 : (string []) = v1.Split v16 │
00:05:32 verbose #21790 > │ v17 │
00:05:32 verbose #21791 > │ #endif │
00:05:32 verbose #21792 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:32 verbose #21793 > │ let v18 : ((string []) -> string seq) = Seq.ofArray │
00:05:32 verbose #21794 > │ let v19 : string seq = v18 v0 │
00:05:32 verbose #21795 > │ let v20 : string = method0() │
00:05:32 verbose #21796 > │ let v21 : (string -> (string seq -> string)) = String.concat │
00:05:32 verbose #21797 > │ let v22 : (string seq -> string) = v21 v20 │
00:05:32 verbose #21798 > │ let v23 : string = v22 v19 │
00:05:32 verbose #21799 > │ let v24 : (string []) = v1.Split v23 │
00:05:32 verbose #21800 > │ v24 │
00:05:32 verbose #21801 > │ #endif │
00:05:32 verbose #21802 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:32 verbose #21803 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:32 verbose #21804 > │ let v25 : (string []) = v1.Split (v0, System.StringSplitOptions.None) │
00:05:32 verbose #21805 > │ v25 │
00:05:32 verbose #21806 > │ #endif │
00:05:32 verbose #21807 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:32 verbose #21808 > │ let v26 : ((string []) -> string seq) = Seq.ofArray │
00:05:32 verbose #21809 > │ let v27 : string seq = v26 v0 │
00:05:32 verbose #21810 > │ let v28 : string = method0() │
00:05:32 verbose #21811 > │ let v29 : (string -> (string seq -> string)) = String.concat │
00:05:32 verbose #21812 > │ let v30 : (string seq -> string) = v29 v28 │
00:05:32 verbose #21813 > │ let v31 : string = v30 v27 │
00:05:32 verbose #21814 > │ let v32 : (string []) = v1.Split v31 │
00:05:32 verbose #21815 > │ v32 │
00:05:32 verbose #21816 > │ #endif │
00:05:32 verbose #21817 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:05:32 verbose #21818 > │ let v33 : (string []) = Unchecked.defaultof<(string [])> │
00:05:32 verbose #21819 > │ v33 │
00:05:32 verbose #21820 > │ #endif │
00:05:32 verbose #21821 > │ |> fun x -> _v2 <- Some x │
00:05:32 verbose #21822 > │ let v34 : (string []) = _v2.Value │
00:05:32 verbose #21823 > │ v34 │
00:05:32 verbose #21824 > │ and closure17 () (v0 : (string [])) : (string -> (string [])) = │
00:05:32 verbose #21825 > │ closure18(v0) │
00:05:32 verbose #21826 > │ and closure20 (v0 : string) (v1 : string) : bool = │
00:05:32 verbose #21827 > │ let v2 : bool = v1.StartsWith v0 │
00:05:32 verbose #21828 > │ v2 │
00:05:32 verbose #21829 > │ and closure19 () (v0 : string) : (string -> bool) = │
00:05:32 verbose #21830 > │ closure20(v0) │
00:05:32 verbose #21831 > │ and closure23 (v0 : int32, v1 : int32) (v2 : string) : string = │
00:05:32 verbose #21832 > │ let v3 : string = v2.Substring (v0, v1) │
00:05:32 verbose #21833 > │ v3 │
00:05:32 verbose #21834 > │ and closure22 (v0 : int32) (v1 : int32) : (string -> string) = │
00:05:32 verbose #21835 > │ closure23(v0, v1) │
00:05:32 verbose #21836 > │ and closure21 () (v0 : int32) : (int32 -> (string -> string)) = │
00:05:32 verbose #21837 > │ closure22(v0) │
00:05:32 verbose #21838 > │ and closure24 () (v0 : string) : string = │
00:05:32 verbose #21839 > │ let v1 : string = v0.ToLower () │
00:05:32 verbose #21840 > │ v1 │
00:05:32 verbose #21841 > │ and closure25 () (v0 : string) : string = │
00:05:32 verbose #21842 > │ let v1 : string = v0.ToUpper () │
00:05:32 verbose #21843 > │ v1 │
00:05:32 verbose #21844 > │ and closure26 () (v0 : string) : string = │
00:05:32 verbose #21845 > │ let v1 : string = v0.Trim () │
00:05:32 verbose #21846 > │ v1 │
00:05:32 verbose #21847 > │ and closure28 (v0 : (char [])) (v1 : string) : string = │
00:05:32 verbose #21848 > │ let v2 : string = v1.TrimEnd v0 │
00:05:32 verbose #21849 > │ v2 │
00:05:32 verbose #21850 > │ and closure27 () (v0 : (char [])) : (string -> string) = │
00:05:32 verbose #21851 > │ closure28(v0) │
00:05:32 verbose #21852 > │ and closure30 (v0 : (char [])) (v1 : string) : string = │
00:05:32 verbose #21853 > │ let v2 : string = v1.TrimStart v0 │
00:05:32 verbose #21854 > │ v2 │
00:05:32 verbose #21855 > │ and closure29 () (v0 : (char [])) : (string -> string) = │
00:05:32 verbose #21856 > │ closure30(v0) │
00:05:32 verbose #21857 > │ and closure32 (v0 : int32) (v1 : string) : string = │
00:05:32 verbose #21858 > │ let v2 : int32 = v1.Length │
00:05:32 verbose #21859 > │ let v3 : bool = v2 <= v0 │
00:05:32 verbose #21860 > │ if v3 then │
00:05:32 verbose #21861 > │ v1 │
00:05:32 verbose #21862 > │ else │
00:05:32 verbose #21863 > │ let v4 : int32 = v0 - 1 │
00:05:32 verbose #21864 > │ let v5 : string = v1.[int 0..int v4] │
00:05:32 verbose #21865 > │ let v6 : string = v5 + "..." │
00:05:32 verbose #21866 > │ v6 │
00:05:32 verbose #21867 > │ and closure31 () (v0 : int32) : (string -> string) = │
00:05:32 verbose #21868 > │ closure32(v0) │
00:05:32 verbose #21869 > │ and closure34 (v0 : int64) (v1 : string) : string = │
00:05:32 verbose #21870 > │ let v2 : int64 = System.Convert.ToInt64 v1.Length │
00:05:32 verbose #21871 > │ let v3 : bool = v2 <= v0 │
00:05:32 verbose #21872 > │ if v3 then │
00:05:32 verbose #21873 > │ v1 │
00:05:32 verbose #21874 > │ else │
00:05:32 verbose #21875 > │ let v4 : float = float v0 │
00:05:32 verbose #21876 > │ let v5 : float = v4 / 2.0 │
00:05:32 verbose #21877 > │ let v6 : (float -> float) = ceil │
00:05:32 verbose #21878 > │ let v7 : float = v6 v5 │
00:05:32 verbose #21879 > │ let v8 : int64 = int64 v7 │
00:05:32 verbose #21880 > │ let v9 : (float -> float) = floor │
00:05:32 verbose #21881 > │ let v10 : float = v9 v5 │
00:05:32 verbose #21882 > │ let v11 : int64 = int64 v10 │
00:05:32 verbose #21883 > │ let v12 : int64 = v8 - 1L │
00:05:32 verbose #21884 > │ let v13 : string = v1.[int 0L..int v12] │
00:05:32 verbose #21885 > │ let v14 : int64 = v2 - v11 │
00:05:32 verbose #21886 > │ let v15 : int64 = v2 - 1L │
00:05:32 verbose #21887 > │ let v16 : string = v1.[int v14..int v15] │
00:05:32 verbose #21888 > │ let v17 : string = "..." │
00:05:32 verbose #21889 > │ let v18 : (string []) = [|v13; v17; v16|] │
00:05:32 verbose #21890 > │ let v19 : ((string []) -> string seq) = Seq.ofArray │
00:05:32 verbose #21891 > │ let v20 : string seq = v19 v18 │
00:05:32 verbose #21892 > │ let v21 : string = method0() │
00:05:32 verbose #21893 > │ let v22 : (string -> (string seq -> string)) = String.concat │
00:05:32 verbose #21894 > │ let v23 : (string seq -> string) = v22 v21 │
00:05:32 verbose #21895 > │ v23 v20 │
00:05:32 verbose #21896 > │ and closure33 () (v0 : int64) : (string -> string) = │
00:05:32 verbose #21897 > │ closure34(v0) │
00:05:32 verbose #21898 > │ and closure35 () (v0 : exn) : string = │
00:05:32 verbose #21899 > │ let v1 : string option = None │
00:05:32 verbose #21900 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:05:32 verbose #21901 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:32 verbose #21902 > │ let v3 : string = $"%A{v0}" │
00:05:32 verbose #21903 > │ v3 │
00:05:32 verbose #21904 > │ #endif │
00:05:32 verbose #21905 > │ #if FABLE_COMPILER_RUST && WASM │
00:05:32 verbose #21906 > │ let v4 : string = $"%A{v0}" │
00:05:32 verbose #21907 > │ v4 │
00:05:32 verbose #21908 > │ #endif │
00:05:32 verbose #21909 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:32 verbose #21910 > │ let v5 : string = $"%A{v0}" │
00:05:32 verbose #21911 > │ v5 │
00:05:32 verbose #21912 > │ #endif │
00:05:32 verbose #21913 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:32 verbose #21914 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:32 verbose #21915 > │ let v6 : string = $"{v0.GetType ()}: {v0.Message}" │
00:05:32 verbose #21916 > │ v6 │
00:05:32 verbose #21917 > │ #endif │
00:05:32 verbose #21918 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:32 verbose #21919 > │ let v7 : string = $"%A{v0}" │
00:05:32 verbose #21920 > │ v7 │
00:05:32 verbose #21921 > │ #endif │
00:05:32 verbose #21922 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:05:32 verbose #21923 > │ let v8 : string = Unchecked.defaultof<string> │
00:05:32 verbose #21924 > │ v8 │
00:05:32 verbose #21925 > │ #endif │
00:05:32 verbose #21926 > │ |> fun x -> _v1 <- Some x │
00:05:32 verbose #21927 > │ let v9 : string = _v1.Value │
00:05:32 verbose #21928 > │ v9 │
00:05:32 verbose #21929 > │ and method1 (v0 : int32, v1 : Mut0) : bool = │
00:05:32 verbose #21930 > │ let v2 : int32 = v1.l0 │
00:05:32 verbose #21931 > │ let v3 : bool = v2 < v0 │
00:05:32 verbose #21932 > │ v3 │
00:05:32 verbose #21933 > │ and closure37 (v0 : string) (v1 : (string [])) : string = │
00:05:32 verbose #21934 > │ let v2 : int32 = v1.Length │
00:05:32 verbose #21935 > │ let v3 : string = "" │
00:05:32 verbose #21936 > │ let v4 : Mut0 = {l0 = 0; l1 = v3} : Mut0 │
00:05:32 verbose #21937 > │ while method1(v2, v4) do │
00:05:32 verbose #21938 > │ let v6 : int32 = v4.l0 │
00:05:32 verbose #21939 > │ let v7 : string = v4.l1 │
00:05:32 verbose #21940 > │ let v8 : string = v1.[int v6] │
00:05:32 verbose #21941 > │ let v9 : string = v7 + v8 + v0 + "" │
00:05:32 verbose #21942 > │ let v10 : int32 = v6 + 1 │
00:05:32 verbose #21943 > │ v4.l0 <- v10 │
00:05:32 verbose #21944 > │ v4.l1 <- v9 │
00:05:32 verbose #21945 > │ () │
00:05:32 verbose #21946 > │ let v11 : string = v4.l1 │
00:05:32 verbose #21947 > │ v11 │
00:05:32 verbose #21948 > │ and closure36 () (v0 : string) : ((string []) -> string) = │
00:05:32 verbose #21949 > │ closure37(v0) │
00:05:32 verbose #21950 > │ and method2 (v0 : string) : string = │
00:05:32 verbose #21951 > │ v0 │
00:05:32 verbose #21952 > │ and closure39 (v0 : string) (v1 : string seq) : string = │
00:05:32 verbose #21953 > │ let v2 : string = method2(v0) │
00:05:32 verbose #21954 > │ let v3 : (string -> (string seq -> string)) = String.concat │
00:05:32 verbose #21955 > │ let v4 : (string seq -> string) = v3 v2 │
00:05:32 verbose #21956 > │ v4 v1 │
00:05:32 verbose #21957 > │ and closure38 () (v0 : string) : (string seq -> string) = │
00:05:32 verbose #21958 > │ closure39(v0) │
00:05:32 verbose #21959 > │ and closure41 (v0 : string) (v1 : (string [])) : string = │
00:05:32 verbose #21960 > │ let v2 : string = System.String.Join (v0, v1) │
00:05:32 verbose #21961 > │ v2 │
00:05:32 verbose #21962 > │ and closure40 () (v0 : string) : ((string []) -> string) = │
00:05:32 verbose #21963 > │ closure41(v0) │
00:05:32 verbose #21964 > │ and method3 (v0 : int32, v1 : Mut1) : bool = │
00:05:32 verbose #21965 > │ let v2 : int32 = v1.l0 │
00:05:32 verbose #21966 > │ let v3 : bool = v2 < v0 │
00:05:32 verbose #21967 > │ v3 │
00:05:32 verbose #21968 > │ and closure42 () (v0 : string) : (char []) = │
00:05:32 verbose #21969 > │ let v1 : int32 = v0.Length │
00:05:32 verbose #21970 > │ let v2 : (char []) = Array.zeroCreate<char> (v1) │
00:05:32 verbose #21971 > │ let v3 : Mut1 = {l0 = 0} : Mut1 │
00:05:32 verbose #21972 > │ while method3(v1, v3) do │
00:05:32 verbose #21973 > │ let v5 : int32 = v3.l0 │
00:05:32 verbose #21974 > │ let v6 : char = v0.[int v5] │
00:05:32 verbose #21975 > │ v2.[int v5] <- v6 │
00:05:32 verbose #21976 > │ let v7 : int32 = v5 + 1 │
00:05:32 verbose #21977 > │ v3.l0 <- v7 │
00:05:32 verbose #21978 > │ () │
00:05:32 verbose #21979 > │ v2 │
00:05:32 verbose #21980 > │ let v0 : (string -> (string -> bool)) = closure0() │
00:05:32 verbose #21981 > │ let contains x = v0 x │
00:05:32 verbose #21982 > │ let v1 : (string -> (string -> bool)) = closure2() │
00:05:32 verbose #21983 > │ let ends_with x = v1 x │
00:05:32 verbose #21984 > │ let v2 : (int32 -> (char -> (string -> string))) = closure4() │
00:05:32 verbose #21985 > │ let pad_left x = v2 x │
00:05:32 verbose #21986 > │ let v3 : (int32 -> (string -> string)) = closure7() │
00:05:32 verbose #21987 > │ let pad_right x = v3 x │
00:05:32 verbose #21988 > │ let v4 : (string -> (string -> (string -> string))) = closure9() │
00:05:32 verbose #21989 > │ let replace x = v4 x │
00:05:32 verbose #21990 > │ let v5 : (int32 -> (int32 -> (string -> string))) = closure12() │
00:05:32 verbose #21991 > │ let slice x = v5 x │
00:05:32 verbose #21992 > │ let v6 : (string -> (string -> (string []))) = closure15() │
00:05:32 verbose #21993 > │ let split x = v6 x │
00:05:32 verbose #21994 > │ let v7 : ((string []) -> (string -> (string []))) = closure17() │
00:05:32 verbose #21995 > │ let split_string x = v7 x │
00:05:32 verbose #21996 > │ let v8 : (string -> (string -> bool)) = closure19() │
00:05:32 verbose #21997 > │ let starts_with x = v8 x │
00:05:32 verbose #21998 > │ let v9 : (int32 -> (int32 -> (string -> string))) = closure21() │
00:05:32 verbose #21999 > │ let substring x = v9 x │
00:05:32 verbose #22000 > │ let v10 : (string -> string) = closure24() │
00:05:32 verbose #22001 > │ let to_lower x = v10 x │
00:05:32 verbose #22002 > │ let v11 : (string -> string) = closure25() │
00:05:32 verbose #22003 > │ let to_upper x = v11 x │
00:05:32 verbose #22004 > │ let v12 : (string -> string) = closure26() │
00:05:32 verbose #22005 > │ let trim x = v12 x │
00:05:32 verbose #22006 > │ let v13 : ((char []) -> (string -> string)) = closure27() │
00:05:32 verbose #22007 > │ let trim_end x = v13 x │
00:05:32 verbose #22008 > │ let v14 : ((char []) -> (string -> string)) = closure29() │
00:05:32 verbose #22009 > │ let trim_start x = v14 x │
00:05:32 verbose #22010 > │ let v15 : (int32 -> (string -> string)) = closure31() │
00:05:32 verbose #22011 > │ let ellipsis x = v15 x │
00:05:32 verbose #22012 > │ let v16 : (int64 -> (string -> string)) = closure33() │
00:05:32 verbose #22013 > │ let ellipsis_end x = v16 x │
00:05:32 verbose #22014 > │ let v17 : (exn -> string) = closure35() │
00:05:32 verbose #22015 > │ let format_exception x = v17 x │
00:05:32 verbose #22016 > │ let v18 : (string -> ((string []) -> string)) = closure36() │
00:05:32 verbose #22017 > │ let concat_array_trailing x = v18 x │
00:05:32 verbose #22018 > │ let v19 : (string -> (string seq -> string)) = closure38() │
00:05:32 verbose #22019 > │ let concat x = v19 x │
00:05:32 verbose #22020 > │ let v20 : (string -> ((string []) -> string)) = closure40() │
00:05:32 verbose #22021 > │ let join' x = v20 x │
00:05:32 verbose #22022 > │ let v21 : (string -> (char [])) = closure42() │
00:05:32 verbose #22023 > │ let to_char_array x = v21 x │
00:05:32 verbose #22024 > │ () │
00:05:32 verbose #22025 > │ │
00:05:32 verbose #22026 > │ │
00:05:32 verbose #22027 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 verbose #22028 > [NbConvertApp] Converting notebook sm'.dib.ipynb to html
00:05:34 verbose #22029 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:34 verbose #22030 > validate(nb)
00:05:35 verbose #22031 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:05:35 verbose #22032 > return _pygments_highlight(
00:05:36 verbose #22033 > [NbConvertApp] Writing 455530 bytes to sm'.dib.html
00:05:36 debug #22034 execute_with_options_async / exit_code: 0 / output.Length: 148097
00:05:36 debug #16 main / executeCommand / exitCode: 0
00:05:36 debug #22035 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 \"listm'.dib\" -Retries 3"", None,
None)
00:05:37 verbose #22036 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: listm'.dib / _args: [
00:05:37 verbose #22037 > "-Retries",
00:05:37 verbose #22038 > 3
00:05:37 verbose #22039 > ]
00:05:39 verbose #22040 >
00:05:39 verbose #22041 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:39 verbose #22042 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:39 verbose #22043 > │ # listm │
00:05:39 verbose #22044 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:39 verbose #22045 >
00:05:39 verbose #22046 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:39 verbose #22047 > // // test
00:05:39 verbose #22048 >
00:05:39 verbose #22049 > open testing
00:05:41 verbose #22050 > 00:05:41 debug #419 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:05:42 verbose #22051 >
00:05:42 verbose #22052 > ╭─[ 3.71s - stdout ]───────────────────────────────────────────────────────────╮
00:05:42 verbose #22053 > │ () │
00:05:42 verbose #22054 > │ │
00:05:42 verbose #22055 > │ │
00:05:42 verbose #22056 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:42 verbose #22057 >
00:05:42 verbose #22058 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:42 verbose #22059 > // // test
00:05:42 verbose #22060 >
00:05:42 verbose #22061 > prototype append t : t -> t -> t
00:05:43 verbose #22062 > 00:05:42 debug #420 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aeda9b5acd00c201218acad26f133bf627240e2c2b851bd943c633261c6cda5d/main.spi
00:05:43 verbose #22063 >
00:05:43 verbose #22064 > ╭─[ 241.92ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 verbose #22065 > │ () │
00:05:43 verbose #22066 > │ │
00:05:43 verbose #22067 > │ │
00:05:43 verbose #22068 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 verbose #22069 >
00:05:43 verbose #22070 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:43 verbose #22071 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:43 verbose #22072 > │ ## list' │
00:05:43 verbose #22073 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 verbose #22074 >
00:05:43 verbose #22075 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 verbose #22076 > nominal list' t = $'`t list'
00:05:43 verbose #22077 > 00:05:42 debug #421 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9ff28d135388d75adf2154addc90220204e93c02e0e6060e33b20f053fc54623/main.spi
00:05:43 verbose #22078 >
00:05:43 verbose #22079 > ╭─[ 235.93ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 verbose #22080 > │ () │
00:05:43 verbose #22081 > │ │
00:05:43 verbose #22082 > │ │
00:05:43 verbose #22083 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 verbose #22084 >
00:05:43 verbose #22085 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 verbose #22086 > inl empty' forall t. () : list' t =
00:05:43 verbose #22087 > $'[[]]'
00:05:43 verbose #22088 > 00:05:42 debug #422 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b3596bcd5a77ff785c961e7904c4cd79008d115f279052444ed736401c9d4b10/main.spi
00:05:43 verbose #22089 >
00:05:43 verbose #22090 > ╭─[ 239.75ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 verbose #22091 > │ () │
00:05:43 verbose #22092 > │ │
00:05:43 verbose #22093 > │ │
00:05:43 verbose #22094 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 verbose #22095 >
00:05:43 verbose #22096 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 verbose #22097 > inl cons' forall t. (head : t) (tail : list' t) : list' t =
00:05:43 verbose #22098 > $'!head :: !tail '
00:05:43 verbose #22099 > 00:05:43 debug #423 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2a95d5a65de46e44d95f9a12acb7815ef5881f2f000125cdad2648ab1abc2b13/main.spi
00:05:43 verbose #22100 >
00:05:43 verbose #22101 > ╭─[ 225.89ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 verbose #22102 > │ () │
00:05:43 verbose #22103 > │ │
00:05:43 verbose #22104 > │ │
00:05:43 verbose #22105 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 verbose #22106 >
00:05:43 verbose #22107 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:43 verbose #22108 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:43 verbose #22109 > │ ## box │
00:05:43 verbose #22110 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 verbose #22111 >
00:05:43 verbose #22112 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 verbose #22113 > inl box forall t. (list : list t) : list' t =
00:05:43 verbose #22114 > (list, empty' ())
00:05:43 verbose #22115 > ||> listm.foldBack fun x acc =>
00:05:43 verbose #22116 > acc |> cons' x
00:05:44 verbose #22117 > 00:05:43 debug #424 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/62b37334fad537c31e733fb1d2f0027994f471919c66c7929082cf02a60d72b8/main.spi
00:05:44 verbose #22118 >
00:05:44 verbose #22119 > ╭─[ 251.92ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 verbose #22120 > │ () │
00:05:44 verbose #22121 > │ │
00:05:44 verbose #22122 > │ │
00:05:44 verbose #22123 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22124 >
00:05:44 verbose #22125 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 verbose #22126 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 verbose #22127 > │ ## fold' │
00:05:44 verbose #22128 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22129 >
00:05:44 verbose #22130 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #22131 > inl fold' forall t u. (fn : t -> u) (init : list u) (list : list' t) : list u =
00:05:44 verbose #22132 > (init, list)
00:05:44 verbose #22133 > ||> $'List.fold' join fun acc x => Cons (fn x, acc)
00:05:44 verbose #22134 > 00:05:43 debug #425 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4db2310a12c52e614117f2961fb7a9a8cf9db360236aab7c2813b4db86e8b7b8/main.spi
00:05:44 verbose #22135 >
00:05:44 verbose #22136 > ╭─[ 238.12ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 verbose #22137 > │ () │
00:05:44 verbose #22138 > │ │
00:05:44 verbose #22139 > │ │
00:05:44 verbose #22140 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22141 >
00:05:44 verbose #22142 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #22143 > inl fold_back' forall t u. (fn : t -> u) (list : list' t) (init : list u) : list
00:05:44 verbose #22144 > u =
00:05:44 verbose #22145 > (list, init)
00:05:44 verbose #22146 > ||> $'List.foldBack' join fun x acc => Cons (fn x, acc)
00:05:44 verbose #22147 > 00:05:43 debug #426 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e8b470e18f3bf6bd495e0e442430ac623b29db8e8abeb25450be97274813f8c2/main.spi
00:05:44 verbose #22148 >
00:05:44 verbose #22149 > ╭─[ 290.82ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 verbose #22150 > │ () │
00:05:44 verbose #22151 > │ │
00:05:44 verbose #22152 > │ │
00:05:44 verbose #22153 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22154 >
00:05:44 verbose #22155 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 verbose #22156 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 verbose #22157 > │ ## unbox │
00:05:44 verbose #22158 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22159 >
00:05:44 verbose #22160 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #22161 > inl unbox forall t. (list : list' t) : list t =
00:05:44 verbose #22162 > (list, Nil)
00:05:44 verbose #22163 > ||> fold_back' id
00:05:44 verbose #22164 > 00:05:44 debug #427 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cb017c1a060c7b920f1bb166b836428819f5ab13e63d8b470fe2218ba1821910/main.spi
00:05:44 verbose #22165 >
00:05:44 verbose #22166 > ╭─[ 214.93ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 verbose #22167 > │ () │
00:05:44 verbose #22168 > │ │
00:05:44 verbose #22169 > │ │
00:05:44 verbose #22170 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22171 >
00:05:44 verbose #22172 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 verbose #22173 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 verbose #22174 > │ ## distinct' │
00:05:44 verbose #22175 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #22176 >
00:05:44 verbose #22177 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #22178 > inl distinct' forall t. (list : list' t) : list' t =
00:05:44 verbose #22179 > list |> $'List.distinct'
00:05:45 verbose #22180 > 00:05:44 debug #428 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7c49ae7f0a33a49f0319403b09ffa2f263a3edc60eca46f03a8cfea8db90c514/main.spi
00:05:45 verbose #22181 >
00:05:45 verbose #22182 > ╭─[ 293.32ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 verbose #22183 > │ () │
00:05:45 verbose #22184 > │ │
00:05:45 verbose #22185 > │ │
00:05:45 verbose #22186 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 verbose #22187 >
00:05:45 verbose #22188 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 verbose #22189 > // // test
00:05:45 verbose #22190 >
00:05:45 verbose #22191 > [[ "1"; "2"; "2"; "3" ]]
00:05:45 verbose #22192 > |> box
00:05:45 verbose #22193 > |> distinct'
00:05:45 verbose #22194 > |> unbox
00:05:45 verbose #22195 > |> _assert_eq [[ "1"; "2"; "3" ]]
00:05:45 verbose #22196 > 00:05:44 debug #429 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1e22247fca2dea715de731247b0c268d80dd3e7c4346d9e394a4f3c21429bd77/main.spi
00:05:46 verbose #22197 >
00:05:46 verbose #22198 > ╭─[ 1.31s - stdout ]───────────────────────────────────────────────────────────╮
00:05:46 verbose #22199 > │ type UH0 = │
00:05:46 verbose #22200 > │ | UH0_0 │
00:05:46 verbose #22201 > │ | UH0_1 of string * UH0 │
00:05:46 verbose #22202 > │ let rec closure1 (v0 : string) (v1 : UH0) : UH0 = │
00:05:46 verbose #22203 > │ UH0_1(v0, v1) │
00:05:46 verbose #22204 > │ and closure0 () (v0 : string) : (UH0 -> UH0) = │
00:05:46 verbose #22205 > │ closure1(v0) │
00:05:46 verbose #22206 > │ and method1 () : (string -> (UH0 -> UH0)) = │
00:05:46 verbose #22207 > │ closure0() │
00:05:46 verbose #22208 > │ and method2 (v0 : bool) : bool = │
00:05:46 verbose #22209 > │ v0 │
00:05:46 verbose #22210 > │ and method0 () : unit = │
00:05:46 verbose #22211 > │ let v0 : string list = [] │
00:05:46 verbose #22212 > │ let v1 : string = "3" │
00:05:46 verbose #22213 > │ let v2 : string list = v1 :: v0 │
00:05:46 verbose #22214 > │ let v3 : string = "2" │
00:05:46 verbose #22215 > │ let v4 : string list = v3 :: v2 │
00:05:46 verbose #22216 > │ let v5 : string list = v3 :: v4 │
00:05:46 verbose #22217 > │ let v6 : string = "1" │
00:05:46 verbose #22218 > │ let v7 : string list = v6 :: v5 │
00:05:46 verbose #22219 > │ let v8 : (string list -> string list) = List.distinct │
00:05:46 verbose #22220 > │ let v9 : string list = v8 v7 │
00:05:46 verbose #22221 > │ let v10 : ((string -> (UH0 -> UH0)) -> (string list -> (UH0 -> UH0))) = │
00:05:46 verbose #22222 > │ List.foldBack │
00:05:46 verbose #22223 > │ let v11 : (string -> (UH0 -> UH0)) = method1() │
00:05:46 verbose #22224 > │ let v12 : (string list -> (UH0 -> UH0)) = v10 v11 │
00:05:46 verbose #22225 > │ let v13 : (UH0 -> UH0) = v12 v9 │
00:05:46 verbose #22226 > │ let v14 : UH0 = UH0_0 │
00:05:46 verbose #22227 > │ let v15 : UH0 = v13 v14 │
00:05:46 verbose #22228 > │ let v16 : string = $"%A{v15}" │
00:05:46 verbose #22229 > │ System.Console.WriteLine v16 │
00:05:46 verbose #22230 > │ let v36 : bool = │
00:05:46 verbose #22231 > │ match v15 with │
00:05:46 verbose #22232 > │ | UH0_1(v21, v22) -> (* Cons *) │
00:05:46 verbose #22233 > │ let v23 : bool = v21 = "1" │
00:05:46 verbose #22234 > │ if v23 then │
00:05:46 verbose #22235 > │ match v22 with │
00:05:46 verbose #22236 > │ | UH0_1(v24, v25) -> (* Cons *) │
00:05:46 verbose #22237 > │ let v26 : bool = v24 = "2" │
00:05:46 verbose #22238 > │ if v26 then │
00:05:46 verbose #22239 > │ match v25 with │
00:05:46 verbose #22240 > │ | UH0_1(v27, v28) -> (* Cons *) │
00:05:46 verbose #22241 > │ let v29 : bool = v27 = "3" │
00:05:46 verbose #22242 > │ if v29 then │
00:05:46 verbose #22243 > │ match v28 with │
00:05:46 verbose #22244 > │ | UH0_0 -> (* Nil *) │
00:05:46 verbose #22245 > │ true │
00:05:46 verbose #22246 > │ | _ -> │
00:05:46 verbose #22247 > │ false │
00:05:46 verbose #22248 > │ else │
00:05:46 verbose #22249 > │ false │
00:05:46 verbose #22250 > │ | _ -> │
00:05:46 verbose #22251 > │ false │
00:05:46 verbose #22252 > │ else │
00:05:46 verbose #22253 > │ false │
00:05:46 verbose #22254 > │ | _ -> │
00:05:46 verbose #22255 > │ false │
00:05:46 verbose #22256 > │ else │
00:05:46 verbose #22257 > │ false │
00:05:46 verbose #22258 > │ | _ -> │
00:05:46 verbose #22259 > │ false │
00:05:46 verbose #22260 > │ let v38 : bool = │
00:05:46 verbose #22261 > │ if v36 then │
00:05:46 verbose #22262 > │ true │
00:05:46 verbose #22263 > │ else │
00:05:46 verbose #22264 > │ method2(v36) │
00:05:46 verbose #22265 > │ let v39 : UH0 = UH0_0 │
00:05:46 verbose #22266 > │ let v40 : UH0 = UH0_1(v1, v39) │
00:05:46 verbose #22267 > │ let v41 : UH0 = UH0_1(v3, v40) │
00:05:46 verbose #22268 > │ let v42 : UH0 = UH0_1(v6, v41) │
00:05:46 verbose #22269 > │ let v43 : string = $"__expect / actual: %A{v15} / expected: %A{v42}" │
00:05:46 verbose #22270 > │ let v44 : bool = v38 = false │
00:05:46 verbose #22271 > │ if v44 then │
00:05:46 verbose #22272 > │ failwith<unit> v43 │
00:05:46 verbose #22273 > │ method0() │
00:05:46 verbose #22274 > │ │
00:05:46 verbose #22275 > │ UH0_1 ("1", UH0_1 ("2", UH0_1 ("3", UH0_0))) │
00:05:46 verbose #22276 > │ │
00:05:46 verbose #22277 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 verbose #22278 >
00:05:46 verbose #22279 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 verbose #22280 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 verbose #22281 > │ ## append │
00:05:46 verbose #22282 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 verbose #22283 >
00:05:46 verbose #22284 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 verbose #22285 > instance append list t =
00:05:46 verbose #22286 > listm.append
00:05:46 verbose #22287 > 00:05:46 debug #430 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/45d1793251dcadef64321d531cc93fc30f10aadd790f7da1dd8a9bf9bfac0f29/main.spi
00:05:46 verbose #22288 >
00:05:46 verbose #22289 > ╭─[ 250.40ms - stdout ]────────────────────────────────────────────────────────╮
00:05:46 verbose #22290 > │ () │
00:05:46 verbose #22291 > │ │
00:05:46 verbose #22292 > │ │
00:05:46 verbose #22293 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 verbose #22294 >
00:05:46 verbose #22295 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 verbose #22296 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 verbose #22297 > │ ## /@ │
00:05:46 verbose #22298 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 verbose #22299 >
00:05:46 verbose #22300 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 verbose #22301 > inl (/@) a b =
00:05:46 verbose #22302 > b |> append a
00:05:46 verbose #22303 > 00:05:46 debug #431 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bb66479bf9ffad692a8e919ea67386b633a3169ad553e5c933271e5b5406f767/main.spi
00:05:47 verbose #22304 >
00:05:47 verbose #22305 > ╭─[ 282.60ms - stdout ]────────────────────────────────────────────────────────╮
00:05:47 verbose #22306 > │ () │
00:05:47 verbose #22307 > │ │
00:05:47 verbose #22308 > │ │
00:05:47 verbose #22309 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #22310 >
00:05:47 verbose #22311 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 verbose #22312 > // // test
00:05:47 verbose #22313 >
00:05:47 verbose #22314 > [[ "a"; "b" ]] /@ [[ "c"; "d" ]]
00:05:47 verbose #22315 > |> _assert_eq [[ "a"; "b"; "c"; "d" ]]
00:05:47 verbose #22316 > 00:05:46 debug #432 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c25808ec705d7e968f03ed98ab37d00704db2fe6cdd216518c884e01c3d86140/main.spi
00:05:47 verbose #22317 >
00:05:47 verbose #22318 > ╭─[ 306.31ms - stdout ]────────────────────────────────────────────────────────╮
00:05:47 verbose #22319 > │ type UH0 = │
00:05:47 verbose #22320 > │ | UH0_0 │
00:05:47 verbose #22321 > │ | UH0_1 of string * UH0 │
00:05:47 verbose #22322 > │ let rec method0 () : unit = │
00:05:47 verbose #22323 > │ let v0 : string = "a" │
00:05:47 verbose #22324 > │ let v1 : string = "b" │
00:05:47 verbose #22325 > │ let v2 : string = "c" │
00:05:47 verbose #22326 > │ let v3 : string = "d" │
00:05:47 verbose #22327 > │ let v4 : UH0 = UH0_0 │
00:05:47 verbose #22328 > │ let v5 : UH0 = UH0_1(v3, v4) │
00:05:47 verbose #22329 > │ let v6 : UH0 = UH0_1(v2, v5) │
00:05:47 verbose #22330 > │ let v7 : UH0 = UH0_1(v1, v6) │
00:05:47 verbose #22331 > │ let v8 : UH0 = UH0_1(v0, v7) │
00:05:47 verbose #22332 > │ let v9 : string = $"%A{v8}" │
00:05:47 verbose #22333 > │ System.Console.WriteLine v9 │
00:05:47 verbose #22334 > │ let v35 : UH0 = UH0_0 │
00:05:47 verbose #22335 > │ let v36 : UH0 = UH0_1(v3, v35) │
00:05:47 verbose #22336 > │ let v37 : UH0 = UH0_1(v2, v36) │
00:05:47 verbose #22337 > │ let v38 : UH0 = UH0_1(v1, v37) │
00:05:47 verbose #22338 > │ let v39 : UH0 = UH0_1(v0, v38) │
00:05:47 verbose #22339 > │ let v40 : UH0 = UH0_0 │
00:05:47 verbose #22340 > │ let v41 : UH0 = UH0_1(v3, v40) │
00:05:47 verbose #22341 > │ let v42 : UH0 = UH0_1(v2, v41) │
00:05:47 verbose #22342 > │ let v43 : UH0 = UH0_1(v1, v42) │
00:05:47 verbose #22343 > │ let v44 : UH0 = UH0_1(v0, v43) │
00:05:47 verbose #22344 > │ let v45 : string = $"__expect / actual: %A{v39} / expected: %A{v44}" │
00:05:47 verbose #22345 > │ () │
00:05:47 verbose #22346 > │ method0() │
00:05:47 verbose #22347 > │ │
00:05:47 verbose #22348 > │ UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", UH0_0)))) │
00:05:47 verbose #22349 > │ │
00:05:47 verbose #22350 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #22351 >
00:05:47 verbose #22352 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:47 verbose #22353 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:47 verbose #22354 > │ ## init_series │
00:05:47 verbose #22355 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #22356 >
00:05:47 verbose #22357 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 verbose #22358 > inl init_series start end inc =
00:05:47 verbose #22359 > inl total : f64 = conv ((end - start) / inc) + 1
00:05:47 verbose #22360 > listm.init total (conv >> (*) inc >> (+) start)
00:05:47 verbose #22361 > 00:05:46 debug #433 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/711b12f506e85c1243536c34fe4dc2871b458fb0eb491a26fbd3f2d0e5624ddc/main.spi
00:05:47 verbose #22362 >
00:05:47 verbose #22363 > ╭─[ 275.00ms - stdout ]────────────────────────────────────────────────────────╮
00:05:47 verbose #22364 > │ () │
00:05:47 verbose #22365 > │ │
00:05:47 verbose #22366 > │ │
00:05:47 verbose #22367 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #22368 >
00:05:47 verbose #22369 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 verbose #22370 > // // test
00:05:47 verbose #22371 >
00:05:47 verbose #22372 > init_series 0 1 0.5
00:05:47 verbose #22373 > |> _assert_eq [[ 0f64; 0.5; 1 ]]
00:05:47 verbose #22374 > 00:05:47 debug #434 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/62e640a4bd95d3e24225bd6bfc6f903fe6a8dcb18d397ced834d3d3a2277635e/main.spi
00:05:47 verbose #22375 >
00:05:47 verbose #22376 > ╭─[ 284.58ms - stdout ]────────────────────────────────────────────────────────╮
00:05:47 verbose #22377 > │ type UH0 = │
00:05:47 verbose #22378 > │ | UH0_0 │
00:05:47 verbose #22379 > │ | UH0_1 of float * UH0 │
00:05:47 verbose #22380 > │ let rec method0 () : unit = │
00:05:47 verbose #22381 > │ let v0 : UH0 = UH0_0 │
00:05:47 verbose #22382 > │ let v1 : UH0 = UH0_1(1.0, v0) │
00:05:47 verbose #22383 > │ let v2 : UH0 = UH0_1(0.5, v1) │
00:05:47 verbose #22384 > │ let v3 : UH0 = UH0_1(0.0, v2) │
00:05:47 verbose #22385 > │ let v4 : string = $"%A{v3}" │
00:05:47 verbose #22386 > │ System.Console.WriteLine v4 │
00:05:47 verbose #22387 > │ let v23 : UH0 = UH0_0 │
00:05:47 verbose #22388 > │ let v24 : UH0 = UH0_1(1.0, v23) │
00:05:47 verbose #22389 > │ let v25 : UH0 = UH0_1(0.5, v24) │
00:05:47 verbose #22390 > │ let v26 : UH0 = UH0_1(0.0, v25) │
00:05:47 verbose #22391 > │ let v27 : UH0 = UH0_0 │
00:05:47 verbose #22392 > │ let v28 : UH0 = UH0_1(1.0, v27) │
00:05:47 verbose #22393 > │ let v29 : UH0 = UH0_1(0.5, v28) │
00:05:47 verbose #22394 > │ let v30 : UH0 = UH0_1(0.0, v29) │
00:05:47 verbose #22395 > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:47 verbose #22396 > │ () │
00:05:47 verbose #22397 > │ method0() │
00:05:47 verbose #22398 > │ │
00:05:47 verbose #22399 > │ UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) │
00:05:47 verbose #22400 > │ │
00:05:47 verbose #22401 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #22402 >
00:05:47 verbose #22403 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:47 verbose #22404 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:47 verbose #22405 > │ ## try_item │
00:05:47 verbose #22406 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #22407 >
00:05:47 verbose #22408 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 verbose #22409 > inl rec try_item i = function
00:05:47 verbose #22410 > | Cons (x, _) when i = 0 => Some x
00:05:47 verbose #22411 > | Cons (_, xs) => try_item (i - 1) xs
00:05:47 verbose #22412 > | Nil => None
00:05:48 verbose #22413 > 00:05:47 debug #435 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5b6a10907da3b4e7f41441fedd07cfe5e82b52d52c150e4e4a26ea47f80cd6ba/main.spi
00:05:48 verbose #22414 >
00:05:48 verbose #22415 > ╭─[ 235.06ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 verbose #22416 > │ () │
00:05:48 verbose #22417 > │ │
00:05:48 verbose #22418 > │ │
00:05:48 verbose #22419 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 verbose #22420 >
00:05:48 verbose #22421 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 verbose #22422 > // // test
00:05:48 verbose #22423 >
00:05:48 verbose #22424 > listm.init 10i32 id
00:05:48 verbose #22425 > |> try_item 9i32
00:05:48 verbose #22426 > |> _assert_eq (Some 9)
00:05:48 verbose #22427 > 00:05:47 debug #436 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/136310e76813e594edbf0b286447e6a67334345d80ddb51bd3002b48953bbe93/main.spi
00:05:48 verbose #22428 >
00:05:48 verbose #22429 > ╭─[ 326.86ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 verbose #22430 > │ type [<Struct>] US0 = │
00:05:48 verbose #22431 > │ | US0_0 of f0_0 : int32 │
00:05:48 verbose #22432 > │ | US0_1 │
00:05:48 verbose #22433 > │ let rec method0 () : unit = │
00:05:48 verbose #22434 > │ let v0 : US0 = US0_0(9) │
00:05:48 verbose #22435 > │ let v1 : string = $"%A{v0}" │
00:05:48 verbose #22436 > │ System.Console.WriteLine v1 │
00:05:48 verbose #22437 > │ let v5 : US0 = US0_0(9) │
00:05:48 verbose #22438 > │ let v6 : US0 = US0_0(9) │
00:05:48 verbose #22439 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:48 verbose #22440 > │ () │
00:05:48 verbose #22441 > │ method0() │
00:05:48 verbose #22442 > │ │
00:05:48 verbose #22443 > │ US0_0 9 │
00:05:48 verbose #22444 > │ │
00:05:48 verbose #22445 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 verbose #22446 >
00:05:48 verbose #22447 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 verbose #22448 > // // test
00:05:48 verbose #22449 >
00:05:48 verbose #22450 > listm.init 10i32 id
00:05:48 verbose #22451 > |> try_item 10i32
00:05:48 verbose #22452 > |> _assert_eq None
00:05:48 verbose #22453 > 00:05:48 debug #437 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/51562c7cb1d2058e5c66de24e0f3f0438f7c9a2feddaf22310c5b1f9908f701c/main.spi
00:05:48 verbose #22454 >
00:05:48 verbose #22455 > ╭─[ 252.18ms - stdout ]────────────────────────────────────────────────────────╮
00:05:48 verbose #22456 > │ type [<Struct>] US0 = │
00:05:48 verbose #22457 > │ | US0_0 of f0_0 : int32 │
00:05:48 verbose #22458 > │ | US0_1 │
00:05:48 verbose #22459 > │ let rec method0 () : unit = │
00:05:48 verbose #22460 > │ let v0 : US0 = US0_1 │
00:05:48 verbose #22461 > │ let v1 : string = $"%A{v0}" │
00:05:48 verbose #22462 > │ System.Console.WriteLine v1 │
00:05:48 verbose #22463 > │ let v5 : US0 = US0_1 │
00:05:48 verbose #22464 > │ let v6 : US0 = US0_1 │
00:05:48 verbose #22465 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:48 verbose #22466 > │ () │
00:05:48 verbose #22467 > │ method0() │
00:05:48 verbose #22468 > │ │
00:05:48 verbose #22469 > │ US0_1 │
00:05:48 verbose #22470 > │ │
00:05:48 verbose #22471 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 verbose #22472 >
00:05:48 verbose #22473 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:48 verbose #22474 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:48 verbose #22475 > │ ## list_item │
00:05:48 verbose #22476 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 verbose #22477 >
00:05:48 verbose #22478 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 verbose #22479 > inl item i =
00:05:48 verbose #22480 > try_item i >> optionm.value
00:05:48 verbose #22481 > 00:05:48 debug #438 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1ad775443b4cc80db8fc20014e9c35244cc8a255e247c591b095cc8e370aee6d/main.spi
00:05:49 verbose #22482 >
00:05:49 verbose #22483 > ╭─[ 228.99ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 verbose #22484 > │ () │
00:05:49 verbose #22485 > │ │
00:05:49 verbose #22486 > │ │
00:05:49 verbose #22487 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 verbose #22488 >
00:05:49 verbose #22489 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 verbose #22490 > // // test
00:05:49 verbose #22491 >
00:05:49 verbose #22492 > listm.init 10i32 id
00:05:49 verbose #22493 > |> item 9i32
00:05:49 verbose #22494 > |> _assert_eq 9
00:05:49 verbose #22495 > 00:05:48 debug #439 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eb84644a8d8d758200049dee4254fc20e3261b68b0fbaf92b19bb67e54dd25ef/main.spi
00:05:49 verbose #22496 >
00:05:49 verbose #22497 > ╭─[ 279.79ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 verbose #22498 > │ let rec method0 () : unit = │
00:05:49 verbose #22499 > │ let v0 : string = $"%A{9}" │
00:05:49 verbose #22500 > │ System.Console.WriteLine v0 │
00:05:49 verbose #22501 > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:05:49 verbose #22502 > │ () │
00:05:49 verbose #22503 > │ method0() │
00:05:49 verbose #22504 > │ │
00:05:49 verbose #22505 > │ 9 │
00:05:49 verbose #22506 > │ │
00:05:49 verbose #22507 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 verbose #22508 >
00:05:49 verbose #22509 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 verbose #22510 > // // test
00:05:49 verbose #22511 >
00:05:49 verbose #22512 > fun () =>
00:05:49 verbose #22513 > listm.init 10i32 id
00:05:49 verbose #22514 > |> item 10i32
00:05:49 verbose #22515 > |> ignore
00:05:49 verbose #22516 > |> _throws
00:05:49 verbose #22517 > |> optionm.map sm'.format_exception
00:05:49 verbose #22518 > |> _assert_eq (Some "System.Exception: Option does not have a value.")
00:05:49 verbose #22519 > 00:05:48 debug #440 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/19d2db328f951df4f5c85f2bd955b7929ea4f49553f24806d9a1aa88062f3114/main.spi
00:05:49 verbose #22520 >
00:05:49 verbose #22521 > ╭─[ 374.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 verbose #22522 > │ type [<Struct>] US0 = │
00:05:49 verbose #22523 > │ | US0_0 of f0_0 : exn │
00:05:49 verbose #22524 > │ | US0_1 │
00:05:49 verbose #22525 > │ and [<Struct>] US1 = │
00:05:49 verbose #22526 > │ | US1_0 of f0_0 : string │
00:05:49 verbose #22527 > │ | US1_1 │
00:05:49 verbose #22528 > │ let rec closure0 () () : unit = │
00:05:49 verbose #22529 > │ let v0 : int32 = failwith<int32> "Option does not have a value." │
00:05:49 verbose #22530 > │ () │
00:05:49 verbose #22531 > │ and closure1 () (v0 : exn) : US0 = │
00:05:49 verbose #22532 > │ US0_0(v0) │
00:05:49 verbose #22533 > │ and method1 (v0 : bool) : bool = │
00:05:49 verbose #22534 > │ v0 │
00:05:49 verbose #22535 > │ and method0 () : unit = │
00:05:49 verbose #22536 > │ let v0 : (unit -> unit) = closure0() │
00:05:49 verbose #22537 > │ let v1 : US0 = US0_1 │
00:05:49 verbose #22538 > │ let v2 : (exn -> US0) = closure1() │
00:05:49 verbose #22539 > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:05:49 verbose #22540 > │ let v17 : US1 = │
00:05:49 verbose #22541 > │ match v3 with │
00:05:49 verbose #22542 > │ | US0_1 -> (* None *) │
00:05:49 verbose #22543 > │ US1_1 │
00:05:49 verbose #22544 > │ | US0_0(v4) -> (* Some *) │
00:05:49 verbose #22545 > │ let v5 : string option = None │
00:05:49 verbose #22546 > │ let v6 : bool = true in let mutable _v5 = v5 │
00:05:49 verbose #22547 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:49 verbose #22548 > │ let v7 : string = $"%A{v4}" │
00:05:49 verbose #22549 > │ v7 │
00:05:49 verbose #22550 > │ #endif │
00:05:49 verbose #22551 > │ #if FABLE_COMPILER_RUST && WASM │
00:05:49 verbose #22552 > │ let v8 : string = $"%A{v4}" │
00:05:49 verbose #22553 > │ v8 │
00:05:49 verbose #22554 > │ #endif │
00:05:49 verbose #22555 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:49 verbose #22556 > │ let v9 : string = $"%A{v4}" │
00:05:49 verbose #22557 > │ v9 │
00:05:49 verbose #22558 > │ #endif │
00:05:49 verbose #22559 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:49 verbose #22560 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:49 verbose #22561 > │ let v10 : string = $"{v4.GetType ()}: {v4.Message}" │
00:05:49 verbose #22562 > │ v10 │
00:05:49 verbose #22563 > │ #endif │
00:05:49 verbose #22564 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:49 verbose #22565 > │ let v11 : string = $"%A{v4}" │
00:05:49 verbose #22566 > │ v11 │
00:05:49 verbose #22567 > │ #endif │
00:05:49 verbose #22568 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:49 verbose #22569 > │ FABLE_COMPILER_DART │
00:05:49 verbose #22570 > │ let v12 : string = Unchecked.defaultof<string> │
00:05:49 verbose #22571 > │ v12 │
00:05:49 verbose #22572 > │ #endif │
00:05:49 verbose #22573 > │ |> fun x -> _v5 <- Some x │
00:05:49 verbose #22574 > │ let v13 : string = _v5.Value │
00:05:49 verbose #22575 > │ US1_0(v13) │
00:05:49 verbose #22576 > │ let v18 : string = $"%A{v17}" │
00:05:49 verbose #22577 > │ System.Console.WriteLine v18 │
00:05:49 verbose #22578 > │ let v23 : bool = │
00:05:49 verbose #22579 > │ match v17 with │
00:05:49 verbose #22580 > │ | US1_0(v21) -> (* Some *) │
00:05:49 verbose #22581 > │ let v22 : bool = v21 = "System.Exception: Option does not have a │
00:05:49 verbose #22582 > │ value." │
00:05:49 verbose #22583 > │ v22 │
00:05:49 verbose #22584 > │ | _ -> │
00:05:49 verbose #22585 > │ false │
00:05:49 verbose #22586 > │ let v25 : bool = │
00:05:49 verbose #22587 > │ if v23 then │
00:05:49 verbose #22588 > │ true │
00:05:49 verbose #22589 > │ else │
00:05:49 verbose #22590 > │ method1(v23) │
00:05:49 verbose #22591 > │ let v26 : string = "System.Exception: Option does not have a value." │
00:05:49 verbose #22592 > │ let v27 : US1 = US1_0(v26) │
00:05:49 verbose #22593 > │ let v28 : string = $"__expect / actual: %A{v17} / expected: %A{v27}" │
00:05:49 verbose #22594 > │ let v29 : bool = v25 = false │
00:05:49 verbose #22595 > │ if v29 then │
00:05:49 verbose #22596 > │ failwith<unit> v28 │
00:05:49 verbose #22597 > │ method0() │
00:05:49 verbose #22598 > │ │
00:05:49 verbose #22599 > │ US1_0 "System.Exception: Option does not have a value." │
00:05:49 verbose #22600 > │ │
00:05:49 verbose #22601 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 verbose #22602 >
00:05:49 verbose #22603 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:49 verbose #22604 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:49 verbose #22605 > │ ## try_item_ │
00:05:49 verbose #22606 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 verbose #22607 >
00:05:49 verbose #22608 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 verbose #22609 > let rec try_item_ i = function
00:05:49 verbose #22610 > | Cons (x, _) when i = 0 => Some x
00:05:49 verbose #22611 > | Cons (_, xs) => try_item_ (i - 1) xs
00:05:49 verbose #22612 > | Nil => None
00:05:49 verbose #22613 > 00:05:49 debug #441 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0eefd27acfbfc059b679a051bea8634768c43d09ab181765de9d0c12b50d7768/main.spi
00:05:49 verbose #22614 >
00:05:49 verbose #22615 > ╭─[ 240.35ms - stdout ]────────────────────────────────────────────────────────╮
00:05:49 verbose #22616 > │ () │
00:05:49 verbose #22617 > │ │
00:05:49 verbose #22618 > │ │
00:05:49 verbose #22619 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 verbose #22620 >
00:05:49 verbose #22621 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:49 verbose #22622 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:49 verbose #22623 > │ ## item_ │
00:05:49 verbose #22624 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:49 verbose #22625 >
00:05:49 verbose #22626 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:49 verbose #22627 > inl item_ i =
00:05:49 verbose #22628 > try_item_ i >> optionm.value
00:05:50 verbose #22629 > 00:05:49 debug #442 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3d146fa163da601f1ba4d05c3926b50ba8ae524b301d53da8ca1bc9d6c0dcb51/main.spi
00:05:50 verbose #22630 >
00:05:50 verbose #22631 > ╭─[ 198.43ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 verbose #22632 > │ () │
00:05:50 verbose #22633 > │ │
00:05:50 verbose #22634 > │ │
00:05:50 verbose #22635 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #22636 >
00:05:50 verbose #22637 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #22638 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #22639 > │ ## sum │
00:05:50 verbose #22640 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #22641 >
00:05:50 verbose #22642 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #22643 > inl sum list =
00:05:50 verbose #22644 > list |> listm.fold (+) 0
00:05:50 verbose #22645 > 00:05:49 debug #443 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/07ab44177aefbecf280be8b8ce5e307c4fcc78b9104c597d0f48e391ecf87b84/main.spi
00:05:50 verbose #22646 >
00:05:50 verbose #22647 > ╭─[ 248.79ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 verbose #22648 > │ () │
00:05:50 verbose #22649 > │ │
00:05:50 verbose #22650 > │ │
00:05:50 verbose #22651 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #22652 >
00:05:50 verbose #22653 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #22654 > // // test
00:05:50 verbose #22655 >
00:05:50 verbose #22656 > listm.init 10i32 id
00:05:50 verbose #22657 > |> sum
00:05:50 verbose #22658 > |> _assert_eq 45
00:05:50 verbose #22659 > 00:05:49 debug #444 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8320d408360d7245627906a9fce69c1ae9261e9135dc0a21958c731936a2f713/main.spi
00:05:50 verbose #22660 >
00:05:50 verbose #22661 > ╭─[ 295.57ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 verbose #22662 > │ let rec method0 () : unit = │
00:05:50 verbose #22663 > │ let v0 : string = $"%A{45}" │
00:05:50 verbose #22664 > │ System.Console.WriteLine v0 │
00:05:50 verbose #22665 > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:50 verbose #22666 > │ () │
00:05:50 verbose #22667 > │ method0() │
00:05:50 verbose #22668 > │ │
00:05:50 verbose #22669 > │ 45 │
00:05:50 verbose #22670 > │ │
00:05:50 verbose #22671 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #22672 >
00:05:50 verbose #22673 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #22674 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #22675 > │ ## unzip │
00:05:50 verbose #22676 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #22677 >
00:05:50 verbose #22678 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #22679 > inl unzip list =
00:05:50 verbose #22680 > (([[]], [[]]), list)
00:05:50 verbose #22681 > ||> listm.fold fun (acc_x, acc_y) (x, y) =>
00:05:50 verbose #22682 > x :: acc_x, y :: acc_y
00:05:50 verbose #22683 > |> fun x, y =>
00:05:50 verbose #22684 > x |> listm.rev, y |> listm.rev
00:05:50 verbose #22685 > 00:05:50 debug #445 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a37a95a541cad82dbe9e38d3553498c8f3da796f02cf1c88a8f0760a6276dc78/main.spi
00:05:50 verbose #22686 >
00:05:50 verbose #22687 > ╭─[ 242.86ms - stdout ]────────────────────────────────────────────────────────╮
00:05:50 verbose #22688 > │ () │
00:05:50 verbose #22689 > │ │
00:05:50 verbose #22690 > │ │
00:05:50 verbose #22691 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #22692 >
00:05:50 verbose #22693 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #22694 > // // test
00:05:50 verbose #22695 >
00:05:50 verbose #22696 > listm.init 10i32 id
00:05:50 verbose #22697 > |> listm.map (fun x => x, x)
00:05:50 verbose #22698 > |> unzip
00:05:50 verbose #22699 > |> fun x, y =>
00:05:50 verbose #22700 > x |> sum
00:05:50 verbose #22701 > |> _assert_eq 45
00:05:50 verbose #22702 >
00:05:50 verbose #22703 > y |> sum
00:05:50 verbose #22704 > |> _assert_eq 45
00:05:51 verbose #22705 > 00:05:50 debug #446 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3d03b2162e37844bb72e8aebdaea7e76fb952dd1a81773f99afa7f3f24083da3/main.spi
00:05:51 verbose #22706 >
00:05:51 verbose #22707 > ╭─[ 269.12ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 verbose #22708 > │ let rec method0 () : unit = │
00:05:51 verbose #22709 > │ let v0 : string = $"%A{45}" │
00:05:51 verbose #22710 > │ System.Console.WriteLine v0 │
00:05:51 verbose #22711 > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:51 verbose #22712 > │ let v2 : string = $"%A{45}" │
00:05:51 verbose #22713 > │ System.Console.WriteLine v2 │
00:05:51 verbose #22714 > │ let v3 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:51 verbose #22715 > │ () │
00:05:51 verbose #22716 > │ method0() │
00:05:51 verbose #22717 > │ │
00:05:51 verbose #22718 > │ 45 │
00:05:51 verbose #22719 > │ 45 │
00:05:51 verbose #22720 > │ │
00:05:51 verbose #22721 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #22722 >
00:05:51 verbose #22723 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #22724 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #22725 > │ ## try_index_of │
00:05:51 verbose #22726 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #22727 >
00:05:51 verbose #22728 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #22729 > inl try_index_of item list =
00:05:51 verbose #22730 > inl rec loop i = function
00:05:51 verbose #22731 > | [[]] => None
00:05:51 verbose #22732 > | x :: xs =>
00:05:51 verbose #22733 > if x = item
00:05:51 verbose #22734 > then Some i
00:05:51 verbose #22735 > else loop (i + 1) xs
00:05:51 verbose #22736 > loop 0 list
00:05:51 verbose #22737 >
00:05:51 verbose #22738 > inl index_of item =
00:05:51 verbose #22739 > try_index_of item >> optionm.value
00:05:51 verbose #22740 >
00:05:51 verbose #22741 > inl try_index_of_ item list =
00:05:51 verbose #22742 > let rec loop i = function
00:05:51 verbose #22743 > | [[]] => None
00:05:51 verbose #22744 > | x :: xs =>
00:05:51 verbose #22745 > if x = item
00:05:51 verbose #22746 > then Some i
00:05:51 verbose #22747 > else loop (i + 1) xs
00:05:51 verbose #22748 > loop 0 list
00:05:51 verbose #22749 >
00:05:51 verbose #22750 > inl index_of_ item =
00:05:51 verbose #22751 > try_index_of_ item >> optionm.value
00:05:51 verbose #22752 >
00:05:51 verbose #22753 > inl try_index_of__ item list =
00:05:51 verbose #22754 > inl i = mut 0
00:05:51 verbose #22755 > inl list = mut list
00:05:51 verbose #22756 > inl result = mut None
00:05:51 verbose #22757 > let rec loop () =
00:05:51 verbose #22758 > match *list with
00:05:51 verbose #22759 > | [[]] => result <- None
00:05:51 verbose #22760 > | x :: xs =>
00:05:51 verbose #22761 > if x = item
00:05:51 verbose #22762 > then result <- Some *i
00:05:51 verbose #22763 > else
00:05:51 verbose #22764 > i <- *i + 1
00:05:51 verbose #22765 > list <- xs
00:05:51 verbose #22766 > loop ()
00:05:51 verbose #22767 > loop ()
00:05:51 verbose #22768 > *result
00:05:51 verbose #22769 >
00:05:51 verbose #22770 > inl index_of__ item =
00:05:51 verbose #22771 > try_index_of__ item >> optionm.value
00:05:51 verbose #22772 > 00:05:50 debug #447 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a3748b839026e05343b56e850c575cbbf1d829635a39700cd541fdd246791eb1/main.spi
00:05:51 verbose #22773 >
00:05:51 verbose #22774 > ╭─[ 235.81ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 verbose #22775 > │ () │
00:05:51 verbose #22776 > │ │
00:05:51 verbose #22777 > │ │
00:05:51 verbose #22778 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #22779 >
00:05:51 verbose #22780 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #22781 > // // test
00:05:51 verbose #22782 >
00:05:51 verbose #22783 > listm.init 10i32 id
00:05:51 verbose #22784 > |> index_of 5i32
00:05:51 verbose #22785 > |> _assert_eq 5i32
00:05:51 verbose #22786 > 00:05:51 debug #448 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e875d9c80494bfefd246409465958e0185ec32ae5edd46d157d4d3b022067c06/main.spi
00:05:51 verbose #22787 >
00:05:51 verbose #22788 > ╭─[ 307.67ms - stdout ]────────────────────────────────────────────────────────╮
00:05:51 verbose #22789 > │ let rec method0 () : unit = │
00:05:51 verbose #22790 > │ let v0 : string = $"%A{5}" │
00:05:51 verbose #22791 > │ System.Console.WriteLine v0 │
00:05:51 verbose #22792 > │ let v1 : string = $"__expect / actual: %A{5} / expected: %A{5}" │
00:05:51 verbose #22793 > │ () │
00:05:51 verbose #22794 > │ method0() │
00:05:51 verbose #22795 > │ │
00:05:51 verbose #22796 > │ 5 │
00:05:51 verbose #22797 > │ │
00:05:51 verbose #22798 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #22799 >
00:05:51 verbose #22800 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #22801 > // // test
00:05:51 verbose #22802 >
00:05:51 verbose #22803 > listm.init 10i32 id
00:05:51 verbose #22804 > |> try_index_of 10i32
00:05:51 verbose #22805 > |> _assert_eq (None : option i32)
00:05:51 verbose #22806 > 00:05:51 debug #449 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/385275074dfe6b829bcdafb5ae2e67182da4d0ca4b6e18aaf5ff4a3ea3d92c11/main.spi
00:05:52 verbose #22807 >
00:05:52 verbose #22808 > ╭─[ 297.77ms - stdout ]────────────────────────────────────────────────────────╮
00:05:52 verbose #22809 > │ type [<Struct>] US0 = │
00:05:52 verbose #22810 > │ | US0_0 of f0_0 : int32 │
00:05:52 verbose #22811 > │ | US0_1 │
00:05:52 verbose #22812 > │ let rec method0 () : unit = │
00:05:52 verbose #22813 > │ let v0 : US0 = US0_1 │
00:05:52 verbose #22814 > │ let v1 : string = $"%A{v0}" │
00:05:52 verbose #22815 > │ System.Console.WriteLine v1 │
00:05:52 verbose #22816 > │ let v5 : US0 = US0_1 │
00:05:52 verbose #22817 > │ let v6 : US0 = US0_1 │
00:05:52 verbose #22818 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:52 verbose #22819 > │ () │
00:05:52 verbose #22820 > │ method0() │
00:05:52 verbose #22821 > │ │
00:05:52 verbose #22822 > │ US0_1 │
00:05:52 verbose #22823 > │ │
00:05:52 verbose #22824 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 verbose #22825 >
00:05:52 verbose #22826 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:52 verbose #22827 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:52 verbose #22828 > │ ## try_find │
00:05:52 verbose #22829 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 verbose #22830 >
00:05:52 verbose #22831 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 verbose #22832 > inl try_find fn list =
00:05:52 verbose #22833 > inl rec loop = function
00:05:52 verbose #22834 > | [[]] => None
00:05:52 verbose #22835 > | x :: xs =>
00:05:52 verbose #22836 > if fn x
00:05:52 verbose #22837 > then Some x
00:05:52 verbose #22838 > else loop xs
00:05:52 verbose #22839 > loop list
00:05:52 verbose #22840 >
00:05:52 verbose #22841 > inl try_find_ fn list =
00:05:52 verbose #22842 > let rec loop = function
00:05:52 verbose #22843 > | [[]] => None
00:05:52 verbose #22844 > | x :: xs =>
00:05:52 verbose #22845 > if fn x
00:05:52 verbose #22846 > then Some x
00:05:52 verbose #22847 > else loop xs
00:05:52 verbose #22848 > loop list
00:05:52 verbose #22849 > 00:05:51 debug #450 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/41d5ad9925cd1d9301925c940a9411d99dd68ffae0d6d4cc8d081cd697d4c6da/main.spi
00:05:52 verbose #22850 >
00:05:52 verbose #22851 > ╭─[ 219.33ms - stdout ]────────────────────────────────────────────────────────╮
00:05:52 verbose #22852 > │ () │
00:05:52 verbose #22853 > │ │
00:05:52 verbose #22854 > │ │
00:05:52 verbose #22855 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 verbose #22856 >
00:05:52 verbose #22857 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 verbose #22858 > // // test
00:05:52 verbose #22859 >
00:05:52 verbose #22860 > listm.init 10i32 id
00:05:52 verbose #22861 > |> try_find ((=) 5i32)
00:05:52 verbose #22862 > |> _assert_eq (Some 5i32)
00:05:52 verbose #22863 > 00:05:51 debug #451 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/44155e76aa0cabab94d313b7388ae4f18f8da25941b6bc9076e5e74a839da3d3/main.spi
00:05:52 verbose #22864 >
00:05:52 verbose #22865 > ╭─[ 290.17ms - stdout ]────────────────────────────────────────────────────────╮
00:05:52 verbose #22866 > │ type [<Struct>] US0 = │
00:05:52 verbose #22867 > │ | US0_0 of f0_0 : int32 │
00:05:52 verbose #22868 > │ | US0_1 │
00:05:52 verbose #22869 > │ let rec method0 () : unit = │
00:05:52 verbose #22870 > │ let v0 : US0 = US0_0(5) │
00:05:52 verbose #22871 > │ let v1 : string = $"%A{v0}" │
00:05:52 verbose #22872 > │ System.Console.WriteLine v1 │
00:05:52 verbose #22873 > │ let v5 : US0 = US0_0(5) │
00:05:52 verbose #22874 > │ let v6 : US0 = US0_0(5) │
00:05:52 verbose #22875 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:52 verbose #22876 > │ () │
00:05:52 verbose #22877 > │ method0() │
00:05:52 verbose #22878 > │ │
00:05:52 verbose #22879 > │ US0_0 5 │
00:05:52 verbose #22880 > │ │
00:05:52 verbose #22881 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 verbose #22882 >
00:05:52 verbose #22883 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 verbose #22884 > inl find x =
00:05:52 verbose #22885 > try_find x >> optionm.value
00:05:52 verbose #22886 >
00:05:52 verbose #22887 > inl find_ x =
00:05:52 verbose #22888 > try_find_ x >> optionm.value
00:05:52 verbose #22889 > 00:05:52 debug #452 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1560e75e6f15b72be86454f6e2a9aa3b649b360ba4e0d9c1331416cc74aeb940/main.spi
00:05:52 verbose #22890 >
00:05:52 verbose #22891 > ╭─[ 229.51ms - stdout ]────────────────────────────────────────────────────────╮
00:05:52 verbose #22892 > │ () │
00:05:52 verbose #22893 > │ │
00:05:52 verbose #22894 > │ │
00:05:52 verbose #22895 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 verbose #22896 >
00:05:52 verbose #22897 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 verbose #22898 > // // test
00:05:52 verbose #22899 >
00:05:52 verbose #22900 > listm.init 10i32 id
00:05:52 verbose #22901 > |> find ((=) 5i32)
00:05:52 verbose #22902 > |> _assert_eq 5i32
00:05:53 verbose #22903 > 00:05:52 debug #453 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e0861a34dd853823133feb496f8055edb5aa89a1139735e8d8633d25090ad74a/main.spi
00:05:53 verbose #22904 >
00:05:53 verbose #22905 > ╭─[ 280.72ms - stdout ]────────────────────────────────────────────────────────╮
00:05:53 verbose #22906 > │ let rec method0 () : unit = │
00:05:53 verbose #22907 > │ let v0 : string = $"%A{5}" │
00:05:53 verbose #22908 > │ System.Console.WriteLine v0 │
00:05:53 verbose #22909 > │ let v1 : string = $"__expect / actual: %A{5} / expected: %A{5}" │
00:05:53 verbose #22910 > │ () │
00:05:53 verbose #22911 > │ method0() │
00:05:53 verbose #22912 > │ │
00:05:53 verbose #22913 > │ 5 │
00:05:53 verbose #22914 > │ │
00:05:53 verbose #22915 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 verbose #22916 >
00:05:53 verbose #22917 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:53 verbose #22918 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:53 verbose #22919 > │ ## choose │
00:05:53 verbose #22920 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 verbose #22921 >
00:05:53 verbose #22922 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 verbose #22923 > inl choose f l =
00:05:53 verbose #22924 > (l, [[]])
00:05:53 verbose #22925 > ||> listm.foldBack fun x acc =>
00:05:53 verbose #22926 > match f x with
00:05:53 verbose #22927 > | Some y => y :: acc
00:05:53 verbose #22928 > | None => acc
00:05:53 verbose #22929 > 00:05:52 debug #454 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4798ef476421ca6d9bdacabb4f8ba7234ec5eb119e1c439228bb04e000d9b033/main.spi
00:05:53 verbose #22930 >
00:05:53 verbose #22931 > ╭─[ 214.92ms - stdout ]────────────────────────────────────────────────────────╮
00:05:53 verbose #22932 > │ () │
00:05:53 verbose #22933 > │ │
00:05:53 verbose #22934 > │ │
00:05:53 verbose #22935 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 verbose #22936 >
00:05:53 verbose #22937 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 verbose #22938 > // // test
00:05:53 verbose #22939 >
00:05:53 verbose #22940 > listm.init 10i32 id
00:05:53 verbose #22941 > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:05:53 verbose #22942 > |> _assert_eq [[ 0; 2; 4; 6; 8 ]]
00:05:53 verbose #22943 > 00:05:52 debug #455 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8ba20d8c6c51524864639f6bb980cab8ab18b20a90dc1249feb91527b72d857d/main.spi
00:05:53 verbose #22944 >
00:05:53 verbose #22945 > ╭─[ 507.16ms - stdout ]────────────────────────────────────────────────────────╮
00:05:53 verbose #22946 > │ type UH0 = │
00:05:53 verbose #22947 > │ | UH0_0 │
00:05:53 verbose #22948 > │ | UH0_1 of int32 * UH0 │
00:05:53 verbose #22949 > │ let rec method0 () : unit = │
00:05:53 verbose #22950 > │ let v0 : UH0 = UH0_0 │
00:05:53 verbose #22951 > │ let v1 : UH0 = UH0_1(8, v0) │
00:05:53 verbose #22952 > │ let v2 : UH0 = UH0_1(6, v1) │
00:05:53 verbose #22953 > │ let v3 : UH0 = UH0_1(4, v2) │
00:05:53 verbose #22954 > │ let v4 : UH0 = UH0_1(2, v3) │
00:05:53 verbose #22955 > │ let v5 : UH0 = UH0_1(0, v4) │
00:05:53 verbose #22956 > │ let v6 : string = $"%A{v5}" │
00:05:53 verbose #22957 > │ System.Console.WriteLine v6 │
00:05:53 verbose #22958 > │ let v40 : UH0 = UH0_0 │
00:05:53 verbose #22959 > │ let v41 : UH0 = UH0_1(8, v40) │
00:05:53 verbose #22960 > │ let v42 : UH0 = UH0_1(6, v41) │
00:05:53 verbose #22961 > │ let v43 : UH0 = UH0_1(4, v42) │
00:05:53 verbose #22962 > │ let v44 : UH0 = UH0_1(2, v43) │
00:05:53 verbose #22963 > │ let v45 : UH0 = UH0_1(0, v44) │
00:05:53 verbose #22964 > │ let v46 : UH0 = UH0_0 │
00:05:53 verbose #22965 > │ let v47 : UH0 = UH0_1(8, v46) │
00:05:53 verbose #22966 > │ let v48 : UH0 = UH0_1(6, v47) │
00:05:53 verbose #22967 > │ let v49 : UH0 = UH0_1(4, v48) │
00:05:53 verbose #22968 > │ let v50 : UH0 = UH0_1(2, v49) │
00:05:53 verbose #22969 > │ let v51 : UH0 = UH0_1(0, v50) │
00:05:53 verbose #22970 > │ let v52 : string = $"__expect / actual: %A{v45} / expected: %A{v51}" │
00:05:53 verbose #22971 > │ () │
00:05:53 verbose #22972 > │ method0() │
00:05:53 verbose #22973 > │ │
00:05:53 verbose #22974 > │ UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))) │
00:05:53 verbose #22975 > │ │
00:05:53 verbose #22976 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 verbose #22977 >
00:05:53 verbose #22978 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:53 verbose #22979 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:53 verbose #22980 > │ ## zip_with │
00:05:53 verbose #22981 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:53 verbose #22982 >
00:05:53 verbose #22983 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 verbose #22984 > inl zip_with fn xs ys =
00:05:53 verbose #22985 > inl rec loop acc xs ys =
00:05:53 verbose #22986 > match xs, ys with
00:05:53 verbose #22987 > | Cons (x, xs), Cons (y, ys) =>
00:05:53 verbose #22988 > loop (fn x y :: acc) xs ys
00:05:53 verbose #22989 > | _ => listm.rev acc
00:05:53 verbose #22990 > loop [[]] xs ys
00:05:53 verbose #22991 >
00:05:53 verbose #22992 > inl zip_with_ fn xs ys =
00:05:53 verbose #22993 > let rec loop acc xs ys =
00:05:53 verbose #22994 > match xs, ys with
00:05:53 verbose #22995 > | Cons (x, xs), Cons (y, ys) =>
00:05:53 verbose #22996 > loop (fn x y :: acc) xs ys
00:05:53 verbose #22997 > | _ => listm.rev acc
00:05:53 verbose #22998 > loop [[]] xs ys
00:05:54 verbose #22999 > 00:05:53 debug #456 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d56423d2827056710263583d12d96824c5f66222ba788f73e8ca2f24fa777fde/main.spi
00:05:54 verbose #23000 >
00:05:54 verbose #23001 > ╭─[ 219.89ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 verbose #23002 > │ () │
00:05:54 verbose #23003 > │ │
00:05:54 verbose #23004 > │ │
00:05:54 verbose #23005 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #23006 >
00:05:54 verbose #23007 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 verbose #23008 > // // test
00:05:54 verbose #23009 >
00:05:54 verbose #23010 > ([[ 1i32; 2; 3 ]], [[ 4; 5; 6 ]])
00:05:54 verbose #23011 > ||> zip_with (+)
00:05:54 verbose #23012 > |> _assert_eq [[ 5; 7; 9 ]]
00:05:54 verbose #23013 > 00:05:53 debug #457 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5bc682573e8dc519ba24e17ec52fcd1760c79377cc08f1ce2d624c722a295bb1/main.spi
00:05:54 verbose #23014 >
00:05:54 verbose #23015 > ╭─[ 277.93ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 verbose #23016 > │ type UH0 = │
00:05:54 verbose #23017 > │ | UH0_0 │
00:05:54 verbose #23018 > │ | UH0_1 of int32 * UH0 │
00:05:54 verbose #23019 > │ let rec method0 () : unit = │
00:05:54 verbose #23020 > │ let v0 : UH0 = UH0_0 │
00:05:54 verbose #23021 > │ let v1 : UH0 = UH0_1(9, v0) │
00:05:54 verbose #23022 > │ let v2 : UH0 = UH0_1(7, v1) │
00:05:54 verbose #23023 > │ let v3 : UH0 = UH0_1(5, v2) │
00:05:54 verbose #23024 > │ let v4 : string = $"%A{v3}" │
00:05:54 verbose #23025 > │ System.Console.WriteLine v4 │
00:05:54 verbose #23026 > │ let v23 : UH0 = UH0_0 │
00:05:54 verbose #23027 > │ let v24 : UH0 = UH0_1(9, v23) │
00:05:54 verbose #23028 > │ let v25 : UH0 = UH0_1(7, v24) │
00:05:54 verbose #23029 > │ let v26 : UH0 = UH0_1(5, v25) │
00:05:54 verbose #23030 > │ let v27 : UH0 = UH0_0 │
00:05:54 verbose #23031 > │ let v28 : UH0 = UH0_1(9, v27) │
00:05:54 verbose #23032 > │ let v29 : UH0 = UH0_1(7, v28) │
00:05:54 verbose #23033 > │ let v30 : UH0 = UH0_1(5, v29) │
00:05:54 verbose #23034 > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:54 verbose #23035 > │ () │
00:05:54 verbose #23036 > │ method0() │
00:05:54 verbose #23037 > │ │
00:05:54 verbose #23038 > │ UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))) │
00:05:54 verbose #23039 > │ │
00:05:54 verbose #23040 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #23041 >
00:05:54 verbose #23042 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:54 verbose #23043 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:54 verbose #23044 > │ ## zip │
00:05:54 verbose #23045 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #23046 >
00:05:54 verbose #23047 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 verbose #23048 > inl zip xs ys =
00:05:54 verbose #23049 > zip_with pair xs ys
00:05:54 verbose #23050 >
00:05:54 verbose #23051 > inl zip_ xs ys =
00:05:54 verbose #23052 > zip_with_ pair xs ys
00:05:54 verbose #23053 > 00:05:53 debug #458 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7abb27f55aa9cf9777400d51668a1d887e7cf18bebfb50349da4d4a167703f2f/main.spi
00:05:54 verbose #23054 >
00:05:54 verbose #23055 > ╭─[ 281.74ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 verbose #23056 > │ () │
00:05:54 verbose #23057 > │ │
00:05:54 verbose #23058 > │ │
00:05:54 verbose #23059 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #23060 >
00:05:54 verbose #23061 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 verbose #23062 > // // test
00:05:54 verbose #23063 >
00:05:54 verbose #23064 > ([[ 1i32; 2; 3 ]], [[ 4i32; 5; 6 ]])
00:05:54 verbose #23065 > ||> zip
00:05:54 verbose #23066 > |> _assert_eq [[ 1, 4; 2, 5; 3, 6 ]]
00:05:54 verbose #23067 > 00:05:54 debug #459 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7afd3c2e79fd9ef45c43e7441ac0c4cfef00501316bad36ad4beb6449714ca6b/main.spi
00:05:54 verbose #23068 >
00:05:54 verbose #23069 > ╭─[ 278.07ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 verbose #23070 > │ type UH0 = │
00:05:54 verbose #23071 > │ | UH0_0 │
00:05:54 verbose #23072 > │ | UH0_1 of int32 * int32 * UH0 │
00:05:54 verbose #23073 > │ let rec method0 () : unit = │
00:05:54 verbose #23074 > │ let v0 : UH0 = UH0_0 │
00:05:54 verbose #23075 > │ let v1 : UH0 = UH0_1(3, 6, v0) │
00:05:54 verbose #23076 > │ let v2 : UH0 = UH0_1(2, 5, v1) │
00:05:54 verbose #23077 > │ let v3 : UH0 = UH0_1(1, 4, v2) │
00:05:54 verbose #23078 > │ let v4 : string = $"%A{v3}" │
00:05:54 verbose #23079 > │ System.Console.WriteLine v4 │
00:05:54 verbose #23080 > │ let v23 : UH0 = UH0_0 │
00:05:54 verbose #23081 > │ let v24 : UH0 = UH0_1(3, 6, v23) │
00:05:54 verbose #23082 > │ let v25 : UH0 = UH0_1(2, 5, v24) │
00:05:54 verbose #23083 > │ let v26 : UH0 = UH0_1(1, 4, v25) │
00:05:54 verbose #23084 > │ let v27 : UH0 = UH0_0 │
00:05:54 verbose #23085 > │ let v28 : UH0 = UH0_1(3, 6, v27) │
00:05:54 verbose #23086 > │ let v29 : UH0 = UH0_1(2, 5, v28) │
00:05:54 verbose #23087 > │ let v30 : UH0 = UH0_1(1, 4, v29) │
00:05:54 verbose #23088 > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:54 verbose #23089 > │ () │
00:05:54 verbose #23090 > │ method0() │
00:05:55 verbose #23091 > │ │
00:05:55 verbose #23092 > │ UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) │
00:05:55 verbose #23093 > │ │
00:05:55 verbose #23094 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #23095 >
00:05:55 verbose #23096 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:55 verbose #23097 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:55 verbose #23098 > │ ## indexed │
00:05:55 verbose #23099 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #23100 >
00:05:55 verbose #23101 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 verbose #23102 > inl indexed list =
00:05:55 verbose #23103 > (([[]], 0), list)
00:05:55 verbose #23104 > ||> listm.fold fun (acc, i) x =>
00:05:55 verbose #23105 > (i, x) :: acc, i + 1
00:05:55 verbose #23106 > |> fst
00:05:55 verbose #23107 > |> listm.rev
00:05:55 verbose #23108 > 00:05:54 debug #460 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f32a80e7eff548911f7abbbafd89ceb4e8b22f9ca8399f9a5b2c18e6552345f1/main.spi
00:05:55 verbose #23109 >
00:05:55 verbose #23110 > ╭─[ 240.23ms - stdout ]────────────────────────────────────────────────────────╮
00:05:55 verbose #23111 > │ () │
00:05:55 verbose #23112 > │ │
00:05:55 verbose #23113 > │ │
00:05:55 verbose #23114 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #23115 >
00:05:55 verbose #23116 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 verbose #23117 > // // test
00:05:55 verbose #23118 >
00:05:55 verbose #23119 > listm.init 5i32 ((*) 2)
00:05:55 verbose #23120 > |> indexed
00:05:55 verbose #23121 > |> _assert_eq [[ 0i32, 0; 1, 2; 2, 4; 3, 6; 4, 8 ]]
00:05:55 verbose #23122 > 00:05:54 debug #461 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/791dce5d23486049635173771b91bd3588d2cc80c0e994155af9484939f47116/main.spi
00:05:55 verbose #23123 >
00:05:55 verbose #23124 > ╭─[ 283.27ms - stdout ]────────────────────────────────────────────────────────╮
00:05:55 verbose #23125 > │ type UH0 = │
00:05:55 verbose #23126 > │ | UH0_0 │
00:05:55 verbose #23127 > │ | UH0_1 of int32 * int32 * UH0 │
00:05:55 verbose #23128 > │ let rec method0 () : unit = │
00:05:55 verbose #23129 > │ let v0 : UH0 = UH0_0 │
00:05:55 verbose #23130 > │ let v1 : UH0 = UH0_1(4, 8, v0) │
00:05:55 verbose #23131 > │ let v2 : UH0 = UH0_1(3, 6, v1) │
00:05:55 verbose #23132 > │ let v3 : UH0 = UH0_1(2, 4, v2) │
00:05:55 verbose #23133 > │ let v4 : UH0 = UH0_1(1, 2, v3) │
00:05:55 verbose #23134 > │ let v5 : UH0 = UH0_1(0, 0, v4) │
00:05:55 verbose #23135 > │ let v6 : string = $"%A{v5}" │
00:05:55 verbose #23136 > │ System.Console.WriteLine v6 │
00:05:55 verbose #23137 > │ let v40 : UH0 = UH0_0 │
00:05:55 verbose #23138 > │ let v41 : UH0 = UH0_1(4, 8, v40) │
00:05:55 verbose #23139 > │ let v42 : UH0 = UH0_1(3, 6, v41) │
00:05:55 verbose #23140 > │ let v43 : UH0 = UH0_1(2, 4, v42) │
00:05:55 verbose #23141 > │ let v44 : UH0 = UH0_1(1, 2, v43) │
00:05:55 verbose #23142 > │ let v45 : UH0 = UH0_1(0, 0, v44) │
00:05:55 verbose #23143 > │ let v46 : UH0 = UH0_0 │
00:05:55 verbose #23144 > │ let v47 : UH0 = UH0_1(4, 8, v46) │
00:05:55 verbose #23145 > │ let v48 : UH0 = UH0_1(3, 6, v47) │
00:05:55 verbose #23146 > │ let v49 : UH0 = UH0_1(2, 4, v48) │
00:05:55 verbose #23147 > │ let v50 : UH0 = UH0_1(1, 2, v49) │
00:05:55 verbose #23148 > │ let v51 : UH0 = UH0_1(0, 0, v50) │
00:05:55 verbose #23149 > │ let v52 : string = $"__expect / actual: %A{v45} / expected: %A{v51}" │
00:05:55 verbose #23150 > │ () │
00:05:55 verbose #23151 > │ method0() │
00:05:55 verbose #23152 > │ │
00:05:55 verbose #23153 > │ UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, UH0_1 (3, 6, UH0_1 (4, 8, UH0_0))))) │
00:05:55 verbose #23154 > │ │
00:05:55 verbose #23155 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #23156 >
00:05:55 verbose #23157 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:55 verbose #23158 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:55 verbose #23159 > │ ## group_by │
00:05:55 verbose #23160 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #23161 >
00:05:55 verbose #23162 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 verbose #23163 > inl group_by fn list =
00:05:55 verbose #23164 > (list, [[]])
00:05:55 verbose #23165 > ||> listm.foldBack fun x acc =>
00:05:55 verbose #23166 > inl xk = fn x
00:05:55 verbose #23167 > inl found, new_acc =
00:05:55 verbose #23168 > ((false, [[]]), acc)
00:05:55 verbose #23169 > ||> listm.fold fun (found, acc') (k, xs) =>
00:05:55 verbose #23170 > if k = xk
00:05:55 verbose #23171 > then true, (k, x :: xs) :: acc'
00:05:55 verbose #23172 > else found, (k, xs) :: acc'
00:05:55 verbose #23173 > if found
00:05:55 verbose #23174 > then new_acc
00:05:55 verbose #23175 > else (xk, [[ x ]]) :: new_acc
00:05:55 verbose #23176 > 00:05:55 debug #462 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/96a3098dbcdbd3c701e2a248366413ba4991fd2ff117f0f6dc287228e639df86/main.spi
00:05:55 verbose #23177 >
00:05:55 verbose #23178 > ╭─[ 292.77ms - stdout ]────────────────────────────────────────────────────────╮
00:05:55 verbose #23179 > │ () │
00:05:55 verbose #23180 > │ │
00:05:55 verbose #23181 > │ │
00:05:55 verbose #23182 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #23183 >
00:05:55 verbose #23184 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 verbose #23185 > // // test
00:05:55 verbose #23186 >
00:05:55 verbose #23187 > listm.init 10i32 id
00:05:55 verbose #23188 > |> group_by (fun x => x % 2 = 0)
00:05:55 verbose #23189 > |> _assert_eq [[ true, [[ 0; 2; 4; 6; 8 ]]; false, [[ 1; 3; 5; 7; 9 ]] ]]
00:05:56 verbose #23190 > 00:05:55 debug #463 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5da398e92a8677b848e91896a55e8a4a4ed740b54a293fe2e04c5bbdaa658941/main.spi
00:05:56 verbose #23191 >
00:05:56 verbose #23192 > ╭─[ 395.19ms - stdout ]────────────────────────────────────────────────────────╮
00:05:56 verbose #23193 > │ type UH0 = │
00:05:56 verbose #23194 > │ | UH0_0 │
00:05:56 verbose #23195 > │ | UH0_1 of int32 * UH0 │
00:05:56 verbose #23196 > │ and UH1 = │
00:05:56 verbose #23197 > │ | UH1_0 │
00:05:56 verbose #23198 > │ | UH1_1 of bool * UH0 * UH1 │
00:05:56 verbose #23199 > │ let rec method0 () : unit = │
00:05:56 verbose #23200 > │ let v0 : UH0 = UH0_0 │
00:05:56 verbose #23201 > │ let v1 : UH0 = UH0_1(8, v0) │
00:05:56 verbose #23202 > │ let v2 : UH0 = UH0_1(6, v1) │
00:05:56 verbose #23203 > │ let v3 : UH0 = UH0_1(4, v2) │
00:05:56 verbose #23204 > │ let v4 : UH0 = UH0_1(2, v3) │
00:05:56 verbose #23205 > │ let v5 : UH0 = UH0_1(0, v4) │
00:05:56 verbose #23206 > │ let v6 : UH0 = UH0_0 │
00:05:56 verbose #23207 > │ let v7 : UH0 = UH0_1(9, v6) │
00:05:56 verbose #23208 > │ let v8 : UH0 = UH0_1(7, v7) │
00:05:56 verbose #23209 > │ let v9 : UH0 = UH0_1(5, v8) │
00:05:56 verbose #23210 > │ let v10 : UH0 = UH0_1(3, v9) │
00:05:56 verbose #23211 > │ let v11 : UH0 = UH0_1(1, v10) │
00:05:56 verbose #23212 > │ let v12 : UH1 = UH1_0 │
00:05:56 verbose #23213 > │ let v13 : UH1 = UH1_1(false, v11, v12) │
00:05:56 verbose #23214 > │ let v14 : UH1 = UH1_1(true, v5, v13) │
00:05:56 verbose #23215 > │ let v15 : string = $"%A{v14}" │
00:05:56 verbose #23216 > │ System.Console.WriteLine v15 │
00:05:56 verbose #23217 > │ let v112 : UH0 = UH0_0 │
00:05:56 verbose #23218 > │ let v113 : UH0 = UH0_1(8, v112) │
00:05:56 verbose #23219 > │ let v114 : UH0 = UH0_1(6, v113) │
00:05:56 verbose #23220 > │ let v115 : UH0 = UH0_1(4, v114) │
00:05:56 verbose #23221 > │ let v116 : UH0 = UH0_1(2, v115) │
00:05:56 verbose #23222 > │ let v117 : UH0 = UH0_1(0, v116) │
00:05:56 verbose #23223 > │ let v118 : UH0 = UH0_0 │
00:05:56 verbose #23224 > │ let v119 : UH0 = UH0_1(9, v118) │
00:05:56 verbose #23225 > │ let v120 : UH0 = UH0_1(7, v119) │
00:05:56 verbose #23226 > │ let v121 : UH0 = UH0_1(5, v120) │
00:05:56 verbose #23227 > │ let v122 : UH0 = UH0_1(3, v121) │
00:05:56 verbose #23228 > │ let v123 : UH0 = UH0_1(1, v122) │
00:05:56 verbose #23229 > │ let v124 : UH1 = UH1_0 │
00:05:56 verbose #23230 > │ let v125 : UH1 = UH1_1(false, v123, v124) │
00:05:56 verbose #23231 > │ let v126 : UH1 = UH1_1(true, v117, v125) │
00:05:56 verbose #23232 > │ let v127 : UH0 = UH0_0 │
00:05:56 verbose #23233 > │ let v128 : UH0 = UH0_1(8, v127) │
00:05:56 verbose #23234 > │ let v129 : UH0 = UH0_1(6, v128) │
00:05:56 verbose #23235 > │ let v130 : UH0 = UH0_1(4, v129) │
00:05:56 verbose #23236 > │ let v131 : UH0 = UH0_1(2, v130) │
00:05:56 verbose #23237 > │ let v132 : UH0 = UH0_1(0, v131) │
00:05:56 verbose #23238 > │ let v133 : UH0 = UH0_0 │
00:05:56 verbose #23239 > │ let v134 : UH0 = UH0_1(9, v133) │
00:05:56 verbose #23240 > │ let v135 : UH0 = UH0_1(7, v134) │
00:05:56 verbose #23241 > │ let v136 : UH0 = UH0_1(5, v135) │
00:05:56 verbose #23242 > │ let v137 : UH0 = UH0_1(3, v136) │
00:05:56 verbose #23243 > │ let v138 : UH0 = UH0_1(1, v137) │
00:05:56 verbose #23244 > │ let v139 : UH1 = UH1_0 │
00:05:56 verbose #23245 > │ let v140 : UH1 = UH1_1(false, v138, v139) │
00:05:56 verbose #23246 > │ let v141 : UH1 = UH1_1(true, v132, v140) │
00:05:56 verbose #23247 > │ let v142 : string = $"__expect / actual: %A{v126} / expected: %A{v141}" │
00:05:56 verbose #23248 > │ () │
00:05:56 verbose #23249 > │ method0() │
00:05:56 verbose #23250 > │ │
00:05:56 verbose #23251 > │ UH1_1 │
00:05:56 verbose #23252 > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:05:56 verbose #23253 > │ UH1_1 │
00:05:56 verbose #23254 > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:05:56 verbose #23255 > │ UH1_0)) │
00:05:56 verbose #23256 > │ │
00:05:56 verbose #23257 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 verbose #23258 >
00:05:56 verbose #23259 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:56 verbose #23260 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:56 verbose #23261 > │ ## forall' │
00:05:56 verbose #23262 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 verbose #23263 >
00:05:56 verbose #23264 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 verbose #23265 > inl forall' fn (head :: tail) =
00:05:56 verbose #23266 > (true, tail)
00:05:56 verbose #23267 > ||> listm.fold fun acc x =>
00:05:56 verbose #23268 > acc && x = head
00:05:56 verbose #23269 > 00:05:55 debug #464 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4cef5c797bd8c44841c67b66fc7c2c7a34d7d4bb2d39b17f237c43f1896c03b3/main.spi
00:05:56 verbose #23270 >
00:05:56 verbose #23271 > ╭─[ 227.05ms - stdout ]────────────────────────────────────────────────────────╮
00:05:56 verbose #23272 > │ () │
00:05:56 verbose #23273 > │ │
00:05:56 verbose #23274 > │ │
00:05:56 verbose #23275 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 verbose #23276 >
00:05:56 verbose #23277 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 verbose #23278 > // // test
00:05:56 verbose #23279 >
00:05:56 verbose #23280 > [[ 1i32; 1; 1; 1; 1 ]]
00:05:56 verbose #23281 > |> forall' ((=) 1i32)
00:05:56 verbose #23282 > |> _assert_eq true
00:05:56 verbose #23283 > 00:05:56 debug #465 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d65c89c6574708371afe16d300019f1852c024b76e0095f940bb6bedc1da51dd/main.spi
00:05:56 verbose #23284 >
00:05:56 verbose #23285 > ╭─[ 330.09ms - stdout ]────────────────────────────────────────────────────────╮
00:05:56 verbose #23286 > │ let rec method0 () : unit = │
00:05:56 verbose #23287 > │ let v0 : string = $"%A{true}" │
00:05:56 verbose #23288 > │ System.Console.WriteLine v0 │
00:05:56 verbose #23289 > │ let v1 : string = $"__expect / actual: %A{true} / expected: %A{true}" │
00:05:56 verbose #23290 > │ () │
00:05:56 verbose #23291 > │ method0() │
00:05:56 verbose #23292 > │ │
00:05:56 verbose #23293 > │ true │
00:05:56 verbose #23294 > │ │
00:05:56 verbose #23295 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 verbose #23296 >
00:05:56 verbose #23297 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:56 verbose #23298 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:56 verbose #23299 > │ ## last │
00:05:56 verbose #23300 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 verbose #23301 >
00:05:56 verbose #23302 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 verbose #23303 > inl last list =
00:05:56 verbose #23304 > list
00:05:56 verbose #23305 > |> listm.rev
00:05:56 verbose #23306 > |> item 0i32
00:05:56 verbose #23307 > 00:05:56 debug #466 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/23c653eb30b5da5b576792668000e048f1d327448f1f98deb50e0f1b3b32cf63/main.spi
00:05:57 verbose #23308 >
00:05:57 verbose #23309 > ╭─[ 254.60ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 verbose #23310 > │ () │
00:05:57 verbose #23311 > │ │
00:05:57 verbose #23312 > │ │
00:05:57 verbose #23313 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #23314 >
00:05:57 verbose #23315 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 verbose #23316 > // // test
00:05:57 verbose #23317 >
00:05:57 verbose #23318 > listm.init 10i32 id
00:05:57 verbose #23319 > |> last
00:05:57 verbose #23320 > |> _assert_eq 9
00:05:57 verbose #23321 > 00:05:56 debug #467 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4cf0603b928f3ef672294e36511522cd3c82655fe0958babac4b5f927f8bf855/main.spi
00:05:57 verbose #23322 >
00:05:57 verbose #23323 > ╭─[ 241.31ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 verbose #23324 > │ let rec method0 () : unit = │
00:05:57 verbose #23325 > │ let v0 : string = $"%A{9}" │
00:05:57 verbose #23326 > │ System.Console.WriteLine v0 │
00:05:57 verbose #23327 > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:05:57 verbose #23328 > │ () │
00:05:57 verbose #23329 > │ method0() │
00:05:57 verbose #23330 > │ │
00:05:57 verbose #23331 > │ 9 │
00:05:57 verbose #23332 > │ │
00:05:57 verbose #23333 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #23334 >
00:05:57 verbose #23335 > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 verbose #23336 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 verbose #23337 > │ ## try_pick │
00:05:57 verbose #23338 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #23339 >
00:05:57 verbose #23340 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 verbose #23341 > inl try_pick fn list =
00:05:57 verbose #23342 > inl rec body fn = function
00:05:57 verbose #23343 > | [[]] => None
00:05:57 verbose #23344 > | x :: xs =>
00:05:57 verbose #23345 > match fn x with
00:05:57 verbose #23346 > | Some y => Some y
00:05:57 verbose #23347 > | None => loop xs
00:05:57 verbose #23348 > and inl loop list =
00:05:57 verbose #23349 > if var_is list |> not
00:05:57 verbose #23350 > then body fn list
00:05:57 verbose #23351 > else
00:05:57 verbose #23352 > inl fn = join fn
00:05:57 verbose #23353 > inl list = dyn list
00:05:57 verbose #23354 > join body fn list
00:05:57 verbose #23355 > loop list
00:05:57 verbose #23356 > 00:05:56 debug #468 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c72c61fd09663b551a45f9293fcf82e24a5e8cd1743a7cd9888e8dbdecc38055/main.spi
00:05:57 verbose #23357 >
00:05:57 verbose #23358 > ╭─[ 241.88ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 verbose #23359 > │ () │
00:05:57 verbose #23360 > │ │
00:05:57 verbose #23361 > │ │
00:05:57 verbose #23362 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #23363 >
00:05:57 verbose #23364 > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 verbose #23365 > // // test
00:05:57 verbose #23366 >
00:05:57 verbose #23367 > listm.init 10i32 id
00:05:57 verbose #23368 > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:05:57 verbose #23369 > |> _assert_eq (Some 5i32)
00:05:57 verbose #23370 > 00:05:57 debug #469 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bc4a049e6b560f1e2d7f21e092c6bff5a7876909465e4fa59a27c8976ea29a57/main.spi
00:05:57 verbose #23371 >
00:05:57 verbose #23372 > ╭─[ 277.02ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 verbose #23373 > │ type [<Struct>] US0 = │
00:05:57 verbose #23374 > │ | US0_0 of f0_0 : int32 │
00:05:57 verbose #23375 > │ | US0_1 │
00:05:57 verbose #23376 > │ let rec method0 () : unit = │
00:05:57 verbose #23377 > │ let v0 : US0 = US0_0(5) │
00:05:57 verbose #23378 > │ let v1 : string = $"%A{v0}" │
00:05:57 verbose #23379 > │ System.Console.WriteLine v1 │
00:05:57 verbose #23380 > │ let v5 : US0 = US0_0(5) │
00:05:57 verbose #23381 > │ let v6 : US0 = US0_0(5) │
00:05:57 verbose #23382 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:57 verbose #23383 > │ () │
00:05:57 verbose #23384 > │ method0() │
00:05:57 verbose #23385 > │ │
00:05:57 verbose #23386 > │ US0_0 5 │
00:05:57 verbose #23387 > │ │
00:05:57 verbose #23388 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:59 verbose #23389 > [NbConvertApp] Converting notebook listm'.dib.ipynb to html
00:05:59 verbose #23390 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:59 verbose #23391 > validate(nb)
00:06:00 verbose #23392 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:00 verbose #23393 > return _pygments_highlight(
00:06:00 verbose #23394 > [NbConvertApp] Writing 387190 bytes to listm'.dib.html
00:06:01 debug #23395 execute_with_options_async / exit_code: 0 / output.Length: 78107
00:06:01 debug #17 main / executeCommand / exitCode: 0
00:06:01 debug #23396 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 util.dib" -Retries 3", None, None)
00:06:02 verbose #23397 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: util.dib / _args: [
00:06:02 verbose #23398 > "-Retries",
00:06:02 verbose #23399 > 3
00:06:02 verbose #23400 > ]
00:06:04 verbose #23401 >
00:06:04 verbose #23402 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:04 verbose #23403 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:04 verbose #23404 > │ # util │
00:06:04 verbose #23405 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:04 verbose #23406 >
00:06:04 verbose #23407 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:04 verbose #23408 > // // test
00:06:04 verbose #23409 >
00:06:04 verbose #23410 > open testing
00:06:08 verbose #23411 > 00:06:07 debug #470 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:06:09 verbose #23412 >
00:06:09 verbose #23413 > ╭─[ 4.92s - stdout ]───────────────────────────────────────────────────────────╮
00:06:09 verbose #23414 > │ () │
00:06:09 verbose #23415 > │ │
00:06:09 verbose #23416 > │ │
00:06:09 verbose #23417 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:09 verbose #23418 >
00:06:09 verbose #23419 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:09 verbose #23420 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:09 verbose #23421 > │ ## ski │
00:06:09 verbose #23422 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:09 verbose #23423 >
00:06:09 verbose #23424 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:09 verbose #23425 > union rec ski =
00:06:09 verbose #23426 > | I
00:06:09 verbose #23427 > | K
00:06:09 verbose #23428 > | S
00:06:09 verbose #23429 > | App : ski * ski
00:06:09 verbose #23430 >
00:06:09 verbose #23431 > inl rec eval ski =
00:06:09 verbose #23432 > match ski with
00:06:09 verbose #23433 > | App (App (K, x), y) => eval x
00:06:09 verbose #23434 > | App (App (App (S, x), y), z) => eval (App (App (x, z), App (y, z)))
00:06:09 verbose #23435 > | App (I, x) => eval x
00:06:09 verbose #23436 > | App (K, x) => App (K, eval x)
00:06:09 verbose #23437 > | App (f, x) => eval (App (eval f, x))
00:06:09 verbose #23438 > | _ => ski
00:06:09 verbose #23439 > 00:06:09 debug #471 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/72e6282f3300e6d54314019decc9350b1ca0492fcff018c717ad3e91103f2421/main.spi
00:06:09 verbose #23440 >
00:06:09 verbose #23441 > ╭─[ 248.87ms - stdout ]────────────────────────────────────────────────────────╮
00:06:09 verbose #23442 > │ () │
00:06:09 verbose #23443 > │ │
00:06:09 verbose #23444 > │ │
00:06:09 verbose #23445 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:09 verbose #23446 >
00:06:09 verbose #23447 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:09 verbose #23448 > // // test
00:06:09 verbose #23449 >
00:06:09 verbose #23450 > eval I
00:06:09 verbose #23451 > |> _assert_eq I
00:06:09 verbose #23452 >
00:06:09 verbose #23453 > eval (App (I, I))
00:06:09 verbose #23454 > |> _assert_eq I
00:06:09 verbose #23455 >
00:06:09 verbose #23456 > eval (App (I, App (I, I)))
00:06:09 verbose #23457 > |> _assert_eq I
00:06:09 verbose #23458 >
00:06:09 verbose #23459 > eval (App (App (I, I), I))
00:06:09 verbose #23460 > |> _assert_eq I
00:06:09 verbose #23461 >
00:06:09 verbose #23462 > eval (App (App (App (I, I), I), I))
00:06:09 verbose #23463 > |> _assert_eq I
00:06:09 verbose #23464 >
00:06:09 verbose #23465 > eval K
00:06:09 verbose #23466 > |> _assert_eq K
00:06:09 verbose #23467 >
00:06:09 verbose #23468 > eval (App (K, I))
00:06:09 verbose #23469 > |> _assert_eq (App (K, I))
00:06:09 verbose #23470 >
00:06:09 verbose #23471 > eval (App (K, K))
00:06:09 verbose #23472 > |> _assert_eq (App (K, K))
00:06:09 verbose #23473 >
00:06:09 verbose #23474 > eval (App (App (K, I), K))
00:06:09 verbose #23475 > |> _assert_eq I
00:06:09 verbose #23476 >
00:06:09 verbose #23477 > eval (App (App (K, K), I))
00:06:09 verbose #23478 > |> _assert_eq K
00:06:09 verbose #23479 >
00:06:09 verbose #23480 > eval (App (App (App (App (K, K), I), S), K))
00:06:09 verbose #23481 > |> _assert_eq S
00:06:09 verbose #23482 >
00:06:09 verbose #23483 > eval S
00:06:09 verbose #23484 > |> _assert_eq S
00:06:09 verbose #23485 >
00:06:09 verbose #23486 > eval (App (App (App (S, I), I), I))
00:06:09 verbose #23487 > |> _assert_eq I
00:06:09 verbose #23488 >
00:06:09 verbose #23489 > eval (App (App (App (S, K), K), I))
00:06:09 verbose #23490 > |> _assert_eq I
00:06:09 verbose #23491 >
00:06:09 verbose #23492 > eval (App (App (App (S, K), I), (App (App (K, I), S))))
00:06:09 verbose #23493 > |> _assert_eq I
00:06:09 verbose #23494 >
00:06:09 verbose #23495 > eval (App (App (K, S), App (I, App (App (App (S, K), S), I))))
00:06:09 verbose #23496 > |> _assert_eq S
00:06:09 verbose #23497 >
00:06:09 verbose #23498 > eval (App (App (App (S, K), I), K))
00:06:09 verbose #23499 > |> _assert_eq K
00:06:09 verbose #23500 > 00:06:09 debug #472 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/93b710d30ef6a9d1c3b60387f41126d8e9e8cbd255a200d566eb617c05907b76/main.spi
00:06:11 verbose #23501 >
00:06:11 verbose #23502 > ╭─[ 1.52s - stdout ]───────────────────────────────────────────────────────────╮
00:06:11 verbose #23503 > │ type UH0 = │
00:06:11 verbose #23504 > │ | UH0_0 │
00:06:11 verbose #23505 > │ | UH0_1 │
00:06:11 verbose #23506 > │ | UH0_2 │
00:06:11 verbose #23507 > │ | UH0_3 of UH0 * UH0 │
00:06:11 verbose #23508 > │ let rec method0 () : unit = │
00:06:11 verbose #23509 > │ let v0 : UH0 = UH0_0 │
00:06:11 verbose #23510 > │ let v1 : string = $"%A{v0}" │
00:06:11 verbose #23511 > │ System.Console.WriteLine v1 │
00:06:11 verbose #23512 > │ let v5 : UH0 = UH0_0 │
00:06:11 verbose #23513 > │ let v6 : UH0 = UH0_0 │
00:06:11 verbose #23514 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:11 verbose #23515 > │ let v8 : UH0 = UH0_0 │
00:06:11 verbose #23516 > │ let v9 : string = $"%A{v8}" │
00:06:11 verbose #23517 > │ System.Console.WriteLine v9 │
00:06:11 verbose #23518 > │ let v13 : UH0 = UH0_0 │
00:06:11 verbose #23519 > │ let v14 : UH0 = UH0_0 │
00:06:11 verbose #23520 > │ let v15 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:06:11 verbose #23521 > │ let v16 : UH0 = UH0_0 │
00:06:11 verbose #23522 > │ let v17 : string = $"%A{v16}" │
00:06:11 verbose #23523 > │ System.Console.WriteLine v17 │
00:06:11 verbose #23524 > │ let v21 : UH0 = UH0_0 │
00:06:11 verbose #23525 > │ let v22 : UH0 = UH0_0 │
00:06:11 verbose #23526 > │ let v23 : string = $"__expect / actual: %A{v21} / expected: %A{v22}" │
00:06:11 verbose #23527 > │ let v24 : UH0 = UH0_0 │
00:06:11 verbose #23528 > │ let v25 : string = $"%A{v24}" │
00:06:11 verbose #23529 > │ System.Console.WriteLine v25 │
00:06:11 verbose #23530 > │ let v29 : UH0 = UH0_0 │
00:06:11 verbose #23531 > │ let v30 : UH0 = UH0_0 │
00:06:11 verbose #23532 > │ let v31 : string = $"__expect / actual: %A{v29} / expected: %A{v30}" │
00:06:11 verbose #23533 > │ let v32 : UH0 = UH0_0 │
00:06:11 verbose #23534 > │ let v33 : string = $"%A{v32}" │
00:06:11 verbose #23535 > │ System.Console.WriteLine v33 │
00:06:11 verbose #23536 > │ let v37 : UH0 = UH0_0 │
00:06:11 verbose #23537 > │ let v38 : UH0 = UH0_0 │
00:06:11 verbose #23538 > │ let v39 : string = $"__expect / actual: %A{v37} / expected: %A{v38}" │
00:06:11 verbose #23539 > │ let v40 : UH0 = UH0_1 │
00:06:11 verbose #23540 > │ let v41 : string = $"%A{v40}" │
00:06:11 verbose #23541 > │ System.Console.WriteLine v41 │
00:06:11 verbose #23542 > │ let v45 : UH0 = UH0_1 │
00:06:11 verbose #23543 > │ let v46 : UH0 = UH0_1 │
00:06:11 verbose #23544 > │ let v47 : string = $"__expect / actual: %A{v45} / expected: %A{v46}" │
00:06:11 verbose #23545 > │ let v48 : UH0 = UH0_1 │
00:06:11 verbose #23546 > │ let v49 : UH0 = UH0_0 │
00:06:11 verbose #23547 > │ let v50 : UH0 = UH0_3(v48, v49) │
00:06:11 verbose #23548 > │ let v51 : string = $"%A{v50}" │
00:06:11 verbose #23549 > │ System.Console.WriteLine v51 │
00:06:11 verbose #23550 > │ let v63 : UH0 = UH0_1 │
00:06:11 verbose #23551 > │ let v64 : UH0 = UH0_0 │
00:06:11 verbose #23552 > │ let v65 : UH0 = UH0_3(v63, v64) │
00:06:11 verbose #23553 > │ let v66 : UH0 = UH0_1 │
00:06:11 verbose #23554 > │ let v67 : UH0 = UH0_0 │
00:06:11 verbose #23555 > │ let v68 : UH0 = UH0_3(v66, v67) │
00:06:11 verbose #23556 > │ let v69 : string = $"__expect / actual: %A{v65} / expected: %A{v68}" │
00:06:11 verbose #23557 > │ let v70 : UH0 = UH0_1 │
00:06:11 verbose #23558 > │ let v71 : UH0 = UH0_1 │
00:06:11 verbose #23559 > │ let v72 : UH0 = UH0_3(v70, v71) │
00:06:11 verbose #23560 > │ let v73 : string = $"%A{v72}" │
00:06:11 verbose #23561 > │ System.Console.WriteLine v73 │
00:06:11 verbose #23562 > │ let v85 : UH0 = UH0_1 │
00:06:11 verbose #23563 > │ let v86 : UH0 = UH0_1 │
00:06:11 verbose #23564 > │ let v87 : UH0 = UH0_3(v85, v86) │
00:06:11 verbose #23565 > │ let v88 : UH0 = UH0_1 │
00:06:11 verbose #23566 > │ let v89 : UH0 = UH0_1 │
00:06:11 verbose #23567 > │ let v90 : UH0 = UH0_3(v88, v89) │
00:06:11 verbose #23568 > │ let v91 : string = $"__expect / actual: %A{v87} / expected: %A{v90}" │
00:06:11 verbose #23569 > │ let v92 : UH0 = UH0_0 │
00:06:11 verbose #23570 > │ let v93 : string = $"%A{v92}" │
00:06:11 verbose #23571 > │ System.Console.WriteLine v93 │
00:06:11 verbose #23572 > │ let v97 : UH0 = UH0_0 │
00:06:11 verbose #23573 > │ let v98 : UH0 = UH0_0 │
00:06:11 verbose #23574 > │ let v99 : string = $"__expect / actual: %A{v97} / expected: %A{v98}" │
00:06:11 verbose #23575 > │ let v100 : UH0 = UH0_1 │
00:06:11 verbose #23576 > │ let v101 : string = $"%A{v100}" │
00:06:11 verbose #23577 > │ System.Console.WriteLine v101 │
00:06:11 verbose #23578 > │ let v105 : UH0 = UH0_1 │
00:06:11 verbose #23579 > │ let v106 : UH0 = UH0_1 │
00:06:11 verbose #23580 > │ let v107 : string = $"__expect / actual: %A{v105} / expected: %A{v106}" │
00:06:11 verbose #23581 > │ let v108 : UH0 = UH0_2 │
00:06:11 verbose #23582 > │ let v109 : string = $"%A{v108}" │
00:06:11 verbose #23583 > │ System.Console.WriteLine v109 │
00:06:11 verbose #23584 > │ let v113 : UH0 = UH0_2 │
00:06:11 verbose #23585 > │ let v114 : UH0 = UH0_2 │
00:06:11 verbose #23586 > │ let v115 : string = $"__expect / actual: %A{v113} / expected: %A{v114}" │
00:06:11 verbose #23587 > │ let v116 : UH0 = UH0_2 │
00:06:11 verbose #23588 > │ let v117 : string = $"%A{v116}" │
00:06:11 verbose #23589 > │ System.Console.WriteLine v117 │
00:06:11 verbose #23590 > │ let v121 : UH0 = UH0_2 │
00:06:11 verbose #23591 > │ let v122 : UH0 = UH0_2 │
00:06:11 verbose #23592 > │ let v123 : string = $"__expect / actual: %A{v121} / expected: %A{v122}" │
00:06:11 verbose #23593 > │ let v124 : UH0 = UH0_0 │
00:06:11 verbose #23594 > │ let v125 : string = $"%A{v124}" │
00:06:11 verbose #23595 > │ System.Console.WriteLine v125 │
00:06:11 verbose #23596 > │ let v129 : UH0 = UH0_0 │
00:06:11 verbose #23597 > │ let v130 : UH0 = UH0_0 │
00:06:11 verbose #23598 > │ let v131 : string = $"__expect / actual: %A{v129} / expected: %A{v130}" │
00:06:11 verbose #23599 > │ let v132 : UH0 = UH0_0 │
00:06:11 verbose #23600 > │ let v133 : string = $"%A{v132}" │
00:06:11 verbose #23601 > │ System.Console.WriteLine v133 │
00:06:11 verbose #23602 > │ let v137 : UH0 = UH0_0 │
00:06:11 verbose #23603 > │ let v138 : UH0 = UH0_0 │
00:06:11 verbose #23604 > │ let v139 : string = $"__expect / actual: %A{v137} / expected: %A{v138}" │
00:06:11 verbose #23605 > │ let v140 : UH0 = UH0_0 │
00:06:11 verbose #23606 > │ let v141 : string = $"%A{v140}" │
00:06:11 verbose #23607 > │ System.Console.WriteLine v141 │
00:06:11 verbose #23608 > │ let v145 : UH0 = UH0_0 │
00:06:11 verbose #23609 > │ let v146 : UH0 = UH0_0 │
00:06:11 verbose #23610 > │ let v147 : string = $"__expect / actual: %A{v145} / expected: %A{v146}" │
00:06:11 verbose #23611 > │ let v148 : UH0 = UH0_2 │
00:06:11 verbose #23612 > │ let v149 : string = $"%A{v148}" │
00:06:11 verbose #23613 > │ System.Console.WriteLine v149 │
00:06:11 verbose #23614 > │ let v153 : UH0 = UH0_2 │
00:06:11 verbose #23615 > │ let v154 : UH0 = UH0_2 │
00:06:11 verbose #23616 > │ let v155 : string = $"__expect / actual: %A{v153} / expected: %A{v154}" │
00:06:11 verbose #23617 > │ let v156 : UH0 = UH0_1 │
00:06:11 verbose #23618 > │ let v157 : string = $"%A{v156}" │
00:06:11 verbose #23619 > │ System.Console.WriteLine v157 │
00:06:11 verbose #23620 > │ let v161 : UH0 = UH0_1 │
00:06:11 verbose #23621 > │ let v162 : UH0 = UH0_1 │
00:06:11 verbose #23622 > │ let v163 : string = $"__expect / actual: %A{v161} / expected: %A{v162}" │
00:06:11 verbose #23623 > │ () │
00:06:11 verbose #23624 > │ method0() │
00:06:11 verbose #23625 > │ │
00:06:11 verbose #23626 > │ UH0_0 │
00:06:11 verbose #23627 > │ UH0_0 │
00:06:11 verbose #23628 > │ UH0_0 │
00:06:11 verbose #23629 > │ UH0_0 │
00:06:11 verbose #23630 > │ UH0_0 │
00:06:11 verbose #23631 > │ UH0_1 │
00:06:11 verbose #23632 > │ UH0_3 (UH0_1, UH0_0) │
00:06:11 verbose #23633 > │ UH0_3 (UH0_1, UH0_1) │
00:06:11 verbose #23634 > │ UH0_0 │
00:06:11 verbose #23635 > │ UH0_1 │
00:06:11 verbose #23636 > │ UH0_2 │
00:06:11 verbose #23637 > │ UH0_2 │
00:06:11 verbose #23638 > │ UH0_0 │
00:06:11 verbose #23639 > │ UH0_0 │
00:06:11 verbose #23640 > │ UH0_0 │
00:06:11 verbose #23641 > │ UH0_2 │
00:06:11 verbose #23642 > │ UH0_1 │
00:06:11 verbose #23643 > │ │
00:06:11 verbose #23644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:13 verbose #23645 > [NbConvertApp] Converting notebook util.dib.ipynb to html
00:06:13 verbose #23646 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:13 verbose #23647 > validate(nb)
00:06:13 verbose #23648 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:13 verbose #23649 > return _pygments_highlight(
00:06:14 verbose #23650 > [NbConvertApp] Writing 288561 bytes to util.dib.html
00:06:14 debug #23651 execute_with_options_async / exit_code: 0 / output.Length: 15311
00:06:14 debug #18 main / executeCommand / exitCode: 0
00:06:14 debug #23652 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 stream.dib" -Retries 3", None,
None)
00:06:15 verbose #23653 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: stream.dib / _args: [
00:06:15 verbose #23654 > "-Retries",
00:06:15 verbose #23655 > 3
00:06:15 verbose #23656 > ]
00:06:17 verbose #23657 >
00:06:17 verbose #23658 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:17 verbose #23659 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:17 verbose #23660 > │ # stream │
00:06:17 verbose #23661 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:17 verbose #23662 >
00:06:17 verbose #23663 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:17 verbose #23664 > // // test
00:06:17 verbose #23665 >
00:06:17 verbose #23666 > open testing
00:06:20 verbose #23667 > 00:06:19 debug #473 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:06:21 verbose #23668 >
00:06:21 verbose #23669 > ╭─[ 3.80s - stdout ]───────────────────────────────────────────────────────────╮
00:06:21 verbose #23670 > │ () │
00:06:21 verbose #23671 > │ │
00:06:21 verbose #23672 > │ │
00:06:21 verbose #23673 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 verbose #23674 >
00:06:21 verbose #23675 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 verbose #23676 > union rec stream t =
00:06:21 verbose #23677 > | StreamCons : t * (() -> stream t)
00:06:21 verbose #23678 > | StreamNil
00:06:21 verbose #23679 > 00:06:20 debug #474 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ec5e164ac07366f183dc76ef1b51602a0defc05ad4435dba9375a5275a4ed76a/main.spi
00:06:21 verbose #23680 >
00:06:21 verbose #23681 > ╭─[ 236.17ms - stdout ]────────────────────────────────────────────────────────╮
00:06:21 verbose #23682 > │ () │
00:06:21 verbose #23683 > │ │
00:06:21 verbose #23684 > │ │
00:06:21 verbose #23685 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 verbose #23686 >
00:06:21 verbose #23687 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:21 verbose #23688 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:21 verbose #23689 > │ ## fold │
00:06:21 verbose #23690 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 verbose #23691 >
00:06:21 verbose #23692 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 verbose #23693 > inl fold fn init s =
00:06:21 verbose #23694 > inl rec body acc = function
00:06:21 verbose #23695 > | StreamCons (st, fn') => loop (fn acc st) (fn' ())
00:06:21 verbose #23696 > | StreamNil => acc
00:06:21 verbose #23697 > and inl loop acc = join_body body acc
00:06:21 verbose #23698 > loop init s
00:06:21 verbose #23699 > 00:06:21 debug #475 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/46d11b2427280a474479a75472c7fc6e27a423c40d13b933ba5fce989df2b52e/main.spi
00:06:21 verbose #23700 >
00:06:21 verbose #23701 > ╭─[ 270.84ms - stdout ]────────────────────────────────────────────────────────╮
00:06:21 verbose #23702 > │ () │
00:06:21 verbose #23703 > │ │
00:06:21 verbose #23704 > │ │
00:06:21 verbose #23705 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 verbose #23706 >
00:06:21 verbose #23707 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:21 verbose #23708 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:21 verbose #23709 > │ ## fold_back │
00:06:21 verbose #23710 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:21 verbose #23711 >
00:06:21 verbose #23712 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:21 verbose #23713 > inl fold_back fn s init =
00:06:21 verbose #23714 > inl rec body acc = function
00:06:21 verbose #23715 > | StreamCons (st, fn') => fn st (loop acc (fn' ()))
00:06:21 verbose #23716 > | StreamNil => acc
00:06:21 verbose #23717 > and inl loop acc = join_body body acc
00:06:21 verbose #23718 > loop init s
00:06:22 verbose #23719 > 00:06:21 debug #476 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0164ff90265037c7589e8fb7b9ecacd0811f8b6de14de3a315624b9e0305f2e5/main.spi
00:06:22 verbose #23720 >
00:06:22 verbose #23721 > ╭─[ 258.94ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 verbose #23722 > │ () │
00:06:22 verbose #23723 > │ │
00:06:22 verbose #23724 > │ │
00:06:22 verbose #23725 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23726 >
00:06:22 verbose #23727 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:22 verbose #23728 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:22 verbose #23729 > │ ## to_list │
00:06:22 verbose #23730 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23731 >
00:06:22 verbose #23732 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 verbose #23733 > inl to_list s =
00:06:22 verbose #23734 > (s, [[]])
00:06:22 verbose #23735 > ||> fold_back fun x acc =>
00:06:22 verbose #23736 > x :: acc
00:06:22 verbose #23737 > 00:06:21 debug #477 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b299ef3fbaa1ffb974df90dd8151b724f60ad923f7ea83a73164fc2e8cbfd85f/main.spi
00:06:22 verbose #23738 >
00:06:22 verbose #23739 > ╭─[ 241.29ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 verbose #23740 > │ () │
00:06:22 verbose #23741 > │ │
00:06:22 verbose #23742 > │ │
00:06:22 verbose #23743 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23744 >
00:06:22 verbose #23745 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:22 verbose #23746 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:22 verbose #23747 > │ ## rev │
00:06:22 verbose #23748 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23749 >
00:06:22 verbose #23750 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 verbose #23751 > inl rev s =
00:06:22 verbose #23752 > (StreamNil, s)
00:06:22 verbose #23753 > ||> fold fun s x =>
00:06:22 verbose #23754 > StreamCons (x, fun () => s)
00:06:22 verbose #23755 > 00:06:21 debug #478 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/25e9fd50c5fbb3fadff28cedd6034e4c93894e8f5fb85b52feee0a0002645954/main.spi
00:06:22 verbose #23756 >
00:06:22 verbose #23757 > ╭─[ 253.67ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 verbose #23758 > │ () │
00:06:22 verbose #23759 > │ │
00:06:22 verbose #23760 > │ │
00:06:22 verbose #23761 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23762 >
00:06:22 verbose #23763 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:22 verbose #23764 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:22 verbose #23765 > │ ## from_list │
00:06:22 verbose #23766 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23767 >
00:06:22 verbose #23768 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 verbose #23769 > inl from_list list =
00:06:22 verbose #23770 > (list, StreamNil)
00:06:22 verbose #23771 > ||> listm.foldBack fun x acc =>
00:06:22 verbose #23772 > StreamCons (x, fun () => acc)
00:06:22 verbose #23773 > 00:06:22 debug #479 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eb18c021fc2ea3a3b4a122fd6696ae180d843f1e42519b73ddbce3f2b0689847/main.spi
00:06:22 verbose #23774 >
00:06:22 verbose #23775 > ╭─[ 270.26ms - stdout ]────────────────────────────────────────────────────────╮
00:06:22 verbose #23776 > │ () │
00:06:22 verbose #23777 > │ │
00:06:22 verbose #23778 > │ │
00:06:22 verbose #23779 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:22 verbose #23780 >
00:06:22 verbose #23781 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:22 verbose #23782 > // // test
00:06:22 verbose #23783 >
00:06:22 verbose #23784 > listm.init 3i32 id
00:06:22 verbose #23785 > |> from_list
00:06:22 verbose #23786 > |> rev
00:06:22 verbose #23787 > |> to_list
00:06:22 verbose #23788 > |> _assert_eq [[ 2; 1; 0 ]]
00:06:23 verbose #23789 > 00:06:22 debug #480 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d4cdff881161d287ef2dae58c2a2a48a4ac818bfbde735b8868b449ef6d3095b/main.spi
00:06:24 verbose #23790 >
00:06:24 verbose #23791 > ╭─[ 1.32s - stdout ]───────────────────────────────────────────────────────────╮
00:06:24 verbose #23792 > │ type UH0 = │
00:06:24 verbose #23793 > │ | UH0_0 │
00:06:24 verbose #23794 > │ | UH0_1 of int32 * UH0 │
00:06:24 verbose #23795 > │ let rec method0 () : unit = │
00:06:24 verbose #23796 > │ let v0 : UH0 = UH0_0 │
00:06:24 verbose #23797 > │ let v1 : UH0 = UH0_1(0, v0) │
00:06:24 verbose #23798 > │ let v2 : UH0 = UH0_1(1, v1) │
00:06:24 verbose #23799 > │ let v3 : UH0 = UH0_1(2, v2) │
00:06:24 verbose #23800 > │ let v4 : string = $"%A{v3}" │
00:06:24 verbose #23801 > │ System.Console.WriteLine v4 │
00:06:24 verbose #23802 > │ let v23 : UH0 = UH0_0 │
00:06:24 verbose #23803 > │ let v24 : UH0 = UH0_1(0, v23) │
00:06:24 verbose #23804 > │ let v25 : UH0 = UH0_1(1, v24) │
00:06:24 verbose #23805 > │ let v26 : UH0 = UH0_1(2, v25) │
00:06:24 verbose #23806 > │ let v27 : UH0 = UH0_0 │
00:06:24 verbose #23807 > │ let v28 : UH0 = UH0_1(0, v27) │
00:06:24 verbose #23808 > │ let v29 : UH0 = UH0_1(1, v28) │
00:06:24 verbose #23809 > │ let v30 : UH0 = UH0_1(2, v29) │
00:06:24 verbose #23810 > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:06:24 verbose #23811 > │ () │
00:06:24 verbose #23812 > │ method0() │
00:06:24 verbose #23813 > │ │
00:06:24 verbose #23814 > │ UH0_1 (2, UH0_1 (1, UH0_1 (0, UH0_0))) │
00:06:24 verbose #23815 > │ │
00:06:24 verbose #23816 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 verbose #23817 >
00:06:24 verbose #23818 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 verbose #23819 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 verbose #23820 > │ ## try_item │
00:06:24 verbose #23821 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 verbose #23822 >
00:06:24 verbose #23823 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 verbose #23824 > inl try_item i s =
00:06:24 verbose #23825 > inl rec body i = function
00:06:24 verbose #23826 > | StreamCons (x, _) when i <= 0 => Some x
00:06:24 verbose #23827 > | StreamCons (_, fn) => loop (i - 1) (fn ())
00:06:24 verbose #23828 > | StreamNil => None
00:06:24 verbose #23829 > and inl loop acc s' =
00:06:24 verbose #23830 > match var_is acc, var_is s' with
00:06:24 verbose #23831 > | false, false => body acc s'
00:06:24 verbose #23832 > | _ =>
00:06:24 verbose #23833 > inl acc = dyn acc
00:06:24 verbose #23834 > inl s' = dyn s'
00:06:24 verbose #23835 > join body acc s'
00:06:24 verbose #23836 > loop i s
00:06:24 verbose #23837 >
00:06:24 verbose #23838 > inl item i =
00:06:24 verbose #23839 > try_item i >> optionm.value
00:06:24 verbose #23840 > 00:06:23 debug #481 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ea7fbf904784eb86dc9f830fab62fcf1b636a2e693f7e86963e088ab53b86c27/main.spi
00:06:24 verbose #23841 >
00:06:24 verbose #23842 > ╭─[ 259.16ms - stdout ]────────────────────────────────────────────────────────╮
00:06:24 verbose #23843 > │ () │
00:06:24 verbose #23844 > │ │
00:06:24 verbose #23845 > │ │
00:06:24 verbose #23846 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 verbose #23847 >
00:06:24 verbose #23848 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 verbose #23849 > // // test
00:06:24 verbose #23850 >
00:06:24 verbose #23851 > listm.init 10i32 id
00:06:24 verbose #23852 > |> from_list
00:06:24 verbose #23853 > |> item 9i32
00:06:24 verbose #23854 > |> _assert_eq 9
00:06:24 verbose #23855 > 00:06:24 debug #482 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/639af1cf7869250282ea44349c3271e8e9114f7c9fe7038785d3f490ea78a775/main.spi
00:06:24 verbose #23856 >
00:06:24 verbose #23857 > ╭─[ 307.52ms - stdout ]────────────────────────────────────────────────────────╮
00:06:24 verbose #23858 > │ let rec method0 () : unit = │
00:06:24 verbose #23859 > │ let v0 : string = $"%A{9}" │
00:06:24 verbose #23860 > │ System.Console.WriteLine v0 │
00:06:24 verbose #23861 > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:06:24 verbose #23862 > │ () │
00:06:24 verbose #23863 > │ method0() │
00:06:24 verbose #23864 > │ │
00:06:24 verbose #23865 > │ 9 │
00:06:24 verbose #23866 > │ │
00:06:24 verbose #23867 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 verbose #23868 >
00:06:24 verbose #23869 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 verbose #23870 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 verbose #23871 > │ ## new_infinite_stream │
00:06:24 verbose #23872 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 verbose #23873 >
00:06:24 verbose #23874 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 verbose #23875 > inl new_infinite_stream fn =
00:06:24 verbose #23876 > inl rec loop n =
00:06:24 verbose #23877 > StreamCons (fn n, fun () => loop (n + 1))
00:06:24 verbose #23878 > loop 0
00:06:24 verbose #23879 >
00:06:24 verbose #23880 > inl new_infinite_stream_ fn =
00:06:24 verbose #23881 > let rec loop n =
00:06:24 verbose #23882 > StreamCons (fn n, fun () => loop (n + 1))
00:06:24 verbose #23883 > loop 0
00:06:24 verbose #23884 > 00:06:24 debug #483 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7cb1e7b6a82f7df548f42f0a1026996e2529db405f972ecd4f2ddcdde8316a2f/main.spi
00:06:25 verbose #23885 >
00:06:25 verbose #23886 > ╭─[ 223.66ms - stdout ]────────────────────────────────────────────────────────╮
00:06:25 verbose #23887 > │ () │
00:06:25 verbose #23888 > │ │
00:06:25 verbose #23889 > │ │
00:06:25 verbose #23890 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #23891 >
00:06:25 verbose #23892 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 verbose #23893 > // // test
00:06:25 verbose #23894 >
00:06:25 verbose #23895 > new_infinite_stream print_and_return
00:06:25 verbose #23896 > |> item 4i32
00:06:25 verbose #23897 > |> _assert_eq 4i32
00:06:25 verbose #23898 > 00:06:24 debug #484 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cd124474f0fc7c55758f9f3563c4f792dd1e2f51f1d019b539e00df4cce8448d/main.spi
00:06:25 verbose #23899 >
00:06:25 verbose #23900 > ╭─[ 269.95ms - stdout ]────────────────────────────────────────────────────────╮
00:06:25 verbose #23901 > │ let rec method0 () : unit = │
00:06:25 verbose #23902 > │ printfn $"print_and_return / x: {0}" │
00:06:25 verbose #23903 > │ printfn $"print_and_return / x: {1}" │
00:06:25 verbose #23904 > │ printfn $"print_and_return / x: {2}" │
00:06:25 verbose #23905 > │ printfn $"print_and_return / x: {3}" │
00:06:25 verbose #23906 > │ printfn $"print_and_return / x: {4}" │
00:06:25 verbose #23907 > │ let v0 : string = $"%A{4}" │
00:06:25 verbose #23908 > │ System.Console.WriteLine v0 │
00:06:25 verbose #23909 > │ let v1 : string = $"__expect / actual: %A{4} / expected: %A{4}" │
00:06:25 verbose #23910 > │ () │
00:06:25 verbose #23911 > │ method0() │
00:06:25 verbose #23912 > │ │
00:06:25 verbose #23913 > │ print_and_return / x: 0 │
00:06:25 verbose #23914 > │ print_and_return / x: 1 │
00:06:25 verbose #23915 > │ print_and_return / x: 2 │
00:06:25 verbose #23916 > │ print_and_return / x: 3 │
00:06:25 verbose #23917 > │ print_and_return / x: 4 │
00:06:25 verbose #23918 > │ 4 │
00:06:25 verbose #23919 > │ │
00:06:25 verbose #23920 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #23921 >
00:06:25 verbose #23922 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:25 verbose #23923 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:25 verbose #23924 > │ ## new_finite_stream │
00:06:25 verbose #23925 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #23926 >
00:06:25 verbose #23927 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 verbose #23928 > inl new_finite_stream fn max =
00:06:25 verbose #23929 > inl rec loop n =
00:06:25 verbose #23930 > if n >= max
00:06:25 verbose #23931 > then StreamNil
00:06:25 verbose #23932 > else StreamCons (fn n, fun () => loop (n + 1))
00:06:25 verbose #23933 > loop 0
00:06:25 verbose #23934 > 00:06:24 debug #485 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e322a9835bb539466a32722801f79e3b1a068747b7ae8d308f941a95a9319ee6/main.spi
00:06:25 verbose #23935 >
00:06:25 verbose #23936 > ╭─[ 274.85ms - stdout ]────────────────────────────────────────────────────────╮
00:06:25 verbose #23937 > │ () │
00:06:25 verbose #23938 > │ │
00:06:25 verbose #23939 > │ │
00:06:25 verbose #23940 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #23941 >
00:06:25 verbose #23942 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:25 verbose #23943 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:25 verbose #23944 > │ ## memoize │
00:06:25 verbose #23945 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #23946 >
00:06:25 verbose #23947 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 verbose #23948 > union memoized_stream t =
00:06:25 verbose #23949 > | NotComputed : () -> stream t
00:06:25 verbose #23950 > | Computed : stream t
00:06:25 verbose #23951 >
00:06:25 verbose #23952 > inl memoize s =
00:06:25 verbose #23953 > inl rec body s =
00:06:25 verbose #23954 > inl state = mut (NotComputed s)
00:06:25 verbose #23955 > fun () =>
00:06:25 verbose #23956 > match *state with
00:06:25 verbose #23957 > | Computed x => x
00:06:25 verbose #23958 > | NotComputed fn =>
00:06:25 verbose #23959 > inl new_state =
00:06:25 verbose #23960 > match fn () with
00:06:25 verbose #23961 > | StreamNil => StreamNil
00:06:25 verbose #23962 > | StreamCons (x, fn) => StreamCons (x, loop fn)
00:06:25 verbose #23963 > state <- Computed new_state
00:06:25 verbose #23964 > new_state
00:06:25 verbose #23965 > and inl loop s' = join_body_unit body s s'
00:06:25 verbose #23966 > loop (fun () => s)
00:06:25 verbose #23967 > 00:06:25 debug #486 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a87a0d438a85f99ed29debb238f8a219ab4bedc1e327efe646a031e2281d507e/main.spi
00:06:25 verbose #23968 >
00:06:25 verbose #23969 > ╭─[ 238.25ms - stdout ]────────────────────────────────────────────────────────╮
00:06:25 verbose #23970 > │ () │
00:06:25 verbose #23971 > │ │
00:06:25 verbose #23972 > │ │
00:06:25 verbose #23973 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #23974 >
00:06:25 verbose #23975 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 verbose #23976 > // // test
00:06:25 verbose #23977 >
00:06:25 verbose #23978 > inl memo_stream = new_finite_stream print_and_return 10 |> memoize
00:06:25 verbose #23979 >
00:06:25 verbose #23980 > memo_stream ()
00:06:25 verbose #23981 > |> item 3i32
00:06:25 verbose #23982 > |> _assert_eq 3i32
00:06:25 verbose #23983 >
00:06:25 verbose #23984 > memo_stream ()
00:06:25 verbose #23985 > |> item 5i32
00:06:25 verbose #23986 > |> _assert_eq 5i32
00:06:26 verbose #23987 > 00:06:25 debug #487 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1d79ef58c19a796aede33305401f553e0b65733855a18ab95b2513c9ed417fcf/main.spi
00:06:26 verbose #23988 >
00:06:26 verbose #23989 > ╭─[ 599.09ms - stdout ]────────────────────────────────────────────────────────╮
00:06:26 verbose #23990 > │ type UH0 = │
00:06:26 verbose #23991 > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:26 verbose #23992 > │ | UH0_1 │
00:06:26 verbose #23993 > │ and [<Struct>] US0 = │
00:06:26 verbose #23994 > │ | US0_0 of f0_0 : (unit -> UH0) │
00:06:26 verbose #23995 > │ | US0_1 of f1_0 : UH0 │
00:06:26 verbose #23996 > │ and Mut0 = {mutable l0 : US0} │
00:06:26 verbose #23997 > │ and [<Struct>] US1 = │
00:06:26 verbose #23998 > │ | US1_0 of f0_0 : int32 │
00:06:26 verbose #23999 > │ | US1_1 │
00:06:26 verbose #24000 > │ let rec closure10 () () : UH0 = │
00:06:26 verbose #24001 > │ UH0_1 │
00:06:26 verbose #24002 > │ and closure9 () () : UH0 = │
00:06:26 verbose #24003 > │ printfn $"print_and_return / x: {9}" │
00:06:26 verbose #24004 > │ let v0 : (unit -> UH0) = closure10() │
00:06:26 verbose #24005 > │ UH0_0(9, v0) │
00:06:26 verbose #24006 > │ and closure8 () () : UH0 = │
00:06:26 verbose #24007 > │ printfn $"print_and_return / x: {8}" │
00:06:26 verbose #24008 > │ let v0 : (unit -> UH0) = closure9() │
00:06:26 verbose #24009 > │ UH0_0(8, v0) │
00:06:26 verbose #24010 > │ and closure7 () () : UH0 = │
00:06:26 verbose #24011 > │ printfn $"print_and_return / x: {7}" │
00:06:26 verbose #24012 > │ let v0 : (unit -> UH0) = closure8() │
00:06:26 verbose #24013 > │ UH0_0(7, v0) │
00:06:26 verbose #24014 > │ and closure6 () () : UH0 = │
00:06:26 verbose #24015 > │ printfn $"print_and_return / x: {6}" │
00:06:26 verbose #24016 > │ let v0 : (unit -> UH0) = closure7() │
00:06:26 verbose #24017 > │ UH0_0(6, v0) │
00:06:26 verbose #24018 > │ and closure5 () () : UH0 = │
00:06:26 verbose #24019 > │ printfn $"print_and_return / x: {5}" │
00:06:26 verbose #24020 > │ let v0 : (unit -> UH0) = closure6() │
00:06:26 verbose #24021 > │ UH0_0(5, v0) │
00:06:26 verbose #24022 > │ and closure4 () () : UH0 = │
00:06:26 verbose #24023 > │ printfn $"print_and_return / x: {4}" │
00:06:26 verbose #24024 > │ let v0 : (unit -> UH0) = closure5() │
00:06:26 verbose #24025 > │ UH0_0(4, v0) │
00:06:26 verbose #24026 > │ and closure3 () () : UH0 = │
00:06:26 verbose #24027 > │ printfn $"print_and_return / x: {3}" │
00:06:26 verbose #24028 > │ let v0 : (unit -> UH0) = closure4() │
00:06:26 verbose #24029 > │ UH0_0(3, v0) │
00:06:26 verbose #24030 > │ and closure2 () () : UH0 = │
00:06:26 verbose #24031 > │ printfn $"print_and_return / x: {2}" │
00:06:26 verbose #24032 > │ let v0 : (unit -> UH0) = closure3() │
00:06:26 verbose #24033 > │ UH0_0(2, v0) │
00:06:26 verbose #24034 > │ and closure1 () () : UH0 = │
00:06:26 verbose #24035 > │ printfn $"print_and_return / x: {1}" │
00:06:26 verbose #24036 > │ let v0 : (unit -> UH0) = closure2() │
00:06:26 verbose #24037 > │ UH0_0(1, v0) │
00:06:26 verbose #24038 > │ and closure0 () () : UH0 = │
00:06:26 verbose #24039 > │ let v0 : (unit -> UH0) = closure1() │
00:06:26 verbose #24040 > │ UH0_0(0, v0) │
00:06:26 verbose #24041 > │ and closure11 (v0 : Mut0) () : UH0 = │
00:06:26 verbose #24042 > │ let v1 : US0 = v0.l0 │
00:06:26 verbose #24043 > │ match v1 with │
00:06:26 verbose #24044 > │ | US0_1(v2) -> (* Computed *) │
00:06:26 verbose #24045 > │ v2 │
00:06:26 verbose #24046 > │ | US0_0(v3) -> (* NotComputed *) │
00:06:26 verbose #24047 > │ let v4 : UH0 = v3 () │
00:06:26 verbose #24048 > │ let v13 : UH0 = │
00:06:26 verbose #24049 > │ match v4 with │
00:06:26 verbose #24050 > │ | UH0_0(v6, v7) -> (* StreamCons *) │
00:06:26 verbose #24051 > │ let v8 : US0 = US0_0(v7) │
00:06:26 verbose #24052 > │ let v9 : Mut0 = {l0 = v8} : Mut0 │
00:06:26 verbose #24053 > │ let v10 : (unit -> UH0) = closure11(v9) │
00:06:26 verbose #24054 > │ UH0_0(v6, v10) │
00:06:26 verbose #24055 > │ | UH0_1 -> (* StreamNil *) │
00:06:26 verbose #24056 > │ UH0_1 │
00:06:26 verbose #24057 > │ let v14 : US0 = US0_1(v13) │
00:06:26 verbose #24058 > │ v0.l0 <- v14 │
00:06:26 verbose #24059 > │ v13 │
00:06:26 verbose #24060 > │ and method1 (v0 : int32, v1 : UH0) : US1 = │
00:06:26 verbose #24061 > │ match v1 with │
00:06:26 verbose #24062 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:26 verbose #24063 > │ let v4 : bool = v0 <= 0 │
00:06:26 verbose #24064 > │ if v4 then │
00:06:26 verbose #24065 > │ US1_0(v2) │
00:06:26 verbose #24066 > │ else │
00:06:26 verbose #24067 > │ let v6 : int32 = v0 - 1 │
00:06:26 verbose #24068 > │ let v7 : UH0 = v3 () │
00:06:26 verbose #24069 > │ method1(v6, v7) │
00:06:26 verbose #24070 > │ | UH0_1 -> (* StreamNil *) │
00:06:26 verbose #24071 > │ US1_1 │
00:06:26 verbose #24072 > │ and method2 (v0 : bool) : bool = │
00:06:26 verbose #24073 > │ v0 │
00:06:26 verbose #24074 > │ and method0 () : unit = │
00:06:26 verbose #24075 > │ printfn $"print_and_return / x: {0}" │
00:06:26 verbose #24076 > │ let v0 : (unit -> UH0) = closure0() │
00:06:26 verbose #24077 > │ let v1 : US0 = US0_0(v0) │
00:06:26 verbose #24078 > │ let v2 : Mut0 = {l0 = v1} : Mut0 │
00:06:26 verbose #24079 > │ let v3 : US0 = v2.l0 │
00:06:26 verbose #24080 > │ let v18 : UH0 = │
00:06:26 verbose #24081 > │ match v3 with │
00:06:26 verbose #24082 > │ | US0_1(v4) -> (* Computed *) │
00:06:26 verbose #24083 > │ v4 │
00:06:26 verbose #24084 > │ | US0_0(v5) -> (* NotComputed *) │
00:06:26 verbose #24085 > │ let v6 : UH0 = v5 () │
00:06:26 verbose #24086 > │ let v15 : UH0 = │
00:06:26 verbose #24087 > │ match v6 with │
00:06:26 verbose #24088 > │ | UH0_0(v8, v9) -> (* StreamCons *) │
00:06:26 verbose #24089 > │ let v10 : US0 = US0_0(v9) │
00:06:26 verbose #24090 > │ let v11 : Mut0 = {l0 = v10} : Mut0 │
00:06:26 verbose #24091 > │ let v12 : (unit -> UH0) = closure11(v11) │
00:06:26 verbose #24092 > │ UH0_0(v8, v12) │
00:06:26 verbose #24093 > │ | UH0_1 -> (* StreamNil *) │
00:06:26 verbose #24094 > │ UH0_1 │
00:06:26 verbose #24095 > │ let v16 : US0 = US0_1(v15) │
00:06:26 verbose #24096 > │ v2.l0 <- v16 │
00:06:26 verbose #24097 > │ v15 │
00:06:26 verbose #24098 > │ let v19 : int32 = 3 │
00:06:26 verbose #24099 > │ let v20 : US1 = method1(v19, v18) │
00:06:26 verbose #24100 > │ let v24 : int32 = │
00:06:26 verbose #24101 > │ match v20 with │
00:06:26 verbose #24102 > │ | US1_1 -> (* None *) │
00:06:26 verbose #24103 > │ failwith<int32> "Option does not have a value." │
00:06:26 verbose #24104 > │ | US1_0(v21) -> (* Some *) │
00:06:26 verbose #24105 > │ v21 │
00:06:26 verbose #24106 > │ let v25 : string = $"%A{v24}" │
00:06:26 verbose #24107 > │ System.Console.WriteLine v25 │
00:06:26 verbose #24108 > │ let v26 : bool = v24 = 3 │
00:06:26 verbose #24109 > │ let v28 : bool = │
00:06:26 verbose #24110 > │ if v26 then │
00:06:26 verbose #24111 > │ true │
00:06:26 verbose #24112 > │ else │
00:06:26 verbose #24113 > │ method2(v26) │
00:06:26 verbose #24114 > │ let v29 : string = $"__expect / actual: %A{v24} / expected: %A{3}" │
00:06:26 verbose #24115 > │ let v30 : bool = v28 = false │
00:06:26 verbose #24116 > │ if v30 then │
00:06:26 verbose #24117 > │ failwith<unit> v29 │
00:06:26 verbose #24118 > │ let v31 : US0 = v2.l0 │
00:06:26 verbose #24119 > │ let v46 : UH0 = │
00:06:26 verbose #24120 > │ match v31 with │
00:06:26 verbose #24121 > │ | US0_1(v32) -> (* Computed *) │
00:06:26 verbose #24122 > │ v32 │
00:06:26 verbose #24123 > │ | US0_0(v33) -> (* NotComputed *) │
00:06:26 verbose #24124 > │ let v34 : UH0 = v33 () │
00:06:26 verbose #24125 > │ let v43 : UH0 = │
00:06:26 verbose #24126 > │ match v34 with │
00:06:26 verbose #24127 > │ | UH0_0(v36, v37) -> (* StreamCons *) │
00:06:26 verbose #24128 > │ let v38 : US0 = US0_0(v37) │
00:06:26 verbose #24129 > │ let v39 : Mut0 = {l0 = v38} : Mut0 │
00:06:26 verbose #24130 > │ let v40 : (unit -> UH0) = closure11(v39) │
00:06:26 verbose #24131 > │ UH0_0(v36, v40) │
00:06:26 verbose #24132 > │ | UH0_1 -> (* StreamNil *) │
00:06:26 verbose #24133 > │ UH0_1 │
00:06:26 verbose #24134 > │ let v44 : US0 = US0_1(v43) │
00:06:26 verbose #24135 > │ v2.l0 <- v44 │
00:06:26 verbose #24136 > │ v43 │
00:06:26 verbose #24137 > │ let v47 : int32 = 5 │
00:06:26 verbose #24138 > │ let v48 : US1 = method1(v47, v46) │
00:06:26 verbose #24139 > │ let v52 : int32 = │
00:06:26 verbose #24140 > │ match v48 with │
00:06:26 verbose #24141 > │ | US1_1 -> (* None *) │
00:06:26 verbose #24142 > │ failwith<int32> "Option does not have a value." │
00:06:26 verbose #24143 > │ | US1_0(v49) -> (* Some *) │
00:06:26 verbose #24144 > │ v49 │
00:06:26 verbose #24145 > │ let v53 : string = $"%A{v52}" │
00:06:26 verbose #24146 > │ System.Console.WriteLine v53 │
00:06:26 verbose #24147 > │ let v54 : bool = v52 = 5 │
00:06:26 verbose #24148 > │ let v56 : bool = │
00:06:26 verbose #24149 > │ if v54 then │
00:06:26 verbose #24150 > │ true │
00:06:26 verbose #24151 > │ else │
00:06:26 verbose #24152 > │ method2(v54) │
00:06:26 verbose #24153 > │ let v57 : string = $"__expect / actual: %A{v52} / expected: %A{5}" │
00:06:26 verbose #24154 > │ let v58 : bool = v56 = false │
00:06:26 verbose #24155 > │ if v58 then │
00:06:26 verbose #24156 > │ failwith<unit> v57 │
00:06:26 verbose #24157 > │ method0() │
00:06:26 verbose #24158 > │ │
00:06:26 verbose #24159 > │ print_and_return / x: 0 │
00:06:26 verbose #24160 > │ print_and_return / x: 1 │
00:06:26 verbose #24161 > │ print_and_return / x: 2 │
00:06:26 verbose #24162 > │ print_and_return / x: 3 │
00:06:26 verbose #24163 > │ 3 │
00:06:26 verbose #24164 > │ print_and_return / x: 4 │
00:06:26 verbose #24165 > │ print_and_return / x: 5 │
00:06:26 verbose #24166 > │ 5 │
00:06:26 verbose #24167 > │ │
00:06:26 verbose #24168 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:26 verbose #24169 >
00:06:26 verbose #24170 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:26 verbose #24171 > // // test
00:06:26 verbose #24172 >
00:06:26 verbose #24173 > inl memo_stream = new_infinite_stream_ print_and_return |> memoize
00:06:26 verbose #24174 >
00:06:26 verbose #24175 > memo_stream ()
00:06:26 verbose #24176 > |> item 3i32
00:06:26 verbose #24177 > |> _assert_eq 3i32
00:06:26 verbose #24178 >
00:06:26 verbose #24179 > memo_stream ()
00:06:26 verbose #24180 > |> item 5i32
00:06:26 verbose #24181 > |> _assert_eq 5i32
00:06:26 verbose #24182 > 00:06:26 debug #488 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0126cb97375c4b8db393cd683add61325ad24a7a7409b24fcca3b862b8267b42/main.spi
00:06:26 verbose #24183 >
00:06:26 verbose #24184 > ╭─[ 336.09ms - stdout ]────────────────────────────────────────────────────────╮
00:06:26 verbose #24185 > │ type UH0 = │
00:06:26 verbose #24186 > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:26 verbose #24187 > │ | UH0_1 │
00:06:26 verbose #24188 > │ and [<Struct>] US0 = │
00:06:26 verbose #24189 > │ | US0_0 of f0_0 : (unit -> UH0) │
00:06:26 verbose #24190 > │ | US0_1 of f1_0 : UH0 │
00:06:26 verbose #24191 > │ and Mut0 = {mutable l0 : US0} │
00:06:26 verbose #24192 > │ and [<Struct>] US1 = │
00:06:26 verbose #24193 > │ | US1_0 of f0_0 : int32 │
00:06:26 verbose #24194 > │ | US1_1 │
00:06:26 verbose #24195 > │ let rec closure0 (v0 : int32) () : UH0 = │
00:06:26 verbose #24196 > │ let v1 : int32 = v0 + 1 │
00:06:26 verbose #24197 > │ method1(v1) │
00:06:26 verbose #24198 > │ and method1 (v0 : int32) : UH0 = │
00:06:26 verbose #24199 > │ printfn $"print_and_return / x: {v0}" │
00:06:26 verbose #24200 > │ let v1 : (unit -> UH0) = closure0(v0) │
00:06:26 verbose #24201 > │ UH0_0(v0, v1) │
00:06:26 verbose #24202 > │ and closure1 (v0 : UH0) () : UH0 = │
00:06:26 verbose #24203 > │ v0 │
00:06:26 verbose #24204 > │ and closure2 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:06:26 verbose #24205 > │ let v2 : US0 = v1.l0 │
00:06:26 verbose #24206 > │ match v2 with │
00:06:26 verbose #24207 > │ | US0_1(v3) -> (* Computed *) │
00:06:26 verbose #24208 > │ v3 │
00:06:26 verbose #24209 > │ | US0_0(v4) -> (* NotComputed *) │
00:06:26 verbose #24210 > │ let v5 : UH0 = v4 () │
00:06:26 verbose #24211 > │ let v12 : UH0 = │
00:06:26 verbose #24212 > │ match v5 with │
00:06:26 verbose #24213 > │ | UH0_0(v7, v8) -> (* StreamCons *) │
00:06:26 verbose #24214 > │ let v9 : (unit -> UH0) = method2(v0, v8) │
00:06:26 verbose #24215 > │ UH0_0(v7, v9) │
00:06:26 verbose #24216 > │ | UH0_1 -> (* StreamNil *) │
00:06:26 verbose #24217 > │ UH0_1 │
00:06:26 verbose #24218 > │ let v13 : US0 = US0_1(v12) │
00:06:26 verbose #24219 > │ v1.l0 <- v13 │
00:06:26 verbose #24220 > │ v12 │
00:06:26 verbose #24221 > │ and method2 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:06:26 verbose #24222 > │ let v2 : US0 = US0_0(v1) │
00:06:26 verbose #24223 > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:06:26 verbose #24224 > │ closure2(v0, v3) │
00:06:26 verbose #24225 > │ and method3 (v0 : int32, v1 : UH0) : US1 = │
00:06:26 verbose #24226 > │ match v1 with │
00:06:26 verbose #24227 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:26 verbose #24228 > │ let v4 : bool = v0 <= 0 │
00:06:26 verbose #24229 > │ if v4 then │
00:06:26 verbose #24230 > │ US1_0(v2) │
00:06:26 verbose #24231 > │ else │
00:06:26 verbose #24232 > │ let v6 : int32 = v0 - 1 │
00:06:26 verbose #24233 > │ let v7 : UH0 = v3 () │
00:06:26 verbose #24234 > │ method3(v6, v7) │
00:06:26 verbose #24235 > │ | UH0_1 -> (* StreamNil *) │
00:06:26 verbose #24236 > │ US1_1 │
00:06:26 verbose #24237 > │ and method4 (v0 : bool) : bool = │
00:06:26 verbose #24238 > │ v0 │
00:06:26 verbose #24239 > │ and method0 () : unit = │
00:06:26 verbose #24240 > │ let v0 : int32 = 0 │
00:06:26 verbose #24241 > │ let v1 : UH0 = method1(v0) │
00:06:26 verbose #24242 > │ let v2 : (unit -> UH0) = closure1(v1) │
00:06:26 verbose #24243 > │ let v3 : (unit -> UH0) = method2(v1, v2) │
00:06:26 verbose #24244 > │ let v4 : UH0 = v3 () │
00:06:26 verbose #24245 > │ let v5 : int32 = 3 │
00:06:26 verbose #24246 > │ let v6 : US1 = method3(v5, v4) │
00:06:26 verbose #24247 > │ let v10 : int32 = │
00:06:26 verbose #24248 > │ match v6 with │
00:06:26 verbose #24249 > │ | US1_1 -> (* None *) │
00:06:26 verbose #24250 > │ failwith<int32> "Option does not have a value." │
00:06:26 verbose #24251 > │ | US1_0(v7) -> (* Some *) │
00:06:26 verbose #24252 > │ v7 │
00:06:26 verbose #24253 > │ let v11 : string = $"%A{v10}" │
00:06:26 verbose #24254 > │ System.Console.WriteLine v11 │
00:06:26 verbose #24255 > │ let v12 : bool = v10 = 3 │
00:06:26 verbose #24256 > │ let v14 : bool = │
00:06:26 verbose #24257 > │ if v12 then │
00:06:26 verbose #24258 > │ true │
00:06:26 verbose #24259 > │ else │
00:06:26 verbose #24260 > │ method4(v12) │
00:06:26 verbose #24261 > │ let v15 : string = $"__expect / actual: %A{v10} / expected: %A{3}" │
00:06:26 verbose #24262 > │ let v16 : bool = v14 = false │
00:06:26 verbose #24263 > │ if v16 then │
00:06:26 verbose #24264 > │ failwith<unit> v15 │
00:06:26 verbose #24265 > │ let v17 : UH0 = v3 () │
00:06:26 verbose #24266 > │ let v18 : int32 = 5 │
00:06:26 verbose #24267 > │ let v19 : US1 = method3(v18, v17) │
00:06:26 verbose #24268 > │ let v23 : int32 = │
00:06:26 verbose #24269 > │ match v19 with │
00:06:26 verbose #24270 > │ | US1_1 -> (* None *) │
00:06:26 verbose #24271 > │ failwith<int32> "Option does not have a value." │
00:06:26 verbose #24272 > │ | US1_0(v20) -> (* Some *) │
00:06:26 verbose #24273 > │ v20 │
00:06:26 verbose #24274 > │ let v24 : string = $"%A{v23}" │
00:06:26 verbose #24275 > │ System.Console.WriteLine v24 │
00:06:26 verbose #24276 > │ let v25 : bool = v23 = 5 │
00:06:26 verbose #24277 > │ let v27 : bool = │
00:06:26 verbose #24278 > │ if v25 then │
00:06:26 verbose #24279 > │ true │
00:06:26 verbose #24280 > │ else │
00:06:26 verbose #24281 > │ method4(v25) │
00:06:26 verbose #24282 > │ let v28 : string = $"__expect / actual: %A{v23} / expected: %A{5}" │
00:06:26 verbose #24283 > │ let v29 : bool = v27 = false │
00:06:26 verbose #24284 > │ if v29 then │
00:06:26 verbose #24285 > │ failwith<unit> v28 │
00:06:26 verbose #24286 > │ method0() │
00:06:26 verbose #24287 > │ │
00:06:26 verbose #24288 > │ print_and_return / x: 0 │
00:06:26 verbose #24289 > │ print_and_return / x: 1 │
00:06:26 verbose #24290 > │ print_and_return / x: 2 │
00:06:26 verbose #24291 > │ print_and_return / x: 3 │
00:06:26 verbose #24292 > │ 3 │
00:06:26 verbose #24293 > │ print_and_return / x: 4 │
00:06:26 verbose #24294 > │ print_and_return / x: 5 │
00:06:26 verbose #24295 > │ 5 │
00:06:26 verbose #24296 > │ │
00:06:26 verbose #24297 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:26 verbose #24298 >
00:06:26 verbose #24299 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:26 verbose #24300 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:26 verbose #24301 > │ ## unfold │
00:06:26 verbose #24302 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:26 verbose #24303 >
00:06:26 verbose #24304 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:26 verbose #24305 > inl unfold f x0 =
00:06:26 verbose #24306 > inl rec body x =
00:06:26 verbose #24307 > match f x with
00:06:26 verbose #24308 > | Some (x', y) => StreamCons (x', fun () => loop y)
00:06:26 verbose #24309 > | None => StreamNil
00:06:26 verbose #24310 > and inl loop x = join_body_unit body x0 x
00:06:26 verbose #24311 > loop x0
00:06:27 verbose #24312 > 00:06:26 debug #489 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a718839f7e25674ae9006d1adf73ab7e38370db6ec655d3044b8a8d9a909d62f/main.spi
00:06:27 verbose #24313 >
00:06:27 verbose #24314 > ╭─[ 226.31ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 verbose #24315 > │ () │
00:06:27 verbose #24316 > │ │
00:06:27 verbose #24317 > │ │
00:06:27 verbose #24318 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24319 >
00:06:27 verbose #24320 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 verbose #24321 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 verbose #24322 > │ ## iterate │
00:06:27 verbose #24323 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24324 >
00:06:27 verbose #24325 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 verbose #24326 > inl iterate f =
00:06:27 verbose #24327 > unfold (fun x => Some (x, f x))
00:06:27 verbose #24328 > 00:06:26 debug #490 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/05612d30f66338f5fc973470abb32611fad46a6306f252ee064ae815df3fccf4/main.spi
00:06:27 verbose #24329 >
00:06:27 verbose #24330 > ╭─[ 227.58ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 verbose #24331 > │ () │
00:06:27 verbose #24332 > │ │
00:06:27 verbose #24333 > │ │
00:06:27 verbose #24334 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24335 >
00:06:27 verbose #24336 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 verbose #24337 > // // test
00:06:27 verbose #24338 >
00:06:27 verbose #24339 > iterate ((*) 2) 1i32
00:06:27 verbose #24340 > |> item 10i32
00:06:27 verbose #24341 > |> _assert_eq 1024
00:06:27 verbose #24342 > 00:06:26 debug #491 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9ecedaa8f53b2b35210e0cdb261560c5ecb3fb87d3ddf7174c76fc208c5c1dd9/main.spi
00:06:27 verbose #24343 >
00:06:27 verbose #24344 > ╭─[ 327.01ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 verbose #24345 > │ let rec method0 () : unit = │
00:06:27 verbose #24346 > │ let v0 : string = $"%A{1024}" │
00:06:27 verbose #24347 > │ System.Console.WriteLine v0 │
00:06:27 verbose #24348 > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:06:27 verbose #24349 > │ () │
00:06:27 verbose #24350 > │ method0() │
00:06:27 verbose #24351 > │ │
00:06:27 verbose #24352 > │ 1024 │
00:06:27 verbose #24353 > │ │
00:06:27 verbose #24354 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24355 >
00:06:27 verbose #24356 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 verbose #24357 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 verbose #24358 > │ ## take_while │
00:06:27 verbose #24359 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24360 >
00:06:27 verbose #24361 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 verbose #24362 > inl take_while cond s =
00:06:27 verbose #24363 > inl rec body i = function
00:06:27 verbose #24364 > | StreamCons (st, fn) when cond st i => StreamCons (st, fun () => loop
00:06:27 verbose #24365 > (i + 1) (fn ()))
00:06:27 verbose #24366 > | _ => StreamNil
00:06:27 verbose #24367 > and inl loop i = join_body body i
00:06:27 verbose #24368 > loop 0 s
00:06:27 verbose #24369 > 00:06:27 debug #492 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ffc67de91c64b757adfaecbe5a45c04b151bd865410c71d928529bdf9b2881e5/main.spi
00:06:27 verbose #24370 >
00:06:27 verbose #24371 > ╭─[ 234.59ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 verbose #24372 > │ () │
00:06:27 verbose #24373 > │ │
00:06:27 verbose #24374 > │ │
00:06:27 verbose #24375 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24376 >
00:06:27 verbose #24377 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 verbose #24378 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 verbose #24379 > │ ## sum │
00:06:27 verbose #24380 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #24381 >
00:06:27 verbose #24382 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 verbose #24383 > inl sum seq =
00:06:27 verbose #24384 > seq |> fold (+) 0
00:06:28 verbose #24385 > 00:06:27 debug #493 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/31b197d1538966e0e95d8e2273019ff9404eec16acfd8b1a283154828e1a22d3/main.spi
00:06:28 verbose #24386 >
00:06:28 verbose #24387 > ╭─[ 298.93ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 verbose #24388 > │ () │
00:06:28 verbose #24389 > │ │
00:06:28 verbose #24390 > │ │
00:06:28 verbose #24391 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 verbose #24392 >
00:06:28 verbose #24393 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 verbose #24394 > // // test
00:06:28 verbose #24395 >
00:06:28 verbose #24396 > listm.init 10i32 id
00:06:28 verbose #24397 > |> from_list
00:06:28 verbose #24398 > |> sum
00:06:28 verbose #24399 > |> _assert_eq 45
00:06:28 verbose #24400 > 00:06:27 debug #494 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a1059cdd2883e583c2c7efe84ffd1ee558e4999f7ee54795b75e5b46253cf359/main.spi
00:06:28 verbose #24401 >
00:06:28 verbose #24402 > ╭─[ 249.43ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 verbose #24403 > │ let rec method0 () : unit = │
00:06:28 verbose #24404 > │ let v0 : string = $"%A{45}" │
00:06:28 verbose #24405 > │ System.Console.WriteLine v0 │
00:06:28 verbose #24406 > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:28 verbose #24407 > │ () │
00:06:28 verbose #24408 > │ method0() │
00:06:28 verbose #24409 > │ │
00:06:28 verbose #24410 > │ 45 │
00:06:28 verbose #24411 > │ │
00:06:28 verbose #24412 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 verbose #24413 >
00:06:28 verbose #24414 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 verbose #24415 > // // test
00:06:28 verbose #24416 >
00:06:28 verbose #24417 > new_finite_stream print_and_return 10i32
00:06:28 verbose #24418 > |> take_while (fun n (_ : i32) => n < 5)
00:06:28 verbose #24419 > |> sum
00:06:28 verbose #24420 > |> _assert_eq 10
00:06:28 verbose #24421 > 00:06:28 debug #495 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f2a097ca7b8159171c62f1422577672fa7296e30b8c27eec1f2edc788fb08974/main.spi
00:06:28 verbose #24422 >
00:06:28 verbose #24423 > ╭─[ 255.48ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 verbose #24424 > │ let rec method0 () : unit = │
00:06:28 verbose #24425 > │ printfn $"print_and_return / x: {0}" │
00:06:28 verbose #24426 > │ printfn $"print_and_return / x: {1}" │
00:06:28 verbose #24427 > │ printfn $"print_and_return / x: {2}" │
00:06:28 verbose #24428 > │ printfn $"print_and_return / x: {3}" │
00:06:28 verbose #24429 > │ printfn $"print_and_return / x: {4}" │
00:06:28 verbose #24430 > │ printfn $"print_and_return / x: {5}" │
00:06:28 verbose #24431 > │ let v0 : string = $"%A{10}" │
00:06:28 verbose #24432 > │ System.Console.WriteLine v0 │
00:06:28 verbose #24433 > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:28 verbose #24434 > │ () │
00:06:28 verbose #24435 > │ method0() │
00:06:28 verbose #24436 > │ │
00:06:28 verbose #24437 > │ print_and_return / x: 0 │
00:06:28 verbose #24438 > │ print_and_return / x: 1 │
00:06:28 verbose #24439 > │ print_and_return / x: 2 │
00:06:28 verbose #24440 > │ print_and_return / x: 3 │
00:06:28 verbose #24441 > │ print_and_return / x: 4 │
00:06:28 verbose #24442 > │ print_and_return / x: 5 │
00:06:28 verbose #24443 > │ 10 │
00:06:28 verbose #24444 > │ │
00:06:28 verbose #24445 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 verbose #24446 >
00:06:28 verbose #24447 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 verbose #24448 > // // test
00:06:28 verbose #24449 >
00:06:28 verbose #24450 > new_infinite_stream print_and_return
00:06:28 verbose #24451 > |> take_while (fun n (_ : i32) => n < 5i32)
00:06:28 verbose #24452 > |> sum
00:06:28 verbose #24453 > |> _assert_eq 10
00:06:28 verbose #24454 > 00:06:28 debug #496 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/96447ddb722e12274cb1b24533ded3eb83fbcfb617e8b53c41211ccba18ab14a/main.spi
00:06:29 verbose #24455 >
00:06:29 verbose #24456 > ╭─[ 267.05ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 verbose #24457 > │ let rec method0 () : unit = │
00:06:29 verbose #24458 > │ printfn $"print_and_return / x: {0}" │
00:06:29 verbose #24459 > │ printfn $"print_and_return / x: {1}" │
00:06:29 verbose #24460 > │ printfn $"print_and_return / x: {2}" │
00:06:29 verbose #24461 > │ printfn $"print_and_return / x: {3}" │
00:06:29 verbose #24462 > │ printfn $"print_and_return / x: {4}" │
00:06:29 verbose #24463 > │ printfn $"print_and_return / x: {5}" │
00:06:29 verbose #24464 > │ let v0 : string = $"%A{10}" │
00:06:29 verbose #24465 > │ System.Console.WriteLine v0 │
00:06:29 verbose #24466 > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:29 verbose #24467 > │ () │
00:06:29 verbose #24468 > │ method0() │
00:06:29 verbose #24469 > │ │
00:06:29 verbose #24470 > │ print_and_return / x: 0 │
00:06:29 verbose #24471 > │ print_and_return / x: 1 │
00:06:29 verbose #24472 > │ print_and_return / x: 2 │
00:06:29 verbose #24473 > │ print_and_return / x: 3 │
00:06:29 verbose #24474 > │ print_and_return / x: 4 │
00:06:29 verbose #24475 > │ print_and_return / x: 5 │
00:06:29 verbose #24476 > │ 10 │
00:06:29 verbose #24477 > │ │
00:06:29 verbose #24478 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #24479 >
00:06:29 verbose #24480 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 verbose #24481 > // // test
00:06:29 verbose #24482 >
00:06:29 verbose #24483 > iterate ((*) 6) 1i32
00:06:29 verbose #24484 > |> take_while (fun _ i => i <= 7i32)
00:06:29 verbose #24485 > |> to_list
00:06:29 verbose #24486 > |> _assert_eq [[ 1i32; 6; 36; 216; 1296; 7776; 46656; 279936 ]]
00:06:29 verbose #24487 > 00:06:28 debug #497 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/73e7f8bbfbc626bb832a8d31282285ea7438ec3797ba8dae543ab95f4707af92/main.spi
00:06:29 verbose #24488 >
00:06:29 verbose #24489 > ╭─[ 278.57ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 verbose #24490 > │ type UH0 = │
00:06:29 verbose #24491 > │ | UH0_0 │
00:06:29 verbose #24492 > │ | UH0_1 of int32 * UH0 │
00:06:29 verbose #24493 > │ let rec method0 () : unit = │
00:06:29 verbose #24494 > │ let v0 : UH0 = UH0_0 │
00:06:29 verbose #24495 > │ let v1 : UH0 = UH0_1(279936, v0) │
00:06:29 verbose #24496 > │ let v2 : UH0 = UH0_1(46656, v1) │
00:06:29 verbose #24497 > │ let v3 : UH0 = UH0_1(7776, v2) │
00:06:29 verbose #24498 > │ let v4 : UH0 = UH0_1(1296, v3) │
00:06:29 verbose #24499 > │ let v5 : UH0 = UH0_1(216, v4) │
00:06:29 verbose #24500 > │ let v6 : UH0 = UH0_1(36, v5) │
00:06:29 verbose #24501 > │ let v7 : UH0 = UH0_1(6, v6) │
00:06:29 verbose #24502 > │ let v8 : UH0 = UH0_1(1, v7) │
00:06:29 verbose #24503 > │ let v9 : string = $"%A{v8}" │
00:06:29 verbose #24504 > │ System.Console.WriteLine v9 │
00:06:29 verbose #24505 > │ let v73 : UH0 = UH0_0 │
00:06:29 verbose #24506 > │ let v74 : UH0 = UH0_1(279936, v73) │
00:06:29 verbose #24507 > │ let v75 : UH0 = UH0_1(46656, v74) │
00:06:29 verbose #24508 > │ let v76 : UH0 = UH0_1(7776, v75) │
00:06:29 verbose #24509 > │ let v77 : UH0 = UH0_1(1296, v76) │
00:06:29 verbose #24510 > │ let v78 : UH0 = UH0_1(216, v77) │
00:06:29 verbose #24511 > │ let v79 : UH0 = UH0_1(36, v78) │
00:06:29 verbose #24512 > │ let v80 : UH0 = UH0_1(6, v79) │
00:06:29 verbose #24513 > │ let v81 : UH0 = UH0_1(1, v80) │
00:06:29 verbose #24514 > │ let v82 : UH0 = UH0_0 │
00:06:29 verbose #24515 > │ let v83 : UH0 = UH0_1(279936, v82) │
00:06:29 verbose #24516 > │ let v84 : UH0 = UH0_1(46656, v83) │
00:06:29 verbose #24517 > │ let v85 : UH0 = UH0_1(7776, v84) │
00:06:29 verbose #24518 > │ let v86 : UH0 = UH0_1(1296, v85) │
00:06:29 verbose #24519 > │ let v87 : UH0 = UH0_1(216, v86) │
00:06:29 verbose #24520 > │ let v88 : UH0 = UH0_1(36, v87) │
00:06:29 verbose #24521 > │ let v89 : UH0 = UH0_1(6, v88) │
00:06:29 verbose #24522 > │ let v90 : UH0 = UH0_1(1, v89) │
00:06:29 verbose #24523 > │ let v91 : string = $"__expect / actual: %A{v81} / expected: %A{v90}" │
00:06:29 verbose #24524 > │ () │
00:06:29 verbose #24525 > │ method0() │
00:06:29 verbose #24526 > │ │
00:06:29 verbose #24527 > │ UH0_1 │
00:06:29 verbose #24528 > │ (1, │
00:06:29 verbose #24529 > │ UH0_1 │
00:06:29 verbose #24530 > │ (6, │
00:06:29 verbose #24531 > │ UH0_1 │
00:06:29 verbose #24532 > │ (36, │
00:06:29 verbose #24533 > │ UH0_1 │
00:06:29 verbose #24534 > │ (216, │
00:06:29 verbose #24535 > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:06:29 verbose #24536 > │ UH0_0)))))))) │
00:06:29 verbose #24537 > │ │
00:06:29 verbose #24538 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #24539 >
00:06:29 verbose #24540 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 verbose #24541 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 verbose #24542 > │ ## indexed │
00:06:29 verbose #24543 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #24544 >
00:06:29 verbose #24545 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 verbose #24546 > inl indexed s =
00:06:29 verbose #24547 > ((StreamNil, 0), s)
00:06:29 verbose #24548 > ||> fold fun (acc, i) x =>
00:06:29 verbose #24549 > StreamCons ((i, x), fun () => acc), i + 1
00:06:29 verbose #24550 > |> fst
00:06:29 verbose #24551 > |> rev
00:06:29 verbose #24552 > 00:06:28 debug #498 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d01f46a1d9abcd27a5717c0a7c3039938a80c74cdb4be49f5ed8457c09c8ec61/main.spi
00:06:29 verbose #24553 >
00:06:29 verbose #24554 > ╭─[ 234.55ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 verbose #24555 > │ () │
00:06:29 verbose #24556 > │ │
00:06:29 verbose #24557 > │ │
00:06:29 verbose #24558 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #24559 >
00:06:29 verbose #24560 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 verbose #24561 > // // test
00:06:29 verbose #24562 >
00:06:29 verbose #24563 > listm.init 10i32 ((*) 2)
00:06:29 verbose #24564 > |> from_list
00:06:29 verbose #24565 > |> indexed
00:06:29 verbose #24566 > |> item 5i32
00:06:29 verbose #24567 > |> _assert_eq (5i32, 10i32)
00:06:29 verbose #24568 > 00:06:29 debug #499 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0cb9bb9f048d08b327a70e9dc3dfe56138aecd98255398d1f2d583749ba66f05/main.spi
00:06:29 verbose #24569 >
00:06:29 verbose #24570 > ╭─[ 330.28ms - stdout ]────────────────────────────────────────────────────────╮
00:06:29 verbose #24571 > │ let rec method0 () : unit = │
00:06:29 verbose #24572 > │ let v0 : string = $"%A{struct (5, 10)}" │
00:06:29 verbose #24573 > │ System.Console.WriteLine v0 │
00:06:29 verbose #24574 > │ let v1 : string = $"__expect / actual: %A{struct (5, 10)} / expected: │
00:06:29 verbose #24575 > │ %A{struct (5, 10)}" │
00:06:29 verbose #24576 > │ () │
00:06:29 verbose #24577 > │ method0() │
00:06:29 verbose #24578 > │ │
00:06:29 verbose #24579 > │ struct (5, 10) │
00:06:29 verbose #24580 > │ │
00:06:29 verbose #24581 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #24582 >
00:06:29 verbose #24583 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 verbose #24584 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 verbose #24585 > │ ## map │
00:06:29 verbose #24586 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #24587 >
00:06:29 verbose #24588 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 verbose #24589 > inl map fn s =
00:06:29 verbose #24590 > (s, StreamNil)
00:06:29 verbose #24591 > ||> fold_back fun x acc =>
00:06:29 verbose #24592 > StreamCons (fn x, fun () => acc)
00:06:30 verbose #24593 > 00:06:29 debug #500 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2ebc890e941a6bdf3ae3771aa98e6781f27596877ca74fae54d05fb28ac78d3e/main.spi
00:06:30 verbose #24594 >
00:06:30 verbose #24595 > ╭─[ 254.71ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 verbose #24596 > │ () │
00:06:30 verbose #24597 > │ │
00:06:30 verbose #24598 > │ │
00:06:30 verbose #24599 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #24600 >
00:06:30 verbose #24601 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 verbose #24602 > // // test
00:06:30 verbose #24603 >
00:06:30 verbose #24604 > listm.init 10i32 id
00:06:30 verbose #24605 > |> from_list
00:06:30 verbose #24606 > |> map ((*) 2)
00:06:30 verbose #24607 > |> item 5i32
00:06:30 verbose #24608 > |> _assert_eq 10i32
00:06:30 verbose #24609 > 00:06:29 debug #501 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6215b42265ea20612a82cd302ef00b8c19d0f659b0ce4910956e50dd9aee3f5d/main.spi
00:06:30 verbose #24610 >
00:06:30 verbose #24611 > ╭─[ 260.50ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 verbose #24612 > │ let rec method0 () : unit = │
00:06:30 verbose #24613 > │ let v0 : string = $"%A{10}" │
00:06:30 verbose #24614 > │ System.Console.WriteLine v0 │
00:06:30 verbose #24615 > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:30 verbose #24616 > │ () │
00:06:30 verbose #24617 > │ method0() │
00:06:30 verbose #24618 > │ │
00:06:30 verbose #24619 > │ 10 │
00:06:30 verbose #24620 > │ │
00:06:30 verbose #24621 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #24622 >
00:06:30 verbose #24623 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 verbose #24624 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 verbose #24625 > │ ## zip_with │
00:06:30 verbose #24626 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #24627 >
00:06:30 verbose #24628 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 verbose #24629 > inl zip_with fn s1 s2 =
00:06:30 verbose #24630 > inl rec loop s1 s2 =
00:06:30 verbose #24631 > match s1, s2 with
00:06:30 verbose #24632 > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:06:30 verbose #24633 > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:06:30 verbose #24634 > | StreamNil, _ | _, StreamNil => StreamNil
00:06:30 verbose #24635 > loop s1 s2
00:06:30 verbose #24636 >
00:06:30 verbose #24637 > inl zip_with_ fn s1 s2 =
00:06:30 verbose #24638 > let rec loop s1 s2 =
00:06:30 verbose #24639 > match s1, s2 with
00:06:30 verbose #24640 > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:06:30 verbose #24641 > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:06:30 verbose #24642 > | StreamNil, _ | _, StreamNil => StreamNil
00:06:30 verbose #24643 > loop s1 s2
00:06:30 verbose #24644 > 00:06:29 debug #502 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/30e35ffcaf96268d61fb7cc4639dd93937c234cd381253b442977083e8b19694/main.spi
00:06:30 verbose #24645 >
00:06:30 verbose #24646 > ╭─[ 223.51ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 verbose #24647 > │ () │
00:06:30 verbose #24648 > │ │
00:06:30 verbose #24649 > │ │
00:06:30 verbose #24650 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #24651 >
00:06:30 verbose #24652 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 verbose #24653 > // // test
00:06:30 verbose #24654 >
00:06:30 verbose #24655 > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:30 verbose #24656 > ||> zip_with (+)
00:06:30 verbose #24657 > |> item 2i32
00:06:30 verbose #24658 > |> _assert_eq 6
00:06:30 verbose #24659 > 00:06:30 debug #503 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d31bce54a07bdd17b7b532e94718c36f0d8932378fefdf9a143dc083e6615b4e/main.spi
00:06:30 verbose #24660 >
00:06:30 verbose #24661 > ╭─[ 300.55ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 verbose #24662 > │ let rec method0 () : unit = │
00:06:30 verbose #24663 > │ let v0 : string = $"%A{6}" │
00:06:30 verbose #24664 > │ System.Console.WriteLine v0 │
00:06:30 verbose #24665 > │ let v1 : string = $"__expect / actual: %A{6} / expected: %A{6}" │
00:06:30 verbose #24666 > │ () │
00:06:30 verbose #24667 > │ method0() │
00:06:30 verbose #24668 > │ │
00:06:30 verbose #24669 > │ 6 │
00:06:30 verbose #24670 > │ │
00:06:30 verbose #24671 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #24672 >
00:06:30 verbose #24673 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 verbose #24674 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 verbose #24675 > │ ## zip │
00:06:30 verbose #24676 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #24677 >
00:06:30 verbose #24678 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 verbose #24679 > inl zip s1 s2 =
00:06:30 verbose #24680 > zip_with pair s1 s2
00:06:30 verbose #24681 >
00:06:30 verbose #24682 > inl zip_ s1 s2 =
00:06:30 verbose #24683 > zip_with_ pair s1 s2
00:06:31 verbose #24684 > 00:06:30 debug #504 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/930462e229d4272c50aa477634abd3f7396c9d5b1bf5df59b4b965b88686b22d/main.spi
00:06:31 verbose #24685 >
00:06:31 verbose #24686 > ╭─[ 252.82ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 verbose #24687 > │ () │
00:06:31 verbose #24688 > │ │
00:06:31 verbose #24689 > │ │
00:06:31 verbose #24690 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 verbose #24691 >
00:06:31 verbose #24692 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 verbose #24693 > // // test
00:06:31 verbose #24694 >
00:06:31 verbose #24695 > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:31 verbose #24696 > ||> zip
00:06:31 verbose #24697 > |> item 5i32
00:06:31 verbose #24698 > |> _assert_eq (5, 10)
00:06:31 verbose #24699 > 00:06:30 debug #505 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e6be40564a7d4466a77f4c9ac2f483af1345472c347035db71e4cf01e1c76468/main.spi
00:06:31 verbose #24700 >
00:06:31 verbose #24701 > ╭─[ 271.23ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 verbose #24702 > │ let rec method0 () : unit = │
00:06:31 verbose #24703 > │ let v0 : string = $"%A{struct (5, 10)}" │
00:06:31 verbose #24704 > │ System.Console.WriteLine v0 │
00:06:31 verbose #24705 > │ let v1 : string = $"__expect / actual: %A{struct (5, 10)} / expected: │
00:06:31 verbose #24706 > │ %A{struct (5, 10)}" │
00:06:31 verbose #24707 > │ () │
00:06:31 verbose #24708 > │ method0() │
00:06:31 verbose #24709 > │ │
00:06:31 verbose #24710 > │ struct (5, 10) │
00:06:31 verbose #24711 > │ │
00:06:31 verbose #24712 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 verbose #24713 >
00:06:31 verbose #24714 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 verbose #24715 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 verbose #24716 > │ ## unzip │
00:06:31 verbose #24717 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 verbose #24718 >
00:06:31 verbose #24719 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 verbose #24720 > inl unzip s =
00:06:31 verbose #24721 > inl rec body s =
00:06:31 verbose #24722 > match s with
00:06:31 verbose #24723 > | StreamCons ((x, y), fn) =>
00:06:31 verbose #24724 > inl xs, ys = loop (fn ())
00:06:31 verbose #24725 > StreamCons (x, fun () => xs), StreamCons (y, fun () => ys)
00:06:31 verbose #24726 > | StreamNil => pair StreamNil StreamNil
00:06:31 verbose #24727 > and inl loop x =
00:06:31 verbose #24728 > if var_is x |> not
00:06:31 verbose #24729 > then body x
00:06:31 verbose #24730 > else
00:06:31 verbose #24731 > inl x = dyn x
00:06:31 verbose #24732 > join body x
00:06:31 verbose #24733 > loop s
00:06:31 verbose #24734 > 00:06:31 debug #506 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/886600499881ee6985109e44f7d7ad5445d39668c382dd86a5f7ab39e6bb9d3d/main.spi
00:06:31 verbose #24735 >
00:06:31 verbose #24736 > ╭─[ 255.15ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 verbose #24737 > │ () │
00:06:31 verbose #24738 > │ │
00:06:31 verbose #24739 > │ │
00:06:31 verbose #24740 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 verbose #24741 >
00:06:31 verbose #24742 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 verbose #24743 > // // test
00:06:31 verbose #24744 >
00:06:31 verbose #24745 > listm.init 10i32 id
00:06:31 verbose #24746 > |> listm.map (fun x => x, x)
00:06:31 verbose #24747 > |> from_list
00:06:31 verbose #24748 > |> unzip
00:06:31 verbose #24749 > |> fun x, y =>
00:06:31 verbose #24750 > x |> sum
00:06:31 verbose #24751 > |> _assert_eq 45
00:06:31 verbose #24752 >
00:06:31 verbose #24753 > y |> sum
00:06:31 verbose #24754 > |> _assert_eq 45
00:06:31 verbose #24755 > 00:06:31 debug #507 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/276177dc1fb468ae47f51052b5efea3531e7e7076306fd11812b07cd39315430/main.spi
00:06:32 verbose #24756 >
00:06:32 verbose #24757 > ╭─[ 289.98ms - stdout ]────────────────────────────────────────────────────────╮
00:06:32 verbose #24758 > │ let rec method0 () : unit = │
00:06:32 verbose #24759 > │ let v0 : string = $"%A{45}" │
00:06:32 verbose #24760 > │ System.Console.WriteLine v0 │
00:06:32 verbose #24761 > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:32 verbose #24762 > │ let v2 : string = $"%A{45}" │
00:06:32 verbose #24763 > │ System.Console.WriteLine v2 │
00:06:32 verbose #24764 > │ let v3 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:32 verbose #24765 > │ () │
00:06:32 verbose #24766 > │ method0() │
00:06:32 verbose #24767 > │ │
00:06:32 verbose #24768 > │ 45 │
00:06:32 verbose #24769 > │ 45 │
00:06:32 verbose #24770 > │ │
00:06:32 verbose #24771 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 verbose #24772 >
00:06:32 verbose #24773 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:32 verbose #24774 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:32 verbose #24775 > │ ## enumerate │
00:06:32 verbose #24776 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 verbose #24777 >
00:06:32 verbose #24778 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:32 verbose #24779 > inl enumerate forall dim {int; number} t. (ar : a dim t) : a dim (unativeint *
00:06:32 verbose #24780 > t) =
00:06:32 verbose #24781 > open rust_operators
00:06:32 verbose #24782 > inl (a ar) = ar
00:06:32 verbose #24783 > inl ar = ar |> am'.to_vec
00:06:32 verbose #24784 > !\($'"!ar.into_iter().enumerate().map(std::rc::Rc::new).collect()"')
00:06:32 verbose #24785 > |> am'.vec_map from_pair
00:06:32 verbose #24786 > |> am'.from_vec
00:06:32 verbose #24787 > 00:06:31 debug #508 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/23aecec0f91d981613244110ab8329c369016bfb20a7ff5aff693884df6de7c8/main.spi
00:06:32 verbose #24788 >
00:06:32 verbose #24789 > ╭─[ 290.14ms - stdout ]────────────────────────────────────────────────────────╮
00:06:32 verbose #24790 > │ () │
00:06:32 verbose #24791 > │ │
00:06:32 verbose #24792 > │ │
00:06:32 verbose #24793 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 verbose #24794 > [NbConvertApp] Converting notebook stream.dib.ipynb to html
00:06:34 verbose #24795 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:34 verbose #24796 > validate(nb)
00:06:34 verbose #24797 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:34 verbose #24798 > return _pygments_highlight(
00:06:35 verbose #24799 > [NbConvertApp] Writing 363552 bytes to stream.dib.html
00:06:35 debug #24800 execute_with_options_async / exit_code: 0 / output.Length: 67885
00:06:35 debug #19 main / executeCommand / exitCode: 0
00:06:35 debug #24801 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 seq.dib" -Retries 3", None, None)
00:06:36 verbose #24802 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: seq.dib / _args: [
00:06:36 verbose #24803 > "-Retries",
00:06:36 verbose #24804 > 3
00:06:36 verbose #24805 > ]
00:06:38 verbose #24806 >
00:06:38 verbose #24807 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:38 verbose #24808 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:38 verbose #24809 > │ # seq │
00:06:38 verbose #24810 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:38 verbose #24811 >
00:06:38 verbose #24812 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:38 verbose #24813 > // // test
00:06:38 verbose #24814 >
00:06:38 verbose #24815 > open testing
00:06:41 verbose #24816 > 00:06:40 debug #509 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:06:42 verbose #24817 >
00:06:42 verbose #24818 > ╭─[ 4.03s - stdout ]───────────────────────────────────────────────────────────╮
00:06:42 verbose #24819 > │ () │
00:06:42 verbose #24820 > │ │
00:06:42 verbose #24821 > │ │
00:06:42 verbose #24822 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 verbose #24823 >
00:06:42 verbose #24824 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:42 verbose #24825 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:42 verbose #24826 > │ ## seq' │
00:06:42 verbose #24827 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 verbose #24828 >
00:06:42 verbose #24829 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:42 verbose #24830 > nominal seq' t = $"`t seq"
00:06:42 verbose #24831 > 00:06:41 debug #510 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/64cc398702829f61c764196b770edb6e8a65cb275a34cdaf80f0a8a4e8adaf46/main.spi
00:06:42 verbose #24832 >
00:06:42 verbose #24833 > ╭─[ 236.92ms - stdout ]────────────────────────────────────────────────────────╮
00:06:42 verbose #24834 > │ () │
00:06:42 verbose #24835 > │ │
00:06:42 verbose #24836 > │ │
00:06:42 verbose #24837 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 verbose #24838 >
00:06:42 verbose #24839 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:42 verbose #24840 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:42 verbose #24841 > │ ## of_array' │
00:06:42 verbose #24842 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 verbose #24843 >
00:06:42 verbose #24844 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:42 verbose #24845 > inl of_array' forall dim t. (items : a dim t) : seq' t =
00:06:42 verbose #24846 > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:06:42 verbose #24847 > 00:06:42 debug #511 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/718ecd66e25aaacda3a4a59875e2ebd55b2002499abe671adcb48dc839ee7ea2/main.spi
00:06:42 verbose #24848 >
00:06:42 verbose #24849 > ╭─[ 244.66ms - stdout ]────────────────────────────────────────────────────────╮
00:06:42 verbose #24850 > │ () │
00:06:42 verbose #24851 > │ │
00:06:42 verbose #24852 > │ │
00:06:42 verbose #24853 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 verbose #24854 >
00:06:42 verbose #24855 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:42 verbose #24856 > // // test
00:06:42 verbose #24857 >
00:06:42 verbose #24858 > (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:42 verbose #24859 > |> of_array'
00:06:43 verbose #24860 > 00:06:42 debug #512 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/acb98cdf7f4e2ab258f2356365aae77900b3ea921df1085fa46fed042bd088d2/main.spi
00:06:43 verbose #24861 >
00:06:43 verbose #24862 > ╭─[ 1.10s - return value ]─────────────────────────────────────────────────────╮
00:06:43 verbose #24863 > │ <details open="open" class="dni-treeview"><summary><span │
00:06:43 verbose #24864 > │ class="dni-code-hint"><code>[ a, b │
00:06:43 verbose #24865 > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:06:43 verbose #24866 > │ CheckClose</td><td><div │
00:06:43 verbose #24867 > │ class="dni-plaintext"><pre>False</pre></div></td></tr><tr><td>LastGenerated< │
00:06:43 verbose #24868 > │ /td><td><div │
00:06:43 verbose #24869 > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>v2</td> │
00:06:43 verbose #24870 > │ <td><div class="dni-plaintext"><pre>[ a, b │
00:06:43 verbose #24871 > │ ]</pre></div></td></tr><tr><td>enum</td><td><div │
00:06:43 verbose #24872 > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>pc</td> │
00:06:43 verbose #24873 > │ <td><div │
00:06:43 verbose #24874 > │ class="dni-plaintext"><pre>0</pre></div></td></tr><tr><td>current</td><td><d │
00:06:43 verbose #24875 > │ iv │
00:06:43 verbose #24876 > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td><i>(val │
00:06:43 verbose #24877 > │ ues)</i></td><td><div class="dni-plaintext"><pre>[ a, b ]</pr... │
00:06:43 verbose #24878 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:43 verbose #24879 >
00:06:43 verbose #24880 > ╭─[ 1.11s - stdout ]───────────────────────────────────────────────────────────╮
00:06:43 verbose #24881 > │ let rec method0 () : string seq = │
00:06:43 verbose #24882 > │ let v0 : string = "a" │
00:06:43 verbose #24883 > │ let v1 : string = "b" │
00:06:43 verbose #24884 > │ let v2 : (string []) = [|v0; v1|] │
00:06:43 verbose #24885 > │ let v3 : string seq = seq { for i = 0 to v2.Length - 1 do yield v2.[i] } │
00:06:43 verbose #24886 > │ v3 │
00:06:43 verbose #24887 > │ method0() │
00:06:43 verbose #24888 > │ │
00:06:43 verbose #24889 > │ │
00:06:43 verbose #24890 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:43 verbose #24891 >
00:06:43 verbose #24892 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:43 verbose #24893 > inl of_array forall dim t. (items : a dim t) : seq' t =
00:06:43 verbose #24894 > items |> $'Seq.ofArray'
00:06:44 verbose #24895 > 00:06:43 debug #513 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fd427663f6eb6751f4f0f955a1632825b2c7cd8596c47a9d73e6e5bd3378442c/main.spi
00:06:44 verbose #24896 >
00:06:44 verbose #24897 > ╭─[ 241.96ms - stdout ]────────────────────────────────────────────────────────╮
00:06:44 verbose #24898 > │ () │
00:06:44 verbose #24899 > │ │
00:06:44 verbose #24900 > │ │
00:06:44 verbose #24901 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #24902 >
00:06:44 verbose #24903 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:44 verbose #24904 > // // test
00:06:44 verbose #24905 >
00:06:44 verbose #24906 > (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:44 verbose #24907 > |> of_array
00:06:44 verbose #24908 > 00:06:43 debug #514 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/76e1618d801894c9a5e32f18cd73422bc9fea2684d5447cec02335122197ba87/main.spi
00:06:44 verbose #24909 >
00:06:44 verbose #24910 > ╭─[ 323.83ms - return value ]──────────────────────────────────────────────────╮
00:06:44 verbose #24911 > │ <details open="open" class="dni-treeview"><summary><span │
00:06:44 verbose #24912 > │ class="dni-code-hint"><code>[ a, b │
00:06:44 verbose #24913 > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:06:44 verbose #24914 > │ f</td><td><details class="dni-treeview"><summary><span │
00:06:44 verbose #24915 > │ class="dni-code-hint"><code>Microsoft.FSharp.Collections.SeqModule+OfArray@1 │
00:06:44 verbose #24916 > │ 010[ │
00:06:44 verbose #24917 > │ System.String]</code></span></summary><div><table><thead><tr></tr></thead><t │
00:06:44 verbose #24918 > │ body><tr><td>source</td><td><div class="dni-plaintext"><pre>[ a, b │
00:06:44 verbose #24919 > │ ]</pre></div></td></tr></tbody></table></div></details></td></tr><tr><td><i> │
00:06:44 verbose #24920 > │ (values)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:06:44 verbose #24921 > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:06:44 verbose #24922 > │ .dni-code-hint { │
00:06:44 verbose #24923 > │ font-style: italic; │
00:06:44 verbose #24924 > │ overflow: hidden; │
00:06:44 verbose #24925 > │ white-space: nowrap; │
00:06:44 verbose #24926 > │ } │
00:06:44 verbose #24927 > │ .dni-tree... │
00:06:44 verbose #24928 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #24929 >
00:06:44 verbose #24930 > ╭─[ 332.19ms - stdout ]────────────────────────────────────────────────────────╮
00:06:44 verbose #24931 > │ let rec method0 () : string seq = │
00:06:44 verbose #24932 > │ let v0 : string = "a" │
00:06:44 verbose #24933 > │ let v1 : string = "b" │
00:06:44 verbose #24934 > │ let v2 : (string []) = [|v0; v1|] │
00:06:44 verbose #24935 > │ let v3 : ((string []) -> string seq) = Seq.ofArray │
00:06:44 verbose #24936 > │ v3 v2 │
00:06:44 verbose #24937 > │ method0() │
00:06:44 verbose #24938 > │ │
00:06:44 verbose #24939 > │ │
00:06:44 verbose #24940 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #24941 >
00:06:44 verbose #24942 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:44 verbose #24943 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:44 verbose #24944 > │ ## of_string │
00:06:44 verbose #24945 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #24946 >
00:06:44 verbose #24947 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:44 verbose #24948 > inl of_string (s : string) : seq' char =
00:06:44 verbose #24949 > s |> unbox
00:06:44 verbose #24950 > 00:06:44 debug #515 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/de2fb64bf8dec7a2fba8906aced96b1e1be87de82cc0ac4616554e4717feb65d/main.spi
00:06:44 verbose #24951 >
00:06:44 verbose #24952 > ╭─[ 259.63ms - stdout ]────────────────────────────────────────────────────────╮
00:06:44 verbose #24953 > │ () │
00:06:44 verbose #24954 > │ │
00:06:44 verbose #24955 > │ │
00:06:44 verbose #24956 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #24957 >
00:06:44 verbose #24958 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:44 verbose #24959 > // // test
00:06:44 verbose #24960 >
00:06:44 verbose #24961 > "ab"
00:06:44 verbose #24962 > |> of_string
00:06:44 verbose #24963 > 00:06:44 debug #516 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d24be9fb801ef18fa04d4e1801f27ccffdb0687176265b1dc4d5123d89f00514/main.spi
00:06:45 verbose #24964 >
00:06:45 verbose #24965 > ╭─[ 253.78ms - return value ]──────────────────────────────────────────────────╮
00:06:45 verbose #24966 > │ ab │
00:06:45 verbose #24967 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #24968 >
00:06:45 verbose #24969 > ╭─[ 255.72ms - stdout ]────────────────────────────────────────────────────────╮
00:06:45 verbose #24970 > │ let rec method0 () : char seq = │
00:06:45 verbose #24971 > │ let v0 : string = "ab" │
00:06:45 verbose #24972 > │ let v1 : char seq = v0 |> unbox<char seq> │
00:06:45 verbose #24973 > │ v1 │
00:06:45 verbose #24974 > │ method0() │
00:06:45 verbose #24975 > │ │
00:06:45 verbose #24976 > │ │
00:06:45 verbose #24977 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #24978 >
00:06:45 verbose #24979 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #24980 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #24981 > │ ## to_array' │
00:06:45 verbose #24982 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #24983 >
00:06:45 verbose #24984 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #24985 > inl to_array' forall dim t. (items : seq' t) : a dim t =
00:06:45 verbose #24986 > items |> $'Seq.toArray'
00:06:45 verbose #24987 > 00:06:44 debug #517 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6e870ce17ba69f49be78cd3d647e52f48166aca1c9ca821b8fbc563b5e18389e/main.spi
00:06:45 verbose #24988 >
00:06:45 verbose #24989 > ╭─[ 242.29ms - stdout ]────────────────────────────────────────────────────────╮
00:06:45 verbose #24990 > │ () │
00:06:45 verbose #24991 > │ │
00:06:45 verbose #24992 > │ │
00:06:45 verbose #24993 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #24994 >
00:06:45 verbose #24995 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #24996 > // // test
00:06:45 verbose #24997 >
00:06:45 verbose #24998 > (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:45 verbose #24999 > |> of_array'
00:06:45 verbose #25000 > |> to_array'
00:06:45 verbose #25001 > |> _assert_eq (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:45 verbose #25002 > 00:06:44 debug #518 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d406a0d6d370557b459c2d1637c369a153d9bf506fdd15ba50c638f6b6129262/main.spi
00:06:45 verbose #25003 >
00:06:45 verbose #25004 > ╭─[ 533.86ms - stdout ]────────────────────────────────────────────────────────╮
00:06:45 verbose #25005 > │ let rec method1 (v0 : (string []), v1 : (string []), v2 : int32) : bool = │
00:06:45 verbose #25006 > │ let v3 : int32 = v0.Length │
00:06:45 verbose #25007 > │ let v4 : bool = v2 < v3 │
00:06:45 verbose #25008 > │ if v4 then │
00:06:45 verbose #25009 > │ let v5 : string = v0.[int v2] │
00:06:45 verbose #25010 > │ let v6 : string = v1.[int v2] │
00:06:45 verbose #25011 > │ let v7 : bool = v5 = v6 │
00:06:45 verbose #25012 > │ if v7 then │
00:06:45 verbose #25013 > │ let v8 : int32 = v2 + 1 │
00:06:45 verbose #25014 > │ method1(v0, v1, v8) │
00:06:45 verbose #25015 > │ else │
00:06:45 verbose #25016 > │ false │
00:06:45 verbose #25017 > │ else │
00:06:45 verbose #25018 > │ true │
00:06:45 verbose #25019 > │ and method2 (v0 : bool) : bool = │
00:06:45 verbose #25020 > │ v0 │
00:06:45 verbose #25021 > │ and method0 () : unit = │
00:06:45 verbose #25022 > │ let v0 : string = "a" │
00:06:45 verbose #25023 > │ let v1 : string = "b" │
00:06:45 verbose #25024 > │ let v2 : (string []) = [|v0; v1|] │
00:06:45 verbose #25025 > │ let v3 : string seq = seq { for i = 0 to v2.Length - 1 do yield v2.[i] } │
00:06:45 verbose #25026 > │ let v4 : (string seq -> (string [])) = Seq.toArray │
00:06:45 verbose #25027 > │ let v5 : (string []) = v4 v3 │
00:06:45 verbose #25028 > │ let v6 : (string []) = [|v0; v1|] │
00:06:45 verbose #25029 > │ let v7 : string = $"%A{v5}" │
00:06:45 verbose #25030 > │ System.Console.WriteLine v7 │
00:06:45 verbose #25031 > │ let v8 : int32 = v5.Length │
00:06:45 verbose #25032 > │ let v9 : int32 = v6.Length │
00:06:45 verbose #25033 > │ let v10 : bool = v8 = v9 │
00:06:45 verbose #25034 > │ let v11 : bool = v10 <> true │
00:06:45 verbose #25035 > │ let v14 : bool = │
00:06:45 verbose #25036 > │ if v11 then │
00:06:45 verbose #25037 > │ false │
00:06:45 verbose #25038 > │ else │
00:06:45 verbose #25039 > │ let v12 : int32 = 0 │
00:06:45 verbose #25040 > │ method1(v5, v6, v12) │
00:06:45 verbose #25041 > │ let v16 : bool = │
00:06:45 verbose #25042 > │ if v14 then │
00:06:45 verbose #25043 > │ true │
00:06:45 verbose #25044 > │ else │
00:06:45 verbose #25045 > │ method2(v14) │
00:06:45 verbose #25046 > │ let v17 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:45 verbose #25047 > │ let v18 : bool = v16 = false │
00:06:45 verbose #25048 > │ if v18 then │
00:06:45 verbose #25049 > │ failwith<unit> v17 │
00:06:45 verbose #25050 > │ method0() │
00:06:45 verbose #25051 > │ │
00:06:45 verbose #25052 > │ [|"a"; "b"|] │
00:06:45 verbose #25053 > │ │
00:06:45 verbose #25054 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #25055 >
00:06:45 verbose #25056 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #25057 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #25058 > │ ## to_list' │
00:06:45 verbose #25059 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #25060 >
00:06:45 verbose #25061 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #25062 > inl to_list' forall t. (items : seq' t) : listm'.list' t =
00:06:45 verbose #25063 > items |> $'Seq.toList'
00:06:46 verbose #25064 > 00:06:45 debug #519 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fd0d5662dd641b7990a01f36f160cc6527638d4915b32a46427f7d91af111ddf/main.spi
00:06:46 verbose #25065 >
00:06:46 verbose #25066 > ╭─[ 222.54ms - stdout ]────────────────────────────────────────────────────────╮
00:06:46 verbose #25067 > │ () │
00:06:46 verbose #25068 > │ │
00:06:46 verbose #25069 > │ │
00:06:46 verbose #25070 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #25071 >
00:06:46 verbose #25072 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #25073 > // // test
00:06:46 verbose #25074 >
00:06:46 verbose #25075 > "ab"
00:06:46 verbose #25076 > |> of_string
00:06:46 verbose #25077 > |> to_list'
00:06:46 verbose #25078 > |> listm'.unbox
00:06:46 verbose #25079 > |> _assert_eq ([[ 'a'; 'b' ]])
00:06:46 verbose #25080 > 00:06:45 debug #520 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1e657f0c44b21527d68b1c98a7a393d7277c746d460352fac514cdec1116b534/main.spi
00:06:46 verbose #25081 >
00:06:46 verbose #25082 > ╭─[ 686.77ms - stdout ]────────────────────────────────────────────────────────╮
00:06:46 verbose #25083 > │ type UH0 = │
00:06:46 verbose #25084 > │ | UH0_0 │
00:06:46 verbose #25085 > │ | UH0_1 of char * UH0 │
00:06:46 verbose #25086 > │ let rec closure1 (v0 : char) (v1 : UH0) : UH0 = │
00:06:46 verbose #25087 > │ UH0_1(v0, v1) │
00:06:46 verbose #25088 > │ and closure0 () (v0 : char) : (UH0 -> UH0) = │
00:06:46 verbose #25089 > │ closure1(v0) │
00:06:46 verbose #25090 > │ and method1 () : (char -> (UH0 -> UH0)) = │
00:06:46 verbose #25091 > │ closure0() │
00:06:46 verbose #25092 > │ and method2 (v0 : bool) : bool = │
00:06:46 verbose #25093 > │ v0 │
00:06:46 verbose #25094 > │ and method0 () : unit = │
00:06:46 verbose #25095 > │ let v0 : string = "ab" │
00:06:46 verbose #25096 > │ let v1 : char seq = v0 |> unbox<char seq> │
00:06:46 verbose #25097 > │ let v2 : (char seq -> char list) = Seq.toList │
00:06:46 verbose #25098 > │ let v3 : char list = v2 v1 │
00:06:46 verbose #25099 > │ let v4 : ((char -> (UH0 -> UH0)) -> (char list -> (UH0 -> UH0))) = │
00:06:46 verbose #25100 > │ List.foldBack │
00:06:46 verbose #25101 > │ let v5 : (char -> (UH0 -> UH0)) = method1() │
00:06:46 verbose #25102 > │ let v6 : (char list -> (UH0 -> UH0)) = v4 v5 │
00:06:46 verbose #25103 > │ let v7 : (UH0 -> UH0) = v6 v3 │
00:06:46 verbose #25104 > │ let v8 : UH0 = UH0_0 │
00:06:46 verbose #25105 > │ let v9 : UH0 = v7 v8 │
00:06:46 verbose #25106 > │ let v10 : string = $"%A{v9}" │
00:06:46 verbose #25107 > │ System.Console.WriteLine v10 │
00:06:46 verbose #25108 > │ let v24 : bool = │
00:06:46 verbose #25109 > │ match v9 with │
00:06:46 verbose #25110 > │ | UH0_1(v14, v15) -> (* Cons *) │
00:06:46 verbose #25111 > │ let v16 : bool = v14 = 'a' │
00:06:46 verbose #25112 > │ if v16 then │
00:06:46 verbose #25113 > │ match v15 with │
00:06:46 verbose #25114 > │ | UH0_1(v17, v18) -> (* Cons *) │
00:06:46 verbose #25115 > │ let v19 : bool = v17 = 'b' │
00:06:46 verbose #25116 > │ if v19 then │
00:06:46 verbose #25117 > │ match v18 with │
00:06:46 verbose #25118 > │ | UH0_0 -> (* Nil *) │
00:06:46 verbose #25119 > │ true │
00:06:46 verbose #25120 > │ | _ -> │
00:06:46 verbose #25121 > │ false │
00:06:46 verbose #25122 > │ else │
00:06:46 verbose #25123 > │ false │
00:06:46 verbose #25124 > │ | _ -> │
00:06:46 verbose #25125 > │ false │
00:06:46 verbose #25126 > │ else │
00:06:46 verbose #25127 > │ false │
00:06:46 verbose #25128 > │ | _ -> │
00:06:46 verbose #25129 > │ false │
00:06:46 verbose #25130 > │ let v26 : bool = │
00:06:46 verbose #25131 > │ if v24 then │
00:06:46 verbose #25132 > │ true │
00:06:46 verbose #25133 > │ else │
00:06:46 verbose #25134 > │ method2(v24) │
00:06:46 verbose #25135 > │ let v27 : UH0 = UH0_0 │
00:06:46 verbose #25136 > │ let v28 : UH0 = UH0_1('b', v27) │
00:06:46 verbose #25137 > │ let v29 : UH0 = UH0_1('a', v28) │
00:06:46 verbose #25138 > │ let v30 : string = $"__expect / actual: %A{v9} / expected: %A{v29}" │
00:06:46 verbose #25139 > │ let v31 : bool = v26 = false │
00:06:46 verbose #25140 > │ if v31 then │
00:06:46 verbose #25141 > │ failwith<unit> v30 │
00:06:46 verbose #25142 > │ method0() │
00:06:46 verbose #25143 > │ │
00:06:46 verbose #25144 > │ UH0_1 ('a', UH0_1 ('b', UH0_0)) │
00:06:46 verbose #25145 > │ │
00:06:46 verbose #25146 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #25147 >
00:06:46 verbose #25148 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #25149 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #25150 > │ ## rev' │
00:06:46 verbose #25151 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #25152 >
00:06:46 verbose #25153 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #25154 > inl rev'' forall t u. (items : t) : seq' u =
00:06:46 verbose #25155 > items |> $'Seq.rev'
00:06:46 verbose #25156 > 00:06:46 debug #521 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f6f7f836ee54c2696380c698d175600787ae9066b9aff69ebf1aa65c34a76574/main.spi
00:06:47 verbose #25157 >
00:06:47 verbose #25158 > ╭─[ 252.42ms - stdout ]────────────────────────────────────────────────────────╮
00:06:47 verbose #25159 > │ () │
00:06:47 verbose #25160 > │ │
00:06:47 verbose #25161 > │ │
00:06:47 verbose #25162 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25163 >
00:06:47 verbose #25164 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:47 verbose #25165 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:47 verbose #25166 > │ ## seq │
00:06:47 verbose #25167 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25168 >
00:06:47 verbose #25169 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:47 verbose #25170 > type seq dim el = dim -> option el
00:06:47 verbose #25171 > 00:06:46 debug #522 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d28e142c0c67d2d784445c3a3666f2e62216edd48066625651dc6fb1f3e0d94f/main.spi
00:06:47 verbose #25172 >
00:06:47 verbose #25173 > ╭─[ 261.53ms - stdout ]────────────────────────────────────────────────────────╮
00:06:47 verbose #25174 > │ () │
00:06:47 verbose #25175 > │ │
00:06:47 verbose #25176 > │ │
00:06:47 verbose #25177 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25178 >
00:06:47 verbose #25179 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:47 verbose #25180 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:47 verbose #25181 > │ ## try_item │
00:06:47 verbose #25182 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25183 >
00:06:47 verbose #25184 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:47 verbose #25185 > inl try_item n s =
00:06:47 verbose #25186 > n |> s
00:06:47 verbose #25187 > 00:06:46 debug #523 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/74cc7a6a17bc03b345a292c4a43799b8af35ca371f558bad4b8f506b0b1b8d93/main.spi
00:06:47 verbose #25188 >
00:06:47 verbose #25189 > ╭─[ 277.49ms - stdout ]────────────────────────────────────────────────────────╮
00:06:47 verbose #25190 > │ () │
00:06:47 verbose #25191 > │ │
00:06:47 verbose #25192 > │ │
00:06:47 verbose #25193 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25194 >
00:06:47 verbose #25195 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:47 verbose #25196 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:47 verbose #25197 > │ ## from_list │
00:06:47 verbose #25198 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25199 >
00:06:47 verbose #25200 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:47 verbose #25201 > inl from_list list =
00:06:47 verbose #25202 > fun n =>
00:06:47 verbose #25203 > list
00:06:47 verbose #25204 > |> listm'.try_item n
00:06:47 verbose #25205 > 00:06:47 debug #524 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ef7982e57fc8c800cc212f84268811863569a5ed648c1603457b2392a3e59918/main.spi
00:06:47 verbose #25206 >
00:06:47 verbose #25207 > ╭─[ 246.64ms - stdout ]────────────────────────────────────────────────────────╮
00:06:47 verbose #25208 > │ () │
00:06:47 verbose #25209 > │ │
00:06:47 verbose #25210 > │ │
00:06:47 verbose #25211 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:47 verbose #25212 >
00:06:47 verbose #25213 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:47 verbose #25214 > // // test
00:06:47 verbose #25215 >
00:06:47 verbose #25216 > listm.init 10i32 print_and_return
00:06:47 verbose #25217 > |> from_list
00:06:47 verbose #25218 > |> try_item 5i32
00:06:47 verbose #25219 > |> _assert_eq (Some 5i32)
00:06:48 verbose #25220 > 00:06:47 debug #525 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4d90157121cb02b06cf28d0aef7bc4280de969c578797d7de30b135b26967e39/main.spi
00:06:48 verbose #25221 >
00:06:48 verbose #25222 > ╭─[ 359.52ms - stdout ]────────────────────────────────────────────────────────╮
00:06:48 verbose #25223 > │ type [<Struct>] US0 = │
00:06:48 verbose #25224 > │ | US0_0 of f0_0 : int32 │
00:06:48 verbose #25225 > │ | US0_1 │
00:06:48 verbose #25226 > │ let rec method0 () : unit = │
00:06:48 verbose #25227 > │ printfn $"print_and_return / x: {0}" │
00:06:48 verbose #25228 > │ printfn $"print_and_return / x: {1}" │
00:06:48 verbose #25229 > │ printfn $"print_and_return / x: {2}" │
00:06:48 verbose #25230 > │ printfn $"print_and_return / x: {3}" │
00:06:48 verbose #25231 > │ printfn $"print_and_return / x: {4}" │
00:06:48 verbose #25232 > │ printfn $"print_and_return / x: {5}" │
00:06:48 verbose #25233 > │ printfn $"print_and_return / x: {6}" │
00:06:48 verbose #25234 > │ printfn $"print_and_return / x: {7}" │
00:06:48 verbose #25235 > │ printfn $"print_and_return / x: {8}" │
00:06:48 verbose #25236 > │ printfn $"print_and_return / x: {9}" │
00:06:48 verbose #25237 > │ let v0 : US0 = US0_0(5) │
00:06:48 verbose #25238 > │ let v1 : string = $"%A{v0}" │
00:06:48 verbose #25239 > │ System.Console.WriteLine v1 │
00:06:48 verbose #25240 > │ let v5 : US0 = US0_0(5) │
00:06:48 verbose #25241 > │ let v6 : US0 = US0_0(5) │
00:06:48 verbose #25242 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:48 verbose #25243 > │ () │
00:06:48 verbose #25244 > │ method0() │
00:06:48 verbose #25245 > │ │
00:06:48 verbose #25246 > │ print_and_return / x: 0 │
00:06:48 verbose #25247 > │ print_and_return / x: 1 │
00:06:48 verbose #25248 > │ print_and_return / x: 2 │
00:06:48 verbose #25249 > │ print_and_return / x: 3 │
00:06:48 verbose #25250 > │ print_and_return / x: 4 │
00:06:48 verbose #25251 > │ print_and_return / x: 5 │
00:06:48 verbose #25252 > │ print_and_return / x: 6 │
00:06:48 verbose #25253 > │ print_and_return / x: 7 │
00:06:48 verbose #25254 > │ print_and_return / x: 8 │
00:06:48 verbose #25255 > │ print_and_return / x: 9 │
00:06:48 verbose #25256 > │ US0_0 5 │
00:06:48 verbose #25257 > │ │
00:06:48 verbose #25258 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:48 verbose #25259 >
00:06:48 verbose #25260 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:48 verbose #25261 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:48 verbose #25262 > │ ## map │
00:06:48 verbose #25263 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:48 verbose #25264 >
00:06:48 verbose #25265 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:48 verbose #25266 > inl map fn s =
00:06:48 verbose #25267 > fun n =>
00:06:48 verbose #25268 > n
00:06:48 verbose #25269 > |> s
00:06:48 verbose #25270 > |> optionm.map fn
00:06:48 verbose #25271 > 00:06:47 debug #526 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/46ab2433f635379c8ba546312190594ec5a3093c5613cdc5c94b6ab36593950a/main.spi
00:06:48 verbose #25272 >
00:06:48 verbose #25273 > ╭─[ 226.08ms - stdout ]────────────────────────────────────────────────────────╮
00:06:48 verbose #25274 > │ () │
00:06:48 verbose #25275 > │ │
00:06:48 verbose #25276 > │ │
00:06:48 verbose #25277 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:48 verbose #25278 >
00:06:48 verbose #25279 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:48 verbose #25280 > // // test
00:06:48 verbose #25281 >
00:06:48 verbose #25282 > listm.init 10i32 id
00:06:48 verbose #25283 > |> from_list
00:06:48 verbose #25284 > |> map ((*) 2)
00:06:48 verbose #25285 > |> try_item 5i32
00:06:48 verbose #25286 > |> _assert_eq (Some 10i32)
00:06:48 verbose #25287 > 00:06:48 debug #527 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5206f72d2e32263d446b66a9aba80fa96644ef79d7266f2af51dc2cac5daa8af/main.spi
00:06:48 verbose #25288 >
00:06:48 verbose #25289 > ╭─[ 372.27ms - stdout ]────────────────────────────────────────────────────────╮
00:06:48 verbose #25290 > │ type [<Struct>] US0 = │
00:06:48 verbose #25291 > │ | US0_0 of f0_0 : int32 │
00:06:48 verbose #25292 > │ | US0_1 │
00:06:48 verbose #25293 > │ let rec method0 () : unit = │
00:06:48 verbose #25294 > │ let v0 : US0 = US0_0(10) │
00:06:48 verbose #25295 > │ let v1 : string = $"%A{v0}" │
00:06:48 verbose #25296 > │ System.Console.WriteLine v1 │
00:06:48 verbose #25297 > │ let v5 : US0 = US0_0(10) │
00:06:48 verbose #25298 > │ let v6 : US0 = US0_0(10) │
00:06:48 verbose #25299 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:48 verbose #25300 > │ () │
00:06:48 verbose #25301 > │ method0() │
00:06:48 verbose #25302 > │ │
00:06:48 verbose #25303 > │ US0_0 10 │
00:06:48 verbose #25304 > │ │
00:06:48 verbose #25305 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:48 verbose #25306 >
00:06:48 verbose #25307 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:48 verbose #25308 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:48 verbose #25309 > │ ## mapi │
00:06:48 verbose #25310 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:48 verbose #25311 >
00:06:48 verbose #25312 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:48 verbose #25313 > inl mapi fn s =
00:06:48 verbose #25314 > fun n =>
00:06:48 verbose #25315 > n
00:06:48 verbose #25316 > |> s
00:06:48 verbose #25317 > |> optionm.map (fn n)
00:06:48 verbose #25318 > 00:06:48 debug #528 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fc094533aacd3d1ca29d8b4e1ca4871d81053c6ae032739dfb318159b5202630/main.spi
00:06:49 verbose #25319 >
00:06:49 verbose #25320 > ╭─[ 230.43ms - stdout ]────────────────────────────────────────────────────────╮
00:06:49 verbose #25321 > │ () │
00:06:49 verbose #25322 > │ │
00:06:49 verbose #25323 > │ │
00:06:49 verbose #25324 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #25325 >
00:06:49 verbose #25326 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 verbose #25327 > // // test
00:06:49 verbose #25328 >
00:06:49 verbose #25329 > listm.init 10i32 print_and_return
00:06:49 verbose #25330 > |> from_list
00:06:49 verbose #25331 > |> mapi fun i x => i + x
00:06:49 verbose #25332 > |> try_item 5i32
00:06:49 verbose #25333 > |> _assert_eq (Some 10i32)
00:06:49 verbose #25334 > 00:06:48 debug #529 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8c8dd6c354f43a336616a0d760d5148e4fe276493a76265a9c63a072632eb6be/main.spi
00:06:49 verbose #25335 >
00:06:49 verbose #25336 > ╭─[ 292.12ms - stdout ]────────────────────────────────────────────────────────╮
00:06:49 verbose #25337 > │ type [<Struct>] US0 = │
00:06:49 verbose #25338 > │ | US0_0 of f0_0 : int32 │
00:06:49 verbose #25339 > │ | US0_1 │
00:06:49 verbose #25340 > │ let rec method0 () : unit = │
00:06:49 verbose #25341 > │ printfn $"print_and_return / x: {0}" │
00:06:49 verbose #25342 > │ printfn $"print_and_return / x: {1}" │
00:06:49 verbose #25343 > │ printfn $"print_and_return / x: {2}" │
00:06:49 verbose #25344 > │ printfn $"print_and_return / x: {3}" │
00:06:49 verbose #25345 > │ printfn $"print_and_return / x: {4}" │
00:06:49 verbose #25346 > │ printfn $"print_and_return / x: {5}" │
00:06:49 verbose #25347 > │ printfn $"print_and_return / x: {6}" │
00:06:49 verbose #25348 > │ printfn $"print_and_return / x: {7}" │
00:06:49 verbose #25349 > │ printfn $"print_and_return / x: {8}" │
00:06:49 verbose #25350 > │ printfn $"print_and_return / x: {9}" │
00:06:49 verbose #25351 > │ let v0 : US0 = US0_0(10) │
00:06:49 verbose #25352 > │ let v1 : string = $"%A{v0}" │
00:06:49 verbose #25353 > │ System.Console.WriteLine v1 │
00:06:49 verbose #25354 > │ let v5 : US0 = US0_0(10) │
00:06:49 verbose #25355 > │ let v6 : US0 = US0_0(10) │
00:06:49 verbose #25356 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:49 verbose #25357 > │ () │
00:06:49 verbose #25358 > │ method0() │
00:06:49 verbose #25359 > │ │
00:06:49 verbose #25360 > │ print_and_return / x: 0 │
00:06:49 verbose #25361 > │ print_and_return / x: 1 │
00:06:49 verbose #25362 > │ print_and_return / x: 2 │
00:06:49 verbose #25363 > │ print_and_return / x: 3 │
00:06:49 verbose #25364 > │ print_and_return / x: 4 │
00:06:49 verbose #25365 > │ print_and_return / x: 5 │
00:06:49 verbose #25366 > │ print_and_return / x: 6 │
00:06:49 verbose #25367 > │ print_and_return / x: 7 │
00:06:49 verbose #25368 > │ print_and_return / x: 8 │
00:06:49 verbose #25369 > │ print_and_return / x: 9 │
00:06:49 verbose #25370 > │ US0_0 10 │
00:06:49 verbose #25371 > │ │
00:06:49 verbose #25372 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #25373 >
00:06:49 verbose #25374 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:49 verbose #25375 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:49 verbose #25376 > │ ## choose │
00:06:49 verbose #25377 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #25378 >
00:06:49 verbose #25379 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 verbose #25380 > inl choose forall dim {number} t u. (fn : t -> option u) (s : seq dim t) : seq
00:06:49 verbose #25381 > dim u =
00:06:49 verbose #25382 > fun n =>
00:06:49 verbose #25383 > inl rec body fn s i i' =
00:06:49 verbose #25384 > match i |> s with
00:06:49 verbose #25385 > | None => None
00:06:49 verbose #25386 > | Some x =>
00:06:49 verbose #25387 > match x |> fn with
00:06:49 verbose #25388 > | Some x when n = i' => Some x
00:06:49 verbose #25389 > | Some _ => loop (i + 1) (i' + 1)
00:06:49 verbose #25390 > | _ => loop (i + 1) i'
00:06:49 verbose #25391 > and inl loop i i' =
00:06:49 verbose #25392 > if n |> var_is |> not
00:06:49 verbose #25393 > then body fn s i i'
00:06:49 verbose #25394 > else
00:06:49 verbose #25395 > inl fn = join fn
00:06:49 verbose #25396 > inl s = join s
00:06:49 verbose #25397 > join body fn s i i'
00:06:49 verbose #25398 > loop 0 0
00:06:49 verbose #25399 > 00:06:48 debug #530 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f3eccaf303324e3b46bd25adcd9183a5c220e3a78141bf89f95be3957e4195f5/main.spi
00:06:49 verbose #25400 >
00:06:49 verbose #25401 > ╭─[ 237.77ms - stdout ]────────────────────────────────────────────────────────╮
00:06:49 verbose #25402 > │ () │
00:06:49 verbose #25403 > │ │
00:06:49 verbose #25404 > │ │
00:06:49 verbose #25405 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #25406 >
00:06:49 verbose #25407 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 verbose #25408 > // // test
00:06:49 verbose #25409 >
00:06:49 verbose #25410 > listm.init 10i32 print_and_return
00:06:49 verbose #25411 > |> from_list
00:06:49 verbose #25412 > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:06:49 verbose #25413 > |> try_item 1i32
00:06:49 verbose #25414 > |> _assert_eq (Some 2i32)
00:06:49 verbose #25415 > 00:06:49 debug #531 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4037391c8476a0c3638f1377f9445147f261319b52363b1a70275474f945b30d/main.spi
00:06:49 verbose #25416 >
00:06:49 verbose #25417 > ╭─[ 305.69ms - stdout ]────────────────────────────────────────────────────────╮
00:06:49 verbose #25418 > │ type [<Struct>] US0 = │
00:06:49 verbose #25419 > │ | US0_0 of f0_0 : int32 │
00:06:49 verbose #25420 > │ | US0_1 │
00:06:49 verbose #25421 > │ let rec method0 () : unit = │
00:06:49 verbose #25422 > │ printfn $"print_and_return / x: {0}" │
00:06:49 verbose #25423 > │ printfn $"print_and_return / x: {1}" │
00:06:49 verbose #25424 > │ printfn $"print_and_return / x: {2}" │
00:06:49 verbose #25425 > │ printfn $"print_and_return / x: {3}" │
00:06:49 verbose #25426 > │ printfn $"print_and_return / x: {4}" │
00:06:49 verbose #25427 > │ printfn $"print_and_return / x: {5}" │
00:06:49 verbose #25428 > │ printfn $"print_and_return / x: {6}" │
00:06:49 verbose #25429 > │ printfn $"print_and_return / x: {7}" │
00:06:49 verbose #25430 > │ printfn $"print_and_return / x: {8}" │
00:06:49 verbose #25431 > │ printfn $"print_and_return / x: {9}" │
00:06:49 verbose #25432 > │ let v0 : US0 = US0_0(2) │
00:06:49 verbose #25433 > │ let v1 : string = $"%A{v0}" │
00:06:49 verbose #25434 > │ System.Console.WriteLine v1 │
00:06:49 verbose #25435 > │ let v5 : US0 = US0_0(2) │
00:06:49 verbose #25436 > │ let v6 : US0 = US0_0(2) │
00:06:49 verbose #25437 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:49 verbose #25438 > │ () │
00:06:49 verbose #25439 > │ method0() │
00:06:49 verbose #25440 > │ │
00:06:49 verbose #25441 > │ print_and_return / x: 0 │
00:06:49 verbose #25442 > │ print_and_return / x: 1 │
00:06:49 verbose #25443 > │ print_and_return / x: 2 │
00:06:49 verbose #25444 > │ print_and_return / x: 3 │
00:06:49 verbose #25445 > │ print_and_return / x: 4 │
00:06:49 verbose #25446 > │ print_and_return / x: 5 │
00:06:49 verbose #25447 > │ print_and_return / x: 6 │
00:06:49 verbose #25448 > │ print_and_return / x: 7 │
00:06:49 verbose #25449 > │ print_and_return / x: 8 │
00:06:49 verbose #25450 > │ print_and_return / x: 9 │
00:06:49 verbose #25451 > │ US0_0 2 │
00:06:49 verbose #25452 > │ │
00:06:49 verbose #25453 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #25454 >
00:06:49 verbose #25455 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:49 verbose #25456 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:49 verbose #25457 > │ ## indexed │
00:06:49 verbose #25458 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #25459 >
00:06:49 verbose #25460 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 verbose #25461 > inl indexed s =
00:06:49 verbose #25462 > s
00:06:49 verbose #25463 > |> mapi fun i x =>
00:06:49 verbose #25464 > i, x
00:06:50 verbose #25465 > 00:06:49 debug #532 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4b9e5eeb6997dbdaf1b28dd1ec542ab3947bc92b97d8bf66f4c054ebee5c38cd/main.spi
00:06:50 verbose #25466 >
00:06:50 verbose #25467 > ╭─[ 264.82ms - stdout ]────────────────────────────────────────────────────────╮
00:06:50 verbose #25468 > │ () │
00:06:50 verbose #25469 > │ │
00:06:50 verbose #25470 > │ │
00:06:50 verbose #25471 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #25472 >
00:06:50 verbose #25473 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 verbose #25474 > // // test
00:06:50 verbose #25475 >
00:06:50 verbose #25476 > listm.init 10i32 ((*) 2)
00:06:50 verbose #25477 > |> from_list
00:06:50 verbose #25478 > |> indexed
00:06:50 verbose #25479 > |> try_item 5i32
00:06:50 verbose #25480 > |> _assert_eq (Some (5i32, 10i32))
00:06:50 verbose #25481 > 00:06:49 debug #533 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f348b4160daffc5b0ace839b64d2cd306beca79426454431d7e8690cdf4440ac/main.spi
00:06:50 verbose #25482 >
00:06:50 verbose #25483 > ╭─[ 295.82ms - stdout ]────────────────────────────────────────────────────────╮
00:06:50 verbose #25484 > │ type [<Struct>] US0 = │
00:06:50 verbose #25485 > │ | US0_0 of f0_0 : int32 * f0_1 : int32 │
00:06:50 verbose #25486 > │ | US0_1 │
00:06:50 verbose #25487 > │ let rec method0 () : unit = │
00:06:50 verbose #25488 > │ let v0 : US0 = US0_0(5, 10) │
00:06:50 verbose #25489 > │ let v1 : string = $"%A{v0}" │
00:06:50 verbose #25490 > │ System.Console.WriteLine v1 │
00:06:50 verbose #25491 > │ let v5 : US0 = US0_0(5, 10) │
00:06:50 verbose #25492 > │ let v6 : US0 = US0_0(5, 10) │
00:06:50 verbose #25493 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:50 verbose #25494 > │ () │
00:06:50 verbose #25495 > │ method0() │
00:06:50 verbose #25496 > │ │
00:06:50 verbose #25497 > │ US0_0 (5, 10) │
00:06:50 verbose #25498 > │ │
00:06:50 verbose #25499 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #25500 >
00:06:50 verbose #25501 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:50 verbose #25502 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:50 verbose #25503 > │ ## zip │
00:06:50 verbose #25504 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #25505 >
00:06:50 verbose #25506 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 verbose #25507 > inl zip n seq1 seq2 =
00:06:50 verbose #25508 > seq1 n, seq2 n
00:06:50 verbose #25509 > 00:06:50 debug #534 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ea8e4fac4e2cb428c297c082679abda36eb84eadd6b25bf9978234359ab4e687/main.spi
00:06:50 verbose #25510 >
00:06:50 verbose #25511 > ╭─[ 266.14ms - stdout ]────────────────────────────────────────────────────────╮
00:06:50 verbose #25512 > │ () │
00:06:50 verbose #25513 > │ │
00:06:50 verbose #25514 > │ │
00:06:50 verbose #25515 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #25516 >
00:06:50 verbose #25517 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 verbose #25518 > // // test
00:06:50 verbose #25519 >
00:06:50 verbose #25520 > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:50 verbose #25521 > ||> zip 5i32
00:06:50 verbose #25522 > |> _assert_eq (Some 5, Some 10)
00:06:50 verbose #25523 > 00:06:50 debug #535 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d63ba229cb13332267e2d0295ce58e6d81464a730f38398247ab15d04a5cc75e/main.spi
00:06:51 verbose #25524 >
00:06:51 verbose #25525 > ╭─[ 304.55ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 verbose #25526 > │ type [<Struct>] US0 = │
00:06:51 verbose #25527 > │ | US0_0 of f0_0 : int32 │
00:06:51 verbose #25528 > │ | US0_1 │
00:06:51 verbose #25529 > │ let rec method0 () : unit = │
00:06:51 verbose #25530 > │ let v0 : US0 = US0_0(5) │
00:06:51 verbose #25531 > │ let v1 : US0 = US0_0(10) │
00:06:51 verbose #25532 > │ let v2 : string = $"%A{struct (v0, v1)}" │
00:06:51 verbose #25533 > │ System.Console.WriteLine v2 │
00:06:51 verbose #25534 > │ let v9 : US0 = US0_0(5) │
00:06:51 verbose #25535 > │ let v10 : US0 = US0_0(10) │
00:06:51 verbose #25536 > │ let v11 : US0 = US0_0(5) │
00:06:51 verbose #25537 > │ let v12 : US0 = US0_0(10) │
00:06:51 verbose #25538 > │ let v13 : string = $"__expect / actual: %A{struct (v9, v10)} / expected: │
00:06:51 verbose #25539 > │ %A{struct (v11, v12)}" │
00:06:51 verbose #25540 > │ () │
00:06:51 verbose #25541 > │ method0() │
00:06:51 verbose #25542 > │ │
00:06:51 verbose #25543 > │ struct (US0_0 5, US0_0 10) │
00:06:51 verbose #25544 > │ │
00:06:51 verbose #25545 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25546 >
00:06:51 verbose #25547 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:51 verbose #25548 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:51 verbose #25549 > │ ## zip_with │
00:06:51 verbose #25550 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25551 >
00:06:51 verbose #25552 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 verbose #25553 > inl zip_with fn seq1 seq2 =
00:06:51 verbose #25554 > fun n =>
00:06:51 verbose #25555 > fn (seq1 n) (seq2 n)
00:06:51 verbose #25556 > 00:06:50 debug #536 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cb584afbf6ed3f823136717ef95de29ff8b61542fbb76f6677597d7c7635aab0/main.spi
00:06:51 verbose #25557 >
00:06:51 verbose #25558 > ╭─[ 240.83ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 verbose #25559 > │ () │
00:06:51 verbose #25560 > │ │
00:06:51 verbose #25561 > │ │
00:06:51 verbose #25562 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25563 >
00:06:51 verbose #25564 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 verbose #25565 > // // test
00:06:51 verbose #25566 >
00:06:51 verbose #25567 > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:51 verbose #25568 > ||> zip_with (optionm'.choose (+))
00:06:51 verbose #25569 > |> try_item 2i32
00:06:51 verbose #25570 > |> _assert_eq (Some 6)
00:06:51 verbose #25571 > 00:06:50 debug #537 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/db78113fc1d2ee0eca0565adb3b0f933efa80d88726fa6e53d42c5db7c6b808f/main.spi
00:06:51 verbose #25572 >
00:06:51 verbose #25573 > ╭─[ 327.12ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 verbose #25574 > │ type [<Struct>] US0 = │
00:06:51 verbose #25575 > │ | US0_0 of f0_0 : int32 │
00:06:51 verbose #25576 > │ | US0_1 │
00:06:51 verbose #25577 > │ let rec method0 () : unit = │
00:06:51 verbose #25578 > │ let v0 : US0 = US0_0(6) │
00:06:51 verbose #25579 > │ let v1 : string = $"%A{v0}" │
00:06:51 verbose #25580 > │ System.Console.WriteLine v1 │
00:06:51 verbose #25581 > │ let v5 : US0 = US0_0(6) │
00:06:51 verbose #25582 > │ let v6 : US0 = US0_0(6) │
00:06:51 verbose #25583 > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:51 verbose #25584 > │ () │
00:06:51 verbose #25585 > │ method0() │
00:06:51 verbose #25586 > │ │
00:06:51 verbose #25587 > │ US0_0 6 │
00:06:51 verbose #25588 > │ │
00:06:51 verbose #25589 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25590 >
00:06:51 verbose #25591 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:51 verbose #25592 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:51 verbose #25593 > │ ## fold │
00:06:51 verbose #25594 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25595 >
00:06:51 verbose #25596 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 verbose #25597 > inl fold fn init seq =
00:06:51 verbose #25598 > inl rec loop acc n =
00:06:51 verbose #25599 > match seq n with
00:06:51 verbose #25600 > | Some x => loop (fn acc x) (n + 1)
00:06:51 verbose #25601 > | None => acc
00:06:51 verbose #25602 > loop init 0
00:06:51 verbose #25603 >
00:06:51 verbose #25604 > inl fold_ fn init seq =
00:06:51 verbose #25605 > let rec loop acc n =
00:06:51 verbose #25606 > match seq n with
00:06:51 verbose #25607 > | Some x => loop (fn acc x) (n + 1)
00:06:51 verbose #25608 > | None => acc
00:06:51 verbose #25609 > loop init 0
00:06:51 verbose #25610 > 00:06:51 debug #538 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6f0f7f7ec1690c069cf7f1d9cef618d9156301726464d8c048b9ab778a0fde46/main.spi
00:06:51 verbose #25611 >
00:06:51 verbose #25612 > ╭─[ 252.69ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 verbose #25613 > │ () │
00:06:51 verbose #25614 > │ │
00:06:51 verbose #25615 > │ │
00:06:51 verbose #25616 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25617 >
00:06:51 verbose #25618 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:51 verbose #25619 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:51 verbose #25620 > │ ## sum │
00:06:51 verbose #25621 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #25622 >
00:06:51 verbose #25623 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 verbose #25624 > inl sum seq =
00:06:51 verbose #25625 > seq |> fold (+) 0
00:06:51 verbose #25626 >
00:06:51 verbose #25627 > inl sum_ seq =
00:06:51 verbose #25628 > seq |> fold_ (+) 0
00:06:52 verbose #25629 > 00:06:51 debug #539 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8c03dc61c2b48485222432ae8051281586d57ca8ec1e8bf9144c13ea9e9f0845/main.spi
00:06:52 verbose #25630 >
00:06:52 verbose #25631 > ╭─[ 220.16ms - stdout ]────────────────────────────────────────────────────────╮
00:06:52 verbose #25632 > │ () │
00:06:52 verbose #25633 > │ │
00:06:52 verbose #25634 > │ │
00:06:52 verbose #25635 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 verbose #25636 >
00:06:52 verbose #25637 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 verbose #25638 > // // test
00:06:52 verbose #25639 >
00:06:52 verbose #25640 > listm.init 10i32 id
00:06:52 verbose #25641 > |> from_list
00:06:52 verbose #25642 > |> fun f (n : i32) => f n
00:06:52 verbose #25643 > |> sum
00:06:52 verbose #25644 > |> _assert_eq 45
00:06:52 verbose #25645 > 00:06:51 debug #540 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/da449eb49f5a970ccbdbcbea6fb34c9100e13d9dae13d08391d0fbca4d613f71/main.spi
00:06:52 verbose #25646 >
00:06:52 verbose #25647 > ╭─[ 252.56ms - stdout ]────────────────────────────────────────────────────────╮
00:06:52 verbose #25648 > │ let rec method0 () : unit = │
00:06:52 verbose #25649 > │ let v0 : string = $"%A{45}" │
00:06:52 verbose #25650 > │ System.Console.WriteLine v0 │
00:06:52 verbose #25651 > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:52 verbose #25652 > │ () │
00:06:52 verbose #25653 > │ method0() │
00:06:52 verbose #25654 > │ │
00:06:52 verbose #25655 > │ 45 │
00:06:52 verbose #25656 > │ │
00:06:52 verbose #25657 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 verbose #25658 >
00:06:52 verbose #25659 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:52 verbose #25660 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:52 verbose #25661 > │ ## to_list │
00:06:52 verbose #25662 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 verbose #25663 >
00:06:52 verbose #25664 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 verbose #25665 > inl to_list seq =
00:06:52 verbose #25666 > seq
00:06:52 verbose #25667 > |> fold (fun acc x => x :: acc) [[]]
00:06:52 verbose #25668 > |> listm.rev
00:06:52 verbose #25669 >
00:06:52 verbose #25670 > inl to_list_ seq =
00:06:52 verbose #25671 > seq
00:06:52 verbose #25672 > |> fold_ (fun acc x => x :: acc) [[]]
00:06:52 verbose #25673 > |> listm.rev
00:06:52 verbose #25674 > 00:06:52 debug #541 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2ea4b4e9e748f52ee9d6f647e108ea6c83261aeb3b9336a3a805033bfa9ce1f8/main.spi
00:06:52 verbose #25675 >
00:06:52 verbose #25676 > ╭─[ 258.37ms - stdout ]────────────────────────────────────────────────────────╮
00:06:52 verbose #25677 > │ () │
00:06:52 verbose #25678 > │ │
00:06:52 verbose #25679 > │ │
00:06:52 verbose #25680 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 verbose #25681 >
00:06:52 verbose #25682 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 verbose #25683 > // // test
00:06:52 verbose #25684 >
00:06:52 verbose #25685 > listm.init 10i32 id
00:06:52 verbose #25686 > |> from_list
00:06:52 verbose #25687 > |> fun f (n : i32) => f n
00:06:52 verbose #25688 > |> to_list
00:06:52 verbose #25689 > |> _assert_eq (listm.init 10i32 id)
00:06:52 verbose #25690 > 00:06:52 debug #542 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/58620ffdcd944193ed9b7ce2583e05bfd153d2bcf241a3983ab5287e30b4c6d3/main.spi
00:06:53 verbose #25691 >
00:06:53 verbose #25692 > ╭─[ 301.84ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 verbose #25693 > │ type UH0 = │
00:06:53 verbose #25694 > │ | UH0_0 │
00:06:53 verbose #25695 > │ | UH0_1 of int32 * UH0 │
00:06:53 verbose #25696 > │ let rec method0 () : unit = │
00:06:53 verbose #25697 > │ let v0 : UH0 = UH0_0 │
00:06:53 verbose #25698 > │ let v1 : UH0 = UH0_1(9, v0) │
00:06:53 verbose #25699 > │ let v2 : UH0 = UH0_1(8, v1) │
00:06:53 verbose #25700 > │ let v3 : UH0 = UH0_1(7, v2) │
00:06:53 verbose #25701 > │ let v4 : UH0 = UH0_1(6, v3) │
00:06:53 verbose #25702 > │ let v5 : UH0 = UH0_1(5, v4) │
00:06:53 verbose #25703 > │ let v6 : UH0 = UH0_1(4, v5) │
00:06:53 verbose #25704 > │ let v7 : UH0 = UH0_1(3, v6) │
00:06:53 verbose #25705 > │ let v8 : UH0 = UH0_1(2, v7) │
00:06:53 verbose #25706 > │ let v9 : UH0 = UH0_1(1, v8) │
00:06:53 verbose #25707 > │ let v10 : UH0 = UH0_1(0, v9) │
00:06:53 verbose #25708 > │ let v11 : string = $"%A{v10}" │
00:06:53 verbose #25709 > │ System.Console.WriteLine v11 │
00:06:53 verbose #25710 > │ let v100 : UH0 = UH0_0 │
00:06:53 verbose #25711 > │ let v101 : UH0 = UH0_1(9, v100) │
00:06:53 verbose #25712 > │ let v102 : UH0 = UH0_1(8, v101) │
00:06:53 verbose #25713 > │ let v103 : UH0 = UH0_1(7, v102) │
00:06:53 verbose #25714 > │ let v104 : UH0 = UH0_1(6, v103) │
00:06:53 verbose #25715 > │ let v105 : UH0 = UH0_1(5, v104) │
00:06:53 verbose #25716 > │ let v106 : UH0 = UH0_1(4, v105) │
00:06:53 verbose #25717 > │ let v107 : UH0 = UH0_1(3, v106) │
00:06:53 verbose #25718 > │ let v108 : UH0 = UH0_1(2, v107) │
00:06:53 verbose #25719 > │ let v109 : UH0 = UH0_1(1, v108) │
00:06:53 verbose #25720 > │ let v110 : UH0 = UH0_1(0, v109) │
00:06:53 verbose #25721 > │ let v111 : UH0 = UH0_0 │
00:06:53 verbose #25722 > │ let v112 : UH0 = UH0_1(9, v111) │
00:06:53 verbose #25723 > │ let v113 : UH0 = UH0_1(8, v112) │
00:06:53 verbose #25724 > │ let v114 : UH0 = UH0_1(7, v113) │
00:06:53 verbose #25725 > │ let v115 : UH0 = UH0_1(6, v114) │
00:06:53 verbose #25726 > │ let v116 : UH0 = UH0_1(5, v115) │
00:06:53 verbose #25727 > │ let v117 : UH0 = UH0_1(4, v116) │
00:06:53 verbose #25728 > │ let v118 : UH0 = UH0_1(3, v117) │
00:06:53 verbose #25729 > │ let v119 : UH0 = UH0_1(2, v118) │
00:06:53 verbose #25730 > │ let v120 : UH0 = UH0_1(1, v119) │
00:06:53 verbose #25731 > │ let v121 : UH0 = UH0_1(0, v120) │
00:06:53 verbose #25732 > │ let v122 : string = $"__expect / actual: %A{v110} / expected: %A{v121}" │
00:06:53 verbose #25733 > │ () │
00:06:53 verbose #25734 > │ method0() │
00:06:53 verbose #25735 > │ │
00:06:53 verbose #25736 > │ UH0_1 │
00:06:53 verbose #25737 > │ (0, │
00:06:53 verbose #25738 > │ UH0_1 │
00:06:53 verbose #25739 > │ (1, │
00:06:53 verbose #25740 > │ UH0_1 │
00:06:53 verbose #25741 > │ (2, │
00:06:53 verbose #25742 > │ UH0_1 │
00:06:53 verbose #25743 > │ (3, │
00:06:53 verbose #25744 > │ UH0_1 │
00:06:53 verbose #25745 > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:06:53 verbose #25746 > │ UH0_0)))))))))) │
00:06:53 verbose #25747 > │ │
00:06:53 verbose #25748 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #25749 >
00:06:53 verbose #25750 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:53 verbose #25751 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:53 verbose #25752 > │ ## from_array │
00:06:53 verbose #25753 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #25754 >
00:06:53 verbose #25755 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 verbose #25756 > inl from_array forall dim {number; int} el. (array : a dim el) : seq dim el =
00:06:53 verbose #25757 > fun n =>
00:06:53 verbose #25758 > if n >= length array
00:06:53 verbose #25759 > then None
00:06:53 verbose #25760 > else index array n |> Some
00:06:53 verbose #25761 > 00:06:52 debug #543 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/819f1917f5c4d7bcbbf0186421bb4120f996a65ab39d0893f02dfc162f2a74ad/main.spi
00:06:53 verbose #25762 >
00:06:53 verbose #25763 > ╭─[ 223.76ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 verbose #25764 > │ () │
00:06:53 verbose #25765 > │ │
00:06:53 verbose #25766 > │ │
00:06:53 verbose #25767 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #25768 >
00:06:53 verbose #25769 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 verbose #25770 > // // test
00:06:53 verbose #25771 >
00:06:53 verbose #25772 > a ;[[ 1; 2; 3 ]]
00:06:53 verbose #25773 > |> from_array
00:06:53 verbose #25774 > |> try_item 1i32
00:06:53 verbose #25775 > |> _assert_eq (Some 2i32)
00:06:53 verbose #25776 > 00:06:52 debug #544 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/612ca4f0b68ad504f6e2762bb012893e3e5d1205bd27e8b5497098b4f6e675c0/main.spi
00:06:53 verbose #25777 >
00:06:53 verbose #25778 > ╭─[ 304.83ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 verbose #25779 > │ type [<Struct>] US0 = │
00:06:53 verbose #25780 > │ | US0_0 of f0_0 : int32 │
00:06:53 verbose #25781 > │ | US0_1 │
00:06:53 verbose #25782 > │ let rec method1 (v0 : bool) : bool = │
00:06:53 verbose #25783 > │ v0 │
00:06:53 verbose #25784 > │ and method0 () : unit = │
00:06:53 verbose #25785 > │ let v0 : (int32 []) = [|1; 2; 3|] │
00:06:53 verbose #25786 > │ let v1 : int32 = v0.Length │
00:06:53 verbose #25787 > │ let v2 : bool = 1 >= v1 │
00:06:53 verbose #25788 > │ let v6 : US0 = │
00:06:53 verbose #25789 > │ if v2 then │
00:06:53 verbose #25790 > │ US0_1 │
00:06:53 verbose #25791 > │ else │
00:06:53 verbose #25792 > │ let v4 : int32 = v0.[int 1] │
00:06:53 verbose #25793 > │ US0_0(v4) │
00:06:53 verbose #25794 > │ let v7 : string = $"%A{v6}" │
00:06:53 verbose #25795 > │ System.Console.WriteLine v7 │
00:06:53 verbose #25796 > │ let v11 : bool = │
00:06:53 verbose #25797 > │ match v6 with │
00:06:53 verbose #25798 > │ | US0_0(v9) -> (* Some *) │
00:06:53 verbose #25799 > │ let v10 : bool = v9 = 2 │
00:06:53 verbose #25800 > │ v10 │
00:06:53 verbose #25801 > │ | _ -> │
00:06:53 verbose #25802 > │ false │
00:06:53 verbose #25803 > │ let v13 : bool = │
00:06:53 verbose #25804 > │ if v11 then │
00:06:53 verbose #25805 > │ true │
00:06:53 verbose #25806 > │ else │
00:06:53 verbose #25807 > │ method1(v11) │
00:06:53 verbose #25808 > │ let v14 : US0 = US0_0(2) │
00:06:53 verbose #25809 > │ let v15 : string = $"__expect / actual: %A{v6} / expected: %A{v14}" │
00:06:53 verbose #25810 > │ let v16 : bool = v13 = false │
00:06:53 verbose #25811 > │ if v16 then │
00:06:53 verbose #25812 > │ failwith<unit> v15 │
00:06:53 verbose #25813 > │ method0() │
00:06:53 verbose #25814 > │ │
00:06:53 verbose #25815 > │ US0_0 2 │
00:06:53 verbose #25816 > │ │
00:06:53 verbose #25817 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #25818 >
00:06:53 verbose #25819 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:53 verbose #25820 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:53 verbose #25821 > │ ## to_array │
00:06:53 verbose #25822 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #25823 >
00:06:53 verbose #25824 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 verbose #25825 > inl to_array seq =
00:06:53 verbose #25826 > inl ar = a ;[[]] |> mut
00:06:53 verbose #25827 > ((), seq)
00:06:53 verbose #25828 > ||> fold fun _ x =>
00:06:53 verbose #25829 > ar <- *ar /@ a ;[[x]]
00:06:53 verbose #25830 > *ar
00:06:53 verbose #25831 >
00:06:53 verbose #25832 > inl to_array_ seq =
00:06:53 verbose #25833 > inl ar = a ;[[]] |> mut
00:06:53 verbose #25834 > ((), seq)
00:06:53 verbose #25835 > ||> fold_ fun _ x =>
00:06:53 verbose #25836 > ar <- *ar /@ a ;[[x]]
00:06:53 verbose #25837 > *ar
00:06:53 verbose #25838 > 00:06:53 debug #545 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/60634d173d673bfa88c2b680a8c9ce1fe1b6cf92361136a4d1a0df334ff311a0/main.spi
00:06:53 verbose #25839 >
00:06:53 verbose #25840 > ╭─[ 238.49ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 verbose #25841 > │ () │
00:06:53 verbose #25842 > │ │
00:06:53 verbose #25843 > │ │
00:06:53 verbose #25844 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #25845 >
00:06:53 verbose #25846 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 verbose #25847 > // // test
00:06:53 verbose #25848 >
00:06:53 verbose #25849 > listm.init 10i32 id
00:06:53 verbose #25850 > |> from_list
00:06:53 verbose #25851 > |> fun (x : i32 -> _) => x
00:06:53 verbose #25852 > |> to_array
00:06:53 verbose #25853 > |> _assert_eq (a ;[[ 0; 1; 2; 3; 4; 5; 6; 7; 8; 9 ]] : _ i32 _)
00:06:53 verbose #25854 > 00:06:53 debug #546 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f9f7963ba7a93269ddd52fb10c1027bc827912ed1db7fe9669f34d0a1a1f80f9/main.spi
00:06:54 verbose #25855 >
00:06:54 verbose #25856 > ╭─[ 532.22ms - stdout ]────────────────────────────────────────────────────────╮
00:06:54 verbose #25857 > │ type Mut0 = {mutable l0 : (int32 [])} │
00:06:54 verbose #25858 > │ and Mut1 = {mutable l0 : int32} │
00:06:54 verbose #25859 > │ let rec method1 (v0 : int32, v1 : Mut1) : bool = │
00:06:54 verbose #25860 > │ let v2 : int32 = v1.l0 │
00:06:54 verbose #25861 > │ let v3 : bool = v2 < v0 │
00:06:54 verbose #25862 > │ v3 │
00:06:54 verbose #25863 > │ and method2 (v0 : (int32 []), v1 : (int32 []), v2 : int32) : bool = │
00:06:54 verbose #25864 > │ let v3 : int32 = v0.Length │
00:06:54 verbose #25865 > │ let v4 : bool = v2 < v3 │
00:06:54 verbose #25866 > │ if v4 then │
00:06:54 verbose #25867 > │ let v5 : int32 = v0.[int v2] │
00:06:54 verbose #25868 > │ let v6 : int32 = v1.[int v2] │
00:06:54 verbose #25869 > │ let v7 : bool = v5 = v6 │
00:06:54 verbose #25870 > │ if v7 then │
00:06:54 verbose #25871 > │ let v8 : int32 = v2 + 1 │
00:06:54 verbose #25872 > │ method2(v0, v1, v8) │
00:06:54 verbose #25873 > │ else │
00:06:54 verbose #25874 > │ false │
00:06:54 verbose #25875 > │ else │
00:06:54 verbose #25876 > │ true │
00:06:54 verbose #25877 > │ and method3 (v0 : bool) : bool = │
00:06:54 verbose #25878 > │ v0 │
00:06:54 verbose #25879 > │ and method0 () : unit = │
00:06:54 verbose #25880 > │ let v0 : (int32 []) = [||] │
00:06:54 verbose #25881 > │ let v1 : Mut0 = {l0 = v0} : Mut0 │
00:06:54 verbose #25882 > │ let v2 : (int32 []) = v1.l0 │
00:06:54 verbose #25883 > │ let v3 : (int32 []) = [|0|] │
00:06:54 verbose #25884 > │ let v4 : int32 = v2.Length │
00:06:54 verbose #25885 > │ let v5 : int32 = v3.Length │
00:06:54 verbose #25886 > │ let v6 : int32 = v4 + v5 │
00:06:54 verbose #25887 > │ let v7 : (int32 []) = Array.zeroCreate<int32> (v6) │
00:06:54 verbose #25888 > │ let v8 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #25889 > │ while method1(v6, v8) do │
00:06:54 verbose #25890 > │ let v10 : int32 = v8.l0 │
00:06:54 verbose #25891 > │ let v11 : bool = v10 < v4 │
00:06:54 verbose #25892 > │ let v15 : int32 = │
00:06:54 verbose #25893 > │ if v11 then │
00:06:54 verbose #25894 > │ let v12 : int32 = v2.[int v10] │
00:06:54 verbose #25895 > │ v12 │
00:06:54 verbose #25896 > │ else │
00:06:54 verbose #25897 > │ let v13 : int32 = v10 - v4 │
00:06:54 verbose #25898 > │ let v14 : int32 = v3.[int v13] │
00:06:54 verbose #25899 > │ v14 │
00:06:54 verbose #25900 > │ v7.[int v10] <- v15 │
00:06:54 verbose #25901 > │ let v16 : int32 = v10 + 1 │
00:06:54 verbose #25902 > │ v8.l0 <- v16 │
00:06:54 verbose #25903 > │ () │
00:06:54 verbose #25904 > │ v1.l0 <- v7 │
00:06:54 verbose #25905 > │ let v17 : (int32 []) = v1.l0 │
00:06:54 verbose #25906 > │ let v18 : (int32 []) = [|1|] │
00:06:54 verbose #25907 > │ let v19 : int32 = v17.Length │
00:06:54 verbose #25908 > │ let v20 : int32 = v18.Length │
00:06:54 verbose #25909 > │ let v21 : int32 = v19 + v20 │
00:06:54 verbose #25910 > │ let v22 : (int32 []) = Array.zeroCreate<int32> (v21) │
00:06:54 verbose #25911 > │ let v23 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #25912 > │ while method1(v21, v23) do │
00:06:54 verbose #25913 > │ let v25 : int32 = v23.l0 │
00:06:54 verbose #25914 > │ let v26 : bool = v25 < v19 │
00:06:54 verbose #25915 > │ let v30 : int32 = │
00:06:54 verbose #25916 > │ if v26 then │
00:06:54 verbose #25917 > │ let v27 : int32 = v17.[int v25] │
00:06:54 verbose #25918 > │ v27 │
00:06:54 verbose #25919 > │ else │
00:06:54 verbose #25920 > │ let v28 : int32 = v25 - v19 │
00:06:54 verbose #25921 > │ let v29 : int32 = v18.[int v28] │
00:06:54 verbose #25922 > │ v29 │
00:06:54 verbose #25923 > │ v22.[int v25] <- v30 │
00:06:54 verbose #25924 > │ let v31 : int32 = v25 + 1 │
00:06:54 verbose #25925 > │ v23.l0 <- v31 │
00:06:54 verbose #25926 > │ () │
00:06:54 verbose #25927 > │ v1.l0 <- v22 │
00:06:54 verbose #25928 > │ let v32 : (int32 []) = v1.l0 │
00:06:54 verbose #25929 > │ let v33 : (int32 []) = [|2|] │
00:06:54 verbose #25930 > │ let v34 : int32 = v32.Length │
00:06:54 verbose #25931 > │ let v35 : int32 = v33.Length │
00:06:54 verbose #25932 > │ let v36 : int32 = v34 + v35 │
00:06:54 verbose #25933 > │ let v37 : (int32 []) = Array.zeroCreate<int32> (v36) │
00:06:54 verbose #25934 > │ let v38 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #25935 > │ while method1(v36, v38) do │
00:06:54 verbose #25936 > │ let v40 : int32 = v38.l0 │
00:06:54 verbose #25937 > │ let v41 : bool = v40 < v34 │
00:06:54 verbose #25938 > │ let v45 : int32 = │
00:06:54 verbose #25939 > │ if v41 then │
00:06:54 verbose #25940 > │ let v42 : int32 = v32.[int v40] │
00:06:54 verbose #25941 > │ v42 │
00:06:54 verbose #25942 > │ else │
00:06:54 verbose #25943 > │ let v43 : int32 = v40 - v34 │
00:06:54 verbose #25944 > │ let v44 : int32 = v33.[int v43] │
00:06:54 verbose #25945 > │ v44 │
00:06:54 verbose #25946 > │ v37.[int v40] <- v45 │
00:06:54 verbose #25947 > │ let v46 : int32 = v40 + 1 │
00:06:54 verbose #25948 > │ v38.l0 <- v46 │
00:06:54 verbose #25949 > │ () │
00:06:54 verbose #25950 > │ v1.l0 <- v37 │
00:06:54 verbose #25951 > │ let v47 : (int32 []) = v1.l0 │
00:06:54 verbose #25952 > │ let v48 : (int32 []) = [|3|] │
00:06:54 verbose #25953 > │ let v49 : int32 = v47.Length │
00:06:54 verbose #25954 > │ let v50 : int32 = v48.Length │
00:06:54 verbose #25955 > │ let v51 : int32 = v49 + v50 │
00:06:54 verbose #25956 > │ let v52 : (int32 []) = Array.zeroCreate<int32> (v51) │
00:06:54 verbose #25957 > │ let v53 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #25958 > │ while method1(v51, v53) do │
00:06:54 verbose #25959 > │ let v55 : int32 = v53.l0 │
00:06:54 verbose #25960 > │ let v56 : bool = v55 < v49 │
00:06:54 verbose #25961 > │ let v60 : int32 = │
00:06:54 verbose #25962 > │ if v56 then │
00:06:54 verbose #25963 > │ let v57 : int32 = v47.[int v55] │
00:06:54 verbose #25964 > │ v57 │
00:06:54 verbose #25965 > │ else │
00:06:54 verbose #25966 > │ let v58 : int32 = v55 - v49 │
00:06:54 verbose #25967 > │ let v59 : int32 = v48.[int v58] │
00:06:54 verbose #25968 > │ v59 │
00:06:54 verbose #25969 > │ v52.[int v55] <- v60 │
00:06:54 verbose #25970 > │ let v61 : int32 = v55 + 1 │
00:06:54 verbose #25971 > │ v53.l0 <- v61 │
00:06:54 verbose #25972 > │ () │
00:06:54 verbose #25973 > │ v1.l0 <- v52 │
00:06:54 verbose #25974 > │ let v62 : (int32 []) = v1.l0 │
00:06:54 verbose #25975 > │ let v63 : (int32 []) = [|4|] │
00:06:54 verbose #25976 > │ let v64 : int32 = v62.Length │
00:06:54 verbose #25977 > │ let v65 : int32 = v63.Length │
00:06:54 verbose #25978 > │ let v66 : int32 = v64 + v65 │
00:06:54 verbose #25979 > │ let v67 : (int32 []) = Array.zeroCreate<int32> (v66) │
00:06:54 verbose #25980 > │ let v68 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #25981 > │ while method1(v66, v68) do │
00:06:54 verbose #25982 > │ let v70 : int32 = v68.l0 │
00:06:54 verbose #25983 > │ let v71 : bool = v70 < v64 │
00:06:54 verbose #25984 > │ let v75 : int32 = │
00:06:54 verbose #25985 > │ if v71 then │
00:06:54 verbose #25986 > │ let v72 : int32 = v62.[int v70] │
00:06:54 verbose #25987 > │ v72 │
00:06:54 verbose #25988 > │ else │
00:06:54 verbose #25989 > │ let v73 : int32 = v70 - v64 │
00:06:54 verbose #25990 > │ let v74 : int32 = v63.[int v73] │
00:06:54 verbose #25991 > │ v74 │
00:06:54 verbose #25992 > │ v67.[int v70] <- v75 │
00:06:54 verbose #25993 > │ let v76 : int32 = v70 + 1 │
00:06:54 verbose #25994 > │ v68.l0 <- v76 │
00:06:54 verbose #25995 > │ () │
00:06:54 verbose #25996 > │ v1.l0 <- v67 │
00:06:54 verbose #25997 > │ let v77 : (int32 []) = v1.l0 │
00:06:54 verbose #25998 > │ let v78 : (int32 []) = [|5|] │
00:06:54 verbose #25999 > │ let v79 : int32 = v77.Length │
00:06:54 verbose #26000 > │ let v80 : int32 = v78.Length │
00:06:54 verbose #26001 > │ let v81 : int32 = v79 + v80 │
00:06:54 verbose #26002 > │ let v82 : (int32 []) = Array.zeroCreate<int32> (v81) │
00:06:54 verbose #26003 > │ let v83 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #26004 > │ while method1(v81, v83) do │
00:06:54 verbose #26005 > │ let v85 : int32 = v83.l0 │
00:06:54 verbose #26006 > │ let v86 : bool = v85 < v79 │
00:06:54 verbose #26007 > │ let v90 : int32 = │
00:06:54 verbose #26008 > │ if v86 then │
00:06:54 verbose #26009 > │ let v87 : int32 = v77.[int v85] │
00:06:54 verbose #26010 > │ v87 │
00:06:54 verbose #26011 > │ else │
00:06:54 verbose #26012 > │ let v88 : int32 = v85 - v79 │
00:06:54 verbose #26013 > │ let v89 : int32 = v78.[int v88] │
00:06:54 verbose #26014 > │ v89 │
00:06:54 verbose #26015 > │ v82.[int v85] <- v90 │
00:06:54 verbose #26016 > │ let v91 : int32 = v85 + 1 │
00:06:54 verbose #26017 > │ v83.l0 <- v91 │
00:06:54 verbose #26018 > │ () │
00:06:54 verbose #26019 > │ v1.l0 <- v82 │
00:06:54 verbose #26020 > │ let v92 : (int32 []) = v1.l0 │
00:06:54 verbose #26021 > │ let v93 : (int32 []) = [|6|] │
00:06:54 verbose #26022 > │ let v94 : int32 = v92.Length │
00:06:54 verbose #26023 > │ let v95 : int32 = v93.Length │
00:06:54 verbose #26024 > │ let v96 : int32 = v94 + v95 │
00:06:54 verbose #26025 > │ let v97 : (int32 []) = Array.zeroCreate<int32> (v96) │
00:06:54 verbose #26026 > │ let v98 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #26027 > │ while method1(v96, v98) do │
00:06:54 verbose #26028 > │ let v100 : int32 = v98.l0 │
00:06:54 verbose #26029 > │ let v101 : bool = v100 < v94 │
00:06:54 verbose #26030 > │ let v105 : int32 = │
00:06:54 verbose #26031 > │ if v101 then │
00:06:54 verbose #26032 > │ let v102 : int32 = v92.[int v100] │
00:06:54 verbose #26033 > │ v102 │
00:06:54 verbose #26034 > │ else │
00:06:54 verbose #26035 > │ let v103 : int32 = v100 - v94 │
00:06:54 verbose #26036 > │ let v104 : int32 = v93.[int v103] │
00:06:54 verbose #26037 > │ v104 │
00:06:54 verbose #26038 > │ v97.[int v100] <- v105 │
00:06:54 verbose #26039 > │ let v106 : int32 = v100 + 1 │
00:06:54 verbose #26040 > │ v98.l0 <- v106 │
00:06:54 verbose #26041 > │ () │
00:06:54 verbose #26042 > │ v1.l0 <- v97 │
00:06:54 verbose #26043 > │ let v107 : (int32 []) = v1.l0 │
00:06:54 verbose #26044 > │ let v108 : (int32 []) = [|7|] │
00:06:54 verbose #26045 > │ let v109 : int32 = v107.Length │
00:06:54 verbose #26046 > │ let v110 : int32 = v108.Length │
00:06:54 verbose #26047 > │ let v111 : int32 = v109 + v110 │
00:06:54 verbose #26048 > │ let v112 : (int32 []) = Array.zeroCreate<int32> (v111) │
00:06:54 verbose #26049 > │ let v113 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #26050 > │ while method1(v111, v113) do │
00:06:54 verbose #26051 > │ let v115 : int32 = v113.l0 │
00:06:54 verbose #26052 > │ let v116 : bool = v115 < v109 │
00:06:54 verbose #26053 > │ let v120 : int32 = │
00:06:54 verbose #26054 > │ if v116 then │
00:06:54 verbose #26055 > │ let v117 : int32 = v107.[int v115] │
00:06:54 verbose #26056 > │ v117 │
00:06:54 verbose #26057 > │ else │
00:06:54 verbose #26058 > │ let v118 : int32 = v115 - v109 │
00:06:54 verbose #26059 > │ let v119 : int32 = v108.[int v118] │
00:06:54 verbose #26060 > │ v119 │
00:06:54 verbose #26061 > │ v112.[int v115] <- v120 │
00:06:54 verbose #26062 > │ let v121 : int32 = v115 + 1 │
00:06:54 verbose #26063 > │ v113.l0 <- v121 │
00:06:54 verbose #26064 > │ () │
00:06:54 verbose #26065 > │ v1.l0 <- v112 │
00:06:54 verbose #26066 > │ let v122 : (int32 []) = v1.l0 │
00:06:54 verbose #26067 > │ let v123 : (int32 []) = [|8|] │
00:06:54 verbose #26068 > │ let v124 : int32 = v122.Length │
00:06:54 verbose #26069 > │ let v125 : int32 = v123.Length │
00:06:54 verbose #26070 > │ let v126 : int32 = v124 + v125 │
00:06:54 verbose #26071 > │ let v127 : (int32 []) = Array.zeroCreate<int32> (v126) │
00:06:54 verbose #26072 > │ let v128 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #26073 > │ while method1(v126, v128) do │
00:06:54 verbose #26074 > │ let v130 : int32 = v128.l0 │
00:06:54 verbose #26075 > │ let v131 : bool = v130 < v124 │
00:06:54 verbose #26076 > │ let v135 : int32 = │
00:06:54 verbose #26077 > │ if v131 then │
00:06:54 verbose #26078 > │ let v132 : int32 = v122.[int v130] │
00:06:54 verbose #26079 > │ v132 │
00:06:54 verbose #26080 > │ else │
00:06:54 verbose #26081 > │ let v133 : int32 = v130 - v124 │
00:06:54 verbose #26082 > │ let v134 : int32 = v123.[int v133] │
00:06:54 verbose #26083 > │ v134 │
00:06:54 verbose #26084 > │ v127.[int v130] <- v135 │
00:06:54 verbose #26085 > │ let v136 : int32 = v130 + 1 │
00:06:54 verbose #26086 > │ v128.l0 <- v136 │
00:06:54 verbose #26087 > │ () │
00:06:54 verbose #26088 > │ v1.l0 <- v127 │
00:06:54 verbose #26089 > │ let v137 : (int32 []) = v1.l0 │
00:06:54 verbose #26090 > │ let v138 : (int32 []) = [|9|] │
00:06:54 verbose #26091 > │ let v139 : int32 = v137.Length │
00:06:54 verbose #26092 > │ let v140 : int32 = v138.Length │
00:06:54 verbose #26093 > │ let v141 : int32 = v139 + v140 │
00:06:54 verbose #26094 > │ let v142 : (int32 []) = Array.zeroCreate<int32> (v141) │
00:06:54 verbose #26095 > │ let v143 : Mut1 = {l0 = 0} : Mut1 │
00:06:54 verbose #26096 > │ while method1(v141, v143) do │
00:06:54 verbose #26097 > │ let v145 : int32 = v143.l0 │
00:06:54 verbose #26098 > │ let v146 : bool = v145 < v139 │
00:06:54 verbose #26099 > │ let v150 : int32 = │
00:06:54 verbose #26100 > │ if v146 then │
00:06:54 verbose #26101 > │ let v147 : int32 = v137.[int v145] │
00:06:54 verbose #26102 > │ v147 │
00:06:54 verbose #26103 > │ else │
00:06:54 verbose #26104 > │ let v148 : int32 = v145 - v139 │
00:06:54 verbose #26105 > │ let v149 : int32 = v138.[int v148] │
00:06:54 verbose #26106 > │ v149 │
00:06:54 verbose #26107 > │ v142.[int v145] <- v150 │
00:06:54 verbose #26108 > │ let v151 : int32 = v145 + 1 │
00:06:54 verbose #26109 > │ v143.l0 <- v151 │
00:06:54 verbose #26110 > │ () │
00:06:54 verbose #26111 > │ v1.l0 <- v142 │
00:06:54 verbose #26112 > │ let v152 : (int32 []) = v1.l0 │
00:06:54 verbose #26113 > │ let v153 : (int32 []) = [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] │
00:06:54 verbose #26114 > │ let v154 : string = $"%A{v152}" │
00:06:54 verbose #26115 > │ System.Console.WriteLine v154 │
00:06:54 verbose #26116 > │ let v155 : int32 = v152.Length │
00:06:54 verbose #26117 > │ let v156 : int32 = v153.Length │
00:06:54 verbose #26118 > │ let v157 : bool = v155 = v156 │
00:06:54 verbose #26119 > │ let v158 : bool = v157 <> true │
00:06:54 verbose #26120 > │ let v161 : bool = │
00:06:54 verbose #26121 > │ if v158 then │
00:06:54 verbose #26122 > │ false │
00:06:54 verbose #26123 > │ else │
00:06:54 verbose #26124 > │ let v159 : int32 = 0 │
00:06:54 verbose #26125 > │ method2(v152, v153, v159) │
00:06:54 verbose #26126 > │ let v163 : bool = │
00:06:54 verbose #26127 > │ if v161 then │
00:06:54 verbose #26128 > │ true │
00:06:54 verbose #26129 > │ else │
00:06:54 verbose #26130 > │ method3(v161) │
00:06:54 verbose #26131 > │ let v164 : string = $"__expect / actual: %A{v152} / expected: %A{v153}" │
00:06:54 verbose #26132 > │ let v165 : bool = v163 = false │
00:06:54 verbose #26133 > │ if v165 then │
00:06:54 verbose #26134 > │ failwith<unit> v164 │
00:06:54 verbose #26135 > │ method0() │
00:06:54 verbose #26136 > │ │
00:06:54 verbose #26137 > │ [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] │
00:06:54 verbose #26138 > │ │
00:06:54 verbose #26139 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 verbose #26140 >
00:06:54 verbose #26141 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:54 verbose #26142 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:54 verbose #26143 > │ ## take_while │
00:06:54 verbose #26144 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 verbose #26145 >
00:06:54 verbose #26146 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 verbose #26147 > inl take_while cond seq =
00:06:54 verbose #26148 > inl rec loop acc i =
00:06:54 verbose #26149 > match seq i with
00:06:54 verbose #26150 > | Some st when cond st i => loop (st :: acc) (i + 1)
00:06:54 verbose #26151 > | _ => acc |> listm.rev
00:06:54 verbose #26152 > loop [[]] 0
00:06:54 verbose #26153 > 00:06:53 debug #547 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/303d227dc28b5cd5bd03c92608c6ef1122851999bf91478bc1a093d1abfed1d2/main.spi
00:06:54 verbose #26154 >
00:06:54 verbose #26155 > ╭─[ 208.07ms - stdout ]────────────────────────────────────────────────────────╮
00:06:54 verbose #26156 > │ () │
00:06:54 verbose #26157 > │ │
00:06:54 verbose #26158 > │ │
00:06:54 verbose #26159 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 verbose #26160 >
00:06:54 verbose #26161 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 verbose #26162 > // // test
00:06:54 verbose #26163 >
00:06:54 verbose #26164 > listm.init 10i32 id
00:06:54 verbose #26165 > |> from_list
00:06:54 verbose #26166 > |> take_while (fun n (_ : i32) => n < 5)
00:06:54 verbose #26167 > |> listm'.sum
00:06:54 verbose #26168 > |> _assert_eq 10
00:06:54 verbose #26169 > 00:06:54 debug #548 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9218a150990190f3470d4cba1798dd9f69f428e5875f83a69616ac2e8d8d690f/main.spi
00:06:54 verbose #26170 >
00:06:54 verbose #26171 > ╭─[ 208.96ms - stdout ]────────────────────────────────────────────────────────╮
00:06:54 verbose #26172 > │ let rec method0 () : unit = │
00:06:54 verbose #26173 > │ let v0 : string = $"%A{10}" │
00:06:54 verbose #26174 > │ System.Console.WriteLine v0 │
00:06:54 verbose #26175 > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:54 verbose #26176 > │ () │
00:06:54 verbose #26177 > │ method0() │
00:06:54 verbose #26178 > │ │
00:06:54 verbose #26179 > │ 10 │
00:06:54 verbose #26180 > │ │
00:06:54 verbose #26181 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 verbose #26182 >
00:06:54 verbose #26183 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 verbose #26184 > // // test
00:06:54 verbose #26185 >
00:06:54 verbose #26186 > stream.new_finite_stream print_and_return 10i32
00:06:54 verbose #26187 > |> flip stream.try_item
00:06:54 verbose #26188 > |> take_while (fun n (_ : i32) => n < 5)
00:06:54 verbose #26189 > |> listm'.sum
00:06:54 verbose #26190 > |> _assert_eq 10
00:06:55 verbose #26191 > 00:06:54 debug #549 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/106ef95cdf7946811acaa8bbcbb4a3d54ccf95f7e1a8e27fde5b1a433648d7d6/main.spi
00:06:55 verbose #26192 >
00:06:55 verbose #26193 > ╭─[ 273.14ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 verbose #26194 > │ let rec method0 () : unit = │
00:06:55 verbose #26195 > │ printfn $"print_and_return / x: {0}" │
00:06:55 verbose #26196 > │ printfn $"print_and_return / x: {1}" │
00:06:55 verbose #26197 > │ printfn $"print_and_return / x: {1}" │
00:06:55 verbose #26198 > │ printfn $"print_and_return / x: {2}" │
00:06:55 verbose #26199 > │ printfn $"print_and_return / x: {1}" │
00:06:55 verbose #26200 > │ printfn $"print_and_return / x: {2}" │
00:06:55 verbose #26201 > │ printfn $"print_and_return / x: {3}" │
00:06:55 verbose #26202 > │ printfn $"print_and_return / x: {1}" │
00:06:55 verbose #26203 > │ printfn $"print_and_return / x: {2}" │
00:06:55 verbose #26204 > │ printfn $"print_and_return / x: {3}" │
00:06:55 verbose #26205 > │ printfn $"print_and_return / x: {4}" │
00:06:55 verbose #26206 > │ printfn $"print_and_return / x: {1}" │
00:06:55 verbose #26207 > │ printfn $"print_and_return / x: {2}" │
00:06:55 verbose #26208 > │ printfn $"print_and_return / x: {3}" │
00:06:55 verbose #26209 > │ printfn $"print_and_return / x: {4}" │
00:06:55 verbose #26210 > │ printfn $"print_and_return / x: {5}" │
00:06:55 verbose #26211 > │ let v0 : string = $"%A{10}" │
00:06:55 verbose #26212 > │ System.Console.WriteLine v0 │
00:06:55 verbose #26213 > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:55 verbose #26214 > │ () │
00:06:55 verbose #26215 > │ method0() │
00:06:55 verbose #26216 > │ │
00:06:55 verbose #26217 > │ print_and_return / x: 0 │
00:06:55 verbose #26218 > │ print_and_return / x: 1 │
00:06:55 verbose #26219 > │ print_and_return / x: 1 │
00:06:55 verbose #26220 > │ print_and_return / x: 2 │
00:06:55 verbose #26221 > │ print_and_return / x: 1 │
00:06:55 verbose #26222 > │ print_and_return / x: 2 │
00:06:55 verbose #26223 > │ print_and_return / x: 3 │
00:06:55 verbose #26224 > │ print_and_return / x: 1 │
00:06:55 verbose #26225 > │ print_and_return / x: 2 │
00:06:55 verbose #26226 > │ print_and_return / x: 3 │
00:06:55 verbose #26227 > │ print_and_return / x: 4 │
00:06:55 verbose #26228 > │ print_and_return / x: 1 │
00:06:55 verbose #26229 > │ print_and_return / x: 2 │
00:06:55 verbose #26230 > │ print_and_return / x: 3 │
00:06:55 verbose #26231 > │ print_and_return / x: 4 │
00:06:55 verbose #26232 > │ print_and_return / x: 5 │
00:06:55 verbose #26233 > │ 10 │
00:06:55 verbose #26234 > │ │
00:06:55 verbose #26235 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 verbose #26236 >
00:06:55 verbose #26237 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:55 verbose #26238 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:55 verbose #26239 > │ ## take_while_ │
00:06:55 verbose #26240 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 verbose #26241 >
00:06:55 verbose #26242 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 verbose #26243 > inl take_while_ cond seq =
00:06:55 verbose #26244 > let rec loop acc i =
00:06:55 verbose #26245 > match seq i with
00:06:55 verbose #26246 > | Some st when cond st i => loop (st :: acc) (i + 1)
00:06:55 verbose #26247 > | _ => acc |> listm.rev
00:06:55 verbose #26248 > loop [[]] 0
00:06:55 verbose #26249 > 00:06:54 debug #550 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/62267144ac31537f5a9db4521a01f908a0ad4a0050223de16a8800cdaff6696a/main.spi
00:06:55 verbose #26250 >
00:06:55 verbose #26251 > ╭─[ 272.68ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 verbose #26252 > │ () │
00:06:55 verbose #26253 > │ │
00:06:55 verbose #26254 > │ │
00:06:55 verbose #26255 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 verbose #26256 >
00:06:55 verbose #26257 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 verbose #26258 > // // test
00:06:55 verbose #26259 >
00:06:55 verbose #26260 > stream.new_infinite_stream_ print_and_return
00:06:55 verbose #26261 > |> flip stream.try_item
00:06:55 verbose #26262 > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:06:55 verbose #26263 > |> listm'.sum
00:06:55 verbose #26264 > |> _assert_eq 10
00:06:55 verbose #26265 > 00:06:54 debug #551 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2be4085890d17510c7df35a6661d05c9dc8d6360e1022b189f325b0719e3e5ed/main.spi
00:06:55 verbose #26266 >
00:06:55 verbose #26267 > ╭─[ 369.50ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 verbose #26268 > │ type UH0 = │
00:06:55 verbose #26269 > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:55 verbose #26270 > │ | UH0_1 │
00:06:55 verbose #26271 > │ and UH1 = │
00:06:55 verbose #26272 > │ | UH1_0 │
00:06:55 verbose #26273 > │ | UH1_1 of int32 * UH1 │
00:06:55 verbose #26274 > │ and [<Struct>] US0 = │
00:06:55 verbose #26275 > │ | US0_0 of f0_0 : int32 │
00:06:55 verbose #26276 > │ | US0_1 │
00:06:55 verbose #26277 > │ let rec closure0 (v0 : int32) () : UH0 = │
00:06:55 verbose #26278 > │ let v1 : int32 = v0 + 1 │
00:06:55 verbose #26279 > │ method1(v1) │
00:06:55 verbose #26280 > │ and method1 (v0 : int32) : UH0 = │
00:06:55 verbose #26281 > │ printfn $"print_and_return / x: {v0}" │
00:06:55 verbose #26282 > │ let v1 : (unit -> UH0) = closure0(v0) │
00:06:55 verbose #26283 > │ UH0_0(v0, v1) │
00:06:55 verbose #26284 > │ and method3 (v0 : int32, v1 : UH0) : US0 = │
00:06:55 verbose #26285 > │ match v1 with │
00:06:55 verbose #26286 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:55 verbose #26287 > │ let v4 : bool = v0 <= 0 │
00:06:55 verbose #26288 > │ if v4 then │
00:06:55 verbose #26289 > │ US0_0(v2) │
00:06:55 verbose #26290 > │ else │
00:06:55 verbose #26291 > │ let v6 : int32 = v0 - 1 │
00:06:55 verbose #26292 > │ let v7 : UH0 = v3 () │
00:06:55 verbose #26293 > │ method3(v6, v7) │
00:06:55 verbose #26294 > │ | UH0_1 -> (* StreamNil *) │
00:06:55 verbose #26295 > │ US0_1 │
00:06:55 verbose #26296 > │ and method4 (v0 : UH1, v1 : UH1) : UH1 = │
00:06:55 verbose #26297 > │ match v0 with │
00:06:55 verbose #26298 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:55 verbose #26299 > │ let v4 : UH1 = UH1_1(v2, v1) │
00:06:55 verbose #26300 > │ method4(v3, v4) │
00:06:55 verbose #26301 > │ | UH1_0 -> (* Nil *) │
00:06:55 verbose #26302 > │ v1 │
00:06:55 verbose #26303 > │ and method2 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:06:55 verbose #26304 > │ let v3 : US0 = method3(v2, v0) │
00:06:55 verbose #26305 > │ match v3 with │
00:06:55 verbose #26306 > │ | US0_0(v4) -> (* Some *) │
00:06:55 verbose #26307 > │ let v5 : bool = v4 < 5 │
00:06:55 verbose #26308 > │ if v5 then │
00:06:55 verbose #26309 > │ let v6 : UH1 = UH1_1(v4, v1) │
00:06:55 verbose #26310 > │ let v7 : int32 = v2 + 1 │
00:06:55 verbose #26311 > │ method2(v0, v6, v7) │
00:06:55 verbose #26312 > │ else │
00:06:55 verbose #26313 > │ let v9 : UH1 = UH1_0 │
00:06:55 verbose #26314 > │ method4(v1, v9) │
00:06:55 verbose #26315 > │ | _ -> │
00:06:55 verbose #26316 > │ let v12 : UH1 = UH1_0 │
00:06:55 verbose #26317 > │ method4(v1, v12) │
00:06:55 verbose #26318 > │ and method5 (v0 : UH1, v1 : int32) : int32 = │
00:06:55 verbose #26319 > │ match v0 with │
00:06:55 verbose #26320 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:55 verbose #26321 > │ let v4 : int32 = v1 + v2 │
00:06:55 verbose #26322 > │ method5(v3, v4) │
00:06:55 verbose #26323 > │ | UH1_0 -> (* Nil *) │
00:06:55 verbose #26324 > │ v1 │
00:06:55 verbose #26325 > │ and method6 (v0 : bool) : bool = │
00:06:55 verbose #26326 > │ v0 │
00:06:55 verbose #26327 > │ and method0 () : unit = │
00:06:55 verbose #26328 > │ let v0 : int32 = 0 │
00:06:55 verbose #26329 > │ let v1 : UH0 = method1(v0) │
00:06:55 verbose #26330 > │ let v2 : UH1 = UH1_0 │
00:06:55 verbose #26331 > │ let v3 : int32 = 0 │
00:06:55 verbose #26332 > │ let v4 : UH1 = method2(v1, v2, v3) │
00:06:55 verbose #26333 > │ let v5 : int32 = 0 │
00:06:55 verbose #26334 > │ let v6 : int32 = method5(v4, v5) │
00:06:55 verbose #26335 > │ let v7 : string = $"%A{v6}" │
00:06:55 verbose #26336 > │ System.Console.WriteLine v7 │
00:06:55 verbose #26337 > │ let v8 : bool = v6 = 10 │
00:06:55 verbose #26338 > │ let v10 : bool = │
00:06:55 verbose #26339 > │ if v8 then │
00:06:55 verbose #26340 > │ true │
00:06:55 verbose #26341 > │ else │
00:06:55 verbose #26342 > │ method6(v8) │
00:06:55 verbose #26343 > │ let v11 : string = $"__expect / actual: %A{v6} / expected: %A{10}" │
00:06:55 verbose #26344 > │ let v12 : bool = v10 = false │
00:06:55 verbose #26345 > │ if v12 then │
00:06:55 verbose #26346 > │ failwith<unit> v11 │
00:06:55 verbose #26347 > │ method0() │
00:06:55 verbose #26348 > │ │
00:06:55 verbose #26349 > │ print_and_return / x: 0 │
00:06:55 verbose #26350 > │ print_and_return / x: 1 │
00:06:55 verbose #26351 > │ print_and_return / x: 1 │
00:06:55 verbose #26352 > │ print_and_return / x: 2 │
00:06:55 verbose #26353 > │ print_and_return / x: 1 │
00:06:55 verbose #26354 > │ print_and_return / x: 2 │
00:06:55 verbose #26355 > │ print_and_return / x: 3 │
00:06:55 verbose #26356 > │ print_and_return / x: 1 │
00:06:55 verbose #26357 > │ print_and_return / x: 2 │
00:06:55 verbose #26358 > │ print_and_return / x: 3 │
00:06:55 verbose #26359 > │ print_and_return / x: 4 │
00:06:55 verbose #26360 > │ print_and_return / x: 1 │
00:06:55 verbose #26361 > │ print_and_return / x: 2 │
00:06:55 verbose #26362 > │ print_and_return / x: 3 │
00:06:55 verbose #26363 > │ print_and_return / x: 4 │
00:06:55 verbose #26364 > │ print_and_return / x: 5 │
00:06:55 verbose #26365 > │ 10 │
00:06:55 verbose #26366 > │ │
00:06:55 verbose #26367 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 verbose #26368 >
00:06:55 verbose #26369 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 verbose #26370 > // // test
00:06:55 verbose #26371 >
00:06:55 verbose #26372 > stream.new_infinite_stream_ print_and_return
00:06:55 verbose #26373 > |> stream.memoize
00:06:55 verbose #26374 > |> fun list =>
00:06:55 verbose #26375 > inl list = list ()
00:06:55 verbose #26376 > fun n =>
00:06:55 verbose #26377 > list |> stream.try_item n
00:06:55 verbose #26378 > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:06:55 verbose #26379 > |> listm'.sum
00:06:55 verbose #26380 > |> _assert_eq 10
00:06:56 verbose #26381 > 00:06:55 debug #552 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/803b0f2b25b388611d41acb6fbae56ecde9397b1e858a53e3d2168574d684ae6/main.spi
00:06:56 verbose #26382 >
00:06:56 verbose #26383 > ╭─[ 366.67ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 verbose #26384 > │ type UH0 = │
00:06:56 verbose #26385 > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:56 verbose #26386 > │ | UH0_1 │
00:06:56 verbose #26387 > │ and [<Struct>] US0 = │
00:06:56 verbose #26388 > │ | US0_0 of f0_0 : (unit -> UH0) │
00:06:56 verbose #26389 > │ | US0_1 of f1_0 : UH0 │
00:06:56 verbose #26390 > │ and Mut0 = {mutable l0 : US0} │
00:06:56 verbose #26391 > │ and UH1 = │
00:06:56 verbose #26392 > │ | UH1_0 │
00:06:56 verbose #26393 > │ | UH1_1 of int32 * UH1 │
00:06:56 verbose #26394 > │ and [<Struct>] US1 = │
00:06:56 verbose #26395 > │ | US1_0 of f0_0 : int32 │
00:06:56 verbose #26396 > │ | US1_1 │
00:06:56 verbose #26397 > │ let rec closure0 (v0 : int32) () : UH0 = │
00:06:56 verbose #26398 > │ let v1 : int32 = v0 + 1 │
00:06:56 verbose #26399 > │ method1(v1) │
00:06:56 verbose #26400 > │ and method1 (v0 : int32) : UH0 = │
00:06:56 verbose #26401 > │ printfn $"print_and_return / x: {v0}" │
00:06:56 verbose #26402 > │ let v1 : (unit -> UH0) = closure0(v0) │
00:06:56 verbose #26403 > │ UH0_0(v0, v1) │
00:06:56 verbose #26404 > │ and closure1 (v0 : UH0) () : UH0 = │
00:06:56 verbose #26405 > │ v0 │
00:06:56 verbose #26406 > │ and closure2 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:06:56 verbose #26407 > │ let v2 : US0 = v1.l0 │
00:06:56 verbose #26408 > │ match v2 with │
00:06:56 verbose #26409 > │ | US0_1(v3) -> (* Computed *) │
00:06:56 verbose #26410 > │ v3 │
00:06:56 verbose #26411 > │ | US0_0(v4) -> (* NotComputed *) │
00:06:56 verbose #26412 > │ let v5 : UH0 = v4 () │
00:06:56 verbose #26413 > │ let v12 : UH0 = │
00:06:56 verbose #26414 > │ match v5 with │
00:06:56 verbose #26415 > │ | UH0_0(v7, v8) -> (* StreamCons *) │
00:06:56 verbose #26416 > │ let v9 : (unit -> UH0) = method2(v0, v8) │
00:06:56 verbose #26417 > │ UH0_0(v7, v9) │
00:06:56 verbose #26418 > │ | UH0_1 -> (* StreamNil *) │
00:06:56 verbose #26419 > │ UH0_1 │
00:06:56 verbose #26420 > │ let v13 : US0 = US0_1(v12) │
00:06:56 verbose #26421 > │ v1.l0 <- v13 │
00:06:56 verbose #26422 > │ v12 │
00:06:56 verbose #26423 > │ and method2 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:06:56 verbose #26424 > │ let v2 : US0 = US0_0(v1) │
00:06:56 verbose #26425 > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:06:56 verbose #26426 > │ closure2(v0, v3) │
00:06:56 verbose #26427 > │ and method4 (v0 : int32, v1 : UH0) : US1 = │
00:06:56 verbose #26428 > │ match v1 with │
00:06:56 verbose #26429 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:56 verbose #26430 > │ let v4 : bool = v0 <= 0 │
00:06:56 verbose #26431 > │ if v4 then │
00:06:56 verbose #26432 > │ US1_0(v2) │
00:06:56 verbose #26433 > │ else │
00:06:56 verbose #26434 > │ let v6 : int32 = v0 - 1 │
00:06:56 verbose #26435 > │ let v7 : UH0 = v3 () │
00:06:56 verbose #26436 > │ method4(v6, v7) │
00:06:56 verbose #26437 > │ | UH0_1 -> (* StreamNil *) │
00:06:56 verbose #26438 > │ US1_1 │
00:06:56 verbose #26439 > │ and method5 (v0 : UH1, v1 : UH1) : UH1 = │
00:06:56 verbose #26440 > │ match v0 with │
00:06:56 verbose #26441 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:56 verbose #26442 > │ let v4 : UH1 = UH1_1(v2, v1) │
00:06:56 verbose #26443 > │ method5(v3, v4) │
00:06:56 verbose #26444 > │ | UH1_0 -> (* Nil *) │
00:06:56 verbose #26445 > │ v1 │
00:06:56 verbose #26446 > │ and method3 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:06:56 verbose #26447 > │ let v3 : US1 = method4(v2, v0) │
00:06:56 verbose #26448 > │ match v3 with │
00:06:56 verbose #26449 > │ | US1_0(v4) -> (* Some *) │
00:06:56 verbose #26450 > │ let v5 : bool = v4 < 5 │
00:06:56 verbose #26451 > │ if v5 then │
00:06:56 verbose #26452 > │ let v6 : UH1 = UH1_1(v4, v1) │
00:06:56 verbose #26453 > │ let v7 : int32 = v2 + 1 │
00:06:56 verbose #26454 > │ method3(v0, v6, v7) │
00:06:56 verbose #26455 > │ else │
00:06:56 verbose #26456 > │ let v9 : UH1 = UH1_0 │
00:06:56 verbose #26457 > │ method5(v1, v9) │
00:06:56 verbose #26458 > │ | _ -> │
00:06:56 verbose #26459 > │ let v12 : UH1 = UH1_0 │
00:06:56 verbose #26460 > │ method5(v1, v12) │
00:06:56 verbose #26461 > │ and method6 (v0 : UH1, v1 : int32) : int32 = │
00:06:56 verbose #26462 > │ match v0 with │
00:06:56 verbose #26463 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:56 verbose #26464 > │ let v4 : int32 = v1 + v2 │
00:06:56 verbose #26465 > │ method6(v3, v4) │
00:06:56 verbose #26466 > │ | UH1_0 -> (* Nil *) │
00:06:56 verbose #26467 > │ v1 │
00:06:56 verbose #26468 > │ and method7 (v0 : bool) : bool = │
00:06:56 verbose #26469 > │ v0 │
00:06:56 verbose #26470 > │ and method0 () : unit = │
00:06:56 verbose #26471 > │ let v0 : int32 = 0 │
00:06:56 verbose #26472 > │ let v1 : UH0 = method1(v0) │
00:06:56 verbose #26473 > │ let v2 : (unit -> UH0) = closure1(v1) │
00:06:56 verbose #26474 > │ let v3 : (unit -> UH0) = method2(v1, v2) │
00:06:56 verbose #26475 > │ let v4 : UH0 = v3 () │
00:06:56 verbose #26476 > │ let v5 : UH1 = UH1_0 │
00:06:56 verbose #26477 > │ let v6 : int32 = 0 │
00:06:56 verbose #26478 > │ let v7 : UH1 = method3(v4, v5, v6) │
00:06:56 verbose #26479 > │ let v8 : int32 = 0 │
00:06:56 verbose #26480 > │ let v9 : int32 = method6(v7, v8) │
00:06:56 verbose #26481 > │ let v10 : string = $"%A{v9}" │
00:06:56 verbose #26482 > │ System.Console.WriteLine v10 │
00:06:56 verbose #26483 > │ let v11 : bool = v9 = 10 │
00:06:56 verbose #26484 > │ let v13 : bool = │
00:06:56 verbose #26485 > │ if v11 then │
00:06:56 verbose #26486 > │ true │
00:06:56 verbose #26487 > │ else │
00:06:56 verbose #26488 > │ method7(v11) │
00:06:56 verbose #26489 > │ let v14 : string = $"__expect / actual: %A{v9} / expected: %A{10}" │
00:06:56 verbose #26490 > │ let v15 : bool = v13 = false │
00:06:56 verbose #26491 > │ if v15 then │
00:06:56 verbose #26492 > │ failwith<unit> v14 │
00:06:56 verbose #26493 > │ method0() │
00:06:56 verbose #26494 > │ │
00:06:56 verbose #26495 > │ print_and_return / x: 0 │
00:06:56 verbose #26496 > │ print_and_return / x: 1 │
00:06:56 verbose #26497 > │ print_and_return / x: 2 │
00:06:56 verbose #26498 > │ print_and_return / x: 3 │
00:06:56 verbose #26499 > │ print_and_return / x: 4 │
00:06:56 verbose #26500 > │ print_and_return / x: 5 │
00:06:56 verbose #26501 > │ 10 │
00:06:56 verbose #26502 > │ │
00:06:56 verbose #26503 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 verbose #26504 >
00:06:56 verbose #26505 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 verbose #26506 > // // test
00:06:56 verbose #26507 >
00:06:56 verbose #26508 > stream.new_finite_stream print_and_return 10i32
00:06:56 verbose #26509 > |> stream.memoize
00:06:56 verbose #26510 > |> fun list =>
00:06:56 verbose #26511 > inl list = list ()
00:06:56 verbose #26512 > fun n =>
00:06:56 verbose #26513 > list |> stream.try_item n
00:06:56 verbose #26514 > |> take_while_ (fun n (_ : i32) => n < 5)
00:06:56 verbose #26515 > |> listm'.sum
00:06:56 verbose #26516 > |> _assert_eq 10
00:06:56 verbose #26517 > 00:06:55 debug #553 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d6111150be682f088eca11c51c6a99d6b20f1a227c68b88be344157e1deeb7cd/main.spi
00:06:56 verbose #26518 >
00:06:56 verbose #26519 > ╭─[ 437.41ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 verbose #26520 > │ type UH0 = │
00:06:56 verbose #26521 > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:56 verbose #26522 > │ | UH0_1 │
00:06:56 verbose #26523 > │ and [<Struct>] US0 = │
00:06:56 verbose #26524 > │ | US0_0 of f0_0 : (unit -> UH0) │
00:06:56 verbose #26525 > │ | US0_1 of f1_0 : UH0 │
00:06:56 verbose #26526 > │ and Mut0 = {mutable l0 : US0} │
00:06:56 verbose #26527 > │ and UH1 = │
00:06:56 verbose #26528 > │ | UH1_0 │
00:06:56 verbose #26529 > │ | UH1_1 of int32 * UH1 │
00:06:56 verbose #26530 > │ and [<Struct>] US1 = │
00:06:56 verbose #26531 > │ | US1_0 of f0_0 : int32 │
00:06:56 verbose #26532 > │ | US1_1 │
00:06:56 verbose #26533 > │ let rec closure10 () () : UH0 = │
00:06:56 verbose #26534 > │ UH0_1 │
00:06:56 verbose #26535 > │ and closure9 () () : UH0 = │
00:06:56 verbose #26536 > │ printfn $"print_and_return / x: {9}" │
00:06:56 verbose #26537 > │ let v0 : (unit -> UH0) = closure10() │
00:06:56 verbose #26538 > │ UH0_0(9, v0) │
00:06:56 verbose #26539 > │ and closure8 () () : UH0 = │
00:06:56 verbose #26540 > │ printfn $"print_and_return / x: {8}" │
00:06:56 verbose #26541 > │ let v0 : (unit -> UH0) = closure9() │
00:06:56 verbose #26542 > │ UH0_0(8, v0) │
00:06:56 verbose #26543 > │ and closure7 () () : UH0 = │
00:06:56 verbose #26544 > │ printfn $"print_and_return / x: {7}" │
00:06:56 verbose #26545 > │ let v0 : (unit -> UH0) = closure8() │
00:06:56 verbose #26546 > │ UH0_0(7, v0) │
00:06:56 verbose #26547 > │ and closure6 () () : UH0 = │
00:06:56 verbose #26548 > │ printfn $"print_and_return / x: {6}" │
00:06:56 verbose #26549 > │ let v0 : (unit -> UH0) = closure7() │
00:06:56 verbose #26550 > │ UH0_0(6, v0) │
00:06:56 verbose #26551 > │ and closure5 () () : UH0 = │
00:06:56 verbose #26552 > │ printfn $"print_and_return / x: {5}" │
00:06:56 verbose #26553 > │ let v0 : (unit -> UH0) = closure6() │
00:06:56 verbose #26554 > │ UH0_0(5, v0) │
00:06:56 verbose #26555 > │ and closure4 () () : UH0 = │
00:06:56 verbose #26556 > │ printfn $"print_and_return / x: {4}" │
00:06:56 verbose #26557 > │ let v0 : (unit -> UH0) = closure5() │
00:06:56 verbose #26558 > │ UH0_0(4, v0) │
00:06:56 verbose #26559 > │ and closure3 () () : UH0 = │
00:06:56 verbose #26560 > │ printfn $"print_and_return / x: {3}" │
00:06:56 verbose #26561 > │ let v0 : (unit -> UH0) = closure4() │
00:06:56 verbose #26562 > │ UH0_0(3, v0) │
00:06:56 verbose #26563 > │ and closure2 () () : UH0 = │
00:06:56 verbose #26564 > │ printfn $"print_and_return / x: {2}" │
00:06:56 verbose #26565 > │ let v0 : (unit -> UH0) = closure3() │
00:06:56 verbose #26566 > │ UH0_0(2, v0) │
00:06:56 verbose #26567 > │ and closure1 () () : UH0 = │
00:06:56 verbose #26568 > │ printfn $"print_and_return / x: {1}" │
00:06:56 verbose #26569 > │ let v0 : (unit -> UH0) = closure2() │
00:06:56 verbose #26570 > │ UH0_0(1, v0) │
00:06:56 verbose #26571 > │ and closure0 () () : UH0 = │
00:06:56 verbose #26572 > │ let v0 : (unit -> UH0) = closure1() │
00:06:56 verbose #26573 > │ UH0_0(0, v0) │
00:06:56 verbose #26574 > │ and closure11 (v0 : Mut0) () : UH0 = │
00:06:56 verbose #26575 > │ let v1 : US0 = v0.l0 │
00:06:56 verbose #26576 > │ match v1 with │
00:06:56 verbose #26577 > │ | US0_1(v2) -> (* Computed *) │
00:06:56 verbose #26578 > │ v2 │
00:06:56 verbose #26579 > │ | US0_0(v3) -> (* NotComputed *) │
00:06:56 verbose #26580 > │ let v4 : UH0 = v3 () │
00:06:56 verbose #26581 > │ let v13 : UH0 = │
00:06:56 verbose #26582 > │ match v4 with │
00:06:56 verbose #26583 > │ | UH0_0(v6, v7) -> (* StreamCons *) │
00:06:56 verbose #26584 > │ let v8 : US0 = US0_0(v7) │
00:06:56 verbose #26585 > │ let v9 : Mut0 = {l0 = v8} : Mut0 │
00:06:56 verbose #26586 > │ let v10 : (unit -> UH0) = closure11(v9) │
00:06:56 verbose #26587 > │ UH0_0(v6, v10) │
00:06:56 verbose #26588 > │ | UH0_1 -> (* StreamNil *) │
00:06:56 verbose #26589 > │ UH0_1 │
00:06:56 verbose #26590 > │ let v14 : US0 = US0_1(v13) │
00:06:56 verbose #26591 > │ v0.l0 <- v14 │
00:06:56 verbose #26592 > │ v13 │
00:06:56 verbose #26593 > │ and method2 (v0 : int32, v1 : UH0) : US1 = │
00:06:56 verbose #26594 > │ match v1 with │
00:06:56 verbose #26595 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:56 verbose #26596 > │ let v4 : bool = v0 <= 0 │
00:06:56 verbose #26597 > │ if v4 then │
00:06:56 verbose #26598 > │ US1_0(v2) │
00:06:56 verbose #26599 > │ else │
00:06:56 verbose #26600 > │ let v6 : int32 = v0 - 1 │
00:06:56 verbose #26601 > │ let v7 : UH0 = v3 () │
00:06:56 verbose #26602 > │ method2(v6, v7) │
00:06:56 verbose #26603 > │ | UH0_1 -> (* StreamNil *) │
00:06:56 verbose #26604 > │ US1_1 │
00:06:56 verbose #26605 > │ and method3 (v0 : UH1, v1 : UH1) : UH1 = │
00:06:56 verbose #26606 > │ match v0 with │
00:06:56 verbose #26607 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:56 verbose #26608 > │ let v4 : UH1 = UH1_1(v2, v1) │
00:06:56 verbose #26609 > │ method3(v3, v4) │
00:06:56 verbose #26610 > │ | UH1_0 -> (* Nil *) │
00:06:56 verbose #26611 > │ v1 │
00:06:56 verbose #26612 > │ and method1 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:06:56 verbose #26613 > │ let v3 : US1 = method2(v2, v0) │
00:06:56 verbose #26614 > │ match v3 with │
00:06:56 verbose #26615 > │ | US1_0(v4) -> (* Some *) │
00:06:56 verbose #26616 > │ let v5 : bool = v4 < 5 │
00:06:56 verbose #26617 > │ if v5 then │
00:06:56 verbose #26618 > │ let v6 : UH1 = UH1_1(v4, v1) │
00:06:56 verbose #26619 > │ let v7 : int32 = v2 + 1 │
00:06:56 verbose #26620 > │ method1(v0, v6, v7) │
00:06:56 verbose #26621 > │ else │
00:06:56 verbose #26622 > │ let v9 : UH1 = UH1_0 │
00:06:56 verbose #26623 > │ method3(v1, v9) │
00:06:56 verbose #26624 > │ | _ -> │
00:06:56 verbose #26625 > │ let v12 : UH1 = UH1_0 │
00:06:56 verbose #26626 > │ method3(v1, v12) │
00:06:56 verbose #26627 > │ and method4 (v0 : UH1, v1 : int32) : int32 = │
00:06:56 verbose #26628 > │ match v0 with │
00:06:56 verbose #26629 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:56 verbose #26630 > │ let v4 : int32 = v1 + v2 │
00:06:56 verbose #26631 > │ method4(v3, v4) │
00:06:56 verbose #26632 > │ | UH1_0 -> (* Nil *) │
00:06:56 verbose #26633 > │ v1 │
00:06:56 verbose #26634 > │ and method5 (v0 : bool) : bool = │
00:06:56 verbose #26635 > │ v0 │
00:06:56 verbose #26636 > │ and method0 () : unit = │
00:06:56 verbose #26637 > │ printfn $"print_and_return / x: {0}" │
00:06:56 verbose #26638 > │ let v0 : (unit -> UH0) = closure0() │
00:06:56 verbose #26639 > │ let v1 : US0 = US0_0(v0) │
00:06:56 verbose #26640 > │ let v2 : Mut0 = {l0 = v1} : Mut0 │
00:06:56 verbose #26641 > │ let v3 : US0 = v2.l0 │
00:06:56 verbose #26642 > │ let v18 : UH0 = │
00:06:56 verbose #26643 > │ match v3 with │
00:06:56 verbose #26644 > │ | US0_1(v4) -> (* Computed *) │
00:06:56 verbose #26645 > │ v4 │
00:06:56 verbose #26646 > │ | US0_0(v5) -> (* NotComputed *) │
00:06:56 verbose #26647 > │ let v6 : UH0 = v5 () │
00:06:56 verbose #26648 > │ let v15 : UH0 = │
00:06:56 verbose #26649 > │ match v6 with │
00:06:56 verbose #26650 > │ | UH0_0(v8, v9) -> (* StreamCons *) │
00:06:56 verbose #26651 > │ let v10 : US0 = US0_0(v9) │
00:06:56 verbose #26652 > │ let v11 : Mut0 = {l0 = v10} : Mut0 │
00:06:56 verbose #26653 > │ let v12 : (unit -> UH0) = closure11(v11) │
00:06:56 verbose #26654 > │ UH0_0(v8, v12) │
00:06:56 verbose #26655 > │ | UH0_1 -> (* StreamNil *) │
00:06:56 verbose #26656 > │ UH0_1 │
00:06:56 verbose #26657 > │ let v16 : US0 = US0_1(v15) │
00:06:56 verbose #26658 > │ v2.l0 <- v16 │
00:06:56 verbose #26659 > │ v15 │
00:06:56 verbose #26660 > │ let v19 : UH1 = UH1_0 │
00:06:56 verbose #26661 > │ let v20 : int32 = 0 │
00:06:56 verbose #26662 > │ let v21 : UH1 = method1(v18, v19, v20) │
00:06:56 verbose #26663 > │ let v22 : int32 = 0 │
00:06:56 verbose #26664 > │ let v23 : int32 = method4(v21, v22) │
00:06:56 verbose #26665 > │ let v24 : string = $"%A{v23}" │
00:06:56 verbose #26666 > │ System.Console.WriteLine v24 │
00:06:56 verbose #26667 > │ let v25 : bool = v23 = 10 │
00:06:56 verbose #26668 > │ let v27 : bool = │
00:06:56 verbose #26669 > │ if v25 then │
00:06:56 verbose #26670 > │ true │
00:06:56 verbose #26671 > │ else │
00:06:56 verbose #26672 > │ method5(v25) │
00:06:56 verbose #26673 > │ let v28 : string = $"__expect / actual: %A{v23} / expected: %A{10}" │
00:06:56 verbose #26674 > │ let v29 : bool = v27 = false │
00:06:56 verbose #26675 > │ if v29 then │
00:06:56 verbose #26676 > │ failwith<unit> v28 │
00:06:56 verbose #26677 > │ method0() │
00:06:56 verbose #26678 > │ │
00:06:56 verbose #26679 > │ print_and_return / x: 0 │
00:06:56 verbose #26680 > │ print_and_return / x: 1 │
00:06:56 verbose #26681 > │ print_and_return / x: 2 │
00:06:56 verbose #26682 > │ print_and_return / x: 3 │
00:06:56 verbose #26683 > │ print_and_return / x: 4 │
00:06:56 verbose #26684 > │ print_and_return / x: 5 │
00:06:56 verbose #26685 > │ 10 │
00:06:56 verbose #26686 > │ │
00:06:56 verbose #26687 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 verbose #26688 >
00:06:56 verbose #26689 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:56 verbose #26690 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:56 verbose #26691 > │ ## memoize │
00:06:56 verbose #26692 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 verbose #26693 >
00:06:56 verbose #26694 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 verbose #26695 > inl memoize seq =
00:06:56 verbose #26696 > inl state = mut [[]]
00:06:56 verbose #26697 > fun n =>
00:06:56 verbose #26698 > match *state |> listm'.try_find (fun (n', _) => n' = n) with
00:06:56 verbose #26699 > | Some (_, v) => v
00:06:56 verbose #26700 > | None =>
00:06:56 verbose #26701 > inl new_state = seq n
00:06:56 verbose #26702 > state <- (n, new_state) :: *state
00:06:56 verbose #26703 > new_state
00:06:56 verbose #26704 >
00:06:56 verbose #26705 > inl memoize_ seq =
00:06:56 verbose #26706 > inl state = mut [[]]
00:06:56 verbose #26707 > fun n =>
00:06:56 verbose #26708 > match *state |> listm'.try_find_ (fun (n', _) => n' = n) with
00:06:56 verbose #26709 > | Some (_, v) => v
00:06:56 verbose #26710 > | None =>
00:06:56 verbose #26711 > inl new_state = seq n
00:06:56 verbose #26712 > state <- (n, new_state) :: *state
00:06:56 verbose #26713 > new_state
00:06:56 verbose #26714 > 00:06:56 debug #554 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/28c44fec5020eace48acf70337a40500a222d7e7778e31b31018414bc5b46e76/main.spi
00:06:57 verbose #26715 >
00:06:57 verbose #26716 > ╭─[ 251.35ms - stdout ]────────────────────────────────────────────────────────╮
00:06:57 verbose #26717 > │ () │
00:06:57 verbose #26718 > │ │
00:06:57 verbose #26719 > │ │
00:06:57 verbose #26720 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 verbose #26721 >
00:06:57 verbose #26722 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 verbose #26723 > // // test
00:06:57 verbose #26724 >
00:06:57 verbose #26725 > inl seq =
00:06:57 verbose #26726 > fun n =>
00:06:57 verbose #26727 > n |> print_and_return |> Some
00:06:57 verbose #26728 > |> memoize_
00:06:57 verbose #26729 >
00:06:57 verbose #26730 > seq
00:06:57 verbose #26731 > |> take_while_ (fun n (_ : i32) => n < 5)
00:06:57 verbose #26732 > |> listm'.sum
00:06:57 verbose #26733 > |> _assert_eq 10
00:06:57 verbose #26734 >
00:06:57 verbose #26735 > seq
00:06:57 verbose #26736 > |> take_while_ (fun n _ => n < 5)
00:06:57 verbose #26737 > |> listm'.sum
00:06:57 verbose #26738 > |> _assert_eq 10
00:06:57 verbose #26739 > 00:06:56 debug #555 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a92aa0e259ada6ab010699bdd32289227d0a4093bef45b73d64889b182aa58e/main.spi
00:06:57 verbose #26740 >
00:06:57 verbose #26741 > ╭─[ 400.80ms - stdout ]────────────────────────────────────────────────────────╮
00:06:57 verbose #26742 > │ type [<Struct>] US0 = │
00:06:57 verbose #26743 > │ | US0_0 of f0_0 : int32 │
00:06:57 verbose #26744 > │ | US0_1 │
00:06:57 verbose #26745 > │ and UH0 = │
00:06:57 verbose #26746 > │ | UH0_0 │
00:06:57 verbose #26747 > │ | UH0_1 of int32 * US0 * UH0 │
00:06:57 verbose #26748 > │ and Mut0 = {mutable l0 : UH0} │
00:06:57 verbose #26749 > │ and UH1 = │
00:06:57 verbose #26750 > │ | UH1_0 │
00:06:57 verbose #26751 > │ | UH1_1 of int32 * UH1 │
00:06:57 verbose #26752 > │ and [<Struct>] US1 = │
00:06:57 verbose #26753 > │ | US1_0 of f0_0 : int32 * f0_1 : US0 │
00:06:57 verbose #26754 > │ | US1_1 │
00:06:57 verbose #26755 > │ let rec method2 (v0 : int32, v1 : UH0) : US1 = │
00:06:57 verbose #26756 > │ match v1 with │
00:06:57 verbose #26757 > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:06:57 verbose #26758 > │ let v6 : bool = v3 = v0 │
00:06:57 verbose #26759 > │ if v6 then │
00:06:57 verbose #26760 > │ US1_0(v3, v4) │
00:06:57 verbose #26761 > │ else │
00:06:57 verbose #26762 > │ method2(v0, v5) │
00:06:57 verbose #26763 > │ | UH0_0 -> (* Nil *) │
00:06:57 verbose #26764 > │ US1_1 │
00:06:57 verbose #26765 > │ and method3 (v0 : UH1, v1 : UH1) : UH1 = │
00:06:57 verbose #26766 > │ match v0 with │
00:06:57 verbose #26767 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:57 verbose #26768 > │ let v4 : UH1 = UH1_1(v2, v1) │
00:06:57 verbose #26769 > │ method3(v3, v4) │
00:06:57 verbose #26770 > │ | UH1_0 -> (* Nil *) │
00:06:57 verbose #26771 > │ v1 │
00:06:57 verbose #26772 > │ and method1 (v0 : Mut0, v1 : UH1, v2 : int32) : UH1 = │
00:06:57 verbose #26773 > │ let v3 : UH0 = v0.l0 │
00:06:57 verbose #26774 > │ let v4 : US1 = method2(v2, v3) │
00:06:57 verbose #26775 > │ let v12 : US0 = │
00:06:57 verbose #26776 > │ match v4 with │
00:06:57 verbose #26777 > │ | US1_1 -> (* None *) │
00:06:57 verbose #26778 > │ printfn $"print_and_return / x: {v2}" │
00:06:57 verbose #26779 > │ let v7 : UH0 = v0.l0 │
00:06:57 verbose #26780 > │ let v8 : US0 = US0_0(v2) │
00:06:57 verbose #26781 > │ let v9 : UH0 = UH0_1(v2, v8, v7) │
00:06:57 verbose #26782 > │ v0.l0 <- v9 │
00:06:57 verbose #26783 > │ US0_0(v2) │
00:06:57 verbose #26784 > │ | US1_0(v5, v6) -> (* Some *) │
00:06:57 verbose #26785 > │ v6 │
00:06:57 verbose #26786 > │ match v12 with │
00:06:57 verbose #26787 > │ | US0_0(v13) -> (* Some *) │
00:06:57 verbose #26788 > │ let v14 : bool = v13 < 5 │
00:06:57 verbose #26789 > │ if v14 then │
00:06:57 verbose #26790 > │ let v15 : UH1 = UH1_1(v13, v1) │
00:06:57 verbose #26791 > │ let v16 : int32 = v2 + 1 │
00:06:57 verbose #26792 > │ method1(v0, v15, v16) │
00:06:57 verbose #26793 > │ else │
00:06:57 verbose #26794 > │ let v18 : UH1 = UH1_0 │
00:06:57 verbose #26795 > │ method3(v1, v18) │
00:06:57 verbose #26796 > │ | _ -> │
00:06:57 verbose #26797 > │ let v21 : UH1 = UH1_0 │
00:06:57 verbose #26798 > │ method3(v1, v21) │
00:06:57 verbose #26799 > │ and method4 (v0 : UH1, v1 : int32) : int32 = │
00:06:57 verbose #26800 > │ match v0 with │
00:06:57 verbose #26801 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:06:57 verbose #26802 > │ let v4 : int32 = v1 + v2 │
00:06:57 verbose #26803 > │ method4(v3, v4) │
00:06:57 verbose #26804 > │ | UH1_0 -> (* Nil *) │
00:06:57 verbose #26805 > │ v1 │
00:06:57 verbose #26806 > │ and method5 (v0 : bool) : bool = │
00:06:57 verbose #26807 > │ v0 │
00:06:57 verbose #26808 > │ and method6 (v0 : Mut0, v1 : UH1, v2 : int32) : UH1 = │
00:06:57 verbose #26809 > │ let v3 : UH0 = v0.l0 │
00:06:57 verbose #26810 > │ let v4 : US1 = method2(v2, v3) │
00:06:57 verbose #26811 > │ let v12 : US0 = │
00:06:57 verbose #26812 > │ match v4 with │
00:06:57 verbose #26813 > │ | US1_1 -> (* None *) │
00:06:57 verbose #26814 > │ printfn $"print_and_return / x: {v2}" │
00:06:57 verbose #26815 > │ let v7 : UH0 = v0.l0 │
00:06:57 verbose #26816 > │ let v8 : US0 = US0_0(v2) │
00:06:57 verbose #26817 > │ let v9 : UH0 = UH0_1(v2, v8, v7) │
00:06:57 verbose #26818 > │ v0.l0 <- v9 │
00:06:57 verbose #26819 > │ US0_0(v2) │
00:06:57 verbose #26820 > │ | US1_0(v5, v6) -> (* Some *) │
00:06:57 verbose #26821 > │ v6 │
00:06:57 verbose #26822 > │ match v12 with │
00:06:57 verbose #26823 > │ | US0_0(v13) -> (* Some *) │
00:06:57 verbose #26824 > │ let v14 : bool = v13 < 5 │
00:06:57 verbose #26825 > │ if v14 then │
00:06:57 verbose #26826 > │ let v15 : UH1 = UH1_1(v13, v1) │
00:06:57 verbose #26827 > │ let v16 : int32 = v2 + 1 │
00:06:57 verbose #26828 > │ method6(v0, v15, v16) │
00:06:57 verbose #26829 > │ else │
00:06:57 verbose #26830 > │ let v18 : UH1 = UH1_0 │
00:06:57 verbose #26831 > │ method3(v1, v18) │
00:06:57 verbose #26832 > │ | _ -> │
00:06:57 verbose #26833 > │ let v21 : UH1 = UH1_0 │
00:06:57 verbose #26834 > │ method3(v1, v21) │
00:06:57 verbose #26835 > │ and method0 () : unit = │
00:06:57 verbose #26836 > │ let v0 : UH0 = UH0_0 │
00:06:57 verbose #26837 > │ let v1 : Mut0 = {l0 = v0} : Mut0 │
00:06:57 verbose #26838 > │ let v2 : UH1 = UH1_0 │
00:06:57 verbose #26839 > │ let v3 : int32 = 0 │
00:06:57 verbose #26840 > │ let v4 : UH1 = method1(v1, v2, v3) │
00:06:57 verbose #26841 > │ let v5 : int32 = 0 │
00:06:57 verbose #26842 > │ let v6 : int32 = method4(v4, v5) │
00:06:57 verbose #26843 > │ let v7 : string = $"%A{v6}" │
00:06:57 verbose #26844 > │ System.Console.WriteLine v7 │
00:06:57 verbose #26845 > │ let v8 : bool = v6 = 10 │
00:06:57 verbose #26846 > │ let v10 : bool = │
00:06:57 verbose #26847 > │ if v8 then │
00:06:57 verbose #26848 > │ true │
00:06:57 verbose #26849 > │ else │
00:06:57 verbose #26850 > │ method5(v8) │
00:06:57 verbose #26851 > │ let v11 : string = $"__expect / actual: %A{v6} / expected: %A{10}" │
00:06:57 verbose #26852 > │ let v12 : bool = v10 = false │
00:06:57 verbose #26853 > │ if v12 then │
00:06:57 verbose #26854 > │ failwith<unit> v11 │
00:06:57 verbose #26855 > │ let v13 : UH1 = UH1_0 │
00:06:57 verbose #26856 > │ let v14 : int32 = 0 │
00:06:57 verbose #26857 > │ let v15 : UH1 = method6(v1, v13, v14) │
00:06:57 verbose #26858 > │ let v16 : int32 = 0 │
00:06:57 verbose #26859 > │ let v17 : int32 = method4(v15, v16) │
00:06:57 verbose #26860 > │ let v18 : string = $"%A{v17}" │
00:06:57 verbose #26861 > │ System.Console.WriteLine v18 │
00:06:57 verbose #26862 > │ let v19 : bool = v17 = 10 │
00:06:57 verbose #26863 > │ let v21 : bool = │
00:06:57 verbose #26864 > │ if v19 then │
00:06:57 verbose #26865 > │ true │
00:06:57 verbose #26866 > │ else │
00:06:57 verbose #26867 > │ method5(v19) │
00:06:57 verbose #26868 > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{10}" │
00:06:57 verbose #26869 > │ let v23 : bool = v21 = false │
00:06:57 verbose #26870 > │ if v23 then │
00:06:57 verbose #26871 > │ failwith<unit> v22 │
00:06:57 verbose #26872 > │ method0() │
00:06:57 verbose #26873 > │ │
00:06:57 verbose #26874 > │ print_and_return / x: 0 │
00:06:57 verbose #26875 > │ print_and_return / x: 1 │
00:06:57 verbose #26876 > │ print_and_return / x: 2 │
00:06:57 verbose #26877 > │ print_and_return / x: 3 │
00:06:57 verbose #26878 > │ print_and_return / x: 4 │
00:06:57 verbose #26879 > │ print_and_return / x: 5 │
00:06:57 verbose #26880 > │ 10 │
00:06:57 verbose #26881 > │ 10 │
00:06:57 verbose #26882 > │ │
00:06:57 verbose #26883 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 verbose #26884 >
00:06:57 verbose #26885 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:57 verbose #26886 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:57 verbose #26887 > │ ## iterate │
00:06:57 verbose #26888 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 verbose #26889 >
00:06:57 verbose #26890 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 verbose #26891 > inl iterate f x0 num_steps =
00:06:57 verbose #26892 > inl rec loop x n =
00:06:57 verbose #26893 > if n <= 0
00:06:57 verbose #26894 > then x
00:06:57 verbose #26895 > else loop (f x) (n - 1)
00:06:57 verbose #26896 > loop x0 num_steps
00:06:57 verbose #26897 > 00:06:57 debug #556 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/aca72ac77cd6b2093bec75afa7798320958be2ec92065460c257275b51ba8642/main.spi
00:06:57 verbose #26898 >
00:06:57 verbose #26899 > ╭─[ 243.89ms - stdout ]────────────────────────────────────────────────────────╮
00:06:57 verbose #26900 > │ () │
00:06:57 verbose #26901 > │ │
00:06:57 verbose #26902 > │ │
00:06:57 verbose #26903 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 verbose #26904 >
00:06:57 verbose #26905 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 verbose #26906 > // // test
00:06:57 verbose #26907 >
00:06:57 verbose #26908 > 10i32 |> iterate ((*) 2) 1i32
00:06:57 verbose #26909 > |> _assert_eq 1024
00:06:57 verbose #26910 > 00:06:57 debug #557 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a2062d9cb78bef5c04ea6e43de53643ec24d1148c9cb84557752f299f7438d4/main.spi
00:06:58 verbose #26911 >
00:06:58 verbose #26912 > ╭─[ 300.15ms - stdout ]────────────────────────────────────────────────────────╮
00:06:58 verbose #26913 > │ let rec method0 () : unit = │
00:06:58 verbose #26914 > │ let v0 : string = $"%A{1024}" │
00:06:58 verbose #26915 > │ System.Console.WriteLine v0 │
00:06:58 verbose #26916 > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:06:58 verbose #26917 > │ () │
00:06:58 verbose #26918 > │ method0() │
00:06:58 verbose #26919 > │ │
00:06:58 verbose #26920 > │ 1024 │
00:06:58 verbose #26921 > │ │
00:06:58 verbose #26922 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 verbose #26923 >
00:06:58 verbose #26924 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 verbose #26925 > inl iterate_ f x0 num_steps =
00:06:58 verbose #26926 > let rec loop x n =
00:06:58 verbose #26927 > if n <= 0
00:06:58 verbose #26928 > then x
00:06:58 verbose #26929 > else loop (f x) (n - 1)
00:06:58 verbose #26930 > loop x0 num_steps
00:06:58 verbose #26931 > 00:06:57 debug #558 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b2b6cc49404dfd8d8893646690277bef15d52357463e19633c3448c7020eb916/main.spi
00:06:58 verbose #26932 >
00:06:58 verbose #26933 > ╭─[ 210.46ms - stdout ]────────────────────────────────────────────────────────╮
00:06:58 verbose #26934 > │ () │
00:06:58 verbose #26935 > │ │
00:06:58 verbose #26936 > │ │
00:06:58 verbose #26937 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 verbose #26938 >
00:06:58 verbose #26939 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 verbose #26940 > // // test
00:06:58 verbose #26941 >
00:06:58 verbose #26942 > 10i32 |> iterate_ ((*) 2) 1i32
00:06:58 verbose #26943 > |> _assert_eq 1024
00:06:58 verbose #26944 > 00:06:57 debug #559 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/488a1c698ca08eee72c0120c91f212c22516518ee0641d2c8d84edba238b8775/main.spi
00:06:58 verbose #26945 >
00:06:58 verbose #26946 > ╭─[ 262.21ms - stdout ]────────────────────────────────────────────────────────╮
00:06:58 verbose #26947 > │ let rec method1 (v0 : int32, v1 : int32) : int32 = │
00:06:58 verbose #26948 > │ let v2 : bool = v1 <= 0 │
00:06:58 verbose #26949 > │ if v2 then │
00:06:58 verbose #26950 > │ v0 │
00:06:58 verbose #26951 > │ else │
00:06:58 verbose #26952 > │ let v3 : int32 = 2 * v0 │
00:06:58 verbose #26953 > │ let v4 : int32 = v1 - 1 │
00:06:58 verbose #26954 > │ method1(v3, v4) │
00:06:58 verbose #26955 > │ and method2 (v0 : bool) : bool = │
00:06:58 verbose #26956 > │ v0 │
00:06:58 verbose #26957 > │ and method0 () : unit = │
00:06:58 verbose #26958 > │ let v0 : int32 = 1 │
00:06:58 verbose #26959 > │ let v1 : int32 = 10 │
00:06:58 verbose #26960 > │ let v2 : int32 = method1(v0, v1) │
00:06:58 verbose #26961 > │ let v3 : string = $"%A{v2}" │
00:06:58 verbose #26962 > │ System.Console.WriteLine v3 │
00:06:58 verbose #26963 > │ let v4 : bool = v2 = 1024 │
00:06:58 verbose #26964 > │ let v6 : bool = │
00:06:58 verbose #26965 > │ if v4 then │
00:06:58 verbose #26966 > │ true │
00:06:58 verbose #26967 > │ else │
00:06:58 verbose #26968 > │ method2(v4) │
00:06:58 verbose #26969 > │ let v7 : string = $"__expect / actual: %A{v2} / expected: %A{1024}" │
00:06:58 verbose #26970 > │ let v8 : bool = v6 = false │
00:06:58 verbose #26971 > │ if v8 then │
00:06:58 verbose #26972 > │ failwith<unit> v7 │
00:06:58 verbose #26973 > │ method0() │
00:06:58 verbose #26974 > │ │
00:06:58 verbose #26975 > │ 1024 │
00:06:58 verbose #26976 > │ │
00:06:58 verbose #26977 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 verbose #26978 >
00:06:58 verbose #26979 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 verbose #26980 > inl iterate' f x0 num_steps =
00:06:58 verbose #26981 > listm.init num_steps id
00:06:58 verbose #26982 > |> listm.fold (fun x _ => f x) x0
00:06:58 verbose #26983 > 00:06:58 debug #560 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ca8a1984d5a05e48f034657d5bb8cebed2ec6152362ea85b71e5d588cf288bcc/main.spi
00:06:58 verbose #26984 >
00:06:58 verbose #26985 > ╭─[ 309.55ms - stdout ]────────────────────────────────────────────────────────╮
00:06:58 verbose #26986 > │ () │
00:06:58 verbose #26987 > │ │
00:06:58 verbose #26988 > │ │
00:06:58 verbose #26989 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 verbose #26990 >
00:06:58 verbose #26991 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 verbose #26992 > // // test
00:06:58 verbose #26993 >
00:06:58 verbose #26994 > 10i32 |> iterate' ((*) 2) 1i32
00:06:58 verbose #26995 > |> _assert_eq 1024
00:06:58 verbose #26996 > 00:06:58 debug #561 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e54233d494fe95fbdf55657067069aa9bf9ee7368b8afad71bbc07e8968fc3f3/main.spi
00:06:59 verbose #26997 >
00:06:59 verbose #26998 > ╭─[ 245.98ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 verbose #26999 > │ let rec method0 () : unit = │
00:06:59 verbose #27000 > │ let v0 : string = $"%A{1024}" │
00:06:59 verbose #27001 > │ System.Console.WriteLine v0 │
00:06:59 verbose #27002 > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:06:59 verbose #27003 > │ () │
00:06:59 verbose #27004 > │ method0() │
00:06:59 verbose #27005 > │ │
00:06:59 verbose #27006 > │ 1024 │
00:06:59 verbose #27007 > │ │
00:06:59 verbose #27008 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 verbose #27009 >
00:06:59 verbose #27010 > ── markdown ────────────────────────────────────────────────────────────────────
00:06:59 verbose #27011 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:59 verbose #27012 > │ ## find_last │
00:06:59 verbose #27013 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 verbose #27014 >
00:06:59 verbose #27015 > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 verbose #27016 > inl find_last forall item result. fold_fn fn target : option result =
00:06:59 verbose #27017 > fold_fn (fun (item : item) (result : option result) =>
00:06:59 verbose #27018 > match result with
00:06:59 verbose #27019 > | None => fn item
00:06:59 verbose #27020 > | result => result
00:06:59 verbose #27021 > ) target (None : option result)
00:06:59 verbose #27022 >
00:06:59 verbose #27023 > inl array_find_last forall item result. (fn : item -> option result) (target : a
00:06:59 verbose #27024 > i32 item) : option result =
00:06:59 verbose #27025 > find_last am.foldBack fn target
00:06:59 verbose #27026 >
00:06:59 verbose #27027 > inl list_find_last forall item result. (fn : item -> option result) (target :
00:06:59 verbose #27028 > list item) : option result =
00:06:59 verbose #27029 > find_last listm.foldBack fn target
00:06:59 verbose #27030 > 00:06:58 debug #562 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cbb6bf355764273953cf2ebad06fad8212fce0af12e1c722d504c6b4174e161f/main.spi
00:06:59 verbose #27031 >
00:06:59 verbose #27032 > ╭─[ 238.44ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 verbose #27033 > │ () │
00:06:59 verbose #27034 > │ │
00:06:59 verbose #27035 > │ │
00:06:59 verbose #27036 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 verbose #27037 > [NbConvertApp] Converting notebook seq.dib.ipynb to html
00:07:01 verbose #27038 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:01 verbose #27039 > validate(nb)
00:07:01 verbose #27040 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:07:01 verbose #27041 > return _pygments_highlight(
00:07:02 verbose #27042 > [NbConvertApp] Writing 420598 bytes to seq.dib.html
00:07:02 debug #27043 execute_with_options_async / exit_code: 0 / output.Length: 146636
00:07:02 debug #20 main / executeCommand / exitCode: 0
00:07:02 debug #27044 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 benchmark.dib" -Retries 3", None,
None)
00:07:03 verbose #27045 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: benchmark.dib / _args: [
00:07:03 verbose #27046 > "-Retries",
00:07:03 verbose #27047 > 3
00:07:03 verbose #27048 > ]
00:07:05 verbose #27049 >
00:07:05 verbose #27050 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:05 verbose #27051 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:05 verbose #27052 > │ ## benchmark (Polyglot) │
00:07:05 verbose #27053 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:05 verbose #27054 >
00:07:05 verbose #27055 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:05 verbose #27056 > // // test
00:07:05 verbose #27057 >
00:07:05 verbose #27058 > open testing
00:07:08 verbose #27059 > 00:07:07 debug #563 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:07:09 verbose #27060 >
00:07:09 verbose #27061 > ╭─[ 3.76s - stdout ]───────────────────────────────────────────────────────────╮
00:07:09 verbose #27062 > │ () │
00:07:09 verbose #27063 > │ │
00:07:09 verbose #27064 > │ │
00:07:09 verbose #27065 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:09 verbose #27066 >
00:07:09 verbose #27067 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:09 verbose #27068 > inl (/@) x = listm'.(/@) x
00:07:09 verbose #27069 > 00:07:08 debug #564 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/819235c6d5790f122eb44705884c5dc6cd36e4532df1e305d1bd4cb59cd7f25d/main.spi
00:07:09 verbose #27070 >
00:07:09 verbose #27071 > ╭─[ 282.30ms - stdout ]────────────────────────────────────────────────────────╮
00:07:09 verbose #27072 > │ () │
00:07:09 verbose #27073 > │ │
00:07:09 verbose #27074 > │ │
00:07:09 verbose #27075 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:09 verbose #27076 >
00:07:09 verbose #27077 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:09 verbose #27078 > inl gc_collect () =
00:07:09 verbose #27079 > run_target function
00:07:09 verbose #27080 > | Fsharp _ => fun () => $"System.GC.Collect ()"
00:07:09 verbose #27081 > | _ => fun () => ()
00:07:09 verbose #27082 >
00:07:09 verbose #27083 > inl printfn x =
00:07:09 verbose #27084 > console.write_line x
00:07:09 verbose #27085 >
00:07:09 verbose #27086 > nominal stopwatch = $"System.Diagnostics.Stopwatch"
00:07:09 verbose #27087 >
00:07:09 verbose #27088 > inl stopwatch () : stopwatch =
00:07:09 verbose #27089 > $"`stopwatch" ()
00:07:09 verbose #27090 >
00:07:09 verbose #27091 > inl stopwatch_elapsed_milliseconds (stopwatch : stopwatch) : i64 =
00:07:09 verbose #27092 > $"!stopwatch.ElapsedMilliseconds"
00:07:09 verbose #27093 >
00:07:09 verbose #27094 > inl stopwatch_start (stopwatch : stopwatch) : () =
00:07:09 verbose #27095 > $"!stopwatch.Start ()"
00:07:09 verbose #27096 > 00:07:09 debug #565 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c12c9da4851177ff9eb7d668d5d9b9d7155315b3448526fc4dad85db9c80f008/main.spi
00:07:09 verbose #27097 >
00:07:09 verbose #27098 > ╭─[ 281.96ms - stdout ]────────────────────────────────────────────────────────╮
00:07:09 verbose #27099 > │ () │
00:07:09 verbose #27100 > │ │
00:07:09 verbose #27101 > │ │
00:07:09 verbose #27102 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:09 verbose #27103 >
00:07:09 verbose #27104 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:09 verbose #27105 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:09 verbose #27106 > │ ## test_case_result │
00:07:09 verbose #27107 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:09 verbose #27108 >
00:07:09 verbose #27109 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:09 verbose #27110 > type test_case_result =
00:07:09 verbose #27111 > {
00:07:09 verbose #27112 > Input : string
00:07:09 verbose #27113 > Expected : string
00:07:09 verbose #27114 > Result : string
00:07:09 verbose #27115 > TimeList : a u64 i64
00:07:09 verbose #27116 > }
00:07:10 verbose #27117 > 00:07:09 debug #566 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/148c2af0894b5a10127c2d84d5acaa7b373dbf2fae9f5dcc77d95949eefe781e/main.spi
00:07:10 verbose #27118 >
00:07:10 verbose #27119 > ╭─[ 230.21ms - stdout ]────────────────────────────────────────────────────────╮
00:07:10 verbose #27120 > │ () │
00:07:10 verbose #27121 > │ │
00:07:10 verbose #27122 > │ │
00:07:10 verbose #27123 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27124 >
00:07:10 verbose #27125 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:10 verbose #27126 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:10 verbose #27127 > │ ## run │
00:07:10 verbose #27128 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27129 >
00:07:10 verbose #27130 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 verbose #27131 > inl run forall input expected.
00:07:10 verbose #27132 > count
00:07:10 verbose #27133 > (solutions : list (string * (input -> expected)))
00:07:10 verbose #27134 > ((input, expected) : (input * expected))
00:07:10 verbose #27135 > : test_case_result
00:07:10 verbose #27136 > =
00:07:10 verbose #27137 > inl input_str = input |> sm'.format_debug
00:07:10 verbose #27138 >
00:07:10 verbose #27139 > printfn ""
00:07:10 verbose #27140 > printfn ($"$\"Solution: {!input_str} \"" : string)
00:07:10 verbose #27141 >
00:07:10 verbose #27142 > inl performance_invoke (fn : () -> expected) =
00:07:10 verbose #27143 > gc_collect ()
00:07:10 verbose #27144 > inl stopwatch = stopwatch ()
00:07:10 verbose #27145 > stopwatch |> stopwatch_start
00:07:10 verbose #27146 > inl time1 = stopwatch |> stopwatch_elapsed_milliseconds
00:07:10 verbose #27147 > inl result : expected =
00:07:10 verbose #27148 > am'.init_series 0 count 1i32
00:07:10 verbose #27149 > |> am'.parallel_map fun _n => fn ()
00:07:10 verbose #27150 > |> am'.last
00:07:10 verbose #27151 > inl time2 = (stopwatch |> stopwatch_elapsed_milliseconds) - time1
00:07:10 verbose #27152 > result, time2
00:07:10 verbose #27153 >
00:07:10 verbose #27154 > inl results_with_time : a u64 _ =
00:07:10 verbose #27155 > solutions
00:07:10 verbose #27156 > |> listm'.indexed
00:07:10 verbose #27157 > |> listm.toArray
00:07:10 verbose #27158 > |> am.map fun ((i : i32), (test_name, solution)) =>
00:07:10 verbose #27159 > inl result, time = performance_invoke fun () => solution input
00:07:10 verbose #27160 > printfn ($"$\"Test case {!i + 1}. {!test_name}. Time: {!time} \"" :
00:07:10 verbose #27161 > string)
00:07:10 verbose #27162 > result, time
00:07:10 verbose #27163 >
00:07:10 verbose #27164 > match results_with_time |> am.map fst with
00:07:10 verbose #27165 > | array when length array <= 1 => ()
00:07:10 verbose #27166 > | array when array |> am.forall' ((=) (index array 0)) => ()
00:07:10 verbose #27167 > | results => failwith ($"$\"Challenge error: {!results}\"" : string)
00:07:10 verbose #27168 >
00:07:10 verbose #27169 > {
00:07:10 verbose #27170 > Input = input_str
00:07:10 verbose #27171 > Expected = expected |> sm'.format_debug
00:07:10 verbose #27172 > Result = results_with_time |> am.map fst |> fun array => index array 0
00:07:10 verbose #27173 > |> sm'.format_debug
00:07:10 verbose #27174 > TimeList = results_with_time |> am.map snd
00:07:10 verbose #27175 > }
00:07:10 verbose #27176 > 00:07:09 debug #567 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ce00a7aedc3e680e2047e2ba63ee93662c35fa7a7e8e36661bdf9573f2247743/main.spi
00:07:10 verbose #27177 >
00:07:10 verbose #27178 > ╭─[ 223.68ms - stdout ]────────────────────────────────────────────────────────╮
00:07:10 verbose #27179 > │ () │
00:07:10 verbose #27180 > │ │
00:07:10 verbose #27181 > │ │
00:07:10 verbose #27182 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27183 >
00:07:10 verbose #27184 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:10 verbose #27185 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:10 verbose #27186 > │ ## run_all │
00:07:10 verbose #27187 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27188 >
00:07:10 verbose #27189 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 verbose #27190 > inl run_all forall input expected.
00:07:10 verbose #27191 > test_name
00:07:10 verbose #27192 > count
00:07:10 verbose #27193 > (solutions : list (string * (input -> expected)))
00:07:10 verbose #27194 > test_cases
00:07:10 verbose #27195 > =
00:07:10 verbose #27196 > printfn ""
00:07:10 verbose #27197 > printfn ""
00:07:10 verbose #27198 > printfn ($"$\"Test: {!test_name}\"" : string)
00:07:10 verbose #27199 > test_cases
00:07:10 verbose #27200 > |> listm.toArray
00:07:10 verbose #27201 > |> am.map (run count solutions)
00:07:10 verbose #27202 > 00:07:09 debug #568 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/09f4beb98e30972ee46a70ac363b86ba2dc139a2e0ac26f0275307f58e9eed17/main.spi
00:07:10 verbose #27203 >
00:07:10 verbose #27204 > ╭─[ 213.38ms - stdout ]────────────────────────────────────────────────────────╮
00:07:10 verbose #27205 > │ () │
00:07:10 verbose #27206 > │ │
00:07:10 verbose #27207 > │ │
00:07:10 verbose #27208 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27209 >
00:07:10 verbose #27210 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:10 verbose #27211 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:10 verbose #27212 > │ ## sort_result_list │
00:07:10 verbose #27213 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27214 >
00:07:10 verbose #27215 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 verbose #27216 > inl sort_result_list results =
00:07:10 verbose #27217 > inl table =
00:07:10 verbose #27218 > inl rows =
00:07:10 verbose #27219 > results
00:07:10 verbose #27220 > |> am.map fun (result : test_case_result) =>
00:07:10 verbose #27221 > inl best =
00:07:10 verbose #27222 > result.TimeList
00:07:10 verbose #27223 > |> am'.indexed
00:07:10 verbose #27224 > |> am.map fun (i, time) =>
00:07:10 verbose #27225 > i + 1i64, time
00:07:10 verbose #27226 > |> am'.sort_by snd
00:07:10 verbose #27227 > |> fun array => index array 0i32
00:07:10 verbose #27228 > |> sm'.format_debug
00:07:10 verbose #27229 > inl row =
00:07:10 verbose #27230 > [[
00:07:10 verbose #27231 > result.Input
00:07:10 verbose #27232 > result.Expected
00:07:10 verbose #27233 > result.Result
00:07:10 verbose #27234 > best
00:07:10 verbose #27235 > ]]
00:07:10 verbose #27236 > inl color : option console.console_color =
00:07:10 verbose #27237 > open console
00:07:10 verbose #27238 > match result.Expected = result.Result with
00:07:10 verbose #27239 > | true => Some $"`console_color.DarkGreen"
00:07:10 verbose #27240 > | false => Some $"`console_color.DarkRed"
00:07:10 verbose #27241 > row, color
00:07:10 verbose #27242 >
00:07:10 verbose #27243 > inl header =
00:07:10 verbose #27244 > [[
00:07:10 verbose #27245 > [[
00:07:10 verbose #27246 > "Input"
00:07:10 verbose #27247 > "Expected"
00:07:10 verbose #27248 > "Result"
00:07:10 verbose #27249 > "Best"
00:07:10 verbose #27250 > ]]
00:07:10 verbose #27251 > [[
00:07:10 verbose #27252 > "---"
00:07:10 verbose #27253 > "---"
00:07:10 verbose #27254 > "---"
00:07:10 verbose #27255 > "---"
00:07:10 verbose #27256 > ]]
00:07:10 verbose #27257 > ]]
00:07:10 verbose #27258 > |> listm.map fun row => row, None
00:07:10 verbose #27259 > |> listm.toArray
00:07:10 verbose #27260 > rows |> am.append header
00:07:10 verbose #27261 >
00:07:10 verbose #27262 > inl formattedTable =
00:07:10 verbose #27263 > inl lengthMap : mapm.map i32 i64 =
00:07:10 verbose #27264 > table
00:07:10 verbose #27265 > |> am.map (fst >> listm.toArray)
00:07:10 verbose #27266 > |> am'.transpose
00:07:10 verbose #27267 > |> am.map fun column =>
00:07:10 verbose #27268 > column
00:07:10 verbose #27269 > |> am.map sm.length
00:07:10 verbose #27270 > |> am'.sort_descending
00:07:10 verbose #27271 > |> am'.try_item 0i32
00:07:10 verbose #27272 > |> optionm'.default_value 0i64
00:07:10 verbose #27273 > |> am'.indexed
00:07:10 verbose #27274 > |> fun (x : a i32 _) => x
00:07:10 verbose #27275 > |> mapm.of_array
00:07:10 verbose #27276 > table
00:07:10 verbose #27277 > |> am.map fun (row, color) =>
00:07:10 verbose #27278 > inl newRow =
00:07:10 verbose #27279 > row
00:07:10 verbose #27280 > |> listm'.indexed
00:07:10 verbose #27281 > |> listm.map fun (i, cell) =>
00:07:10 verbose #27282 > cell |> sm'.pad_right (lengthMap |> mapm.item i |> conv)
00:07:10 verbose #27283 > |> listm.toArray
00:07:10 verbose #27284 > newRow, color
00:07:10 verbose #27285 >
00:07:10 verbose #27286 > printfn ""
00:07:10 verbose #27287 > formattedTable
00:07:10 verbose #27288 > |> am.iter fun ((row : a i32 string), color) =>
00:07:10 verbose #27289 > match color with
00:07:10 verbose #27290 > | Some color => color |> console.set_foreground_color
00:07:10 verbose #27291 > | None => console.reset_color ()
00:07:10 verbose #27292 >
00:07:10 verbose #27293 > printfn (row |> sm'.join' "\t| ")
00:07:10 verbose #27294 >
00:07:10 verbose #27295 > console.reset_color ()
00:07:10 verbose #27296 >
00:07:10 verbose #27297 > inl averages : a u64 _ =
00:07:10 verbose #27298 > results
00:07:10 verbose #27299 > |> am.map fun result =>
00:07:10 verbose #27300 > result.TimeList
00:07:10 verbose #27301 > |> am.map ($"float" : i64 -> f64)
00:07:10 verbose #27302 > |> am'.transpose
00:07:10 verbose #27303 > |> am.map am'.average
00:07:10 verbose #27304 > |> am.map ($"int64" : f64 -> i64)
00:07:10 verbose #27305 > |> am'.indexed
00:07:10 verbose #27306 >
00:07:10 verbose #27307 > printfn ""
00:07:10 verbose #27308 > printfn "Average Ranking "
00:07:10 verbose #27309 > averages
00:07:10 verbose #27310 > |> am'.sort_by snd
00:07:10 verbose #27311 > |> am.iter fun ((i : i32), avg) =>
00:07:10 verbose #27312 > printfn ($"$\"Test case %d{!i + 1}. Average Time: %A{!avg} \"" :
00:07:10 verbose #27313 > string)
00:07:10 verbose #27314 > 00:07:10 debug #569 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a2788b5ca4a2aaa62bbc35db9de0428fc34394e25edf2ac502037605cfe2210/main.spi
00:07:10 verbose #27315 >
00:07:10 verbose #27316 > ╭─[ 235.81ms - stdout ]────────────────────────────────────────────────────────╮
00:07:10 verbose #27317 > │ () │
00:07:10 verbose #27318 > │ │
00:07:10 verbose #27319 > │ │
00:07:10 verbose #27320 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #27321 >
00:07:10 verbose #27322 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 verbose #27323 > // // test
00:07:10 verbose #27324 >
00:07:10 verbose #27325 > inl is_fast () =
00:07:10 verbose #27326 > false
00:07:10 verbose #27327 > 00:07:10 debug #570 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/575256e3ba537f7595bcb8b4b5172cb4b4011c4ed7a5cb2fbcc4a03b33584948/main.spi
00:07:11 verbose #27328 >
00:07:11 verbose #27329 > ╭─[ 246.12ms - stdout ]────────────────────────────────────────────────────────╮
00:07:11 verbose #27330 > │ () │
00:07:11 verbose #27331 > │ │
00:07:11 verbose #27332 > │ │
00:07:11 verbose #27333 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:11 verbose #27334 >
00:07:11 verbose #27335 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:11 verbose #27336 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:11 verbose #27337 > │ ## empty2Tests │
00:07:11 verbose #27338 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:11 verbose #27339 >
00:07:11 verbose #27340 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:11 verbose #27341 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:11 verbose #27342 > │ Test: Empty2 │
00:07:11 verbose #27343 > │ │
00:07:11 verbose #27344 > │ Solution: (a, a) │
00:07:11 verbose #27345 > │ Test case 1. A. Time: 59L │
00:07:11 verbose #27346 > │ │
00:07:11 verbose #27347 > │ Solution: (a, a) │
00:07:11 verbose #27348 > │ Test case 1. A. Time: 53L │
00:07:11 verbose #27349 > │ │
00:07:11 verbose #27350 > │ Input | Expected | Result | Best │
00:07:11 verbose #27351 > │ --- | --- | --- | --- │
00:07:11 verbose #27352 > │ (a, a) | a | a | (1, 59) │
00:07:11 verbose #27353 > │ (a, a) | a | a | (1, 53) │
00:07:11 verbose #27354 > │ │
00:07:11 verbose #27355 > │ Averages │
00:07:11 verbose #27356 > │ Test case 1. Average Time: 56L │
00:07:11 verbose #27357 > │ │
00:07:11 verbose #27358 > │ Ranking │
00:07:11 verbose #27359 > │ Test case 1. Average Time: 56L │
00:07:11 verbose #27360 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:11 verbose #27361 >
00:07:11 verbose #27362 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:11 verbose #27363 > // // test
00:07:11 verbose #27364 >
00:07:11 verbose #27365 > inl get_solutions () =
00:07:11 verbose #27366 > [[
00:07:11 verbose #27367 > "A",
00:07:11 verbose #27368 > fun (a, _b) =>
00:07:11 verbose #27369 > a
00:07:11 verbose #27370 >
00:07:11 verbose #27371 > "B",
00:07:11 verbose #27372 > fun (_a, b) =>
00:07:11 verbose #27373 > b
00:07:11 verbose #27374 > ]]
00:07:11 verbose #27375 >
00:07:11 verbose #27376 > inl rec empty_2_tests () =
00:07:11 verbose #27377 > inl test_cases = [[
00:07:11 verbose #27378 > ("a", "a"), "a"
00:07:11 verbose #27379 > ("b", "b"), "b"
00:07:11 verbose #27380 > ]]
00:07:11 verbose #27381 >
00:07:11 verbose #27382 > inl solutions = get_solutions ()
00:07:11 verbose #27383 >
00:07:11 verbose #27384 > // inl is_fast () = true
00:07:11 verbose #27385 >
00:07:11 verbose #27386 > inl count =
00:07:11 verbose #27387 > if is_fast ()
00:07:11 verbose #27388 > then 1000i32
00:07:11 verbose #27389 > else 2000000i32
00:07:11 verbose #27390 >
00:07:11 verbose #27391 > run_all (nameof empty_2_tests) count solutions test_cases
00:07:11 verbose #27392 > |> sort_result_list
00:07:11 verbose #27393 >
00:07:11 verbose #27394 > empty_2_tests ()
00:07:11 verbose #27395 > 00:07:10 debug #571 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dea8ed6ed469796005161e1648fc8a19e78e51e2c5b520f8d99d0731a884f139/main.spi
00:07:21 verbose #27396 >
00:07:21 verbose #27397 > ╭─[ 10.36s - stdout ]──────────────────────────────────────────────────────────╮
00:07:21 verbose #27398 > │ type UH0 = │
00:07:21 verbose #27399 > │ | UH0_0 │
00:07:21 verbose #27400 > │ | UH0_1 of string * string * string * UH0 │
00:07:21 verbose #27401 > │ and Mut0 = {mutable l0 : uint64} │
00:07:21 verbose #27402 > │ and UH1 = │
00:07:21 verbose #27403 > │ | UH1_0 │
00:07:21 verbose #27404 > │ | UH1_1 of int32 * string * (struct (string * string) -> string) * UH1 │
00:07:21 verbose #27405 > │ and Mut1 = {mutable l0 : int32} │
00:07:21 verbose #27406 > │ and UH2 = │
00:07:21 verbose #27407 > │ | UH2_0 │
00:07:21 verbose #27408 > │ | UH2_1 of string * UH2 │
00:07:21 verbose #27409 > │ and [<Struct>] US0 = │
00:07:21 verbose #27410 > │ | US0_0 of f0_0 : System.ConsoleColor │
00:07:21 verbose #27411 > │ | US0_1 │
00:07:21 verbose #27412 > │ and UH3 = │
00:07:21 verbose #27413 > │ | UH3_0 │
00:07:21 verbose #27414 > │ | UH3_1 of int64 * int64 * UH3 │
00:07:21 verbose #27415 > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:07:21 verbose #27416 > │ and UH4 = │
00:07:21 verbose #27417 > │ | UH4_0 │
00:07:21 verbose #27418 > │ | UH4_1 of UH2 * US0 * UH4 │
00:07:21 verbose #27419 > │ and [<Struct>] US1 = │
00:07:21 verbose #27420 > │ | US1_0 of f0_0 : int64 │
00:07:21 verbose #27421 > │ | US1_1 │
00:07:21 verbose #27422 > │ and UH5 = │
00:07:21 verbose #27423 > │ | UH5_0 │
00:07:21 verbose #27424 > │ | UH5_1 of int32 * int64 * UH5 │
00:07:21 verbose #27425 > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:07:21 verbose #27426 > │ and UH6 = │
00:07:21 verbose #27427 > │ | UH6_0 │
00:07:21 verbose #27428 > │ | UH6_1 of int32 * string * UH6 │
00:07:21 verbose #27429 > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:07:21 verbose #27430 > │ match v0 with │
00:07:21 verbose #27431 > │ | UH0_1(v2, v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27432 > │ let v6 : uint64 = v1 + 1UL │
00:07:21 verbose #27433 > │ method2(v5, v6) │
00:07:21 verbose #27434 > │ | UH0_0 -> (* Nil *) │
00:07:21 verbose #27435 > │ v1 │
00:07:21 verbose #27436 > │ and method3 (v0 : (struct (string * string * string) []), v1 : UH0, v2 : │
00:07:21 verbose #27437 > │ uint64) : uint64 = │
00:07:21 verbose #27438 > │ match v1 with │
00:07:21 verbose #27439 > │ | UH0_1(v3, v4, v5, v6) -> (* Cons *) │
00:07:21 verbose #27440 > │ v0.[int v2] <- struct (v3, v4, v5) │
00:07:21 verbose #27441 > │ let v7 : uint64 = v2 + 1UL │
00:07:21 verbose #27442 > │ method3(v0, v6, v7) │
00:07:21 verbose #27443 > │ | UH0_0 -> (* Nil *) │
00:07:21 verbose #27444 > │ v2 │
00:07:21 verbose #27445 > │ and method1 (v0 : UH0) : (struct (string * string * string) []) = │
00:07:21 verbose #27446 > │ let v1 : uint64 = 0UL │
00:07:21 verbose #27447 > │ let v2 : uint64 = method2(v0, v1) │
00:07:21 verbose #27448 > │ let v3 : (struct (string * string * string) []) = │
00:07:21 verbose #27449 > │ Array.zeroCreate<struct (string * string * string)> │
00:07:21 verbose #27450 > │ (System.Convert.ToInt32(v2)) │
00:07:21 verbose #27451 > │ let v4 : uint64 = 0UL │
00:07:21 verbose #27452 > │ let v5 : uint64 = method3(v3, v0, v4) │
00:07:21 verbose #27453 > │ v3 │
00:07:21 verbose #27454 > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:07:21 verbose #27455 > │ let v2 : uint64 = v1.l0 │
00:07:21 verbose #27456 > │ let v3 : bool = v2 < v0 │
00:07:21 verbose #27457 > │ v3 │
00:07:21 verbose #27458 > │ and closure1 () struct (v0 : string, v1 : string) : string = │
00:07:21 verbose #27459 > │ v0 │
00:07:21 verbose #27460 > │ and closure2 () struct (v0 : string, v1 : string) : string = │
00:07:21 verbose #27461 > │ v1 │
00:07:21 verbose #27462 > │ and method6 (v0 : UH1, v1 : uint64) : uint64 = │
00:07:21 verbose #27463 > │ match v0 with │
00:07:21 verbose #27464 > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27465 > │ let v6 : uint64 = v1 + 1UL │
00:07:21 verbose #27466 > │ method6(v5, v6) │
00:07:21 verbose #27467 > │ | UH1_0 -> (* Nil *) │
00:07:21 verbose #27468 > │ v1 │
00:07:21 verbose #27469 > │ and method7 (v0 : (struct (int32 * string * (struct (string * string) -> │
00:07:21 verbose #27470 > │ string)) []), v1 : UH1, v2 : uint64) : uint64 = │
00:07:21 verbose #27471 > │ match v1 with │
00:07:21 verbose #27472 > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:07:21 verbose #27473 > │ v0.[int v2] <- struct (v3, v4, v5) │
00:07:21 verbose #27474 > │ let v7 : uint64 = v2 + 1UL │
00:07:21 verbose #27475 > │ method7(v0, v6, v7) │
00:07:21 verbose #27476 > │ | UH1_0 -> (* Nil *) │
00:07:21 verbose #27477 > │ v2 │
00:07:21 verbose #27478 > │ and method5 (v0 : UH1) : (struct (int32 * string * (struct (string * string) │
00:07:21 verbose #27479 > │ -> string)) []) = │
00:07:21 verbose #27480 > │ let v1 : uint64 = 0UL │
00:07:21 verbose #27481 > │ let v2 : uint64 = method6(v0, v1) │
00:07:21 verbose #27482 > │ let v3 : (struct (int32 * string * (struct (string * string) -> string)) │
00:07:21 verbose #27483 > │ []) = Array.zeroCreate<struct (int32 * string * (struct (string * string) -> │
00:07:21 verbose #27484 > │ string))> (System.Convert.ToInt32(v2)) │
00:07:21 verbose #27485 > │ let v4 : uint64 = 0UL │
00:07:21 verbose #27486 > │ let v5 : uint64 = method7(v3, v0, v4) │
00:07:21 verbose #27487 > │ v3 │
00:07:21 verbose #27488 > │ and method8 (v0 : Mut1) : bool = │
00:07:21 verbose #27489 > │ let v1 : int32 = v0.l0 │
00:07:21 verbose #27490 > │ let v2 : bool = v1 < 2000001 │
00:07:21 verbose #27491 > │ v2 │
00:07:21 verbose #27492 > │ and closure3 (v0 : string, v1 : string, v2 : (struct (string * string) -> │
00:07:21 verbose #27493 > │ string)) (v3 : int32) : string = │
00:07:21 verbose #27494 > │ v2 struct (v0, v1) │
00:07:21 verbose #27495 > │ and method9 (v0 : string, v1 : (string []), v2 : uint64) : bool = │
00:07:21 verbose #27496 > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:07:21 verbose #27497 > │ let v4 : bool = v2 < v3 │
00:07:21 verbose #27498 > │ if v4 then │
00:07:21 verbose #27499 > │ let v5 : string = v1.[int v2] │
00:07:21 verbose #27500 > │ let v6 : bool = v0 = v5 │
00:07:21 verbose #27501 > │ if v6 then │
00:07:21 verbose #27502 > │ let v7 : uint64 = v2 + 1UL │
00:07:21 verbose #27503 > │ method9(v0, v1, v7) │
00:07:21 verbose #27504 > │ else │
00:07:21 verbose #27505 > │ false │
00:07:21 verbose #27506 > │ else │
00:07:21 verbose #27507 > │ true │
00:07:21 verbose #27508 > │ and method10 (v0 : uint64, v1 : Mut2) : bool = │
00:07:21 verbose #27509 > │ let v2 : uint64 = v1.l0 │
00:07:21 verbose #27510 > │ let v3 : bool = v2 < v0 │
00:07:21 verbose #27511 > │ v3 │
00:07:21 verbose #27512 > │ and method11 (v0 : UH3, v1 : UH3) : UH3 = │
00:07:21 verbose #27513 > │ match v0 with │
00:07:21 verbose #27514 > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27515 > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:07:21 verbose #27516 > │ method11(v4, v5) │
00:07:21 verbose #27517 > │ | UH3_0 -> (* Nil *) │
00:07:21 verbose #27518 > │ v1 │
00:07:21 verbose #27519 > │ and method13 (v0 : UH3, v1 : int32) : int32 = │
00:07:21 verbose #27520 > │ match v0 with │
00:07:21 verbose #27521 > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27522 > │ let v5 : int32 = v1 + 1 │
00:07:21 verbose #27523 > │ method13(v4, v5) │
00:07:21 verbose #27524 > │ | UH3_0 -> (* Nil *) │
00:07:21 verbose #27525 > │ v1 │
00:07:21 verbose #27526 > │ and method14 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:07:21 verbose #27527 > │ int32 = │
00:07:21 verbose #27528 > │ match v1 with │
00:07:21 verbose #27529 > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27530 > │ v0.[int v2] <- struct (v3, v4) │
00:07:21 verbose #27531 > │ let v6 : int32 = v2 + 1 │
00:07:21 verbose #27532 > │ method14(v0, v5, v6) │
00:07:21 verbose #27533 > │ | UH3_0 -> (* Nil *) │
00:07:21 verbose #27534 > │ v2 │
00:07:21 verbose #27535 > │ and method12 (v0 : UH3) : (struct (int64 * int64) []) = │
00:07:21 verbose #27536 > │ let v1 : int32 = 0 │
00:07:21 verbose #27537 > │ let v2 : int32 = method13(v0, v1) │
00:07:21 verbose #27538 > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:07:21 verbose #27539 > │ int64)> (v2) │
00:07:21 verbose #27540 > │ let v4 : int32 = 0 │
00:07:21 verbose #27541 > │ let v5 : int32 = method14(v3, v0, v4) │
00:07:21 verbose #27542 > │ v3 │
00:07:21 verbose #27543 > │ and method15 (v0 : int32, v1 : Mut1) : bool = │
00:07:21 verbose #27544 > │ let v2 : int32 = v1.l0 │
00:07:21 verbose #27545 > │ let v3 : bool = v2 < v0 │
00:07:21 verbose #27546 > │ v3 │
00:07:21 verbose #27547 > │ and closure4 () struct (v0 : int64, v1 : int64) : int64 = │
00:07:21 verbose #27548 > │ v1 │
00:07:21 verbose #27549 > │ and method17 (v0 : UH4, v1 : uint64) : uint64 = │
00:07:21 verbose #27550 > │ match v0 with │
00:07:21 verbose #27551 > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27552 > │ let v5 : uint64 = v1 + 1UL │
00:07:21 verbose #27553 > │ method17(v4, v5) │
00:07:21 verbose #27554 > │ | UH4_0 -> (* Nil *) │
00:07:21 verbose #27555 > │ v1 │
00:07:21 verbose #27556 > │ and method18 (v0 : (struct (UH2 * US0) []), v1 : UH4, v2 : uint64) : uint64 │
00:07:21 verbose #27557 > │ = │
00:07:21 verbose #27558 > │ match v1 with │
00:07:21 verbose #27559 > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27560 > │ v0.[int v2] <- struct (v3, v4) │
00:07:21 verbose #27561 > │ let v6 : uint64 = v2 + 1UL │
00:07:21 verbose #27562 > │ method18(v0, v5, v6) │
00:07:21 verbose #27563 > │ | UH4_0 -> (* Nil *) │
00:07:21 verbose #27564 > │ v2 │
00:07:21 verbose #27565 > │ and method16 (v0 : UH4) : (struct (UH2 * US0) []) = │
00:07:21 verbose #27566 > │ let v1 : uint64 = 0UL │
00:07:21 verbose #27567 > │ let v2 : uint64 = method17(v0, v1) │
00:07:21 verbose #27568 > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:07:21 verbose #27569 > │ (System.Convert.ToInt32(v2)) │
00:07:21 verbose #27570 > │ let v4 : uint64 = 0UL │
00:07:21 verbose #27571 > │ let v5 : uint64 = method18(v3, v0, v4) │
00:07:21 verbose #27572 > │ v3 │
00:07:21 verbose #27573 > │ and method20 (v0 : UH2, v1 : uint64) : uint64 = │
00:07:21 verbose #27574 > │ match v0 with │
00:07:21 verbose #27575 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:21 verbose #27576 > │ let v4 : uint64 = v1 + 1UL │
00:07:21 verbose #27577 > │ method20(v3, v4) │
00:07:21 verbose #27578 > │ | UH2_0 -> (* Nil *) │
00:07:21 verbose #27579 > │ v1 │
00:07:21 verbose #27580 > │ and method21 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:07:21 verbose #27581 > │ match v1 with │
00:07:21 verbose #27582 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:21 verbose #27583 > │ v0.[int v2] <- v3 │
00:07:21 verbose #27584 > │ let v5 : uint64 = v2 + 1UL │
00:07:21 verbose #27585 > │ method21(v0, v4, v5) │
00:07:21 verbose #27586 > │ | UH2_0 -> (* Nil *) │
00:07:21 verbose #27587 > │ v2 │
00:07:21 verbose #27588 > │ and method19 (v0 : UH2) : (string []) = │
00:07:21 verbose #27589 > │ let v1 : uint64 = 0UL │
00:07:21 verbose #27590 > │ let v2 : uint64 = method20(v0, v1) │
00:07:21 verbose #27591 > │ let v3 : (string []) = Array.zeroCreate<string> │
00:07:21 verbose #27592 > │ (System.Convert.ToInt32(v2)) │
00:07:21 verbose #27593 > │ let v4 : uint64 = 0UL │
00:07:21 verbose #27594 > │ let v5 : uint64 = method21(v3, v0, v4) │
00:07:21 verbose #27595 > │ v3 │
00:07:21 verbose #27596 > │ and closure5 () (v0 : int64) : US1 = │
00:07:21 verbose #27597 > │ US1_0(v0) │
00:07:21 verbose #27598 > │ and method22 () : (int64 -> US1) = │
00:07:21 verbose #27599 > │ closure5() │
00:07:21 verbose #27600 > │ and method23 (v0 : uint64, v1 : Mut3) : bool = │
00:07:21 verbose #27601 > │ let v2 : uint64 = v1.l0 │
00:07:21 verbose #27602 > │ let v3 : bool = v2 < v0 │
00:07:21 verbose #27603 > │ v3 │
00:07:21 verbose #27604 > │ and method24 (v0 : UH5, v1 : UH5) : UH5 = │
00:07:21 verbose #27605 > │ match v0 with │
00:07:21 verbose #27606 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27607 > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:07:21 verbose #27608 > │ method24(v4, v5) │
00:07:21 verbose #27609 > │ | UH5_0 -> (* Nil *) │
00:07:21 verbose #27610 > │ v1 │
00:07:21 verbose #27611 > │ and method26 (v0 : UH5, v1 : int32) : int32 = │
00:07:21 verbose #27612 > │ match v0 with │
00:07:21 verbose #27613 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27614 > │ let v5 : int32 = v1 + 1 │
00:07:21 verbose #27615 > │ method26(v4, v5) │
00:07:21 verbose #27616 > │ | UH5_0 -> (* Nil *) │
00:07:21 verbose #27617 > │ v1 │
00:07:21 verbose #27618 > │ and method27 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:07:21 verbose #27619 > │ int32 = │
00:07:21 verbose #27620 > │ match v1 with │
00:07:21 verbose #27621 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27622 > │ v0.[int v2] <- struct (v3, v4) │
00:07:21 verbose #27623 > │ let v6 : int32 = v2 + 1 │
00:07:21 verbose #27624 > │ method27(v0, v5, v6) │
00:07:21 verbose #27625 > │ | UH5_0 -> (* Nil *) │
00:07:21 verbose #27626 > │ v2 │
00:07:21 verbose #27627 > │ and method25 (v0 : UH5) : (struct (int32 * int64) []) = │
00:07:21 verbose #27628 > │ let v1 : int32 = 0 │
00:07:21 verbose #27629 > │ let v2 : int32 = method26(v0, v1) │
00:07:21 verbose #27630 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:07:21 verbose #27631 > │ int64)> (v2) │
00:07:21 verbose #27632 > │ let v4 : int32 = 0 │
00:07:21 verbose #27633 > │ let v5 : int32 = method27(v3, v0, v4) │
00:07:21 verbose #27634 > │ v3 │
00:07:21 verbose #27635 > │ and method28 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:07:21 verbose #27636 > │ match v0 with │
00:07:21 verbose #27637 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:21 verbose #27638 > │ let v5 : int32 = v2 + 1 │
00:07:21 verbose #27639 > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:07:21 verbose #27640 > │ method28(v4, v6, v5) │
00:07:21 verbose #27641 > │ | UH2_0 -> (* Nil *) │
00:07:21 verbose #27642 > │ struct (v1, v2) │
00:07:21 verbose #27643 > │ and method29 (v0 : UH6, v1 : UH6) : UH6 = │
00:07:21 verbose #27644 > │ match v0 with │
00:07:21 verbose #27645 > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27646 > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:07:21 verbose #27647 > │ method29(v4, v5) │
00:07:21 verbose #27648 > │ | UH6_0 -> (* Nil *) │
00:07:21 verbose #27649 > │ v1 │
00:07:21 verbose #27650 > │ and method30 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:07:21 verbose #27651 > │ match v1 with │
00:07:21 verbose #27652 > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27653 > │ let v6 : UH2 = method30(v0, v5, v2) │
00:07:21 verbose #27654 > │ let v7 : int64 = v0.[v3] │
00:07:21 verbose #27655 > │ let v8 : int32 = int32 v7 │
00:07:21 verbose #27656 > │ let v9 : string = v4.PadRight v8 │
00:07:21 verbose #27657 > │ UH2_1(v9, v6) │
00:07:21 verbose #27658 > │ | UH6_0 -> (* Nil *) │
00:07:21 verbose #27659 > │ v2 │
00:07:21 verbose #27660 > │ and method32 (v0 : UH2, v1 : int32) : int32 = │
00:07:21 verbose #27661 > │ match v0 with │
00:07:21 verbose #27662 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:21 verbose #27663 > │ let v4 : int32 = v1 + 1 │
00:07:21 verbose #27664 > │ method32(v3, v4) │
00:07:21 verbose #27665 > │ | UH2_0 -> (* Nil *) │
00:07:21 verbose #27666 > │ v1 │
00:07:21 verbose #27667 > │ and method33 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:07:21 verbose #27668 > │ match v1 with │
00:07:21 verbose #27669 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:21 verbose #27670 > │ v0.[int v2] <- v3 │
00:07:21 verbose #27671 > │ let v5 : int32 = v2 + 1 │
00:07:21 verbose #27672 > │ method33(v0, v4, v5) │
00:07:21 verbose #27673 > │ | UH2_0 -> (* Nil *) │
00:07:21 verbose #27674 > │ v2 │
00:07:21 verbose #27675 > │ and method31 (v0 : UH2) : (string []) = │
00:07:21 verbose #27676 > │ let v1 : int32 = 0 │
00:07:21 verbose #27677 > │ let v2 : int32 = method32(v0, v1) │
00:07:21 verbose #27678 > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:07:21 verbose #27679 > │ let v4 : int32 = 0 │
00:07:21 verbose #27680 > │ let v5 : int32 = method33(v3, v0, v4) │
00:07:21 verbose #27681 > │ v3 │
00:07:21 verbose #27682 > │ and method35 (v0 : UH5, v1 : uint64) : uint64 = │
00:07:21 verbose #27683 > │ match v0 with │
00:07:21 verbose #27684 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:07:21 verbose #27685 > │ let v5 : uint64 = v1 + 1UL │
00:07:21 verbose #27686 > │ method35(v4, v5) │
00:07:21 verbose #27687 > │ | UH5_0 -> (* Nil *) │
00:07:21 verbose #27688 > │ v1 │
00:07:21 verbose #27689 > │ and method36 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:07:21 verbose #27690 > │ uint64 = │
00:07:21 verbose #27691 > │ match v1 with │
00:07:21 verbose #27692 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:07:21 verbose #27693 > │ v0.[int v2] <- struct (v3, v4) │
00:07:21 verbose #27694 > │ let v6 : uint64 = v2 + 1UL │
00:07:21 verbose #27695 > │ method36(v0, v5, v6) │
00:07:21 verbose #27696 > │ | UH5_0 -> (* Nil *) │
00:07:21 verbose #27697 > │ v2 │
00:07:21 verbose #27698 > │ and method34 (v0 : UH5) : (struct (int32 * int64) []) = │
00:07:21 verbose #27699 > │ let v1 : uint64 = 0UL │
00:07:21 verbose #27700 > │ let v2 : uint64 = method35(v0, v1) │
00:07:21 verbose #27701 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:07:21 verbose #27702 > │ int64)> (System.Convert.ToInt32(v2)) │
00:07:21 verbose #27703 > │ let v4 : uint64 = 0UL │
00:07:21 verbose #27704 > │ let v5 : uint64 = method36(v3, v0, v4) │
00:07:21 verbose #27705 > │ v3 │
00:07:21 verbose #27706 > │ and closure6 () struct (v0 : int32, v1 : int64) : int64 = │
00:07:21 verbose #27707 > │ v1 │
00:07:21 verbose #27708 > │ and closure0 () () : unit = │
00:07:21 verbose #27709 > │ let v0 : (unit -> unit) = closure0() │
00:07:21 verbose #27710 > │ let v1 : string = nameof v0 │
00:07:21 verbose #27711 > │ let v2 : string = "" │
00:07:21 verbose #27712 > │ System.Console.WriteLine v2 │
00:07:21 verbose #27713 > │ System.Console.WriteLine v2 │
00:07:21 verbose #27714 > │ let v3 : string = $"Test: {v1}" │
00:07:21 verbose #27715 > │ System.Console.WriteLine v3 │
00:07:21 verbose #27716 > │ let v4 : string = "a" │
00:07:21 verbose #27717 > │ let v5 : string = "b" │
00:07:21 verbose #27718 > │ let v6 : UH0 = UH0_0 │
00:07:21 verbose #27719 > │ let v7 : UH0 = UH0_1(v5, v5, v5, v6) │
00:07:21 verbose #27720 > │ let v8 : UH0 = UH0_1(v4, v4, v4, v7) │
00:07:21 verbose #27721 > │ let v9 : (struct (string * string * string) []) = method1(v8) │
00:07:21 verbose #27722 > │ let v10 : uint64 = System.Convert.ToUInt64 v9.Length │
00:07:21 verbose #27723 > │ let v11 : (struct (string * string * string * (int64 [])) []) = │
00:07:21 verbose #27724 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:07:21 verbose #27725 > │ (System.Convert.ToInt32(v10)) │
00:07:21 verbose #27726 > │ let v12 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27727 > │ while method4(v10, v12) do │
00:07:21 verbose #27728 > │ let v14 : uint64 = v12.l0 │
00:07:21 verbose #27729 > │ let struct (v15 : string, v16 : string, v17 : string) = v9.[int v14] │
00:07:21 verbose #27730 > │ let v18 : string = $"%A{struct (v15, v16)}" │
00:07:21 verbose #27731 > │ System.Console.WriteLine v2 │
00:07:21 verbose #27732 > │ let v19 : string = $"Solution: {v18} " │
00:07:21 verbose #27733 > │ System.Console.WriteLine v19 │
00:07:21 verbose #27734 > │ let v20 : int32 = 0 │
00:07:21 verbose #27735 > │ let v21 : string = "A" │
00:07:21 verbose #27736 > │ let v22 : (struct (string * string) -> string) = closure1() │
00:07:21 verbose #27737 > │ let v23 : int32 = 1 │
00:07:21 verbose #27738 > │ let v24 : string = "B" │
00:07:21 verbose #27739 > │ let v25 : (struct (string * string) -> string) = closure2() │
00:07:21 verbose #27740 > │ let v26 : UH1 = UH1_0 │
00:07:21 verbose #27741 > │ let v27 : UH1 = UH1_1(v23, v24, v25, v26) │
00:07:21 verbose #27742 > │ let v28 : UH1 = UH1_1(v20, v21, v22, v27) │
00:07:21 verbose #27743 > │ let v29 : (struct (int32 * string * (struct (string * string) -> │
00:07:21 verbose #27744 > │ string)) []) = method5(v28) │
00:07:21 verbose #27745 > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:07:21 verbose #27746 > │ let v31 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:07:21 verbose #27747 > │ (string * int64)> (System.Convert.ToInt32(v30)) │
00:07:21 verbose #27748 > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27749 > │ while method4(v30, v32) do │
00:07:21 verbose #27750 > │ let v34 : uint64 = v32.l0 │
00:07:21 verbose #27751 > │ let struct (v35 : int32, v36 : string, v37 : (struct (string * │
00:07:21 verbose #27752 > │ string) -> string)) = v29.[int v34] │
00:07:21 verbose #27753 > │ let v38 : unit option = None │
00:07:21 verbose #27754 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:07:21 verbose #27755 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:21 verbose #27756 > │ () │
00:07:21 verbose #27757 > │ #endif │
00:07:21 verbose #27758 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:21 verbose #27759 > │ () │
00:07:21 verbose #27760 > │ #endif │
00:07:21 verbose #27761 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:21 verbose #27762 > │ () │
00:07:21 verbose #27763 > │ #endif │
00:07:21 verbose #27764 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:21 verbose #27765 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:21 verbose #27766 > │ System.GC.Collect () │
00:07:21 verbose #27767 > │ () │
00:07:21 verbose #27768 > │ #endif │
00:07:21 verbose #27769 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:21 verbose #27770 > │ () │
00:07:21 verbose #27771 > │ #endif │
00:07:21 verbose #27772 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:21 verbose #27773 > │ FABLE_COMPILER_DART │
00:07:21 verbose #27774 > │ Unchecked.defaultof<unit> │
00:07:21 verbose #27775 > │ () │
00:07:21 verbose #27776 > │ #endif │
00:07:21 verbose #27777 > │ |> fun x -> _v38 <- Some x │
00:07:21 verbose #27778 > │ _v38.Value │
00:07:21 verbose #27779 > │ let v40 : (unit -> System.Diagnostics.Stopwatch) = │
00:07:21 verbose #27780 > │ System.Diagnostics.Stopwatch │
00:07:21 verbose #27781 > │ let v41 : System.Diagnostics.Stopwatch = v40 () │
00:07:21 verbose #27782 > │ v41.Start () │
00:07:21 verbose #27783 > │ let v42 : int64 = v41.ElapsedMilliseconds │
00:07:21 verbose #27784 > │ let v43 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:07:21 verbose #27785 > │ let v44 : Mut1 = {l0 = 0} : Mut1 │
00:07:21 verbose #27786 > │ while method8(v44) do │
00:07:21 verbose #27787 > │ let v46 : int32 = v44.l0 │
00:07:21 verbose #27788 > │ v43.[int v46] <- v46 │
00:07:21 verbose #27789 > │ let v47 : int32 = v46 + 1 │
00:07:21 verbose #27790 > │ v44.l0 <- v47 │
00:07:21 verbose #27791 > │ () │
00:07:21 verbose #27792 > │ let v48 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:07:21 verbose #27793 > │ Array.Parallel.map │
00:07:21 verbose #27794 > │ let v49 : (int32 -> string) = closure3(v15, v16, v37) │
00:07:21 verbose #27795 > │ let v50 : ((int32 []) -> (string [])) = v48 v49 │
00:07:21 verbose #27796 > │ let v51 : (string []) = v50 v43 │
00:07:21 verbose #27797 > │ let v52 : int32 = v51.Length │
00:07:21 verbose #27798 > │ let v53 : int32 = v52 - 1 │
00:07:21 verbose #27799 > │ let v54 : string = v51.[int v53] │
00:07:21 verbose #27800 > │ let v55 : int64 = v41.ElapsedMilliseconds │
00:07:21 verbose #27801 > │ let v56 : int64 = v55 - v42 │
00:07:21 verbose #27802 > │ let v57 : string = $"Test case {v35 + 1}. {v36}. Time: {v56} " │
00:07:21 verbose #27803 > │ System.Console.WriteLine v57 │
00:07:21 verbose #27804 > │ v31.[int v34] <- struct (v54, v56) │
00:07:21 verbose #27805 > │ let v58 : uint64 = v34 + 1UL │
00:07:21 verbose #27806 > │ v32.l0 <- v58 │
00:07:21 verbose #27807 > │ () │
00:07:21 verbose #27808 > │ let v59 : uint64 = System.Convert.ToUInt64 v31.Length │
00:07:21 verbose #27809 > │ let v60 : (string []) = Array.zeroCreate<string> │
00:07:21 verbose #27810 > │ (System.Convert.ToInt32(v59)) │
00:07:21 verbose #27811 > │ let v61 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27812 > │ while method4(v59, v61) do │
00:07:21 verbose #27813 > │ let v63 : uint64 = v61.l0 │
00:07:21 verbose #27814 > │ let struct (v64 : string, v65 : int64) = v31.[int v63] │
00:07:21 verbose #27815 > │ v60.[int v63] <- v64 │
00:07:21 verbose #27816 > │ let v66 : uint64 = v63 + 1UL │
00:07:21 verbose #27817 > │ v61.l0 <- v66 │
00:07:21 verbose #27818 > │ () │
00:07:21 verbose #27819 > │ let v67 : uint64 = System.Convert.ToUInt64 v60.Length │
00:07:21 verbose #27820 > │ let v68 : bool = v67 <= 1UL │
00:07:21 verbose #27821 > │ if v68 then │
00:07:21 verbose #27822 > │ () │
00:07:21 verbose #27823 > │ else │
00:07:21 verbose #27824 > │ let v69 : string = v60.[int 0UL] │
00:07:21 verbose #27825 > │ let v70 : uint64 = 0UL │
00:07:21 verbose #27826 > │ let v71 : bool = method9(v69, v60, v70) │
00:07:21 verbose #27827 > │ if v71 then │
00:07:21 verbose #27828 > │ () │
00:07:21 verbose #27829 > │ else │
00:07:21 verbose #27830 > │ let v72 : string = $"Challenge error: {v60}" │
00:07:21 verbose #27831 > │ failwith<unit> v72 │
00:07:21 verbose #27832 > │ let v73 : string = $"%A{v17}" │
00:07:21 verbose #27833 > │ let v74 : (string []) = Array.zeroCreate<string> │
00:07:21 verbose #27834 > │ (System.Convert.ToInt32(v59)) │
00:07:21 verbose #27835 > │ let v75 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27836 > │ while method4(v59, v75) do │
00:07:21 verbose #27837 > │ let v77 : uint64 = v75.l0 │
00:07:21 verbose #27838 > │ let struct (v78 : string, v79 : int64) = v31.[int v77] │
00:07:21 verbose #27839 > │ v74.[int v77] <- v78 │
00:07:21 verbose #27840 > │ let v80 : uint64 = v77 + 1UL │
00:07:21 verbose #27841 > │ v75.l0 <- v80 │
00:07:21 verbose #27842 > │ () │
00:07:21 verbose #27843 > │ let v81 : string = v74.[int 0UL] │
00:07:21 verbose #27844 > │ let v82 : string = $"%A{v81}" │
00:07:21 verbose #27845 > │ let v83 : (int64 []) = Array.zeroCreate<int64> │
00:07:21 verbose #27846 > │ (System.Convert.ToInt32(v59)) │
00:07:21 verbose #27847 > │ let v84 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27848 > │ while method4(v59, v84) do │
00:07:21 verbose #27849 > │ let v86 : uint64 = v84.l0 │
00:07:21 verbose #27850 > │ let struct (v87 : string, v88 : int64) = v31.[int v86] │
00:07:21 verbose #27851 > │ v83.[int v86] <- v88 │
00:07:21 verbose #27852 > │ let v89 : uint64 = v86 + 1UL │
00:07:21 verbose #27853 > │ v84.l0 <- v89 │
00:07:21 verbose #27854 > │ () │
00:07:21 verbose #27855 > │ v11.[int v14] <- struct (v73, v18, v82, v83) │
00:07:21 verbose #27856 > │ let v90 : uint64 = v14 + 1UL │
00:07:21 verbose #27857 > │ v12.l0 <- v90 │
00:07:21 verbose #27858 > │ () │
00:07:21 verbose #27859 > │ let v91 : uint64 = System.Convert.ToUInt64 v11.Length │
00:07:21 verbose #27860 > │ let v92 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:07:21 verbose #27861 > │ (System.Convert.ToInt32(v91)) │
00:07:21 verbose #27862 > │ let v93 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27863 > │ while method4(v91, v93) do │
00:07:21 verbose #27864 > │ let v95 : uint64 = v93.l0 │
00:07:21 verbose #27865 > │ let struct (v96 : string, v97 : string, v98 : string, v99 : (int64 [ │
00:07:21 verbose #27866 > │ ])) = v11.[int v95] │
00:07:21 verbose #27867 > │ let v100 : uint64 = System.Convert.ToUInt64 v99.Length │
00:07:21 verbose #27868 > │ let v101 : UH3 = UH3_0 │
00:07:21 verbose #27869 > │ let v102 : Mut2 = {l0 = 0UL; l1 = v101; l2 = 0L} : Mut2 │
00:07:21 verbose #27870 > │ while method10(v100, v102) do │
00:07:21 verbose #27871 > │ let v104 : uint64 = v102.l0 │
00:07:21 verbose #27872 > │ let struct (v105 : UH3, v106 : int64) = v102.l1, v102.l2 │
00:07:21 verbose #27873 > │ let v107 : int64 = v99.[int v104] │
00:07:21 verbose #27874 > │ let v108 : int64 = v106 + 1L │
00:07:21 verbose #27875 > │ let v109 : uint64 = v104 + 1UL │
00:07:21 verbose #27876 > │ let v110 : UH3 = UH3_1(v106, v107, v105) │
00:07:21 verbose #27877 > │ v102.l0 <- v109 │
00:07:21 verbose #27878 > │ v102.l1 <- v110 │
00:07:21 verbose #27879 > │ v102.l2 <- v108 │
00:07:21 verbose #27880 > │ () │
00:07:21 verbose #27881 > │ let struct (v111 : UH3, v112 : int64) = v102.l1, v102.l2 │
00:07:21 verbose #27882 > │ let v113 : UH3 = UH3_0 │
00:07:21 verbose #27883 > │ let v114 : UH3 = method11(v111, v113) │
00:07:21 verbose #27884 > │ let v115 : (struct (int64 * int64) []) = method12(v114) │
00:07:21 verbose #27885 > │ let v116 : int32 = v115.Length │
00:07:21 verbose #27886 > │ let v117 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:07:21 verbose #27887 > │ (int64 * int64)> (v116) │
00:07:21 verbose #27888 > │ let v118 : Mut1 = {l0 = 0} : Mut1 │
00:07:21 verbose #27889 > │ while method15(v116, v118) do │
00:07:21 verbose #27890 > │ let v120 : int32 = v118.l0 │
00:07:21 verbose #27891 > │ let struct (v121 : int64, v122 : int64) = v115.[int v120] │
00:07:21 verbose #27892 > │ let v123 : int64 = v121 + 1L │
00:07:21 verbose #27893 > │ v117.[int v120] <- struct (v123, v122) │
00:07:21 verbose #27894 > │ let v124 : int32 = v120 + 1 │
00:07:21 verbose #27895 > │ v118.l0 <- v124 │
00:07:21 verbose #27896 > │ () │
00:07:21 verbose #27897 > │ let v125 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:07:21 verbose #27898 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:07:21 verbose #27899 > │ let v126 : (struct (int64 * int64) -> int64) = closure4() │
00:07:21 verbose #27900 > │ let v127 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:07:21 verbose #27901 > │ ])) = v125 v126 │
00:07:21 verbose #27902 > │ let v128 : (struct (int64 * int64) []) = v127 v117 │
00:07:21 verbose #27903 > │ let struct (v129 : int64, v130 : int64) = v128.[int 0] │
00:07:21 verbose #27904 > │ let v131 : string = $"%A{struct (v129, v130)}" │
00:07:21 verbose #27905 > │ let v132 : bool = v96 = v98 │
00:07:21 verbose #27906 > │ let v137 : US0 = │
00:07:21 verbose #27907 > │ if v132 then │
00:07:21 verbose #27908 > │ let v133 : System.ConsoleColor = │
00:07:21 verbose #27909 > │ System.ConsoleColor.DarkGreen │
00:07:21 verbose #27910 > │ US0_0(v133) │
00:07:21 verbose #27911 > │ else │
00:07:21 verbose #27912 > │ let v135 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:07:21 verbose #27913 > │ US0_0(v135) │
00:07:21 verbose #27914 > │ let v138 : UH2 = UH2_0 │
00:07:21 verbose #27915 > │ let v139 : UH2 = UH2_1(v131, v138) │
00:07:21 verbose #27916 > │ let v140 : UH2 = UH2_1(v98, v139) │
00:07:21 verbose #27917 > │ let v141 : UH2 = UH2_1(v96, v140) │
00:07:21 verbose #27918 > │ let v142 : UH2 = UH2_1(v97, v141) │
00:07:21 verbose #27919 > │ v92.[int v95] <- struct (v142, v137) │
00:07:21 verbose #27920 > │ let v143 : uint64 = v95 + 1UL │
00:07:21 verbose #27921 > │ v93.l0 <- v143 │
00:07:21 verbose #27922 > │ () │
00:07:21 verbose #27923 > │ let v144 : string = "Input" │
00:07:21 verbose #27924 > │ let v145 : string = "Expected" │
00:07:21 verbose #27925 > │ let v146 : string = "Result" │
00:07:21 verbose #27926 > │ let v147 : string = "Best" │
00:07:21 verbose #27927 > │ let v148 : UH2 = UH2_0 │
00:07:21 verbose #27928 > │ let v149 : UH2 = UH2_1(v147, v148) │
00:07:21 verbose #27929 > │ let v150 : UH2 = UH2_1(v146, v149) │
00:07:21 verbose #27930 > │ let v151 : UH2 = UH2_1(v145, v150) │
00:07:21 verbose #27931 > │ let v152 : UH2 = UH2_1(v144, v151) │
00:07:21 verbose #27932 > │ let v153 : US0 = US0_1 │
00:07:21 verbose #27933 > │ let v154 : string = "---" │
00:07:21 verbose #27934 > │ let v155 : UH2 = UH2_0 │
00:07:21 verbose #27935 > │ let v156 : UH2 = UH2_1(v154, v155) │
00:07:21 verbose #27936 > │ let v157 : UH2 = UH2_1(v154, v156) │
00:07:21 verbose #27937 > │ let v158 : UH2 = UH2_1(v154, v157) │
00:07:21 verbose #27938 > │ let v159 : UH2 = UH2_1(v154, v158) │
00:07:21 verbose #27939 > │ let v160 : US0 = US0_1 │
00:07:21 verbose #27940 > │ let v161 : UH4 = UH4_0 │
00:07:21 verbose #27941 > │ let v162 : UH4 = UH4_1(v159, v160, v161) │
00:07:21 verbose #27942 > │ let v163 : UH4 = UH4_1(v152, v153, v162) │
00:07:21 verbose #27943 > │ let v164 : (struct (UH2 * US0) []) = method16(v163) │
00:07:21 verbose #27944 > │ let v165 : uint64 = System.Convert.ToUInt64 v164.Length │
00:07:21 verbose #27945 > │ let v166 : uint64 = System.Convert.ToUInt64 v92.Length │
00:07:21 verbose #27946 > │ let v167 : uint64 = v165 + v166 │
00:07:21 verbose #27947 > │ let v168 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:07:21 verbose #27948 > │ US0)> (System.Convert.ToInt32(v167)) │
00:07:21 verbose #27949 > │ let v169 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27950 > │ while method4(v167, v169) do │
00:07:21 verbose #27951 > │ let v171 : uint64 = v169.l0 │
00:07:21 verbose #27952 > │ let v172 : bool = v171 < v165 │
00:07:21 verbose #27953 > │ let struct (v178 : UH2, v179 : US0) = │
00:07:21 verbose #27954 > │ if v172 then │
00:07:21 verbose #27955 > │ let struct (v173 : UH2, v174 : US0) = v164.[int v171] │
00:07:21 verbose #27956 > │ struct (v173, v174) │
00:07:21 verbose #27957 > │ else │
00:07:21 verbose #27958 > │ let v175 : uint64 = v171 - v165 │
00:07:21 verbose #27959 > │ let struct (v176 : UH2, v177 : US0) = v92.[int v175] │
00:07:21 verbose #27960 > │ struct (v176, v177) │
00:07:21 verbose #27961 > │ v168.[int v171] <- struct (v178, v179) │
00:07:21 verbose #27962 > │ let v180 : uint64 = v171 + 1UL │
00:07:21 verbose #27963 > │ v169.l0 <- v180 │
00:07:21 verbose #27964 > │ () │
00:07:21 verbose #27965 > │ let v181 : uint64 = System.Convert.ToUInt64 v168.Length │
00:07:21 verbose #27966 > │ let v182 : ((string []) []) = Array.zeroCreate<(string [])> │
00:07:21 verbose #27967 > │ (System.Convert.ToInt32(v181)) │
00:07:21 verbose #27968 > │ let v183 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27969 > │ while method4(v181, v183) do │
00:07:21 verbose #27970 > │ let v185 : uint64 = v183.l0 │
00:07:21 verbose #27971 > │ let struct (v186 : UH2, v187 : US0) = v168.[int v185] │
00:07:21 verbose #27972 > │ let v188 : (string []) = method19(v186) │
00:07:21 verbose #27973 > │ v182.[int v185] <- v188 │
00:07:21 verbose #27974 > │ let v189 : uint64 = v185 + 1UL │
00:07:21 verbose #27975 > │ v183.l0 <- v189 │
00:07:21 verbose #27976 > │ () │
00:07:21 verbose #27977 > │ let v190 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:07:21 verbose #27978 > │ let v191 : ((string []) []) = v190 v182 │
00:07:21 verbose #27979 > │ let v192 : uint64 = System.Convert.ToUInt64 v191.Length │
00:07:21 verbose #27980 > │ let v193 : (int64 []) = Array.zeroCreate<int64> │
00:07:21 verbose #27981 > │ (System.Convert.ToInt32(v192)) │
00:07:21 verbose #27982 > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27983 > │ while method4(v192, v194) do │
00:07:21 verbose #27984 > │ let v196 : uint64 = v194.l0 │
00:07:21 verbose #27985 > │ let v197 : (string []) = v191.[int v196] │
00:07:21 verbose #27986 > │ let v198 : uint64 = System.Convert.ToUInt64 v197.Length │
00:07:21 verbose #27987 > │ let v199 : (int64 []) = Array.zeroCreate<int64> │
00:07:21 verbose #27988 > │ (System.Convert.ToInt32(v198)) │
00:07:21 verbose #27989 > │ let v200 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #27990 > │ while method4(v198, v200) do │
00:07:21 verbose #27991 > │ let v202 : uint64 = v200.l0 │
00:07:21 verbose #27992 > │ let v203 : string = v197.[int v202] │
00:07:21 verbose #27993 > │ let v204 : int64 = System.Convert.ToInt64 v203.Length │
00:07:21 verbose #27994 > │ v199.[int v202] <- v204 │
00:07:21 verbose #27995 > │ let v205 : uint64 = v202 + 1UL │
00:07:21 verbose #27996 > │ v200.l0 <- v205 │
00:07:21 verbose #27997 > │ () │
00:07:21 verbose #27998 > │ let v206 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:07:21 verbose #27999 > │ let v207 : (int64 []) = v206 v199 │
00:07:21 verbose #28000 > │ let v208 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:07:21 verbose #28001 > │ let v209 : ((int64 []) -> int64 option) = v208 0 │
00:07:21 verbose #28002 > │ let v210 : int64 option = v209 v207 │
00:07:21 verbose #28003 > │ let v211 : (int64 -> US1) = method22() │
00:07:21 verbose #28004 > │ let v212 : US1 = US1_1 │
00:07:21 verbose #28005 > │ let v213 : US1 = v210 |> Option.map v211 |> Option.defaultValue v212 │
00:07:21 verbose #28006 > │ let v216 : int64 = │
00:07:21 verbose #28007 > │ match v213 with │
00:07:21 verbose #28008 > │ | US1_1 -> (* None *) │
00:07:21 verbose #28009 > │ 0L │
00:07:21 verbose #28010 > │ | US1_0(v214) -> (* Some *) │
00:07:21 verbose #28011 > │ v214 │
00:07:21 verbose #28012 > │ v193.[int v196] <- v216 │
00:07:21 verbose #28013 > │ let v217 : uint64 = v196 + 1UL │
00:07:21 verbose #28014 > │ v194.l0 <- v217 │
00:07:21 verbose #28015 > │ () │
00:07:21 verbose #28016 > │ let v218 : uint64 = System.Convert.ToUInt64 v193.Length │
00:07:21 verbose #28017 > │ let v219 : UH5 = UH5_0 │
00:07:21 verbose #28018 > │ let v220 : Mut3 = {l0 = 0UL; l1 = v219; l2 = 0} : Mut3 │
00:07:21 verbose #28019 > │ while method23(v218, v220) do │
00:07:21 verbose #28020 > │ let v222 : uint64 = v220.l0 │
00:07:21 verbose #28021 > │ let struct (v223 : UH5, v224 : int32) = v220.l1, v220.l2 │
00:07:21 verbose #28022 > │ let v225 : int64 = v193.[int v222] │
00:07:21 verbose #28023 > │ let v226 : int32 = v224 + 1 │
00:07:21 verbose #28024 > │ let v227 : uint64 = v222 + 1UL │
00:07:21 verbose #28025 > │ let v228 : UH5 = UH5_1(v224, v225, v223) │
00:07:21 verbose #28026 > │ v220.l0 <- v227 │
00:07:21 verbose #28027 > │ v220.l1 <- v228 │
00:07:21 verbose #28028 > │ v220.l2 <- v226 │
00:07:21 verbose #28029 > │ () │
00:07:21 verbose #28030 > │ let struct (v229 : UH5, v230 : int32) = v220.l1, v220.l2 │
00:07:21 verbose #28031 > │ let v231 : UH5 = UH5_0 │
00:07:21 verbose #28032 > │ let v232 : UH5 = method24(v229, v231) │
00:07:21 verbose #28033 > │ let v233 : (struct (int32 * int64) []) = method25(v232) │
00:07:21 verbose #28034 > │ let v234 : Map<int32, int64> = v233 |> Array.map (fun (struct (a, b)) -> │
00:07:21 verbose #28035 > │ a, b) |> Map.ofArray │
00:07:21 verbose #28036 > │ let v235 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:07:21 verbose #28037 > │ ((string []) * US0)> (System.Convert.ToInt32(v181)) │
00:07:21 verbose #28038 > │ let v236 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28039 > │ while method4(v181, v236) do │
00:07:21 verbose #28040 > │ let v238 : uint64 = v236.l0 │
00:07:21 verbose #28041 > │ let struct (v239 : UH2, v240 : US0) = v168.[int v238] │
00:07:21 verbose #28042 > │ let v241 : UH6 = UH6_0 │
00:07:21 verbose #28043 > │ let v242 : int32 = 0 │
00:07:21 verbose #28044 > │ let struct (v243 : UH6, v244 : int32) = method28(v239, v241, v242) │
00:07:21 verbose #28045 > │ let v245 : UH6 = UH6_0 │
00:07:21 verbose #28046 > │ let v246 : UH6 = method29(v243, v245) │
00:07:21 verbose #28047 > │ let v247 : UH2 = UH2_0 │
00:07:21 verbose #28048 > │ let v248 : UH2 = method30(v234, v246, v247) │
00:07:21 verbose #28049 > │ let v249 : (string []) = method31(v248) │
00:07:21 verbose #28050 > │ v235.[int v238] <- struct (v249, v240) │
00:07:21 verbose #28051 > │ let v250 : uint64 = v238 + 1UL │
00:07:21 verbose #28052 > │ v236.l0 <- v250 │
00:07:21 verbose #28053 > │ () │
00:07:21 verbose #28054 > │ System.Console.WriteLine v2 │
00:07:21 verbose #28055 > │ let v251 : uint64 = System.Convert.ToUInt64 v235.Length │
00:07:21 verbose #28056 > │ let v252 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28057 > │ while method4(v251, v252) do │
00:07:21 verbose #28058 > │ let v254 : uint64 = v252.l0 │
00:07:21 verbose #28059 > │ let struct (v255 : (string []), v256 : US0) = v235.[int v254] │
00:07:21 verbose #28060 > │ match v256 with │
00:07:21 verbose #28061 > │ | US0_1 -> (* None *) │
00:07:21 verbose #28062 > │ let v260 : unit option = None │
00:07:21 verbose #28063 > │ let v261 : bool = true in let mutable _v260 = v260 │
00:07:21 verbose #28064 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:21 verbose #28065 > │ () │
00:07:21 verbose #28066 > │ #endif │
00:07:21 verbose #28067 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:21 verbose #28068 > │ () │
00:07:21 verbose #28069 > │ #endif │
00:07:21 verbose #28070 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:21 verbose #28071 > │ () │
00:07:21 verbose #28072 > │ #endif │
00:07:21 verbose #28073 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:21 verbose #28074 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:21 verbose #28075 > │ System.Console.ResetColor () │
00:07:21 verbose #28076 > │ () │
00:07:21 verbose #28077 > │ #endif │
00:07:21 verbose #28078 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:21 verbose #28079 > │ () │
00:07:21 verbose #28080 > │ #endif │
00:07:21 verbose #28081 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:21 verbose #28082 > │ FABLE_COMPILER_DART │
00:07:21 verbose #28083 > │ Unchecked.defaultof<unit> │
00:07:21 verbose #28084 > │ () │
00:07:21 verbose #28085 > │ #endif │
00:07:21 verbose #28086 > │ |> fun x -> _v260 <- Some x │
00:07:21 verbose #28087 > │ _v260.Value │
00:07:21 verbose #28088 > │ () │
00:07:21 verbose #28089 > │ | US0_0(v257) -> (* Some *) │
00:07:21 verbose #28090 > │ let v258 : unit option = None │
00:07:21 verbose #28091 > │ let v259 : bool = true in let mutable _v258 = v258 │
00:07:21 verbose #28092 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:21 verbose #28093 > │ () │
00:07:21 verbose #28094 > │ #endif │
00:07:21 verbose #28095 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:21 verbose #28096 > │ () │
00:07:21 verbose #28097 > │ #endif │
00:07:21 verbose #28098 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:21 verbose #28099 > │ () │
00:07:21 verbose #28100 > │ #endif │
00:07:21 verbose #28101 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:21 verbose #28102 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:21 verbose #28103 > │ System.Console.ForegroundColor <- v257 │
00:07:21 verbose #28104 > │ () │
00:07:21 verbose #28105 > │ #endif │
00:07:21 verbose #28106 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:21 verbose #28107 > │ () │
00:07:21 verbose #28108 > │ #endif │
00:07:21 verbose #28109 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:21 verbose #28110 > │ FABLE_COMPILER_DART │
00:07:21 verbose #28111 > │ Unchecked.defaultof<unit> │
00:07:21 verbose #28112 > │ () │
00:07:21 verbose #28113 > │ #endif │
00:07:21 verbose #28114 > │ |> fun x -> _v258 <- Some x │
00:07:21 verbose #28115 > │ _v258.Value │
00:07:21 verbose #28116 > │ () │
00:07:21 verbose #28117 > │ let v262 : string = "\t| " │
00:07:21 verbose #28118 > │ let v263 : string = System.String.Join (v262, v255) │
00:07:21 verbose #28119 > │ System.Console.WriteLine v263 │
00:07:21 verbose #28120 > │ let v264 : unit option = None │
00:07:21 verbose #28121 > │ let v265 : bool = true in let mutable _v264 = v264 │
00:07:21 verbose #28122 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:21 verbose #28123 > │ () │
00:07:21 verbose #28124 > │ #endif │
00:07:21 verbose #28125 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:21 verbose #28126 > │ () │
00:07:21 verbose #28127 > │ #endif │
00:07:21 verbose #28128 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:21 verbose #28129 > │ () │
00:07:21 verbose #28130 > │ #endif │
00:07:21 verbose #28131 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:21 verbose #28132 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:21 verbose #28133 > │ System.Console.ResetColor () │
00:07:21 verbose #28134 > │ () │
00:07:21 verbose #28135 > │ #endif │
00:07:21 verbose #28136 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:21 verbose #28137 > │ () │
00:07:21 verbose #28138 > │ #endif │
00:07:21 verbose #28139 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:21 verbose #28140 > │ FABLE_COMPILER_DART │
00:07:21 verbose #28141 > │ Unchecked.defaultof<unit> │
00:07:21 verbose #28142 > │ () │
00:07:21 verbose #28143 > │ #endif │
00:07:21 verbose #28144 > │ |> fun x -> _v264 <- Some x │
00:07:21 verbose #28145 > │ _v264.Value │
00:07:21 verbose #28146 > │ let v266 : uint64 = v254 + 1UL │
00:07:21 verbose #28147 > │ v252.l0 <- v266 │
00:07:21 verbose #28148 > │ () │
00:07:21 verbose #28149 > │ let v267 : ((float []) []) = Array.zeroCreate<(float [])> │
00:07:21 verbose #28150 > │ (System.Convert.ToInt32(v91)) │
00:07:21 verbose #28151 > │ let v268 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28152 > │ while method4(v91, v268) do │
00:07:21 verbose #28153 > │ let v270 : uint64 = v268.l0 │
00:07:21 verbose #28154 > │ let struct (v271 : string, v272 : string, v273 : string, v274 : │
00:07:21 verbose #28155 > │ (int64 [])) = v11.[int v270] │
00:07:21 verbose #28156 > │ let v275 : (int64 -> float) = float │
00:07:21 verbose #28157 > │ let v276 : uint64 = System.Convert.ToUInt64 v274.Length │
00:07:21 verbose #28158 > │ let v277 : (float []) = Array.zeroCreate<float> │
00:07:21 verbose #28159 > │ (System.Convert.ToInt32(v276)) │
00:07:21 verbose #28160 > │ let v278 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28161 > │ while method4(v276, v278) do │
00:07:21 verbose #28162 > │ let v280 : uint64 = v278.l0 │
00:07:21 verbose #28163 > │ let v281 : int64 = v274.[int v280] │
00:07:21 verbose #28164 > │ let v282 : float = v275 v281 │
00:07:21 verbose #28165 > │ v277.[int v280] <- v282 │
00:07:21 verbose #28166 > │ let v283 : uint64 = v280 + 1UL │
00:07:21 verbose #28167 > │ v278.l0 <- v283 │
00:07:21 verbose #28168 > │ () │
00:07:21 verbose #28169 > │ v267.[int v270] <- v277 │
00:07:21 verbose #28170 > │ let v284 : uint64 = v270 + 1UL │
00:07:21 verbose #28171 > │ v268.l0 <- v284 │
00:07:21 verbose #28172 > │ () │
00:07:21 verbose #28173 > │ let v285 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:07:21 verbose #28174 > │ let v286 : ((float []) []) = v285 v267 │
00:07:21 verbose #28175 > │ let v287 : uint64 = System.Convert.ToUInt64 v286.Length │
00:07:21 verbose #28176 > │ let v288 : (float []) = Array.zeroCreate<float> │
00:07:21 verbose #28177 > │ (System.Convert.ToInt32(v287)) │
00:07:21 verbose #28178 > │ let v289 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28179 > │ while method4(v287, v289) do │
00:07:21 verbose #28180 > │ let v291 : uint64 = v289.l0 │
00:07:21 verbose #28181 > │ let v292 : (float []) = v286.[int v291] │
00:07:21 verbose #28182 > │ let v293 : ((float []) -> float) = Array.average │
00:07:21 verbose #28183 > │ let v294 : float = v293 v292 │
00:07:21 verbose #28184 > │ v288.[int v291] <- v294 │
00:07:21 verbose #28185 > │ let v295 : uint64 = v291 + 1UL │
00:07:21 verbose #28186 > │ v289.l0 <- v295 │
00:07:21 verbose #28187 > │ () │
00:07:21 verbose #28188 > │ let v296 : (float -> int64) = int64 │
00:07:21 verbose #28189 > │ let v297 : uint64 = System.Convert.ToUInt64 v288.Length │
00:07:21 verbose #28190 > │ let v298 : (int64 []) = Array.zeroCreate<int64> │
00:07:21 verbose #28191 > │ (System.Convert.ToInt32(v297)) │
00:07:21 verbose #28192 > │ let v299 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28193 > │ while method4(v297, v299) do │
00:07:21 verbose #28194 > │ let v301 : uint64 = v299.l0 │
00:07:21 verbose #28195 > │ let v302 : float = v288.[int v301] │
00:07:21 verbose #28196 > │ let v303 : int64 = v296 v302 │
00:07:21 verbose #28197 > │ v298.[int v301] <- v303 │
00:07:21 verbose #28198 > │ let v304 : uint64 = v301 + 1UL │
00:07:21 verbose #28199 > │ v299.l0 <- v304 │
00:07:21 verbose #28200 > │ () │
00:07:21 verbose #28201 > │ let v305 : uint64 = System.Convert.ToUInt64 v298.Length │
00:07:21 verbose #28202 > │ let v306 : UH5 = UH5_0 │
00:07:21 verbose #28203 > │ let v307 : Mut3 = {l0 = 0UL; l1 = v306; l2 = 0} : Mut3 │
00:07:21 verbose #28204 > │ while method23(v305, v307) do │
00:07:21 verbose #28205 > │ let v309 : uint64 = v307.l0 │
00:07:21 verbose #28206 > │ let struct (v310 : UH5, v311 : int32) = v307.l1, v307.l2 │
00:07:21 verbose #28207 > │ let v312 : int64 = v298.[int v309] │
00:07:21 verbose #28208 > │ let v313 : int32 = v311 + 1 │
00:07:21 verbose #28209 > │ let v314 : uint64 = v309 + 1UL │
00:07:21 verbose #28210 > │ let v315 : UH5 = UH5_1(v311, v312, v310) │
00:07:21 verbose #28211 > │ v307.l0 <- v314 │
00:07:21 verbose #28212 > │ v307.l1 <- v315 │
00:07:21 verbose #28213 > │ v307.l2 <- v313 │
00:07:21 verbose #28214 > │ () │
00:07:21 verbose #28215 > │ let struct (v316 : UH5, v317 : int32) = v307.l1, v307.l2 │
00:07:21 verbose #28216 > │ let v318 : UH5 = UH5_0 │
00:07:21 verbose #28217 > │ let v319 : UH5 = method24(v316, v318) │
00:07:21 verbose #28218 > │ let v320 : (struct (int32 * int64) []) = method34(v319) │
00:07:21 verbose #28219 > │ System.Console.WriteLine v2 │
00:07:21 verbose #28220 > │ let v321 : string = "Average Ranking " │
00:07:21 verbose #28221 > │ System.Console.WriteLine v321 │
00:07:21 verbose #28222 > │ let v322 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:07:21 verbose #28223 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:07:21 verbose #28224 > │ let v323 : (struct (int32 * int64) -> int64) = closure6() │
00:07:21 verbose #28225 > │ let v324 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:07:21 verbose #28226 > │ = v322 v323 │
00:07:21 verbose #28227 > │ let v325 : (struct (int32 * int64) []) = v324 v320 │
00:07:21 verbose #28228 > │ let v326 : uint64 = System.Convert.ToUInt64 v325.Length │
00:07:21 verbose #28229 > │ let v327 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28230 > │ while method4(v326, v327) do │
00:07:21 verbose #28231 > │ let v329 : uint64 = v327.l0 │
00:07:21 verbose #28232 > │ let struct (v330 : int32, v331 : int64) = v325.[int v329] │
00:07:21 verbose #28233 > │ let v332 : string = $"Test case %d{v330 + 1}. Average Time: %A{v331} │
00:07:21 verbose #28234 > │ " │
00:07:21 verbose #28235 > │ System.Console.WriteLine v332 │
00:07:21 verbose #28236 > │ let v333 : uint64 = v329 + 1UL │
00:07:21 verbose #28237 > │ v327.l0 <- v333 │
00:07:21 verbose #28238 > │ () │
00:07:21 verbose #28239 > │ () │
00:07:21 verbose #28240 > │ and method0 () : unit = │
00:07:21 verbose #28241 > │ let v0 : (unit -> unit) = closure0() │
00:07:21 verbose #28242 > │ let v1 : string = nameof v0 │
00:07:21 verbose #28243 > │ let v2 : string = "" │
00:07:21 verbose #28244 > │ System.Console.WriteLine v2 │
00:07:21 verbose #28245 > │ System.Console.WriteLine v2 │
00:07:21 verbose #28246 > │ let v3 : string = $"Test: {v1}" │
00:07:21 verbose #28247 > │ System.Console.WriteLine v3 │
00:07:21 verbose #28248 > │ let v4 : string = "a" │
00:07:21 verbose #28249 > │ let v5 : string = "b" │
00:07:21 verbose #28250 > │ let v6 : UH0 = UH0_0 │
00:07:21 verbose #28251 > │ let v7 : UH0 = UH0_1(v5, v5, v5, v6) │
00:07:21 verbose #28252 > │ let v8 : UH0 = UH0_1(v4, v4, v4, v7) │
00:07:21 verbose #28253 > │ let v9 : (struct (string * string * string) []) = method1(v8) │
00:07:21 verbose #28254 > │ let v10 : uint64 = System.Convert.ToUInt64 v9.Length │
00:07:21 verbose #28255 > │ let v11 : (struct (string * string * string * (int64 [])) []) = │
00:07:21 verbose #28256 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:07:21 verbose #28257 > │ (System.Convert.ToInt32(v10)) │
00:07:21 verbose #28258 > │ let v12 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28259 > │ while method4(v10, v12) do │
00:07:21 verbose #28260 > │ let v14 : uint64 = v12.l0 │
00:07:21 verbose #28261 > │ let struct (v15 : string, v16 : string, v17 : string) = v9.[int v14] │
00:07:21 verbose #28262 > │ let v18 : string = $"%A{struct (v15, v16)}" │
00:07:21 verbose #28263 > │ System.Console.WriteLine v2 │
00:07:21 verbose #28264 > │ let v19 : string = $"Solution: {v18} " │
00:07:21 verbose #28265 > │ System.Console.WriteLine v19 │
00:07:21 verbose #28266 > │ let v20 : int32 = 0 │
00:07:21 verbose #28267 > │ let v21 : string = "A" │
00:07:21 verbose #28268 > │ let v22 : (struct (string * string) -> string) = closure1() │
00:07:21 verbose #28269 > │ let v23 : int32 = 1 │
00:07:21 verbose #28270 > │ let v24 : string = "B" │
00:07:21 verbose #28271 > │ let v25 : (struct (string * string) -> string) = closure2() │
00:07:21 verbose #28272 > │ let v26 : UH1 = UH1_0 │
00:07:21 verbose #28273 > │ let v27 : UH1 = UH1_1(v23, v24, v25, v26) │
00:07:21 verbose #28274 > │ let v28 : UH1 = UH1_1(v20, v21, v22, v27) │
00:07:21 verbose #28275 > │ let v29 : (struct (int32 * string * (struct (string * string) -> │
00:07:21 verbose #28276 > │ string)) []) = method5(v28) │
00:07:21 verbose #28277 > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:07:21 verbose #28278 > │ let v31 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:07:21 verbose #28279 > │ (string * int64)> (System.Convert.ToInt32(v30)) │
00:07:21 verbose #28280 > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28281 > │ while method4(v30, v32) do │
00:07:21 verbose #28282 > │ let v34 : uint64 = v32.l0 │
00:07:21 verbose #28283 > │ let struct (v35 : int32, v36 : string, v37 : (struct (string * │
00:07:21 verbose #28284 > │ string) -> string)) = v29.[int v34] │
00:07:21 verbose #28285 > │ let v38 : unit option = None │
00:07:21 verbose #28286 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:07:21 verbose #28287 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:21 verbose #28288 > │ () │
00:07:21 verbose #28289 > │ #endif │
00:07:21 verbose #28290 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:21 verbose #28291 > │ () │
00:07:21 verbose #28292 > │ #endif │
00:07:21 verbose #28293 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:21 verbose #28294 > │ () │
00:07:21 verbose #28295 > │ #endif │
00:07:21 verbose #28296 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:21 verbose #28297 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:21 verbose #28298 > │ System.GC.Collect () │
00:07:21 verbose #28299 > │ () │
00:07:21 verbose #28300 > │ #endif │
00:07:21 verbose #28301 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:21 verbose #28302 > │ () │
00:07:21 verbose #28303 > │ #endif │
00:07:21 verbose #28304 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:21 verbose #28305 > │ FABLE_COMPILER_DART │
00:07:21 verbose #28306 > │ Unchecked.defaultof<unit> │
00:07:21 verbose #28307 > │ () │
00:07:21 verbose #28308 > │ #endif │
00:07:21 verbose #28309 > │ |> fun x -> _v38 <- Some x │
00:07:21 verbose #28310 > │ _v38.Value │
00:07:21 verbose #28311 > │ let v40 : (unit -> System.Diagnostics.Stopwatch) = │
00:07:21 verbose #28312 > │ System.Diagnostics.Stopwatch │
00:07:21 verbose #28313 > │ let v41 : System.Diagnostics.Stopwatch = v40 () │
00:07:21 verbose #28314 > │ v41.Start () │
00:07:21 verbose #28315 > │ let v42 : int64 = v41.ElapsedMilliseconds │
00:07:21 verbose #28316 > │ let v43 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:07:21 verbose #28317 > │ let v44 : Mut1 = {l0 = 0} : Mut1 │
00:07:21 verbose #28318 > │ while method8(v44) do │
00:07:21 verbose #28319 > │ let v46 : int32 = v44.l0 │
00:07:21 verbose #28320 > │ v43.[int v46] <- v46 │
00:07:21 verbose #28321 > │ let v47 : int32 = v46 + 1 │
00:07:21 verbose #28322 > │ v44.l0 <- v47 │
00:07:21 verbose #28323 > │ () │
00:07:21 verbose #28324 > │ let v48 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:07:21 verbose #28325 > │ Array.Parallel.map │
00:07:21 verbose #28326 > │ let v49 : (int32 -> string) = closure3(v15, v16, v37) │
00:07:21 verbose #28327 > │ let v50 : ((int32 []) -> (string [])) = v48 v49 │
00:07:21 verbose #28328 > │ let v51 : (string []) = v50 v43 │
00:07:21 verbose #28329 > │ let v52 : int32 = v51.Length │
00:07:21 verbose #28330 > │ let v53 : int32 = v52 - 1 │
00:07:21 verbose #28331 > │ let v54 : string = v51.[int v53] │
00:07:21 verbose #28332 > │ let v55 : int64 = v41.ElapsedMilliseconds │
00:07:21 verbose #28333 > │ let v56 : int64 = v55 - v42 │
00:07:21 verbose #28334 > │ let v57 : string = $"Test case {v35 + 1}. {v36}. Time: {v56} " │
00:07:21 verbose #28335 > │ System.Console.WriteLine v57 │
00:07:21 verbose #28336 > │ v31.[int v34] <- struct (v54, v56) │
00:07:21 verbose #28337 > │ let v58 : uint64 = v34 + 1UL │
00:07:21 verbose #28338 > │ v32.l0 <- v58 │
00:07:21 verbose #28339 > │ () │
00:07:21 verbose #28340 > │ let v59 : uint64 = System.Convert.ToUInt64 v31.Length │
00:07:21 verbose #28341 > │ let v60 : (string []) = Array.zeroCreate<string> │
00:07:21 verbose #28342 > │ (System.Convert.ToInt32(v59)) │
00:07:21 verbose #28343 > │ let v61 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28344 > │ while method4(v59, v61) do │
00:07:21 verbose #28345 > │ let v63 : uint64 = v61.l0 │
00:07:21 verbose #28346 > │ let struct (v64 : string, v65 : int64) = v31.[int v63] │
00:07:21 verbose #28347 > │ v60.[int v63] <- v64 │
00:07:21 verbose #28348 > │ let v66 : uint64 = v63 + 1UL │
00:07:21 verbose #28349 > │ v61.l0 <- v66 │
00:07:21 verbose #28350 > │ () │
00:07:21 verbose #28351 > │ let v67 : uint64 = System.Convert.ToUInt64 v60.Length │
00:07:21 verbose #28352 > │ let v68 : bool = v67 <= 1UL │
00:07:21 verbose #28353 > │ if v68 then │
00:07:21 verbose #28354 > │ () │
00:07:21 verbose #28355 > │ else │
00:07:21 verbose #28356 > │ let v69 : string = v60.[int 0UL] │
00:07:21 verbose #28357 > │ let v70 : uint64 = 0UL │
00:07:21 verbose #28358 > │ let v71 : bool = method9(v69, v60, v70) │
00:07:21 verbose #28359 > │ if v71 then │
00:07:21 verbose #28360 > │ () │
00:07:21 verbose #28361 > │ else │
00:07:21 verbose #28362 > │ let v72 : string = $"Challenge error: {v60}" │
00:07:21 verbose #28363 > │ failwith<unit> v72 │
00:07:21 verbose #28364 > │ let v73 : string = $"%A{v17}" │
00:07:21 verbose #28365 > │ let v74 : (string []) = Array.zeroCreate<string> │
00:07:21 verbose #28366 > │ (System.Convert.ToInt32(v59)) │
00:07:21 verbose #28367 > │ let v75 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28368 > │ while method4(v59, v75) do │
00:07:21 verbose #28369 > │ let v77 : uint64 = v75.l0 │
00:07:21 verbose #28370 > │ let struct (v78 : string, v79 : int64) = v31.[int v77] │
00:07:21 verbose #28371 > │ v74.[int v77] <- v78 │
00:07:21 verbose #28372 > │ let v80 : uint64 = v77 + 1UL │
00:07:21 verbose #28373 > │ v75.l0 <- v80 │
00:07:21 verbose #28374 > │ () │
00:07:21 verbose #28375 > │ let v81 : string = v74.[int 0UL] │
00:07:21 verbose #28376 > │ let v82 : string = $"%A{v81}" │
00:07:21 verbose #28377 > │ let v83 : (int64 []) = Array.zeroCreate<int64> │
00:07:21 verbose #28378 > │ (System.Convert.ToInt32(v59)) │
00:07:21 verbose #28379 > │ let v84 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28380 > │ while method4(v59, v84) do │
00:07:21 verbose #28381 > │ let v86 : uint64 = v84.l0 │
00:07:21 verbose #28382 > │ let struct (v87 : string, v88 : int64) = v31.[int v86] │
00:07:21 verbose #28383 > │ v83.[int v86] <- v88 │
00:07:21 verbose #28384 > │ let v89 : uint64 = v86 + 1UL │
00:07:21 verbose #28385 > │ v84.l0 <- v89 │
00:07:21 verbose #28386 > │ () │
00:07:21 verbose #28387 > │ v11.[int v14] <- struct (v73, v18, v82, v83) │
00:07:21 verbose #28388 > │ let v90 : uint64 = v14 + 1UL │
00:07:21 verbose #28389 > │ v12.l0 <- v90 │
00:07:21 verbose #28390 > │ () │
00:07:21 verbose #28391 > │ let v91 : uint64 = System.Convert.ToUInt64 v11.Length │
00:07:21 verbose #28392 > │ let v92 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:07:21 verbose #28393 > │ (System.Convert.ToInt32(v91)) │
00:07:21 verbose #28394 > │ let v93 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:21 verbose #28395 > │ while method4(v91, v93) do │
00:07:21 verbose #28396 > │ let v95 : uint64 = v93.l0 │
00:07:21 verbose #28397 > │ let struct (v96 : string, v97 : string, v98 : string, v99 : (int64 [ │
00:07:21 verbose #28398 > │ ])) = v11.[int v95] │
00:07:21 verbose #28399 > │ let v100 : uint64 = System.Convert.ToUInt64 v99.Length │
00:07:21 verbose #28400 > │ let v101 : UH3 = UH3_0 │
00:07:21 verbose #28401 > │ let v102 : Mut2 = {l0 = 0UL; l1 = v101; l2 = 0L} : Mut2 │
00:07:21 verbose #28402 > │ while method10(v100, v102) do │
00:07:21 verbose #28403 > │ let v104 : uint64 = v102.l0 │
00:07:21 verbose #28404 > │ let struct (v105 : UH3, v106 : int64) = v102.l1, v102.l2 │
00:07:21 verbose #28405 > │ let v107 : int64 = v99.[int v104] │
00:07:21 verbose #28406 > │ let v108 : int64 = v106 + 1L │
00:07:21 verbose #28407 > │ let v109 : uint64 = v104 + 1UL │
00:07:21 verbose #28408 > │ let v110 : UH3 = UH3_1(v106, v107, v105) │
00:07:21 verbose #28409 > │ v102.l0 <- v109 │
00:07:21 verbose #28410 > │ v102.l1 <- v110 │
00:07:21 verbose #28411 > │ v102.l2 <- v108 │
00:07:21 verbose #28412 > │ () │
00:07:21 verbose #28413 > │ let struct (v111 : UH3, v112 : int64) = v102.l1, v102.l2 │
00:07:21 verbose #28414 > │ let v113 : UH3 = UH3_0 │
00:07:21 verbose #28415 > │ let v114 : UH3 = method11(v111, v113) │
00:07:21 verbose #28416 > │ let v115 : (struct (int64 * int64) []) = method12(v114) │
00:07:21 verbose #28417 > │ let v116 : int32 = v115.Length │
00:07:21 verbose #28418 > │ let v117 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:07:21 verbose #28419 > │ (int64 * int64)> (v116) │
00:07:21 verbose #28420 > │ let v118 : Mut1 = {l0 = 0} : Mut1 │
00:07:21 verbose #28421 > │ while method15(v116, v118) do │
00:07:21 verbose #28422 > │ let v120 : int32 = v118.l0 │
00:07:21 verbose #28423 > │ let struct (v121 : int64, v122 : int64) = v115.[int v120] │
00:07:21 verbose #28424 > │ let v123 : int64 = v121 + 1L │
00:07:21 verbose #28425 > │ v117.[int v120] <- struct (v123, v122) │
00:07:21 verbose #28426 > │ let v124 : int32 = v120 + 1 │
00:07:21 verbose #28427 > │ v118.l0 <- v124 │
00:07:21 verbose #28428 > │ () │
00:07:22 verbose #28429 > │ let v125 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:07:22 verbose #28430 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:07:22 verbose #28431 > │ let v126 : (struct (int64 * int64) -> int64) = closure4() │
00:07:22 verbose #28432 > │ let v127 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:07:22 verbose #28433 > │ ])) = v125 v126 │
00:07:22 verbose #28434 > │ let v128 : (struct (int64 * int64) []) = v127 v117 │
00:07:22 verbose #28435 > │ let struct (v129 : int64, v130 : int64) = v128.[int 0] │
00:07:22 verbose #28436 > │ let v131 : string = $"%A{struct (v129, v130)}" │
00:07:22 verbose #28437 > │ let v132 : bool = v96 = v98 │
00:07:22 verbose #28438 > │ let v137 : US0 = │
00:07:22 verbose #28439 > │ if v132 then │
00:07:22 verbose #28440 > │ let v133 : System.ConsoleColor = │
00:07:22 verbose #28441 > │ System.ConsoleColor.DarkGreen │
00:07:22 verbose #28442 > │ US0_0(v133) │
00:07:22 verbose #28443 > │ else │
00:07:22 verbose #28444 > │ let v135 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:07:22 verbose #28445 > │ US0_0(v135) │
00:07:22 verbose #28446 > │ let v138 : UH2 = UH2_0 │
00:07:22 verbose #28447 > │ let v139 : UH2 = UH2_1(v131, v138) │
00:07:22 verbose #28448 > │ let v140 : UH2 = UH2_1(v98, v139) │
00:07:22 verbose #28449 > │ let v141 : UH2 = UH2_1(v96, v140) │
00:07:22 verbose #28450 > │ let v142 : UH2 = UH2_1(v97, v141) │
00:07:22 verbose #28451 > │ v92.[int v95] <- struct (v142, v137) │
00:07:22 verbose #28452 > │ let v143 : uint64 = v95 + 1UL │
00:07:22 verbose #28453 > │ v93.l0 <- v143 │
00:07:22 verbose #28454 > │ () │
00:07:22 verbose #28455 > │ let v144 : string = "Input" │
00:07:22 verbose #28456 > │ let v145 : string = "Expected" │
00:07:22 verbose #28457 > │ let v146 : string = "Result" │
00:07:22 verbose #28458 > │ let v147 : string = "Best" │
00:07:22 verbose #28459 > │ let v148 : UH2 = UH2_0 │
00:07:22 verbose #28460 > │ let v149 : UH2 = UH2_1(v147, v148) │
00:07:22 verbose #28461 > │ let v150 : UH2 = UH2_1(v146, v149) │
00:07:22 verbose #28462 > │ let v151 : UH2 = UH2_1(v145, v150) │
00:07:22 verbose #28463 > │ let v152 : UH2 = UH2_1(v144, v151) │
00:07:22 verbose #28464 > │ let v153 : US0 = US0_1 │
00:07:22 verbose #28465 > │ let v154 : string = "---" │
00:07:22 verbose #28466 > │ let v155 : UH2 = UH2_0 │
00:07:22 verbose #28467 > │ let v156 : UH2 = UH2_1(v154, v155) │
00:07:22 verbose #28468 > │ let v157 : UH2 = UH2_1(v154, v156) │
00:07:22 verbose #28469 > │ let v158 : UH2 = UH2_1(v154, v157) │
00:07:22 verbose #28470 > │ let v159 : UH2 = UH2_1(v154, v158) │
00:07:22 verbose #28471 > │ let v160 : US0 = US0_1 │
00:07:22 verbose #28472 > │ let v161 : UH4 = UH4_0 │
00:07:22 verbose #28473 > │ let v162 : UH4 = UH4_1(v159, v160, v161) │
00:07:22 verbose #28474 > │ let v163 : UH4 = UH4_1(v152, v153, v162) │
00:07:22 verbose #28475 > │ let v164 : (struct (UH2 * US0) []) = method16(v163) │
00:07:22 verbose #28476 > │ let v165 : uint64 = System.Convert.ToUInt64 v164.Length │
00:07:22 verbose #28477 > │ let v166 : uint64 = System.Convert.ToUInt64 v92.Length │
00:07:22 verbose #28478 > │ let v167 : uint64 = v165 + v166 │
00:07:22 verbose #28479 > │ let v168 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:07:22 verbose #28480 > │ US0)> (System.Convert.ToInt32(v167)) │
00:07:22 verbose #28481 > │ let v169 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28482 > │ while method4(v167, v169) do │
00:07:22 verbose #28483 > │ let v171 : uint64 = v169.l0 │
00:07:22 verbose #28484 > │ let v172 : bool = v171 < v165 │
00:07:22 verbose #28485 > │ let struct (v178 : UH2, v179 : US0) = │
00:07:22 verbose #28486 > │ if v172 then │
00:07:22 verbose #28487 > │ let struct (v173 : UH2, v174 : US0) = v164.[int v171] │
00:07:22 verbose #28488 > │ struct (v173, v174) │
00:07:22 verbose #28489 > │ else │
00:07:22 verbose #28490 > │ let v175 : uint64 = v171 - v165 │
00:07:22 verbose #28491 > │ let struct (v176 : UH2, v177 : US0) = v92.[int v175] │
00:07:22 verbose #28492 > │ struct (v176, v177) │
00:07:22 verbose #28493 > │ v168.[int v171] <- struct (v178, v179) │
00:07:22 verbose #28494 > │ let v180 : uint64 = v171 + 1UL │
00:07:22 verbose #28495 > │ v169.l0 <- v180 │
00:07:22 verbose #28496 > │ () │
00:07:22 verbose #28497 > │ let v181 : uint64 = System.Convert.ToUInt64 v168.Length │
00:07:22 verbose #28498 > │ let v182 : ((string []) []) = Array.zeroCreate<(string [])> │
00:07:22 verbose #28499 > │ (System.Convert.ToInt32(v181)) │
00:07:22 verbose #28500 > │ let v183 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28501 > │ while method4(v181, v183) do │
00:07:22 verbose #28502 > │ let v185 : uint64 = v183.l0 │
00:07:22 verbose #28503 > │ let struct (v186 : UH2, v187 : US0) = v168.[int v185] │
00:07:22 verbose #28504 > │ let v188 : (string []) = method19(v186) │
00:07:22 verbose #28505 > │ v182.[int v185] <- v188 │
00:07:22 verbose #28506 > │ let v189 : uint64 = v185 + 1UL │
00:07:22 verbose #28507 > │ v183.l0 <- v189 │
00:07:22 verbose #28508 > │ () │
00:07:22 verbose #28509 > │ let v190 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:07:22 verbose #28510 > │ let v191 : ((string []) []) = v190 v182 │
00:07:22 verbose #28511 > │ let v192 : uint64 = System.Convert.ToUInt64 v191.Length │
00:07:22 verbose #28512 > │ let v193 : (int64 []) = Array.zeroCreate<int64> │
00:07:22 verbose #28513 > │ (System.Convert.ToInt32(v192)) │
00:07:22 verbose #28514 > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28515 > │ while method4(v192, v194) do │
00:07:22 verbose #28516 > │ let v196 : uint64 = v194.l0 │
00:07:22 verbose #28517 > │ let v197 : (string []) = v191.[int v196] │
00:07:22 verbose #28518 > │ let v198 : uint64 = System.Convert.ToUInt64 v197.Length │
00:07:22 verbose #28519 > │ let v199 : (int64 []) = Array.zeroCreate<int64> │
00:07:22 verbose #28520 > │ (System.Convert.ToInt32(v198)) │
00:07:22 verbose #28521 > │ let v200 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28522 > │ while method4(v198, v200) do │
00:07:22 verbose #28523 > │ let v202 : uint64 = v200.l0 │
00:07:22 verbose #28524 > │ let v203 : string = v197.[int v202] │
00:07:22 verbose #28525 > │ let v204 : int64 = System.Convert.ToInt64 v203.Length │
00:07:22 verbose #28526 > │ v199.[int v202] <- v204 │
00:07:22 verbose #28527 > │ let v205 : uint64 = v202 + 1UL │
00:07:22 verbose #28528 > │ v200.l0 <- v205 │
00:07:22 verbose #28529 > │ () │
00:07:22 verbose #28530 > │ let v206 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:07:22 verbose #28531 > │ let v207 : (int64 []) = v206 v199 │
00:07:22 verbose #28532 > │ let v208 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:07:22 verbose #28533 > │ let v209 : ((int64 []) -> int64 option) = v208 0 │
00:07:22 verbose #28534 > │ let v210 : int64 option = v209 v207 │
00:07:22 verbose #28535 > │ let v211 : (int64 -> US1) = method22() │
00:07:22 verbose #28536 > │ let v212 : US1 = US1_1 │
00:07:22 verbose #28537 > │ let v213 : US1 = v210 |> Option.map v211 |> Option.defaultValue v212 │
00:07:22 verbose #28538 > │ let v216 : int64 = │
00:07:22 verbose #28539 > │ match v213 with │
00:07:22 verbose #28540 > │ | US1_1 -> (* None *) │
00:07:22 verbose #28541 > │ 0L │
00:07:22 verbose #28542 > │ | US1_0(v214) -> (* Some *) │
00:07:22 verbose #28543 > │ v214 │
00:07:22 verbose #28544 > │ v193.[int v196] <- v216 │
00:07:22 verbose #28545 > │ let v217 : uint64 = v196 + 1UL │
00:07:22 verbose #28546 > │ v194.l0 <- v217 │
00:07:22 verbose #28547 > │ () │
00:07:22 verbose #28548 > │ let v218 : uint64 = System.Convert.ToUInt64 v193.Length │
00:07:22 verbose #28549 > │ let v219 : UH5 = UH5_0 │
00:07:22 verbose #28550 > │ let v220 : Mut3 = {l0 = 0UL; l1 = v219; l2 = 0} : Mut3 │
00:07:22 verbose #28551 > │ while method23(v218, v220) do │
00:07:22 verbose #28552 > │ let v222 : uint64 = v220.l0 │
00:07:22 verbose #28553 > │ let struct (v223 : UH5, v224 : int32) = v220.l1, v220.l2 │
00:07:22 verbose #28554 > │ let v225 : int64 = v193.[int v222] │
00:07:22 verbose #28555 > │ let v226 : int32 = v224 + 1 │
00:07:22 verbose #28556 > │ let v227 : uint64 = v222 + 1UL │
00:07:22 verbose #28557 > │ let v228 : UH5 = UH5_1(v224, v225, v223) │
00:07:22 verbose #28558 > │ v220.l0 <- v227 │
00:07:22 verbose #28559 > │ v220.l1 <- v228 │
00:07:22 verbose #28560 > │ v220.l2 <- v226 │
00:07:22 verbose #28561 > │ () │
00:07:22 verbose #28562 > │ let struct (v229 : UH5, v230 : int32) = v220.l1, v220.l2 │
00:07:22 verbose #28563 > │ let v231 : UH5 = UH5_0 │
00:07:22 verbose #28564 > │ let v232 : UH5 = method24(v229, v231) │
00:07:22 verbose #28565 > │ let v233 : (struct (int32 * int64) []) = method25(v232) │
00:07:22 verbose #28566 > │ let v234 : Map<int32, int64> = v233 |> Array.map (fun (struct (a, b)) -> │
00:07:22 verbose #28567 > │ a, b) |> Map.ofArray │
00:07:22 verbose #28568 > │ let v235 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:07:22 verbose #28569 > │ ((string []) * US0)> (System.Convert.ToInt32(v181)) │
00:07:22 verbose #28570 > │ let v236 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28571 > │ while method4(v181, v236) do │
00:07:22 verbose #28572 > │ let v238 : uint64 = v236.l0 │
00:07:22 verbose #28573 > │ let struct (v239 : UH2, v240 : US0) = v168.[int v238] │
00:07:22 verbose #28574 > │ let v241 : UH6 = UH6_0 │
00:07:22 verbose #28575 > │ let v242 : int32 = 0 │
00:07:22 verbose #28576 > │ let struct (v243 : UH6, v244 : int32) = method28(v239, v241, v242) │
00:07:22 verbose #28577 > │ let v245 : UH6 = UH6_0 │
00:07:22 verbose #28578 > │ let v246 : UH6 = method29(v243, v245) │
00:07:22 verbose #28579 > │ let v247 : UH2 = UH2_0 │
00:07:22 verbose #28580 > │ let v248 : UH2 = method30(v234, v246, v247) │
00:07:22 verbose #28581 > │ let v249 : (string []) = method31(v248) │
00:07:22 verbose #28582 > │ v235.[int v238] <- struct (v249, v240) │
00:07:22 verbose #28583 > │ let v250 : uint64 = v238 + 1UL │
00:07:22 verbose #28584 > │ v236.l0 <- v250 │
00:07:22 verbose #28585 > │ () │
00:07:22 verbose #28586 > │ System.Console.WriteLine v2 │
00:07:22 verbose #28587 > │ let v251 : uint64 = System.Convert.ToUInt64 v235.Length │
00:07:22 verbose #28588 > │ let v252 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28589 > │ while method4(v251, v252) do │
00:07:22 verbose #28590 > │ let v254 : uint64 = v252.l0 │
00:07:22 verbose #28591 > │ let struct (v255 : (string []), v256 : US0) = v235.[int v254] │
00:07:22 verbose #28592 > │ match v256 with │
00:07:22 verbose #28593 > │ | US0_1 -> (* None *) │
00:07:22 verbose #28594 > │ let v260 : unit option = None │
00:07:22 verbose #28595 > │ let v261 : bool = true in let mutable _v260 = v260 │
00:07:22 verbose #28596 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:22 verbose #28597 > │ () │
00:07:22 verbose #28598 > │ #endif │
00:07:22 verbose #28599 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:22 verbose #28600 > │ () │
00:07:22 verbose #28601 > │ #endif │
00:07:22 verbose #28602 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:22 verbose #28603 > │ () │
00:07:22 verbose #28604 > │ #endif │
00:07:22 verbose #28605 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:22 verbose #28606 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:22 verbose #28607 > │ System.Console.ResetColor () │
00:07:22 verbose #28608 > │ () │
00:07:22 verbose #28609 > │ #endif │
00:07:22 verbose #28610 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:22 verbose #28611 > │ () │
00:07:22 verbose #28612 > │ #endif │
00:07:22 verbose #28613 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:22 verbose #28614 > │ FABLE_COMPILER_DART │
00:07:22 verbose #28615 > │ Unchecked.defaultof<unit> │
00:07:22 verbose #28616 > │ () │
00:07:22 verbose #28617 > │ #endif │
00:07:22 verbose #28618 > │ |> fun x -> _v260 <- Some x │
00:07:22 verbose #28619 > │ _v260.Value │
00:07:22 verbose #28620 > │ () │
00:07:22 verbose #28621 > │ | US0_0(v257) -> (* Some *) │
00:07:22 verbose #28622 > │ let v258 : unit option = None │
00:07:22 verbose #28623 > │ let v259 : bool = true in let mutable _v258 = v258 │
00:07:22 verbose #28624 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:22 verbose #28625 > │ () │
00:07:22 verbose #28626 > │ #endif │
00:07:22 verbose #28627 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:22 verbose #28628 > │ () │
00:07:22 verbose #28629 > │ #endif │
00:07:22 verbose #28630 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:22 verbose #28631 > │ () │
00:07:22 verbose #28632 > │ #endif │
00:07:22 verbose #28633 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:22 verbose #28634 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:22 verbose #28635 > │ System.Console.ForegroundColor <- v257 │
00:07:22 verbose #28636 > │ () │
00:07:22 verbose #28637 > │ #endif │
00:07:22 verbose #28638 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:22 verbose #28639 > │ () │
00:07:22 verbose #28640 > │ #endif │
00:07:22 verbose #28641 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:22 verbose #28642 > │ FABLE_COMPILER_DART │
00:07:22 verbose #28643 > │ Unchecked.defaultof<unit> │
00:07:22 verbose #28644 > │ () │
00:07:22 verbose #28645 > │ #endif │
00:07:22 verbose #28646 > │ |> fun x -> _v258 <- Some x │
00:07:22 verbose #28647 > │ _v258.Value │
00:07:22 verbose #28648 > │ () │
00:07:22 verbose #28649 > │ let v262 : string = "\t| " │
00:07:22 verbose #28650 > │ let v263 : string = System.String.Join (v262, v255) │
00:07:22 verbose #28651 > │ System.Console.WriteLine v263 │
00:07:22 verbose #28652 > │ let v264 : unit option = None │
00:07:22 verbose #28653 > │ let v265 : bool = true in let mutable _v264 = v264 │
00:07:22 verbose #28654 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:22 verbose #28655 > │ () │
00:07:22 verbose #28656 > │ #endif │
00:07:22 verbose #28657 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:22 verbose #28658 > │ () │
00:07:22 verbose #28659 > │ #endif │
00:07:22 verbose #28660 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:22 verbose #28661 > │ () │
00:07:22 verbose #28662 > │ #endif │
00:07:22 verbose #28663 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:22 verbose #28664 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:22 verbose #28665 > │ System.Console.ResetColor () │
00:07:22 verbose #28666 > │ () │
00:07:22 verbose #28667 > │ #endif │
00:07:22 verbose #28668 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:22 verbose #28669 > │ () │
00:07:22 verbose #28670 > │ #endif │
00:07:22 verbose #28671 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:22 verbose #28672 > │ FABLE_COMPILER_DART │
00:07:22 verbose #28673 > │ Unchecked.defaultof<unit> │
00:07:22 verbose #28674 > │ () │
00:07:22 verbose #28675 > │ #endif │
00:07:22 verbose #28676 > │ |> fun x -> _v264 <- Some x │
00:07:22 verbose #28677 > │ _v264.Value │
00:07:22 verbose #28678 > │ let v266 : uint64 = v254 + 1UL │
00:07:22 verbose #28679 > │ v252.l0 <- v266 │
00:07:22 verbose #28680 > │ () │
00:07:22 verbose #28681 > │ let v267 : ((float []) []) = Array.zeroCreate<(float [])> │
00:07:22 verbose #28682 > │ (System.Convert.ToInt32(v91)) │
00:07:22 verbose #28683 > │ let v268 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28684 > │ while method4(v91, v268) do │
00:07:22 verbose #28685 > │ let v270 : uint64 = v268.l0 │
00:07:22 verbose #28686 > │ let struct (v271 : string, v272 : string, v273 : string, v274 : │
00:07:22 verbose #28687 > │ (int64 [])) = v11.[int v270] │
00:07:22 verbose #28688 > │ let v275 : (int64 -> float) = float │
00:07:22 verbose #28689 > │ let v276 : uint64 = System.Convert.ToUInt64 v274.Length │
00:07:22 verbose #28690 > │ let v277 : (float []) = Array.zeroCreate<float> │
00:07:22 verbose #28691 > │ (System.Convert.ToInt32(v276)) │
00:07:22 verbose #28692 > │ let v278 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28693 > │ while method4(v276, v278) do │
00:07:22 verbose #28694 > │ let v280 : uint64 = v278.l0 │
00:07:22 verbose #28695 > │ let v281 : int64 = v274.[int v280] │
00:07:22 verbose #28696 > │ let v282 : float = v275 v281 │
00:07:22 verbose #28697 > │ v277.[int v280] <- v282 │
00:07:22 verbose #28698 > │ let v283 : uint64 = v280 + 1UL │
00:07:22 verbose #28699 > │ v278.l0 <- v283 │
00:07:22 verbose #28700 > │ () │
00:07:22 verbose #28701 > │ v267.[int v270] <- v277 │
00:07:22 verbose #28702 > │ let v284 : uint64 = v270 + 1UL │
00:07:22 verbose #28703 > │ v268.l0 <- v284 │
00:07:22 verbose #28704 > │ () │
00:07:22 verbose #28705 > │ let v285 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:07:22 verbose #28706 > │ let v286 : ((float []) []) = v285 v267 │
00:07:22 verbose #28707 > │ let v287 : uint64 = System.Convert.ToUInt64 v286.Length │
00:07:22 verbose #28708 > │ let v288 : (float []) = Array.zeroCreate<float> │
00:07:22 verbose #28709 > │ (System.Convert.ToInt32(v287)) │
00:07:22 verbose #28710 > │ let v289 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28711 > │ while method4(v287, v289) do │
00:07:22 verbose #28712 > │ let v291 : uint64 = v289.l0 │
00:07:22 verbose #28713 > │ let v292 : (float []) = v286.[int v291] │
00:07:22 verbose #28714 > │ let v293 : ((float []) -> float) = Array.average │
00:07:22 verbose #28715 > │ let v294 : float = v293 v292 │
00:07:22 verbose #28716 > │ v288.[int v291] <- v294 │
00:07:22 verbose #28717 > │ let v295 : uint64 = v291 + 1UL │
00:07:22 verbose #28718 > │ v289.l0 <- v295 │
00:07:22 verbose #28719 > │ () │
00:07:22 verbose #28720 > │ let v296 : (float -> int64) = int64 │
00:07:22 verbose #28721 > │ let v297 : uint64 = System.Convert.ToUInt64 v288.Length │
00:07:22 verbose #28722 > │ let v298 : (int64 []) = Array.zeroCreate<int64> │
00:07:22 verbose #28723 > │ (System.Convert.ToInt32(v297)) │
00:07:22 verbose #28724 > │ let v299 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28725 > │ while method4(v297, v299) do │
00:07:22 verbose #28726 > │ let v301 : uint64 = v299.l0 │
00:07:22 verbose #28727 > │ let v302 : float = v288.[int v301] │
00:07:22 verbose #28728 > │ let v303 : int64 = v296 v302 │
00:07:22 verbose #28729 > │ v298.[int v301] <- v303 │
00:07:22 verbose #28730 > │ let v304 : uint64 = v301 + 1UL │
00:07:22 verbose #28731 > │ v299.l0 <- v304 │
00:07:22 verbose #28732 > │ () │
00:07:22 verbose #28733 > │ let v305 : uint64 = System.Convert.ToUInt64 v298.Length │
00:07:22 verbose #28734 > │ let v306 : UH5 = UH5_0 │
00:07:22 verbose #28735 > │ let v307 : Mut3 = {l0 = 0UL; l1 = v306; l2 = 0} : Mut3 │
00:07:22 verbose #28736 > │ while method23(v305, v307) do │
00:07:22 verbose #28737 > │ let v309 : uint64 = v307.l0 │
00:07:22 verbose #28738 > │ let struct (v310 : UH5, v311 : int32) = v307.l1, v307.l2 │
00:07:22 verbose #28739 > │ let v312 : int64 = v298.[int v309] │
00:07:22 verbose #28740 > │ let v313 : int32 = v311 + 1 │
00:07:22 verbose #28741 > │ let v314 : uint64 = v309 + 1UL │
00:07:22 verbose #28742 > │ let v315 : UH5 = UH5_1(v311, v312, v310) │
00:07:22 verbose #28743 > │ v307.l0 <- v314 │
00:07:22 verbose #28744 > │ v307.l1 <- v315 │
00:07:22 verbose #28745 > │ v307.l2 <- v313 │
00:07:22 verbose #28746 > │ () │
00:07:22 verbose #28747 > │ let struct (v316 : UH5, v317 : int32) = v307.l1, v307.l2 │
00:07:22 verbose #28748 > │ let v318 : UH5 = UH5_0 │
00:07:22 verbose #28749 > │ let v319 : UH5 = method24(v316, v318) │
00:07:22 verbose #28750 > │ let v320 : (struct (int32 * int64) []) = method34(v319) │
00:07:22 verbose #28751 > │ System.Console.WriteLine v2 │
00:07:22 verbose #28752 > │ let v321 : string = "Average Ranking " │
00:07:22 verbose #28753 > │ System.Console.WriteLine v321 │
00:07:22 verbose #28754 > │ let v322 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:07:22 verbose #28755 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:07:22 verbose #28756 > │ let v323 : (struct (int32 * int64) -> int64) = closure6() │
00:07:22 verbose #28757 > │ let v324 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:07:22 verbose #28758 > │ = v322 v323 │
00:07:22 verbose #28759 > │ let v325 : (struct (int32 * int64) []) = v324 v320 │
00:07:22 verbose #28760 > │ let v326 : uint64 = System.Convert.ToUInt64 v325.Length │
00:07:22 verbose #28761 > │ let v327 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:22 verbose #28762 > │ while method4(v326, v327) do │
00:07:22 verbose #28763 > │ let v329 : uint64 = v327.l0 │
00:07:22 verbose #28764 > │ let struct (v330 : int32, v331 : int64) = v325.[int v329] │
00:07:22 verbose #28765 > │ let v332 : string = $"Test case %d{v330 + 1}. Average Time: %A{v331} │
00:07:22 verbose #28766 > │ " │
00:07:22 verbose #28767 > │ System.Console.WriteLine v332 │
00:07:22 verbose #28768 > │ let v333 : uint64 = v329 + 1UL │
00:07:22 verbose #28769 > │ v327.l0 <- v333 │
00:07:22 verbose #28770 > │ () │
00:07:22 verbose #28771 > │ () │
00:07:22 verbose #28772 > │ method0() │
00:07:22 verbose #28773 > │ │
00:07:22 verbose #28774 > │ │
00:07:22 verbose #28775 > │ │
00:07:22 verbose #28776 > │ Test: v0 │
00:07:22 verbose #28777 > │ │
00:07:22 verbose #28778 > │ Solution: struct ("a", "a") │
00:07:22 verbose #28779 > │ Test case 1. A. Time: 100 │
00:07:22 verbose #28780 > │ Test case 2. B. Time: 95 │
00:07:22 verbose #28781 > │ │
00:07:22 verbose #28782 > │ Solution: struct ("b", "b") │
00:07:22 verbose #28783 > │ Test case 1. A. Time: 100 │
00:07:22 verbose #28784 > │ Test case 2. B. Time: 112 │
00:07:22 verbose #28785 > │ │
00:07:22 verbose #28786 > │ Input | Expected | Result | Best │
00:07:22 verbose #28787 > │ --- | --- | --- | --- │
00:07:22 verbose #28788 > │ struct ("a", "a") | "a" | "a" | struct (2L, 95L) │
00:07:22 verbose #28789 > │ struct ("b", "b") | "b" | "b" | struct (1L, 100L) │
00:07:22 verbose #28790 > │ │
00:07:22 verbose #28791 > │ Average Ranking │
00:07:22 verbose #28792 > │ Test case 1. Average Time: 100L │
00:07:22 verbose #28793 > │ Test case 2. Average Time: 103L │
00:07:22 verbose #28794 > │ │
00:07:22 verbose #28795 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:22 verbose #28796 >
00:07:22 verbose #28797 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:22 verbose #28798 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:22 verbose #28799 > │ ## emptyTests │
00:07:22 verbose #28800 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:22 verbose #28801 >
00:07:22 verbose #28802 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:22 verbose #28803 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:22 verbose #28804 > │ Test: Empty │
00:07:22 verbose #28805 > │ │
00:07:22 verbose #28806 > │ Solution: 0 │
00:07:22 verbose #28807 > │ Test case 1. A. Time: 61L │
00:07:22 verbose #28808 > │ │
00:07:22 verbose #28809 > │ Solution: 2 │
00:07:22 verbose #28810 > │ Test case 1. A. Time: 62L │
00:07:22 verbose #28811 > │ │
00:07:22 verbose #28812 > │ Solution: 5 │
00:07:22 verbose #28813 > │ Test case 1. A. Time: 70L │
00:07:22 verbose #28814 > │ │
00:07:22 verbose #28815 > │ Input | Expected | Result | Best │
00:07:22 verbose #28816 > │ --- | --- | --- | --- │
00:07:22 verbose #28817 > │ 0 | 0 | 0 | (1, 61) │
00:07:22 verbose #28818 > │ 2 | 2 | 2 | (1, 62) │
00:07:22 verbose #28819 > │ 5 | 5 | 5 | (1, 70) │
00:07:22 verbose #28820 > │ │
00:07:22 verbose #28821 > │ Averages │
00:07:22 verbose #28822 > │ Test case 1. Average Time: 64L │
00:07:22 verbose #28823 > │ │
00:07:22 verbose #28824 > │ Ranking │
00:07:22 verbose #28825 > │ Test case 1. Average Time: 64L │
00:07:22 verbose #28826 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:22 verbose #28827 >
00:07:22 verbose #28828 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:22 verbose #28829 > // // test
00:07:22 verbose #28830 >
00:07:22 verbose #28831 > inl get_solutions () =
00:07:22 verbose #28832 > [[
00:07:22 verbose #28833 > "A",
00:07:22 verbose #28834 > fun n =>
00:07:22 verbose #28835 > n + 1f64
00:07:22 verbose #28836 > ]]
00:07:22 verbose #28837 >
00:07:22 verbose #28838 > inl rec empty_1_tests () =
00:07:22 verbose #28839 > inl test_cases = [[
00:07:22 verbose #28840 > 0, 1
00:07:22 verbose #28841 > 2, 3
00:07:22 verbose #28842 > 5, 6
00:07:22 verbose #28843 > ]]
00:07:22 verbose #28844 >
00:07:22 verbose #28845 > inl solutions = get_solutions ()
00:07:22 verbose #28846 >
00:07:22 verbose #28847 > // inl is_fast () = true
00:07:22 verbose #28848 >
00:07:22 verbose #28849 > inl count =
00:07:22 verbose #28850 > if is_fast ()
00:07:22 verbose #28851 > then 1000i32
00:07:22 verbose #28852 > else 2000000i32
00:07:22 verbose #28853 >
00:07:22 verbose #28854 > run_all (nameof empty_1_tests) count solutions test_cases
00:07:22 verbose #28855 > |> sort_result_list
00:07:22 verbose #28856 >
00:07:22 verbose #28857 > empty_1_tests ()
00:07:22 verbose #28858 > 00:07:21 debug #572 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/add20fff0f27a8abe1411796e3c8df50eddcafd4e78f8d42c4f62ae6367103c9/main.spi
00:07:27 verbose #28859 >
00:07:27 verbose #28860 > ╭─[ 5.44s - stdout ]───────────────────────────────────────────────────────────╮
00:07:27 verbose #28861 > │ type UH0 = │
00:07:27 verbose #28862 > │ | UH0_0 │
00:07:27 verbose #28863 > │ | UH0_1 of float * float * UH0 │
00:07:27 verbose #28864 > │ and Mut0 = {mutable l0 : uint64} │
00:07:27 verbose #28865 > │ and UH1 = │
00:07:27 verbose #28866 > │ | UH1_0 │
00:07:27 verbose #28867 > │ | UH1_1 of int32 * string * (float -> float) * UH1 │
00:07:27 verbose #28868 > │ and Mut1 = {mutable l0 : int32} │
00:07:27 verbose #28869 > │ and UH2 = │
00:07:27 verbose #28870 > │ | UH2_0 │
00:07:27 verbose #28871 > │ | UH2_1 of string * UH2 │
00:07:27 verbose #28872 > │ and [<Struct>] US0 = │
00:07:27 verbose #28873 > │ | US0_0 of f0_0 : System.ConsoleColor │
00:07:27 verbose #28874 > │ | US0_1 │
00:07:27 verbose #28875 > │ and UH3 = │
00:07:27 verbose #28876 > │ | UH3_0 │
00:07:27 verbose #28877 > │ | UH3_1 of int64 * int64 * UH3 │
00:07:27 verbose #28878 > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:07:27 verbose #28879 > │ and UH4 = │
00:07:27 verbose #28880 > │ | UH4_0 │
00:07:27 verbose #28881 > │ | UH4_1 of UH2 * US0 * UH4 │
00:07:27 verbose #28882 > │ and [<Struct>] US1 = │
00:07:27 verbose #28883 > │ | US1_0 of f0_0 : int64 │
00:07:27 verbose #28884 > │ | US1_1 │
00:07:27 verbose #28885 > │ and UH5 = │
00:07:27 verbose #28886 > │ | UH5_0 │
00:07:27 verbose #28887 > │ | UH5_1 of int32 * int64 * UH5 │
00:07:27 verbose #28888 > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:07:27 verbose #28889 > │ and UH6 = │
00:07:27 verbose #28890 > │ | UH6_0 │
00:07:27 verbose #28891 > │ | UH6_1 of int32 * string * UH6 │
00:07:27 verbose #28892 > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:07:27 verbose #28893 > │ match v0 with │
00:07:27 verbose #28894 > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #28895 > │ let v5 : uint64 = v1 + 1UL │
00:07:27 verbose #28896 > │ method2(v4, v5) │
00:07:27 verbose #28897 > │ | UH0_0 -> (* Nil *) │
00:07:27 verbose #28898 > │ v1 │
00:07:27 verbose #28899 > │ and method3 (v0 : (struct (float * float) []), v1 : UH0, v2 : uint64) : │
00:07:27 verbose #28900 > │ uint64 = │
00:07:27 verbose #28901 > │ match v1 with │
00:07:27 verbose #28902 > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #28903 > │ v0.[int v2] <- struct (v3, v4) │
00:07:27 verbose #28904 > │ let v6 : uint64 = v2 + 1UL │
00:07:27 verbose #28905 > │ method3(v0, v5, v6) │
00:07:27 verbose #28906 > │ | UH0_0 -> (* Nil *) │
00:07:27 verbose #28907 > │ v2 │
00:07:27 verbose #28908 > │ and method1 (v0 : UH0) : (struct (float * float) []) = │
00:07:27 verbose #28909 > │ let v1 : uint64 = 0UL │
00:07:27 verbose #28910 > │ let v2 : uint64 = method2(v0, v1) │
00:07:27 verbose #28911 > │ let v3 : (struct (float * float) []) = Array.zeroCreate<struct (float * │
00:07:27 verbose #28912 > │ float)> (System.Convert.ToInt32(v2)) │
00:07:27 verbose #28913 > │ let v4 : uint64 = 0UL │
00:07:27 verbose #28914 > │ let v5 : uint64 = method3(v3, v0, v4) │
00:07:27 verbose #28915 > │ v3 │
00:07:27 verbose #28916 > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:07:27 verbose #28917 > │ let v2 : uint64 = v1.l0 │
00:07:27 verbose #28918 > │ let v3 : bool = v2 < v0 │
00:07:27 verbose #28919 > │ v3 │
00:07:27 verbose #28920 > │ and closure1 () (v0 : float) : float = │
00:07:27 verbose #28921 > │ let v1 : float = v0 + 1.0 │
00:07:27 verbose #28922 > │ v1 │
00:07:27 verbose #28923 > │ and method6 (v0 : UH1, v1 : uint64) : uint64 = │
00:07:27 verbose #28924 > │ match v0 with │
00:07:27 verbose #28925 > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #28926 > │ let v6 : uint64 = v1 + 1UL │
00:07:27 verbose #28927 > │ method6(v5, v6) │
00:07:27 verbose #28928 > │ | UH1_0 -> (* Nil *) │
00:07:27 verbose #28929 > │ v1 │
00:07:27 verbose #28930 > │ and method7 (v0 : (struct (int32 * string * (float -> float)) []), v1 : UH1, │
00:07:27 verbose #28931 > │ v2 : uint64) : uint64 = │
00:07:27 verbose #28932 > │ match v1 with │
00:07:27 verbose #28933 > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:07:27 verbose #28934 > │ v0.[int v2] <- struct (v3, v4, v5) │
00:07:27 verbose #28935 > │ let v7 : uint64 = v2 + 1UL │
00:07:27 verbose #28936 > │ method7(v0, v6, v7) │
00:07:27 verbose #28937 > │ | UH1_0 -> (* Nil *) │
00:07:27 verbose #28938 > │ v2 │
00:07:27 verbose #28939 > │ and method5 (v0 : UH1) : (struct (int32 * string * (float -> float)) []) = │
00:07:27 verbose #28940 > │ let v1 : uint64 = 0UL │
00:07:27 verbose #28941 > │ let v2 : uint64 = method6(v0, v1) │
00:07:27 verbose #28942 > │ let v3 : (struct (int32 * string * (float -> float)) []) = │
00:07:27 verbose #28943 > │ Array.zeroCreate<struct (int32 * string * (float -> float))> │
00:07:27 verbose #28944 > │ (System.Convert.ToInt32(v2)) │
00:07:27 verbose #28945 > │ let v4 : uint64 = 0UL │
00:07:27 verbose #28946 > │ let v5 : uint64 = method7(v3, v0, v4) │
00:07:27 verbose #28947 > │ v3 │
00:07:27 verbose #28948 > │ and method8 (v0 : Mut1) : bool = │
00:07:27 verbose #28949 > │ let v1 : int32 = v0.l0 │
00:07:27 verbose #28950 > │ let v2 : bool = v1 < 2000001 │
00:07:27 verbose #28951 > │ v2 │
00:07:27 verbose #28952 > │ and closure2 (v0 : float, v1 : (float -> float)) (v2 : int32) : float = │
00:07:27 verbose #28953 > │ v1 v0 │
00:07:27 verbose #28954 > │ and method9 (v0 : float, v1 : (float []), v2 : uint64) : bool = │
00:07:27 verbose #28955 > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:07:27 verbose #28956 > │ let v4 : bool = v2 < v3 │
00:07:27 verbose #28957 > │ if v4 then │
00:07:27 verbose #28958 > │ let v5 : float = v1.[int v2] │
00:07:27 verbose #28959 > │ let v6 : bool = v0 = v5 │
00:07:27 verbose #28960 > │ if v6 then │
00:07:27 verbose #28961 > │ let v7 : uint64 = v2 + 1UL │
00:07:27 verbose #28962 > │ method9(v0, v1, v7) │
00:07:27 verbose #28963 > │ else │
00:07:27 verbose #28964 > │ false │
00:07:27 verbose #28965 > │ else │
00:07:27 verbose #28966 > │ true │
00:07:27 verbose #28967 > │ and method10 (v0 : uint64, v1 : Mut2) : bool = │
00:07:27 verbose #28968 > │ let v2 : uint64 = v1.l0 │
00:07:27 verbose #28969 > │ let v3 : bool = v2 < v0 │
00:07:27 verbose #28970 > │ v3 │
00:07:27 verbose #28971 > │ and method11 (v0 : UH3, v1 : UH3) : UH3 = │
00:07:27 verbose #28972 > │ match v0 with │
00:07:27 verbose #28973 > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #28974 > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:07:27 verbose #28975 > │ method11(v4, v5) │
00:07:27 verbose #28976 > │ | UH3_0 -> (* Nil *) │
00:07:27 verbose #28977 > │ v1 │
00:07:27 verbose #28978 > │ and method13 (v0 : UH3, v1 : int32) : int32 = │
00:07:27 verbose #28979 > │ match v0 with │
00:07:27 verbose #28980 > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #28981 > │ let v5 : int32 = v1 + 1 │
00:07:27 verbose #28982 > │ method13(v4, v5) │
00:07:27 verbose #28983 > │ | UH3_0 -> (* Nil *) │
00:07:27 verbose #28984 > │ v1 │
00:07:27 verbose #28985 > │ and method14 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:07:27 verbose #28986 > │ int32 = │
00:07:27 verbose #28987 > │ match v1 with │
00:07:27 verbose #28988 > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #28989 > │ v0.[int v2] <- struct (v3, v4) │
00:07:27 verbose #28990 > │ let v6 : int32 = v2 + 1 │
00:07:27 verbose #28991 > │ method14(v0, v5, v6) │
00:07:27 verbose #28992 > │ | UH3_0 -> (* Nil *) │
00:07:27 verbose #28993 > │ v2 │
00:07:27 verbose #28994 > │ and method12 (v0 : UH3) : (struct (int64 * int64) []) = │
00:07:27 verbose #28995 > │ let v1 : int32 = 0 │
00:07:27 verbose #28996 > │ let v2 : int32 = method13(v0, v1) │
00:07:27 verbose #28997 > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:07:27 verbose #28998 > │ int64)> (v2) │
00:07:27 verbose #28999 > │ let v4 : int32 = 0 │
00:07:27 verbose #29000 > │ let v5 : int32 = method14(v3, v0, v4) │
00:07:27 verbose #29001 > │ v3 │
00:07:27 verbose #29002 > │ and method15 (v0 : int32, v1 : Mut1) : bool = │
00:07:27 verbose #29003 > │ let v2 : int32 = v1.l0 │
00:07:27 verbose #29004 > │ let v3 : bool = v2 < v0 │
00:07:27 verbose #29005 > │ v3 │
00:07:27 verbose #29006 > │ and closure3 () struct (v0 : int64, v1 : int64) : int64 = │
00:07:27 verbose #29007 > │ v1 │
00:07:27 verbose #29008 > │ and method17 (v0 : UH4, v1 : uint64) : uint64 = │
00:07:27 verbose #29009 > │ match v0 with │
00:07:27 verbose #29010 > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #29011 > │ let v5 : uint64 = v1 + 1UL │
00:07:27 verbose #29012 > │ method17(v4, v5) │
00:07:27 verbose #29013 > │ | UH4_0 -> (* Nil *) │
00:07:27 verbose #29014 > │ v1 │
00:07:27 verbose #29015 > │ and method18 (v0 : (struct (UH2 * US0) []), v1 : UH4, v2 : uint64) : uint64 │
00:07:27 verbose #29016 > │ = │
00:07:27 verbose #29017 > │ match v1 with │
00:07:27 verbose #29018 > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #29019 > │ v0.[int v2] <- struct (v3, v4) │
00:07:27 verbose #29020 > │ let v6 : uint64 = v2 + 1UL │
00:07:27 verbose #29021 > │ method18(v0, v5, v6) │
00:07:27 verbose #29022 > │ | UH4_0 -> (* Nil *) │
00:07:27 verbose #29023 > │ v2 │
00:07:27 verbose #29024 > │ and method16 (v0 : UH4) : (struct (UH2 * US0) []) = │
00:07:27 verbose #29025 > │ let v1 : uint64 = 0UL │
00:07:27 verbose #29026 > │ let v2 : uint64 = method17(v0, v1) │
00:07:27 verbose #29027 > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:07:27 verbose #29028 > │ (System.Convert.ToInt32(v2)) │
00:07:27 verbose #29029 > │ let v4 : uint64 = 0UL │
00:07:27 verbose #29030 > │ let v5 : uint64 = method18(v3, v0, v4) │
00:07:27 verbose #29031 > │ v3 │
00:07:27 verbose #29032 > │ and method20 (v0 : UH2, v1 : uint64) : uint64 = │
00:07:27 verbose #29033 > │ match v0 with │
00:07:27 verbose #29034 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:27 verbose #29035 > │ let v4 : uint64 = v1 + 1UL │
00:07:27 verbose #29036 > │ method20(v3, v4) │
00:07:27 verbose #29037 > │ | UH2_0 -> (* Nil *) │
00:07:27 verbose #29038 > │ v1 │
00:07:27 verbose #29039 > │ and method21 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:07:27 verbose #29040 > │ match v1 with │
00:07:27 verbose #29041 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:27 verbose #29042 > │ v0.[int v2] <- v3 │
00:07:27 verbose #29043 > │ let v5 : uint64 = v2 + 1UL │
00:07:27 verbose #29044 > │ method21(v0, v4, v5) │
00:07:27 verbose #29045 > │ | UH2_0 -> (* Nil *) │
00:07:27 verbose #29046 > │ v2 │
00:07:27 verbose #29047 > │ and method19 (v0 : UH2) : (string []) = │
00:07:27 verbose #29048 > │ let v1 : uint64 = 0UL │
00:07:27 verbose #29049 > │ let v2 : uint64 = method20(v0, v1) │
00:07:27 verbose #29050 > │ let v3 : (string []) = Array.zeroCreate<string> │
00:07:27 verbose #29051 > │ (System.Convert.ToInt32(v2)) │
00:07:27 verbose #29052 > │ let v4 : uint64 = 0UL │
00:07:27 verbose #29053 > │ let v5 : uint64 = method21(v3, v0, v4) │
00:07:27 verbose #29054 > │ v3 │
00:07:27 verbose #29055 > │ and closure4 () (v0 : int64) : US1 = │
00:07:27 verbose #29056 > │ US1_0(v0) │
00:07:27 verbose #29057 > │ and method22 () : (int64 -> US1) = │
00:07:27 verbose #29058 > │ closure4() │
00:07:27 verbose #29059 > │ and method23 (v0 : uint64, v1 : Mut3) : bool = │
00:07:27 verbose #29060 > │ let v2 : uint64 = v1.l0 │
00:07:27 verbose #29061 > │ let v3 : bool = v2 < v0 │
00:07:27 verbose #29062 > │ v3 │
00:07:27 verbose #29063 > │ and method24 (v0 : UH5, v1 : UH5) : UH5 = │
00:07:27 verbose #29064 > │ match v0 with │
00:07:27 verbose #29065 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #29066 > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:07:27 verbose #29067 > │ method24(v4, v5) │
00:07:27 verbose #29068 > │ | UH5_0 -> (* Nil *) │
00:07:27 verbose #29069 > │ v1 │
00:07:27 verbose #29070 > │ and method26 (v0 : UH5, v1 : int32) : int32 = │
00:07:27 verbose #29071 > │ match v0 with │
00:07:27 verbose #29072 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #29073 > │ let v5 : int32 = v1 + 1 │
00:07:27 verbose #29074 > │ method26(v4, v5) │
00:07:27 verbose #29075 > │ | UH5_0 -> (* Nil *) │
00:07:27 verbose #29076 > │ v1 │
00:07:27 verbose #29077 > │ and method27 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:07:27 verbose #29078 > │ int32 = │
00:07:27 verbose #29079 > │ match v1 with │
00:07:27 verbose #29080 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #29081 > │ v0.[int v2] <- struct (v3, v4) │
00:07:27 verbose #29082 > │ let v6 : int32 = v2 + 1 │
00:07:27 verbose #29083 > │ method27(v0, v5, v6) │
00:07:27 verbose #29084 > │ | UH5_0 -> (* Nil *) │
00:07:27 verbose #29085 > │ v2 │
00:07:27 verbose #29086 > │ and method25 (v0 : UH5) : (struct (int32 * int64) []) = │
00:07:27 verbose #29087 > │ let v1 : int32 = 0 │
00:07:27 verbose #29088 > │ let v2 : int32 = method26(v0, v1) │
00:07:27 verbose #29089 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:07:27 verbose #29090 > │ int64)> (v2) │
00:07:27 verbose #29091 > │ let v4 : int32 = 0 │
00:07:27 verbose #29092 > │ let v5 : int32 = method27(v3, v0, v4) │
00:07:27 verbose #29093 > │ v3 │
00:07:27 verbose #29094 > │ and method28 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:07:27 verbose #29095 > │ match v0 with │
00:07:27 verbose #29096 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:27 verbose #29097 > │ let v5 : int32 = v2 + 1 │
00:07:27 verbose #29098 > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:07:27 verbose #29099 > │ method28(v4, v6, v5) │
00:07:27 verbose #29100 > │ | UH2_0 -> (* Nil *) │
00:07:27 verbose #29101 > │ struct (v1, v2) │
00:07:27 verbose #29102 > │ and method29 (v0 : UH6, v1 : UH6) : UH6 = │
00:07:27 verbose #29103 > │ match v0 with │
00:07:27 verbose #29104 > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #29105 > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:07:27 verbose #29106 > │ method29(v4, v5) │
00:07:27 verbose #29107 > │ | UH6_0 -> (* Nil *) │
00:07:27 verbose #29108 > │ v1 │
00:07:27 verbose #29109 > │ and method30 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:07:27 verbose #29110 > │ match v1 with │
00:07:27 verbose #29111 > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #29112 > │ let v6 : UH2 = method30(v0, v5, v2) │
00:07:27 verbose #29113 > │ let v7 : int64 = v0.[v3] │
00:07:27 verbose #29114 > │ let v8 : int32 = int32 v7 │
00:07:27 verbose #29115 > │ let v9 : string = v4.PadRight v8 │
00:07:27 verbose #29116 > │ UH2_1(v9, v6) │
00:07:27 verbose #29117 > │ | UH6_0 -> (* Nil *) │
00:07:27 verbose #29118 > │ v2 │
00:07:27 verbose #29119 > │ and method32 (v0 : UH2, v1 : int32) : int32 = │
00:07:27 verbose #29120 > │ match v0 with │
00:07:27 verbose #29121 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:07:27 verbose #29122 > │ let v4 : int32 = v1 + 1 │
00:07:27 verbose #29123 > │ method32(v3, v4) │
00:07:27 verbose #29124 > │ | UH2_0 -> (* Nil *) │
00:07:27 verbose #29125 > │ v1 │
00:07:27 verbose #29126 > │ and method33 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:07:27 verbose #29127 > │ match v1 with │
00:07:27 verbose #29128 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:07:27 verbose #29129 > │ v0.[int v2] <- v3 │
00:07:27 verbose #29130 > │ let v5 : int32 = v2 + 1 │
00:07:27 verbose #29131 > │ method33(v0, v4, v5) │
00:07:27 verbose #29132 > │ | UH2_0 -> (* Nil *) │
00:07:27 verbose #29133 > │ v2 │
00:07:27 verbose #29134 > │ and method31 (v0 : UH2) : (string []) = │
00:07:27 verbose #29135 > │ let v1 : int32 = 0 │
00:07:27 verbose #29136 > │ let v2 : int32 = method32(v0, v1) │
00:07:27 verbose #29137 > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:07:27 verbose #29138 > │ let v4 : int32 = 0 │
00:07:27 verbose #29139 > │ let v5 : int32 = method33(v3, v0, v4) │
00:07:27 verbose #29140 > │ v3 │
00:07:27 verbose #29141 > │ and method35 (v0 : UH5, v1 : uint64) : uint64 = │
00:07:27 verbose #29142 > │ match v0 with │
00:07:27 verbose #29143 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:07:27 verbose #29144 > │ let v5 : uint64 = v1 + 1UL │
00:07:27 verbose #29145 > │ method35(v4, v5) │
00:07:27 verbose #29146 > │ | UH5_0 -> (* Nil *) │
00:07:27 verbose #29147 > │ v1 │
00:07:27 verbose #29148 > │ and method36 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:07:27 verbose #29149 > │ uint64 = │
00:07:27 verbose #29150 > │ match v1 with │
00:07:27 verbose #29151 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:07:27 verbose #29152 > │ v0.[int v2] <- struct (v3, v4) │
00:07:27 verbose #29153 > │ let v6 : uint64 = v2 + 1UL │
00:07:27 verbose #29154 > │ method36(v0, v5, v6) │
00:07:27 verbose #29155 > │ | UH5_0 -> (* Nil *) │
00:07:27 verbose #29156 > │ v2 │
00:07:27 verbose #29157 > │ and method34 (v0 : UH5) : (struct (int32 * int64) []) = │
00:07:27 verbose #29158 > │ let v1 : uint64 = 0UL │
00:07:27 verbose #29159 > │ let v2 : uint64 = method35(v0, v1) │
00:07:27 verbose #29160 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:07:27 verbose #29161 > │ int64)> (System.Convert.ToInt32(v2)) │
00:07:27 verbose #29162 > │ let v4 : uint64 = 0UL │
00:07:27 verbose #29163 > │ let v5 : uint64 = method36(v3, v0, v4) │
00:07:27 verbose #29164 > │ v3 │
00:07:27 verbose #29165 > │ and closure5 () struct (v0 : int32, v1 : int64) : int64 = │
00:07:27 verbose #29166 > │ v1 │
00:07:27 verbose #29167 > │ and closure0 () () : unit = │
00:07:27 verbose #29168 > │ let v0 : (unit -> unit) = closure0() │
00:07:27 verbose #29169 > │ let v1 : string = nameof v0 │
00:07:27 verbose #29170 > │ let v2 : string = "" │
00:07:27 verbose #29171 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29172 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29173 > │ let v3 : string = $"Test: {v1}" │
00:07:27 verbose #29174 > │ System.Console.WriteLine v3 │
00:07:27 verbose #29175 > │ let v4 : float = 0.0 │
00:07:27 verbose #29176 > │ let v5 : float = 1.0 │
00:07:27 verbose #29177 > │ let v6 : float = 2.0 │
00:07:27 verbose #29178 > │ let v7 : float = 3.0 │
00:07:27 verbose #29179 > │ let v8 : float = 5.0 │
00:07:27 verbose #29180 > │ let v9 : float = 6.0 │
00:07:27 verbose #29181 > │ let v10 : UH0 = UH0_0 │
00:07:27 verbose #29182 > │ let v11 : UH0 = UH0_1(v8, v9, v10) │
00:07:27 verbose #29183 > │ let v12 : UH0 = UH0_1(v6, v7, v11) │
00:07:27 verbose #29184 > │ let v13 : UH0 = UH0_1(v4, v5, v12) │
00:07:27 verbose #29185 > │ let v14 : (struct (float * float) []) = method1(v13) │
00:07:27 verbose #29186 > │ let v15 : uint64 = System.Convert.ToUInt64 v14.Length │
00:07:27 verbose #29187 > │ let v16 : (struct (string * string * string * (int64 [])) []) = │
00:07:27 verbose #29188 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:07:27 verbose #29189 > │ (System.Convert.ToInt32(v15)) │
00:07:27 verbose #29190 > │ let v17 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29191 > │ while method4(v15, v17) do │
00:07:27 verbose #29192 > │ let v19 : uint64 = v17.l0 │
00:07:27 verbose #29193 > │ let struct (v20 : float, v21 : float) = v14.[int v19] │
00:07:27 verbose #29194 > │ let v22 : string = $"%A{v20}" │
00:07:27 verbose #29195 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29196 > │ let v23 : string = $"Solution: {v22} " │
00:07:27 verbose #29197 > │ System.Console.WriteLine v23 │
00:07:27 verbose #29198 > │ let v24 : int32 = 0 │
00:07:27 verbose #29199 > │ let v25 : string = "A" │
00:07:27 verbose #29200 > │ let v26 : (float -> float) = closure1() │
00:07:27 verbose #29201 > │ let v27 : UH1 = UH1_0 │
00:07:27 verbose #29202 > │ let v28 : UH1 = UH1_1(v24, v25, v26, v27) │
00:07:27 verbose #29203 > │ let v29 : (struct (int32 * string * (float -> float)) []) = │
00:07:27 verbose #29204 > │ method5(v28) │
00:07:27 verbose #29205 > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:07:27 verbose #29206 > │ let v31 : (struct (float * int64) []) = Array.zeroCreate<struct │
00:07:27 verbose #29207 > │ (float * int64)> (System.Convert.ToInt32(v30)) │
00:07:27 verbose #29208 > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29209 > │ while method4(v30, v32) do │
00:07:27 verbose #29210 > │ let v34 : uint64 = v32.l0 │
00:07:27 verbose #29211 > │ let struct (v35 : int32, v36 : string, v37 : (float -> float)) = │
00:07:27 verbose #29212 > │ v29.[int v34] │
00:07:27 verbose #29213 > │ let v38 : unit option = None │
00:07:27 verbose #29214 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:07:27 verbose #29215 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:27 verbose #29216 > │ () │
00:07:27 verbose #29217 > │ #endif │
00:07:27 verbose #29218 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:27 verbose #29219 > │ () │
00:07:27 verbose #29220 > │ #endif │
00:07:27 verbose #29221 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:27 verbose #29222 > │ () │
00:07:27 verbose #29223 > │ #endif │
00:07:27 verbose #29224 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:27 verbose #29225 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:27 verbose #29226 > │ System.GC.Collect () │
00:07:27 verbose #29227 > │ () │
00:07:27 verbose #29228 > │ #endif │
00:07:27 verbose #29229 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:27 verbose #29230 > │ () │
00:07:27 verbose #29231 > │ #endif │
00:07:27 verbose #29232 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:27 verbose #29233 > │ FABLE_COMPILER_DART │
00:07:27 verbose #29234 > │ Unchecked.defaultof<unit> │
00:07:27 verbose #29235 > │ () │
00:07:27 verbose #29236 > │ #endif │
00:07:27 verbose #29237 > │ |> fun x -> _v38 <- Some x │
00:07:27 verbose #29238 > │ _v38.Value │
00:07:27 verbose #29239 > │ let v40 : (unit -> System.Diagnostics.Stopwatch) = │
00:07:27 verbose #29240 > │ System.Diagnostics.Stopwatch │
00:07:27 verbose #29241 > │ let v41 : System.Diagnostics.Stopwatch = v40 () │
00:07:27 verbose #29242 > │ v41.Start () │
00:07:27 verbose #29243 > │ let v42 : int64 = v41.ElapsedMilliseconds │
00:07:27 verbose #29244 > │ let v43 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:07:27 verbose #29245 > │ let v44 : Mut1 = {l0 = 0} : Mut1 │
00:07:27 verbose #29246 > │ while method8(v44) do │
00:07:27 verbose #29247 > │ let v46 : int32 = v44.l0 │
00:07:27 verbose #29248 > │ v43.[int v46] <- v46 │
00:07:27 verbose #29249 > │ let v47 : int32 = v46 + 1 │
00:07:27 verbose #29250 > │ v44.l0 <- v47 │
00:07:27 verbose #29251 > │ () │
00:07:27 verbose #29252 > │ let v48 : ((int32 -> float) -> ((int32 []) -> (float []))) = │
00:07:27 verbose #29253 > │ Array.Parallel.map │
00:07:27 verbose #29254 > │ let v49 : (int32 -> float) = closure2(v20, v37) │
00:07:27 verbose #29255 > │ let v50 : ((int32 []) -> (float [])) = v48 v49 │
00:07:27 verbose #29256 > │ let v51 : (float []) = v50 v43 │
00:07:27 verbose #29257 > │ let v52 : int32 = v51.Length │
00:07:27 verbose #29258 > │ let v53 : int32 = v52 - 1 │
00:07:27 verbose #29259 > │ let v54 : float = v51.[int v53] │
00:07:27 verbose #29260 > │ let v55 : int64 = v41.ElapsedMilliseconds │
00:07:27 verbose #29261 > │ let v56 : int64 = v55 - v42 │
00:07:27 verbose #29262 > │ let v57 : string = $"Test case {v35 + 1}. {v36}. Time: {v56} " │
00:07:27 verbose #29263 > │ System.Console.WriteLine v57 │
00:07:27 verbose #29264 > │ v31.[int v34] <- struct (v54, v56) │
00:07:27 verbose #29265 > │ let v58 : uint64 = v34 + 1UL │
00:07:27 verbose #29266 > │ v32.l0 <- v58 │
00:07:27 verbose #29267 > │ () │
00:07:27 verbose #29268 > │ let v59 : uint64 = System.Convert.ToUInt64 v31.Length │
00:07:27 verbose #29269 > │ let v60 : (float []) = Array.zeroCreate<float> │
00:07:27 verbose #29270 > │ (System.Convert.ToInt32(v59)) │
00:07:27 verbose #29271 > │ let v61 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29272 > │ while method4(v59, v61) do │
00:07:27 verbose #29273 > │ let v63 : uint64 = v61.l0 │
00:07:27 verbose #29274 > │ let struct (v64 : float, v65 : int64) = v31.[int v63] │
00:07:27 verbose #29275 > │ v60.[int v63] <- v64 │
00:07:27 verbose #29276 > │ let v66 : uint64 = v63 + 1UL │
00:07:27 verbose #29277 > │ v61.l0 <- v66 │
00:07:27 verbose #29278 > │ () │
00:07:27 verbose #29279 > │ let v67 : uint64 = System.Convert.ToUInt64 v60.Length │
00:07:27 verbose #29280 > │ let v68 : bool = v67 <= 1UL │
00:07:27 verbose #29281 > │ if v68 then │
00:07:27 verbose #29282 > │ () │
00:07:27 verbose #29283 > │ else │
00:07:27 verbose #29284 > │ let v69 : float = v60.[int 0UL] │
00:07:27 verbose #29285 > │ let v70 : uint64 = 0UL │
00:07:27 verbose #29286 > │ let v71 : bool = method9(v69, v60, v70) │
00:07:27 verbose #29287 > │ if v71 then │
00:07:27 verbose #29288 > │ () │
00:07:27 verbose #29289 > │ else │
00:07:27 verbose #29290 > │ let v72 : string = $"Challenge error: {v60}" │
00:07:27 verbose #29291 > │ failwith<unit> v72 │
00:07:27 verbose #29292 > │ let v73 : string = $"%A{v21}" │
00:07:27 verbose #29293 > │ let v74 : (float []) = Array.zeroCreate<float> │
00:07:27 verbose #29294 > │ (System.Convert.ToInt32(v59)) │
00:07:27 verbose #29295 > │ let v75 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29296 > │ while method4(v59, v75) do │
00:07:27 verbose #29297 > │ let v77 : uint64 = v75.l0 │
00:07:27 verbose #29298 > │ let struct (v78 : float, v79 : int64) = v31.[int v77] │
00:07:27 verbose #29299 > │ v74.[int v77] <- v78 │
00:07:27 verbose #29300 > │ let v80 : uint64 = v77 + 1UL │
00:07:27 verbose #29301 > │ v75.l0 <- v80 │
00:07:27 verbose #29302 > │ () │
00:07:27 verbose #29303 > │ let v81 : float = v74.[int 0UL] │
00:07:27 verbose #29304 > │ let v82 : string = $"%A{v81}" │
00:07:27 verbose #29305 > │ let v83 : (int64 []) = Array.zeroCreate<int64> │
00:07:27 verbose #29306 > │ (System.Convert.ToInt32(v59)) │
00:07:27 verbose #29307 > │ let v84 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29308 > │ while method4(v59, v84) do │
00:07:27 verbose #29309 > │ let v86 : uint64 = v84.l0 │
00:07:27 verbose #29310 > │ let struct (v87 : float, v88 : int64) = v31.[int v86] │
00:07:27 verbose #29311 > │ v83.[int v86] <- v88 │
00:07:27 verbose #29312 > │ let v89 : uint64 = v86 + 1UL │
00:07:27 verbose #29313 > │ v84.l0 <- v89 │
00:07:27 verbose #29314 > │ () │
00:07:27 verbose #29315 > │ v16.[int v19] <- struct (v73, v22, v82, v83) │
00:07:27 verbose #29316 > │ let v90 : uint64 = v19 + 1UL │
00:07:27 verbose #29317 > │ v17.l0 <- v90 │
00:07:27 verbose #29318 > │ () │
00:07:27 verbose #29319 > │ let v91 : uint64 = System.Convert.ToUInt64 v16.Length │
00:07:27 verbose #29320 > │ let v92 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:07:27 verbose #29321 > │ (System.Convert.ToInt32(v91)) │
00:07:27 verbose #29322 > │ let v93 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29323 > │ while method4(v91, v93) do │
00:07:27 verbose #29324 > │ let v95 : uint64 = v93.l0 │
00:07:27 verbose #29325 > │ let struct (v96 : string, v97 : string, v98 : string, v99 : (int64 [ │
00:07:27 verbose #29326 > │ ])) = v16.[int v95] │
00:07:27 verbose #29327 > │ let v100 : uint64 = System.Convert.ToUInt64 v99.Length │
00:07:27 verbose #29328 > │ let v101 : UH3 = UH3_0 │
00:07:27 verbose #29329 > │ let v102 : Mut2 = {l0 = 0UL; l1 = v101; l2 = 0L} : Mut2 │
00:07:27 verbose #29330 > │ while method10(v100, v102) do │
00:07:27 verbose #29331 > │ let v104 : uint64 = v102.l0 │
00:07:27 verbose #29332 > │ let struct (v105 : UH3, v106 : int64) = v102.l1, v102.l2 │
00:07:27 verbose #29333 > │ let v107 : int64 = v99.[int v104] │
00:07:27 verbose #29334 > │ let v108 : int64 = v106 + 1L │
00:07:27 verbose #29335 > │ let v109 : uint64 = v104 + 1UL │
00:07:27 verbose #29336 > │ let v110 : UH3 = UH3_1(v106, v107, v105) │
00:07:27 verbose #29337 > │ v102.l0 <- v109 │
00:07:27 verbose #29338 > │ v102.l1 <- v110 │
00:07:27 verbose #29339 > │ v102.l2 <- v108 │
00:07:27 verbose #29340 > │ () │
00:07:27 verbose #29341 > │ let struct (v111 : UH3, v112 : int64) = v102.l1, v102.l2 │
00:07:27 verbose #29342 > │ let v113 : UH3 = UH3_0 │
00:07:27 verbose #29343 > │ let v114 : UH3 = method11(v111, v113) │
00:07:27 verbose #29344 > │ let v115 : (struct (int64 * int64) []) = method12(v114) │
00:07:27 verbose #29345 > │ let v116 : int32 = v115.Length │
00:07:27 verbose #29346 > │ let v117 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:07:27 verbose #29347 > │ (int64 * int64)> (v116) │
00:07:27 verbose #29348 > │ let v118 : Mut1 = {l0 = 0} : Mut1 │
00:07:27 verbose #29349 > │ while method15(v116, v118) do │
00:07:27 verbose #29350 > │ let v120 : int32 = v118.l0 │
00:07:27 verbose #29351 > │ let struct (v121 : int64, v122 : int64) = v115.[int v120] │
00:07:27 verbose #29352 > │ let v123 : int64 = v121 + 1L │
00:07:27 verbose #29353 > │ v117.[int v120] <- struct (v123, v122) │
00:07:27 verbose #29354 > │ let v124 : int32 = v120 + 1 │
00:07:27 verbose #29355 > │ v118.l0 <- v124 │
00:07:27 verbose #29356 > │ () │
00:07:27 verbose #29357 > │ let v125 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:07:27 verbose #29358 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:07:27 verbose #29359 > │ let v126 : (struct (int64 * int64) -> int64) = closure3() │
00:07:27 verbose #29360 > │ let v127 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:07:27 verbose #29361 > │ ])) = v125 v126 │
00:07:27 verbose #29362 > │ let v128 : (struct (int64 * int64) []) = v127 v117 │
00:07:27 verbose #29363 > │ let struct (v129 : int64, v130 : int64) = v128.[int 0] │
00:07:27 verbose #29364 > │ let v131 : string = $"%A{struct (v129, v130)}" │
00:07:27 verbose #29365 > │ let v132 : bool = v96 = v98 │
00:07:27 verbose #29366 > │ let v137 : US0 = │
00:07:27 verbose #29367 > │ if v132 then │
00:07:27 verbose #29368 > │ let v133 : System.ConsoleColor = │
00:07:27 verbose #29369 > │ System.ConsoleColor.DarkGreen │
00:07:27 verbose #29370 > │ US0_0(v133) │
00:07:27 verbose #29371 > │ else │
00:07:27 verbose #29372 > │ let v135 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:07:27 verbose #29373 > │ US0_0(v135) │
00:07:27 verbose #29374 > │ let v138 : UH2 = UH2_0 │
00:07:27 verbose #29375 > │ let v139 : UH2 = UH2_1(v131, v138) │
00:07:27 verbose #29376 > │ let v140 : UH2 = UH2_1(v98, v139) │
00:07:27 verbose #29377 > │ let v141 : UH2 = UH2_1(v96, v140) │
00:07:27 verbose #29378 > │ let v142 : UH2 = UH2_1(v97, v141) │
00:07:27 verbose #29379 > │ v92.[int v95] <- struct (v142, v137) │
00:07:27 verbose #29380 > │ let v143 : uint64 = v95 + 1UL │
00:07:27 verbose #29381 > │ v93.l0 <- v143 │
00:07:27 verbose #29382 > │ () │
00:07:27 verbose #29383 > │ let v144 : string = "Input" │
00:07:27 verbose #29384 > │ let v145 : string = "Expected" │
00:07:27 verbose #29385 > │ let v146 : string = "Result" │
00:07:27 verbose #29386 > │ let v147 : string = "Best" │
00:07:27 verbose #29387 > │ let v148 : UH2 = UH2_0 │
00:07:27 verbose #29388 > │ let v149 : UH2 = UH2_1(v147, v148) │
00:07:27 verbose #29389 > │ let v150 : UH2 = UH2_1(v146, v149) │
00:07:27 verbose #29390 > │ let v151 : UH2 = UH2_1(v145, v150) │
00:07:27 verbose #29391 > │ let v152 : UH2 = UH2_1(v144, v151) │
00:07:27 verbose #29392 > │ let v153 : US0 = US0_1 │
00:07:27 verbose #29393 > │ let v154 : string = "---" │
00:07:27 verbose #29394 > │ let v155 : UH2 = UH2_0 │
00:07:27 verbose #29395 > │ let v156 : UH2 = UH2_1(v154, v155) │
00:07:27 verbose #29396 > │ let v157 : UH2 = UH2_1(v154, v156) │
00:07:27 verbose #29397 > │ let v158 : UH2 = UH2_1(v154, v157) │
00:07:27 verbose #29398 > │ let v159 : UH2 = UH2_1(v154, v158) │
00:07:27 verbose #29399 > │ let v160 : US0 = US0_1 │
00:07:27 verbose #29400 > │ let v161 : UH4 = UH4_0 │
00:07:27 verbose #29401 > │ let v162 : UH4 = UH4_1(v159, v160, v161) │
00:07:27 verbose #29402 > │ let v163 : UH4 = UH4_1(v152, v153, v162) │
00:07:27 verbose #29403 > │ let v164 : (struct (UH2 * US0) []) = method16(v163) │
00:07:27 verbose #29404 > │ let v165 : uint64 = System.Convert.ToUInt64 v164.Length │
00:07:27 verbose #29405 > │ let v166 : uint64 = System.Convert.ToUInt64 v92.Length │
00:07:27 verbose #29406 > │ let v167 : uint64 = v165 + v166 │
00:07:27 verbose #29407 > │ let v168 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:07:27 verbose #29408 > │ US0)> (System.Convert.ToInt32(v167)) │
00:07:27 verbose #29409 > │ let v169 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29410 > │ while method4(v167, v169) do │
00:07:27 verbose #29411 > │ let v171 : uint64 = v169.l0 │
00:07:27 verbose #29412 > │ let v172 : bool = v171 < v165 │
00:07:27 verbose #29413 > │ let struct (v178 : UH2, v179 : US0) = │
00:07:27 verbose #29414 > │ if v172 then │
00:07:27 verbose #29415 > │ let struct (v173 : UH2, v174 : US0) = v164.[int v171] │
00:07:27 verbose #29416 > │ struct (v173, v174) │
00:07:27 verbose #29417 > │ else │
00:07:27 verbose #29418 > │ let v175 : uint64 = v171 - v165 │
00:07:27 verbose #29419 > │ let struct (v176 : UH2, v177 : US0) = v92.[int v175] │
00:07:27 verbose #29420 > │ struct (v176, v177) │
00:07:27 verbose #29421 > │ v168.[int v171] <- struct (v178, v179) │
00:07:27 verbose #29422 > │ let v180 : uint64 = v171 + 1UL │
00:07:27 verbose #29423 > │ v169.l0 <- v180 │
00:07:27 verbose #29424 > │ () │
00:07:27 verbose #29425 > │ let v181 : uint64 = System.Convert.ToUInt64 v168.Length │
00:07:27 verbose #29426 > │ let v182 : ((string []) []) = Array.zeroCreate<(string [])> │
00:07:27 verbose #29427 > │ (System.Convert.ToInt32(v181)) │
00:07:27 verbose #29428 > │ let v183 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29429 > │ while method4(v181, v183) do │
00:07:27 verbose #29430 > │ let v185 : uint64 = v183.l0 │
00:07:27 verbose #29431 > │ let struct (v186 : UH2, v187 : US0) = v168.[int v185] │
00:07:27 verbose #29432 > │ let v188 : (string []) = method19(v186) │
00:07:27 verbose #29433 > │ v182.[int v185] <- v188 │
00:07:27 verbose #29434 > │ let v189 : uint64 = v185 + 1UL │
00:07:27 verbose #29435 > │ v183.l0 <- v189 │
00:07:27 verbose #29436 > │ () │
00:07:27 verbose #29437 > │ let v190 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:07:27 verbose #29438 > │ let v191 : ((string []) []) = v190 v182 │
00:07:27 verbose #29439 > │ let v192 : uint64 = System.Convert.ToUInt64 v191.Length │
00:07:27 verbose #29440 > │ let v193 : (int64 []) = Array.zeroCreate<int64> │
00:07:27 verbose #29441 > │ (System.Convert.ToInt32(v192)) │
00:07:27 verbose #29442 > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29443 > │ while method4(v192, v194) do │
00:07:27 verbose #29444 > │ let v196 : uint64 = v194.l0 │
00:07:27 verbose #29445 > │ let v197 : (string []) = v191.[int v196] │
00:07:27 verbose #29446 > │ let v198 : uint64 = System.Convert.ToUInt64 v197.Length │
00:07:27 verbose #29447 > │ let v199 : (int64 []) = Array.zeroCreate<int64> │
00:07:27 verbose #29448 > │ (System.Convert.ToInt32(v198)) │
00:07:27 verbose #29449 > │ let v200 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29450 > │ while method4(v198, v200) do │
00:07:27 verbose #29451 > │ let v202 : uint64 = v200.l0 │
00:07:27 verbose #29452 > │ let v203 : string = v197.[int v202] │
00:07:27 verbose #29453 > │ let v204 : int64 = System.Convert.ToInt64 v203.Length │
00:07:27 verbose #29454 > │ v199.[int v202] <- v204 │
00:07:27 verbose #29455 > │ let v205 : uint64 = v202 + 1UL │
00:07:27 verbose #29456 > │ v200.l0 <- v205 │
00:07:27 verbose #29457 > │ () │
00:07:27 verbose #29458 > │ let v206 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:07:27 verbose #29459 > │ let v207 : (int64 []) = v206 v199 │
00:07:27 verbose #29460 > │ let v208 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:07:27 verbose #29461 > │ let v209 : ((int64 []) -> int64 option) = v208 0 │
00:07:27 verbose #29462 > │ let v210 : int64 option = v209 v207 │
00:07:27 verbose #29463 > │ let v211 : (int64 -> US1) = method22() │
00:07:27 verbose #29464 > │ let v212 : US1 = US1_1 │
00:07:27 verbose #29465 > │ let v213 : US1 = v210 |> Option.map v211 |> Option.defaultValue v212 │
00:07:27 verbose #29466 > │ let v216 : int64 = │
00:07:27 verbose #29467 > │ match v213 with │
00:07:27 verbose #29468 > │ | US1_1 -> (* None *) │
00:07:27 verbose #29469 > │ 0L │
00:07:27 verbose #29470 > │ | US1_0(v214) -> (* Some *) │
00:07:27 verbose #29471 > │ v214 │
00:07:27 verbose #29472 > │ v193.[int v196] <- v216 │
00:07:27 verbose #29473 > │ let v217 : uint64 = v196 + 1UL │
00:07:27 verbose #29474 > │ v194.l0 <- v217 │
00:07:27 verbose #29475 > │ () │
00:07:27 verbose #29476 > │ let v218 : uint64 = System.Convert.ToUInt64 v193.Length │
00:07:27 verbose #29477 > │ let v219 : UH5 = UH5_0 │
00:07:27 verbose #29478 > │ let v220 : Mut3 = {l0 = 0UL; l1 = v219; l2 = 0} : Mut3 │
00:07:27 verbose #29479 > │ while method23(v218, v220) do │
00:07:27 verbose #29480 > │ let v222 : uint64 = v220.l0 │
00:07:27 verbose #29481 > │ let struct (v223 : UH5, v224 : int32) = v220.l1, v220.l2 │
00:07:27 verbose #29482 > │ let v225 : int64 = v193.[int v222] │
00:07:27 verbose #29483 > │ let v226 : int32 = v224 + 1 │
00:07:27 verbose #29484 > │ let v227 : uint64 = v222 + 1UL │
00:07:27 verbose #29485 > │ let v228 : UH5 = UH5_1(v224, v225, v223) │
00:07:27 verbose #29486 > │ v220.l0 <- v227 │
00:07:27 verbose #29487 > │ v220.l1 <- v228 │
00:07:27 verbose #29488 > │ v220.l2 <- v226 │
00:07:27 verbose #29489 > │ () │
00:07:27 verbose #29490 > │ let struct (v229 : UH5, v230 : int32) = v220.l1, v220.l2 │
00:07:27 verbose #29491 > │ let v231 : UH5 = UH5_0 │
00:07:27 verbose #29492 > │ let v232 : UH5 = method24(v229, v231) │
00:07:27 verbose #29493 > │ let v233 : (struct (int32 * int64) []) = method25(v232) │
00:07:27 verbose #29494 > │ let v234 : Map<int32, int64> = v233 |> Array.map (fun (struct (a, b)) -> │
00:07:27 verbose #29495 > │ a, b) |> Map.ofArray │
00:07:27 verbose #29496 > │ let v235 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:07:27 verbose #29497 > │ ((string []) * US0)> (System.Convert.ToInt32(v181)) │
00:07:27 verbose #29498 > │ let v236 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29499 > │ while method4(v181, v236) do │
00:07:27 verbose #29500 > │ let v238 : uint64 = v236.l0 │
00:07:27 verbose #29501 > │ let struct (v239 : UH2, v240 : US0) = v168.[int v238] │
00:07:27 verbose #29502 > │ let v241 : UH6 = UH6_0 │
00:07:27 verbose #29503 > │ let v242 : int32 = 0 │
00:07:27 verbose #29504 > │ let struct (v243 : UH6, v244 : int32) = method28(v239, v241, v242) │
00:07:27 verbose #29505 > │ let v245 : UH6 = UH6_0 │
00:07:27 verbose #29506 > │ let v246 : UH6 = method29(v243, v245) │
00:07:27 verbose #29507 > │ let v247 : UH2 = UH2_0 │
00:07:27 verbose #29508 > │ let v248 : UH2 = method30(v234, v246, v247) │
00:07:27 verbose #29509 > │ let v249 : (string []) = method31(v248) │
00:07:27 verbose #29510 > │ v235.[int v238] <- struct (v249, v240) │
00:07:27 verbose #29511 > │ let v250 : uint64 = v238 + 1UL │
00:07:27 verbose #29512 > │ v236.l0 <- v250 │
00:07:27 verbose #29513 > │ () │
00:07:27 verbose #29514 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29515 > │ let v251 : uint64 = System.Convert.ToUInt64 v235.Length │
00:07:27 verbose #29516 > │ let v252 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29517 > │ while method4(v251, v252) do │
00:07:27 verbose #29518 > │ let v254 : uint64 = v252.l0 │
00:07:27 verbose #29519 > │ let struct (v255 : (string []), v256 : US0) = v235.[int v254] │
00:07:27 verbose #29520 > │ match v256 with │
00:07:27 verbose #29521 > │ | US0_1 -> (* None *) │
00:07:27 verbose #29522 > │ let v260 : unit option = None │
00:07:27 verbose #29523 > │ let v261 : bool = true in let mutable _v260 = v260 │
00:07:27 verbose #29524 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:27 verbose #29525 > │ () │
00:07:27 verbose #29526 > │ #endif │
00:07:27 verbose #29527 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:27 verbose #29528 > │ () │
00:07:27 verbose #29529 > │ #endif │
00:07:27 verbose #29530 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:27 verbose #29531 > │ () │
00:07:27 verbose #29532 > │ #endif │
00:07:27 verbose #29533 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:27 verbose #29534 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:27 verbose #29535 > │ System.Console.ResetColor () │
00:07:27 verbose #29536 > │ () │
00:07:27 verbose #29537 > │ #endif │
00:07:27 verbose #29538 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:27 verbose #29539 > │ () │
00:07:27 verbose #29540 > │ #endif │
00:07:27 verbose #29541 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:27 verbose #29542 > │ FABLE_COMPILER_DART │
00:07:27 verbose #29543 > │ Unchecked.defaultof<unit> │
00:07:27 verbose #29544 > │ () │
00:07:27 verbose #29545 > │ #endif │
00:07:27 verbose #29546 > │ |> fun x -> _v260 <- Some x │
00:07:27 verbose #29547 > │ _v260.Value │
00:07:27 verbose #29548 > │ () │
00:07:27 verbose #29549 > │ | US0_0(v257) -> (* Some *) │
00:07:27 verbose #29550 > │ let v258 : unit option = None │
00:07:27 verbose #29551 > │ let v259 : bool = true in let mutable _v258 = v258 │
00:07:27 verbose #29552 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:27 verbose #29553 > │ () │
00:07:27 verbose #29554 > │ #endif │
00:07:27 verbose #29555 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:27 verbose #29556 > │ () │
00:07:27 verbose #29557 > │ #endif │
00:07:27 verbose #29558 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:27 verbose #29559 > │ () │
00:07:27 verbose #29560 > │ #endif │
00:07:27 verbose #29561 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:27 verbose #29562 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:27 verbose #29563 > │ System.Console.ForegroundColor <- v257 │
00:07:27 verbose #29564 > │ () │
00:07:27 verbose #29565 > │ #endif │
00:07:27 verbose #29566 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:27 verbose #29567 > │ () │
00:07:27 verbose #29568 > │ #endif │
00:07:27 verbose #29569 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:27 verbose #29570 > │ FABLE_COMPILER_DART │
00:07:27 verbose #29571 > │ Unchecked.defaultof<unit> │
00:07:27 verbose #29572 > │ () │
00:07:27 verbose #29573 > │ #endif │
00:07:27 verbose #29574 > │ |> fun x -> _v258 <- Some x │
00:07:27 verbose #29575 > │ _v258.Value │
00:07:27 verbose #29576 > │ () │
00:07:27 verbose #29577 > │ let v262 : string = "\t| " │
00:07:27 verbose #29578 > │ let v263 : string = System.String.Join (v262, v255) │
00:07:27 verbose #29579 > │ System.Console.WriteLine v263 │
00:07:27 verbose #29580 > │ let v264 : unit option = None │
00:07:27 verbose #29581 > │ let v265 : bool = true in let mutable _v264 = v264 │
00:07:27 verbose #29582 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:27 verbose #29583 > │ () │
00:07:27 verbose #29584 > │ #endif │
00:07:27 verbose #29585 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:27 verbose #29586 > │ () │
00:07:27 verbose #29587 > │ #endif │
00:07:27 verbose #29588 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:27 verbose #29589 > │ () │
00:07:27 verbose #29590 > │ #endif │
00:07:27 verbose #29591 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:27 verbose #29592 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:27 verbose #29593 > │ System.Console.ResetColor () │
00:07:27 verbose #29594 > │ () │
00:07:27 verbose #29595 > │ #endif │
00:07:27 verbose #29596 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:27 verbose #29597 > │ () │
00:07:27 verbose #29598 > │ #endif │
00:07:27 verbose #29599 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:27 verbose #29600 > │ FABLE_COMPILER_DART │
00:07:27 verbose #29601 > │ Unchecked.defaultof<unit> │
00:07:27 verbose #29602 > │ () │
00:07:27 verbose #29603 > │ #endif │
00:07:27 verbose #29604 > │ |> fun x -> _v264 <- Some x │
00:07:27 verbose #29605 > │ _v264.Value │
00:07:27 verbose #29606 > │ let v266 : uint64 = v254 + 1UL │
00:07:27 verbose #29607 > │ v252.l0 <- v266 │
00:07:27 verbose #29608 > │ () │
00:07:27 verbose #29609 > │ let v267 : ((float []) []) = Array.zeroCreate<(float [])> │
00:07:27 verbose #29610 > │ (System.Convert.ToInt32(v91)) │
00:07:27 verbose #29611 > │ let v268 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29612 > │ while method4(v91, v268) do │
00:07:27 verbose #29613 > │ let v270 : uint64 = v268.l0 │
00:07:27 verbose #29614 > │ let struct (v271 : string, v272 : string, v273 : string, v274 : │
00:07:27 verbose #29615 > │ (int64 [])) = v16.[int v270] │
00:07:27 verbose #29616 > │ let v275 : (int64 -> float) = float │
00:07:27 verbose #29617 > │ let v276 : uint64 = System.Convert.ToUInt64 v274.Length │
00:07:27 verbose #29618 > │ let v277 : (float []) = Array.zeroCreate<float> │
00:07:27 verbose #29619 > │ (System.Convert.ToInt32(v276)) │
00:07:27 verbose #29620 > │ let v278 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29621 > │ while method4(v276, v278) do │
00:07:27 verbose #29622 > │ let v280 : uint64 = v278.l0 │
00:07:27 verbose #29623 > │ let v281 : int64 = v274.[int v280] │
00:07:27 verbose #29624 > │ let v282 : float = v275 v281 │
00:07:27 verbose #29625 > │ v277.[int v280] <- v282 │
00:07:27 verbose #29626 > │ let v283 : uint64 = v280 + 1UL │
00:07:27 verbose #29627 > │ v278.l0 <- v283 │
00:07:27 verbose #29628 > │ () │
00:07:27 verbose #29629 > │ v267.[int v270] <- v277 │
00:07:27 verbose #29630 > │ let v284 : uint64 = v270 + 1UL │
00:07:27 verbose #29631 > │ v268.l0 <- v284 │
00:07:27 verbose #29632 > │ () │
00:07:27 verbose #29633 > │ let v285 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:07:27 verbose #29634 > │ let v286 : ((float []) []) = v285 v267 │
00:07:27 verbose #29635 > │ let v287 : uint64 = System.Convert.ToUInt64 v286.Length │
00:07:27 verbose #29636 > │ let v288 : (float []) = Array.zeroCreate<float> │
00:07:27 verbose #29637 > │ (System.Convert.ToInt32(v287)) │
00:07:27 verbose #29638 > │ let v289 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29639 > │ while method4(v287, v289) do │
00:07:27 verbose #29640 > │ let v291 : uint64 = v289.l0 │
00:07:27 verbose #29641 > │ let v292 : (float []) = v286.[int v291] │
00:07:27 verbose #29642 > │ let v293 : ((float []) -> float) = Array.average │
00:07:27 verbose #29643 > │ let v294 : float = v293 v292 │
00:07:27 verbose #29644 > │ v288.[int v291] <- v294 │
00:07:27 verbose #29645 > │ let v295 : uint64 = v291 + 1UL │
00:07:27 verbose #29646 > │ v289.l0 <- v295 │
00:07:27 verbose #29647 > │ () │
00:07:27 verbose #29648 > │ let v296 : (float -> int64) = int64 │
00:07:27 verbose #29649 > │ let v297 : uint64 = System.Convert.ToUInt64 v288.Length │
00:07:27 verbose #29650 > │ let v298 : (int64 []) = Array.zeroCreate<int64> │
00:07:27 verbose #29651 > │ (System.Convert.ToInt32(v297)) │
00:07:27 verbose #29652 > │ let v299 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29653 > │ while method4(v297, v299) do │
00:07:27 verbose #29654 > │ let v301 : uint64 = v299.l0 │
00:07:27 verbose #29655 > │ let v302 : float = v288.[int v301] │
00:07:27 verbose #29656 > │ let v303 : int64 = v296 v302 │
00:07:27 verbose #29657 > │ v298.[int v301] <- v303 │
00:07:27 verbose #29658 > │ let v304 : uint64 = v301 + 1UL │
00:07:27 verbose #29659 > │ v299.l0 <- v304 │
00:07:27 verbose #29660 > │ () │
00:07:27 verbose #29661 > │ let v305 : uint64 = System.Convert.ToUInt64 v298.Length │
00:07:27 verbose #29662 > │ let v306 : UH5 = UH5_0 │
00:07:27 verbose #29663 > │ let v307 : Mut3 = {l0 = 0UL; l1 = v306; l2 = 0} : Mut3 │
00:07:27 verbose #29664 > │ while method23(v305, v307) do │
00:07:27 verbose #29665 > │ let v309 : uint64 = v307.l0 │
00:07:27 verbose #29666 > │ let struct (v310 : UH5, v311 : int32) = v307.l1, v307.l2 │
00:07:27 verbose #29667 > │ let v312 : int64 = v298.[int v309] │
00:07:27 verbose #29668 > │ let v313 : int32 = v311 + 1 │
00:07:27 verbose #29669 > │ let v314 : uint64 = v309 + 1UL │
00:07:27 verbose #29670 > │ let v315 : UH5 = UH5_1(v311, v312, v310) │
00:07:27 verbose #29671 > │ v307.l0 <- v314 │
00:07:27 verbose #29672 > │ v307.l1 <- v315 │
00:07:27 verbose #29673 > │ v307.l2 <- v313 │
00:07:27 verbose #29674 > │ () │
00:07:27 verbose #29675 > │ let struct (v316 : UH5, v317 : int32) = v307.l1, v307.l2 │
00:07:27 verbose #29676 > │ let v318 : UH5 = UH5_0 │
00:07:27 verbose #29677 > │ let v319 : UH5 = method24(v316, v318) │
00:07:27 verbose #29678 > │ let v320 : (struct (int32 * int64) []) = method34(v319) │
00:07:27 verbose #29679 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29680 > │ let v321 : string = "Average Ranking " │
00:07:27 verbose #29681 > │ System.Console.WriteLine v321 │
00:07:27 verbose #29682 > │ let v322 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:07:27 verbose #29683 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:07:27 verbose #29684 > │ let v323 : (struct (int32 * int64) -> int64) = closure5() │
00:07:27 verbose #29685 > │ let v324 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:07:27 verbose #29686 > │ = v322 v323 │
00:07:27 verbose #29687 > │ let v325 : (struct (int32 * int64) []) = v324 v320 │
00:07:27 verbose #29688 > │ let v326 : uint64 = System.Convert.ToUInt64 v325.Length │
00:07:27 verbose #29689 > │ let v327 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29690 > │ while method4(v326, v327) do │
00:07:27 verbose #29691 > │ let v329 : uint64 = v327.l0 │
00:07:27 verbose #29692 > │ let struct (v330 : int32, v331 : int64) = v325.[int v329] │
00:07:27 verbose #29693 > │ let v332 : string = $"Test case %d{v330 + 1}. Average Time: %A{v331} │
00:07:27 verbose #29694 > │ " │
00:07:27 verbose #29695 > │ System.Console.WriteLine v332 │
00:07:27 verbose #29696 > │ let v333 : uint64 = v329 + 1UL │
00:07:27 verbose #29697 > │ v327.l0 <- v333 │
00:07:27 verbose #29698 > │ () │
00:07:27 verbose #29699 > │ () │
00:07:27 verbose #29700 > │ and method0 () : unit = │
00:07:27 verbose #29701 > │ let v0 : (unit -> unit) = closure0() │
00:07:27 verbose #29702 > │ let v1 : string = nameof v0 │
00:07:27 verbose #29703 > │ let v2 : string = "" │
00:07:27 verbose #29704 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29705 > │ System.Console.WriteLine v2 │
00:07:27 verbose #29706 > │ let v3 : string = $"Test: {v1}" │
00:07:27 verbose #29707 > │ System.Console.WriteLine v3 │
00:07:27 verbose #29708 > │ let v4 : float = 0.0 │
00:07:27 verbose #29709 > │ let v5 : float = 1.0 │
00:07:27 verbose #29710 > │ let v6 : float = 2.0 │
00:07:27 verbose #29711 > │ let v7 : float = 3.0 │
00:07:27 verbose #29712 > │ let v8 : float = 5.0 │
00:07:27 verbose #29713 > │ let v9 : float = 6.0 │
00:07:27 verbose #29714 > │ let v10 : UH0 = UH0_0 │
00:07:27 verbose #29715 > │ let v11 : UH0 = UH0_1(v8, v9, v10) │
00:07:27 verbose #29716 > │ let v12 : UH0 = UH0_1(v6, v7, v11) │
00:07:27 verbose #29717 > │ let v13 : UH0 = UH0_1(v4, v5, v12) │
00:07:27 verbose #29718 > │ let v14 : (struct (float * float) []) = method1(v13) │
00:07:27 verbose #29719 > │ let v15 : uint64 = System.Convert.ToUInt64 v14.Length │
00:07:27 verbose #29720 > │ let v16 : (struct (string * string * string * (int64 [])) []) = │
00:07:27 verbose #29721 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:07:27 verbose #29722 > │ (System.Convert.ToInt32(v15)) │
00:07:27 verbose #29723 > │ let v17 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:27 verbose #29724 > │ while method4(v15, v17) do │
00:07:27 verbose #29725 > │ let v19 : uint64 = v17.l0 │
00:07:27 verbose #29726 > │ let struct (v20 : float, v21 : float) = v14.[int v19] │
00:07:28 verbose #29727 > │ let v22 : string = $"%A{v20}" │
00:07:28 verbose #29728 > │ System.Console.WriteLine v2 │
00:07:28 verbose #29729 > │ let v23 : string = $"Solution: {v22} " │
00:07:28 verbose #29730 > │ System.Console.WriteLine v23 │
00:07:28 verbose #29731 > │ let v24 : int32 = 0 │
00:07:28 verbose #29732 > │ let v25 : string = "A" │
00:07:28 verbose #29733 > │ let v26 : (float -> float) = closure1() │
00:07:28 verbose #29734 > │ let v27 : UH1 = UH1_0 │
00:07:28 verbose #29735 > │ let v28 : UH1 = UH1_1(v24, v25, v26, v27) │
00:07:28 verbose #29736 > │ let v29 : (struct (int32 * string * (float -> float)) []) = │
00:07:28 verbose #29737 > │ method5(v28) │
00:07:28 verbose #29738 > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:07:28 verbose #29739 > │ let v31 : (struct (float * int64) []) = Array.zeroCreate<struct │
00:07:28 verbose #29740 > │ (float * int64)> (System.Convert.ToInt32(v30)) │
00:07:28 verbose #29741 > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29742 > │ while method4(v30, v32) do │
00:07:28 verbose #29743 > │ let v34 : uint64 = v32.l0 │
00:07:28 verbose #29744 > │ let struct (v35 : int32, v36 : string, v37 : (float -> float)) = │
00:07:28 verbose #29745 > │ v29.[int v34] │
00:07:28 verbose #29746 > │ let v38 : unit option = None │
00:07:28 verbose #29747 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:07:28 verbose #29748 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:28 verbose #29749 > │ () │
00:07:28 verbose #29750 > │ #endif │
00:07:28 verbose #29751 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:28 verbose #29752 > │ () │
00:07:28 verbose #29753 > │ #endif │
00:07:28 verbose #29754 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:28 verbose #29755 > │ () │
00:07:28 verbose #29756 > │ #endif │
00:07:28 verbose #29757 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:28 verbose #29758 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:28 verbose #29759 > │ System.GC.Collect () │
00:07:28 verbose #29760 > │ () │
00:07:28 verbose #29761 > │ #endif │
00:07:28 verbose #29762 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:28 verbose #29763 > │ () │
00:07:28 verbose #29764 > │ #endif │
00:07:28 verbose #29765 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:28 verbose #29766 > │ FABLE_COMPILER_DART │
00:07:28 verbose #29767 > │ Unchecked.defaultof<unit> │
00:07:28 verbose #29768 > │ () │
00:07:28 verbose #29769 > │ #endif │
00:07:28 verbose #29770 > │ |> fun x -> _v38 <- Some x │
00:07:28 verbose #29771 > │ _v38.Value │
00:07:28 verbose #29772 > │ let v40 : (unit -> System.Diagnostics.Stopwatch) = │
00:07:28 verbose #29773 > │ System.Diagnostics.Stopwatch │
00:07:28 verbose #29774 > │ let v41 : System.Diagnostics.Stopwatch = v40 () │
00:07:28 verbose #29775 > │ v41.Start () │
00:07:28 verbose #29776 > │ let v42 : int64 = v41.ElapsedMilliseconds │
00:07:28 verbose #29777 > │ let v43 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:07:28 verbose #29778 > │ let v44 : Mut1 = {l0 = 0} : Mut1 │
00:07:28 verbose #29779 > │ while method8(v44) do │
00:07:28 verbose #29780 > │ let v46 : int32 = v44.l0 │
00:07:28 verbose #29781 > │ v43.[int v46] <- v46 │
00:07:28 verbose #29782 > │ let v47 : int32 = v46 + 1 │
00:07:28 verbose #29783 > │ v44.l0 <- v47 │
00:07:28 verbose #29784 > │ () │
00:07:28 verbose #29785 > │ let v48 : ((int32 -> float) -> ((int32 []) -> (float []))) = │
00:07:28 verbose #29786 > │ Array.Parallel.map │
00:07:28 verbose #29787 > │ let v49 : (int32 -> float) = closure2(v20, v37) │
00:07:28 verbose #29788 > │ let v50 : ((int32 []) -> (float [])) = v48 v49 │
00:07:28 verbose #29789 > │ let v51 : (float []) = v50 v43 │
00:07:28 verbose #29790 > │ let v52 : int32 = v51.Length │
00:07:28 verbose #29791 > │ let v53 : int32 = v52 - 1 │
00:07:28 verbose #29792 > │ let v54 : float = v51.[int v53] │
00:07:28 verbose #29793 > │ let v55 : int64 = v41.ElapsedMilliseconds │
00:07:28 verbose #29794 > │ let v56 : int64 = v55 - v42 │
00:07:28 verbose #29795 > │ let v57 : string = $"Test case {v35 + 1}. {v36}. Time: {v56} " │
00:07:28 verbose #29796 > │ System.Console.WriteLine v57 │
00:07:28 verbose #29797 > │ v31.[int v34] <- struct (v54, v56) │
00:07:28 verbose #29798 > │ let v58 : uint64 = v34 + 1UL │
00:07:28 verbose #29799 > │ v32.l0 <- v58 │
00:07:28 verbose #29800 > │ () │
00:07:28 verbose #29801 > │ let v59 : uint64 = System.Convert.ToUInt64 v31.Length │
00:07:28 verbose #29802 > │ let v60 : (float []) = Array.zeroCreate<float> │
00:07:28 verbose #29803 > │ (System.Convert.ToInt32(v59)) │
00:07:28 verbose #29804 > │ let v61 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29805 > │ while method4(v59, v61) do │
00:07:28 verbose #29806 > │ let v63 : uint64 = v61.l0 │
00:07:28 verbose #29807 > │ let struct (v64 : float, v65 : int64) = v31.[int v63] │
00:07:28 verbose #29808 > │ v60.[int v63] <- v64 │
00:07:28 verbose #29809 > │ let v66 : uint64 = v63 + 1UL │
00:07:28 verbose #29810 > │ v61.l0 <- v66 │
00:07:28 verbose #29811 > │ () │
00:07:28 verbose #29812 > │ let v67 : uint64 = System.Convert.ToUInt64 v60.Length │
00:07:28 verbose #29813 > │ let v68 : bool = v67 <= 1UL │
00:07:28 verbose #29814 > │ if v68 then │
00:07:28 verbose #29815 > │ () │
00:07:28 verbose #29816 > │ else │
00:07:28 verbose #29817 > │ let v69 : float = v60.[int 0UL] │
00:07:28 verbose #29818 > │ let v70 : uint64 = 0UL │
00:07:28 verbose #29819 > │ let v71 : bool = method9(v69, v60, v70) │
00:07:28 verbose #29820 > │ if v71 then │
00:07:28 verbose #29821 > │ () │
00:07:28 verbose #29822 > │ else │
00:07:28 verbose #29823 > │ let v72 : string = $"Challenge error: {v60}" │
00:07:28 verbose #29824 > │ failwith<unit> v72 │
00:07:28 verbose #29825 > │ let v73 : string = $"%A{v21}" │
00:07:28 verbose #29826 > │ let v74 : (float []) = Array.zeroCreate<float> │
00:07:28 verbose #29827 > │ (System.Convert.ToInt32(v59)) │
00:07:28 verbose #29828 > │ let v75 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29829 > │ while method4(v59, v75) do │
00:07:28 verbose #29830 > │ let v77 : uint64 = v75.l0 │
00:07:28 verbose #29831 > │ let struct (v78 : float, v79 : int64) = v31.[int v77] │
00:07:28 verbose #29832 > │ v74.[int v77] <- v78 │
00:07:28 verbose #29833 > │ let v80 : uint64 = v77 + 1UL │
00:07:28 verbose #29834 > │ v75.l0 <- v80 │
00:07:28 verbose #29835 > │ () │
00:07:28 verbose #29836 > │ let v81 : float = v74.[int 0UL] │
00:07:28 verbose #29837 > │ let v82 : string = $"%A{v81}" │
00:07:28 verbose #29838 > │ let v83 : (int64 []) = Array.zeroCreate<int64> │
00:07:28 verbose #29839 > │ (System.Convert.ToInt32(v59)) │
00:07:28 verbose #29840 > │ let v84 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29841 > │ while method4(v59, v84) do │
00:07:28 verbose #29842 > │ let v86 : uint64 = v84.l0 │
00:07:28 verbose #29843 > │ let struct (v87 : float, v88 : int64) = v31.[int v86] │
00:07:28 verbose #29844 > │ v83.[int v86] <- v88 │
00:07:28 verbose #29845 > │ let v89 : uint64 = v86 + 1UL │
00:07:28 verbose #29846 > │ v84.l0 <- v89 │
00:07:28 verbose #29847 > │ () │
00:07:28 verbose #29848 > │ v16.[int v19] <- struct (v73, v22, v82, v83) │
00:07:28 verbose #29849 > │ let v90 : uint64 = v19 + 1UL │
00:07:28 verbose #29850 > │ v17.l0 <- v90 │
00:07:28 verbose #29851 > │ () │
00:07:28 verbose #29852 > │ let v91 : uint64 = System.Convert.ToUInt64 v16.Length │
00:07:28 verbose #29853 > │ let v92 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:07:28 verbose #29854 > │ (System.Convert.ToInt32(v91)) │
00:07:28 verbose #29855 > │ let v93 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29856 > │ while method4(v91, v93) do │
00:07:28 verbose #29857 > │ let v95 : uint64 = v93.l0 │
00:07:28 verbose #29858 > │ let struct (v96 : string, v97 : string, v98 : string, v99 : (int64 [ │
00:07:28 verbose #29859 > │ ])) = v16.[int v95] │
00:07:28 verbose #29860 > │ let v100 : uint64 = System.Convert.ToUInt64 v99.Length │
00:07:28 verbose #29861 > │ let v101 : UH3 = UH3_0 │
00:07:28 verbose #29862 > │ let v102 : Mut2 = {l0 = 0UL; l1 = v101; l2 = 0L} : Mut2 │
00:07:28 verbose #29863 > │ while method10(v100, v102) do │
00:07:28 verbose #29864 > │ let v104 : uint64 = v102.l0 │
00:07:28 verbose #29865 > │ let struct (v105 : UH3, v106 : int64) = v102.l1, v102.l2 │
00:07:28 verbose #29866 > │ let v107 : int64 = v99.[int v104] │
00:07:28 verbose #29867 > │ let v108 : int64 = v106 + 1L │
00:07:28 verbose #29868 > │ let v109 : uint64 = v104 + 1UL │
00:07:28 verbose #29869 > │ let v110 : UH3 = UH3_1(v106, v107, v105) │
00:07:28 verbose #29870 > │ v102.l0 <- v109 │
00:07:28 verbose #29871 > │ v102.l1 <- v110 │
00:07:28 verbose #29872 > │ v102.l2 <- v108 │
00:07:28 verbose #29873 > │ () │
00:07:28 verbose #29874 > │ let struct (v111 : UH3, v112 : int64) = v102.l1, v102.l2 │
00:07:28 verbose #29875 > │ let v113 : UH3 = UH3_0 │
00:07:28 verbose #29876 > │ let v114 : UH3 = method11(v111, v113) │
00:07:28 verbose #29877 > │ let v115 : (struct (int64 * int64) []) = method12(v114) │
00:07:28 verbose #29878 > │ let v116 : int32 = v115.Length │
00:07:28 verbose #29879 > │ let v117 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:07:28 verbose #29880 > │ (int64 * int64)> (v116) │
00:07:28 verbose #29881 > │ let v118 : Mut1 = {l0 = 0} : Mut1 │
00:07:28 verbose #29882 > │ while method15(v116, v118) do │
00:07:28 verbose #29883 > │ let v120 : int32 = v118.l0 │
00:07:28 verbose #29884 > │ let struct (v121 : int64, v122 : int64) = v115.[int v120] │
00:07:28 verbose #29885 > │ let v123 : int64 = v121 + 1L │
00:07:28 verbose #29886 > │ v117.[int v120] <- struct (v123, v122) │
00:07:28 verbose #29887 > │ let v124 : int32 = v120 + 1 │
00:07:28 verbose #29888 > │ v118.l0 <- v124 │
00:07:28 verbose #29889 > │ () │
00:07:28 verbose #29890 > │ let v125 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:07:28 verbose #29891 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:07:28 verbose #29892 > │ let v126 : (struct (int64 * int64) -> int64) = closure3() │
00:07:28 verbose #29893 > │ let v127 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:07:28 verbose #29894 > │ ])) = v125 v126 │
00:07:28 verbose #29895 > │ let v128 : (struct (int64 * int64) []) = v127 v117 │
00:07:28 verbose #29896 > │ let struct (v129 : int64, v130 : int64) = v128.[int 0] │
00:07:28 verbose #29897 > │ let v131 : string = $"%A{struct (v129, v130)}" │
00:07:28 verbose #29898 > │ let v132 : bool = v96 = v98 │
00:07:28 verbose #29899 > │ let v137 : US0 = │
00:07:28 verbose #29900 > │ if v132 then │
00:07:28 verbose #29901 > │ let v133 : System.ConsoleColor = │
00:07:28 verbose #29902 > │ System.ConsoleColor.DarkGreen │
00:07:28 verbose #29903 > │ US0_0(v133) │
00:07:28 verbose #29904 > │ else │
00:07:28 verbose #29905 > │ let v135 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:07:28 verbose #29906 > │ US0_0(v135) │
00:07:28 verbose #29907 > │ let v138 : UH2 = UH2_0 │
00:07:28 verbose #29908 > │ let v139 : UH2 = UH2_1(v131, v138) │
00:07:28 verbose #29909 > │ let v140 : UH2 = UH2_1(v98, v139) │
00:07:28 verbose #29910 > │ let v141 : UH2 = UH2_1(v96, v140) │
00:07:28 verbose #29911 > │ let v142 : UH2 = UH2_1(v97, v141) │
00:07:28 verbose #29912 > │ v92.[int v95] <- struct (v142, v137) │
00:07:28 verbose #29913 > │ let v143 : uint64 = v95 + 1UL │
00:07:28 verbose #29914 > │ v93.l0 <- v143 │
00:07:28 verbose #29915 > │ () │
00:07:28 verbose #29916 > │ let v144 : string = "Input" │
00:07:28 verbose #29917 > │ let v145 : string = "Expected" │
00:07:28 verbose #29918 > │ let v146 : string = "Result" │
00:07:28 verbose #29919 > │ let v147 : string = "Best" │
00:07:28 verbose #29920 > │ let v148 : UH2 = UH2_0 │
00:07:28 verbose #29921 > │ let v149 : UH2 = UH2_1(v147, v148) │
00:07:28 verbose #29922 > │ let v150 : UH2 = UH2_1(v146, v149) │
00:07:28 verbose #29923 > │ let v151 : UH2 = UH2_1(v145, v150) │
00:07:28 verbose #29924 > │ let v152 : UH2 = UH2_1(v144, v151) │
00:07:28 verbose #29925 > │ let v153 : US0 = US0_1 │
00:07:28 verbose #29926 > │ let v154 : string = "---" │
00:07:28 verbose #29927 > │ let v155 : UH2 = UH2_0 │
00:07:28 verbose #29928 > │ let v156 : UH2 = UH2_1(v154, v155) │
00:07:28 verbose #29929 > │ let v157 : UH2 = UH2_1(v154, v156) │
00:07:28 verbose #29930 > │ let v158 : UH2 = UH2_1(v154, v157) │
00:07:28 verbose #29931 > │ let v159 : UH2 = UH2_1(v154, v158) │
00:07:28 verbose #29932 > │ let v160 : US0 = US0_1 │
00:07:28 verbose #29933 > │ let v161 : UH4 = UH4_0 │
00:07:28 verbose #29934 > │ let v162 : UH4 = UH4_1(v159, v160, v161) │
00:07:28 verbose #29935 > │ let v163 : UH4 = UH4_1(v152, v153, v162) │
00:07:28 verbose #29936 > │ let v164 : (struct (UH2 * US0) []) = method16(v163) │
00:07:28 verbose #29937 > │ let v165 : uint64 = System.Convert.ToUInt64 v164.Length │
00:07:28 verbose #29938 > │ let v166 : uint64 = System.Convert.ToUInt64 v92.Length │
00:07:28 verbose #29939 > │ let v167 : uint64 = v165 + v166 │
00:07:28 verbose #29940 > │ let v168 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:07:28 verbose #29941 > │ US0)> (System.Convert.ToInt32(v167)) │
00:07:28 verbose #29942 > │ let v169 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29943 > │ while method4(v167, v169) do │
00:07:28 verbose #29944 > │ let v171 : uint64 = v169.l0 │
00:07:28 verbose #29945 > │ let v172 : bool = v171 < v165 │
00:07:28 verbose #29946 > │ let struct (v178 : UH2, v179 : US0) = │
00:07:28 verbose #29947 > │ if v172 then │
00:07:28 verbose #29948 > │ let struct (v173 : UH2, v174 : US0) = v164.[int v171] │
00:07:28 verbose #29949 > │ struct (v173, v174) │
00:07:28 verbose #29950 > │ else │
00:07:28 verbose #29951 > │ let v175 : uint64 = v171 - v165 │
00:07:28 verbose #29952 > │ let struct (v176 : UH2, v177 : US0) = v92.[int v175] │
00:07:28 verbose #29953 > │ struct (v176, v177) │
00:07:28 verbose #29954 > │ v168.[int v171] <- struct (v178, v179) │
00:07:28 verbose #29955 > │ let v180 : uint64 = v171 + 1UL │
00:07:28 verbose #29956 > │ v169.l0 <- v180 │
00:07:28 verbose #29957 > │ () │
00:07:28 verbose #29958 > │ let v181 : uint64 = System.Convert.ToUInt64 v168.Length │
00:07:28 verbose #29959 > │ let v182 : ((string []) []) = Array.zeroCreate<(string [])> │
00:07:28 verbose #29960 > │ (System.Convert.ToInt32(v181)) │
00:07:28 verbose #29961 > │ let v183 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29962 > │ while method4(v181, v183) do │
00:07:28 verbose #29963 > │ let v185 : uint64 = v183.l0 │
00:07:28 verbose #29964 > │ let struct (v186 : UH2, v187 : US0) = v168.[int v185] │
00:07:28 verbose #29965 > │ let v188 : (string []) = method19(v186) │
00:07:28 verbose #29966 > │ v182.[int v185] <- v188 │
00:07:28 verbose #29967 > │ let v189 : uint64 = v185 + 1UL │
00:07:28 verbose #29968 > │ v183.l0 <- v189 │
00:07:28 verbose #29969 > │ () │
00:07:28 verbose #29970 > │ let v190 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:07:28 verbose #29971 > │ let v191 : ((string []) []) = v190 v182 │
00:07:28 verbose #29972 > │ let v192 : uint64 = System.Convert.ToUInt64 v191.Length │
00:07:28 verbose #29973 > │ let v193 : (int64 []) = Array.zeroCreate<int64> │
00:07:28 verbose #29974 > │ (System.Convert.ToInt32(v192)) │
00:07:28 verbose #29975 > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29976 > │ while method4(v192, v194) do │
00:07:28 verbose #29977 > │ let v196 : uint64 = v194.l0 │
00:07:28 verbose #29978 > │ let v197 : (string []) = v191.[int v196] │
00:07:28 verbose #29979 > │ let v198 : uint64 = System.Convert.ToUInt64 v197.Length │
00:07:28 verbose #29980 > │ let v199 : (int64 []) = Array.zeroCreate<int64> │
00:07:28 verbose #29981 > │ (System.Convert.ToInt32(v198)) │
00:07:28 verbose #29982 > │ let v200 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #29983 > │ while method4(v198, v200) do │
00:07:28 verbose #29984 > │ let v202 : uint64 = v200.l0 │
00:07:28 verbose #29985 > │ let v203 : string = v197.[int v202] │
00:07:28 verbose #29986 > │ let v204 : int64 = System.Convert.ToInt64 v203.Length │
00:07:28 verbose #29987 > │ v199.[int v202] <- v204 │
00:07:28 verbose #29988 > │ let v205 : uint64 = v202 + 1UL │
00:07:28 verbose #29989 > │ v200.l0 <- v205 │
00:07:28 verbose #29990 > │ () │
00:07:28 verbose #29991 > │ let v206 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:07:28 verbose #29992 > │ let v207 : (int64 []) = v206 v199 │
00:07:28 verbose #29993 > │ let v208 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:07:28 verbose #29994 > │ let v209 : ((int64 []) -> int64 option) = v208 0 │
00:07:28 verbose #29995 > │ let v210 : int64 option = v209 v207 │
00:07:28 verbose #29996 > │ let v211 : (int64 -> US1) = method22() │
00:07:28 verbose #29997 > │ let v212 : US1 = US1_1 │
00:07:28 verbose #29998 > │ let v213 : US1 = v210 |> Option.map v211 |> Option.defaultValue v212 │
00:07:28 verbose #29999 > │ let v216 : int64 = │
00:07:28 verbose #30000 > │ match v213 with │
00:07:28 verbose #30001 > │ | US1_1 -> (* None *) │
00:07:28 verbose #30002 > │ 0L │
00:07:28 verbose #30003 > │ | US1_0(v214) -> (* Some *) │
00:07:28 verbose #30004 > │ v214 │
00:07:28 verbose #30005 > │ v193.[int v196] <- v216 │
00:07:28 verbose #30006 > │ let v217 : uint64 = v196 + 1UL │
00:07:28 verbose #30007 > │ v194.l0 <- v217 │
00:07:28 verbose #30008 > │ () │
00:07:28 verbose #30009 > │ let v218 : uint64 = System.Convert.ToUInt64 v193.Length │
00:07:28 verbose #30010 > │ let v219 : UH5 = UH5_0 │
00:07:28 verbose #30011 > │ let v220 : Mut3 = {l0 = 0UL; l1 = v219; l2 = 0} : Mut3 │
00:07:28 verbose #30012 > │ while method23(v218, v220) do │
00:07:28 verbose #30013 > │ let v222 : uint64 = v220.l0 │
00:07:28 verbose #30014 > │ let struct (v223 : UH5, v224 : int32) = v220.l1, v220.l2 │
00:07:28 verbose #30015 > │ let v225 : int64 = v193.[int v222] │
00:07:28 verbose #30016 > │ let v226 : int32 = v224 + 1 │
00:07:28 verbose #30017 > │ let v227 : uint64 = v222 + 1UL │
00:07:28 verbose #30018 > │ let v228 : UH5 = UH5_1(v224, v225, v223) │
00:07:28 verbose #30019 > │ v220.l0 <- v227 │
00:07:28 verbose #30020 > │ v220.l1 <- v228 │
00:07:28 verbose #30021 > │ v220.l2 <- v226 │
00:07:28 verbose #30022 > │ () │
00:07:28 verbose #30023 > │ let struct (v229 : UH5, v230 : int32) = v220.l1, v220.l2 │
00:07:28 verbose #30024 > │ let v231 : UH5 = UH5_0 │
00:07:28 verbose #30025 > │ let v232 : UH5 = method24(v229, v231) │
00:07:28 verbose #30026 > │ let v233 : (struct (int32 * int64) []) = method25(v232) │
00:07:28 verbose #30027 > │ let v234 : Map<int32, int64> = v233 |> Array.map (fun (struct (a, b)) -> │
00:07:28 verbose #30028 > │ a, b) |> Map.ofArray │
00:07:28 verbose #30029 > │ let v235 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:07:28 verbose #30030 > │ ((string []) * US0)> (System.Convert.ToInt32(v181)) │
00:07:28 verbose #30031 > │ let v236 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30032 > │ while method4(v181, v236) do │
00:07:28 verbose #30033 > │ let v238 : uint64 = v236.l0 │
00:07:28 verbose #30034 > │ let struct (v239 : UH2, v240 : US0) = v168.[int v238] │
00:07:28 verbose #30035 > │ let v241 : UH6 = UH6_0 │
00:07:28 verbose #30036 > │ let v242 : int32 = 0 │
00:07:28 verbose #30037 > │ let struct (v243 : UH6, v244 : int32) = method28(v239, v241, v242) │
00:07:28 verbose #30038 > │ let v245 : UH6 = UH6_0 │
00:07:28 verbose #30039 > │ let v246 : UH6 = method29(v243, v245) │
00:07:28 verbose #30040 > │ let v247 : UH2 = UH2_0 │
00:07:28 verbose #30041 > │ let v248 : UH2 = method30(v234, v246, v247) │
00:07:28 verbose #30042 > │ let v249 : (string []) = method31(v248) │
00:07:28 verbose #30043 > │ v235.[int v238] <- struct (v249, v240) │
00:07:28 verbose #30044 > │ let v250 : uint64 = v238 + 1UL │
00:07:28 verbose #30045 > │ v236.l0 <- v250 │
00:07:28 verbose #30046 > │ () │
00:07:28 verbose #30047 > │ System.Console.WriteLine v2 │
00:07:28 verbose #30048 > │ let v251 : uint64 = System.Convert.ToUInt64 v235.Length │
00:07:28 verbose #30049 > │ let v252 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30050 > │ while method4(v251, v252) do │
00:07:28 verbose #30051 > │ let v254 : uint64 = v252.l0 │
00:07:28 verbose #30052 > │ let struct (v255 : (string []), v256 : US0) = v235.[int v254] │
00:07:28 verbose #30053 > │ match v256 with │
00:07:28 verbose #30054 > │ | US0_1 -> (* None *) │
00:07:28 verbose #30055 > │ let v260 : unit option = None │
00:07:28 verbose #30056 > │ let v261 : bool = true in let mutable _v260 = v260 │
00:07:28 verbose #30057 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:28 verbose #30058 > │ () │
00:07:28 verbose #30059 > │ #endif │
00:07:28 verbose #30060 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:28 verbose #30061 > │ () │
00:07:28 verbose #30062 > │ #endif │
00:07:28 verbose #30063 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:28 verbose #30064 > │ () │
00:07:28 verbose #30065 > │ #endif │
00:07:28 verbose #30066 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:28 verbose #30067 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:28 verbose #30068 > │ System.Console.ResetColor () │
00:07:28 verbose #30069 > │ () │
00:07:28 verbose #30070 > │ #endif │
00:07:28 verbose #30071 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:28 verbose #30072 > │ () │
00:07:28 verbose #30073 > │ #endif │
00:07:28 verbose #30074 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:28 verbose #30075 > │ FABLE_COMPILER_DART │
00:07:28 verbose #30076 > │ Unchecked.defaultof<unit> │
00:07:28 verbose #30077 > │ () │
00:07:28 verbose #30078 > │ #endif │
00:07:28 verbose #30079 > │ |> fun x -> _v260 <- Some x │
00:07:28 verbose #30080 > │ _v260.Value │
00:07:28 verbose #30081 > │ () │
00:07:28 verbose #30082 > │ | US0_0(v257) -> (* Some *) │
00:07:28 verbose #30083 > │ let v258 : unit option = None │
00:07:28 verbose #30084 > │ let v259 : bool = true in let mutable _v258 = v258 │
00:07:28 verbose #30085 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:28 verbose #30086 > │ () │
00:07:28 verbose #30087 > │ #endif │
00:07:28 verbose #30088 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:28 verbose #30089 > │ () │
00:07:28 verbose #30090 > │ #endif │
00:07:28 verbose #30091 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:28 verbose #30092 > │ () │
00:07:28 verbose #30093 > │ #endif │
00:07:28 verbose #30094 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:28 verbose #30095 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:28 verbose #30096 > │ System.Console.ForegroundColor <- v257 │
00:07:28 verbose #30097 > │ () │
00:07:28 verbose #30098 > │ #endif │
00:07:28 verbose #30099 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:28 verbose #30100 > │ () │
00:07:28 verbose #30101 > │ #endif │
00:07:28 verbose #30102 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:28 verbose #30103 > │ FABLE_COMPILER_DART │
00:07:28 verbose #30104 > │ Unchecked.defaultof<unit> │
00:07:28 verbose #30105 > │ () │
00:07:28 verbose #30106 > │ #endif │
00:07:28 verbose #30107 > │ |> fun x -> _v258 <- Some x │
00:07:28 verbose #30108 > │ _v258.Value │
00:07:28 verbose #30109 > │ () │
00:07:28 verbose #30110 > │ let v262 : string = "\t| " │
00:07:28 verbose #30111 > │ let v263 : string = System.String.Join (v262, v255) │
00:07:28 verbose #30112 > │ System.Console.WriteLine v263 │
00:07:28 verbose #30113 > │ let v264 : unit option = None │
00:07:28 verbose #30114 > │ let v265 : bool = true in let mutable _v264 = v264 │
00:07:28 verbose #30115 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:28 verbose #30116 > │ () │
00:07:28 verbose #30117 > │ #endif │
00:07:28 verbose #30118 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:28 verbose #30119 > │ () │
00:07:28 verbose #30120 > │ #endif │
00:07:28 verbose #30121 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:28 verbose #30122 > │ () │
00:07:28 verbose #30123 > │ #endif │
00:07:28 verbose #30124 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:28 verbose #30125 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:28 verbose #30126 > │ System.Console.ResetColor () │
00:07:28 verbose #30127 > │ () │
00:07:28 verbose #30128 > │ #endif │
00:07:28 verbose #30129 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:28 verbose #30130 > │ () │
00:07:28 verbose #30131 > │ #endif │
00:07:28 verbose #30132 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:28 verbose #30133 > │ FABLE_COMPILER_DART │
00:07:28 verbose #30134 > │ Unchecked.defaultof<unit> │
00:07:28 verbose #30135 > │ () │
00:07:28 verbose #30136 > │ #endif │
00:07:28 verbose #30137 > │ |> fun x -> _v264 <- Some x │
00:07:28 verbose #30138 > │ _v264.Value │
00:07:28 verbose #30139 > │ let v266 : uint64 = v254 + 1UL │
00:07:28 verbose #30140 > │ v252.l0 <- v266 │
00:07:28 verbose #30141 > │ () │
00:07:28 verbose #30142 > │ let v267 : ((float []) []) = Array.zeroCreate<(float [])> │
00:07:28 verbose #30143 > │ (System.Convert.ToInt32(v91)) │
00:07:28 verbose #30144 > │ let v268 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30145 > │ while method4(v91, v268) do │
00:07:28 verbose #30146 > │ let v270 : uint64 = v268.l0 │
00:07:28 verbose #30147 > │ let struct (v271 : string, v272 : string, v273 : string, v274 : │
00:07:28 verbose #30148 > │ (int64 [])) = v16.[int v270] │
00:07:28 verbose #30149 > │ let v275 : (int64 -> float) = float │
00:07:28 verbose #30150 > │ let v276 : uint64 = System.Convert.ToUInt64 v274.Length │
00:07:28 verbose #30151 > │ let v277 : (float []) = Array.zeroCreate<float> │
00:07:28 verbose #30152 > │ (System.Convert.ToInt32(v276)) │
00:07:28 verbose #30153 > │ let v278 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30154 > │ while method4(v276, v278) do │
00:07:28 verbose #30155 > │ let v280 : uint64 = v278.l0 │
00:07:28 verbose #30156 > │ let v281 : int64 = v274.[int v280] │
00:07:28 verbose #30157 > │ let v282 : float = v275 v281 │
00:07:28 verbose #30158 > │ v277.[int v280] <- v282 │
00:07:28 verbose #30159 > │ let v283 : uint64 = v280 + 1UL │
00:07:28 verbose #30160 > │ v278.l0 <- v283 │
00:07:28 verbose #30161 > │ () │
00:07:28 verbose #30162 > │ v267.[int v270] <- v277 │
00:07:28 verbose #30163 > │ let v284 : uint64 = v270 + 1UL │
00:07:28 verbose #30164 > │ v268.l0 <- v284 │
00:07:28 verbose #30165 > │ () │
00:07:28 verbose #30166 > │ let v285 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:07:28 verbose #30167 > │ let v286 : ((float []) []) = v285 v267 │
00:07:28 verbose #30168 > │ let v287 : uint64 = System.Convert.ToUInt64 v286.Length │
00:07:28 verbose #30169 > │ let v288 : (float []) = Array.zeroCreate<float> │
00:07:28 verbose #30170 > │ (System.Convert.ToInt32(v287)) │
00:07:28 verbose #30171 > │ let v289 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30172 > │ while method4(v287, v289) do │
00:07:28 verbose #30173 > │ let v291 : uint64 = v289.l0 │
00:07:28 verbose #30174 > │ let v292 : (float []) = v286.[int v291] │
00:07:28 verbose #30175 > │ let v293 : ((float []) -> float) = Array.average │
00:07:28 verbose #30176 > │ let v294 : float = v293 v292 │
00:07:28 verbose #30177 > │ v288.[int v291] <- v294 │
00:07:28 verbose #30178 > │ let v295 : uint64 = v291 + 1UL │
00:07:28 verbose #30179 > │ v289.l0 <- v295 │
00:07:28 verbose #30180 > │ () │
00:07:28 verbose #30181 > │ let v296 : (float -> int64) = int64 │
00:07:28 verbose #30182 > │ let v297 : uint64 = System.Convert.ToUInt64 v288.Length │
00:07:28 verbose #30183 > │ let v298 : (int64 []) = Array.zeroCreate<int64> │
00:07:28 verbose #30184 > │ (System.Convert.ToInt32(v297)) │
00:07:28 verbose #30185 > │ let v299 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30186 > │ while method4(v297, v299) do │
00:07:28 verbose #30187 > │ let v301 : uint64 = v299.l0 │
00:07:28 verbose #30188 > │ let v302 : float = v288.[int v301] │
00:07:28 verbose #30189 > │ let v303 : int64 = v296 v302 │
00:07:28 verbose #30190 > │ v298.[int v301] <- v303 │
00:07:28 verbose #30191 > │ let v304 : uint64 = v301 + 1UL │
00:07:28 verbose #30192 > │ v299.l0 <- v304 │
00:07:28 verbose #30193 > │ () │
00:07:28 verbose #30194 > │ let v305 : uint64 = System.Convert.ToUInt64 v298.Length │
00:07:28 verbose #30195 > │ let v306 : UH5 = UH5_0 │
00:07:28 verbose #30196 > │ let v307 : Mut3 = {l0 = 0UL; l1 = v306; l2 = 0} : Mut3 │
00:07:28 verbose #30197 > │ while method23(v305, v307) do │
00:07:28 verbose #30198 > │ let v309 : uint64 = v307.l0 │
00:07:28 verbose #30199 > │ let struct (v310 : UH5, v311 : int32) = v307.l1, v307.l2 │
00:07:28 verbose #30200 > │ let v312 : int64 = v298.[int v309] │
00:07:28 verbose #30201 > │ let v313 : int32 = v311 + 1 │
00:07:28 verbose #30202 > │ let v314 : uint64 = v309 + 1UL │
00:07:28 verbose #30203 > │ let v315 : UH5 = UH5_1(v311, v312, v310) │
00:07:28 verbose #30204 > │ v307.l0 <- v314 │
00:07:28 verbose #30205 > │ v307.l1 <- v315 │
00:07:28 verbose #30206 > │ v307.l2 <- v313 │
00:07:28 verbose #30207 > │ () │
00:07:28 verbose #30208 > │ let struct (v316 : UH5, v317 : int32) = v307.l1, v307.l2 │
00:07:28 verbose #30209 > │ let v318 : UH5 = UH5_0 │
00:07:28 verbose #30210 > │ let v319 : UH5 = method24(v316, v318) │
00:07:28 verbose #30211 > │ let v320 : (struct (int32 * int64) []) = method34(v319) │
00:07:28 verbose #30212 > │ System.Console.WriteLine v2 │
00:07:28 verbose #30213 > │ let v321 : string = "Average Ranking " │
00:07:28 verbose #30214 > │ System.Console.WriteLine v321 │
00:07:28 verbose #30215 > │ let v322 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:07:28 verbose #30216 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:07:28 verbose #30217 > │ let v323 : (struct (int32 * int64) -> int64) = closure5() │
00:07:28 verbose #30218 > │ let v324 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:07:28 verbose #30219 > │ = v322 v323 │
00:07:28 verbose #30220 > │ let v325 : (struct (int32 * int64) []) = v324 v320 │
00:07:28 verbose #30221 > │ let v326 : uint64 = System.Convert.ToUInt64 v325.Length │
00:07:28 verbose #30222 > │ let v327 : Mut0 = {l0 = 0UL} : Mut0 │
00:07:28 verbose #30223 > │ while method4(v326, v327) do │
00:07:28 verbose #30224 > │ let v329 : uint64 = v327.l0 │
00:07:28 verbose #30225 > │ let struct (v330 : int32, v331 : int64) = v325.[int v329] │
00:07:28 verbose #30226 > │ let v332 : string = $"Test case %d{v330 + 1}. Average Time: %A{v331} │
00:07:28 verbose #30227 > │ " │
00:07:28 verbose #30228 > │ System.Console.WriteLine v332 │
00:07:28 verbose #30229 > │ let v333 : uint64 = v329 + 1UL │
00:07:28 verbose #30230 > │ v327.l0 <- v333 │
00:07:28 verbose #30231 > │ () │
00:07:28 verbose #30232 > │ () │
00:07:28 verbose #30233 > │ method0() │
00:07:28 verbose #30234 > │ │
00:07:28 verbose #30235 > │ │
00:07:28 verbose #30236 > │ │
00:07:28 verbose #30237 > │ Test: v0 │
00:07:28 verbose #30238 > │ │
00:07:28 verbose #30239 > │ Solution: 0.0 │
00:07:28 verbose #30240 > │ Test case 1. A. Time: 35 │
00:07:28 verbose #30241 > │ │
00:07:28 verbose #30242 > │ Solution: 2.0 │
00:07:28 verbose #30243 > │ Test case 1. A. Time: 10 │
00:07:28 verbose #30244 > │ │
00:07:28 verbose #30245 > │ Solution: 5.0 │
00:07:28 verbose #30246 > │ Test case 1. A. Time: 10 │
00:07:28 verbose #30247 > │ │
00:07:28 verbose #30248 > │ Input | Expected | Result | Best │
00:07:28 verbose #30249 > │ --- | --- | --- | --- │
00:07:28 verbose #30250 > │ 0.0 | 1.0 | 1.0 | struct (1L, 35L) │
00:07:28 verbose #30251 > │ 2.0 | 3.0 | 3.0 | struct (1L, 10L) │
00:07:28 verbose #30252 > │ 5.0 | 6.0 | 6.0 | struct (1L, 10L) │
00:07:28 verbose #30253 > │ │
00:07:28 verbose #30254 > │ Average Ranking │
00:07:28 verbose #30255 > │ Test case 1. Average Time: 18L │
00:07:28 verbose #30256 > │ │
00:07:28 verbose #30257 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 verbose #30258 > [NbConvertApp] Converting notebook benchmark.dib.ipynb to html
00:07:30 verbose #30259 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:30 verbose #30260 > validate(nb)
00:07:30 verbose #30261 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:07:30 verbose #30262 > return _pygments_highlight(
00:07:31 verbose #30263 > [NbConvertApp] Writing 417924 bytes to benchmark.dib.html
00:07:31 debug #30264 execute_with_options_async / exit_code: 0 / output.Length: 244054
00:07:31 debug #21 main / executeCommand / exitCode: 0
00:07:31 debug #30265 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 file_system.dib" -Retries 3",
None, None)
00:07:32 verbose #30266 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: file_system.dib / _args: [
00:07:32 verbose #30267 > "-Retries",
00:07:32 verbose #30268 > 3
00:07:32 verbose #30269 > ]
00:07:34 verbose #30270 >
00:07:34 verbose #30271 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:34 verbose #30272 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:34 verbose #30273 > │ # file_system │
00:07:34 verbose #30274 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:34 verbose #30275 >
00:07:34 verbose #30276 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:34 verbose #30277 > open sm'_operators
00:07:34 verbose #30278 > open rust_operators
00:07:36 verbose #30279 > 00:07:36 debug #573 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0f70a6ceda54464ad2262592408f2345279274c3c23c9e1b17e7a0fedac8c776/main.spi
00:07:37 verbose #30280 >
00:07:37 verbose #30281 > ╭─[ 3.73s - stdout ]───────────────────────────────────────────────────────────╮
00:07:37 verbose #30282 > │ () │
00:07:37 verbose #30283 > │ │
00:07:37 verbose #30284 > │ │
00:07:37 verbose #30285 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 verbose #30286 >
00:07:37 verbose #30287 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:37 verbose #30288 > // // test
00:07:37 verbose #30289 >
00:07:37 verbose #30290 > open testing
00:07:38 verbose #30291 > 00:07:37 debug #574 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dab9e6f70cb07a5a3288f69674708b2c1b4cb6d633eb81f31a0e8050b1f8c386/main.spi
00:07:38 verbose #30292 >
00:07:38 verbose #30293 > ╭─[ 236.44ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 verbose #30294 > │ () │
00:07:38 verbose #30295 > │ │
00:07:38 verbose #30296 > │ │
00:07:38 verbose #30297 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #30298 >
00:07:38 verbose #30299 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 verbose #30300 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 verbose #30301 > │ ## types │
00:07:38 verbose #30302 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #30303 >
00:07:38 verbose #30304 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 verbose #30305 > inl types () =
00:07:38 verbose #30306 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::fs::FileType\")>]] type
00:07:38 verbose #30307 > std_fs_FileType = class end"
00:07:38 verbose #30308 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::io::Error\")>]] type
00:07:38 verbose #30309 > std_io_Error = class end"
00:07:38 verbose #30310 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::path::Path\")>]] type
00:07:38 verbose #30311 > std_path_Path = class end"
00:07:38 verbose #30312 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::path::PathBuf\")>]] type
00:07:38 verbose #30313 > std_path_PathBuf = class end"
00:07:38 verbose #30314 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"async_walkdir::DirEntry\")>]]
00:07:38 verbose #30315 > type async_walkdir_DirEntry = class end"
00:07:38 verbose #30316 > global "[[<Fable.Core.Erase;
00:07:38 verbose #30317 > Fable.Core.Emit(\"async_walkdir::Filtering\")>]] type async_walkdir_Filtering =
00:07:38 verbose #30318 > class end"
00:07:38 verbose #30319 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"async_walkdir::WalkDir\")>]]
00:07:38 verbose #30320 > type async_walkdir_WalkDir = class end"
00:07:38 verbose #30321 > 00:07:37 debug #575 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/87773c6bdd5ff6a3ff75206e2bcf5279200bee19c5337d21d8b78f9069191b1b/main.spi
00:07:38 verbose #30322 >
00:07:38 verbose #30323 > ╭─[ 256.41ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 verbose #30324 > │ () │
00:07:38 verbose #30325 > │ │
00:07:38 verbose #30326 > │ │
00:07:38 verbose #30327 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #30328 >
00:07:38 verbose #30329 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 verbose #30330 > inl types () =
00:07:38 verbose #30331 > global "#if FABLE_COMPILER // file_system.types"
00:07:38 verbose #30332 > sm'.types ()
00:07:38 verbose #30333 > rust.types ()
00:07:38 verbose #30334 > types ()
00:07:38 verbose #30335 > global "#endif // file_system.types"
00:07:38 verbose #30336 > 00:07:38 debug #576 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1b086519c79987ba45545c493467604df9e379caafd891d2e5ba3b634e1f081a/main.spi
00:07:38 verbose #30337 >
00:07:38 verbose #30338 > ╭─[ 267.65ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 verbose #30339 > │ () │
00:07:38 verbose #30340 > │ │
00:07:38 verbose #30341 > │ │
00:07:38 verbose #30342 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #30343 >
00:07:38 verbose #30344 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 verbose #30345 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 verbose #30346 > │ ## file_mode │
00:07:38 verbose #30347 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #30348 >
00:07:38 verbose #30349 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 verbose #30350 > nominal file_mode' = $'System.IO.FileMode'
00:07:38 verbose #30351 >
00:07:38 verbose #30352 > union file_mode =
00:07:38 verbose #30353 > | ModeCreateNew
00:07:38 verbose #30354 > | ModeCreate
00:07:38 verbose #30355 > | ModeOpen
00:07:38 verbose #30356 > | ModeOpenOrCreate
00:07:38 verbose #30357 > | Truncate
00:07:38 verbose #30358 > | Append
00:07:38 verbose #30359 >
00:07:38 verbose #30360 > inl file_mode = function
00:07:38 verbose #30361 > | ModeCreateNew => $'System.IO.FileMode.CreateNew' : file_mode'
00:07:38 verbose #30362 > | ModeCreate => $'System.IO.FileMode.Create' : file_mode'
00:07:38 verbose #30363 > | ModeOpen => $'System.IO.FileMode.Open' : file_mode'
00:07:38 verbose #30364 > | ModeOpenOrCreate => $'System.IO.FileMode.OpenOrCreate' : file_mode'
00:07:38 verbose #30365 > | Truncate => $'System.IO.FileMode.Truncate' : file_mode'
00:07:38 verbose #30366 > | Append => $'System.IO.FileMode.Append' : file_mode'
00:07:38 verbose #30367 > 00:07:38 debug #577 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/750d0a02de6ef529d8438120c047d1bccf7e93da0ba6a757335e62fd8e4312c8/main.spi
00:07:39 verbose #30368 >
00:07:39 verbose #30369 > ╭─[ 277.00ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 verbose #30370 > │ () │
00:07:39 verbose #30371 > │ │
00:07:39 verbose #30372 > │ │
00:07:39 verbose #30373 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30374 >
00:07:39 verbose #30375 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 verbose #30376 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 verbose #30377 > │ ## file_access │
00:07:39 verbose #30378 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30379 >
00:07:39 verbose #30380 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 verbose #30381 > nominal file_access' = $'System.IO.FileAccess'
00:07:39 verbose #30382 >
00:07:39 verbose #30383 > union file_access =
00:07:39 verbose #30384 > | AccessRead
00:07:39 verbose #30385 > | AccessWrite
00:07:39 verbose #30386 > | AccessReadWrite
00:07:39 verbose #30387 >
00:07:39 verbose #30388 > inl file_access = function
00:07:39 verbose #30389 > | AccessRead => $'System.IO.FileAccess.Read' : file_access'
00:07:39 verbose #30390 > | AccessWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:07:39 verbose #30391 > | AccessReadWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:07:39 verbose #30392 > 00:07:38 debug #578 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9f68ca44da464fe08128a7d2154393eee7cd4672115626c187a0a18be343e0a0/main.spi
00:07:39 verbose #30393 >
00:07:39 verbose #30394 > ╭─[ 273.00ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 verbose #30395 > │ () │
00:07:39 verbose #30396 > │ │
00:07:39 verbose #30397 > │ │
00:07:39 verbose #30398 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30399 >
00:07:39 verbose #30400 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 verbose #30401 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 verbose #30402 > │ ## file_share │
00:07:39 verbose #30403 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30404 >
00:07:39 verbose #30405 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 verbose #30406 > nominal file_share' = $'System.IO.FileShare'
00:07:39 verbose #30407 >
00:07:39 verbose #30408 > union file_share =
00:07:39 verbose #30409 > | ShareNone
00:07:39 verbose #30410 > | ShareRead
00:07:39 verbose #30411 > | ShareWrite
00:07:39 verbose #30412 > | ShareReadWrite
00:07:39 verbose #30413 > | ShareDelete
00:07:39 verbose #30414 >
00:07:39 verbose #30415 > inl file_share = function
00:07:39 verbose #30416 > | ShareNone => $'System.IO.FileShare.None' : file_share'
00:07:39 verbose #30417 > | ShareRead => $'System.IO.FileShare.Read' : file_share'
00:07:39 verbose #30418 > | ShareWrite => $'System.IO.FileShare.Write' : file_share'
00:07:39 verbose #30419 > | ShareReadWrite => $'System.IO.FileShare.ReadWrite' : file_share'
00:07:39 verbose #30420 > | ShareDelete => $'System.IO.FileShare.Delete' : file_share'
00:07:39 verbose #30421 > 00:07:38 debug #579 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/71eae833a857c4b6649358704a5f2ebb50af45b9e2292047d0391c1e70ece1da/main.spi
00:07:39 verbose #30422 >
00:07:39 verbose #30423 > ╭─[ 216.76ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 verbose #30424 > │ () │
00:07:39 verbose #30425 > │ │
00:07:39 verbose #30426 > │ │
00:07:39 verbose #30427 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30428 >
00:07:39 verbose #30429 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 verbose #30430 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 verbose #30431 > │ ## file_stream │
00:07:39 verbose #30432 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30433 >
00:07:39 verbose #30434 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 verbose #30435 > nominal file_stream' = $'System.IO.FileStream'
00:07:39 verbose #30436 >
00:07:39 verbose #30437 > inl file_stream (path : string) mode access share : file_stream' =
00:07:39 verbose #30438 > run_target function
00:07:39 verbose #30439 > | Fsharp (Native) => fun () =>
00:07:39 verbose #30440 > inl mode = mode |> file_mode
00:07:39 verbose #30441 > inl access = access |> file_access
00:07:39 verbose #30442 > inl share = share |> file_share
00:07:39 verbose #30443 > $'new System.IO.FileStream (!path, !mode, !access, !share)'
00:07:39 verbose #30444 > | _ => fun () => null ()
00:07:39 verbose #30445 > 00:07:39 debug #580 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/31d810b62b89eb21f505e71ace22078e7c7519d3ba9bdc10040bfadc6cea1e73/main.spi
00:07:39 verbose #30446 >
00:07:39 verbose #30447 > ╭─[ 226.73ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 verbose #30448 > │ () │
00:07:39 verbose #30449 > │ │
00:07:39 verbose #30450 > │ │
00:07:39 verbose #30451 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30452 >
00:07:39 verbose #30453 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 verbose #30454 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 verbose #30455 > │ ## path │
00:07:39 verbose #30456 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #30457 >
00:07:39 verbose #30458 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 verbose #30459 > nominal path = $'std_path_Path'
00:07:39 verbose #30460 > nominal path_buf = $'std_path_PathBuf'
00:07:39 verbose #30461 > 00:07:39 debug #581 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1147edaaf213fbe972b12bf27bd3ef9011695609b032d51004a5cbce70c3a24a/main.spi
00:07:40 verbose #30462 >
00:07:40 verbose #30463 > ╭─[ 254.06ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 verbose #30464 > │ () │
00:07:40 verbose #30465 > │ │
00:07:40 verbose #30466 > │ │
00:07:40 verbose #30467 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30468 >
00:07:40 verbose #30469 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 verbose #30470 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 verbose #30471 > │ ## new_path_buf │
00:07:40 verbose #30472 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30473 >
00:07:40 verbose #30474 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 verbose #30475 > inl new_path_buf (path : string) : path_buf =
00:07:40 verbose #30476 > open rust_operators
00:07:40 verbose #30477 > inl path = path |> sm'.to_std_string
00:07:40 verbose #30478 > !\\(path, $'"std::path::PathBuf::from($0)"')
00:07:40 verbose #30479 > 00:07:39 debug #582 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d9e8d440fb1d14d55f7e42853b0300258e7400d758a0ea9b59f1c766d215dfeb/main.spi
00:07:40 verbose #30480 >
00:07:40 verbose #30481 > ╭─[ 257.51ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 verbose #30482 > │ () │
00:07:40 verbose #30483 > │ │
00:07:40 verbose #30484 > │ │
00:07:40 verbose #30485 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30486 >
00:07:40 verbose #30487 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 verbose #30488 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 verbose #30489 > │ ## path_buf_from │
00:07:40 verbose #30490 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30491 >
00:07:40 verbose #30492 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 verbose #30493 > inl path_buf_from (path : rust.box path) : path_buf =
00:07:40 verbose #30494 > open rust_operators
00:07:40 verbose #30495 > !\\(path, $'"std::path::PathBuf::from($0)"')
00:07:40 verbose #30496 > 00:07:39 debug #583 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b53df03db755a1124394f1220971a1842485f7164412a04bc54f3b81ed91a634/main.spi
00:07:40 verbose #30497 >
00:07:40 verbose #30498 > ╭─[ 268.09ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 verbose #30499 > │ () │
00:07:40 verbose #30500 > │ │
00:07:40 verbose #30501 > │ │
00:07:40 verbose #30502 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30503 >
00:07:40 verbose #30504 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 verbose #30505 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 verbose #30506 > │ ## path_buf_join │
00:07:40 verbose #30507 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30508 >
00:07:40 verbose #30509 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 verbose #30510 > inl path_buf_join (s : string) (path_buf : path_buf) : path_buf =
00:07:40 verbose #30511 > open rust_operators
00:07:40 verbose #30512 > !\\((path_buf, s |> sm'.to_std_string), $'"$0.join($1)"')
00:07:40 verbose #30513 > 00:07:40 debug #584 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f0ec44c7731b3460947676c2a6846b8013ee619b5d2ded40c0eb0fc9bd014dd5/main.spi
00:07:40 verbose #30514 >
00:07:40 verbose #30515 > ╭─[ 259.29ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 verbose #30516 > │ () │
00:07:40 verbose #30517 > │ │
00:07:40 verbose #30518 > │ │
00:07:40 verbose #30519 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30520 >
00:07:40 verbose #30521 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 verbose #30522 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 verbose #30523 > │ ## path_display │
00:07:40 verbose #30524 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #30525 >
00:07:40 verbose #30526 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 verbose #30527 > inl path_display (path : rust.ref' path) : sm'.std_string =
00:07:40 verbose #30528 > open rust_operators
00:07:40 verbose #30529 > !\\(path, $'"$0.display().to_string()"')
00:07:41 verbose #30530 > 00:07:40 debug #585 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/09bc2955541f083bb3569bd6a6de5eea74a97142dee64fdd246c56afa2889467/main.spi
00:07:41 verbose #30531 >
00:07:41 verbose #30532 > ╭─[ 220.11ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 verbose #30533 > │ () │
00:07:41 verbose #30534 > │ │
00:07:41 verbose #30535 > │ │
00:07:41 verbose #30536 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30537 >
00:07:41 verbose #30538 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 verbose #30539 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 verbose #30540 > │ ## path_buf_file_name │
00:07:41 verbose #30541 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30542 >
00:07:41 verbose #30543 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 verbose #30544 > inl path_buf_file_name (path : path_buf) : optionm'.option' (rust.ref'
00:07:41 verbose #30545 > sm'.os_str) =
00:07:41 verbose #30546 > open rust_operators
00:07:41 verbose #30547 > !\($'"!path.file_name()"')
00:07:41 verbose #30548 > 00:07:40 debug #586 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/22757eaee008b7df7ecfdf9ff360a5130980f82f8be8c6fe2c4842cdd8ce3e17/main.spi
00:07:41 verbose #30549 >
00:07:41 verbose #30550 > ╭─[ 229.76ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 verbose #30551 > │ () │
00:07:41 verbose #30552 > │ │
00:07:41 verbose #30553 > │ │
00:07:41 verbose #30554 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30555 >
00:07:41 verbose #30556 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 verbose #30557 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 verbose #30558 > │ ## path_buf_display │
00:07:41 verbose #30559 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30560 >
00:07:41 verbose #30561 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 verbose #30562 > inl path_buf_display (path_buf : path_buf) : sm'.std_string =
00:07:41 verbose #30563 > open rust_operators
00:07:41 verbose #30564 > !\\(path_buf, $'"$0.display().to_string()"')
00:07:41 verbose #30565 > 00:07:40 debug #587 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/decaa0232f79a35dd66e78135eba9f4f1ed8e4ad61418562b1b3b96c985f635c/main.spi
00:07:41 verbose #30566 >
00:07:41 verbose #30567 > ╭─[ 256.51ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 verbose #30568 > │ () │
00:07:41 verbose #30569 > │ │
00:07:41 verbose #30570 > │ │
00:07:41 verbose #30571 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30572 >
00:07:41 verbose #30573 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 verbose #30574 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 verbose #30575 > │ ## path_buf_exists │
00:07:41 verbose #30576 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30577 >
00:07:41 verbose #30578 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 verbose #30579 > inl path_buf_exists (path_buf : path_buf) : bool =
00:07:41 verbose #30580 > open rust_operators
00:07:41 verbose #30581 > !\\(path_buf, $'"$0.exists()"')
00:07:41 verbose #30582 > 00:07:41 debug #588 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ac6101aea3a2cd68aa9a1aa7a8af9478c03d84555da5c7938ddc575d03e46090/main.spi
00:07:41 verbose #30583 >
00:07:41 verbose #30584 > ╭─[ 262.17ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 verbose #30585 > │ () │
00:07:41 verbose #30586 > │ │
00:07:41 verbose #30587 > │ │
00:07:41 verbose #30588 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30589 >
00:07:41 verbose #30590 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 verbose #30591 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 verbose #30592 > │ ## path_buf_is_dir │
00:07:41 verbose #30593 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #30594 >
00:07:41 verbose #30595 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 verbose #30596 > inl path_buf_is_dir (path_buf : path_buf) : bool =
00:07:41 verbose #30597 > open rust_operators
00:07:41 verbose #30598 > !\\(path_buf, $'"$0.is_dir()"')
00:07:41 verbose #30599 > 00:07:41 debug #589 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/92e4d02f6ec91c70635ca63a2486101fa381992123ece8caaad79a06d652672c/main.spi
00:07:42 verbose #30600 >
00:07:42 verbose #30601 > ╭─[ 195.48ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 verbose #30602 > │ () │
00:07:42 verbose #30603 > │ │
00:07:42 verbose #30604 > │ │
00:07:42 verbose #30605 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30606 >
00:07:42 verbose #30607 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 verbose #30608 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 verbose #30609 > │ ## path_buf_is_file │
00:07:42 verbose #30610 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30611 >
00:07:42 verbose #30612 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 verbose #30613 > inl path_buf_is_file (path_buf : path_buf) : bool =
00:07:42 verbose #30614 > open rust_operators
00:07:42 verbose #30615 > !\\(path_buf, $'"$0.is_file()"')
00:07:42 verbose #30616 > 00:07:41 debug #590 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6187b30ccc7d84d02e83b167845aeea91995e6ce9eaa963d70314c6580be5646/main.spi
00:07:42 verbose #30617 >
00:07:42 verbose #30618 > ╭─[ 257.59ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 verbose #30619 > │ () │
00:07:42 verbose #30620 > │ │
00:07:42 verbose #30621 > │ │
00:07:42 verbose #30622 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30623 >
00:07:42 verbose #30624 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 verbose #30625 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 verbose #30626 > │ ## path_buf_parent │
00:07:42 verbose #30627 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30628 >
00:07:42 verbose #30629 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 verbose #30630 > inl path_buf_parent (path_buf : path_buf) : optionm'.option' path_buf =
00:07:42 verbose #30631 > open rust_operators
00:07:42 verbose #30632 > !\\(path_buf, $'"$0.parent().map(std::path::PathBuf::from)"')
00:07:42 verbose #30633 > 00:07:41 debug #591 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1c64750b180e77cd8601738ddb1484b289c4e67a808a51feea9903c1adbcf4ca/main.spi
00:07:42 verbose #30634 >
00:07:42 verbose #30635 > ╭─[ 234.62ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 verbose #30636 > │ () │
00:07:42 verbose #30637 > │ │
00:07:42 verbose #30638 > │ │
00:07:42 verbose #30639 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30640 >
00:07:42 verbose #30641 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 verbose #30642 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 verbose #30643 > │ ## ts_path_join │
00:07:42 verbose #30644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30645 >
00:07:42 verbose #30646 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 verbose #30647 > inl ts_path_join (b : string) (a : string) : string =
00:07:42 verbose #30648 > open ts_operators
00:07:42 verbose #30649 > global "type IPathJoin = abstract join: [[<System.ParamArray>]] paths:
00:07:42 verbose #30650 > string[[]] -> string"
00:07:42 verbose #30651 > inl path : $'IPathJoin' = ts.import_all "path"
00:07:42 verbose #30652 >
00:07:42 verbose #30653 > inl a = join a
00:07:42 verbose #30654 > inl b = join b
00:07:42 verbose #30655 > !\($'"!path.join(!a, !b)"')
00:07:42 verbose #30656 > 00:07:42 debug #592 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cae7879a1c9460f1b84ffa1a8095143fd6aa1bc75a40190938951866919c39b8/main.spi
00:07:42 verbose #30657 >
00:07:42 verbose #30658 > ╭─[ 333.55ms - stdout ]────────────────────────────────────────────────────────╮
00:07:42 verbose #30659 > │ () │
00:07:42 verbose #30660 > │ │
00:07:42 verbose #30661 > │ │
00:07:42 verbose #30662 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30663 >
00:07:42 verbose #30664 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 verbose #30665 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 verbose #30666 > │ ## (< />) │
00:07:42 verbose #30667 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #30668 >
00:07:42 verbose #30669 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 verbose #30670 > inl (</>) (a : string) (b : string) : string =
00:07:42 verbose #30671 > run_target function
00:07:42 verbose #30672 > | Rust (Native) => fun () =>
00:07:42 verbose #30673 > a |> new_path_buf |> path_buf_join b |> path_buf_display |>
00:07:42 verbose #30674 > sm'.from_std_string
00:07:42 verbose #30675 > | Fsharp (Native) => fun () =>
00:07:42 verbose #30676 > $'System.IO.Path.Combine (!a, !b)'
00:07:42 verbose #30677 > | TypeScript _ => fun () =>
00:07:42 verbose #30678 > a |> ts_path_join b
00:07:42 verbose #30679 > | _ => fun () => null ()
00:07:43 verbose #30680 > 00:07:42 debug #593 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6e5747c3b47a3ab0a02c3fc985f59ea8687dfbc0c22ef9157a9dc3479ebf6e68/main.spi
00:07:43 verbose #30681 >
00:07:43 verbose #30682 > ╭─[ 255.74ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 verbose #30683 > │ () │
00:07:43 verbose #30684 > │ │
00:07:43 verbose #30685 > │ │
00:07:43 verbose #30686 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30687 >
00:07:43 verbose #30688 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:43 verbose #30689 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:43 verbose #30690 > │ ## directory_info │
00:07:43 verbose #30691 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30692 >
00:07:43 verbose #30693 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 verbose #30694 > nominal directory_info = $'System.IO.DirectoryInfo'
00:07:43 verbose #30695 >
00:07:43 verbose #30696 > inl directory_info (path : string) : directory_info =
00:07:43 verbose #30697 > path |> $'`directory_info '
00:07:43 verbose #30698 > 00:07:42 debug #594 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f68d75d61b692dd8cf8c32b380552023e05236fdb62a1c7416145cd272de7d4e/main.spi
00:07:43 verbose #30699 >
00:07:43 verbose #30700 > ╭─[ 248.20ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 verbose #30701 > │ () │
00:07:43 verbose #30702 > │ │
00:07:43 verbose #30703 > │ │
00:07:43 verbose #30704 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30705 >
00:07:43 verbose #30706 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:43 verbose #30707 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:43 verbose #30708 > │ ## directory_info_exists │
00:07:43 verbose #30709 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30710 >
00:07:43 verbose #30711 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 verbose #30712 > inl directory_info_exists (info : directory_info) : bool =
00:07:43 verbose #30713 > run_target function
00:07:43 verbose #30714 > | Fsharp (Native) => fun () =>
00:07:43 verbose #30715 > $'!info.Exists'
00:07:43 verbose #30716 > | _ => fun () => null ()
00:07:43 verbose #30717 > 00:07:42 debug #595 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5e7f46692ff406b66f19794bf406ceb05330abb3c632ccef30b5133d355be252/main.spi
00:07:43 verbose #30718 >
00:07:43 verbose #30719 > ╭─[ 270.04ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 verbose #30720 > │ () │
00:07:43 verbose #30721 > │ │
00:07:43 verbose #30722 > │ │
00:07:43 verbose #30723 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30724 >
00:07:43 verbose #30725 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:43 verbose #30726 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:43 verbose #30727 > │ ## directory_info_creation_time │
00:07:43 verbose #30728 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30729 >
00:07:43 verbose #30730 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 verbose #30731 > inl directory_info_creation_time (info : directory_info) : date_time.date_time =
00:07:43 verbose #30732 > run_target function
00:07:43 verbose #30733 > | Fsharp (Native) => fun () =>
00:07:43 verbose #30734 > $'!info.CreationTime'
00:07:43 verbose #30735 > | _ => fun () => null ()
00:07:43 verbose #30736 > 00:07:43 debug #596 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2a5287e8180dfa964e830cf0040c9f5a3a79598ac0fec8e2b7308bc67a3c848a/main.spi
00:07:43 verbose #30737 >
00:07:43 verbose #30738 > ╭─[ 210.30ms - stdout ]────────────────────────────────────────────────────────╮
00:07:43 verbose #30739 > │ () │
00:07:43 verbose #30740 > │ │
00:07:43 verbose #30741 > │ │
00:07:43 verbose #30742 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30743 >
00:07:43 verbose #30744 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:43 verbose #30745 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:43 verbose #30746 > │ ## directory_info_name │
00:07:43 verbose #30747 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:43 verbose #30748 >
00:07:43 verbose #30749 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 verbose #30750 > inl directory_info_name (info : directory_info) : string =
00:07:43 verbose #30751 > run_target function
00:07:43 verbose #30752 > | Fsharp (Native) => fun () =>
00:07:43 verbose #30753 > $'!info.Name'
00:07:43 verbose #30754 > | _ => fun () => null ()
00:07:44 verbose #30755 > 00:07:43 debug #597 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3d483e4defac8e959a5b34c6dab1645ea464568a8f45d01c29a2bd20cf604449/main.spi
00:07:44 verbose #30756 >
00:07:44 verbose #30757 > ╭─[ 228.60ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 verbose #30758 > │ () │
00:07:44 verbose #30759 > │ │
00:07:44 verbose #30760 > │ │
00:07:44 verbose #30761 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30762 >
00:07:44 verbose #30763 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 verbose #30764 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 verbose #30765 > │ ## directory_info_full_name │
00:07:44 verbose #30766 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30767 >
00:07:44 verbose #30768 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 verbose #30769 > inl directory_info_full_name (info : directory_info) : string =
00:07:44 verbose #30770 > run_target function
00:07:44 verbose #30771 > | Fsharp (Native) => fun () =>
00:07:44 verbose #30772 > $'!info.FullName'
00:07:44 verbose #30773 > | _ => fun () => null ()
00:07:44 verbose #30774 > 00:07:43 debug #598 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7a607bbdafdd43d8d931059ea6182f859ec3ec5cce250ca502ab26e14c64bdab/main.spi
00:07:44 verbose #30775 >
00:07:44 verbose #30776 > ╭─[ 242.47ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 verbose #30777 > │ () │
00:07:44 verbose #30778 > │ │
00:07:44 verbose #30779 > │ │
00:07:44 verbose #30780 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30781 >
00:07:44 verbose #30782 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 verbose #30783 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 verbose #30784 > │ ## dir_entry │
00:07:44 verbose #30785 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30786 >
00:07:44 verbose #30787 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 verbose #30788 > nominal dir_entry = $'async_walkdir_DirEntry'
00:07:44 verbose #30789 > 00:07:43 debug #599 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/69f91f554533472b72fcb498848a03bbdcf12b3ae594e50c3800999935e504ac/main.spi
00:07:44 verbose #30790 >
00:07:44 verbose #30791 > ╭─[ 246.44ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 verbose #30792 > │ () │
00:07:44 verbose #30793 > │ │
00:07:44 verbose #30794 > │ │
00:07:44 verbose #30795 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30796 >
00:07:44 verbose #30797 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 verbose #30798 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 verbose #30799 > │ ## walk_dir │
00:07:44 verbose #30800 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30801 >
00:07:44 verbose #30802 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 verbose #30803 > nominal walk_dir = $'async_walkdir_WalkDir'
00:07:44 verbose #30804 > 00:07:44 debug #600 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/13ec28d67deeec365d24fba7dbf6d868c0598a05f1ac5874aa2be766b0fec420/main.spi
00:07:44 verbose #30805 >
00:07:44 verbose #30806 > ╭─[ 276.88ms - stdout ]────────────────────────────────────────────────────────╮
00:07:44 verbose #30807 > │ () │
00:07:44 verbose #30808 > │ │
00:07:44 verbose #30809 > │ │
00:07:44 verbose #30810 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30811 >
00:07:44 verbose #30812 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 verbose #30813 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 verbose #30814 > │ ## async_walkdir_filtering │
00:07:44 verbose #30815 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #30816 >
00:07:44 verbose #30817 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 verbose #30818 > nominal async_walkdir_filtering = $'async_walkdir_Filtering'
00:07:45 verbose #30819 > 00:07:44 debug #601 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/15c18016be829e20b133f690ecfe186c7914928c8f17aeb710fcee58feb68972/main.spi
00:07:45 verbose #30820 >
00:07:45 verbose #30821 > ╭─[ 220.38ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 verbose #30822 > │ () │
00:07:45 verbose #30823 > │ │
00:07:45 verbose #30824 > │ │
00:07:45 verbose #30825 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30826 >
00:07:45 verbose #30827 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 verbose #30828 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 verbose #30829 > │ ## io_error │
00:07:45 verbose #30830 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30831 >
00:07:45 verbose #30832 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 verbose #30833 > nominal io_error = $"std_io_Error"
00:07:45 verbose #30834 > 00:07:44 debug #602 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/96f30349481243bc77d277f318e9acef643165a5f6671c20b3e8c3160f66b8b5/main.spi
00:07:45 verbose #30835 >
00:07:45 verbose #30836 > ╭─[ 258.48ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 verbose #30837 > │ () │
00:07:45 verbose #30838 > │ │
00:07:45 verbose #30839 > │ │
00:07:45 verbose #30840 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30841 >
00:07:45 verbose #30842 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 verbose #30843 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 verbose #30844 > │ ## filtering │
00:07:45 verbose #30845 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30846 >
00:07:45 verbose #30847 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 verbose #30848 > union filtering =
00:07:45 verbose #30849 > | Ignore
00:07:45 verbose #30850 > | IgnoreDir
00:07:45 verbose #30851 > | Continue
00:07:45 verbose #30852 > 00:07:44 debug #603 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3b56d4eb82e734110032e408deaa72212ebfb66cabd4180e7ab1a65090713fe9/main.spi
00:07:45 verbose #30853 >
00:07:45 verbose #30854 > ╭─[ 228.77ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 verbose #30855 > │ () │
00:07:45 verbose #30856 > │ │
00:07:45 verbose #30857 > │ │
00:07:45 verbose #30858 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30859 >
00:07:45 verbose #30860 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 verbose #30861 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 verbose #30862 > │ ## stream_filter_map │
00:07:45 verbose #30863 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30864 >
00:07:45 verbose #30865 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 verbose #30866 > inl stream_filter_map forall t.
00:07:45 verbose #30867 > (fn : resultm.result' dir_entry io_error -> optionm'.option' t)
00:07:45 verbose #30868 > (stream : walk_dir)
00:07:45 verbose #30869 > : am'.vec t =
00:07:45 verbose #30870 >
00:07:45 verbose #30871 > inl fn = join fn
00:07:45 verbose #30872 > inl result : am'.vec t =
00:07:45 verbose #30873 >
00:07:45 verbose #30874 > !\($'"futures_lite::stream::StreamExt::collect(futures_lite::stream::StreamExt::
00:07:45 verbose #30875 > filter_map(!stream, |x| !fn(x))).await"')
00:07:45 verbose #30876 > result
00:07:45 verbose #30877 > 00:07:45 debug #604 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4f4fa1a4bc2f2473a2c4cd6ead076d9a0be95bd949bc5d5334dd6b770e6747b9/main.spi
00:07:45 verbose #30878 >
00:07:45 verbose #30879 > ╭─[ 236.80ms - stdout ]────────────────────────────────────────────────────────╮
00:07:45 verbose #30880 > │ () │
00:07:45 verbose #30881 > │ │
00:07:45 verbose #30882 > │ │
00:07:45 verbose #30883 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30884 >
00:07:45 verbose #30885 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 verbose #30886 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 verbose #30887 > │ ## new_walk_dir │
00:07:45 verbose #30888 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 verbose #30889 >
00:07:45 verbose #30890 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 verbose #30891 > inl new_walk_dir (dir : string) : walk_dir =
00:07:45 verbose #30892 > !\\(dir, $'"async_walkdir::WalkDir::new(&*$0)"')
00:07:45 verbose #30893 > // inl walk_dir : walk_dir = walk_dir |> rust.to_mut
00:07:45 verbose #30894 > // (!\($'"true; let mut !walk_dir = !walk_dir"') : bool) |> ignore
00:07:45 verbose #30895 > 00:07:45 debug #605 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eba5defcfdb2737ef9480ba5443db8e0be2ede168d59ab6a754a54b6bb812514/main.spi
00:07:46 verbose #30896 >
00:07:46 verbose #30897 > ╭─[ 209.32ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 verbose #30898 > │ () │
00:07:46 verbose #30899 > │ │
00:07:46 verbose #30900 > │ │
00:07:46 verbose #30901 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30902 >
00:07:46 verbose #30903 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 verbose #30904 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 verbose #30905 > │ ## walk_dir_filter │
00:07:46 verbose #30906 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30907 >
00:07:46 verbose #30908 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 verbose #30909 > inl walk_dir_filter (fn : dir_entry -> async.future_pin_send filtering)
00:07:46 verbose #30910 > (walk_dir : walk_dir) : walk_dir =
00:07:46 verbose #30911 > inl fn entry = async.future_init_send (2, 1) 0 fun () =>
00:07:46 verbose #30912 > inl result = fn entry |> async.await_send
00:07:46 verbose #30913 > inl filtering : async_walkdir_filtering =
00:07:46 verbose #30914 > match result with
00:07:46 verbose #30915 > | Ignore => !\($'"async_walkdir::Filtering::Ignore"')
00:07:46 verbose #30916 > | IgnoreDir => !\($'"async_walkdir::Filtering::IgnoreDir"')
00:07:46 verbose #30917 > | Continue => !\($'"async_walkdir::Filtering::Continue"')
00:07:46 verbose #30918 > filtering
00:07:46 verbose #30919 > !\\((walk_dir, fn), $'"async_walkdir::WalkDir::filter($0, |x| $1(x))"')
00:07:46 verbose #30920 > 00:07:45 debug #606 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0c478848a321811d5415cb28079b5feaf8e63fe828d6e9db01baae4198292d13/main.spi
00:07:46 verbose #30921 >
00:07:46 verbose #30922 > ╭─[ 232.41ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 verbose #30923 > │ () │
00:07:46 verbose #30924 > │ │
00:07:46 verbose #30925 > │ │
00:07:46 verbose #30926 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30927 >
00:07:46 verbose #30928 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 verbose #30929 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 verbose #30930 > │ ## file_type │
00:07:46 verbose #30931 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30932 >
00:07:46 verbose #30933 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 verbose #30934 > nominal file_type = $'std_fs_FileType'
00:07:46 verbose #30935 > 00:07:45 debug #607 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6ad4c4f592a4ab6431bbe4274958c37ee7d94e6cdcc9de9bfec37720c04ce1e3/main.spi
00:07:46 verbose #30936 >
00:07:46 verbose #30937 > ╭─[ 236.88ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 verbose #30938 > │ () │
00:07:46 verbose #30939 > │ │
00:07:46 verbose #30940 > │ │
00:07:46 verbose #30941 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30942 >
00:07:46 verbose #30943 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 verbose #30944 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 verbose #30945 > │ ## dir_entry_file_type │
00:07:46 verbose #30946 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30947 >
00:07:46 verbose #30948 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 verbose #30949 > inl dir_entry_file_type (dir_entry : dir_entry) : async.future_pin_send
00:07:46 verbose #30950 > (resultm.result' file_type io_error) =
00:07:46 verbose #30951 > inl dir_entry = join dir_entry
00:07:46 verbose #30952 > !\($'"Box::pin(async_walkdir::DirEntry::file_type(&!dir_entry))"')
00:07:46 verbose #30953 > 00:07:46 debug #608 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1b857a555856c6fd4922765abbe37175d540bdbafe6c006f2d427a90e5fad81e/main.spi
00:07:46 verbose #30954 >
00:07:46 verbose #30955 > ╭─[ 307.64ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 verbose #30956 > │ () │
00:07:46 verbose #30957 > │ │
00:07:46 verbose #30958 > │ │
00:07:46 verbose #30959 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30960 >
00:07:46 verbose #30961 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 verbose #30962 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 verbose #30963 > │ ## file_type_is_dir │
00:07:46 verbose #30964 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #30965 >
00:07:46 verbose #30966 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 verbose #30967 > inl file_type_is_dir (file_type : file_type) : bool =
00:07:46 verbose #30968 > inl file_type = join file_type
00:07:46 verbose #30969 > !\($'"std::fs::FileType::is_dir(&!file_type)"')
00:07:47 verbose #30970 > 00:07:46 debug #609 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f8c0f6a80745e1b4f6ae5b131ff260537c1f6fd04c5afb560fd906b6735db7b5/main.spi
00:07:47 verbose #30971 >
00:07:47 verbose #30972 > ╭─[ 269.37ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 verbose #30973 > │ () │
00:07:47 verbose #30974 > │ │
00:07:47 verbose #30975 > │ │
00:07:47 verbose #30976 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #30977 >
00:07:47 verbose #30978 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:47 verbose #30979 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:47 verbose #30980 > │ ## dir_entry_path │
00:07:47 verbose #30981 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #30982 >
00:07:47 verbose #30983 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 verbose #30984 > inl dir_entry_path (dir_entry : dir_entry) : path_buf =
00:07:47 verbose #30985 > !\\(dir_entry, $'"async_walkdir::DirEntry::path(&$0)"')
00:07:47 verbose #30986 > 00:07:46 debug #610 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d6aa475245598f1b4f415fe9fd5b87e1f4f5e94dc0d3bdf893789cfcfc84dddf/main.spi
00:07:47 verbose #30987 >
00:07:47 verbose #30988 > ╭─[ 218.35ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 verbose #30989 > │ () │
00:07:47 verbose #30990 > │ │
00:07:47 verbose #30991 > │ │
00:07:47 verbose #30992 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #30993 >
00:07:47 verbose #30994 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:47 verbose #30995 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:47 verbose #30996 > │ ## get_temp_path │
00:07:47 verbose #30997 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #30998 >
00:07:47 verbose #30999 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 verbose #31000 > inl get_temp_path () : string =
00:07:47 verbose #31001 > $'System.IO.Path.GetTempPath' ()
00:07:47 verbose #31002 > 00:07:46 debug #611 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b2c51c9ae898b0d2a7387bdcf6901e5cb42a42bfe67849bdde1010316978f644/main.spi
00:07:47 verbose #31003 >
00:07:47 verbose #31004 > ╭─[ 207.73ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 verbose #31005 > │ () │
00:07:47 verbose #31006 > │ │
00:07:47 verbose #31007 > │ │
00:07:47 verbose #31008 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #31009 >
00:07:47 verbose #31010 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:47 verbose #31011 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:47 verbose #31012 > │ ## get_file_name │
00:07:47 verbose #31013 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #31014 >
00:07:47 verbose #31015 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 verbose #31016 > inl get_file_name (path : string) : string =
00:07:47 verbose #31017 > run_target function
00:07:47 verbose #31018 > | Fsharp (Native) => fun () =>
00:07:47 verbose #31019 > path |> $'System.IO.Path.GetFileName'
00:07:47 verbose #31020 > | _ => fun () => null ()
00:07:47 verbose #31021 > 00:07:47 debug #612 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d548faf0cb6bce3705ef5f9c6a1838208b41518f1726a331141486c8f274d954/main.spi
00:07:47 verbose #31022 >
00:07:47 verbose #31023 > ╭─[ 224.91ms - stdout ]────────────────────────────────────────────────────────╮
00:07:47 verbose #31024 > │ () │
00:07:47 verbose #31025 > │ │
00:07:47 verbose #31026 > │ │
00:07:47 verbose #31027 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #31028 >
00:07:47 verbose #31029 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:47 verbose #31030 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:47 verbose #31031 > │ ## get_full_path │
00:07:47 verbose #31032 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #31033 >
00:07:47 verbose #31034 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 verbose #31035 > inl get_full_path (path : string) : string =
00:07:47 verbose #31036 > run_target function
00:07:47 verbose #31037 > | Fsharp (Native) => fun () =>
00:07:47 verbose #31038 > inl path = join path
00:07:47 verbose #31039 > path |> $'System.IO.Path.GetFullPath'
00:07:47 verbose #31040 > | Rust (Native) => fun () =>
00:07:47 verbose #31041 > open rust_operators
00:07:47 verbose #31042 > inl path = !\\(path, $'"std::fs::canonicalize(&*$0)"') :
00:07:47 verbose #31043 > resultm.result' path_buf io_error
00:07:47 verbose #31044 > path
00:07:47 verbose #31045 > |> resultm.unwrap'
00:07:47 verbose #31046 > |> path_buf_display
00:07:47 verbose #31047 > |> sm'.from_std_string
00:07:47 verbose #31048 > | _ => fun () => null ()
00:07:47 verbose #31049 > 00:07:47 debug #613 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/985171f71f79124305dac23760ce707a8f84b86c0483132824013126ed831669/main.spi
00:07:48 verbose #31050 >
00:07:48 verbose #31051 > ╭─[ 280.42ms - stdout ]────────────────────────────────────────────────────────╮
00:07:48 verbose #31052 > │ () │
00:07:48 verbose #31053 > │ │
00:07:48 verbose #31054 > │ │
00:07:48 verbose #31055 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:48 verbose #31056 >
00:07:48 verbose #31057 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:48 verbose #31058 > // // test
00:07:48 verbose #31059 > // // print_code=false
00:07:48 verbose #31060 >
00:07:48 verbose #31061 > "." |> get_full_path
00:07:48 verbose #31062 > |> directory_info
00:07:48 verbose #31063 > |> directory_info_name
00:07:48 verbose #31064 > |> _assert_eq "spiral"
00:07:48 verbose #31065 > 00:07:47 debug #614 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/039c75c8dd13078eae33d63ed39d5ab1bb9c785855e9ffd2d978792512ecaeb3/main.spi
00:07:49 verbose #31066 >
00:07:49 verbose #31067 > ╭─[ 1.16s - stdout ]───────────────────────────────────────────────────────────╮
00:07:49 verbose #31068 > │ "spiral" │
00:07:49 verbose #31069 > │ │
00:07:49 verbose #31070 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:49 verbose #31071 >
00:07:49 verbose #31072 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:49 verbose #31073 > // // test
00:07:49 verbose #31074 > // // rust=
00:07:49 verbose #31075 > // // print_code=false
00:07:49 verbose #31076 >
00:07:49 verbose #31077 > types ()
00:07:49 verbose #31078 > "." |> get_full_path
00:07:49 verbose #31079 > |> new_path_buf
00:07:49 verbose #31080 > |> path_buf_file_name
00:07:49 verbose #31081 > |> optionm'.unwrap
00:07:49 verbose #31082 > |> sm'.to_os_string
00:07:49 verbose #31083 > |> sm'.os_to_str
00:07:49 verbose #31084 > |> optionm'.unwrap
00:07:49 verbose #31085 > |> sm'.ref_to_std_string
00:07:49 verbose #31086 > |> sm'.from_std_string
00:07:49 verbose #31087 > |> _assert_eq "spiral"
00:07:49 verbose #31088 > 00:07:48 debug #615 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cac25265a58cdab4867e4f2224454de048472afe41f5d77b52eecf85c464802f/main.spi
00:07:55 verbose #31089 >
00:07:55 verbose #31090 > ╭─[ 6.40s - return value ]─────────────────────────────────────────────────────╮
00:07:55 verbose #31091 > │ "spiral" │
00:07:55 verbose #31092 > │ │
00:07:55 verbose #31093 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:55 verbose #31094 >
00:07:55 verbose #31095 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:55 verbose #31096 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:55 verbose #31097 > │ ## get_current_directory │
00:07:55 verbose #31098 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:55 verbose #31099 >
00:07:55 verbose #31100 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:55 verbose #31101 > inl get_current_directory () : string =
00:07:55 verbose #31102 > run_target function
00:07:55 verbose #31103 > | Fsharp (Native) => fun () =>
00:07:55 verbose #31104 > $'System.IO.Directory.GetCurrentDirectory' ()
00:07:55 verbose #31105 > | Rust (Native) => fun () =>
00:07:55 verbose #31106 > open rust_operators
00:07:55 verbose #31107 > inl current_dir = !\($'"std::env::current_dir()"') : resultm.result'
00:07:55 verbose #31108 > path_buf io_error
00:07:55 verbose #31109 > current_dir
00:07:55 verbose #31110 > |> resultm.unwrap'
00:07:55 verbose #31111 > |> path_buf_display
00:07:55 verbose #31112 > |> sm'.from_std_string
00:07:55 verbose #31113 > | _ => fun () => null ()
00:07:55 verbose #31114 > 00:07:55 debug #616 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d6267d61bd0ee8d96c7f07d3d60d6b429a13f8ad13909e2d82f8c07122dcd7eb/main.spi
00:07:55 verbose #31115 >
00:07:55 verbose #31116 > ╭─[ 211.61ms - stdout ]────────────────────────────────────────────────────────╮
00:07:55 verbose #31117 > │ () │
00:07:55 verbose #31118 > │ │
00:07:55 verbose #31119 > │ │
00:07:55 verbose #31120 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:55 verbose #31121 >
00:07:55 verbose #31122 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:55 verbose #31123 > // // test
00:07:55 verbose #31124 >
00:07:55 verbose #31125 > get_current_directory ()
00:07:55 verbose #31126 > 00:07:55 debug #617 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2f5a647347b8860f73911f507817a1b36c9b9db3fc736fd26c483bb7e4eabdb1/main.spi
00:07:56 verbose #31127 >
00:07:56 verbose #31128 > ╭─[ 246.97ms - return value ]──────────────────────────────────────────────────╮
00:07:56 verbose #31129 > │ C:\home\git\polyglot\lib\spiral │
00:07:56 verbose #31130 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #31131 >
00:07:56 verbose #31132 > ╭─[ 248.95ms - stdout ]────────────────────────────────────────────────────────╮
00:07:56 verbose #31133 > │ let rec method0 () : string = │
00:07:56 verbose #31134 > │ let v0 : string option = None │
00:07:56 verbose #31135 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:07:56 verbose #31136 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:56 verbose #31137 > │ let v2 : string = "std::env::current_dir()" │
00:07:56 verbose #31138 > │ let v3 : Result<std_path_PathBuf, std_io_Error> = │
00:07:56 verbose #31139 > │ Fable.Core.RustInterop.emitRustExpr () v2 │
00:07:56 verbose #31140 > │ let v4 : string = "$0.unwrap()" │
00:07:56 verbose #31141 > │ let v5 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:07:56 verbose #31142 > │ let v6 : string = "$0.display().to_string()" │
00:07:56 verbose #31143 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:07:56 verbose #31144 > │ let v8 : string = "fable_library_rust::String_::fromString($0)" │
00:07:56 verbose #31145 > │ let v9 : string = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:07:56 verbose #31146 > │ v9 │
00:07:56 verbose #31147 > │ #endif │
00:07:56 verbose #31148 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:56 verbose #31149 > │ let v10 : string = null |> unbox<string> │
00:07:56 verbose #31150 > │ v10 │
00:07:56 verbose #31151 > │ #endif │
00:07:56 verbose #31152 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:56 verbose #31153 > │ let v11 : string = null |> unbox<string> │
00:07:56 verbose #31154 > │ v11 │
00:07:56 verbose #31155 > │ #endif │
00:07:56 verbose #31156 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:56 verbose #31157 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:56 verbose #31158 > │ let v12 : (unit -> string) = System.IO.Directory.GetCurrentDirectory │
00:07:56 verbose #31159 > │ let v13 : string = v12 () │
00:07:56 verbose #31160 > │ v13 │
00:07:56 verbose #31161 > │ #endif │
00:07:56 verbose #31162 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:56 verbose #31163 > │ let v14 : string = null |> unbox<string> │
00:07:56 verbose #31164 > │ v14 │
00:07:56 verbose #31165 > │ #endif │
00:07:56 verbose #31166 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:56 verbose #31167 > │ let v15 : string = Unchecked.defaultof<string> │
00:07:56 verbose #31168 > │ v15 │
00:07:56 verbose #31169 > │ #endif │
00:07:56 verbose #31170 > │ |> fun x -> _v0 <- Some x │
00:07:56 verbose #31171 > │ let v16 : string = _v0.Value │
00:07:56 verbose #31172 > │ v16 │
00:07:56 verbose #31173 > │ method0() │
00:07:56 verbose #31174 > │ │
00:07:56 verbose #31175 > │ │
00:07:56 verbose #31176 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #31177 >
00:07:56 verbose #31178 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:56 verbose #31179 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:56 verbose #31180 > │ ## create_temp_directory_name │
00:07:56 verbose #31181 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #31182 >
00:07:56 verbose #31183 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:56 verbose #31184 > inl create_temp_directory_name () =
00:07:56 verbose #31185 > run_target function
00:07:56 verbose #31186 > | Fsharp (Native) => fun () =>
00:07:56 verbose #31187 > get_temp_path ()
00:07:56 verbose #31188 > </> ($'$"\!{!get_entry_assembly_name ()}"' : string)
00:07:56 verbose #31189 > </> (date_time.now () |> date_time.new_guid_from_date_time |>
00:07:56 verbose #31190 > sm'.obj_to_string)
00:07:56 verbose #31191 > | target => fun () => null ()
00:07:56 verbose #31192 > 00:07:55 debug #618 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1779f4cab2592a4b7bbc4c2483342bb08c20ff1afa6e54c3cd64d9f29192cc16/main.spi
00:07:56 verbose #31193 >
00:07:56 verbose #31194 > ╭─[ 276.52ms - stdout ]────────────────────────────────────────────────────────╮
00:07:56 verbose #31195 > │ () │
00:07:56 verbose #31196 > │ │
00:07:56 verbose #31197 > │ │
00:07:56 verbose #31198 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #31199 >
00:07:56 verbose #31200 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:56 verbose #31201 > // // test
00:07:56 verbose #31202 >
00:07:56 verbose #31203 > create_temp_directory_name ()
00:07:56 verbose #31204 > |> _assert_contains ($'System.IO.Path.DirectorySeparatorChar' : char)
00:07:56 verbose #31205 > 00:07:55 debug #619 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5fd82cf1fd6fcec7cc8c687ca804e9030a9c2ba158247e534b271bfe8dea5956/main.spi
00:07:57 verbose #31206 >
00:07:57 verbose #31207 > ╭─[ 817.23ms - stdout ]────────────────────────────────────────────────────────╮
00:07:57 verbose #31208 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:57 verbose #31209 > │ string │
00:07:57 verbose #31210 > │ type [<Struct>] US0 = │
00:07:57 verbose #31211 > │ | US0_0 of f0_0 : char │
00:07:57 verbose #31212 > │ | US0_1 │
00:07:57 verbose #31213 > │ let rec closure0 () () : string = │
00:07:57 verbose #31214 > │ let v0 : string option = None │
00:07:57 verbose #31215 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:07:57 verbose #31216 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 verbose #31217 > │ let v2 : string = null |> unbox<string> │
00:07:57 verbose #31218 > │ v2 │
00:07:57 verbose #31219 > │ #endif │
00:07:57 verbose #31220 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 verbose #31221 > │ let v3 : string = null |> unbox<string> │
00:07:57 verbose #31222 > │ v3 │
00:07:57 verbose #31223 > │ #endif │
00:07:57 verbose #31224 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 verbose #31225 > │ let v4 : string = null |> unbox<string> │
00:07:57 verbose #31226 > │ v4 │
00:07:57 verbose #31227 > │ #endif │
00:07:57 verbose #31228 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 verbose #31229 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 verbose #31230 > │ let v5 : string = │
00:07:57 verbose #31231 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:57 verbose #31232 > │ v5 │
00:07:57 verbose #31233 > │ #endif │
00:07:57 verbose #31234 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 verbose #31235 > │ let v6 : string = null |> unbox<string> │
00:07:57 verbose #31236 > │ v6 │
00:07:57 verbose #31237 > │ #endif │
00:07:57 verbose #31238 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 verbose #31239 > │ let v7 : string = Unchecked.defaultof<string> │
00:07:57 verbose #31240 > │ v7 │
00:07:57 verbose #31241 > │ #endif │
00:07:57 verbose #31242 > │ |> fun x -> _v0 <- Some x │
00:07:57 verbose #31243 > │ let v8 : string = _v0.Value │
00:07:57 verbose #31244 > │ v8 │
00:07:57 verbose #31245 > │ and method1 (v0 : string) : string = │
00:07:57 verbose #31246 > │ v0 │
00:07:57 verbose #31247 > │ and method2 (v0 : string) : string = │
00:07:57 verbose #31248 > │ v0 │
00:07:57 verbose #31249 > │ and method3 (v0 : string) : string = │
00:07:57 verbose #31250 > │ v0 │
00:07:57 verbose #31251 > │ and closure1 (v0 : char) (v1 : char) : bool = │
00:07:57 verbose #31252 > │ let v2 : bool = v0 = v1 │
00:07:57 verbose #31253 > │ v2 │
00:07:57 verbose #31254 > │ and closure2 () (v0 : char) : US0 = │
00:07:57 verbose #31255 > │ US0_0(v0) │
00:07:57 verbose #31256 > │ and method4 () : (char -> US0) = │
00:07:57 verbose #31257 > │ closure2() │
00:07:57 verbose #31258 > │ and method5 (v0 : bool) : bool = │
00:07:57 verbose #31259 > │ v0 │
00:07:57 verbose #31260 > │ and method0 () : unit = │
00:07:57 verbose #31261 > │ let v0 : string option = None │
00:07:57 verbose #31262 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:07:57 verbose #31263 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 verbose #31264 > │ let v2 : string = null |> unbox<string> │
00:07:57 verbose #31265 > │ v2 │
00:07:57 verbose #31266 > │ #endif │
00:07:57 verbose #31267 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 verbose #31268 > │ let v3 : string = null |> unbox<string> │
00:07:57 verbose #31269 > │ v3 │
00:07:57 verbose #31270 > │ #endif │
00:07:57 verbose #31271 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 verbose #31272 > │ let v4 : string = null |> unbox<string> │
00:07:57 verbose #31273 > │ v4 │
00:07:57 verbose #31274 > │ #endif │
00:07:57 verbose #31275 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 verbose #31276 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 verbose #31277 > │ let v5 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:57 verbose #31278 > │ let v6 : string = v5 () │
00:07:57 verbose #31279 > │ let v7 : (unit -> string) = closure0() │
00:07:57 verbose #31280 > │ let v8 : string = $"!{v7 ()}" │
00:07:57 verbose #31281 > │ let v9 : string option = None │
00:07:57 verbose #31282 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:07:57 verbose #31283 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 verbose #31284 > │ let v11 : string = method1(v6) │
00:07:57 verbose #31285 > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:57 verbose #31286 > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:07:57 verbose #31287 > │ let v14 : string = "String::from($0)" │
00:07:57 verbose #31288 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:07:57 verbose #31289 > │ v14 │
00:07:57 verbose #31290 > │ let v16 : string = "std::path::PathBuf::from($0)" │
00:07:57 verbose #31291 > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v15 v16 │
00:07:57 verbose #31292 > │ let v18 : string = method1(v8) │
00:07:57 verbose #31293 > │ let v19 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:57 verbose #31294 > │ let v20 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:07:57 verbose #31295 > │ let v21 : string = "String::from($0)" │
00:07:57 verbose #31296 > │ let v22 : std_string_String = Fable.Core.RustInterop.emitRustExpr v20 │
00:07:57 verbose #31297 > │ v21 │
00:07:57 verbose #31298 > │ let v23 : string = "$0.join($1)" │
00:07:57 verbose #31299 > │ let v24 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:57 verbose #31300 > │ (v17, v22) v23 │
00:07:57 verbose #31301 > │ let v25 : string = "$0.display().to_string()" │
00:07:57 verbose #31302 > │ let v26 : std_string_String = Fable.Core.RustInterop.emitRustExpr v24 │
00:07:57 verbose #31303 > │ v25 │
00:07:57 verbose #31304 > │ let v27 : string = "fable_library_rust::String_::fromString($0)" │
00:07:57 verbose #31305 > │ let v28 : string = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:07:57 verbose #31306 > │ v28 │
00:07:57 verbose #31307 > │ #endif │
00:07:57 verbose #31308 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 verbose #31309 > │ let v29 : string = null |> unbox<string> │
00:07:57 verbose #31310 > │ v29 │
00:07:57 verbose #31311 > │ #endif │
00:07:57 verbose #31312 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 verbose #31313 > │ let v30 : string = null |> unbox<string> │
00:07:57 verbose #31314 > │ v30 │
00:07:57 verbose #31315 > │ #endif │
00:07:57 verbose #31316 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 verbose #31317 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 verbose #31318 > │ let v31 : string = System.IO.Path.Combine (v6, v8) │
00:07:57 verbose #31319 > │ v31 │
00:07:57 verbose #31320 > │ #endif │
00:07:57 verbose #31321 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 verbose #31322 > │ let v32 : string = "path" │
00:07:57 verbose #31323 > │ let v33 : IPathJoin = Fable.Core.JsInterop.importAll v32 │
00:07:57 verbose #31324 > │ let v34 : string = method2(v6) │
00:07:57 verbose #31325 > │ let v35 : string = method3(v8) │
00:07:57 verbose #31326 > │ let v36 : string = "v33.join(v34, v35)" │
00:07:57 verbose #31327 > │ let v37 : string = Fable.Core.JsInterop.emitJsExpr () v36 │
00:07:57 verbose #31328 > │ v37 │
00:07:57 verbose #31329 > │ #endif │
00:07:57 verbose #31330 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 verbose #31331 > │ let v38 : string = Unchecked.defaultof<string> │
00:07:57 verbose #31332 > │ v38 │
00:07:57 verbose #31333 > │ #endif │
00:07:57 verbose #31334 > │ |> fun x -> _v9 <- Some x │
00:07:57 verbose #31335 > │ let v39 : string = _v9.Value │
00:07:57 verbose #31336 > │ let v40 : System.DateTime = System.DateTime.Now │
00:07:57 verbose #31337 > │ let v41 : System.Guid = System.Guid.NewGuid () │
00:07:57 verbose #31338 > │ let v42 : (System.Guid -> string) = _.ToString() │
00:07:57 verbose #31339 > │ let v43 : string = v42 v41 │
00:07:57 verbose #31340 > │ let v44 : string = v40.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:57 verbose #31341 > │ let v45 : System.Guid = System.Guid $"{v44}{v43.[v44.Length..]}" │
00:07:57 verbose #31342 > │ let v46 : (System.Guid -> string) = _.ToString() │
00:07:57 verbose #31343 > │ let v47 : string = v46 v45 │
00:07:57 verbose #31344 > │ let v48 : string option = None │
00:07:57 verbose #31345 > │ let v49 : bool = true in let mutable _v48 = v48 │
00:07:57 verbose #31346 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 verbose #31347 > │ let v50 : string = method1(v39) │
00:07:57 verbose #31348 > │ let v51 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:57 verbose #31349 > │ let v52 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v50 v51 │
00:07:57 verbose #31350 > │ let v53 : string = "String::from($0)" │
00:07:57 verbose #31351 > │ let v54 : std_string_String = Fable.Core.RustInterop.emitRustExpr v52 │
00:07:57 verbose #31352 > │ v53 │
00:07:57 verbose #31353 > │ let v55 : string = "std::path::PathBuf::from($0)" │
00:07:57 verbose #31354 > │ let v56 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v54 v55 │
00:07:57 verbose #31355 > │ let v57 : string = method1(v47) │
00:07:57 verbose #31356 > │ let v58 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:57 verbose #31357 > │ let v59 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v57 v58 │
00:07:57 verbose #31358 > │ let v60 : string = "String::from($0)" │
00:07:57 verbose #31359 > │ let v61 : std_string_String = Fable.Core.RustInterop.emitRustExpr v59 │
00:07:57 verbose #31360 > │ v60 │
00:07:57 verbose #31361 > │ let v62 : string = "$0.join($1)" │
00:07:57 verbose #31362 > │ let v63 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:57 verbose #31363 > │ (v56, v61) v62 │
00:07:57 verbose #31364 > │ let v64 : string = "$0.display().to_string()" │
00:07:57 verbose #31365 > │ let v65 : std_string_String = Fable.Core.RustInterop.emitRustExpr v63 │
00:07:57 verbose #31366 > │ v64 │
00:07:57 verbose #31367 > │ let v66 : string = "fable_library_rust::String_::fromString($0)" │
00:07:57 verbose #31368 > │ let v67 : string = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:07:57 verbose #31369 > │ v67 │
00:07:57 verbose #31370 > │ #endif │
00:07:57 verbose #31371 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 verbose #31372 > │ let v68 : string = null |> unbox<string> │
00:07:57 verbose #31373 > │ v68 │
00:07:57 verbose #31374 > │ #endif │
00:07:57 verbose #31375 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 verbose #31376 > │ let v69 : string = null |> unbox<string> │
00:07:57 verbose #31377 > │ v69 │
00:07:57 verbose #31378 > │ #endif │
00:07:57 verbose #31379 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 verbose #31380 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 verbose #31381 > │ let v70 : string = System.IO.Path.Combine (v39, v47) │
00:07:57 verbose #31382 > │ v70 │
00:07:57 verbose #31383 > │ #endif │
00:07:57 verbose #31384 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 verbose #31385 > │ let v71 : IPathJoin = Fable.Core.JsInterop.importAll v32 │
00:07:57 verbose #31386 > │ let v72 : string = method2(v39) │
00:07:57 verbose #31387 > │ let v73 : string = method3(v47) │
00:07:57 verbose #31388 > │ let v74 : string = "v71.join(v72, v73)" │
00:07:57 verbose #31389 > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr () v74 │
00:07:57 verbose #31390 > │ v75 │
00:07:57 verbose #31391 > │ #endif │
00:07:57 verbose #31392 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 verbose #31393 > │ let v76 : string = Unchecked.defaultof<string> │
00:07:57 verbose #31394 > │ v76 │
00:07:57 verbose #31395 > │ #endif │
00:07:57 verbose #31396 > │ |> fun x -> _v48 <- Some x │
00:07:57 verbose #31397 > │ let v77 : string = _v48.Value │
00:07:57 verbose #31398 > │ v77 │
00:07:57 verbose #31399 > │ #endif │
00:07:57 verbose #31400 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 verbose #31401 > │ let v78 : string = null |> unbox<string> │
00:07:57 verbose #31402 > │ v78 │
00:07:57 verbose #31403 > │ #endif │
00:07:57 verbose #31404 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 verbose #31405 > │ let v79 : string = Unchecked.defaultof<string> │
00:07:57 verbose #31406 > │ v79 │
00:07:57 verbose #31407 > │ #endif │
00:07:57 verbose #31408 > │ |> fun x -> _v0 <- Some x │
00:07:57 verbose #31409 > │ let v80 : string = _v0.Value │
00:07:57 verbose #31410 > │ let v81 : char = System.IO.Path.DirectorySeparatorChar │
00:07:57 verbose #31411 > │ let v82 : string = $"%A{v80}" │
00:07:57 verbose #31412 > │ System.Console.WriteLine v82 │
00:07:57 verbose #31413 > │ let v83 : (string -> char list) = List.ofSeq │
00:07:57 verbose #31414 > │ let v84 : char list = v83 v80 │
00:07:57 verbose #31415 > │ let v85 : ((char -> bool) -> (char list -> char option)) = List.tryFind │
00:07:57 verbose #31416 > │ let v86 : (char -> bool) = closure1(v81) │
00:07:57 verbose #31417 > │ let v87 : (char list -> char option) = v85 v86 │
00:07:57 verbose #31418 > │ let v88 : char option = v87 v84 │
00:07:57 verbose #31419 > │ let v89 : (char -> US0) = method4() │
00:07:57 verbose #31420 > │ let v90 : US0 = US0_1 │
00:07:57 verbose #31421 > │ let v91 : US0 = v88 |> Option.map v89 |> Option.defaultValue v90 │
00:07:57 verbose #31422 > │ let v93 : bool = │
00:07:57 verbose #31423 > │ match v91 with │
00:07:57 verbose #31424 > │ | US0_1 -> (* None *) │
00:07:57 verbose #31425 > │ true │
00:07:57 verbose #31426 > │ | _ -> │
00:07:57 verbose #31427 > │ false │
00:07:57 verbose #31428 > │ let v94 : bool = v93 <> true │
00:07:57 verbose #31429 > │ let v96 : bool = │
00:07:57 verbose #31430 > │ if v94 then │
00:07:57 verbose #31431 > │ true │
00:07:57 verbose #31432 > │ else │
00:07:57 verbose #31433 > │ method5(v94) │
00:07:57 verbose #31434 > │ let v97 : string = $"__expect / actual: %A{v80} / expected: %A{v81}" │
00:07:57 verbose #31435 > │ let v98 : bool = v96 = false │
00:07:57 verbose #31436 > │ if v98 then │
00:07:57 verbose #31437 > │ failwith<unit> v97 │
00:07:57 verbose #31438 > │ method0() │
00:07:57 verbose #31439 > │ │
00:07:57 verbose #31440 > │ "C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0140-2813-1362-1234 │
00:07:57 verbose #31441 > │ a1fff8af" │
00:07:57 verbose #31442 > │ │
00:07:57 verbose #31443 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:57 verbose #31444 >
00:07:57 verbose #31445 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:57 verbose #31446 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:57 verbose #31447 > │ ## get_source_directory │
00:07:57 verbose #31448 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:57 verbose #31449 >
00:07:57 verbose #31450 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:57 verbose #31451 > inl get_source_directory () =
00:07:57 verbose #31452 > $'__SOURCE_DIRECTORY__' : string
00:07:57 verbose #31453 > 00:07:56 debug #620 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/605c02696b4adfd45bc141ea6ea30e88a23fdc809e0bd1a15a4e71a46e806837/main.spi
00:07:57 verbose #31454 >
00:07:57 verbose #31455 > ╭─[ 213.98ms - stdout ]────────────────────────────────────────────────────────╮
00:07:57 verbose #31456 > │ () │
00:07:57 verbose #31457 > │ │
00:07:57 verbose #31458 > │ │
00:07:57 verbose #31459 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:57 verbose #31460 >
00:07:57 verbose #31461 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:57 verbose #31462 > // // test
00:07:57 verbose #31463 >
00:07:57 verbose #31464 > get_source_directory ()
00:07:57 verbose #31465 > |> directory_info
00:07:57 verbose #31466 > |> directory_info_name
00:07:57 verbose #31467 > |> _assert_eq "spiral"
00:07:57 verbose #31468 > 00:07:57 debug #621 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7ad34623ac166b68559f8587095b8d6dfc1c8e9fbbb69f1fc810211081cbd453/main.spi
00:07:57 verbose #31469 >
00:07:57 verbose #31470 > ╭─[ 230.99ms - stdout ]────────────────────────────────────────────────────────╮
00:07:57 verbose #31471 > │ let rec method1 (v0 : bool) : bool = │
00:07:57 verbose #31472 > │ v0 │
00:07:57 verbose #31473 > │ and method0 () : unit = │
00:07:57 verbose #31474 > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:07:57 verbose #31475 > │ let v1 : (string -> System.IO.DirectoryInfo) = System.IO.DirectoryInfo │
00:07:57 verbose #31476 > │ let v2 : System.IO.DirectoryInfo = v1 v0 │
00:07:57 verbose #31477 > │ let v3 : string option = None │
00:07:57 verbose #31478 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:07:57 verbose #31479 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 verbose #31480 > │ let v5 : string = null |> unbox<string> │
00:07:57 verbose #31481 > │ v5 │
00:07:57 verbose #31482 > │ #endif │
00:07:57 verbose #31483 > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 verbose #31484 > │ let v6 : string = null |> unbox<string> │
00:07:57 verbose #31485 > │ v6 │
00:07:57 verbose #31486 > │ #endif │
00:07:57 verbose #31487 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 verbose #31488 > │ let v7 : string = null |> unbox<string> │
00:07:57 verbose #31489 > │ v7 │
00:07:57 verbose #31490 > │ #endif │
00:07:57 verbose #31491 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 verbose #31492 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 verbose #31493 > │ let v8 : string = v2.Name │
00:07:57 verbose #31494 > │ v8 │
00:07:57 verbose #31495 > │ #endif │
00:07:57 verbose #31496 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 verbose #31497 > │ let v9 : string = null |> unbox<string> │
00:07:57 verbose #31498 > │ v9 │
00:07:57 verbose #31499 > │ #endif │
00:07:57 verbose #31500 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 verbose #31501 > │ let v10 : string = Unchecked.defaultof<string> │
00:07:57 verbose #31502 > │ v10 │
00:07:57 verbose #31503 > │ #endif │
00:07:57 verbose #31504 > │ |> fun x -> _v3 <- Some x │
00:07:57 verbose #31505 > │ let v11 : string = _v3.Value │
00:07:57 verbose #31506 > │ let v12 : string = $"%A{v11}" │
00:07:57 verbose #31507 > │ System.Console.WriteLine v12 │
00:07:57 verbose #31508 > │ let v14 : bool = v11 = "spiral" │
00:07:57 verbose #31509 > │ let v16 : bool = │
00:07:57 verbose #31510 > │ if v14 then │
00:07:57 verbose #31511 > │ true │
00:07:57 verbose #31512 > │ else │
00:07:57 verbose #31513 > │ method1(v14) │
00:07:57 verbose #31514 > │ let v17 : string = "spiral" │
00:07:57 verbose #31515 > │ let v18 : string = $"__expect / actual: %A{v11} / expected: %A{v17}" │
00:07:57 verbose #31516 > │ let v19 : bool = v16 = false │
00:07:57 verbose #31517 > │ if v19 then │
00:07:57 verbose #31518 > │ failwith<unit> v18 │
00:07:57 verbose #31519 > │ method0() │
00:07:57 verbose #31520 > │ │
00:07:57 verbose #31521 > │ "spiral" │
00:07:57 verbose #31522 > │ │
00:07:57 verbose #31523 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:57 verbose #31524 >
00:07:57 verbose #31525 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:57 verbose #31526 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:57 verbose #31527 > │ ## create_directory │
00:07:57 verbose #31528 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:57 verbose #31529 >
00:07:57 verbose #31530 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:57 verbose #31531 > inl create_directory (path : string) : directory_info =
00:07:57 verbose #31532 > run_target function
00:07:57 verbose #31533 > | Fsharp (Native) => fun () =>
00:07:57 verbose #31534 > path |> $'System.IO.Directory.CreateDirectory'
00:07:57 verbose #31535 > | _ => fun () => null ()
00:07:57 verbose #31536 > 00:07:57 debug #622 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b0ea3b84ec9ca51f525ad69b2eae31bed9754cc265a2732db9e97cc0d5888dee/main.spi
00:07:58 verbose #31537 >
00:07:58 verbose #31538 > ╭─[ 228.12ms - stdout ]────────────────────────────────────────────────────────╮
00:07:58 verbose #31539 > │ () │
00:07:58 verbose #31540 > │ │
00:07:58 verbose #31541 > │ │
00:07:58 verbose #31542 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31543 >
00:07:58 verbose #31544 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:58 verbose #31545 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:58 verbose #31546 > │ ## directory_get_files │
00:07:58 verbose #31547 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31548 >
00:07:58 verbose #31549 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 verbose #31550 > inl directory_get_files (path : string) : array_base string =
00:07:58 verbose #31551 > run_target function
00:07:58 verbose #31552 > | Fsharp (Native) => fun () =>
00:07:58 verbose #31553 > path |> $'System.IO.Directory.GetFiles'
00:07:58 verbose #31554 > | _ => fun () => null ()
00:07:58 verbose #31555 > 00:07:57 debug #623 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/633424c5c71f9ab430cbaacb8a3d7092683e41573aa5bfcfcf8636d2d566f1e7/main.spi
00:07:58 verbose #31556 >
00:07:58 verbose #31557 > ╭─[ 235.98ms - stdout ]────────────────────────────────────────────────────────╮
00:07:58 verbose #31558 > │ () │
00:07:58 verbose #31559 > │ │
00:07:58 verbose #31560 > │ │
00:07:58 verbose #31561 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31562 >
00:07:58 verbose #31563 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:58 verbose #31564 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:58 verbose #31565 > │ ## directory_exists │
00:07:58 verbose #31566 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31567 >
00:07:58 verbose #31568 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 verbose #31569 > inl directory_exists (path : string) : bool =
00:07:58 verbose #31570 > run_target function
00:07:58 verbose #31571 > | Rust (Native) => fun () =>
00:07:58 verbose #31572 > inl path = path |> new_path_buf
00:07:58 verbose #31573 > (path |> path_buf_exists) && (path |> path_buf_is_dir)
00:07:58 verbose #31574 > | Fsharp (Native) => fun () =>
00:07:58 verbose #31575 > path |> $'System.IO.Directory.Exists'
00:07:58 verbose #31576 > | TypeScript (Native) => fun () =>
00:07:58 verbose #31577 > global "type IFsExistsSync = abstract existsSync: path: string ->
00:07:58 verbose #31578 > bool"
00:07:58 verbose #31579 > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:07:58 verbose #31580 > ts.emit_expr path $'"!fs.existsSync($0)"'
00:07:58 verbose #31581 > | _ => fun () => null ()
00:07:58 verbose #31582 > 00:07:57 debug #624 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2698a14c20f69452606c58655f2621c42c2cdd799269514ac7b3af2dd3224d56/main.spi
00:07:58 verbose #31583 >
00:07:58 verbose #31584 > ╭─[ 251.05ms - stdout ]────────────────────────────────────────────────────────╮
00:07:58 verbose #31585 > │ () │
00:07:58 verbose #31586 > │ │
00:07:58 verbose #31587 > │ │
00:07:58 verbose #31588 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31589 >
00:07:58 verbose #31590 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:58 verbose #31591 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:58 verbose #31592 > │ ## directory_get_parent │
00:07:58 verbose #31593 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31594 >
00:07:58 verbose #31595 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 verbose #31596 > inl directory_get_parent (path : string) : optionm'.option' string =
00:07:58 verbose #31597 > run_target function
00:07:58 verbose #31598 > | Rust (Native) => fun () =>
00:07:58 verbose #31599 > path
00:07:58 verbose #31600 > |> new_path_buf
00:07:58 verbose #31601 > |> path_buf_parent
00:07:58 verbose #31602 > |> optionm'.try'
00:07:58 verbose #31603 > |> path_buf_display
00:07:58 verbose #31604 > |> sm'.from_std_string
00:07:58 verbose #31605 > |> Some
00:07:58 verbose #31606 > | Fsharp (Native) => fun () =>
00:07:58 verbose #31607 > inl parent : directory_info = path |>
00:07:58 verbose #31608 > $'System.IO.Directory.GetParent'
00:07:58 verbose #31609 > if parent =. null ()
00:07:58 verbose #31610 > then None
00:07:58 verbose #31611 > else parent |> directory_info_full_name |> Some
00:07:58 verbose #31612 > | TypeScript _ => fun () =>
00:07:58 verbose #31613 > global "type IPathDirname = abstract dirname: path: string ->
00:07:58 verbose #31614 > string"
00:07:58 verbose #31615 > inl fs : $'IPathDirname' = ts.import_all "path"
00:07:58 verbose #31616 > ts.emit_expr path $'"!fs.dirname($0)"' |> Some
00:07:58 verbose #31617 > | _ => fun () => null ()
00:07:58 verbose #31618 > |> optionm'.box
00:07:58 verbose #31619 > 00:07:58 debug #625 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/de9ace4202bc4afce024a6e16be3930a5faa63cc342e034dc7dcea098be4e020/main.spi
00:07:58 verbose #31620 >
00:07:58 verbose #31621 > ╭─[ 215.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:58 verbose #31622 > │ () │
00:07:58 verbose #31623 > │ │
00:07:58 verbose #31624 > │ │
00:07:58 verbose #31625 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31626 >
00:07:58 verbose #31627 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:58 verbose #31628 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:58 verbose #31629 > │ ## file_delete │
00:07:58 verbose #31630 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31631 >
00:07:58 verbose #31632 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 verbose #31633 > inl file_delete (path : string) : () =
00:07:58 verbose #31634 > run_target function
00:07:58 verbose #31635 > | Fsharp (Native) => fun () =>
00:07:58 verbose #31636 > path |> $'System.IO.File.Delete'
00:07:58 verbose #31637 > | _ => fun () => null ()
00:07:58 verbose #31638 > 00:07:58 debug #626 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c9e51e2cf5c4ba6c9d3cddd0204a721de809e114f130e3d70fbeff5b1333943f/main.spi
00:07:58 verbose #31639 >
00:07:58 verbose #31640 > ╭─[ 207.42ms - stdout ]────────────────────────────────────────────────────────╮
00:07:58 verbose #31641 > │ () │
00:07:58 verbose #31642 > │ │
00:07:58 verbose #31643 > │ │
00:07:58 verbose #31644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31645 >
00:07:58 verbose #31646 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:58 verbose #31647 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:58 verbose #31648 > │ ## file_move │
00:07:58 verbose #31649 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 verbose #31650 >
00:07:58 verbose #31651 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 verbose #31652 > inl file_move (old_path : string) (new_path : string) : () =
00:07:58 verbose #31653 > run_target function
00:07:58 verbose #31654 > | Fsharp (Native) => fun () =>
00:07:58 verbose #31655 > $'System.IO.File.Move (!old_path, !new_path)'
00:07:58 verbose #31656 > | _ => fun () => null ()
00:07:59 verbose #31657 > 00:07:58 debug #627 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/85b2922f274b2a56d00858ce528a59c9eac7f87f6fc56a00a8844ac5efc1806f/main.spi
00:07:59 verbose #31658 >
00:07:59 verbose #31659 > ╭─[ 214.49ms - stdout ]────────────────────────────────────────────────────────╮
00:07:59 verbose #31660 > │ () │
00:07:59 verbose #31661 > │ │
00:07:59 verbose #31662 > │ │
00:07:59 verbose #31663 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31664 >
00:07:59 verbose #31665 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:59 verbose #31666 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:59 verbose #31667 > │ ## file_exists │
00:07:59 verbose #31668 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31669 >
00:07:59 verbose #31670 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:59 verbose #31671 > inl file_exists (path : string) : bool =
00:07:59 verbose #31672 > run_target function
00:07:59 verbose #31673 > | Rust (Native) => fun () =>
00:07:59 verbose #31674 > inl path_buf = path |> new_path_buf
00:07:59 verbose #31675 > (path_buf |> path_buf_exists) && (path_buf |> path_buf_is_file)
00:07:59 verbose #31676 > | Fsharp (Native) => fun () =>
00:07:59 verbose #31677 > path |> $'System.IO.File.Exists'
00:07:59 verbose #31678 > | TypeScript (Native) => fun () =>
00:07:59 verbose #31679 > global "type IFsExistsSync = abstract existsSync: path: string ->
00:07:59 verbose #31680 > bool"
00:07:59 verbose #31681 > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:07:59 verbose #31682 > ts.emit_expr path $'"!fs.existsSync($0)"'
00:07:59 verbose #31683 > | _ => fun () => null ()
00:07:59 verbose #31684 > 00:07:58 debug #628 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8ac0f54550a5949c62d5fb66606bfcf2fb6b178ad28323631f64bea969ae9fd3/main.spi
00:07:59 verbose #31685 >
00:07:59 verbose #31686 > ╭─[ 209.10ms - stdout ]────────────────────────────────────────────────────────╮
00:07:59 verbose #31687 > │ () │
00:07:59 verbose #31688 > │ │
00:07:59 verbose #31689 > │ │
00:07:59 verbose #31690 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31691 >
00:07:59 verbose #31692 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:59 verbose #31693 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:59 verbose #31694 > │ ## directory_delete │
00:07:59 verbose #31695 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31696 >
00:07:59 verbose #31697 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:59 verbose #31698 > inl directory_delete recursive (path : string) : () =
00:07:59 verbose #31699 > run_target function
00:07:59 verbose #31700 > | Fsharp (Native) => fun () =>
00:07:59 verbose #31701 > $'System.IO.Directory.Delete (!path, !recursive)'
00:07:59 verbose #31702 > | _ => fun () => null ()
00:07:59 verbose #31703 > 00:07:58 debug #629 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b3cd5995e0a19b54aa7692e8ab2241828e73b3c60686201f5bf7b4da5bc1e0e0/main.spi
00:07:59 verbose #31704 >
00:07:59 verbose #31705 > ╭─[ 248.63ms - stdout ]────────────────────────────────────────────────────────╮
00:07:59 verbose #31706 > │ () │
00:07:59 verbose #31707 > │ │
00:07:59 verbose #31708 > │ │
00:07:59 verbose #31709 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31710 >
00:07:59 verbose #31711 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:59 verbose #31712 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:59 verbose #31713 > │ ## read_all_text_async │
00:07:59 verbose #31714 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31715 >
00:07:59 verbose #31716 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:59 verbose #31717 > inl read_all_text_async (path : string) : _ string =
00:07:59 verbose #31718 > run_target function
00:07:59 verbose #31719 > | Fsharp (Native) => fun () =>
00:07:59 verbose #31720 > path |> $'System.IO.File.ReadAllTextAsync' |> async.await_task
00:07:59 verbose #31721 > | _ => fun () => null ()
00:07:59 verbose #31722 > 00:07:59 debug #630 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9c2035ec17fc3994ee6b26c6f4cccb3eaee3050ce08c770931707393285a831c/main.spi
00:07:59 verbose #31723 >
00:07:59 verbose #31724 > ╭─[ 273.48ms - stdout ]────────────────────────────────────────────────────────╮
00:07:59 verbose #31725 > │ () │
00:07:59 verbose #31726 > │ │
00:07:59 verbose #31727 > │ │
00:07:59 verbose #31728 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31729 >
00:07:59 verbose #31730 > ── markdown ────────────────────────────────────────────────────────────────────
00:07:59 verbose #31731 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:59 verbose #31732 > │ ## file_exists_content │
00:07:59 verbose #31733 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 verbose #31734 >
00:07:59 verbose #31735 > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:59 verbose #31736 > inl file_exists_content path content : _ bool =
00:07:59 verbose #31737 > run_target function
00:07:59 verbose #31738 > | Fsharp (Native) => fun () =>
00:07:59 verbose #31739 > fun () =>
00:07:59 verbose #31740 > if path |> file_exists |> not
00:07:59 verbose #31741 > then false |> return |> fun x => $'(*' : ()
00:07:59 verbose #31742 > else
00:07:59 verbose #31743 > $'*) else' : ()
00:07:59 verbose #31744 > inl existing_content = path |> read_all_text_async |>
00:07:59 verbose #31745 > async.let'
00:07:59 verbose #31746 > content = existing_content |> return |> fun x => $'(*' : ()
00:07:59 verbose #31747 > |> fun x => $'*)' : ()
00:07:59 verbose #31748 > |> async.new_async_unit
00:07:59 verbose #31749 > | _ => fun () => null ()
00:08:00 verbose #31750 > 00:07:59 debug #631 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4d999b96c7874a965cd1217fd65f23cf6d523f9c7bcd94073d8189fdeebcfafa/main.spi
00:08:00 verbose #31751 >
00:08:00 verbose #31752 > ╭─[ 190.34ms - stdout ]────────────────────────────────────────────────────────╮
00:08:00 verbose #31753 > │ () │
00:08:00 verbose #31754 > │ │
00:08:00 verbose #31755 > │ │
00:08:00 verbose #31756 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31757 >
00:08:00 verbose #31758 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:00 verbose #31759 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:00 verbose #31760 > │ ## write_all_text │
00:08:00 verbose #31761 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31762 >
00:08:00 verbose #31763 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:00 verbose #31764 > inl write_all_text (path : string) (text : string) : () =
00:08:00 verbose #31765 > run_target function
00:08:00 verbose #31766 > | Fsharp (Native) => fun () =>
00:08:00 verbose #31767 > $'System.IO.File.WriteAllText (!path, !text)'
00:08:00 verbose #31768 > | _ => fun () => null ()
00:08:00 verbose #31769 > 00:07:59 debug #632 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/729f674f8d75788f0133e1d809b1c1bf5d5496c489b2e705bd13af06784cc042/main.spi
00:08:00 verbose #31770 >
00:08:00 verbose #31771 > ╭─[ 231.64ms - stdout ]────────────────────────────────────────────────────────╮
00:08:00 verbose #31772 > │ () │
00:08:00 verbose #31773 > │ │
00:08:00 verbose #31774 > │ │
00:08:00 verbose #31775 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31776 >
00:08:00 verbose #31777 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:00 verbose #31778 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:00 verbose #31779 > │ ## write_all_text_async │
00:08:00 verbose #31780 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31781 >
00:08:00 verbose #31782 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:00 verbose #31783 > inl write_all_text_async (path : string) (text : string) : _ () =
00:08:00 verbose #31784 > run_target function
00:08:00 verbose #31785 > | Fsharp (Native) => fun () =>
00:08:00 verbose #31786 > $'System.IO.File.WriteAllTextAsync (!path, !text)' |>
00:08:00 verbose #31787 > async.await_task
00:08:00 verbose #31788 > | _ => fun () => null ()
00:08:00 verbose #31789 > 00:07:59 debug #633 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/275b2d07d7f2cf62eada63b2a7b79900ee3663e9926f419d838c7b8fe168eecd/main.spi
00:08:00 verbose #31790 >
00:08:00 verbose #31791 > ╭─[ 237.91ms - stdout ]────────────────────────────────────────────────────────╮
00:08:00 verbose #31792 > │ () │
00:08:00 verbose #31793 > │ │
00:08:00 verbose #31794 > │ │
00:08:00 verbose #31795 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31796 >
00:08:00 verbose #31797 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:00 verbose #31798 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:00 verbose #31799 > │ ## write_all_text_exists │
00:08:00 verbose #31800 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31801 >
00:08:00 verbose #31802 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:00 verbose #31803 > inl write_all_text_exists path contents =
00:08:00 verbose #31804 > fun () =>
00:08:00 verbose #31805 > inl exists' = contents |> file_exists_content path |> async.let'
00:08:00 verbose #31806 > if not exists'
00:08:00 verbose #31807 > then contents |> write_all_text_async path |> async.do
00:08:00 verbose #31808 > |> async.new_async
00:08:00 verbose #31809 > 00:08:00 debug #634 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/126b997246bff5eb1dae207e08cc2d1b7a88618fe3c97e323b12c07d712de313/main.spi
00:08:00 verbose #31810 >
00:08:00 verbose #31811 > ╭─[ 216.78ms - stdout ]────────────────────────────────────────────────────────╮
00:08:00 verbose #31812 > │ () │
00:08:00 verbose #31813 > │ │
00:08:00 verbose #31814 > │ │
00:08:00 verbose #31815 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31816 >
00:08:00 verbose #31817 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:00 verbose #31818 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:00 verbose #31819 > │ ## delete_directory_async │
00:08:00 verbose #31820 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:00 verbose #31821 >
00:08:00 verbose #31822 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:00 verbose #31823 > inl delete_directory_async path : _ i64 =
00:08:00 verbose #31824 > run_target function
00:08:00 verbose #31825 > | Fsharp (Native) => fun () =>
00:08:00 verbose #31826 > let rec loop (retry : i64) =
00:08:00 verbose #31827 > fun () =>
00:08:00 verbose #31828 > try_unit
00:08:00 verbose #31829 > fun () =>
00:08:00 verbose #31830 > path |> directory_delete true
00:08:00 verbose #31831 > retry |> return
00:08:00 verbose #31832 > fun ex =>
00:08:00 verbose #31833 > if retry % 100i64 = 0 then
00:08:00 verbose #31834 > inl ex = ex |> sm'.format_exception
00:08:00 verbose #31835 > trace Debug
00:08:00 verbose #31836 > fun () =>
00:08:00 verbose #31837 > "file_system.delete_directory_async"
00:08:00 verbose #31838 > fun () => $'$"path: {!path |>
00:08:00 verbose #31839 > !get_file_name} / ex: {!ex} / {!_locals ()}"'
00:08:00 verbose #31840 > async.sleep 10i32 |> async.do
00:08:00 verbose #31841 > loop (retry + 1) |> async.return_await
00:08:00 verbose #31842 > |> async.new_async
00:08:00 verbose #31843 > loop 0
00:08:00 verbose #31844 > | _ => fun () => null ()
00:08:00 verbose #31845 > 00:08:00 debug #635 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/221fddf070038fbcbee80de4d8f2cfd1ef86584f7c0ec1d89941c276f0d1cfbf/main.spi
00:08:01 verbose #31846 >
00:08:01 verbose #31847 > ╭─[ 279.94ms - stdout ]────────────────────────────────────────────────────────╮
00:08:01 verbose #31848 > │ () │
00:08:01 verbose #31849 > │ │
00:08:01 verbose #31850 > │ │
00:08:01 verbose #31851 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #31852 >
00:08:01 verbose #31853 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #31854 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #31855 > │ ## create_temp_directory │
00:08:01 verbose #31856 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #31857 >
00:08:01 verbose #31858 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #31859 > inl create_temp_directory () =
00:08:01 verbose #31860 > run_target function
00:08:01 verbose #31861 > | Fsharp (Native) => fun () =>
00:08:01 verbose #31862 > inl temp_folder = create_temp_directory_name ()
00:08:01 verbose #31863 > inl result = temp_folder |> create_directory
00:08:01 verbose #31864 >
00:08:01 verbose #31865 > inl exists' = result |> directory_info_exists
00:08:01 verbose #31866 > if not exists' then
00:08:01 verbose #31867 > inl creation_time = result |> directory_info_creation_time
00:08:01 verbose #31868 > inl result = ($'{| Exists = !exists'; CreationTime =
00:08:01 verbose #31869 > !creation_time |}' : any) |> sm'.format_debug
00:08:01 verbose #31870 > trace Debug
00:08:01 verbose #31871 > fun () => "file_system.create_temp_directory"
00:08:01 verbose #31872 > fun () => $'$"temp_folder: {!temp_folder} / result:
00:08:01 verbose #31873 > {!result} {!_locals ()}"'
00:08:01 verbose #31874 > inl disposable : _ () = new_disposable fun () =>
00:08:01 verbose #31875 > temp_folder
00:08:01 verbose #31876 > |> delete_directory_async
00:08:01 verbose #31877 > |> async.ignore
00:08:01 verbose #31878 > |> async.run_synchronously
00:08:01 verbose #31879 > temp_folder, disposable
00:08:01 verbose #31880 > | _ => fun () => null ()
00:08:01 verbose #31881 > 00:08:00 debug #636 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/00d5659008b476b7e0b80c3a39e72b49818d6f4928789f1e36012bab0e3d8e3b/main.spi
00:08:01 verbose #31882 >
00:08:01 verbose #31883 > ╭─[ 227.86ms - stdout ]────────────────────────────────────────────────────────╮
00:08:01 verbose #31884 > │ () │
00:08:01 verbose #31885 > │ │
00:08:01 verbose #31886 > │ │
00:08:01 verbose #31887 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #31888 >
00:08:01 verbose #31889 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #31890 > // // test
00:08:01 verbose #31891 >
00:08:01 verbose #31892 > inl path, disposable = create_temp_directory ()
00:08:01 verbose #31893 > disposable |> use |> ignore
00:08:01 verbose #31894 > path
00:08:01 verbose #31895 > |> directory_exists
00:08:01 verbose #31896 > |> _assert_eq true
00:08:01 verbose #31897 > 00:08:00 debug #637 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2189a667c70aa60a04e83cc1d85e361f6eefd64f1301784efc692ae8c18cf477/main.spi
00:08:02 verbose #31898 >
00:08:02 verbose #31899 > ╭─[ 985.12ms - stdout ]────────────────────────────────────────────────────────╮
00:08:02 verbose #31900 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:02 verbose #31901 > │ string │
00:08:02 verbose #31902 > │ module State = let mutable trace_state = None │
00:08:02 verbose #31903 > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:08:02 verbose #31904 > │ type [<Struct>] US0 = │
00:08:02 verbose #31905 > │ | US0_0 │
00:08:02 verbose #31906 > │ | US0_1 │
00:08:02 verbose #31907 > │ | US0_2 │
00:08:02 verbose #31908 > │ | US0_3 │
00:08:02 verbose #31909 > │ | US0_4 │
00:08:02 verbose #31910 > │ and Mut0 = {mutable l0 : int64} │
00:08:02 verbose #31911 > │ and Mut1 = {mutable l0 : bool} │
00:08:02 verbose #31912 > │ and Mut2 = {mutable l0 : US0} │
00:08:02 verbose #31913 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:08:02 verbose #31914 > │ and [<Struct>] US1 = │
00:08:02 verbose #31915 > │ | US1_0 of f0_0 : int64 │
00:08:02 verbose #31916 > │ | US1_1 │
00:08:02 verbose #31917 > │ and [<Struct>] US2 = │
00:08:02 verbose #31918 > │ | US2_0 of f0_0 : int64 │
00:08:02 verbose #31919 > │ | US2_1 │
00:08:02 verbose #31920 > │ let rec closure0 () () : string = │
00:08:02 verbose #31921 > │ let v0 : string option = None │
00:08:02 verbose #31922 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:02 verbose #31923 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #31924 > │ let v2 : string = null |> unbox<string> │
00:08:02 verbose #31925 > │ v2 │
00:08:02 verbose #31926 > │ #endif │
00:08:02 verbose #31927 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #31928 > │ let v3 : string = null |> unbox<string> │
00:08:02 verbose #31929 > │ v3 │
00:08:02 verbose #31930 > │ #endif │
00:08:02 verbose #31931 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #31932 > │ let v4 : string = null |> unbox<string> │
00:08:02 verbose #31933 > │ v4 │
00:08:02 verbose #31934 > │ #endif │
00:08:02 verbose #31935 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #31936 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #31937 > │ let v5 : string = │
00:08:02 verbose #31938 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:02 verbose #31939 > │ v5 │
00:08:02 verbose #31940 > │ #endif │
00:08:02 verbose #31941 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #31942 > │ let v6 : string = null |> unbox<string> │
00:08:02 verbose #31943 > │ v6 │
00:08:02 verbose #31944 > │ #endif │
00:08:02 verbose #31945 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #31946 > │ let v7 : string = Unchecked.defaultof<string> │
00:08:02 verbose #31947 > │ v7 │
00:08:02 verbose #31948 > │ #endif │
00:08:02 verbose #31949 > │ |> fun x -> _v0 <- Some x │
00:08:02 verbose #31950 > │ let v8 : string = _v0.Value │
00:08:02 verbose #31951 > │ v8 │
00:08:02 verbose #31952 > │ and method1 (v0 : string) : string = │
00:08:02 verbose #31953 > │ v0 │
00:08:02 verbose #31954 > │ and method2 (v0 : string) : string = │
00:08:02 verbose #31955 > │ v0 │
00:08:02 verbose #31956 > │ and method3 (v0 : string) : string = │
00:08:02 verbose #31957 > │ v0 │
00:08:02 verbose #31958 > │ and closure1 () () : string = │
00:08:02 verbose #31959 > │ let v0 : string = "file_system.create_temp_directory" │
00:08:02 verbose #31960 > │ v0 │
00:08:02 verbose #31961 > │ and closure3 () () : string = │
00:08:02 verbose #31962 > │ let v0 : string = "" │
00:08:02 verbose #31963 > │ v0 │
00:08:02 verbose #31964 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:08:02 verbose #31965 > │ let v2 : (unit -> string) = closure3() │
00:08:02 verbose #31966 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:02 verbose #31967 > │ v3 │
00:08:02 verbose #31968 > │ and closure6 () (v0 : string) : unit = │
00:08:02 verbose #31969 > │ () │
00:08:02 verbose #31970 > │ and method5 (v0 : int64 option) : int64 option = │
00:08:02 verbose #31971 > │ v0 │
00:08:02 verbose #31972 > │ and method6 (v0 : int64 option) : int64 option = │
00:08:02 verbose #31973 > │ v0 │
00:08:02 verbose #31974 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:08:02 verbose #31975 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:02 verbose #31976 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:02 verbose #31977 > │ let v2 : US0 = US0_0 │
00:08:02 verbose #31978 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:02 verbose #31979 > │ let v4 : (string -> unit) = closure6() │
00:08:02 verbose #31980 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:08:02 verbose #31981 > │ let v6 : int64 option option = None │
00:08:02 verbose #31982 > │ let mutable _v6 = v6 │
00:08:02 verbose #31983 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:02 verbose #31984 > │ let v7 : string option = None │
00:08:02 verbose #31985 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:02 verbose #31986 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #31987 > │ let v9 : string = null |> unbox<string> │
00:08:02 verbose #31988 > │ v9 │
00:08:02 verbose #31989 > │ #endif │
00:08:02 verbose #31990 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #31991 > │ let v10 : string = null |> unbox<string> │
00:08:02 verbose #31992 > │ v10 │
00:08:02 verbose #31993 > │ #endif │
00:08:02 verbose #31994 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #31995 > │ let v11 : string = null |> unbox<string> │
00:08:02 verbose #31996 > │ v11 │
00:08:02 verbose #31997 > │ #endif │
00:08:02 verbose #31998 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #31999 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32000 > │ let v12 : string = │
00:08:02 verbose #32001 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:02 verbose #32002 > │ v12 │
00:08:02 verbose #32003 > │ #endif │
00:08:02 verbose #32004 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32005 > │ let v13 : string = null |> unbox<string> │
00:08:02 verbose #32006 > │ v13 │
00:08:02 verbose #32007 > │ #endif │
00:08:02 verbose #32008 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32009 > │ let v14 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32010 > │ v14 │
00:08:02 verbose #32011 > │ #endif │
00:08:02 verbose #32012 > │ |> fun x -> _v7 <- Some x │
00:08:02 verbose #32013 > │ let v15 : string = _v7.Value │
00:08:02 verbose #32014 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:08:02 verbose #32015 > │ let v18 : bool = v17 <> true │
00:08:02 verbose #32016 > │ let v24 : US1 = │
00:08:02 verbose #32017 > │ if v18 then │
00:08:02 verbose #32018 > │ let v19 : System.DateTime = System.DateTime.Now │
00:08:02 verbose #32019 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:08:02 verbose #32020 > │ let v21 : int64 = v20 v19 │
00:08:02 verbose #32021 > │ US1_0(v21) │
00:08:02 verbose #32022 > │ else │
00:08:02 verbose #32023 > │ US1_1 │
00:08:02 verbose #32024 > │ let v29 : int64 option = │
00:08:02 verbose #32025 > │ match v24 with │
00:08:02 verbose #32026 > │ | US1_1 -> (* None *) │
00:08:02 verbose #32027 > │ let v27 : int64 option = None │
00:08:02 verbose #32028 > │ v27 │
00:08:02 verbose #32029 > │ | US1_0(v25) -> (* Some *) │
00:08:02 verbose #32030 > │ let v26 : int64 option = Some v25 │
00:08:02 verbose #32031 > │ v26 │
00:08:02 verbose #32032 > │ let v30 : int64 option = method5(v29) │
00:08:02 verbose #32033 > │ v30 │
00:08:02 verbose #32034 > │ #else │
00:08:02 verbose #32035 > │ let v31 : int64 option = None │
00:08:02 verbose #32036 > │ let v32 : int64 option = method6(v31) │
00:08:02 verbose #32037 > │ v32 │
00:08:02 verbose #32038 > │ #endif │
00:08:02 verbose #32039 > │ |> fun x -> _v6 <- Some x │
00:08:02 verbose #32040 > │ let v33 : int64 option = _v6.Value │
00:08:02 verbose #32041 > │ struct (v1, v0, v3, v33, v5) │
00:08:02 verbose #32042 > │ and closure7 () (v0 : int64) : US2 = │
00:08:02 verbose #32043 > │ US2_0(v0) │
00:08:02 verbose #32044 > │ and method7 () : (int64 -> US2) = │
00:08:02 verbose #32045 > │ closure7() │
00:08:02 verbose #32046 > │ and method8 () : string = │
00:08:02 verbose #32047 > │ let v0 : string = "" │
00:08:02 verbose #32048 > │ v0 │
00:08:02 verbose #32049 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:02 verbose #32050 > │ string = │
00:08:02 verbose #32051 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:02 verbose #32052 > │ closure5() │
00:08:02 verbose #32053 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:08:02 verbose #32054 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:08:02 verbose #32055 > │ Mut3) = State.trace_state.Value │
00:08:02 verbose #32056 > │ let v9 : string option = None │
00:08:02 verbose #32057 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:02 verbose #32058 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32059 > │ let v11 : (int64 -> US2) = method7() │
00:08:02 verbose #32060 > │ let v12 : US2 = US2_1 │
00:08:02 verbose #32061 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:08:02 verbose #32062 > │ let v31 : System.DateTime = │
00:08:02 verbose #32063 > │ match v13 with │
00:08:02 verbose #32064 > │ | US2_1 -> (* None *) │
00:08:02 verbose #32065 > │ let v29 : System.DateTime = System.DateTime.Now │
00:08:02 verbose #32066 > │ v29 │
00:08:02 verbose #32067 > │ | US2_0(v14) -> (* Some *) │
00:08:02 verbose #32068 > │ let v15 : System.DateTime = System.DateTime.Now │
00:08:02 verbose #32069 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:08:02 verbose #32070 > │ let v17 : int64 = v16 v15 │
00:08:02 verbose #32071 > │ let v18 : int64 = v17 - v14 │
00:08:02 verbose #32072 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:08:02 verbose #32073 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:08:02 verbose #32074 > │ let v21 : int32 = v20 v19 │
00:08:02 verbose #32075 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:08:02 verbose #32076 > │ let v23 : int32 = v22 v19 │
00:08:02 verbose #32077 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:08:02 verbose #32078 > │ let v25 : int32 = v24 v19 │
00:08:02 verbose #32079 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:02 verbose #32080 > │ let v27 : int32 = v26 v19 │
00:08:02 verbose #32081 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:08:02 verbose #32082 > │ v25, v27) │
00:08:02 verbose #32083 > │ v28 │
00:08:02 verbose #32084 > │ let v32 : string = "hh:mm:ss" │
00:08:02 verbose #32085 > │ let v33 : string = v31.ToString v32 │
00:08:02 verbose #32086 > │ v33 │
00:08:02 verbose #32087 > │ #endif │
00:08:02 verbose #32088 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32089 > │ let v34 : string = method8() │
00:08:02 verbose #32090 > │ v34 │
00:08:02 verbose #32091 > │ #endif │
00:08:02 verbose #32092 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32093 > │ let v35 : string = method8() │
00:08:02 verbose #32094 > │ v35 │
00:08:02 verbose #32095 > │ #endif │
00:08:02 verbose #32096 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32097 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32098 > │ let v36 : (int64 -> US2) = method7() │
00:08:02 verbose #32099 > │ let v37 : US2 = US2_1 │
00:08:02 verbose #32100 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:08:02 verbose #32101 > │ let v56 : System.DateTime = │
00:08:02 verbose #32102 > │ match v38 with │
00:08:02 verbose #32103 > │ | US2_1 -> (* None *) │
00:08:02 verbose #32104 > │ let v54 : System.DateTime = System.DateTime.Now │
00:08:02 verbose #32105 > │ v54 │
00:08:02 verbose #32106 > │ | US2_0(v39) -> (* Some *) │
00:08:02 verbose #32107 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:02 verbose #32108 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:08:02 verbose #32109 > │ let v42 : int64 = v41 v40 │
00:08:02 verbose #32110 > │ let v43 : int64 = v42 - v39 │
00:08:02 verbose #32111 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:08:02 verbose #32112 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:08:02 verbose #32113 > │ let v46 : int32 = v45 v44 │
00:08:02 verbose #32114 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:08:02 verbose #32115 > │ let v48 : int32 = v47 v44 │
00:08:02 verbose #32116 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:08:02 verbose #32117 > │ let v50 : int32 = v49 v44 │
00:08:02 verbose #32118 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:02 verbose #32119 > │ let v52 : int32 = v51 v44 │
00:08:02 verbose #32120 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:08:02 verbose #32121 > │ v50, v52) │
00:08:02 verbose #32122 > │ v53 │
00:08:02 verbose #32123 > │ let v57 : string = "HH:mm:ss" │
00:08:02 verbose #32124 > │ let v58 : string = v56.ToString v57 │
00:08:02 verbose #32125 > │ v58 │
00:08:02 verbose #32126 > │ #endif │
00:08:02 verbose #32127 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32128 > │ let v59 : string = method8() │
00:08:02 verbose #32129 > │ v59 │
00:08:02 verbose #32130 > │ #endif │
00:08:02 verbose #32131 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32132 > │ let v60 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32133 > │ v60 │
00:08:02 verbose #32134 > │ #endif │
00:08:02 verbose #32135 > │ |> fun x -> _v9 <- Some x │
00:08:02 verbose #32136 > │ let v61 : string = _v9.Value │
00:08:02 verbose #32137 > │ let v62 : int64 = v4.l0 │
00:08:02 verbose #32138 > │ let v72 : string = │
00:08:02 verbose #32139 > │ match v0 with │
00:08:02 verbose #32140 > │ | US0_4 -> (* Critical *) │
00:08:02 verbose #32141 > │ let v67 : string = "Critical" │
00:08:02 verbose #32142 > │ v67 │
00:08:02 verbose #32143 > │ | US0_1 -> (* Debug *) │
00:08:02 verbose #32144 > │ let v64 : string = "Debug" │
00:08:02 verbose #32145 > │ v64 │
00:08:02 verbose #32146 > │ | US0_2 -> (* Info *) │
00:08:02 verbose #32147 > │ let v65 : string = "Info" │
00:08:02 verbose #32148 > │ v65 │
00:08:02 verbose #32149 > │ | US0_0 -> (* Verbose *) │
00:08:02 verbose #32150 > │ let v63 : string = "Verbose" │
00:08:02 verbose #32151 > │ v63 │
00:08:02 verbose #32152 > │ | US0_3 -> (* Warning *) │
00:08:02 verbose #32153 > │ let v66 : string = "Warning" │
00:08:02 verbose #32154 > │ v66 │
00:08:02 verbose #32155 > │ let v73 : string = v72.ToLower () │
00:08:02 verbose #32156 > │ let v74 : string option = None │
00:08:02 verbose #32157 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:08:02 verbose #32158 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32159 > │ let v90 : Ref<Str> = │
00:08:02 verbose #32160 > │ match v0 with │
00:08:02 verbose #32161 > │ | US0_4 -> (* Critical *) │
00:08:02 verbose #32162 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:08:02 verbose #32163 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:08:02 verbose #32164 > │ v85 │
00:08:02 verbose #32165 > │ | US0_1 -> (* Debug *) │
00:08:02 verbose #32166 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:08:02 verbose #32167 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:08:02 verbose #32168 > │ v79 │
00:08:02 verbose #32169 > │ | US0_2 -> (* Info *) │
00:08:02 verbose #32170 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:08:02 verbose #32171 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:08:02 verbose #32172 > │ v81 │
00:08:02 verbose #32173 > │ | US0_0 -> (* Verbose *) │
00:08:02 verbose #32174 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:08:02 verbose #32175 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:08:02 verbose #32176 > │ v77 │
00:08:02 verbose #32177 > │ | US0_3 -> (* Warning *) │
00:08:02 verbose #32178 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:08:02 verbose #32179 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:08:02 verbose #32180 > │ v83 │
00:08:02 verbose #32181 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32182 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:08:02 verbose #32183 > │ let v93 : string = "inline_colorization::color_reset" │
00:08:02 verbose #32184 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:08:02 verbose #32185 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:08:02 verbose #32186 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:08:02 verbose #32187 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:08:02 verbose #32188 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:08:02 verbose #32189 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:08:02 verbose #32190 > │ v99 │
00:08:02 verbose #32191 > │ #endif │
00:08:02 verbose #32192 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32193 > │ let v114 : Ref<Str> = │
00:08:02 verbose #32194 > │ match v0 with │
00:08:02 verbose #32195 > │ | US0_4 -> (* Critical *) │
00:08:02 verbose #32196 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:08:02 verbose #32197 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32198 > │ v108 │
00:08:02 verbose #32199 > │ v109 │
00:08:02 verbose #32200 > │ | US0_1 -> (* Debug *) │
00:08:02 verbose #32201 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:08:02 verbose #32202 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32203 > │ v102 │
00:08:02 verbose #32204 > │ v103 │
00:08:02 verbose #32205 > │ | US0_2 -> (* Info *) │
00:08:02 verbose #32206 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:08:02 verbose #32207 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32208 > │ v104 │
00:08:02 verbose #32209 > │ v105 │
00:08:02 verbose #32210 > │ | US0_0 -> (* Verbose *) │
00:08:02 verbose #32211 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:08:02 verbose #32212 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32213 > │ v100 │
00:08:02 verbose #32214 > │ v101 │
00:08:02 verbose #32215 > │ | US0_3 -> (* Warning *) │
00:08:02 verbose #32216 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:08:02 verbose #32217 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32218 > │ v106 │
00:08:02 verbose #32219 > │ v107 │
00:08:02 verbose #32220 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32221 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:08:02 verbose #32222 > │ let v117 : string = "inline_colorization::color_reset" │
00:08:02 verbose #32223 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:08:02 verbose #32224 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:08:02 verbose #32225 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:08:02 verbose #32226 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32227 > │ v120 │
00:08:02 verbose #32228 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:08:02 verbose #32229 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:08:02 verbose #32230 > │ v123 │
00:08:02 verbose #32231 > │ #endif │
00:08:02 verbose #32232 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32233 > │ let v138 : Ref<Str> = │
00:08:02 verbose #32234 > │ match v0 with │
00:08:02 verbose #32235 > │ | US0_4 -> (* Critical *) │
00:08:02 verbose #32236 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:08:02 verbose #32237 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32238 > │ v132 │
00:08:02 verbose #32239 > │ v133 │
00:08:02 verbose #32240 > │ | US0_1 -> (* Debug *) │
00:08:02 verbose #32241 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:08:02 verbose #32242 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32243 > │ v126 │
00:08:02 verbose #32244 > │ v127 │
00:08:02 verbose #32245 > │ | US0_2 -> (* Info *) │
00:08:02 verbose #32246 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:08:02 verbose #32247 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32248 > │ v128 │
00:08:02 verbose #32249 > │ v129 │
00:08:02 verbose #32250 > │ | US0_0 -> (* Verbose *) │
00:08:02 verbose #32251 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:08:02 verbose #32252 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32253 > │ v124 │
00:08:02 verbose #32254 > │ v125 │
00:08:02 verbose #32255 > │ | US0_3 -> (* Warning *) │
00:08:02 verbose #32256 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:08:02 verbose #32257 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32258 > │ v130 │
00:08:02 verbose #32259 > │ v131 │
00:08:02 verbose #32260 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32261 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:08:02 verbose #32262 > │ let v141 : string = "inline_colorization::color_reset" │
00:08:02 verbose #32263 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:08:02 verbose #32264 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:08:02 verbose #32265 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:08:02 verbose #32266 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:02 verbose #32267 > │ v144 │
00:08:02 verbose #32268 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:08:02 verbose #32269 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:08:02 verbose #32270 > │ v147 │
00:08:02 verbose #32271 > │ #endif │
00:08:02 verbose #32272 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32273 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32274 > │ v73 │
00:08:02 verbose #32275 > │ #endif │
00:08:02 verbose #32276 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32277 > │ v73 │
00:08:02 verbose #32278 > │ #endif │
00:08:02 verbose #32279 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32280 > │ let v148 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32281 > │ v148 │
00:08:02 verbose #32282 > │ #endif │
00:08:02 verbose #32283 > │ |> fun x -> _v74 <- Some x │
00:08:02 verbose #32284 > │ let v149 : string = _v74.Value │
00:08:02 verbose #32285 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:08:02 verbose #32286 > │ let v151 : (char []) = [||] │
00:08:02 verbose #32287 > │ let v152 : string = v150.TrimStart v151 │
00:08:02 verbose #32288 > │ let v153 : (char []) = [|' '; '/'|] │
00:08:02 verbose #32289 > │ let v154 : string = v152.TrimEnd v153 │
00:08:02 verbose #32290 > │ v154 │
00:08:02 verbose #32291 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:08:02 verbose #32292 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:02 verbose #32293 > │ closure5() │
00:08:02 verbose #32294 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:02 verbose #32295 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:08:02 verbose #32296 > │ Mut3) = State.trace_state.Value │
00:08:02 verbose #32297 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:02 verbose #32298 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:08:02 verbose #32299 > │ Mut3) = State.trace_state.Value │
00:08:02 verbose #32300 > │ let v13 : US0 = v10.l0 │
00:08:02 verbose #32301 > │ let v14 : bool = v9.l0 │
00:08:02 verbose #32302 > │ let v15 : bool = v14 = false │
00:08:02 verbose #32303 > │ let v19 : bool = │
00:08:02 verbose #32304 > │ if v15 then │
00:08:02 verbose #32305 > │ false │
00:08:02 verbose #32306 > │ else │
00:08:02 verbose #32307 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:02 verbose #32308 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:08:02 verbose #32309 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:02 verbose #32310 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:08:02 verbose #32311 > │ let v18 : bool = v16 >= v17 │
00:08:02 verbose #32312 > │ v18 │
00:08:02 verbose #32313 > │ if v19 then │
00:08:02 verbose #32314 > │ let v20 : int64 = v3.l0 │
00:08:02 verbose #32315 > │ let v21 : int64 = v20 + 1L │
00:08:02 verbose #32316 > │ v3.l0 <- v21 │
00:08:02 verbose #32317 > │ let v22 : string = $"%s{v1 ()}" │
00:08:02 verbose #32318 > │ let v23 : unit option = None │
00:08:02 verbose #32319 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:08:02 verbose #32320 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32321 > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:02 verbose #32322 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:08:02 verbose #32323 > │ () │
00:08:02 verbose #32324 > │ #endif │
00:08:02 verbose #32325 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32326 > │ let v26 : string = @"println!(""{}"", $0)" │
00:08:02 verbose #32327 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:08:02 verbose #32328 > │ () │
00:08:02 verbose #32329 > │ #endif │
00:08:02 verbose #32330 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32331 > │ let v27 : string = @"println!(""{}"", $0)" │
00:08:02 verbose #32332 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:08:02 verbose #32333 > │ () │
00:08:02 verbose #32334 > │ #endif │
00:08:02 verbose #32335 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32336 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32337 > │ System.Console.WriteLine v22 │
00:08:02 verbose #32338 > │ () │
00:08:02 verbose #32339 > │ #endif │
00:08:02 verbose #32340 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32341 > │ System.Console.WriteLine v22 │
00:08:02 verbose #32342 > │ () │
00:08:02 verbose #32343 > │ #endif │
00:08:02 verbose #32344 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:02 verbose #32345 > │ FABLE_COMPILER_DART │
00:08:02 verbose #32346 > │ Unchecked.defaultof<unit> │
00:08:02 verbose #32347 > │ () │
00:08:02 verbose #32348 > │ #endif │
00:08:02 verbose #32349 > │ |> fun x -> _v23 <- Some x │
00:08:02 verbose #32350 > │ _v23.Value │
00:08:02 verbose #32351 > │ let v28 : (string -> unit) = v7.l0 │
00:08:02 verbose #32352 > │ v28 v22 │
00:08:02 verbose #32353 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:02 verbose #32354 > │ = │
00:08:02 verbose #32355 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:08:02 verbose #32356 > │ method9(v0, v3) │
00:08:02 verbose #32357 > │ and closure9 () () : string = │
00:08:02 verbose #32358 > │ let v0 : string = "file_system.delete_directory_async" │
00:08:02 verbose #32359 > │ v0 │
00:08:02 verbose #32360 > │ and closure11 () (v0 : string) : string = │
00:08:02 verbose #32361 > │ let v1 : string option = None │
00:08:02 verbose #32362 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:02 verbose #32363 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32364 > │ let v3 : string = null |> unbox<string> │
00:08:02 verbose #32365 > │ v3 │
00:08:02 verbose #32366 > │ #endif │
00:08:02 verbose #32367 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32368 > │ let v4 : string = null |> unbox<string> │
00:08:02 verbose #32369 > │ v4 │
00:08:02 verbose #32370 > │ #endif │
00:08:02 verbose #32371 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32372 > │ let v5 : string = null |> unbox<string> │
00:08:02 verbose #32373 > │ v5 │
00:08:02 verbose #32374 > │ #endif │
00:08:02 verbose #32375 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32376 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32377 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:08:02 verbose #32378 > │ let v7 : string = v6 v0 │
00:08:02 verbose #32379 > │ v7 │
00:08:02 verbose #32380 > │ #endif │
00:08:02 verbose #32381 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32382 > │ let v8 : string = null |> unbox<string> │
00:08:02 verbose #32383 > │ v8 │
00:08:02 verbose #32384 > │ #endif │
00:08:02 verbose #32385 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32386 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32387 > │ v9 │
00:08:02 verbose #32388 > │ #endif │
00:08:02 verbose #32389 > │ |> fun x -> _v1 <- Some x │
00:08:02 verbose #32390 > │ let v10 : string = _v1.Value │
00:08:02 verbose #32391 > │ v10 │
00:08:02 verbose #32392 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:08:02 verbose #32393 > │ let v2 : (string -> string) = closure11() │
00:08:02 verbose #32394 > │ let v3 : (unit -> string) = closure3() │
00:08:02 verbose #32395 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:02 verbose #32396 > │ v4 │
00:08:02 verbose #32397 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:08:02 verbose #32398 > │ let v2 : Async<int64> option = None │
00:08:02 verbose #32399 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:02 verbose #32400 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32401 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32402 > │ v4 │
00:08:02 verbose #32403 > │ #endif │
00:08:02 verbose #32404 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32405 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32406 > │ v5 │
00:08:02 verbose #32407 > │ #endif │
00:08:02 verbose #32408 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32409 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32410 > │ v6 │
00:08:02 verbose #32411 > │ #endif │
00:08:02 verbose #32412 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32413 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32414 > │ let v7 : Async<int64> option = None │
00:08:02 verbose #32415 > │ let mutable _v7 = v7 │
00:08:02 verbose #32416 > │ async { │
00:08:02 verbose #32417 > │ try │
00:08:02 verbose #32418 > │ let v8 : unit option = None │
00:08:02 verbose #32419 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:02 verbose #32420 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32421 > │ null |> unbox<unit> │
00:08:02 verbose #32422 > │ () │
00:08:02 verbose #32423 > │ #endif │
00:08:02 verbose #32424 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32425 > │ null |> unbox<unit> │
00:08:02 verbose #32426 > │ () │
00:08:02 verbose #32427 > │ #endif │
00:08:02 verbose #32428 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32429 > │ null |> unbox<unit> │
00:08:02 verbose #32430 > │ () │
00:08:02 verbose #32431 > │ #endif │
00:08:02 verbose #32432 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32433 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32434 > │ System.IO.Directory.Delete (v0, true) │
00:08:02 verbose #32435 > │ () │
00:08:02 verbose #32436 > │ #endif │
00:08:02 verbose #32437 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32438 > │ null |> unbox<unit> │
00:08:02 verbose #32439 > │ () │
00:08:02 verbose #32440 > │ #endif │
00:08:02 verbose #32441 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32442 > │ Unchecked.defaultof<unit> │
00:08:02 verbose #32443 > │ () │
00:08:02 verbose #32444 > │ #endif │
00:08:02 verbose #32445 > │ |> fun x -> _v8 <- Some x │
00:08:02 verbose #32446 > │ _v8.Value │
00:08:02 verbose #32447 > │ return v1 │
00:08:02 verbose #32448 > │ with ex -> │
00:08:02 verbose #32449 > │ let v10 : exn = ex │
00:08:02 verbose #32450 > │ let v11 : int64 = v1 % 100L │
00:08:02 verbose #32451 > │ let v12 : bool = v11 = 0L │
00:08:02 verbose #32452 > │ if v12 then │
00:08:02 verbose #32453 > │ let v13 : string option = None │
00:08:02 verbose #32454 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:02 verbose #32455 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32456 > │ let v15 : string = $"%A{v10}" │
00:08:02 verbose #32457 > │ v15 │
00:08:02 verbose #32458 > │ #endif │
00:08:02 verbose #32459 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32460 > │ let v16 : string = $"%A{v10}" │
00:08:02 verbose #32461 > │ v16 │
00:08:02 verbose #32462 > │ #endif │
00:08:02 verbose #32463 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32464 > │ let v17 : string = $"%A{v10}" │
00:08:02 verbose #32465 > │ v17 │
00:08:02 verbose #32466 > │ #endif │
00:08:02 verbose #32467 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32468 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32469 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:08:02 verbose #32470 > │ v18 │
00:08:02 verbose #32471 > │ #endif │
00:08:02 verbose #32472 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32473 > │ let v19 : string = $"%A{v10}" │
00:08:02 verbose #32474 > │ v19 │
00:08:02 verbose #32475 > │ #endif │
00:08:02 verbose #32476 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:02 verbose #32477 > │ FABLE_COMPILER_DART │
00:08:02 verbose #32478 > │ let v20 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32479 > │ v20 │
00:08:02 verbose #32480 > │ #endif │
00:08:02 verbose #32481 > │ |> fun x -> _v13 <- Some x │
00:08:02 verbose #32482 > │ let v21 : string = _v13.Value │
00:08:02 verbose #32483 > │ let v22 : US0 = US0_1 │
00:08:02 verbose #32484 > │ let v23 : (unit -> string) = closure9() │
00:08:02 verbose #32485 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:08:02 verbose #32486 > │ method4(v22, v23, v24) │
00:08:02 verbose #32487 > │ let v25 : Async<unit> option = None │
00:08:02 verbose #32488 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:08:02 verbose #32489 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32490 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32491 > │ v27 │
00:08:02 verbose #32492 > │ #endif │
00:08:02 verbose #32493 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32494 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32495 > │ v28 │
00:08:02 verbose #32496 > │ #endif │
00:08:02 verbose #32497 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32498 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32499 > │ v29 │
00:08:02 verbose #32500 > │ #endif │
00:08:02 verbose #32501 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32502 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32503 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:08:02 verbose #32504 > │ let v31 : Async<unit> = v30 10 │
00:08:02 verbose #32505 > │ v31 │
00:08:02 verbose #32506 > │ #endif │
00:08:02 verbose #32507 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32508 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32509 > │ v32 │
00:08:02 verbose #32510 > │ #endif │
00:08:02 verbose #32511 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32512 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:02 verbose #32513 > │ v33 │
00:08:02 verbose #32514 > │ #endif │
00:08:02 verbose #32515 > │ |> fun x -> _v25 <- Some x │
00:08:02 verbose #32516 > │ let v34 : Async<unit> = _v25.Value │
00:08:02 verbose #32517 > │ do! v34 │
00:08:02 verbose #32518 > │ let v35 : int64 = v1 + 1L │
00:08:02 verbose #32519 > │ let v36 : Async<int64> = method10(v0, v35) │
00:08:02 verbose #32520 > │ return! v36 │
00:08:02 verbose #32521 > │ (* │
00:08:02 verbose #32522 > │ let v37 : int64 = *) │
00:08:02 verbose #32523 > │ } │
00:08:02 verbose #32524 > │ |> fun x -> _v7 <- Some x │
00:08:02 verbose #32525 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:08:02 verbose #32526 > │ v38 │
00:08:02 verbose #32527 > │ #endif │
00:08:02 verbose #32528 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32529 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32530 > │ v39 │
00:08:02 verbose #32531 > │ #endif │
00:08:02 verbose #32532 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32533 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:02 verbose #32534 > │ v40 │
00:08:02 verbose #32535 > │ #endif │
00:08:02 verbose #32536 > │ |> fun x -> _v2 <- Some x │
00:08:02 verbose #32537 > │ let v41 : Async<int64> = _v2.Value │
00:08:02 verbose #32538 > │ v41 │
00:08:02 verbose #32539 > │ and closure8 (v0 : string) () : unit = │
00:08:02 verbose #32540 > │ let v1 : Async<int64> option = None │
00:08:02 verbose #32541 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:02 verbose #32542 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32543 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32544 > │ v3 │
00:08:02 verbose #32545 > │ #endif │
00:08:02 verbose #32546 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32547 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32548 > │ v4 │
00:08:02 verbose #32549 > │ #endif │
00:08:02 verbose #32550 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32551 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32552 > │ v5 │
00:08:02 verbose #32553 > │ #endif │
00:08:02 verbose #32554 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32555 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32556 > │ let v6 : int64 = 0L │
00:08:02 verbose #32557 > │ let v7 : Async<int64> = method10(v0, v6) │
00:08:02 verbose #32558 > │ v7 │
00:08:02 verbose #32559 > │ #endif │
00:08:02 verbose #32560 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32561 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:02 verbose #32562 > │ v8 │
00:08:02 verbose #32563 > │ #endif │
00:08:02 verbose #32564 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32565 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:02 verbose #32566 > │ v9 │
00:08:02 verbose #32567 > │ #endif │
00:08:02 verbose #32568 > │ |> fun x -> _v1 <- Some x │
00:08:02 verbose #32569 > │ let v10 : Async<int64> = _v1.Value │
00:08:02 verbose #32570 > │ let v11 : Async<unit> option = None │
00:08:02 verbose #32571 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:08:02 verbose #32572 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32573 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32574 > │ v13 │
00:08:02 verbose #32575 > │ #endif │
00:08:02 verbose #32576 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32577 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32578 > │ v14 │
00:08:02 verbose #32579 > │ #endif │
00:08:02 verbose #32580 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32581 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32582 > │ v15 │
00:08:02 verbose #32583 > │ #endif │
00:08:02 verbose #32584 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32585 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32586 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:02 verbose #32587 > │ let v17 : Async<unit> = v16 v10 │
00:08:02 verbose #32588 > │ v17 │
00:08:02 verbose #32589 > │ #endif │
00:08:02 verbose #32590 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32591 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:02 verbose #32592 > │ v18 │
00:08:02 verbose #32593 > │ #endif │
00:08:02 verbose #32594 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32595 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:02 verbose #32596 > │ v19 │
00:08:02 verbose #32597 > │ #endif │
00:08:02 verbose #32598 > │ |> fun x -> _v11 <- Some x │
00:08:02 verbose #32599 > │ let v20 : Async<unit> = _v11.Value │
00:08:02 verbose #32600 > │ let v21 : unit option = None │
00:08:02 verbose #32601 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:08:02 verbose #32602 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32603 > │ null |> unbox<unit> │
00:08:02 verbose #32604 > │ () │
00:08:02 verbose #32605 > │ #endif │
00:08:02 verbose #32606 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32607 > │ null |> unbox<unit> │
00:08:02 verbose #32608 > │ () │
00:08:02 verbose #32609 > │ #endif │
00:08:02 verbose #32610 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32611 > │ null |> unbox<unit> │
00:08:02 verbose #32612 > │ () │
00:08:02 verbose #32613 > │ #endif │
00:08:02 verbose #32614 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32615 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32616 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:02 verbose #32617 > │ v23 v20 │
00:08:02 verbose #32618 > │ () │
00:08:02 verbose #32619 > │ #endif │
00:08:02 verbose #32620 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32621 > │ null |> unbox<unit> │
00:08:02 verbose #32622 > │ () │
00:08:02 verbose #32623 > │ #endif │
00:08:02 verbose #32624 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32625 > │ Unchecked.defaultof<unit> │
00:08:02 verbose #32626 > │ () │
00:08:02 verbose #32627 > │ #endif │
00:08:02 verbose #32628 > │ |> fun x -> _v21 <- Some x │
00:08:02 verbose #32629 > │ _v21.Value │
00:08:02 verbose #32630 > │ () │
00:08:02 verbose #32631 > │ and method11 (v0 : bool) : bool = │
00:08:02 verbose #32632 > │ v0 │
00:08:02 verbose #32633 > │ and method0 () : unit = │
00:08:02 verbose #32634 > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:02 verbose #32635 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:02 verbose #32636 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32637 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:08:02 verbose #32638 > │ (string * System.IDisposable)> │
00:08:02 verbose #32639 > │ struct (v2, v3) │
00:08:02 verbose #32640 > │ #endif │
00:08:02 verbose #32641 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32642 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:08:02 verbose #32643 > │ (string * System.IDisposable)> │
00:08:02 verbose #32644 > │ struct (v4, v5) │
00:08:02 verbose #32645 > │ #endif │
00:08:02 verbose #32646 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32647 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:08:02 verbose #32648 > │ (string * System.IDisposable)> │
00:08:02 verbose #32649 > │ struct (v6, v7) │
00:08:02 verbose #32650 > │ #endif │
00:08:02 verbose #32651 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32652 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32653 > │ let v8 : string option = None │
00:08:02 verbose #32654 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:02 verbose #32655 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32656 > │ let v10 : string = null |> unbox<string> │
00:08:02 verbose #32657 > │ v10 │
00:08:02 verbose #32658 > │ #endif │
00:08:02 verbose #32659 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32660 > │ let v11 : string = null |> unbox<string> │
00:08:02 verbose #32661 > │ v11 │
00:08:02 verbose #32662 > │ #endif │
00:08:02 verbose #32663 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32664 > │ let v12 : string = null |> unbox<string> │
00:08:02 verbose #32665 > │ v12 │
00:08:02 verbose #32666 > │ #endif │
00:08:02 verbose #32667 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32668 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32669 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:02 verbose #32670 > │ let v14 : string = v13 () │
00:08:02 verbose #32671 > │ let v15 : (unit -> string) = closure0() │
00:08:02 verbose #32672 > │ let v16 : string = $"!{v15 ()}" │
00:08:02 verbose #32673 > │ let v17 : string option = None │
00:08:02 verbose #32674 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:02 verbose #32675 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32676 > │ let v19 : string = method1(v14) │
00:08:02 verbose #32677 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32678 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:02 verbose #32679 > │ let v22 : string = "String::from($0)" │
00:08:02 verbose #32680 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:08:02 verbose #32681 > │ v22 │
00:08:02 verbose #32682 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:08:02 verbose #32683 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:02 verbose #32684 > │ let v26 : string = method1(v16) │
00:08:02 verbose #32685 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32686 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:02 verbose #32687 > │ let v29 : string = "String::from($0)" │
00:08:02 verbose #32688 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:08:02 verbose #32689 > │ v29 │
00:08:02 verbose #32690 > │ let v31 : string = "$0.join($1)" │
00:08:02 verbose #32691 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:02 verbose #32692 > │ (v25, v30) v31 │
00:08:02 verbose #32693 > │ let v33 : string = "$0.display().to_string()" │
00:08:02 verbose #32694 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:08:02 verbose #32695 > │ v33 │
00:08:02 verbose #32696 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:08:02 verbose #32697 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:08:02 verbose #32698 > │ v36 │
00:08:02 verbose #32699 > │ #endif │
00:08:02 verbose #32700 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32701 > │ let v37 : string = null |> unbox<string> │
00:08:02 verbose #32702 > │ v37 │
00:08:02 verbose #32703 > │ #endif │
00:08:02 verbose #32704 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32705 > │ let v38 : string = null |> unbox<string> │
00:08:02 verbose #32706 > │ v38 │
00:08:02 verbose #32707 > │ #endif │
00:08:02 verbose #32708 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32709 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32710 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:08:02 verbose #32711 > │ v39 │
00:08:02 verbose #32712 > │ #endif │
00:08:02 verbose #32713 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32714 > │ let v40 : string = "path" │
00:08:02 verbose #32715 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:02 verbose #32716 > │ let v42 : string = method2(v14) │
00:08:02 verbose #32717 > │ let v43 : string = method3(v16) │
00:08:02 verbose #32718 > │ let v44 : string = "v41.join(v42, v43)" │
00:08:02 verbose #32719 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:08:02 verbose #32720 > │ v45 │
00:08:02 verbose #32721 > │ #endif │
00:08:02 verbose #32722 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32723 > │ let v46 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32724 > │ v46 │
00:08:02 verbose #32725 > │ #endif │
00:08:02 verbose #32726 > │ |> fun x -> _v17 <- Some x │
00:08:02 verbose #32727 > │ let v47 : string = _v17.Value │
00:08:02 verbose #32728 > │ let v48 : System.DateTime = System.DateTime.Now │
00:08:02 verbose #32729 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:08:02 verbose #32730 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:08:02 verbose #32731 > │ let v51 : string = v50 v49 │
00:08:02 verbose #32732 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:02 verbose #32733 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:08:02 verbose #32734 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:08:02 verbose #32735 > │ let v55 : string = v54 v53 │
00:08:02 verbose #32736 > │ let v56 : string option = None │
00:08:02 verbose #32737 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:08:02 verbose #32738 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32739 > │ let v58 : string = method1(v47) │
00:08:02 verbose #32740 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32741 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:08:02 verbose #32742 > │ let v61 : string = "String::from($0)" │
00:08:02 verbose #32743 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:08:02 verbose #32744 > │ v61 │
00:08:02 verbose #32745 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:08:02 verbose #32746 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:08:02 verbose #32747 > │ let v65 : string = method1(v55) │
00:08:02 verbose #32748 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32749 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:02 verbose #32750 > │ let v68 : string = "String::from($0)" │
00:08:02 verbose #32751 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:08:02 verbose #32752 > │ v68 │
00:08:02 verbose #32753 > │ let v70 : string = "$0.join($1)" │
00:08:02 verbose #32754 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:02 verbose #32755 > │ (v64, v69) v70 │
00:08:02 verbose #32756 > │ let v72 : string = "$0.display().to_string()" │
00:08:02 verbose #32757 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:08:02 verbose #32758 > │ v72 │
00:08:02 verbose #32759 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:08:02 verbose #32760 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:08:02 verbose #32761 > │ v75 │
00:08:02 verbose #32762 > │ #endif │
00:08:02 verbose #32763 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32764 > │ let v76 : string = null |> unbox<string> │
00:08:02 verbose #32765 > │ v76 │
00:08:02 verbose #32766 > │ #endif │
00:08:02 verbose #32767 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32768 > │ let v77 : string = null |> unbox<string> │
00:08:02 verbose #32769 > │ v77 │
00:08:02 verbose #32770 > │ #endif │
00:08:02 verbose #32771 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32772 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32773 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:08:02 verbose #32774 > │ v78 │
00:08:02 verbose #32775 > │ #endif │
00:08:02 verbose #32776 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32777 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:02 verbose #32778 > │ let v80 : string = method2(v47) │
00:08:02 verbose #32779 > │ let v81 : string = method3(v55) │
00:08:02 verbose #32780 > │ let v82 : string = "v79.join(v80, v81)" │
00:08:02 verbose #32781 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:08:02 verbose #32782 > │ v83 │
00:08:02 verbose #32783 > │ #endif │
00:08:02 verbose #32784 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32785 > │ let v84 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32786 > │ v84 │
00:08:02 verbose #32787 > │ #endif │
00:08:02 verbose #32788 > │ |> fun x -> _v56 <- Some x │
00:08:02 verbose #32789 > │ let v85 : string = _v56.Value │
00:08:02 verbose #32790 > │ v85 │
00:08:02 verbose #32791 > │ #endif │
00:08:02 verbose #32792 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32793 > │ let v86 : string = null |> unbox<string> │
00:08:02 verbose #32794 > │ v86 │
00:08:02 verbose #32795 > │ #endif │
00:08:02 verbose #32796 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32797 > │ let v87 : string = Unchecked.defaultof<string> │
00:08:02 verbose #32798 > │ v87 │
00:08:02 verbose #32799 > │ #endif │
00:08:02 verbose #32800 > │ |> fun x -> _v8 <- Some x │
00:08:02 verbose #32801 > │ let v88 : string = _v8.Value │
00:08:02 verbose #32802 > │ let v89 : System.IO.DirectoryInfo option = None │
00:08:02 verbose #32803 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:02 verbose #32804 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32805 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:08:02 verbose #32806 > │ unbox<System.IO.DirectoryInfo> │
00:08:02 verbose #32807 > │ v91 │
00:08:02 verbose #32808 > │ #endif │
00:08:02 verbose #32809 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32810 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:08:02 verbose #32811 > │ unbox<System.IO.DirectoryInfo> │
00:08:02 verbose #32812 > │ v92 │
00:08:02 verbose #32813 > │ #endif │
00:08:02 verbose #32814 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32815 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:08:02 verbose #32816 > │ unbox<System.IO.DirectoryInfo> │
00:08:02 verbose #32817 > │ v93 │
00:08:02 verbose #32818 > │ #endif │
00:08:02 verbose #32819 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32820 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32821 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:08:02 verbose #32822 > │ System.IO.Directory.CreateDirectory │
00:08:02 verbose #32823 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:08:02 verbose #32824 > │ v95 │
00:08:02 verbose #32825 > │ #endif │
00:08:02 verbose #32826 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32827 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:08:02 verbose #32828 > │ unbox<System.IO.DirectoryInfo> │
00:08:02 verbose #32829 > │ v96 │
00:08:02 verbose #32830 > │ #endif │
00:08:02 verbose #32831 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32832 > │ let v97 : System.IO.DirectoryInfo = │
00:08:02 verbose #32833 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:02 verbose #32834 > │ v97 │
00:08:02 verbose #32835 > │ #endif │
00:08:02 verbose #32836 > │ |> fun x -> _v89 <- Some x │
00:08:02 verbose #32837 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:08:02 verbose #32838 > │ let v99 : bool option = None │
00:08:02 verbose #32839 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:08:02 verbose #32840 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32841 > │ let v101 : bool = null |> unbox<bool> │
00:08:02 verbose #32842 > │ v101 │
00:08:02 verbose #32843 > │ #endif │
00:08:02 verbose #32844 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32845 > │ let v102 : bool = null |> unbox<bool> │
00:08:02 verbose #32846 > │ v102 │
00:08:02 verbose #32847 > │ #endif │
00:08:02 verbose #32848 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32849 > │ let v103 : bool = null |> unbox<bool> │
00:08:02 verbose #32850 > │ v103 │
00:08:02 verbose #32851 > │ #endif │
00:08:02 verbose #32852 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32853 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32854 > │ let v104 : bool = v98.Exists │
00:08:02 verbose #32855 > │ v104 │
00:08:02 verbose #32856 > │ #endif │
00:08:02 verbose #32857 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32858 > │ let v105 : bool = null |> unbox<bool> │
00:08:02 verbose #32859 > │ v105 │
00:08:02 verbose #32860 > │ #endif │
00:08:02 verbose #32861 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32862 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:08:02 verbose #32863 > │ v106 │
00:08:02 verbose #32864 > │ #endif │
00:08:02 verbose #32865 > │ |> fun x -> _v99 <- Some x │
00:08:02 verbose #32866 > │ let v107 : bool = _v99.Value │
00:08:02 verbose #32867 > │ let v108 : bool = v107 = false │
00:08:02 verbose #32868 > │ if v108 then │
00:08:02 verbose #32869 > │ let v109 : System.DateTime option = None │
00:08:02 verbose #32870 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:08:02 verbose #32871 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32872 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:08:02 verbose #32873 > │ v111 │
00:08:02 verbose #32874 > │ #endif │
00:08:02 verbose #32875 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32876 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:08:02 verbose #32877 > │ v112 │
00:08:02 verbose #32878 > │ #endif │
00:08:02 verbose #32879 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32880 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:08:02 verbose #32881 > │ v113 │
00:08:02 verbose #32882 > │ #endif │
00:08:02 verbose #32883 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32884 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32885 > │ let v114 : System.DateTime = v98.CreationTime │
00:08:02 verbose #32886 > │ v114 │
00:08:02 verbose #32887 > │ #endif │
00:08:02 verbose #32888 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32889 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:08:02 verbose #32890 > │ v115 │
00:08:02 verbose #32891 > │ #endif │
00:08:02 verbose #32892 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:02 verbose #32893 > │ FABLE_COMPILER_DART │
00:08:02 verbose #32894 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:02 verbose #32895 > │ v116 │
00:08:02 verbose #32896 > │ #endif │
00:08:02 verbose #32897 > │ |> fun x -> _v109 <- Some x │
00:08:02 verbose #32898 > │ let v117 : System.DateTime = _v109.Value │
00:08:02 verbose #32899 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:08:02 verbose #32900 > │ let v119 : string = $"%A{v118}" │
00:08:02 verbose #32901 > │ let v120 : US0 = US0_1 │
00:08:02 verbose #32902 > │ let v121 : (unit -> string) = closure1() │
00:08:02 verbose #32903 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:08:02 verbose #32904 > │ method4(v120, v121, v122) │
00:08:02 verbose #32905 > │ let v123 : System.IDisposable option = None │
00:08:02 verbose #32906 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:08:02 verbose #32907 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32908 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:02 verbose #32909 > │ v125 │
00:08:02 verbose #32910 > │ #endif │
00:08:02 verbose #32911 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32912 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:02 verbose #32913 > │ v126 │
00:08:02 verbose #32914 > │ #endif │
00:08:02 verbose #32915 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32916 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:02 verbose #32917 > │ v127 │
00:08:02 verbose #32918 > │ #endif │
00:08:02 verbose #32919 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32920 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32921 > │ let v128 : (unit -> unit) = closure8(v88) │
00:08:02 verbose #32922 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:08:02 verbose #32923 > │ _.Dispose () = v128 () } │
00:08:02 verbose #32924 > │ v129 │
00:08:02 verbose #32925 > │ #endif │
00:08:02 verbose #32926 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32927 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:02 verbose #32928 > │ v130 │
00:08:02 verbose #32929 > │ #endif │
00:08:02 verbose #32930 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32931 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:02 verbose #32932 > │ v131 │
00:08:02 verbose #32933 > │ #endif │
00:08:02 verbose #32934 > │ |> fun x -> _v123 <- Some x │
00:08:02 verbose #32935 > │ let v132 : System.IDisposable = _v123.Value │
00:08:02 verbose #32936 > │ struct (v88, v132) │
00:08:02 verbose #32937 > │ #endif │
00:08:02 verbose #32938 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32939 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:08:02 verbose #32940 > │ unbox<struct (string * System.IDisposable)> │
00:08:02 verbose #32941 > │ struct (v133, v134) │
00:08:02 verbose #32942 > │ #endif │
00:08:02 verbose #32943 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32944 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:08:02 verbose #32945 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:02 verbose #32946 > │ struct (v135, v136) │
00:08:02 verbose #32947 > │ #endif │
00:08:02 verbose #32948 > │ |> fun x -> _v0 <- Some x │
00:08:02 verbose #32949 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:08:02 verbose #32950 > │ use v138 = v138 │
00:08:02 verbose #32951 > │ let v139 : System.IDisposable = v138 │
00:08:02 verbose #32952 > │ let v140 : bool option = None │
00:08:02 verbose #32953 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:08:02 verbose #32954 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:02 verbose #32955 > │ let v142 : string = method1(v137) │
00:08:02 verbose #32956 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:02 verbose #32957 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:08:02 verbose #32958 > │ let v145 : string = "String::from($0)" │
00:08:02 verbose #32959 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:08:02 verbose #32960 > │ v145 │
00:08:02 verbose #32961 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:08:02 verbose #32962 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:08:02 verbose #32963 > │ v147 │
00:08:02 verbose #32964 > │ let v149 : string = "$0.exists()" │
00:08:02 verbose #32965 > │ let v150 : bool = Fable.Core.RustInterop.emitRustExpr v148 v149 │
00:08:02 verbose #32966 > │ let v153 : bool = │
00:08:02 verbose #32967 > │ if v150 then │
00:08:02 verbose #32968 > │ let v151 : string = "$0.is_dir()" │
00:08:02 verbose #32969 > │ let v152 : bool = Fable.Core.RustInterop.emitRustExpr v148 v151 │
00:08:02 verbose #32970 > │ v152 │
00:08:02 verbose #32971 > │ else │
00:08:02 verbose #32972 > │ false │
00:08:02 verbose #32973 > │ v153 │
00:08:02 verbose #32974 > │ #endif │
00:08:02 verbose #32975 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:02 verbose #32976 > │ let v154 : bool = null |> unbox<bool> │
00:08:02 verbose #32977 > │ v154 │
00:08:02 verbose #32978 > │ #endif │
00:08:02 verbose #32979 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:02 verbose #32980 > │ let v155 : bool = null |> unbox<bool> │
00:08:02 verbose #32981 > │ v155 │
00:08:02 verbose #32982 > │ #endif │
00:08:02 verbose #32983 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:02 verbose #32984 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:02 verbose #32985 > │ let v156 : (string -> bool) = System.IO.Directory.Exists │
00:08:02 verbose #32986 > │ let v157 : bool = v156 v137 │
00:08:02 verbose #32987 > │ v157 │
00:08:02 verbose #32988 > │ #endif │
00:08:02 verbose #32989 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:02 verbose #32990 > │ let v158 : string = "fs" │
00:08:02 verbose #32991 > │ let v159 : IFsExistsSync = Fable.Core.JsInterop.importAll v158 │
00:08:02 verbose #32992 > │ let v160 : string = "v159.existsSync($0)" │
00:08:02 verbose #32993 > │ let v161 : bool = Fable.Core.JsInterop.emitJsExpr v137 v160 │
00:08:02 verbose #32994 > │ v161 │
00:08:02 verbose #32995 > │ #endif │
00:08:02 verbose #32996 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:02 verbose #32997 > │ let v162 : bool = Unchecked.defaultof<bool> │
00:08:02 verbose #32998 > │ v162 │
00:08:02 verbose #32999 > │ #endif │
00:08:02 verbose #33000 > │ |> fun x -> _v140 <- Some x │
00:08:02 verbose #33001 > │ let v163 : bool = _v140.Value │
00:08:02 verbose #33002 > │ let v164 : string = $"%A{v163}" │
00:08:02 verbose #33003 > │ System.Console.WriteLine v164 │
00:08:02 verbose #33004 > │ let v166 : bool = │
00:08:02 verbose #33005 > │ if v163 then │
00:08:02 verbose #33006 > │ true │
00:08:02 verbose #33007 > │ else │
00:08:02 verbose #33008 > │ method11(v163) │
00:08:02 verbose #33009 > │ let v167 : string = $"__expect / actual: %A{v163} / expected: %A{true}" │
00:08:02 verbose #33010 > │ let v168 : bool = v166 = false │
00:08:02 verbose #33011 > │ if v168 then │
00:08:02 verbose #33012 > │ failwith<unit> v167 │
00:08:02 verbose #33013 > │ method0() │
00:08:02 verbose #33014 > │ │
00:08:02 verbose #33015 > │ true │
00:08:02 verbose #33016 > │ │
00:08:02 verbose #33017 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:02 verbose #33018 >
00:08:02 verbose #33019 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:02 verbose #33020 > // // test
00:08:02 verbose #33021 >
00:08:02 verbose #33022 > inl lock_directory path =
00:08:02 verbose #33023 > fun () =>
00:08:02 verbose #33024 > trace Debug (fun () => "_1") _locals
00:08:02 verbose #33025 > "0" |> write_all_text_async (path </> "test.txt") |> async.do
00:08:02 verbose #33026 > file_stream
00:08:02 verbose #33027 > (path </> "test.txt")
00:08:02 verbose #33028 > ModeOpen
00:08:02 verbose #33029 > AccessReadWrite
00:08:02 verbose #33030 > ShareNone
00:08:02 verbose #33031 > |> use
00:08:02 verbose #33032 > |> ignore
00:08:02 verbose #33033 > trace Debug (fun () => "_2") _locals
00:08:02 verbose #33034 > async.sleep 2000 |> async.do
00:08:02 verbose #33035 > trace Debug (fun () => "_3") _locals
00:08:02 verbose #33036 > () |> return
00:08:02 verbose #33037 > |> async.new_async
00:08:02 verbose #33038 >
00:08:02 verbose #33039 > inl temp_dir, disposable = create_temp_directory ()
00:08:02 verbose #33040 > disposable |> use |> ignore
00:08:02 verbose #33041 > inl path = temp_dir </> "test"
00:08:02 verbose #33042 >
00:08:02 verbose #33043 > fun () =>
00:08:02 verbose #33044 > trace Debug (fun () => "1") _locals
00:08:02 verbose #33045 > path |> create_directory |> ignore
00:08:02 verbose #33046 > trace Debug (fun () => "2") _locals
00:08:02 verbose #33047 > inl child = path |> lock_directory |> async.start_child |> async.let'
00:08:02 verbose #33048 > trace Debug (fun () => "3") _locals
00:08:02 verbose #33049 > async.sleep 60 |> async.do
00:08:02 verbose #33050 > trace Debug (fun () => "4") _locals
00:08:02 verbose #33051 > inl retries = path |> delete_directory_async |> async.let'
00:08:02 verbose #33052 > trace Debug (fun () => "5") _locals
00:08:02 verbose #33053 > child |> async.do
00:08:02 verbose #33054 > trace Debug (fun () => "6") _locals
00:08:02 verbose #33055 > retries |> return
00:08:02 verbose #33056 > |> async.new_async_unit
00:08:02 verbose #33057 > |> async.run_with_timeout 3000
00:08:02 verbose #33058 > |> fun x => x : _ i64
00:08:02 verbose #33059 > |> function
00:08:02 verbose #33060 > | Some (retries : i64) =>
00:08:02 verbose #33061 > retries
00:08:02 verbose #33062 > |> _assert_between
00:08:02 verbose #33063 > (if runtime.is_windows () then 50 else 0)
00:08:02 verbose #33064 > (if runtime.is_windows () then 150 else 0)
00:08:02 verbose #33065 >
00:08:02 verbose #33066 > true
00:08:02 verbose #33067 > | _ => false
00:08:02 verbose #33068 > |> _assert_eq true
00:08:02 verbose #33069 > 00:08:02 debug #638 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/14fce0da2a484447315f18112f742fe235f2708c1a86ca01ac1d8f057f8f1003/main.spi
00:08:05 verbose #33070 >
00:08:05 verbose #33071 > ╭─[ 2.86s - stdout ]───────────────────────────────────────────────────────────╮
00:08:05 verbose #33072 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:05 verbose #33073 > │ string │
00:08:05 verbose #33074 > │ module State = let mutable trace_state = None │
00:08:05 verbose #33075 > │ type [<Struct>] US0 = │
00:08:05 verbose #33076 > │ | US0_0 │
00:08:05 verbose #33077 > │ | US0_1 │
00:08:05 verbose #33078 > │ | US0_2 │
00:08:05 verbose #33079 > │ | US0_3 │
00:08:05 verbose #33080 > │ | US0_4 │
00:08:05 verbose #33081 > │ and Mut0 = {mutable l0 : int64} │
00:08:05 verbose #33082 > │ and Mut1 = {mutable l0 : bool} │
00:08:05 verbose #33083 > │ and Mut2 = {mutable l0 : US0} │
00:08:05 verbose #33084 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:08:05 verbose #33085 > │ and [<Struct>] US1 = │
00:08:05 verbose #33086 > │ | US1_0 of f0_0 : int64 │
00:08:05 verbose #33087 > │ | US1_1 │
00:08:05 verbose #33088 > │ and [<Struct>] US2 = │
00:08:05 verbose #33089 > │ | US2_0 of f0_0 : int64 │
00:08:05 verbose #33090 > │ | US2_1 │
00:08:05 verbose #33091 > │ and [<Struct>] US3 = │
00:08:05 verbose #33092 > │ | US3_0 of f0_0 : int64 │
00:08:05 verbose #33093 > │ | US3_1 of f1_0 : exn │
00:08:05 verbose #33094 > │ and [<Struct>] US4 = │
00:08:05 verbose #33095 > │ | US4_0 of f0_0 : int64 │
00:08:05 verbose #33096 > │ | US4_1 of f1_0 : exn │
00:08:05 verbose #33097 > │ let rec closure0 () () : string = │
00:08:05 verbose #33098 > │ let v0 : string option = None │
00:08:05 verbose #33099 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:05 verbose #33100 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33101 > │ let v2 : string = null |> unbox<string> │
00:08:05 verbose #33102 > │ v2 │
00:08:05 verbose #33103 > │ #endif │
00:08:05 verbose #33104 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33105 > │ let v3 : string = null |> unbox<string> │
00:08:05 verbose #33106 > │ v3 │
00:08:05 verbose #33107 > │ #endif │
00:08:05 verbose #33108 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33109 > │ let v4 : string = null |> unbox<string> │
00:08:05 verbose #33110 > │ v4 │
00:08:05 verbose #33111 > │ #endif │
00:08:05 verbose #33112 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33113 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33114 > │ let v5 : string = │
00:08:05 verbose #33115 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:05 verbose #33116 > │ v5 │
00:08:05 verbose #33117 > │ #endif │
00:08:05 verbose #33118 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33119 > │ let v6 : string = null |> unbox<string> │
00:08:05 verbose #33120 > │ v6 │
00:08:05 verbose #33121 > │ #endif │
00:08:05 verbose #33122 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33123 > │ let v7 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33124 > │ v7 │
00:08:05 verbose #33125 > │ #endif │
00:08:05 verbose #33126 > │ |> fun x -> _v0 <- Some x │
00:08:05 verbose #33127 > │ let v8 : string = _v0.Value │
00:08:05 verbose #33128 > │ v8 │
00:08:05 verbose #33129 > │ and method1 (v0 : string) : string = │
00:08:05 verbose #33130 > │ v0 │
00:08:05 verbose #33131 > │ and method2 (v0 : string) : string = │
00:08:05 verbose #33132 > │ v0 │
00:08:05 verbose #33133 > │ and method3 (v0 : string) : string = │
00:08:05 verbose #33134 > │ v0 │
00:08:05 verbose #33135 > │ and closure1 () () : string = │
00:08:05 verbose #33136 > │ let v0 : string = "file_system.create_temp_directory" │
00:08:05 verbose #33137 > │ v0 │
00:08:05 verbose #33138 > │ and closure3 () () : string = │
00:08:05 verbose #33139 > │ let v0 : string = "" │
00:08:05 verbose #33140 > │ v0 │
00:08:05 verbose #33141 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:08:05 verbose #33142 > │ let v2 : (unit -> string) = closure3() │
00:08:05 verbose #33143 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:05 verbose #33144 > │ v3 │
00:08:05 verbose #33145 > │ and closure6 () (v0 : string) : unit = │
00:08:05 verbose #33146 > │ () │
00:08:05 verbose #33147 > │ and method5 (v0 : int64 option) : int64 option = │
00:08:05 verbose #33148 > │ v0 │
00:08:05 verbose #33149 > │ and method6 (v0 : int64 option) : int64 option = │
00:08:05 verbose #33150 > │ v0 │
00:08:05 verbose #33151 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:08:05 verbose #33152 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:05 verbose #33153 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:05 verbose #33154 > │ let v2 : US0 = US0_0 │
00:08:05 verbose #33155 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:05 verbose #33156 > │ let v4 : (string -> unit) = closure6() │
00:08:05 verbose #33157 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:08:05 verbose #33158 > │ let v6 : int64 option option = None │
00:08:05 verbose #33159 > │ let mutable _v6 = v6 │
00:08:05 verbose #33160 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:05 verbose #33161 > │ let v7 : string option = None │
00:08:05 verbose #33162 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:05 verbose #33163 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33164 > │ let v9 : string = null |> unbox<string> │
00:08:05 verbose #33165 > │ v9 │
00:08:05 verbose #33166 > │ #endif │
00:08:05 verbose #33167 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33168 > │ let v10 : string = null |> unbox<string> │
00:08:05 verbose #33169 > │ v10 │
00:08:05 verbose #33170 > │ #endif │
00:08:05 verbose #33171 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33172 > │ let v11 : string = null |> unbox<string> │
00:08:05 verbose #33173 > │ v11 │
00:08:05 verbose #33174 > │ #endif │
00:08:05 verbose #33175 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33176 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33177 > │ let v12 : string = │
00:08:05 verbose #33178 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:05 verbose #33179 > │ v12 │
00:08:05 verbose #33180 > │ #endif │
00:08:05 verbose #33181 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33182 > │ let v13 : string = null |> unbox<string> │
00:08:05 verbose #33183 > │ v13 │
00:08:05 verbose #33184 > │ #endif │
00:08:05 verbose #33185 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33186 > │ let v14 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33187 > │ v14 │
00:08:05 verbose #33188 > │ #endif │
00:08:05 verbose #33189 > │ |> fun x -> _v7 <- Some x │
00:08:05 verbose #33190 > │ let v15 : string = _v7.Value │
00:08:05 verbose #33191 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:08:05 verbose #33192 > │ let v18 : bool = v17 <> true │
00:08:05 verbose #33193 > │ let v24 : US1 = │
00:08:05 verbose #33194 > │ if v18 then │
00:08:05 verbose #33195 > │ let v19 : System.DateTime = System.DateTime.Now │
00:08:05 verbose #33196 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:08:05 verbose #33197 > │ let v21 : int64 = v20 v19 │
00:08:05 verbose #33198 > │ US1_0(v21) │
00:08:05 verbose #33199 > │ else │
00:08:05 verbose #33200 > │ US1_1 │
00:08:05 verbose #33201 > │ let v29 : int64 option = │
00:08:05 verbose #33202 > │ match v24 with │
00:08:05 verbose #33203 > │ | US1_1 -> (* None *) │
00:08:05 verbose #33204 > │ let v27 : int64 option = None │
00:08:05 verbose #33205 > │ v27 │
00:08:05 verbose #33206 > │ | US1_0(v25) -> (* Some *) │
00:08:05 verbose #33207 > │ let v26 : int64 option = Some v25 │
00:08:05 verbose #33208 > │ v26 │
00:08:05 verbose #33209 > │ let v30 : int64 option = method5(v29) │
00:08:05 verbose #33210 > │ v30 │
00:08:05 verbose #33211 > │ #else │
00:08:05 verbose #33212 > │ let v31 : int64 option = None │
00:08:05 verbose #33213 > │ let v32 : int64 option = method6(v31) │
00:08:05 verbose #33214 > │ v32 │
00:08:05 verbose #33215 > │ #endif │
00:08:05 verbose #33216 > │ |> fun x -> _v6 <- Some x │
00:08:05 verbose #33217 > │ let v33 : int64 option = _v6.Value │
00:08:05 verbose #33218 > │ struct (v1, v0, v3, v33, v5) │
00:08:05 verbose #33219 > │ and closure7 () (v0 : int64) : US2 = │
00:08:05 verbose #33220 > │ US2_0(v0) │
00:08:05 verbose #33221 > │ and method7 () : (int64 -> US2) = │
00:08:05 verbose #33222 > │ closure7() │
00:08:05 verbose #33223 > │ and method8 () : string = │
00:08:05 verbose #33224 > │ let v0 : string = "" │
00:08:05 verbose #33225 > │ v0 │
00:08:05 verbose #33226 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:05 verbose #33227 > │ string = │
00:08:05 verbose #33228 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:05 verbose #33229 > │ closure5() │
00:08:05 verbose #33230 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:08:05 verbose #33231 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:08:05 verbose #33232 > │ Mut3) = State.trace_state.Value │
00:08:05 verbose #33233 > │ let v9 : string option = None │
00:08:05 verbose #33234 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:05 verbose #33235 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33236 > │ let v11 : (int64 -> US2) = method7() │
00:08:05 verbose #33237 > │ let v12 : US2 = US2_1 │
00:08:05 verbose #33238 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:08:05 verbose #33239 > │ let v31 : System.DateTime = │
00:08:05 verbose #33240 > │ match v13 with │
00:08:05 verbose #33241 > │ | US2_1 -> (* None *) │
00:08:05 verbose #33242 > │ let v29 : System.DateTime = System.DateTime.Now │
00:08:05 verbose #33243 > │ v29 │
00:08:05 verbose #33244 > │ | US2_0(v14) -> (* Some *) │
00:08:05 verbose #33245 > │ let v15 : System.DateTime = System.DateTime.Now │
00:08:05 verbose #33246 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:08:05 verbose #33247 > │ let v17 : int64 = v16 v15 │
00:08:05 verbose #33248 > │ let v18 : int64 = v17 - v14 │
00:08:05 verbose #33249 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:08:05 verbose #33250 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:08:05 verbose #33251 > │ let v21 : int32 = v20 v19 │
00:08:05 verbose #33252 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:08:05 verbose #33253 > │ let v23 : int32 = v22 v19 │
00:08:05 verbose #33254 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:08:05 verbose #33255 > │ let v25 : int32 = v24 v19 │
00:08:05 verbose #33256 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:05 verbose #33257 > │ let v27 : int32 = v26 v19 │
00:08:05 verbose #33258 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:08:05 verbose #33259 > │ v25, v27) │
00:08:05 verbose #33260 > │ v28 │
00:08:05 verbose #33261 > │ let v32 : string = "hh:mm:ss" │
00:08:05 verbose #33262 > │ let v33 : string = v31.ToString v32 │
00:08:05 verbose #33263 > │ v33 │
00:08:05 verbose #33264 > │ #endif │
00:08:05 verbose #33265 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33266 > │ let v34 : string = method8() │
00:08:05 verbose #33267 > │ v34 │
00:08:05 verbose #33268 > │ #endif │
00:08:05 verbose #33269 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33270 > │ let v35 : string = method8() │
00:08:05 verbose #33271 > │ v35 │
00:08:05 verbose #33272 > │ #endif │
00:08:05 verbose #33273 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33274 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33275 > │ let v36 : (int64 -> US2) = method7() │
00:08:05 verbose #33276 > │ let v37 : US2 = US2_1 │
00:08:05 verbose #33277 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:08:05 verbose #33278 > │ let v56 : System.DateTime = │
00:08:05 verbose #33279 > │ match v38 with │
00:08:05 verbose #33280 > │ | US2_1 -> (* None *) │
00:08:05 verbose #33281 > │ let v54 : System.DateTime = System.DateTime.Now │
00:08:05 verbose #33282 > │ v54 │
00:08:05 verbose #33283 > │ | US2_0(v39) -> (* Some *) │
00:08:05 verbose #33284 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:05 verbose #33285 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:08:05 verbose #33286 > │ let v42 : int64 = v41 v40 │
00:08:05 verbose #33287 > │ let v43 : int64 = v42 - v39 │
00:08:05 verbose #33288 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:08:05 verbose #33289 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:08:05 verbose #33290 > │ let v46 : int32 = v45 v44 │
00:08:05 verbose #33291 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:08:05 verbose #33292 > │ let v48 : int32 = v47 v44 │
00:08:05 verbose #33293 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:08:05 verbose #33294 > │ let v50 : int32 = v49 v44 │
00:08:05 verbose #33295 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:05 verbose #33296 > │ let v52 : int32 = v51 v44 │
00:08:05 verbose #33297 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:08:05 verbose #33298 > │ v50, v52) │
00:08:05 verbose #33299 > │ v53 │
00:08:05 verbose #33300 > │ let v57 : string = "HH:mm:ss" │
00:08:05 verbose #33301 > │ let v58 : string = v56.ToString v57 │
00:08:05 verbose #33302 > │ v58 │
00:08:05 verbose #33303 > │ #endif │
00:08:05 verbose #33304 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33305 > │ let v59 : string = method8() │
00:08:05 verbose #33306 > │ v59 │
00:08:05 verbose #33307 > │ #endif │
00:08:05 verbose #33308 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33309 > │ let v60 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33310 > │ v60 │
00:08:05 verbose #33311 > │ #endif │
00:08:05 verbose #33312 > │ |> fun x -> _v9 <- Some x │
00:08:05 verbose #33313 > │ let v61 : string = _v9.Value │
00:08:05 verbose #33314 > │ let v62 : int64 = v4.l0 │
00:08:05 verbose #33315 > │ let v72 : string = │
00:08:05 verbose #33316 > │ match v0 with │
00:08:05 verbose #33317 > │ | US0_4 -> (* Critical *) │
00:08:05 verbose #33318 > │ let v67 : string = "Critical" │
00:08:05 verbose #33319 > │ v67 │
00:08:05 verbose #33320 > │ | US0_1 -> (* Debug *) │
00:08:05 verbose #33321 > │ let v64 : string = "Debug" │
00:08:05 verbose #33322 > │ v64 │
00:08:05 verbose #33323 > │ | US0_2 -> (* Info *) │
00:08:05 verbose #33324 > │ let v65 : string = "Info" │
00:08:05 verbose #33325 > │ v65 │
00:08:05 verbose #33326 > │ | US0_0 -> (* Verbose *) │
00:08:05 verbose #33327 > │ let v63 : string = "Verbose" │
00:08:05 verbose #33328 > │ v63 │
00:08:05 verbose #33329 > │ | US0_3 -> (* Warning *) │
00:08:05 verbose #33330 > │ let v66 : string = "Warning" │
00:08:05 verbose #33331 > │ v66 │
00:08:05 verbose #33332 > │ let v73 : string = v72.ToLower () │
00:08:05 verbose #33333 > │ let v74 : string option = None │
00:08:05 verbose #33334 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:08:05 verbose #33335 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33336 > │ let v90 : Ref<Str> = │
00:08:05 verbose #33337 > │ match v0 with │
00:08:05 verbose #33338 > │ | US0_4 -> (* Critical *) │
00:08:05 verbose #33339 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:08:05 verbose #33340 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:08:05 verbose #33341 > │ v85 │
00:08:05 verbose #33342 > │ | US0_1 -> (* Debug *) │
00:08:05 verbose #33343 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:08:05 verbose #33344 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:08:05 verbose #33345 > │ v79 │
00:08:05 verbose #33346 > │ | US0_2 -> (* Info *) │
00:08:05 verbose #33347 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:08:05 verbose #33348 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:08:05 verbose #33349 > │ v81 │
00:08:05 verbose #33350 > │ | US0_0 -> (* Verbose *) │
00:08:05 verbose #33351 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:08:05 verbose #33352 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:08:05 verbose #33353 > │ v77 │
00:08:05 verbose #33354 > │ | US0_3 -> (* Warning *) │
00:08:05 verbose #33355 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:08:05 verbose #33356 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:08:05 verbose #33357 > │ v83 │
00:08:05 verbose #33358 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:05 verbose #33359 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:08:05 verbose #33360 > │ let v93 : string = "inline_colorization::color_reset" │
00:08:05 verbose #33361 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:08:05 verbose #33362 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:08:05 verbose #33363 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:08:05 verbose #33364 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:08:05 verbose #33365 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:08:05 verbose #33366 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:08:05 verbose #33367 > │ v99 │
00:08:05 verbose #33368 > │ #endif │
00:08:05 verbose #33369 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33370 > │ let v114 : Ref<Str> = │
00:08:05 verbose #33371 > │ match v0 with │
00:08:05 verbose #33372 > │ | US0_4 -> (* Critical *) │
00:08:05 verbose #33373 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:08:05 verbose #33374 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33375 > │ v108 │
00:08:05 verbose #33376 > │ v109 │
00:08:05 verbose #33377 > │ | US0_1 -> (* Debug *) │
00:08:05 verbose #33378 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:08:05 verbose #33379 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33380 > │ v102 │
00:08:05 verbose #33381 > │ v103 │
00:08:05 verbose #33382 > │ | US0_2 -> (* Info *) │
00:08:05 verbose #33383 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:08:05 verbose #33384 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33385 > │ v104 │
00:08:05 verbose #33386 > │ v105 │
00:08:05 verbose #33387 > │ | US0_0 -> (* Verbose *) │
00:08:05 verbose #33388 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:08:05 verbose #33389 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33390 > │ v100 │
00:08:05 verbose #33391 > │ v101 │
00:08:05 verbose #33392 > │ | US0_3 -> (* Warning *) │
00:08:05 verbose #33393 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:08:05 verbose #33394 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33395 > │ v106 │
00:08:05 verbose #33396 > │ v107 │
00:08:05 verbose #33397 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:05 verbose #33398 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:08:05 verbose #33399 > │ let v117 : string = "inline_colorization::color_reset" │
00:08:05 verbose #33400 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:08:05 verbose #33401 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:08:05 verbose #33402 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:08:05 verbose #33403 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33404 > │ v120 │
00:08:05 verbose #33405 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:08:05 verbose #33406 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:08:05 verbose #33407 > │ v123 │
00:08:05 verbose #33408 > │ #endif │
00:08:05 verbose #33409 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33410 > │ let v138 : Ref<Str> = │
00:08:05 verbose #33411 > │ match v0 with │
00:08:05 verbose #33412 > │ | US0_4 -> (* Critical *) │
00:08:05 verbose #33413 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:08:05 verbose #33414 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33415 > │ v132 │
00:08:05 verbose #33416 > │ v133 │
00:08:05 verbose #33417 > │ | US0_1 -> (* Debug *) │
00:08:05 verbose #33418 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:08:05 verbose #33419 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33420 > │ v126 │
00:08:05 verbose #33421 > │ v127 │
00:08:05 verbose #33422 > │ | US0_2 -> (* Info *) │
00:08:05 verbose #33423 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:08:05 verbose #33424 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33425 > │ v128 │
00:08:05 verbose #33426 > │ v129 │
00:08:05 verbose #33427 > │ | US0_0 -> (* Verbose *) │
00:08:05 verbose #33428 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:08:05 verbose #33429 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33430 > │ v124 │
00:08:05 verbose #33431 > │ v125 │
00:08:05 verbose #33432 > │ | US0_3 -> (* Warning *) │
00:08:05 verbose #33433 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:08:05 verbose #33434 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33435 > │ v130 │
00:08:05 verbose #33436 > │ v131 │
00:08:05 verbose #33437 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:05 verbose #33438 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:08:05 verbose #33439 > │ let v141 : string = "inline_colorization::color_reset" │
00:08:05 verbose #33440 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:08:05 verbose #33441 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:08:05 verbose #33442 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:08:05 verbose #33443 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:05 verbose #33444 > │ v144 │
00:08:05 verbose #33445 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:08:05 verbose #33446 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:08:05 verbose #33447 > │ v147 │
00:08:05 verbose #33448 > │ #endif │
00:08:05 verbose #33449 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33450 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33451 > │ v73 │
00:08:05 verbose #33452 > │ #endif │
00:08:05 verbose #33453 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33454 > │ v73 │
00:08:05 verbose #33455 > │ #endif │
00:08:05 verbose #33456 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33457 > │ let v148 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33458 > │ v148 │
00:08:05 verbose #33459 > │ #endif │
00:08:05 verbose #33460 > │ |> fun x -> _v74 <- Some x │
00:08:05 verbose #33461 > │ let v149 : string = _v74.Value │
00:08:05 verbose #33462 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:08:05 verbose #33463 > │ let v151 : (char []) = [||] │
00:08:05 verbose #33464 > │ let v152 : string = v150.TrimStart v151 │
00:08:05 verbose #33465 > │ let v153 : (char []) = [|' '; '/'|] │
00:08:05 verbose #33466 > │ let v154 : string = v152.TrimEnd v153 │
00:08:05 verbose #33467 > │ v154 │
00:08:05 verbose #33468 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:08:05 verbose #33469 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:05 verbose #33470 > │ closure5() │
00:08:05 verbose #33471 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:05 verbose #33472 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:08:05 verbose #33473 > │ Mut3) = State.trace_state.Value │
00:08:05 verbose #33474 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:05 verbose #33475 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:08:05 verbose #33476 > │ Mut3) = State.trace_state.Value │
00:08:05 verbose #33477 > │ let v13 : US0 = v10.l0 │
00:08:05 verbose #33478 > │ let v14 : bool = v9.l0 │
00:08:05 verbose #33479 > │ let v15 : bool = v14 = false │
00:08:05 verbose #33480 > │ let v19 : bool = │
00:08:05 verbose #33481 > │ if v15 then │
00:08:05 verbose #33482 > │ false │
00:08:05 verbose #33483 > │ else │
00:08:05 verbose #33484 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:05 verbose #33485 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:08:05 verbose #33486 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:05 verbose #33487 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:08:05 verbose #33488 > │ let v18 : bool = v16 >= v17 │
00:08:05 verbose #33489 > │ v18 │
00:08:05 verbose #33490 > │ if v19 then │
00:08:05 verbose #33491 > │ let v20 : int64 = v3.l0 │
00:08:05 verbose #33492 > │ let v21 : int64 = v20 + 1L │
00:08:05 verbose #33493 > │ v3.l0 <- v21 │
00:08:05 verbose #33494 > │ let v22 : string = $"%s{v1 ()}" │
00:08:05 verbose #33495 > │ let v23 : unit option = None │
00:08:05 verbose #33496 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:08:05 verbose #33497 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33498 > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:05 verbose #33499 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:08:05 verbose #33500 > │ () │
00:08:05 verbose #33501 > │ #endif │
00:08:05 verbose #33502 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33503 > │ let v26 : string = @"println!(""{}"", $0)" │
00:08:05 verbose #33504 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:08:05 verbose #33505 > │ () │
00:08:05 verbose #33506 > │ #endif │
00:08:05 verbose #33507 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33508 > │ let v27 : string = @"println!(""{}"", $0)" │
00:08:05 verbose #33509 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:08:05 verbose #33510 > │ () │
00:08:05 verbose #33511 > │ #endif │
00:08:05 verbose #33512 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33513 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33514 > │ System.Console.WriteLine v22 │
00:08:05 verbose #33515 > │ () │
00:08:05 verbose #33516 > │ #endif │
00:08:05 verbose #33517 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33518 > │ System.Console.WriteLine v22 │
00:08:05 verbose #33519 > │ () │
00:08:05 verbose #33520 > │ #endif │
00:08:05 verbose #33521 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:05 verbose #33522 > │ FABLE_COMPILER_DART │
00:08:05 verbose #33523 > │ Unchecked.defaultof<unit> │
00:08:05 verbose #33524 > │ () │
00:08:05 verbose #33525 > │ #endif │
00:08:05 verbose #33526 > │ |> fun x -> _v23 <- Some x │
00:08:05 verbose #33527 > │ _v23.Value │
00:08:05 verbose #33528 > │ let v28 : (string -> unit) = v7.l0 │
00:08:05 verbose #33529 > │ v28 v22 │
00:08:05 verbose #33530 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:05 verbose #33531 > │ = │
00:08:05 verbose #33532 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:08:05 verbose #33533 > │ method9(v0, v3) │
00:08:05 verbose #33534 > │ and closure9 () () : string = │
00:08:05 verbose #33535 > │ let v0 : string = "file_system.delete_directory_async" │
00:08:05 verbose #33536 > │ v0 │
00:08:05 verbose #33537 > │ and closure11 () (v0 : string) : string = │
00:08:05 verbose #33538 > │ let v1 : string option = None │
00:08:05 verbose #33539 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:05 verbose #33540 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33541 > │ let v3 : string = null |> unbox<string> │
00:08:05 verbose #33542 > │ v3 │
00:08:05 verbose #33543 > │ #endif │
00:08:05 verbose #33544 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33545 > │ let v4 : string = null |> unbox<string> │
00:08:05 verbose #33546 > │ v4 │
00:08:05 verbose #33547 > │ #endif │
00:08:05 verbose #33548 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33549 > │ let v5 : string = null |> unbox<string> │
00:08:05 verbose #33550 > │ v5 │
00:08:05 verbose #33551 > │ #endif │
00:08:05 verbose #33552 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33553 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33554 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:08:05 verbose #33555 > │ let v7 : string = v6 v0 │
00:08:05 verbose #33556 > │ v7 │
00:08:05 verbose #33557 > │ #endif │
00:08:05 verbose #33558 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33559 > │ let v8 : string = null |> unbox<string> │
00:08:05 verbose #33560 > │ v8 │
00:08:05 verbose #33561 > │ #endif │
00:08:05 verbose #33562 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33563 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33564 > │ v9 │
00:08:05 verbose #33565 > │ #endif │
00:08:05 verbose #33566 > │ |> fun x -> _v1 <- Some x │
00:08:05 verbose #33567 > │ let v10 : string = _v1.Value │
00:08:05 verbose #33568 > │ v10 │
00:08:05 verbose #33569 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:08:05 verbose #33570 > │ let v2 : (string -> string) = closure11() │
00:08:05 verbose #33571 > │ let v3 : (unit -> string) = closure3() │
00:08:05 verbose #33572 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:05 verbose #33573 > │ v4 │
00:08:05 verbose #33574 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:08:05 verbose #33575 > │ let v2 : Async<int64> option = None │
00:08:05 verbose #33576 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:05 verbose #33577 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33578 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33579 > │ v4 │
00:08:05 verbose #33580 > │ #endif │
00:08:05 verbose #33581 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33582 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33583 > │ v5 │
00:08:05 verbose #33584 > │ #endif │
00:08:05 verbose #33585 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33586 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33587 > │ v6 │
00:08:05 verbose #33588 > │ #endif │
00:08:05 verbose #33589 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33590 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33591 > │ let v7 : Async<int64> option = None │
00:08:05 verbose #33592 > │ let mutable _v7 = v7 │
00:08:05 verbose #33593 > │ async { │
00:08:05 verbose #33594 > │ try │
00:08:05 verbose #33595 > │ let v8 : unit option = None │
00:08:05 verbose #33596 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:05 verbose #33597 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33598 > │ null |> unbox<unit> │
00:08:05 verbose #33599 > │ () │
00:08:05 verbose #33600 > │ #endif │
00:08:05 verbose #33601 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33602 > │ null |> unbox<unit> │
00:08:05 verbose #33603 > │ () │
00:08:05 verbose #33604 > │ #endif │
00:08:05 verbose #33605 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33606 > │ null |> unbox<unit> │
00:08:05 verbose #33607 > │ () │
00:08:05 verbose #33608 > │ #endif │
00:08:05 verbose #33609 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33610 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33611 > │ System.IO.Directory.Delete (v0, true) │
00:08:05 verbose #33612 > │ () │
00:08:05 verbose #33613 > │ #endif │
00:08:05 verbose #33614 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33615 > │ null |> unbox<unit> │
00:08:05 verbose #33616 > │ () │
00:08:05 verbose #33617 > │ #endif │
00:08:05 verbose #33618 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33619 > │ Unchecked.defaultof<unit> │
00:08:05 verbose #33620 > │ () │
00:08:05 verbose #33621 > │ #endif │
00:08:05 verbose #33622 > │ |> fun x -> _v8 <- Some x │
00:08:05 verbose #33623 > │ _v8.Value │
00:08:05 verbose #33624 > │ return v1 │
00:08:05 verbose #33625 > │ with ex -> │
00:08:05 verbose #33626 > │ let v10 : exn = ex │
00:08:05 verbose #33627 > │ let v11 : int64 = v1 % 100L │
00:08:05 verbose #33628 > │ let v12 : bool = v11 = 0L │
00:08:05 verbose #33629 > │ if v12 then │
00:08:05 verbose #33630 > │ let v13 : string option = None │
00:08:05 verbose #33631 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:05 verbose #33632 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33633 > │ let v15 : string = $"%A{v10}" │
00:08:05 verbose #33634 > │ v15 │
00:08:05 verbose #33635 > │ #endif │
00:08:05 verbose #33636 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33637 > │ let v16 : string = $"%A{v10}" │
00:08:05 verbose #33638 > │ v16 │
00:08:05 verbose #33639 > │ #endif │
00:08:05 verbose #33640 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33641 > │ let v17 : string = $"%A{v10}" │
00:08:05 verbose #33642 > │ v17 │
00:08:05 verbose #33643 > │ #endif │
00:08:05 verbose #33644 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33645 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33646 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:08:05 verbose #33647 > │ v18 │
00:08:05 verbose #33648 > │ #endif │
00:08:05 verbose #33649 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33650 > │ let v19 : string = $"%A{v10}" │
00:08:05 verbose #33651 > │ v19 │
00:08:05 verbose #33652 > │ #endif │
00:08:05 verbose #33653 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:05 verbose #33654 > │ FABLE_COMPILER_DART │
00:08:05 verbose #33655 > │ let v20 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33656 > │ v20 │
00:08:05 verbose #33657 > │ #endif │
00:08:05 verbose #33658 > │ |> fun x -> _v13 <- Some x │
00:08:05 verbose #33659 > │ let v21 : string = _v13.Value │
00:08:05 verbose #33660 > │ let v22 : US0 = US0_1 │
00:08:05 verbose #33661 > │ let v23 : (unit -> string) = closure9() │
00:08:05 verbose #33662 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:08:05 verbose #33663 > │ method4(v22, v23, v24) │
00:08:05 verbose #33664 > │ let v25 : Async<unit> option = None │
00:08:05 verbose #33665 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:08:05 verbose #33666 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33667 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33668 > │ v27 │
00:08:05 verbose #33669 > │ #endif │
00:08:05 verbose #33670 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33671 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33672 > │ v28 │
00:08:05 verbose #33673 > │ #endif │
00:08:05 verbose #33674 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33675 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33676 > │ v29 │
00:08:05 verbose #33677 > │ #endif │
00:08:05 verbose #33678 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33679 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33680 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:08:05 verbose #33681 > │ let v31 : Async<unit> = v30 10 │
00:08:05 verbose #33682 > │ v31 │
00:08:05 verbose #33683 > │ #endif │
00:08:05 verbose #33684 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33685 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33686 > │ v32 │
00:08:05 verbose #33687 > │ #endif │
00:08:05 verbose #33688 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33689 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:05 verbose #33690 > │ v33 │
00:08:05 verbose #33691 > │ #endif │
00:08:05 verbose #33692 > │ |> fun x -> _v25 <- Some x │
00:08:05 verbose #33693 > │ let v34 : Async<unit> = _v25.Value │
00:08:05 verbose #33694 > │ do! v34 │
00:08:05 verbose #33695 > │ let v35 : int64 = v1 + 1L │
00:08:05 verbose #33696 > │ let v36 : Async<int64> = method10(v0, v35) │
00:08:05 verbose #33697 > │ return! v36 │
00:08:05 verbose #33698 > │ (* │
00:08:05 verbose #33699 > │ let v37 : int64 = *) │
00:08:05 verbose #33700 > │ } │
00:08:05 verbose #33701 > │ |> fun x -> _v7 <- Some x │
00:08:05 verbose #33702 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:08:05 verbose #33703 > │ v38 │
00:08:05 verbose #33704 > │ #endif │
00:08:05 verbose #33705 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33706 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33707 > │ v39 │
00:08:05 verbose #33708 > │ #endif │
00:08:05 verbose #33709 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33710 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:05 verbose #33711 > │ v40 │
00:08:05 verbose #33712 > │ #endif │
00:08:05 verbose #33713 > │ |> fun x -> _v2 <- Some x │
00:08:05 verbose #33714 > │ let v41 : Async<int64> = _v2.Value │
00:08:05 verbose #33715 > │ v41 │
00:08:05 verbose #33716 > │ and closure8 (v0 : string) () : unit = │
00:08:05 verbose #33717 > │ let v1 : Async<int64> option = None │
00:08:05 verbose #33718 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:05 verbose #33719 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33720 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33721 > │ v3 │
00:08:05 verbose #33722 > │ #endif │
00:08:05 verbose #33723 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33724 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33725 > │ v4 │
00:08:05 verbose #33726 > │ #endif │
00:08:05 verbose #33727 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33728 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33729 > │ v5 │
00:08:05 verbose #33730 > │ #endif │
00:08:05 verbose #33731 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33732 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33733 > │ let v6 : int64 = 0L │
00:08:05 verbose #33734 > │ let v7 : Async<int64> = method10(v0, v6) │
00:08:05 verbose #33735 > │ v7 │
00:08:05 verbose #33736 > │ #endif │
00:08:05 verbose #33737 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33738 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:05 verbose #33739 > │ v8 │
00:08:05 verbose #33740 > │ #endif │
00:08:05 verbose #33741 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33742 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:05 verbose #33743 > │ v9 │
00:08:05 verbose #33744 > │ #endif │
00:08:05 verbose #33745 > │ |> fun x -> _v1 <- Some x │
00:08:05 verbose #33746 > │ let v10 : Async<int64> = _v1.Value │
00:08:05 verbose #33747 > │ let v11 : Async<unit> option = None │
00:08:05 verbose #33748 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:08:05 verbose #33749 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33750 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33751 > │ v13 │
00:08:05 verbose #33752 > │ #endif │
00:08:05 verbose #33753 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33754 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33755 > │ v14 │
00:08:05 verbose #33756 > │ #endif │
00:08:05 verbose #33757 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33758 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33759 > │ v15 │
00:08:05 verbose #33760 > │ #endif │
00:08:05 verbose #33761 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33762 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33763 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:05 verbose #33764 > │ let v17 : Async<unit> = v16 v10 │
00:08:05 verbose #33765 > │ v17 │
00:08:05 verbose #33766 > │ #endif │
00:08:05 verbose #33767 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33768 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:05 verbose #33769 > │ v18 │
00:08:05 verbose #33770 > │ #endif │
00:08:05 verbose #33771 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33772 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:05 verbose #33773 > │ v19 │
00:08:05 verbose #33774 > │ #endif │
00:08:05 verbose #33775 > │ |> fun x -> _v11 <- Some x │
00:08:05 verbose #33776 > │ let v20 : Async<unit> = _v11.Value │
00:08:05 verbose #33777 > │ let v21 : unit option = None │
00:08:05 verbose #33778 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:08:05 verbose #33779 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33780 > │ null |> unbox<unit> │
00:08:05 verbose #33781 > │ () │
00:08:05 verbose #33782 > │ #endif │
00:08:05 verbose #33783 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33784 > │ null |> unbox<unit> │
00:08:05 verbose #33785 > │ () │
00:08:05 verbose #33786 > │ #endif │
00:08:05 verbose #33787 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33788 > │ null |> unbox<unit> │
00:08:05 verbose #33789 > │ () │
00:08:05 verbose #33790 > │ #endif │
00:08:05 verbose #33791 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33792 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33793 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:05 verbose #33794 > │ v23 v20 │
00:08:05 verbose #33795 > │ () │
00:08:05 verbose #33796 > │ #endif │
00:08:05 verbose #33797 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33798 > │ null |> unbox<unit> │
00:08:05 verbose #33799 > │ () │
00:08:05 verbose #33800 > │ #endif │
00:08:05 verbose #33801 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33802 > │ Unchecked.defaultof<unit> │
00:08:05 verbose #33803 > │ () │
00:08:05 verbose #33804 > │ #endif │
00:08:05 verbose #33805 > │ |> fun x -> _v21 <- Some x │
00:08:05 verbose #33806 > │ _v21.Value │
00:08:05 verbose #33807 > │ () │
00:08:05 verbose #33808 > │ and method11 () : string = │
00:08:05 verbose #33809 > │ let v0 : string = "test" │
00:08:05 verbose #33810 > │ v0 │
00:08:05 verbose #33811 > │ and method12 () : string = │
00:08:05 verbose #33812 > │ let v0 : string = "test" │
00:08:05 verbose #33813 > │ v0 │
00:08:05 verbose #33814 > │ and closure12 () () : string = │
00:08:05 verbose #33815 > │ let v0 : string = "1" │
00:08:05 verbose #33816 > │ v0 │
00:08:05 verbose #33817 > │ and closure13 () () : string = │
00:08:05 verbose #33818 > │ let v0 : string = "2" │
00:08:05 verbose #33819 > │ v0 │
00:08:05 verbose #33820 > │ and closure14 () () : string = │
00:08:05 verbose #33821 > │ let v0 : string = "_1" │
00:08:05 verbose #33822 > │ v0 │
00:08:05 verbose #33823 > │ and method13 () : string = │
00:08:05 verbose #33824 > │ let v0 : string = "test.txt" │
00:08:05 verbose #33825 > │ v0 │
00:08:05 verbose #33826 > │ and method14 () : string = │
00:08:05 verbose #33827 > │ let v0 : string = "test.txt" │
00:08:05 verbose #33828 > │ v0 │
00:08:05 verbose #33829 > │ and closure15 () () : string = │
00:08:05 verbose #33830 > │ let v0 : string = "_2" │
00:08:05 verbose #33831 > │ v0 │
00:08:05 verbose #33832 > │ and closure16 () () : string = │
00:08:05 verbose #33833 > │ let v0 : string = "_3" │
00:08:05 verbose #33834 > │ v0 │
00:08:05 verbose #33835 > │ and closure17 () () : string = │
00:08:05 verbose #33836 > │ let v0 : string = "3" │
00:08:05 verbose #33837 > │ v0 │
00:08:05 verbose #33838 > │ and closure18 () () : string = │
00:08:05 verbose #33839 > │ let v0 : string = "4" │
00:08:05 verbose #33840 > │ v0 │
00:08:05 verbose #33841 > │ and closure19 () () : string = │
00:08:05 verbose #33842 > │ let v0 : string = "5" │
00:08:05 verbose #33843 > │ v0 │
00:08:05 verbose #33844 > │ and closure20 () () : string = │
00:08:05 verbose #33845 > │ let v0 : string = "6" │
00:08:05 verbose #33846 > │ v0 │
00:08:05 verbose #33847 > │ and closure21 () (v0 : int64) : US3 = │
00:08:05 verbose #33848 > │ US3_0(v0) │
00:08:05 verbose #33849 > │ and closure22 () (v0 : exn) : US3 = │
00:08:05 verbose #33850 > │ US3_1(v0) │
00:08:05 verbose #33851 > │ and closure23 () () : string = │
00:08:05 verbose #33852 > │ let v0 : string = "run_with_timeout_async" │
00:08:05 verbose #33853 > │ v0 │
00:08:05 verbose #33854 > │ and closure24 () () : string = │
00:08:05 verbose #33855 > │ let v0 : (unit -> string) = closure3() │
00:08:05 verbose #33856 > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:08:05 verbose #33857 > │ v1 │
00:08:05 verbose #33858 > │ and closure25 (v0 : string) () : string = │
00:08:05 verbose #33859 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:08:05 verbose #33860 > │ v1 │
00:08:05 verbose #33861 > │ and method15 (v0 : bool) : bool = │
00:08:05 verbose #33862 > │ v0 │
00:08:05 verbose #33863 > │ and method0 () : unit = │
00:08:05 verbose #33864 > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:05 verbose #33865 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:05 verbose #33866 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33867 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:08:05 verbose #33868 > │ (string * System.IDisposable)> │
00:08:05 verbose #33869 > │ struct (v2, v3) │
00:08:05 verbose #33870 > │ #endif │
00:08:05 verbose #33871 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33872 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:08:05 verbose #33873 > │ (string * System.IDisposable)> │
00:08:05 verbose #33874 > │ struct (v4, v5) │
00:08:05 verbose #33875 > │ #endif │
00:08:05 verbose #33876 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33877 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:08:05 verbose #33878 > │ (string * System.IDisposable)> │
00:08:05 verbose #33879 > │ struct (v6, v7) │
00:08:05 verbose #33880 > │ #endif │
00:08:05 verbose #33881 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33882 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33883 > │ let v8 : string option = None │
00:08:05 verbose #33884 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:05 verbose #33885 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33886 > │ let v10 : string = null |> unbox<string> │
00:08:05 verbose #33887 > │ v10 │
00:08:05 verbose #33888 > │ #endif │
00:08:05 verbose #33889 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33890 > │ let v11 : string = null |> unbox<string> │
00:08:05 verbose #33891 > │ v11 │
00:08:05 verbose #33892 > │ #endif │
00:08:05 verbose #33893 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33894 > │ let v12 : string = null |> unbox<string> │
00:08:05 verbose #33895 > │ v12 │
00:08:05 verbose #33896 > │ #endif │
00:08:05 verbose #33897 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33898 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33899 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:05 verbose #33900 > │ let v14 : string = v13 () │
00:08:05 verbose #33901 > │ let v15 : (unit -> string) = closure0() │
00:08:05 verbose #33902 > │ let v16 : string = $"!{v15 ()}" │
00:08:05 verbose #33903 > │ let v17 : string option = None │
00:08:05 verbose #33904 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:05 verbose #33905 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:05 verbose #33906 > │ let v19 : string = method1(v14) │
00:08:05 verbose #33907 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:05 verbose #33908 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:05 verbose #33909 > │ let v22 : string = "String::from($0)" │
00:08:05 verbose #33910 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:08:05 verbose #33911 > │ v22 │
00:08:05 verbose #33912 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:08:05 verbose #33913 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:05 verbose #33914 > │ let v26 : string = method1(v16) │
00:08:05 verbose #33915 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:05 verbose #33916 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:05 verbose #33917 > │ let v29 : string = "String::from($0)" │
00:08:05 verbose #33918 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:08:05 verbose #33919 > │ v29 │
00:08:05 verbose #33920 > │ let v31 : string = "$0.join($1)" │
00:08:05 verbose #33921 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:05 verbose #33922 > │ (v25, v30) v31 │
00:08:05 verbose #33923 > │ let v33 : string = "$0.display().to_string()" │
00:08:05 verbose #33924 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:08:05 verbose #33925 > │ v33 │
00:08:05 verbose #33926 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:08:05 verbose #33927 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:08:05 verbose #33928 > │ v36 │
00:08:05 verbose #33929 > │ #endif │
00:08:05 verbose #33930 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:05 verbose #33931 > │ let v37 : string = null |> unbox<string> │
00:08:05 verbose #33932 > │ v37 │
00:08:05 verbose #33933 > │ #endif │
00:08:05 verbose #33934 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:05 verbose #33935 > │ let v38 : string = null |> unbox<string> │
00:08:05 verbose #33936 > │ v38 │
00:08:05 verbose #33937 > │ #endif │
00:08:05 verbose #33938 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:05 verbose #33939 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:05 verbose #33940 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:08:05 verbose #33941 > │ v39 │
00:08:05 verbose #33942 > │ #endif │
00:08:05 verbose #33943 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:05 verbose #33944 > │ let v40 : string = "path" │
00:08:05 verbose #33945 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:05 verbose #33946 > │ let v42 : string = method2(v14) │
00:08:05 verbose #33947 > │ let v43 : string = method3(v16) │
00:08:05 verbose #33948 > │ let v44 : string = "v41.join(v42, v43)" │
00:08:05 verbose #33949 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:08:05 verbose #33950 > │ v45 │
00:08:05 verbose #33951 > │ #endif │
00:08:05 verbose #33952 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:05 verbose #33953 > │ let v46 : string = Unchecked.defaultof<string> │
00:08:05 verbose #33954 > │ v46 │
00:08:05 verbose #33955 > │ #endif │
00:08:05 verbose #33956 > │ |> fun x -> _v17 <- Some x │
00:08:05 verbose #33957 > │ let v47 : string = _v17.Value │
00:08:05 verbose #33958 > │ let v48 : System.DateTime = System.DateTime.Now │
00:08:06 verbose #33959 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:08:06 verbose #33960 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:08:06 verbose #33961 > │ let v51 : string = v50 v49 │
00:08:06 verbose #33962 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:06 verbose #33963 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:08:06 verbose #33964 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:08:06 verbose #33965 > │ let v55 : string = v54 v53 │
00:08:06 verbose #33966 > │ let v56 : string option = None │
00:08:06 verbose #33967 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:08:06 verbose #33968 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #33969 > │ let v58 : string = method1(v47) │
00:08:06 verbose #33970 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #33971 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:08:06 verbose #33972 > │ let v61 : string = "String::from($0)" │
00:08:06 verbose #33973 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:08:06 verbose #33974 > │ v61 │
00:08:06 verbose #33975 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:08:06 verbose #33976 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:08:06 verbose #33977 > │ let v65 : string = method1(v55) │
00:08:06 verbose #33978 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #33979 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:06 verbose #33980 > │ let v68 : string = "String::from($0)" │
00:08:06 verbose #33981 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:08:06 verbose #33982 > │ v68 │
00:08:06 verbose #33983 > │ let v70 : string = "$0.join($1)" │
00:08:06 verbose #33984 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:06 verbose #33985 > │ (v64, v69) v70 │
00:08:06 verbose #33986 > │ let v72 : string = "$0.display().to_string()" │
00:08:06 verbose #33987 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:08:06 verbose #33988 > │ v72 │
00:08:06 verbose #33989 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:08:06 verbose #33990 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:08:06 verbose #33991 > │ v75 │
00:08:06 verbose #33992 > │ #endif │
00:08:06 verbose #33993 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #33994 > │ let v76 : string = null |> unbox<string> │
00:08:06 verbose #33995 > │ v76 │
00:08:06 verbose #33996 > │ #endif │
00:08:06 verbose #33997 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #33998 > │ let v77 : string = null |> unbox<string> │
00:08:06 verbose #33999 > │ v77 │
00:08:06 verbose #34000 > │ #endif │
00:08:06 verbose #34001 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34002 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34003 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:08:06 verbose #34004 > │ v78 │
00:08:06 verbose #34005 > │ #endif │
00:08:06 verbose #34006 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34007 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:06 verbose #34008 > │ let v80 : string = method2(v47) │
00:08:06 verbose #34009 > │ let v81 : string = method3(v55) │
00:08:06 verbose #34010 > │ let v82 : string = "v79.join(v80, v81)" │
00:08:06 verbose #34011 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:08:06 verbose #34012 > │ v83 │
00:08:06 verbose #34013 > │ #endif │
00:08:06 verbose #34014 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34015 > │ let v84 : string = Unchecked.defaultof<string> │
00:08:06 verbose #34016 > │ v84 │
00:08:06 verbose #34017 > │ #endif │
00:08:06 verbose #34018 > │ |> fun x -> _v56 <- Some x │
00:08:06 verbose #34019 > │ let v85 : string = _v56.Value │
00:08:06 verbose #34020 > │ v85 │
00:08:06 verbose #34021 > │ #endif │
00:08:06 verbose #34022 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34023 > │ let v86 : string = null |> unbox<string> │
00:08:06 verbose #34024 > │ v86 │
00:08:06 verbose #34025 > │ #endif │
00:08:06 verbose #34026 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34027 > │ let v87 : string = Unchecked.defaultof<string> │
00:08:06 verbose #34028 > │ v87 │
00:08:06 verbose #34029 > │ #endif │
00:08:06 verbose #34030 > │ |> fun x -> _v8 <- Some x │
00:08:06 verbose #34031 > │ let v88 : string = _v8.Value │
00:08:06 verbose #34032 > │ let v89 : System.IO.DirectoryInfo option = None │
00:08:06 verbose #34033 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:06 verbose #34034 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34035 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34036 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34037 > │ v91 │
00:08:06 verbose #34038 > │ #endif │
00:08:06 verbose #34039 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34040 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34041 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34042 > │ v92 │
00:08:06 verbose #34043 > │ #endif │
00:08:06 verbose #34044 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34045 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34046 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34047 > │ v93 │
00:08:06 verbose #34048 > │ #endif │
00:08:06 verbose #34049 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34050 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34051 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:08:06 verbose #34052 > │ System.IO.Directory.CreateDirectory │
00:08:06 verbose #34053 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:08:06 verbose #34054 > │ v95 │
00:08:06 verbose #34055 > │ #endif │
00:08:06 verbose #34056 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34057 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34058 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34059 > │ v96 │
00:08:06 verbose #34060 > │ #endif │
00:08:06 verbose #34061 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34062 > │ let v97 : System.IO.DirectoryInfo = │
00:08:06 verbose #34063 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:06 verbose #34064 > │ v97 │
00:08:06 verbose #34065 > │ #endif │
00:08:06 verbose #34066 > │ |> fun x -> _v89 <- Some x │
00:08:06 verbose #34067 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:08:06 verbose #34068 > │ let v99 : bool option = None │
00:08:06 verbose #34069 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:08:06 verbose #34070 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34071 > │ let v101 : bool = null |> unbox<bool> │
00:08:06 verbose #34072 > │ v101 │
00:08:06 verbose #34073 > │ #endif │
00:08:06 verbose #34074 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34075 > │ let v102 : bool = null |> unbox<bool> │
00:08:06 verbose #34076 > │ v102 │
00:08:06 verbose #34077 > │ #endif │
00:08:06 verbose #34078 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34079 > │ let v103 : bool = null |> unbox<bool> │
00:08:06 verbose #34080 > │ v103 │
00:08:06 verbose #34081 > │ #endif │
00:08:06 verbose #34082 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34083 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34084 > │ let v104 : bool = v98.Exists │
00:08:06 verbose #34085 > │ v104 │
00:08:06 verbose #34086 > │ #endif │
00:08:06 verbose #34087 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34088 > │ let v105 : bool = null |> unbox<bool> │
00:08:06 verbose #34089 > │ v105 │
00:08:06 verbose #34090 > │ #endif │
00:08:06 verbose #34091 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34092 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:08:06 verbose #34093 > │ v106 │
00:08:06 verbose #34094 > │ #endif │
00:08:06 verbose #34095 > │ |> fun x -> _v99 <- Some x │
00:08:06 verbose #34096 > │ let v107 : bool = _v99.Value │
00:08:06 verbose #34097 > │ let v108 : bool = v107 = false │
00:08:06 verbose #34098 > │ if v108 then │
00:08:06 verbose #34099 > │ let v109 : System.DateTime option = None │
00:08:06 verbose #34100 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:08:06 verbose #34101 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34102 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:08:06 verbose #34103 > │ v111 │
00:08:06 verbose #34104 > │ #endif │
00:08:06 verbose #34105 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34106 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:08:06 verbose #34107 > │ v112 │
00:08:06 verbose #34108 > │ #endif │
00:08:06 verbose #34109 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34110 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:08:06 verbose #34111 > │ v113 │
00:08:06 verbose #34112 > │ #endif │
00:08:06 verbose #34113 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34114 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34115 > │ let v114 : System.DateTime = v98.CreationTime │
00:08:06 verbose #34116 > │ v114 │
00:08:06 verbose #34117 > │ #endif │
00:08:06 verbose #34118 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34119 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:08:06 verbose #34120 > │ v115 │
00:08:06 verbose #34121 > │ #endif │
00:08:06 verbose #34122 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:06 verbose #34123 > │ FABLE_COMPILER_DART │
00:08:06 verbose #34124 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:06 verbose #34125 > │ v116 │
00:08:06 verbose #34126 > │ #endif │
00:08:06 verbose #34127 > │ |> fun x -> _v109 <- Some x │
00:08:06 verbose #34128 > │ let v117 : System.DateTime = _v109.Value │
00:08:06 verbose #34129 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:08:06 verbose #34130 > │ let v119 : string = $"%A{v118}" │
00:08:06 verbose #34131 > │ let v120 : US0 = US0_1 │
00:08:06 verbose #34132 > │ let v121 : (unit -> string) = closure1() │
00:08:06 verbose #34133 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:08:06 verbose #34134 > │ method4(v120, v121, v122) │
00:08:06 verbose #34135 > │ let v123 : System.IDisposable option = None │
00:08:06 verbose #34136 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:08:06 verbose #34137 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34138 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:06 verbose #34139 > │ v125 │
00:08:06 verbose #34140 > │ #endif │
00:08:06 verbose #34141 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34142 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:06 verbose #34143 > │ v126 │
00:08:06 verbose #34144 > │ #endif │
00:08:06 verbose #34145 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34146 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:06 verbose #34147 > │ v127 │
00:08:06 verbose #34148 > │ #endif │
00:08:06 verbose #34149 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34150 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34151 > │ let v128 : (unit -> unit) = closure8(v88) │
00:08:06 verbose #34152 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:08:06 verbose #34153 > │ _.Dispose () = v128 () } │
00:08:06 verbose #34154 > │ v129 │
00:08:06 verbose #34155 > │ #endif │
00:08:06 verbose #34156 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34157 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:06 verbose #34158 > │ v130 │
00:08:06 verbose #34159 > │ #endif │
00:08:06 verbose #34160 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34161 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:06 verbose #34162 > │ v131 │
00:08:06 verbose #34163 > │ #endif │
00:08:06 verbose #34164 > │ |> fun x -> _v123 <- Some x │
00:08:06 verbose #34165 > │ let v132 : System.IDisposable = _v123.Value │
00:08:06 verbose #34166 > │ struct (v88, v132) │
00:08:06 verbose #34167 > │ #endif │
00:08:06 verbose #34168 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34169 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:08:06 verbose #34170 > │ unbox<struct (string * System.IDisposable)> │
00:08:06 verbose #34171 > │ struct (v133, v134) │
00:08:06 verbose #34172 > │ #endif │
00:08:06 verbose #34173 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34174 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:08:06 verbose #34175 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:06 verbose #34176 > │ struct (v135, v136) │
00:08:06 verbose #34177 > │ #endif │
00:08:06 verbose #34178 > │ |> fun x -> _v0 <- Some x │
00:08:06 verbose #34179 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:08:06 verbose #34180 > │ use v138 = v138 │
00:08:06 verbose #34181 > │ let v139 : System.IDisposable = v138 │
00:08:06 verbose #34182 > │ let v140 : string option = None │
00:08:06 verbose #34183 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:08:06 verbose #34184 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34185 > │ let v142 : string = method1(v137) │
00:08:06 verbose #34186 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #34187 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:08:06 verbose #34188 > │ let v145 : string = "String::from($0)" │
00:08:06 verbose #34189 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:08:06 verbose #34190 > │ v145 │
00:08:06 verbose #34191 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:08:06 verbose #34192 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:08:06 verbose #34193 > │ v147 │
00:08:06 verbose #34194 > │ let v149 : string = method11() │
00:08:06 verbose #34195 > │ let v150 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #34196 > │ let v151 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v149 v150 │
00:08:06 verbose #34197 > │ let v152 : string = "String::from($0)" │
00:08:06 verbose #34198 > │ let v153 : std_string_String = Fable.Core.RustInterop.emitRustExpr v151 │
00:08:06 verbose #34199 > │ v152 │
00:08:06 verbose #34200 > │ let v154 : string = "$0.join($1)" │
00:08:06 verbose #34201 > │ let v155 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:06 verbose #34202 > │ (v148, v153) v154 │
00:08:06 verbose #34203 > │ let v156 : string = "$0.display().to_string()" │
00:08:06 verbose #34204 > │ let v157 : std_string_String = Fable.Core.RustInterop.emitRustExpr v155 │
00:08:06 verbose #34205 > │ v156 │
00:08:06 verbose #34206 > │ let v158 : string = "fable_library_rust::String_::fromString($0)" │
00:08:06 verbose #34207 > │ let v159 : string = Fable.Core.RustInterop.emitRustExpr v157 v158 │
00:08:06 verbose #34208 > │ v159 │
00:08:06 verbose #34209 > │ #endif │
00:08:06 verbose #34210 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34211 > │ let v160 : string = null |> unbox<string> │
00:08:06 verbose #34212 > │ v160 │
00:08:06 verbose #34213 > │ #endif │
00:08:06 verbose #34214 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34215 > │ let v161 : string = null |> unbox<string> │
00:08:06 verbose #34216 > │ v161 │
00:08:06 verbose #34217 > │ #endif │
00:08:06 verbose #34218 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34219 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34220 > │ let v162 : string = "test" │
00:08:06 verbose #34221 > │ let v163 : string = System.IO.Path.Combine (v137, v162) │
00:08:06 verbose #34222 > │ v163 │
00:08:06 verbose #34223 > │ #endif │
00:08:06 verbose #34224 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34225 > │ let v164 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:06 verbose #34226 > │ let v165 : string = method2(v137) │
00:08:06 verbose #34227 > │ let v166 : string = method12() │
00:08:06 verbose #34228 > │ let v167 : string = "v164.join(v165, v166)" │
00:08:06 verbose #34229 > │ let v168 : string = Fable.Core.JsInterop.emitJsExpr () v167 │
00:08:06 verbose #34230 > │ v168 │
00:08:06 verbose #34231 > │ #endif │
00:08:06 verbose #34232 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34233 > │ let v169 : string = Unchecked.defaultof<string> │
00:08:06 verbose #34234 > │ v169 │
00:08:06 verbose #34235 > │ #endif │
00:08:06 verbose #34236 > │ |> fun x -> _v140 <- Some x │
00:08:06 verbose #34237 > │ let v170 : string = _v140.Value │
00:08:06 verbose #34238 > │ let v171 : Async<int64> option = None │
00:08:06 verbose #34239 > │ let v172 : bool = true in let mutable _v171 = v171 │
00:08:06 verbose #34240 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34241 > │ let v173 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34242 > │ v173 │
00:08:06 verbose #34243 > │ #endif │
00:08:06 verbose #34244 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34245 > │ let v174 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34246 > │ v174 │
00:08:06 verbose #34247 > │ #endif │
00:08:06 verbose #34248 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34249 > │ let v175 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34250 > │ v175 │
00:08:06 verbose #34251 > │ #endif │
00:08:06 verbose #34252 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34253 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34254 > │ let v176 : Async<int64> option = None │
00:08:06 verbose #34255 > │ let mutable _v176 = v176 │
00:08:06 verbose #34256 > │ async { │
00:08:06 verbose #34257 > │ let v177 : US0 = US0_1 │
00:08:06 verbose #34258 > │ let v178 : (unit -> string) = closure12() │
00:08:06 verbose #34259 > │ let v179 : (unit -> string) = closure3() │
00:08:06 verbose #34260 > │ method4(v177, v178, v179) │
00:08:06 verbose #34261 > │ let v180 : System.IO.DirectoryInfo option = None │
00:08:06 verbose #34262 > │ let v181 : bool = true in let mutable _v180 = v180 │
00:08:06 verbose #34263 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34264 > │ let v182 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34265 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34266 > │ v182 │
00:08:06 verbose #34267 > │ #endif │
00:08:06 verbose #34268 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34269 > │ let v183 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34270 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34271 > │ v183 │
00:08:06 verbose #34272 > │ #endif │
00:08:06 verbose #34273 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34274 > │ let v184 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34275 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34276 > │ v184 │
00:08:06 verbose #34277 > │ #endif │
00:08:06 verbose #34278 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34279 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34280 > │ let v185 : (string -> System.IO.DirectoryInfo) = │
00:08:06 verbose #34281 > │ System.IO.Directory.CreateDirectory │
00:08:06 verbose #34282 > │ let v186 : System.IO.DirectoryInfo = v185 v170 │
00:08:06 verbose #34283 > │ v186 │
00:08:06 verbose #34284 > │ #endif │
00:08:06 verbose #34285 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34286 > │ let v187 : System.IO.DirectoryInfo = null |> │
00:08:06 verbose #34287 > │ unbox<System.IO.DirectoryInfo> │
00:08:06 verbose #34288 > │ v187 │
00:08:06 verbose #34289 > │ #endif │
00:08:06 verbose #34290 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34291 > │ let v188 : System.IO.DirectoryInfo = │
00:08:06 verbose #34292 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:06 verbose #34293 > │ v188 │
00:08:06 verbose #34294 > │ #endif │
00:08:06 verbose #34295 > │ |> fun x -> _v180 <- Some x │
00:08:06 verbose #34296 > │ let v189 : System.IO.DirectoryInfo = _v180.Value │
00:08:06 verbose #34297 > │ let v190 : US0 = US0_1 │
00:08:06 verbose #34298 > │ let v191 : (unit -> string) = closure13() │
00:08:06 verbose #34299 > │ method4(v190, v191, v179) │
00:08:06 verbose #34300 > │ let v192 : Async<unit> option = None │
00:08:06 verbose #34301 > │ let v193 : bool = true in let mutable _v192 = v192 │
00:08:06 verbose #34302 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34303 > │ let v194 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34304 > │ v194 │
00:08:06 verbose #34305 > │ #endif │
00:08:06 verbose #34306 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34307 > │ let v195 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34308 > │ v195 │
00:08:06 verbose #34309 > │ #endif │
00:08:06 verbose #34310 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34311 > │ let v196 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34312 > │ v196 │
00:08:06 verbose #34313 > │ #endif │
00:08:06 verbose #34314 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34315 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34316 > │ let v197 : Async<unit> option = None │
00:08:06 verbose #34317 > │ let mutable _v197 = v197 │
00:08:06 verbose #34318 > │ async { │
00:08:06 verbose #34319 > │ let v198 : US0 = US0_1 │
00:08:06 verbose #34320 > │ let v199 : (unit -> string) = closure14() │
00:08:06 verbose #34321 > │ method4(v198, v199, v179) │
00:08:06 verbose #34322 > │ let v200 : string option = None │
00:08:06 verbose #34323 > │ let v201 : bool = true in let mutable _v200 = v200 │
00:08:06 verbose #34324 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34325 > │ let v202 : string = method1(v170) │
00:08:06 verbose #34326 > │ let v203 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #34327 > │ let v204 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v202 v203 │
00:08:06 verbose #34328 > │ let v205 : string = "String::from($0)" │
00:08:06 verbose #34329 > │ let v206 : std_string_String = Fable.Core.RustInterop.emitRustExpr v204 │
00:08:06 verbose #34330 > │ v205 │
00:08:06 verbose #34331 > │ let v207 : string = "std::path::PathBuf::from($0)" │
00:08:06 verbose #34332 > │ let v208 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v206 │
00:08:06 verbose #34333 > │ v207 │
00:08:06 verbose #34334 > │ let v209 : string = method13() │
00:08:06 verbose #34335 > │ let v210 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #34336 > │ let v211 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v209 v210 │
00:08:06 verbose #34337 > │ let v212 : string = "String::from($0)" │
00:08:06 verbose #34338 > │ let v213 : std_string_String = Fable.Core.RustInterop.emitRustExpr v211 │
00:08:06 verbose #34339 > │ v212 │
00:08:06 verbose #34340 > │ let v214 : string = "$0.join($1)" │
00:08:06 verbose #34341 > │ let v215 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:06 verbose #34342 > │ (v208, v213) v214 │
00:08:06 verbose #34343 > │ let v216 : string = "$0.display().to_string()" │
00:08:06 verbose #34344 > │ let v217 : std_string_String = Fable.Core.RustInterop.emitRustExpr v215 │
00:08:06 verbose #34345 > │ v216 │
00:08:06 verbose #34346 > │ let v218 : string = "fable_library_rust::String_::fromString($0)" │
00:08:06 verbose #34347 > │ let v219 : string = Fable.Core.RustInterop.emitRustExpr v217 v218 │
00:08:06 verbose #34348 > │ v219 │
00:08:06 verbose #34349 > │ #endif │
00:08:06 verbose #34350 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34351 > │ let v220 : string = null |> unbox<string> │
00:08:06 verbose #34352 > │ v220 │
00:08:06 verbose #34353 > │ #endif │
00:08:06 verbose #34354 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34355 > │ let v221 : string = null |> unbox<string> │
00:08:06 verbose #34356 > │ v221 │
00:08:06 verbose #34357 > │ #endif │
00:08:06 verbose #34358 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34359 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34360 > │ let v222 : string = "test.txt" │
00:08:06 verbose #34361 > │ let v223 : string = System.IO.Path.Combine (v170, v222) │
00:08:06 verbose #34362 > │ v223 │
00:08:06 verbose #34363 > │ #endif │
00:08:06 verbose #34364 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34365 > │ let v224 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:06 verbose #34366 > │ let v225 : string = method2(v170) │
00:08:06 verbose #34367 > │ let v226 : string = method14() │
00:08:06 verbose #34368 > │ let v227 : string = "v224.join(v225, v226)" │
00:08:06 verbose #34369 > │ let v228 : string = Fable.Core.JsInterop.emitJsExpr () v227 │
00:08:06 verbose #34370 > │ v228 │
00:08:06 verbose #34371 > │ #endif │
00:08:06 verbose #34372 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34373 > │ let v229 : string = Unchecked.defaultof<string> │
00:08:06 verbose #34374 > │ v229 │
00:08:06 verbose #34375 > │ #endif │
00:08:06 verbose #34376 > │ |> fun x -> _v200 <- Some x │
00:08:06 verbose #34377 > │ let v230 : string = _v200.Value │
00:08:06 verbose #34378 > │ let v231 : Async<unit> option = None │
00:08:06 verbose #34379 > │ let v232 : bool = true in let mutable _v231 = v231 │
00:08:06 verbose #34380 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34381 > │ let v233 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34382 > │ v233 │
00:08:06 verbose #34383 > │ #endif │
00:08:06 verbose #34384 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34385 > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34386 > │ v234 │
00:08:06 verbose #34387 > │ #endif │
00:08:06 verbose #34388 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34389 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34390 > │ v235 │
00:08:06 verbose #34391 > │ #endif │
00:08:06 verbose #34392 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34393 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34394 > │ let v236 : string = "0" │
00:08:06 verbose #34395 > │ let v237 : System.Threading.Tasks.Task = │
00:08:06 verbose #34396 > │ System.IO.File.WriteAllTextAsync (v230, v236) │
00:08:06 verbose #34397 > │ let v238 : Async<unit> option = None │
00:08:06 verbose #34398 > │ let v239 : bool = true in let mutable _v238 = v238 │
00:08:06 verbose #34399 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34400 > │ let v240 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34401 > │ v240 │
00:08:06 verbose #34402 > │ #endif │
00:08:06 verbose #34403 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34404 > │ let v241 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34405 > │ v241 │
00:08:06 verbose #34406 > │ #endif │
00:08:06 verbose #34407 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34408 > │ let v242 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34409 > │ v242 │
00:08:06 verbose #34410 > │ #endif │
00:08:06 verbose #34411 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34412 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34413 > │ let v243 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:06 verbose #34414 > │ Async.AwaitTask │
00:08:06 verbose #34415 > │ let v244 : Async<unit> = v243 v237 │
00:08:06 verbose #34416 > │ v244 │
00:08:06 verbose #34417 > │ #endif │
00:08:06 verbose #34418 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34419 > │ let v245 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34420 > │ v245 │
00:08:06 verbose #34421 > │ #endif │
00:08:06 verbose #34422 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34423 > │ let v246 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:06 verbose #34424 > │ v246 │
00:08:06 verbose #34425 > │ #endif │
00:08:06 verbose #34426 > │ |> fun x -> _v238 <- Some x │
00:08:06 verbose #34427 > │ let v247 : Async<unit> = _v238.Value │
00:08:06 verbose #34428 > │ v247 │
00:08:06 verbose #34429 > │ #endif │
00:08:06 verbose #34430 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34431 > │ let v248 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34432 > │ v248 │
00:08:06 verbose #34433 > │ #endif │
00:08:06 verbose #34434 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34435 > │ let v249 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:06 verbose #34436 > │ v249 │
00:08:06 verbose #34437 > │ #endif │
00:08:06 verbose #34438 > │ |> fun x -> _v231 <- Some x │
00:08:06 verbose #34439 > │ let v250 : Async<unit> = _v231.Value │
00:08:06 verbose #34440 > │ do! v250 │
00:08:06 verbose #34441 > │ let v251 : string option = None │
00:08:06 verbose #34442 > │ let v252 : bool = true in let mutable _v251 = v251 │
00:08:06 verbose #34443 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34444 > │ let v253 : string = method1(v170) │
00:08:06 verbose #34445 > │ let v254 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #34446 > │ let v255 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v253 v254 │
00:08:06 verbose #34447 > │ let v256 : string = "String::from($0)" │
00:08:06 verbose #34448 > │ let v257 : std_string_String = Fable.Core.RustInterop.emitRustExpr v255 │
00:08:06 verbose #34449 > │ v256 │
00:08:06 verbose #34450 > │ let v258 : string = "std::path::PathBuf::from($0)" │
00:08:06 verbose #34451 > │ let v259 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v257 │
00:08:06 verbose #34452 > │ v258 │
00:08:06 verbose #34453 > │ let v260 : string = method13() │
00:08:06 verbose #34454 > │ let v261 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:06 verbose #34455 > │ let v262 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v260 v261 │
00:08:06 verbose #34456 > │ let v263 : string = "String::from($0)" │
00:08:06 verbose #34457 > │ let v264 : std_string_String = Fable.Core.RustInterop.emitRustExpr v262 │
00:08:06 verbose #34458 > │ v263 │
00:08:06 verbose #34459 > │ let v265 : string = "$0.join($1)" │
00:08:06 verbose #34460 > │ let v266 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:06 verbose #34461 > │ (v259, v264) v265 │
00:08:06 verbose #34462 > │ let v267 : string = "$0.display().to_string()" │
00:08:06 verbose #34463 > │ let v268 : std_string_String = Fable.Core.RustInterop.emitRustExpr v266 │
00:08:06 verbose #34464 > │ v267 │
00:08:06 verbose #34465 > │ let v269 : string = "fable_library_rust::String_::fromString($0)" │
00:08:06 verbose #34466 > │ let v270 : string = Fable.Core.RustInterop.emitRustExpr v268 v269 │
00:08:06 verbose #34467 > │ v270 │
00:08:06 verbose #34468 > │ #endif │
00:08:06 verbose #34469 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34470 > │ let v271 : string = null |> unbox<string> │
00:08:06 verbose #34471 > │ v271 │
00:08:06 verbose #34472 > │ #endif │
00:08:06 verbose #34473 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34474 > │ let v272 : string = null |> unbox<string> │
00:08:06 verbose #34475 > │ v272 │
00:08:06 verbose #34476 > │ #endif │
00:08:06 verbose #34477 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34478 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34479 > │ let v273 : string = System.IO.Path.Combine (v170, v222) │
00:08:06 verbose #34480 > │ v273 │
00:08:06 verbose #34481 > │ #endif │
00:08:06 verbose #34482 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34483 > │ let v274 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:06 verbose #34484 > │ let v275 : string = method2(v170) │
00:08:06 verbose #34485 > │ let v276 : string = method14() │
00:08:06 verbose #34486 > │ let v277 : string = "v274.join(v275, v276)" │
00:08:06 verbose #34487 > │ let v278 : string = Fable.Core.JsInterop.emitJsExpr () v277 │
00:08:06 verbose #34488 > │ v278 │
00:08:06 verbose #34489 > │ #endif │
00:08:06 verbose #34490 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34491 > │ let v279 : string = Unchecked.defaultof<string> │
00:08:06 verbose #34492 > │ v279 │
00:08:06 verbose #34493 > │ #endif │
00:08:06 verbose #34494 > │ |> fun x -> _v251 <- Some x │
00:08:06 verbose #34495 > │ let v280 : string = _v251.Value │
00:08:06 verbose #34496 > │ let v281 : System.IO.FileStream option = None │
00:08:06 verbose #34497 > │ let v282 : bool = true in let mutable _v281 = v281 │
00:08:06 verbose #34498 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34499 > │ let v283 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:06 verbose #34500 > │ v283 │
00:08:06 verbose #34501 > │ #endif │
00:08:06 verbose #34502 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34503 > │ let v284 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:06 verbose #34504 > │ v284 │
00:08:06 verbose #34505 > │ #endif │
00:08:06 verbose #34506 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34507 > │ let v285 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:06 verbose #34508 > │ v285 │
00:08:06 verbose #34509 > │ #endif │
00:08:06 verbose #34510 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34511 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34512 > │ let v286 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:06 verbose #34513 > │ let v287 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:06 verbose #34514 > │ let v288 : System.IO.FileShare = System.IO.FileShare.None │
00:08:06 verbose #34515 > │ let v289 : System.IO.FileStream = new System.IO.FileStream (v280, v286, │
00:08:06 verbose #34516 > │ v287, v288) │
00:08:06 verbose #34517 > │ v289 │
00:08:06 verbose #34518 > │ #endif │
00:08:06 verbose #34519 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34520 > │ let v290 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:06 verbose #34521 > │ v290 │
00:08:06 verbose #34522 > │ #endif │
00:08:06 verbose #34523 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34524 > │ let v291 : System.IO.FileStream = │
00:08:06 verbose #34525 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:06 verbose #34526 > │ v291 │
00:08:06 verbose #34527 > │ #endif │
00:08:06 verbose #34528 > │ |> fun x -> _v281 <- Some x │
00:08:06 verbose #34529 > │ let v292 : System.IO.FileStream = _v281.Value │
00:08:06 verbose #34530 > │ use v292 = v292 │
00:08:06 verbose #34531 > │ let v293 : System.IO.FileStream = v292 │
00:08:06 verbose #34532 > │ let v294 : US0 = US0_1 │
00:08:06 verbose #34533 > │ let v295 : (unit -> string) = closure15() │
00:08:06 verbose #34534 > │ method4(v294, v295, v179) │
00:08:06 verbose #34535 > │ let v296 : Async<unit> option = None │
00:08:06 verbose #34536 > │ let v297 : bool = true in let mutable _v296 = v296 │
00:08:06 verbose #34537 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34538 > │ let v298 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34539 > │ v298 │
00:08:06 verbose #34540 > │ #endif │
00:08:06 verbose #34541 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34542 > │ let v299 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34543 > │ v299 │
00:08:06 verbose #34544 > │ #endif │
00:08:06 verbose #34545 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34546 > │ let v300 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34547 > │ v300 │
00:08:06 verbose #34548 > │ #endif │
00:08:06 verbose #34549 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34550 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34551 > │ let v301 : (int32 -> Async<unit>) = Async.Sleep │
00:08:06 verbose #34552 > │ let v302 : Async<unit> = v301 2000 │
00:08:06 verbose #34553 > │ v302 │
00:08:06 verbose #34554 > │ #endif │
00:08:06 verbose #34555 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34556 > │ let v303 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34557 > │ v303 │
00:08:06 verbose #34558 > │ #endif │
00:08:06 verbose #34559 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34560 > │ let v304 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:06 verbose #34561 > │ v304 │
00:08:06 verbose #34562 > │ #endif │
00:08:06 verbose #34563 > │ |> fun x -> _v296 <- Some x │
00:08:06 verbose #34564 > │ let v305 : Async<unit> = _v296.Value │
00:08:06 verbose #34565 > │ do! v305 │
00:08:06 verbose #34566 > │ let v306 : US0 = US0_1 │
00:08:06 verbose #34567 > │ let v307 : (unit -> string) = closure16() │
00:08:06 verbose #34568 > │ method4(v306, v307, v179) │
00:08:06 verbose #34569 > │ return () │
00:08:06 verbose #34570 > │ } │
00:08:06 verbose #34571 > │ |> fun x -> _v197 <- Some x │
00:08:06 verbose #34572 > │ let v308 : Async<unit> = _v197 |> Option.get │
00:08:06 verbose #34573 > │ v308 │
00:08:06 verbose #34574 > │ #endif │
00:08:06 verbose #34575 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34576 > │ let v309 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34577 > │ v309 │
00:08:06 verbose #34578 > │ #endif │
00:08:06 verbose #34579 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34580 > │ let v310 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:06 verbose #34581 > │ v310 │
00:08:06 verbose #34582 > │ #endif │
00:08:06 verbose #34583 > │ |> fun x -> _v192 <- Some x │
00:08:06 verbose #34584 > │ let v311 : Async<unit> = _v192.Value │
00:08:06 verbose #34585 > │ let v312 : Async<Async<unit>> option = None │
00:08:06 verbose #34586 > │ let v313 : bool = true in let mutable _v312 = v312 │
00:08:06 verbose #34587 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34588 > │ let v314 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:06 verbose #34589 > │ v314 │
00:08:06 verbose #34590 > │ #endif │
00:08:06 verbose #34591 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34592 > │ let v315 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:06 verbose #34593 > │ v315 │
00:08:06 verbose #34594 > │ #endif │
00:08:06 verbose #34595 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34596 > │ let v316 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:06 verbose #34597 > │ v316 │
00:08:06 verbose #34598 > │ #endif │
00:08:06 verbose #34599 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34600 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34601 > │ let v317 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:08:06 verbose #34602 > │ let v318 : Async<Async<unit>> = v317 v311 │
00:08:06 verbose #34603 > │ v318 │
00:08:06 verbose #34604 > │ #endif │
00:08:06 verbose #34605 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34606 > │ let v319 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:06 verbose #34607 > │ v319 │
00:08:06 verbose #34608 > │ #endif │
00:08:06 verbose #34609 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34610 > │ let v320 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:08:06 verbose #34611 > │ v320 │
00:08:06 verbose #34612 > │ #endif │
00:08:06 verbose #34613 > │ |> fun x -> _v312 <- Some x │
00:08:06 verbose #34614 > │ let v321 : Async<Async<unit>> = _v312.Value │
00:08:06 verbose #34615 > │ let! v321 = v321 │
00:08:06 verbose #34616 > │ let v322 : Async<unit> = v321 │
00:08:06 verbose #34617 > │ let v323 : US0 = US0_1 │
00:08:06 verbose #34618 > │ let v324 : (unit -> string) = closure17() │
00:08:06 verbose #34619 > │ method4(v323, v324, v179) │
00:08:06 verbose #34620 > │ let v325 : Async<unit> option = None │
00:08:06 verbose #34621 > │ let v326 : bool = true in let mutable _v325 = v325 │
00:08:06 verbose #34622 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34623 > │ let v327 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34624 > │ v327 │
00:08:06 verbose #34625 > │ #endif │
00:08:06 verbose #34626 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34627 > │ let v328 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34628 > │ v328 │
00:08:06 verbose #34629 > │ #endif │
00:08:06 verbose #34630 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34631 > │ let v329 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34632 > │ v329 │
00:08:06 verbose #34633 > │ #endif │
00:08:06 verbose #34634 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34635 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34636 > │ let v330 : (int32 -> Async<unit>) = Async.Sleep │
00:08:06 verbose #34637 > │ let v331 : Async<unit> = v330 60 │
00:08:06 verbose #34638 > │ v331 │
00:08:06 verbose #34639 > │ #endif │
00:08:06 verbose #34640 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34641 > │ let v332 : Async<unit> = null |> unbox<Async<unit>> │
00:08:06 verbose #34642 > │ v332 │
00:08:06 verbose #34643 > │ #endif │
00:08:06 verbose #34644 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34645 > │ let v333 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:06 verbose #34646 > │ v333 │
00:08:06 verbose #34647 > │ #endif │
00:08:06 verbose #34648 > │ |> fun x -> _v325 <- Some x │
00:08:06 verbose #34649 > │ let v334 : Async<unit> = _v325.Value │
00:08:06 verbose #34650 > │ do! v334 │
00:08:06 verbose #34651 > │ let v335 : US0 = US0_1 │
00:08:06 verbose #34652 > │ let v336 : (unit -> string) = closure18() │
00:08:06 verbose #34653 > │ method4(v335, v336, v179) │
00:08:06 verbose #34654 > │ let v337 : Async<int64> option = None │
00:08:06 verbose #34655 > │ let v338 : bool = true in let mutable _v337 = v337 │
00:08:06 verbose #34656 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34657 > │ let v339 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34658 > │ v339 │
00:08:06 verbose #34659 > │ #endif │
00:08:06 verbose #34660 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34661 > │ let v340 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34662 > │ v340 │
00:08:06 verbose #34663 > │ #endif │
00:08:06 verbose #34664 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34665 > │ let v341 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34666 > │ v341 │
00:08:06 verbose #34667 > │ #endif │
00:08:06 verbose #34668 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34669 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34670 > │ let v342 : int64 = 0L │
00:08:06 verbose #34671 > │ let v343 : Async<int64> = method10(v170, v342) │
00:08:06 verbose #34672 > │ v343 │
00:08:06 verbose #34673 > │ #endif │
00:08:06 verbose #34674 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34675 > │ let v344 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34676 > │ v344 │
00:08:06 verbose #34677 > │ #endif │
00:08:06 verbose #34678 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34679 > │ let v345 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:06 verbose #34680 > │ v345 │
00:08:06 verbose #34681 > │ #endif │
00:08:06 verbose #34682 > │ |> fun x -> _v337 <- Some x │
00:08:06 verbose #34683 > │ let v346 : Async<int64> = _v337.Value │
00:08:06 verbose #34684 > │ let! v346 = v346 │
00:08:06 verbose #34685 > │ let v347 : int64 = v346 │
00:08:06 verbose #34686 > │ let v348 : US0 = US0_1 │
00:08:06 verbose #34687 > │ let v349 : (unit -> string) = closure19() │
00:08:06 verbose #34688 > │ method4(v348, v349, v179) │
00:08:06 verbose #34689 > │ do! v322 │
00:08:06 verbose #34690 > │ let v350 : US0 = US0_1 │
00:08:06 verbose #34691 > │ let v351 : (unit -> string) = closure20() │
00:08:06 verbose #34692 > │ method4(v350, v351, v179) │
00:08:06 verbose #34693 > │ return v347 │
00:08:06 verbose #34694 > │ } │
00:08:06 verbose #34695 > │ |> fun x -> _v176 <- Some x │
00:08:06 verbose #34696 > │ let v352 : Async<int64> = _v176 |> Option.get │
00:08:06 verbose #34697 > │ v352 │
00:08:06 verbose #34698 > │ #endif │
00:08:06 verbose #34699 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34700 > │ let v353 : Async<int64> = null |> unbox<Async<int64>> │
00:08:06 verbose #34701 > │ v353 │
00:08:06 verbose #34702 > │ #endif │
00:08:06 verbose #34703 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34704 > │ let v354 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:06 verbose #34705 > │ v354 │
00:08:06 verbose #34706 > │ #endif │
00:08:06 verbose #34707 > │ |> fun x -> _v171 <- Some x │
00:08:06 verbose #34708 > │ let v355 : Async<int64> = _v171.Value │
00:08:06 verbose #34709 > │ let v356 : Async<US2> option = None │
00:08:06 verbose #34710 > │ let v357 : bool = true in let mutable _v356 = v356 │
00:08:06 verbose #34711 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34712 > │ let v358 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34713 > │ v358 │
00:08:06 verbose #34714 > │ #endif │
00:08:06 verbose #34715 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34716 > │ let v359 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34717 > │ v359 │
00:08:06 verbose #34718 > │ #endif │
00:08:06 verbose #34719 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34720 > │ let v360 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34721 > │ v360 │
00:08:06 verbose #34722 > │ #endif │
00:08:06 verbose #34723 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34724 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34725 > │ let v361 : Async<US2> option = None │
00:08:06 verbose #34726 > │ let v362 : bool = true in let mutable _v361 = v361 │
00:08:06 verbose #34727 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34728 > │ let v363 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34729 > │ v363 │
00:08:06 verbose #34730 > │ #endif │
00:08:06 verbose #34731 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34732 > │ let v364 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34733 > │ v364 │
00:08:06 verbose #34734 > │ #endif │
00:08:06 verbose #34735 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34736 > │ let v365 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34737 > │ v365 │
00:08:06 verbose #34738 > │ #endif │
00:08:06 verbose #34739 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34740 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34741 > │ let v366 : Async<US2> option = None │
00:08:06 verbose #34742 > │ let mutable _v366 = v366 │
00:08:06 verbose #34743 > │ async { │
00:08:06 verbose #34744 > │ let v367 : Async<Async<int64>> option = None │
00:08:06 verbose #34745 > │ let v368 : bool = true in let mutable _v367 = v367 │
00:08:06 verbose #34746 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34747 > │ let v369 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:06 verbose #34748 > │ v369 │
00:08:06 verbose #34749 > │ #endif │
00:08:06 verbose #34750 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34751 > │ let v370 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:06 verbose #34752 > │ v370 │
00:08:06 verbose #34753 > │ #endif │
00:08:06 verbose #34754 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34755 > │ let v371 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:06 verbose #34756 > │ v371 │
00:08:06 verbose #34757 > │ #endif │
00:08:06 verbose #34758 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34759 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34760 > │ let v372 : Async<Async<int64>> = Async.StartChild (v355, 3000) │
00:08:06 verbose #34761 > │ v372 │
00:08:06 verbose #34762 > │ #endif │
00:08:06 verbose #34763 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34764 > │ let v373 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:06 verbose #34765 > │ v373 │
00:08:06 verbose #34766 > │ #endif │
00:08:06 verbose #34767 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34768 > │ let v374 : Async<Async<int64>> = │
00:08:06 verbose #34769 > │ Unchecked.defaultof<Async<Async<int64>>> │
00:08:06 verbose #34770 > │ v374 │
00:08:06 verbose #34771 > │ #endif │
00:08:06 verbose #34772 > │ |> fun x -> _v367 <- Some x │
00:08:06 verbose #34773 > │ let v375 : Async<Async<int64>> = _v367.Value │
00:08:06 verbose #34774 > │ let! v375 = v375 │
00:08:06 verbose #34775 > │ let v376 : Async<int64> = v375 │
00:08:06 verbose #34776 > │ let v377 : Async<Choice<int64, exn>> option = None │
00:08:06 verbose #34777 > │ let v378 : bool = true in let mutable _v377 = v377 │
00:08:06 verbose #34778 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34779 > │ let v379 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:06 verbose #34780 > │ exn>>> │
00:08:06 verbose #34781 > │ v379 │
00:08:06 verbose #34782 > │ #endif │
00:08:06 verbose #34783 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34784 > │ let v380 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:06 verbose #34785 > │ exn>>> │
00:08:06 verbose #34786 > │ v380 │
00:08:06 verbose #34787 > │ #endif │
00:08:06 verbose #34788 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34789 > │ let v381 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:06 verbose #34790 > │ exn>>> │
00:08:06 verbose #34791 > │ v381 │
00:08:06 verbose #34792 > │ #endif │
00:08:06 verbose #34793 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34794 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34795 > │ let v382 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:08:06 verbose #34796 > │ let v383 : Async<Choice<int64, exn>> = v382 v376 │
00:08:06 verbose #34797 > │ v383 │
00:08:06 verbose #34798 > │ #endif │
00:08:06 verbose #34799 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34800 > │ let v384 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:06 verbose #34801 > │ exn>>> │
00:08:06 verbose #34802 > │ v384 │
00:08:06 verbose #34803 > │ #endif │
00:08:06 verbose #34804 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34805 > │ let v385 : Async<Choice<int64, exn>> = │
00:08:06 verbose #34806 > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:08:06 verbose #34807 > │ v385 │
00:08:06 verbose #34808 > │ #endif │
00:08:06 verbose #34809 > │ |> fun x -> _v377 <- Some x │
00:08:06 verbose #34810 > │ let v386 : Async<Choice<int64, exn>> = _v377.Value │
00:08:06 verbose #34811 > │ let v387 : Async<US3> option = None │
00:08:06 verbose #34812 > │ let v388 : bool = true in let mutable _v387 = v387 │
00:08:06 verbose #34813 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34814 > │ let v389 : Async<US3> = null |> unbox<Async<US3>> │
00:08:06 verbose #34815 > │ v389 │
00:08:06 verbose #34816 > │ #endif │
00:08:06 verbose #34817 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34818 > │ let v390 : Async<US3> = null |> unbox<Async<US3>> │
00:08:06 verbose #34819 > │ v390 │
00:08:06 verbose #34820 > │ #endif │
00:08:06 verbose #34821 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34822 > │ let v391 : Async<US3> = null |> unbox<Async<US3>> │
00:08:06 verbose #34823 > │ v391 │
00:08:06 verbose #34824 > │ #endif │
00:08:06 verbose #34825 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34826 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34827 > │ let v392 : Async<US3> option = None │
00:08:06 verbose #34828 > │ let mutable _v392 = v392 │
00:08:06 verbose #34829 > │ async { │
00:08:06 verbose #34830 > │ let! v386 = v386 │
00:08:06 verbose #34831 > │ let v393 : Choice<int64, exn> = v386 │
00:08:06 verbose #34832 > │ let v394 : US3 option = None │
00:08:06 verbose #34833 > │ let v395 : bool = true in let mutable _v394 = v394 │
00:08:06 verbose #34834 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34835 > │ let v396 : US3 = null |> unbox<US3> │
00:08:06 verbose #34836 > │ v396 │
00:08:06 verbose #34837 > │ #endif │
00:08:06 verbose #34838 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34839 > │ let v397 : US3 = null |> unbox<US3> │
00:08:06 verbose #34840 > │ v397 │
00:08:06 verbose #34841 > │ #endif │
00:08:06 verbose #34842 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34843 > │ let v398 : US3 = null |> unbox<US3> │
00:08:06 verbose #34844 > │ v398 │
00:08:06 verbose #34845 > │ #endif │
00:08:06 verbose #34846 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34847 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34848 > │ let v399 : (int64 -> US3) = closure21() │
00:08:06 verbose #34849 > │ let v400 : (exn -> US3) = closure22() │
00:08:06 verbose #34850 > │ let v401 : US3 = match v393 with Choice1Of2 x -> v399 x | Choice2Of2 x │
00:08:06 verbose #34851 > │ -> v400 x │
00:08:06 verbose #34852 > │ v401 │
00:08:06 verbose #34853 > │ #endif │
00:08:06 verbose #34854 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34855 > │ let v402 : US3 = null |> unbox<US3> │
00:08:06 verbose #34856 > │ v402 │
00:08:06 verbose #34857 > │ #endif │
00:08:06 verbose #34858 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34859 > │ let v403 : US3 = Unchecked.defaultof<US3> │
00:08:06 verbose #34860 > │ v403 │
00:08:06 verbose #34861 > │ #endif │
00:08:06 verbose #34862 > │ |> fun x -> _v394 <- Some x │
00:08:06 verbose #34863 > │ let v404 : US3 = _v394.Value │
00:08:06 verbose #34864 > │ return v404 │
00:08:06 verbose #34865 > │ } │
00:08:06 verbose #34866 > │ |> fun x -> _v392 <- Some x │
00:08:06 verbose #34867 > │ let v405 : Async<US3> = _v392 |> Option.get │
00:08:06 verbose #34868 > │ v405 │
00:08:06 verbose #34869 > │ #endif │
00:08:06 verbose #34870 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34871 > │ let v406 : Async<US3> = null |> unbox<Async<US3>> │
00:08:06 verbose #34872 > │ v406 │
00:08:06 verbose #34873 > │ #endif │
00:08:06 verbose #34874 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34875 > │ let v407 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:06 verbose #34876 > │ v407 │
00:08:06 verbose #34877 > │ #endif │
00:08:06 verbose #34878 > │ |> fun x -> _v387 <- Some x │
00:08:06 verbose #34879 > │ let v408 : Async<US3> = _v387.Value │
00:08:06 verbose #34880 > │ let v409 : Async<US4> option = None │
00:08:06 verbose #34881 > │ let v410 : bool = true in let mutable _v409 = v409 │
00:08:06 verbose #34882 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34883 > │ let v411 : Async<US4> = null |> unbox<Async<US4>> │
00:08:06 verbose #34884 > │ v411 │
00:08:06 verbose #34885 > │ #endif │
00:08:06 verbose #34886 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34887 > │ let v412 : Async<US4> = null |> unbox<Async<US4>> │
00:08:06 verbose #34888 > │ v412 │
00:08:06 verbose #34889 > │ #endif │
00:08:06 verbose #34890 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34891 > │ let v413 : Async<US4> = null |> unbox<Async<US4>> │
00:08:06 verbose #34892 > │ v413 │
00:08:06 verbose #34893 > │ #endif │
00:08:06 verbose #34894 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34895 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34896 > │ let v414 : Async<US4> option = None │
00:08:06 verbose #34897 > │ let mutable _v414 = v414 │
00:08:06 verbose #34898 > │ async { │
00:08:06 verbose #34899 > │ let! v408 = v408 │
00:08:06 verbose #34900 > │ let v415 : US3 = v408 │
00:08:06 verbose #34901 > │ let v421 : US4 = │
00:08:06 verbose #34902 > │ match v415 with │
00:08:06 verbose #34903 > │ | US3_0(v416) -> (* Choice1Of2 *) │
00:08:06 verbose #34904 > │ US4_0(v416) │
00:08:06 verbose #34905 > │ | US3_1(v418) -> (* Choice2Of2 *) │
00:08:06 verbose #34906 > │ US4_1(v418) │
00:08:06 verbose #34907 > │ return v421 │
00:08:06 verbose #34908 > │ } │
00:08:06 verbose #34909 > │ |> fun x -> _v414 <- Some x │
00:08:06 verbose #34910 > │ let v422 : Async<US4> = _v414 |> Option.get │
00:08:06 verbose #34911 > │ v422 │
00:08:06 verbose #34912 > │ #endif │
00:08:06 verbose #34913 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34914 > │ let v423 : Async<US4> = null |> unbox<Async<US4>> │
00:08:06 verbose #34915 > │ v423 │
00:08:06 verbose #34916 > │ #endif │
00:08:06 verbose #34917 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #34918 > │ let v424 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:08:06 verbose #34919 > │ v424 │
00:08:06 verbose #34920 > │ #endif │
00:08:06 verbose #34921 > │ |> fun x -> _v409 <- Some x │
00:08:06 verbose #34922 > │ let v425 : Async<US4> = _v409.Value │
00:08:06 verbose #34923 > │ let v426 : Async<US2> option = None │
00:08:06 verbose #34924 > │ let v427 : bool = true in let mutable _v426 = v426 │
00:08:06 verbose #34925 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34926 > │ let v428 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34927 > │ v428 │
00:08:06 verbose #34928 > │ #endif │
00:08:06 verbose #34929 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34930 > │ let v429 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34931 > │ v429 │
00:08:06 verbose #34932 > │ #endif │
00:08:06 verbose #34933 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34934 > │ let v430 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #34935 > │ v430 │
00:08:06 verbose #34936 > │ #endif │
00:08:06 verbose #34937 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34938 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34939 > │ let v431 : Async<US2> option = None │
00:08:06 verbose #34940 > │ let mutable _v431 = v431 │
00:08:06 verbose #34941 > │ async { │
00:08:06 verbose #34942 > │ let! v425 = v425 │
00:08:06 verbose #34943 > │ let v432 : US4 = v425 │
00:08:06 verbose #34944 > │ let v458 : US2 = │
00:08:06 verbose #34945 > │ match v432 with │
00:08:06 verbose #34946 > │ | US4_1(v435) -> (* Error *) │
00:08:06 verbose #34947 > │ let v436 : string = $"%A{v435}" │
00:08:06 verbose #34948 > │ let v437 : string = "System.TimeoutException" │
00:08:06 verbose #34949 > │ let v438 : bool = v436.Contains v437 │
00:08:06 verbose #34950 > │ if v438 then │
00:08:06 verbose #34951 > │ let v439 : US0 = US0_1 │
00:08:06 verbose #34952 > │ let v440 : (unit -> string) = closure23() │
00:08:06 verbose #34953 > │ let v441 : (unit -> string) = closure24() │
00:08:06 verbose #34954 > │ method4(v439, v440, v441) │
00:08:06 verbose #34955 > │ US2_1 │
00:08:06 verbose #34956 > │ else │
00:08:06 verbose #34957 > │ let v443 : string option = None │
00:08:06 verbose #34958 > │ let v444 : bool = true in let mutable _v443 = v443 │
00:08:06 verbose #34959 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #34960 > │ let v445 : string = $"%A{v435}" │
00:08:06 verbose #34961 > │ v445 │
00:08:06 verbose #34962 > │ #endif │
00:08:06 verbose #34963 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #34964 > │ let v446 : string = $"%A{v435}" │
00:08:06 verbose #34965 > │ v446 │
00:08:06 verbose #34966 > │ #endif │
00:08:06 verbose #34967 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #34968 > │ let v447 : string = $"%A{v435}" │
00:08:06 verbose #34969 > │ v447 │
00:08:06 verbose #34970 > │ #endif │
00:08:06 verbose #34971 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #34972 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #34973 > │ let v448 : string = $"{v435.GetType ()}: {v435.Message}" │
00:08:06 verbose #34974 > │ v448 │
00:08:06 verbose #34975 > │ #endif │
00:08:06 verbose #34976 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #34977 > │ let v449 : string = $"%A{v435}" │
00:08:06 verbose #34978 > │ v449 │
00:08:06 verbose #34979 > │ #endif │
00:08:06 verbose #34980 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:06 verbose #34981 > │ FABLE_COMPILER_DART │
00:08:06 verbose #34982 > │ let v450 : string = Unchecked.defaultof<string> │
00:08:06 verbose #34983 > │ v450 │
00:08:06 verbose #34984 > │ #endif │
00:08:06 verbose #34985 > │ |> fun x -> _v443 <- Some x │
00:08:06 verbose #34986 > │ let v451 : string = _v443.Value │
00:08:06 verbose #34987 > │ let v452 : US0 = US0_4 │
00:08:06 verbose #34988 > │ let v453 : (unit -> string) = closure25(v451) │
00:08:06 verbose #34989 > │ let v454 : (unit -> string) = closure24() │
00:08:06 verbose #34990 > │ method4(v452, v453, v454) │
00:08:06 verbose #34991 > │ US2_1 │
00:08:06 verbose #34992 > │ | US4_0(v433) -> (* Ok *) │
00:08:06 verbose #34993 > │ US2_0(v433) │
00:08:06 verbose #34994 > │ return v458 │
00:08:06 verbose #34995 > │ } │
00:08:06 verbose #34996 > │ |> fun x -> _v431 <- Some x │
00:08:06 verbose #34997 > │ let v459 : Async<US2> = _v431 |> Option.get │
00:08:06 verbose #34998 > │ v459 │
00:08:06 verbose #34999 > │ #endif │
00:08:06 verbose #35000 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #35001 > │ let v460 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #35002 > │ v460 │
00:08:06 verbose #35003 > │ #endif │
00:08:06 verbose #35004 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #35005 > │ let v461 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:06 verbose #35006 > │ v461 │
00:08:06 verbose #35007 > │ #endif │
00:08:06 verbose #35008 > │ |> fun x -> _v426 <- Some x │
00:08:06 verbose #35009 > │ let v462 : Async<US2> = _v426.Value │
00:08:06 verbose #35010 > │ return! v462 │
00:08:06 verbose #35011 > │ } │
00:08:06 verbose #35012 > │ |> fun x -> _v366 <- Some x │
00:08:06 verbose #35013 > │ let v463 : Async<US2> = _v366 |> Option.get │
00:08:06 verbose #35014 > │ v463 │
00:08:06 verbose #35015 > │ #endif │
00:08:06 verbose #35016 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #35017 > │ let v464 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #35018 > │ v464 │
00:08:06 verbose #35019 > │ #endif │
00:08:06 verbose #35020 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #35021 > │ let v465 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:06 verbose #35022 > │ v465 │
00:08:06 verbose #35023 > │ #endif │
00:08:06 verbose #35024 > │ |> fun x -> _v361 <- Some x │
00:08:06 verbose #35025 > │ let v466 : Async<US2> = _v361.Value │
00:08:06 verbose #35026 > │ v466 │
00:08:06 verbose #35027 > │ #endif │
00:08:06 verbose #35028 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #35029 > │ let v467 : Async<US2> = null |> unbox<Async<US2>> │
00:08:06 verbose #35030 > │ v467 │
00:08:06 verbose #35031 > │ #endif │
00:08:06 verbose #35032 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #35033 > │ let v468 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:06 verbose #35034 > │ v468 │
00:08:06 verbose #35035 > │ #endif │
00:08:06 verbose #35036 > │ |> fun x -> _v356 <- Some x │
00:08:06 verbose #35037 > │ let v469 : Async<US2> = _v356.Value │
00:08:06 verbose #35038 > │ let v470 : US2 option = None │
00:08:06 verbose #35039 > │ let v471 : bool = true in let mutable _v470 = v470 │
00:08:06 verbose #35040 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #35041 > │ let v472 : US2 = null |> unbox<US2> │
00:08:06 verbose #35042 > │ v472 │
00:08:06 verbose #35043 > │ #endif │
00:08:06 verbose #35044 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #35045 > │ let v473 : US2 = null |> unbox<US2> │
00:08:06 verbose #35046 > │ v473 │
00:08:06 verbose #35047 > │ #endif │
00:08:06 verbose #35048 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #35049 > │ let v474 : US2 = null |> unbox<US2> │
00:08:06 verbose #35050 > │ v474 │
00:08:06 verbose #35051 > │ #endif │
00:08:06 verbose #35052 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #35053 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #35054 > │ let v475 : (Async<US2> -> US2) = Async.RunSynchronously │
00:08:06 verbose #35055 > │ let v476 : US2 = v475 v469 │
00:08:06 verbose #35056 > │ v476 │
00:08:06 verbose #35057 > │ #endif │
00:08:06 verbose #35058 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #35059 > │ let v477 : US2 = null |> unbox<US2> │
00:08:06 verbose #35060 > │ v477 │
00:08:06 verbose #35061 > │ #endif │
00:08:06 verbose #35062 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:06 verbose #35063 > │ let v478 : US2 = Unchecked.defaultof<US2> │
00:08:06 verbose #35064 > │ v478 │
00:08:06 verbose #35065 > │ #endif │
00:08:06 verbose #35066 > │ |> fun x -> _v470 <- Some x │
00:08:06 verbose #35067 > │ let v479 : US2 = _v470.Value │
00:08:06 verbose #35068 > │ let v519 : bool = │
00:08:06 verbose #35069 > │ match v479 with │
00:08:06 verbose #35070 > │ | US2_0(v480) -> (* Some *) │
00:08:06 verbose #35071 > │ let v481 : bool option = None │
00:08:06 verbose #35072 > │ let v482 : bool = true in let mutable _v481 = v481 │
00:08:06 verbose #35073 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #35074 > │ let v483 : bool = null |> unbox<bool> │
00:08:06 verbose #35075 > │ v483 │
00:08:06 verbose #35076 > │ #endif │
00:08:06 verbose #35077 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #35078 > │ let v484 : bool = null |> unbox<bool> │
00:08:06 verbose #35079 > │ v484 │
00:08:06 verbose #35080 > │ #endif │
00:08:06 verbose #35081 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #35082 > │ let v485 : bool = null |> unbox<bool> │
00:08:06 verbose #35083 > │ v485 │
00:08:06 verbose #35084 > │ #endif │
00:08:06 verbose #35085 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #35086 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #35087 > │ let v486 : System.Runtime.InteropServices.OSPlatform = │
00:08:06 verbose #35088 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:06 verbose #35089 > │ let v487 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:06 verbose #35090 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:06 verbose #35091 > │ let v488 : bool = v487 v486 │
00:08:06 verbose #35092 > │ v488 │
00:08:06 verbose #35093 > │ #endif │
00:08:06 verbose #35094 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #35095 > │ let v489 : bool = null |> unbox<bool> │
00:08:06 verbose #35096 > │ v489 │
00:08:06 verbose #35097 > │ #endif │
00:08:06 verbose #35098 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:06 verbose #35099 > │ FABLE_COMPILER_DART │
00:08:06 verbose #35100 > │ let v490 : bool = Unchecked.defaultof<bool> │
00:08:06 verbose #35101 > │ v490 │
00:08:06 verbose #35102 > │ #endif │
00:08:06 verbose #35103 > │ |> fun x -> _v481 <- Some x │
00:08:06 verbose #35104 > │ let v491 : bool = _v481.Value │
00:08:06 verbose #35105 > │ let v492 : int64 = │
00:08:06 verbose #35106 > │ if v491 then │
00:08:06 verbose #35107 > │ 50L │
00:08:06 verbose #35108 > │ else │
00:08:06 verbose #35109 > │ 0L │
00:08:06 verbose #35110 > │ let v493 : bool option = None │
00:08:06 verbose #35111 > │ let v494 : bool = true in let mutable _v493 = v493 │
00:08:06 verbose #35112 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:06 verbose #35113 > │ let v495 : bool = null |> unbox<bool> │
00:08:06 verbose #35114 > │ v495 │
00:08:06 verbose #35115 > │ #endif │
00:08:06 verbose #35116 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:06 verbose #35117 > │ let v496 : bool = null |> unbox<bool> │
00:08:06 verbose #35118 > │ v496 │
00:08:06 verbose #35119 > │ #endif │
00:08:06 verbose #35120 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:06 verbose #35121 > │ let v497 : bool = null |> unbox<bool> │
00:08:06 verbose #35122 > │ v497 │
00:08:06 verbose #35123 > │ #endif │
00:08:06 verbose #35124 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:06 verbose #35125 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:06 verbose #35126 > │ let v498 : System.Runtime.InteropServices.OSPlatform = │
00:08:06 verbose #35127 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:06 verbose #35128 > │ let v499 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:06 verbose #35129 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:06 verbose #35130 > │ let v500 : bool = v499 v498 │
00:08:06 verbose #35131 > │ v500 │
00:08:06 verbose #35132 > │ #endif │
00:08:06 verbose #35133 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:06 verbose #35134 > │ let v501 : bool = null |> unbox<bool> │
00:08:06 verbose #35135 > │ v501 │
00:08:06 verbose #35136 > │ #endif │
00:08:06 verbose #35137 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:06 verbose #35138 > │ FABLE_COMPILER_DART │
00:08:06 verbose #35139 > │ let v502 : bool = Unchecked.defaultof<bool> │
00:08:06 verbose #35140 > │ v502 │
00:08:06 verbose #35141 > │ #endif │
00:08:06 verbose #35142 > │ |> fun x -> _v493 <- Some x │
00:08:06 verbose #35143 > │ let v503 : bool = _v493.Value │
00:08:06 verbose #35144 > │ let v504 : int64 = │
00:08:06 verbose #35145 > │ if v503 then │
00:08:06 verbose #35146 > │ 150L │
00:08:06 verbose #35147 > │ else │
00:08:06 verbose #35148 > │ 0L │
00:08:06 verbose #35149 > │ let v505 : string = $"%A{v480}" │
00:08:06 verbose #35150 > │ System.Console.WriteLine v505 │
00:08:06 verbose #35151 > │ let v506 : string = $"%A{v480}" │
00:08:06 verbose #35152 > │ System.Console.WriteLine v506 │
00:08:06 verbose #35153 > │ let v507 : bool = v480 >= v492 │
00:08:06 verbose #35154 > │ let v509 : bool = │
00:08:06 verbose #35155 > │ if v507 then │
00:08:06 verbose #35156 > │ true │
00:08:06 verbose #35157 > │ else │
00:08:06 verbose #35158 > │ method15(v507) │
00:08:06 verbose #35159 > │ let v510 : string = $"__expect / actual: %A{v480} / expected: │
00:08:06 verbose #35160 > │ %A{v492}" │
00:08:06 verbose #35161 > │ let v511 : bool = v509 = false │
00:08:06 verbose #35162 > │ if v511 then │
00:08:06 verbose #35163 > │ failwith<unit> v510 │
00:08:06 verbose #35164 > │ let v512 : string = $"%A{v480}" │
00:08:06 verbose #35165 > │ System.Console.WriteLine v512 │
00:08:06 verbose #35166 > │ let v513 : bool = v480 <= v504 │
00:08:06 verbose #35167 > │ let v515 : bool = │
00:08:06 verbose #35168 > │ if v513 then │
00:08:06 verbose #35169 > │ true │
00:08:06 verbose #35170 > │ else │
00:08:06 verbose #35171 > │ method15(v513) │
00:08:06 verbose #35172 > │ let v516 : string = $"__expect / actual: %A{v480} / expected: │
00:08:06 verbose #35173 > │ %A{v504}" │
00:08:06 verbose #35174 > │ let v517 : bool = v515 = false │
00:08:06 verbose #35175 > │ if v517 then │
00:08:06 verbose #35176 > │ failwith<unit> v516 │
00:08:06 verbose #35177 > │ let v518 : string = $"__expect / actual: %A{v480} / expected: │
00:08:06 verbose #35178 > │ %A{struct (v492, v504)}" │
00:08:06 verbose #35179 > │ true │
00:08:06 verbose #35180 > │ | _ -> │
00:08:06 verbose #35181 > │ false │
00:08:06 verbose #35182 > │ let v520 : string = $"%A{v519}" │
00:08:06 verbose #35183 > │ System.Console.WriteLine v520 │
00:08:06 verbose #35184 > │ let v522 : bool = │
00:08:06 verbose #35185 > │ if v519 then │
00:08:06 verbose #35186 > │ true │
00:08:06 verbose #35187 > │ else │
00:08:06 verbose #35188 > │ method15(v519) │
00:08:06 verbose #35189 > │ let v523 : string = $"__expect / actual: %A{v519} / expected: %A{true}" │
00:08:06 verbose #35190 > │ let v524 : bool = v522 = false │
00:08:06 verbose #35191 > │ if v524 then │
00:08:06 verbose #35192 > │ failwith<unit> v523 │
00:08:06 verbose #35193 > │ method0() │
00:08:06 verbose #35194 > │ │
00:08:06 verbose #35195 > │ 00:00:00 debug #1 1 │
00:08:06 verbose #35196 > │ 00:00:00 debug #2 2 │
00:08:06 verbose #35197 > │ 00:00:00 debug #3 3 │
00:08:06 verbose #35198 > │ 00:00:00 debug #4 _1 │
00:08:06 verbose #35199 > │ 00:00:00 debug #5 _2 │
00:08:06 verbose #35200 > │ 00:00:00 debug #6 4 │
00:08:06 verbose #35201 > │ 00:00:00 debug #7 file_system.delete_directory_async / path: test / ex: │
00:08:06 verbose #35202 > │ System.IO.IOException: The process cannot access the file 'test.txt' because │
00:08:06 verbose #35203 > │ it is being used by another process. │
00:08:06 verbose #35204 > │ 00:00:01 debug #8 file_system.delete_directory_async / path: test / ex: │
00:08:06 verbose #35205 > │ System.IO.IOException: The process cannot access the file 'test.txt' because │
00:08:06 verbose #35206 > │ it is being used by another process. │
00:08:06 verbose #35207 > │ 00:00:02 debug #9 _3 │
00:08:06 verbose #35208 > │ 00:00:02 debug #10 5 │
00:08:06 verbose #35209 > │ 00:00:02 debug #11 6 │
00:08:06 verbose #35210 > │ 125L │
00:08:06 verbose #35211 > │ 125L │
00:08:06 verbose #35212 > │ 125L │
00:08:06 verbose #35213 > │ true │
00:08:06 verbose #35214 > │ │
00:08:06 verbose #35215 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:06 verbose #35216 >
00:08:06 verbose #35217 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:06 verbose #35218 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:06 verbose #35219 > │ ## wait_for_file_access │
00:08:06 verbose #35220 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:06 verbose #35221 >
00:08:06 verbose #35222 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:06 verbose #35223 > inl wait_for_file_access access path =
00:08:06 verbose #35224 > run_target function
00:08:06 verbose #35225 > | Fsharp (Native) => fun () =>
00:08:06 verbose #35226 > inl file_access, file_share =
00:08:06 verbose #35227 > access
00:08:06 verbose #35228 > |> optionm'.default_value (AccessReadWrite, ShareRead)
00:08:06 verbose #35229 > let rec loop (retry : i64) : _ i64 =
00:08:06 verbose #35230 > fun () =>
00:08:06 verbose #35231 > try_unit
00:08:06 verbose #35232 > fun () =>
00:08:06 verbose #35233 > file_stream
00:08:06 verbose #35234 > path
00:08:06 verbose #35235 > ModeOpen
00:08:06 verbose #35236 > file_access
00:08:06 verbose #35237 > file_share
00:08:06 verbose #35238 > |> use
00:08:06 verbose #35239 > |> ignore
00:08:06 verbose #35240 > retry |> return
00:08:06 verbose #35241 > fun ex =>
00:08:06 verbose #35242 > if retry > 0 && retry % 100i64 = 0 then
00:08:06 verbose #35243 > inl ex = ex |> sm'.format_exception
00:08:06 verbose #35244 > trace Debug
00:08:06 verbose #35245 > fun () => "file_system.wait_for_file_access"
00:08:06 verbose #35246 > fun () => $'$"path: {!path |>
00:08:06 verbose #35247 > !get_file_name} / retry: {!retry} / ex: {!ex} / {!_locals ()}"'
00:08:06 verbose #35248 > async.sleep 10i32 |> async.do
00:08:06 verbose #35249 > loop (retry + 1) |> async.return_await
00:08:06 verbose #35250 > |> async.new_async
00:08:06 verbose #35251 > loop 0
00:08:06 verbose #35252 > | _ => fun () => null ()
00:08:06 verbose #35253 >
00:08:06 verbose #35254 > inl wait_for_file_access_read path =
00:08:06 verbose #35255 > path
00:08:06 verbose #35256 > |> wait_for_file_access (Some (
00:08:06 verbose #35257 > AccessRead,
00:08:06 verbose #35258 > ShareRead
00:08:06 verbose #35259 > ))
00:08:06 verbose #35260 > 00:08:06 debug #639 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/91ebe1e48b53e925fce76be209067829216bbbb78c722cacd741405c695e4c9a/main.spi
00:08:06 verbose #35261 >
00:08:06 verbose #35262 > ╭─[ 239.33ms - stdout ]────────────────────────────────────────────────────────╮
00:08:06 verbose #35263 > │ () │
00:08:06 verbose #35264 > │ │
00:08:06 verbose #35265 > │ │
00:08:06 verbose #35266 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:06 verbose #35267 >
00:08:06 verbose #35268 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:06 verbose #35269 > // // test
00:08:06 verbose #35270 >
00:08:06 verbose #35271 > inl lock_file path =
00:08:06 verbose #35272 > fun () =>
00:08:06 verbose #35273 > trace Debug (fun () => "_1") _locals
00:08:06 verbose #35274 > inl stream : file_stream' =
00:08:06 verbose #35275 > file_stream
00:08:06 verbose #35276 > path
00:08:06 verbose #35277 > ModeOpen
00:08:06 verbose #35278 > AccessReadWrite
00:08:06 verbose #35279 > ShareNone
00:08:06 verbose #35280 > |> use
00:08:06 verbose #35281 > trace Debug (fun () => "_2") _locals
00:08:06 verbose #35282 > async.sleep 2000 |> async.do
00:08:06 verbose #35283 > trace Debug (fun () => "_3") _locals
00:08:06 verbose #35284 > ($'!stream.Seek (0L, System.IO.SeekOrigin.Begin)' : i64) |> ignore
00:08:06 verbose #35285 > trace Debug (fun () => "_4") _locals
00:08:06 verbose #35286 > $'!stream.WriteByte' 49u8
00:08:06 verbose #35287 > trace Debug (fun () => "_5") _locals
00:08:06 verbose #35288 > stream |> $'_.Flush()'
00:08:06 verbose #35289 > trace Debug (fun () => "_6") _locals
00:08:06 verbose #35290 > |> async.new_async
00:08:06 verbose #35291 >
00:08:06 verbose #35292 > inl temp_dir, disposable = create_temp_directory ()
00:08:06 verbose #35293 > disposable |> use |> ignore
00:08:06 verbose #35294 > inl path = temp_dir </> "test.txt"
00:08:06 verbose #35295 >
00:08:06 verbose #35296 > fun () =>
00:08:06 verbose #35297 > trace Debug (fun () => "1") _locals
00:08:06 verbose #35298 > "0" |> write_all_text_async path |> async.do
00:08:06 verbose #35299 > trace Debug (fun () => "2") _locals
00:08:06 verbose #35300 > inl child = path |> lock_file |> async.start_child |> async.let'
00:08:06 verbose #35301 > trace Debug (fun () => "3") _locals
00:08:06 verbose #35302 > async.sleep 1 |> async.do
00:08:06 verbose #35303 > trace Debug (fun () => "4") _locals
00:08:06 verbose #35304 > inl retries = path |> wait_for_file_access None |> async.let'
00:08:06 verbose #35305 > trace Debug (fun () => "5") _locals
00:08:06 verbose #35306 > inl text = path |> read_all_text_async |> async.let'
00:08:06 verbose #35307 > trace Debug (fun () => "6") _locals
00:08:06 verbose #35308 > child |> async.do
00:08:06 verbose #35309 > trace Debug (fun () => "7") _locals
00:08:06 verbose #35310 > (retries, text) |> return
00:08:06 verbose #35311 > |> async.new_async_unit
00:08:06 verbose #35312 > |> async.run_with_timeout 3000
00:08:06 verbose #35313 > |> function
00:08:06 verbose #35314 > | Some ((retries : i64), text) =>
00:08:06 verbose #35315 > retries
00:08:06 verbose #35316 > |> _assert_between
00:08:06 verbose #35317 > (if runtime.is_windows () then 50 else 100)
00:08:06 verbose #35318 > (if runtime.is_windows () then 150 else 200)
00:08:06 verbose #35319 >
00:08:06 verbose #35320 > text |> _assert_eq (join "1")
00:08:06 verbose #35321 >
00:08:06 verbose #35322 > true
00:08:06 verbose #35323 > | _ => false
00:08:06 verbose #35324 > |> _assert_eq true
00:08:06 verbose #35325 > 00:08:06 debug #640 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/11dbdbe3584676d646d478a14cdcc0150fc01875814dd118944e1ac1d85d60b3/main.spi
00:08:09 verbose #35326 >
00:08:09 verbose #35327 > ╭─[ 2.95s - stdout ]───────────────────────────────────────────────────────────╮
00:08:09 verbose #35328 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:09 verbose #35329 > │ string │
00:08:09 verbose #35330 > │ module State = let mutable trace_state = None │
00:08:09 verbose #35331 > │ type [<Struct>] US0 = │
00:08:09 verbose #35332 > │ | US0_0 │
00:08:09 verbose #35333 > │ | US0_1 │
00:08:09 verbose #35334 > │ | US0_2 │
00:08:09 verbose #35335 > │ | US0_3 │
00:08:09 verbose #35336 > │ | US0_4 │
00:08:09 verbose #35337 > │ and Mut0 = {mutable l0 : int64} │
00:08:09 verbose #35338 > │ and Mut1 = {mutable l0 : bool} │
00:08:09 verbose #35339 > │ and Mut2 = {mutable l0 : US0} │
00:08:09 verbose #35340 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:08:09 verbose #35341 > │ and [<Struct>] US1 = │
00:08:09 verbose #35342 > │ | US1_0 of f0_0 : int64 │
00:08:09 verbose #35343 > │ | US1_1 │
00:08:09 verbose #35344 > │ and [<Struct>] US2 = │
00:08:09 verbose #35345 > │ | US2_0 of f0_0 : int64 │
00:08:09 verbose #35346 > │ | US2_1 │
00:08:09 verbose #35347 > │ and [<Struct>] US3 = │
00:08:09 verbose #35348 > │ | US3_0 of f0_0 : int64 * f0_1 : string │
00:08:09 verbose #35349 > │ | US3_1 │
00:08:09 verbose #35350 > │ and [<Struct>] US4 = │
00:08:09 verbose #35351 > │ | US4_0 of f0_0 : int64 * f0_1 : string │
00:08:09 verbose #35352 > │ | US4_1 of f1_0 : exn │
00:08:09 verbose #35353 > │ and [<Struct>] US5 = │
00:08:09 verbose #35354 > │ | US5_0 of f0_0 : int64 * f0_1 : string │
00:08:09 verbose #35355 > │ | US5_1 of f1_0 : exn │
00:08:09 verbose #35356 > │ let rec closure0 () () : string = │
00:08:09 verbose #35357 > │ let v0 : string option = None │
00:08:09 verbose #35358 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:09 verbose #35359 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35360 > │ let v2 : string = null |> unbox<string> │
00:08:09 verbose #35361 > │ v2 │
00:08:09 verbose #35362 > │ #endif │
00:08:09 verbose #35363 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35364 > │ let v3 : string = null |> unbox<string> │
00:08:09 verbose #35365 > │ v3 │
00:08:09 verbose #35366 > │ #endif │
00:08:09 verbose #35367 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35368 > │ let v4 : string = null |> unbox<string> │
00:08:09 verbose #35369 > │ v4 │
00:08:09 verbose #35370 > │ #endif │
00:08:09 verbose #35371 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35372 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35373 > │ let v5 : string = │
00:08:09 verbose #35374 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:09 verbose #35375 > │ v5 │
00:08:09 verbose #35376 > │ #endif │
00:08:09 verbose #35377 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35378 > │ let v6 : string = null |> unbox<string> │
00:08:09 verbose #35379 > │ v6 │
00:08:09 verbose #35380 > │ #endif │
00:08:09 verbose #35381 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35382 > │ let v7 : string = Unchecked.defaultof<string> │
00:08:09 verbose #35383 > │ v7 │
00:08:09 verbose #35384 > │ #endif │
00:08:09 verbose #35385 > │ |> fun x -> _v0 <- Some x │
00:08:09 verbose #35386 > │ let v8 : string = _v0.Value │
00:08:09 verbose #35387 > │ v8 │
00:08:09 verbose #35388 > │ and method1 (v0 : string) : string = │
00:08:09 verbose #35389 > │ v0 │
00:08:09 verbose #35390 > │ and method2 (v0 : string) : string = │
00:08:09 verbose #35391 > │ v0 │
00:08:09 verbose #35392 > │ and method3 (v0 : string) : string = │
00:08:09 verbose #35393 > │ v0 │
00:08:09 verbose #35394 > │ and closure1 () () : string = │
00:08:09 verbose #35395 > │ let v0 : string = "file_system.create_temp_directory" │
00:08:09 verbose #35396 > │ v0 │
00:08:09 verbose #35397 > │ and closure3 () () : string = │
00:08:09 verbose #35398 > │ let v0 : string = "" │
00:08:09 verbose #35399 > │ v0 │
00:08:09 verbose #35400 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:08:09 verbose #35401 > │ let v2 : (unit -> string) = closure3() │
00:08:09 verbose #35402 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:09 verbose #35403 > │ v3 │
00:08:09 verbose #35404 > │ and closure6 () (v0 : string) : unit = │
00:08:09 verbose #35405 > │ () │
00:08:09 verbose #35406 > │ and method5 (v0 : int64 option) : int64 option = │
00:08:09 verbose #35407 > │ v0 │
00:08:09 verbose #35408 > │ and method6 (v0 : int64 option) : int64 option = │
00:08:09 verbose #35409 > │ v0 │
00:08:09 verbose #35410 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:08:09 verbose #35411 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:09 verbose #35412 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:09 verbose #35413 > │ let v2 : US0 = US0_0 │
00:08:09 verbose #35414 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:09 verbose #35415 > │ let v4 : (string -> unit) = closure6() │
00:08:09 verbose #35416 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:08:09 verbose #35417 > │ let v6 : int64 option option = None │
00:08:09 verbose #35418 > │ let mutable _v6 = v6 │
00:08:09 verbose #35419 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:09 verbose #35420 > │ let v7 : string option = None │
00:08:09 verbose #35421 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:09 verbose #35422 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35423 > │ let v9 : string = null |> unbox<string> │
00:08:09 verbose #35424 > │ v9 │
00:08:09 verbose #35425 > │ #endif │
00:08:09 verbose #35426 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35427 > │ let v10 : string = null |> unbox<string> │
00:08:09 verbose #35428 > │ v10 │
00:08:09 verbose #35429 > │ #endif │
00:08:09 verbose #35430 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35431 > │ let v11 : string = null |> unbox<string> │
00:08:09 verbose #35432 > │ v11 │
00:08:09 verbose #35433 > │ #endif │
00:08:09 verbose #35434 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35435 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35436 > │ let v12 : string = │
00:08:09 verbose #35437 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:09 verbose #35438 > │ v12 │
00:08:09 verbose #35439 > │ #endif │
00:08:09 verbose #35440 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35441 > │ let v13 : string = null |> unbox<string> │
00:08:09 verbose #35442 > │ v13 │
00:08:09 verbose #35443 > │ #endif │
00:08:09 verbose #35444 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35445 > │ let v14 : string = Unchecked.defaultof<string> │
00:08:09 verbose #35446 > │ v14 │
00:08:09 verbose #35447 > │ #endif │
00:08:09 verbose #35448 > │ |> fun x -> _v7 <- Some x │
00:08:09 verbose #35449 > │ let v15 : string = _v7.Value │
00:08:09 verbose #35450 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:08:09 verbose #35451 > │ let v18 : bool = v17 <> true │
00:08:09 verbose #35452 > │ let v24 : US1 = │
00:08:09 verbose #35453 > │ if v18 then │
00:08:09 verbose #35454 > │ let v19 : System.DateTime = System.DateTime.Now │
00:08:09 verbose #35455 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:08:09 verbose #35456 > │ let v21 : int64 = v20 v19 │
00:08:09 verbose #35457 > │ US1_0(v21) │
00:08:09 verbose #35458 > │ else │
00:08:09 verbose #35459 > │ US1_1 │
00:08:09 verbose #35460 > │ let v29 : int64 option = │
00:08:09 verbose #35461 > │ match v24 with │
00:08:09 verbose #35462 > │ | US1_1 -> (* None *) │
00:08:09 verbose #35463 > │ let v27 : int64 option = None │
00:08:09 verbose #35464 > │ v27 │
00:08:09 verbose #35465 > │ | US1_0(v25) -> (* Some *) │
00:08:09 verbose #35466 > │ let v26 : int64 option = Some v25 │
00:08:09 verbose #35467 > │ v26 │
00:08:09 verbose #35468 > │ let v30 : int64 option = method5(v29) │
00:08:09 verbose #35469 > │ v30 │
00:08:09 verbose #35470 > │ #else │
00:08:09 verbose #35471 > │ let v31 : int64 option = None │
00:08:09 verbose #35472 > │ let v32 : int64 option = method6(v31) │
00:08:09 verbose #35473 > │ v32 │
00:08:09 verbose #35474 > │ #endif │
00:08:09 verbose #35475 > │ |> fun x -> _v6 <- Some x │
00:08:09 verbose #35476 > │ let v33 : int64 option = _v6.Value │
00:08:09 verbose #35477 > │ struct (v1, v0, v3, v33, v5) │
00:08:09 verbose #35478 > │ and closure7 () (v0 : int64) : US2 = │
00:08:09 verbose #35479 > │ US2_0(v0) │
00:08:09 verbose #35480 > │ and method7 () : (int64 -> US2) = │
00:08:09 verbose #35481 > │ closure7() │
00:08:09 verbose #35482 > │ and method8 () : string = │
00:08:09 verbose #35483 > │ let v0 : string = "" │
00:08:09 verbose #35484 > │ v0 │
00:08:09 verbose #35485 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:09 verbose #35486 > │ string = │
00:08:09 verbose #35487 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:09 verbose #35488 > │ closure5() │
00:08:09 verbose #35489 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:08:09 verbose #35490 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:08:09 verbose #35491 > │ Mut3) = State.trace_state.Value │
00:08:09 verbose #35492 > │ let v9 : string option = None │
00:08:09 verbose #35493 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:09 verbose #35494 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35495 > │ let v11 : (int64 -> US2) = method7() │
00:08:09 verbose #35496 > │ let v12 : US2 = US2_1 │
00:08:09 verbose #35497 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:08:09 verbose #35498 > │ let v31 : System.DateTime = │
00:08:09 verbose #35499 > │ match v13 with │
00:08:09 verbose #35500 > │ | US2_1 -> (* None *) │
00:08:09 verbose #35501 > │ let v29 : System.DateTime = System.DateTime.Now │
00:08:09 verbose #35502 > │ v29 │
00:08:09 verbose #35503 > │ | US2_0(v14) -> (* Some *) │
00:08:09 verbose #35504 > │ let v15 : System.DateTime = System.DateTime.Now │
00:08:09 verbose #35505 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:08:09 verbose #35506 > │ let v17 : int64 = v16 v15 │
00:08:09 verbose #35507 > │ let v18 : int64 = v17 - v14 │
00:08:09 verbose #35508 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:08:09 verbose #35509 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:08:09 verbose #35510 > │ let v21 : int32 = v20 v19 │
00:08:09 verbose #35511 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:08:09 verbose #35512 > │ let v23 : int32 = v22 v19 │
00:08:09 verbose #35513 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:08:09 verbose #35514 > │ let v25 : int32 = v24 v19 │
00:08:09 verbose #35515 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:09 verbose #35516 > │ let v27 : int32 = v26 v19 │
00:08:09 verbose #35517 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:08:09 verbose #35518 > │ v25, v27) │
00:08:09 verbose #35519 > │ v28 │
00:08:09 verbose #35520 > │ let v32 : string = "hh:mm:ss" │
00:08:09 verbose #35521 > │ let v33 : string = v31.ToString v32 │
00:08:09 verbose #35522 > │ v33 │
00:08:09 verbose #35523 > │ #endif │
00:08:09 verbose #35524 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35525 > │ let v34 : string = method8() │
00:08:09 verbose #35526 > │ v34 │
00:08:09 verbose #35527 > │ #endif │
00:08:09 verbose #35528 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35529 > │ let v35 : string = method8() │
00:08:09 verbose #35530 > │ v35 │
00:08:09 verbose #35531 > │ #endif │
00:08:09 verbose #35532 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35533 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35534 > │ let v36 : (int64 -> US2) = method7() │
00:08:09 verbose #35535 > │ let v37 : US2 = US2_1 │
00:08:09 verbose #35536 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:08:09 verbose #35537 > │ let v56 : System.DateTime = │
00:08:09 verbose #35538 > │ match v38 with │
00:08:09 verbose #35539 > │ | US2_1 -> (* None *) │
00:08:09 verbose #35540 > │ let v54 : System.DateTime = System.DateTime.Now │
00:08:09 verbose #35541 > │ v54 │
00:08:09 verbose #35542 > │ | US2_0(v39) -> (* Some *) │
00:08:09 verbose #35543 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:09 verbose #35544 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:08:09 verbose #35545 > │ let v42 : int64 = v41 v40 │
00:08:09 verbose #35546 > │ let v43 : int64 = v42 - v39 │
00:08:09 verbose #35547 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:08:09 verbose #35548 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:08:09 verbose #35549 > │ let v46 : int32 = v45 v44 │
00:08:09 verbose #35550 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:08:09 verbose #35551 > │ let v48 : int32 = v47 v44 │
00:08:09 verbose #35552 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:08:09 verbose #35553 > │ let v50 : int32 = v49 v44 │
00:08:09 verbose #35554 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:09 verbose #35555 > │ let v52 : int32 = v51 v44 │
00:08:09 verbose #35556 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:08:09 verbose #35557 > │ v50, v52) │
00:08:09 verbose #35558 > │ v53 │
00:08:09 verbose #35559 > │ let v57 : string = "HH:mm:ss" │
00:08:09 verbose #35560 > │ let v58 : string = v56.ToString v57 │
00:08:09 verbose #35561 > │ v58 │
00:08:09 verbose #35562 > │ #endif │
00:08:09 verbose #35563 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35564 > │ let v59 : string = method8() │
00:08:09 verbose #35565 > │ v59 │
00:08:09 verbose #35566 > │ #endif │
00:08:09 verbose #35567 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35568 > │ let v60 : string = Unchecked.defaultof<string> │
00:08:09 verbose #35569 > │ v60 │
00:08:09 verbose #35570 > │ #endif │
00:08:09 verbose #35571 > │ |> fun x -> _v9 <- Some x │
00:08:09 verbose #35572 > │ let v61 : string = _v9.Value │
00:08:09 verbose #35573 > │ let v62 : int64 = v4.l0 │
00:08:09 verbose #35574 > │ let v72 : string = │
00:08:09 verbose #35575 > │ match v0 with │
00:08:09 verbose #35576 > │ | US0_4 -> (* Critical *) │
00:08:09 verbose #35577 > │ let v67 : string = "Critical" │
00:08:09 verbose #35578 > │ v67 │
00:08:09 verbose #35579 > │ | US0_1 -> (* Debug *) │
00:08:09 verbose #35580 > │ let v64 : string = "Debug" │
00:08:09 verbose #35581 > │ v64 │
00:08:09 verbose #35582 > │ | US0_2 -> (* Info *) │
00:08:09 verbose #35583 > │ let v65 : string = "Info" │
00:08:09 verbose #35584 > │ v65 │
00:08:09 verbose #35585 > │ | US0_0 -> (* Verbose *) │
00:08:09 verbose #35586 > │ let v63 : string = "Verbose" │
00:08:09 verbose #35587 > │ v63 │
00:08:09 verbose #35588 > │ | US0_3 -> (* Warning *) │
00:08:09 verbose #35589 > │ let v66 : string = "Warning" │
00:08:09 verbose #35590 > │ v66 │
00:08:09 verbose #35591 > │ let v73 : string = v72.ToLower () │
00:08:09 verbose #35592 > │ let v74 : string option = None │
00:08:09 verbose #35593 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:08:09 verbose #35594 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35595 > │ let v90 : Ref<Str> = │
00:08:09 verbose #35596 > │ match v0 with │
00:08:09 verbose #35597 > │ | US0_4 -> (* Critical *) │
00:08:09 verbose #35598 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:08:09 verbose #35599 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:08:09 verbose #35600 > │ v85 │
00:08:09 verbose #35601 > │ | US0_1 -> (* Debug *) │
00:08:09 verbose #35602 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:08:09 verbose #35603 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:08:09 verbose #35604 > │ v79 │
00:08:09 verbose #35605 > │ | US0_2 -> (* Info *) │
00:08:09 verbose #35606 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:08:09 verbose #35607 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:08:09 verbose #35608 > │ v81 │
00:08:09 verbose #35609 > │ | US0_0 -> (* Verbose *) │
00:08:09 verbose #35610 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:08:09 verbose #35611 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:08:09 verbose #35612 > │ v77 │
00:08:09 verbose #35613 > │ | US0_3 -> (* Warning *) │
00:08:09 verbose #35614 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:08:09 verbose #35615 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:08:09 verbose #35616 > │ v83 │
00:08:09 verbose #35617 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:09 verbose #35618 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:08:09 verbose #35619 > │ let v93 : string = "inline_colorization::color_reset" │
00:08:09 verbose #35620 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:08:09 verbose #35621 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:08:09 verbose #35622 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:08:09 verbose #35623 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:08:09 verbose #35624 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:08:09 verbose #35625 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:08:09 verbose #35626 > │ v99 │
00:08:09 verbose #35627 > │ #endif │
00:08:09 verbose #35628 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35629 > │ let v114 : Ref<Str> = │
00:08:09 verbose #35630 > │ match v0 with │
00:08:09 verbose #35631 > │ | US0_4 -> (* Critical *) │
00:08:09 verbose #35632 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:08:09 verbose #35633 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35634 > │ v108 │
00:08:09 verbose #35635 > │ v109 │
00:08:09 verbose #35636 > │ | US0_1 -> (* Debug *) │
00:08:09 verbose #35637 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:08:09 verbose #35638 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35639 > │ v102 │
00:08:09 verbose #35640 > │ v103 │
00:08:09 verbose #35641 > │ | US0_2 -> (* Info *) │
00:08:09 verbose #35642 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:08:09 verbose #35643 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35644 > │ v104 │
00:08:09 verbose #35645 > │ v105 │
00:08:09 verbose #35646 > │ | US0_0 -> (* Verbose *) │
00:08:09 verbose #35647 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:08:09 verbose #35648 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35649 > │ v100 │
00:08:09 verbose #35650 > │ v101 │
00:08:09 verbose #35651 > │ | US0_3 -> (* Warning *) │
00:08:09 verbose #35652 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:08:09 verbose #35653 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35654 > │ v106 │
00:08:09 verbose #35655 > │ v107 │
00:08:09 verbose #35656 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:09 verbose #35657 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:08:09 verbose #35658 > │ let v117 : string = "inline_colorization::color_reset" │
00:08:09 verbose #35659 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:08:09 verbose #35660 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:08:09 verbose #35661 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:08:09 verbose #35662 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35663 > │ v120 │
00:08:09 verbose #35664 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:08:09 verbose #35665 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:08:09 verbose #35666 > │ v123 │
00:08:09 verbose #35667 > │ #endif │
00:08:09 verbose #35668 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35669 > │ let v138 : Ref<Str> = │
00:08:09 verbose #35670 > │ match v0 with │
00:08:09 verbose #35671 > │ | US0_4 -> (* Critical *) │
00:08:09 verbose #35672 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:08:09 verbose #35673 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35674 > │ v132 │
00:08:09 verbose #35675 > │ v133 │
00:08:09 verbose #35676 > │ | US0_1 -> (* Debug *) │
00:08:09 verbose #35677 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:08:09 verbose #35678 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35679 > │ v126 │
00:08:09 verbose #35680 > │ v127 │
00:08:09 verbose #35681 > │ | US0_2 -> (* Info *) │
00:08:09 verbose #35682 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:08:09 verbose #35683 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35684 > │ v128 │
00:08:09 verbose #35685 > │ v129 │
00:08:09 verbose #35686 > │ | US0_0 -> (* Verbose *) │
00:08:09 verbose #35687 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:08:09 verbose #35688 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35689 > │ v124 │
00:08:09 verbose #35690 > │ v125 │
00:08:09 verbose #35691 > │ | US0_3 -> (* Warning *) │
00:08:09 verbose #35692 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:08:09 verbose #35693 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35694 > │ v130 │
00:08:09 verbose #35695 > │ v131 │
00:08:09 verbose #35696 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:09 verbose #35697 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:08:09 verbose #35698 > │ let v141 : string = "inline_colorization::color_reset" │
00:08:09 verbose #35699 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:08:09 verbose #35700 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:08:09 verbose #35701 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:08:09 verbose #35702 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:09 verbose #35703 > │ v144 │
00:08:09 verbose #35704 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:08:09 verbose #35705 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:08:09 verbose #35706 > │ v147 │
00:08:09 verbose #35707 > │ #endif │
00:08:09 verbose #35708 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35709 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35710 > │ v73 │
00:08:09 verbose #35711 > │ #endif │
00:08:09 verbose #35712 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35713 > │ v73 │
00:08:09 verbose #35714 > │ #endif │
00:08:09 verbose #35715 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35716 > │ let v148 : string = Unchecked.defaultof<string> │
00:08:09 verbose #35717 > │ v148 │
00:08:09 verbose #35718 > │ #endif │
00:08:09 verbose #35719 > │ |> fun x -> _v74 <- Some x │
00:08:09 verbose #35720 > │ let v149 : string = _v74.Value │
00:08:09 verbose #35721 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:08:09 verbose #35722 > │ let v151 : (char []) = [||] │
00:08:09 verbose #35723 > │ let v152 : string = v150.TrimStart v151 │
00:08:09 verbose #35724 > │ let v153 : (char []) = [|' '; '/'|] │
00:08:09 verbose #35725 > │ let v154 : string = v152.TrimEnd v153 │
00:08:09 verbose #35726 > │ v154 │
00:08:09 verbose #35727 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:08:09 verbose #35728 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:09 verbose #35729 > │ closure5() │
00:08:09 verbose #35730 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:09 verbose #35731 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:08:09 verbose #35732 > │ Mut3) = State.trace_state.Value │
00:08:09 verbose #35733 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:09 verbose #35734 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:08:09 verbose #35735 > │ Mut3) = State.trace_state.Value │
00:08:09 verbose #35736 > │ let v13 : US0 = v10.l0 │
00:08:09 verbose #35737 > │ let v14 : bool = v9.l0 │
00:08:09 verbose #35738 > │ let v15 : bool = v14 = false │
00:08:09 verbose #35739 > │ let v19 : bool = │
00:08:09 verbose #35740 > │ if v15 then │
00:08:09 verbose #35741 > │ false │
00:08:09 verbose #35742 > │ else │
00:08:09 verbose #35743 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:09 verbose #35744 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:08:09 verbose #35745 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:09 verbose #35746 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:08:09 verbose #35747 > │ let v18 : bool = v16 >= v17 │
00:08:09 verbose #35748 > │ v18 │
00:08:09 verbose #35749 > │ if v19 then │
00:08:09 verbose #35750 > │ let v20 : int64 = v3.l0 │
00:08:09 verbose #35751 > │ let v21 : int64 = v20 + 1L │
00:08:09 verbose #35752 > │ v3.l0 <- v21 │
00:08:09 verbose #35753 > │ let v22 : string = $"%s{v1 ()}" │
00:08:09 verbose #35754 > │ let v23 : unit option = None │
00:08:09 verbose #35755 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:08:09 verbose #35756 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35757 > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:09 verbose #35758 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:08:09 verbose #35759 > │ () │
00:08:09 verbose #35760 > │ #endif │
00:08:09 verbose #35761 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35762 > │ let v26 : string = @"println!(""{}"", $0)" │
00:08:09 verbose #35763 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:08:09 verbose #35764 > │ () │
00:08:09 verbose #35765 > │ #endif │
00:08:09 verbose #35766 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35767 > │ let v27 : string = @"println!(""{}"", $0)" │
00:08:09 verbose #35768 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:08:09 verbose #35769 > │ () │
00:08:09 verbose #35770 > │ #endif │
00:08:09 verbose #35771 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35772 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35773 > │ System.Console.WriteLine v22 │
00:08:09 verbose #35774 > │ () │
00:08:09 verbose #35775 > │ #endif │
00:08:09 verbose #35776 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35777 > │ System.Console.WriteLine v22 │
00:08:09 verbose #35778 > │ () │
00:08:09 verbose #35779 > │ #endif │
00:08:09 verbose #35780 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:09 verbose #35781 > │ FABLE_COMPILER_DART │
00:08:09 verbose #35782 > │ Unchecked.defaultof<unit> │
00:08:09 verbose #35783 > │ () │
00:08:09 verbose #35784 > │ #endif │
00:08:09 verbose #35785 > │ |> fun x -> _v23 <- Some x │
00:08:09 verbose #35786 > │ _v23.Value │
00:08:09 verbose #35787 > │ let v28 : (string -> unit) = v7.l0 │
00:08:09 verbose #35788 > │ v28 v22 │
00:08:09 verbose #35789 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:09 verbose #35790 > │ = │
00:08:09 verbose #35791 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:08:09 verbose #35792 > │ method9(v0, v3) │
00:08:09 verbose #35793 > │ and closure9 () () : string = │
00:08:09 verbose #35794 > │ let v0 : string = "file_system.delete_directory_async" │
00:08:09 verbose #35795 > │ v0 │
00:08:09 verbose #35796 > │ and closure11 () (v0 : string) : string = │
00:08:09 verbose #35797 > │ let v1 : string option = None │
00:08:09 verbose #35798 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:09 verbose #35799 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35800 > │ let v3 : string = null |> unbox<string> │
00:08:09 verbose #35801 > │ v3 │
00:08:09 verbose #35802 > │ #endif │
00:08:09 verbose #35803 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35804 > │ let v4 : string = null |> unbox<string> │
00:08:09 verbose #35805 > │ v4 │
00:08:09 verbose #35806 > │ #endif │
00:08:09 verbose #35807 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35808 > │ let v5 : string = null |> unbox<string> │
00:08:09 verbose #35809 > │ v5 │
00:08:09 verbose #35810 > │ #endif │
00:08:09 verbose #35811 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35812 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35813 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:08:09 verbose #35814 > │ let v7 : string = v6 v0 │
00:08:09 verbose #35815 > │ v7 │
00:08:09 verbose #35816 > │ #endif │
00:08:09 verbose #35817 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35818 > │ let v8 : string = null |> unbox<string> │
00:08:09 verbose #35819 > │ v8 │
00:08:09 verbose #35820 > │ #endif │
00:08:09 verbose #35821 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35822 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:09 verbose #35823 > │ v9 │
00:08:09 verbose #35824 > │ #endif │
00:08:09 verbose #35825 > │ |> fun x -> _v1 <- Some x │
00:08:09 verbose #35826 > │ let v10 : string = _v1.Value │
00:08:09 verbose #35827 > │ v10 │
00:08:09 verbose #35828 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:08:09 verbose #35829 > │ let v2 : (string -> string) = closure11() │
00:08:09 verbose #35830 > │ let v3 : (unit -> string) = closure3() │
00:08:09 verbose #35831 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:09 verbose #35832 > │ v4 │
00:08:09 verbose #35833 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:08:09 verbose #35834 > │ let v2 : Async<int64> option = None │
00:08:09 verbose #35835 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:09 verbose #35836 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35837 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35838 > │ v4 │
00:08:09 verbose #35839 > │ #endif │
00:08:09 verbose #35840 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35841 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35842 > │ v5 │
00:08:09 verbose #35843 > │ #endif │
00:08:09 verbose #35844 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35845 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35846 > │ v6 │
00:08:09 verbose #35847 > │ #endif │
00:08:09 verbose #35848 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35849 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35850 > │ let v7 : Async<int64> option = None │
00:08:09 verbose #35851 > │ let mutable _v7 = v7 │
00:08:09 verbose #35852 > │ async { │
00:08:09 verbose #35853 > │ try │
00:08:09 verbose #35854 > │ let v8 : unit option = None │
00:08:09 verbose #35855 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:09 verbose #35856 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35857 > │ null |> unbox<unit> │
00:08:09 verbose #35858 > │ () │
00:08:09 verbose #35859 > │ #endif │
00:08:09 verbose #35860 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35861 > │ null |> unbox<unit> │
00:08:09 verbose #35862 > │ () │
00:08:09 verbose #35863 > │ #endif │
00:08:09 verbose #35864 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35865 > │ null |> unbox<unit> │
00:08:09 verbose #35866 > │ () │
00:08:09 verbose #35867 > │ #endif │
00:08:09 verbose #35868 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35869 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35870 > │ System.IO.Directory.Delete (v0, true) │
00:08:09 verbose #35871 > │ () │
00:08:09 verbose #35872 > │ #endif │
00:08:09 verbose #35873 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35874 > │ null |> unbox<unit> │
00:08:09 verbose #35875 > │ () │
00:08:09 verbose #35876 > │ #endif │
00:08:09 verbose #35877 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35878 > │ Unchecked.defaultof<unit> │
00:08:09 verbose #35879 > │ () │
00:08:09 verbose #35880 > │ #endif │
00:08:09 verbose #35881 > │ |> fun x -> _v8 <- Some x │
00:08:09 verbose #35882 > │ _v8.Value │
00:08:09 verbose #35883 > │ return v1 │
00:08:09 verbose #35884 > │ with ex -> │
00:08:09 verbose #35885 > │ let v10 : exn = ex │
00:08:09 verbose #35886 > │ let v11 : int64 = v1 % 100L │
00:08:09 verbose #35887 > │ let v12 : bool = v11 = 0L │
00:08:09 verbose #35888 > │ if v12 then │
00:08:09 verbose #35889 > │ let v13 : string option = None │
00:08:09 verbose #35890 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:09 verbose #35891 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35892 > │ let v15 : string = $"%A{v10}" │
00:08:09 verbose #35893 > │ v15 │
00:08:09 verbose #35894 > │ #endif │
00:08:09 verbose #35895 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35896 > │ let v16 : string = $"%A{v10}" │
00:08:09 verbose #35897 > │ v16 │
00:08:09 verbose #35898 > │ #endif │
00:08:09 verbose #35899 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35900 > │ let v17 : string = $"%A{v10}" │
00:08:09 verbose #35901 > │ v17 │
00:08:09 verbose #35902 > │ #endif │
00:08:09 verbose #35903 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35904 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35905 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:08:09 verbose #35906 > │ v18 │
00:08:09 verbose #35907 > │ #endif │
00:08:09 verbose #35908 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35909 > │ let v19 : string = $"%A{v10}" │
00:08:09 verbose #35910 > │ v19 │
00:08:09 verbose #35911 > │ #endif │
00:08:09 verbose #35912 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:09 verbose #35913 > │ FABLE_COMPILER_DART │
00:08:09 verbose #35914 > │ let v20 : string = Unchecked.defaultof<string> │
00:08:09 verbose #35915 > │ v20 │
00:08:09 verbose #35916 > │ #endif │
00:08:09 verbose #35917 > │ |> fun x -> _v13 <- Some x │
00:08:09 verbose #35918 > │ let v21 : string = _v13.Value │
00:08:09 verbose #35919 > │ let v22 : US0 = US0_1 │
00:08:09 verbose #35920 > │ let v23 : (unit -> string) = closure9() │
00:08:09 verbose #35921 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:08:09 verbose #35922 > │ method4(v22, v23, v24) │
00:08:09 verbose #35923 > │ let v25 : Async<unit> option = None │
00:08:09 verbose #35924 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:08:09 verbose #35925 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35926 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #35927 > │ v27 │
00:08:09 verbose #35928 > │ #endif │
00:08:09 verbose #35929 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35930 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #35931 > │ v28 │
00:08:09 verbose #35932 > │ #endif │
00:08:09 verbose #35933 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35934 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #35935 > │ v29 │
00:08:09 verbose #35936 > │ #endif │
00:08:09 verbose #35937 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35938 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35939 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:08:09 verbose #35940 > │ let v31 : Async<unit> = v30 10 │
00:08:09 verbose #35941 > │ v31 │
00:08:09 verbose #35942 > │ #endif │
00:08:09 verbose #35943 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35944 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #35945 > │ v32 │
00:08:09 verbose #35946 > │ #endif │
00:08:09 verbose #35947 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35948 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:09 verbose #35949 > │ v33 │
00:08:09 verbose #35950 > │ #endif │
00:08:09 verbose #35951 > │ |> fun x -> _v25 <- Some x │
00:08:09 verbose #35952 > │ let v34 : Async<unit> = _v25.Value │
00:08:09 verbose #35953 > │ do! v34 │
00:08:09 verbose #35954 > │ let v35 : int64 = v1 + 1L │
00:08:09 verbose #35955 > │ let v36 : Async<int64> = method10(v0, v35) │
00:08:09 verbose #35956 > │ return! v36 │
00:08:09 verbose #35957 > │ (* │
00:08:09 verbose #35958 > │ let v37 : int64 = *) │
00:08:09 verbose #35959 > │ } │
00:08:09 verbose #35960 > │ |> fun x -> _v7 <- Some x │
00:08:09 verbose #35961 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:08:09 verbose #35962 > │ v38 │
00:08:09 verbose #35963 > │ #endif │
00:08:09 verbose #35964 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35965 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35966 > │ v39 │
00:08:09 verbose #35967 > │ #endif │
00:08:09 verbose #35968 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #35969 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:09 verbose #35970 > │ v40 │
00:08:09 verbose #35971 > │ #endif │
00:08:09 verbose #35972 > │ |> fun x -> _v2 <- Some x │
00:08:09 verbose #35973 > │ let v41 : Async<int64> = _v2.Value │
00:08:09 verbose #35974 > │ v41 │
00:08:09 verbose #35975 > │ and closure8 (v0 : string) () : unit = │
00:08:09 verbose #35976 > │ let v1 : Async<int64> option = None │
00:08:09 verbose #35977 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:09 verbose #35978 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #35979 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35980 > │ v3 │
00:08:09 verbose #35981 > │ #endif │
00:08:09 verbose #35982 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #35983 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35984 > │ v4 │
00:08:09 verbose #35985 > │ #endif │
00:08:09 verbose #35986 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #35987 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35988 > │ v5 │
00:08:09 verbose #35989 > │ #endif │
00:08:09 verbose #35990 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #35991 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #35992 > │ let v6 : int64 = 0L │
00:08:09 verbose #35993 > │ let v7 : Async<int64> = method10(v0, v6) │
00:08:09 verbose #35994 > │ v7 │
00:08:09 verbose #35995 > │ #endif │
00:08:09 verbose #35996 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #35997 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:09 verbose #35998 > │ v8 │
00:08:09 verbose #35999 > │ #endif │
00:08:09 verbose #36000 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:09 verbose #36001 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:09 verbose #36002 > │ v9 │
00:08:09 verbose #36003 > │ #endif │
00:08:09 verbose #36004 > │ |> fun x -> _v1 <- Some x │
00:08:09 verbose #36005 > │ let v10 : Async<int64> = _v1.Value │
00:08:09 verbose #36006 > │ let v11 : Async<unit> option = None │
00:08:09 verbose #36007 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:08:09 verbose #36008 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:09 verbose #36009 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #36010 > │ v13 │
00:08:09 verbose #36011 > │ #endif │
00:08:09 verbose #36012 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:09 verbose #36013 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #36014 > │ v14 │
00:08:09 verbose #36015 > │ #endif │
00:08:09 verbose #36016 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:09 verbose #36017 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #36018 > │ v15 │
00:08:09 verbose #36019 > │ #endif │
00:08:09 verbose #36020 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:09 verbose #36021 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:09 verbose #36022 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:09 verbose #36023 > │ let v17 : Async<unit> = v16 v10 │
00:08:09 verbose #36024 > │ v17 │
00:08:09 verbose #36025 > │ #endif │
00:08:09 verbose #36026 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:09 verbose #36027 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:09 verbose #36028 > │ v18 │
00:08:10 verbose #36029 > │ #endif │
00:08:10 verbose #36030 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36031 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36032 > │ v19 │
00:08:10 verbose #36033 > │ #endif │
00:08:10 verbose #36034 > │ |> fun x -> _v11 <- Some x │
00:08:10 verbose #36035 > │ let v20 : Async<unit> = _v11.Value │
00:08:10 verbose #36036 > │ let v21 : unit option = None │
00:08:10 verbose #36037 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:08:10 verbose #36038 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36039 > │ null |> unbox<unit> │
00:08:10 verbose #36040 > │ () │
00:08:10 verbose #36041 > │ #endif │
00:08:10 verbose #36042 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36043 > │ null |> unbox<unit> │
00:08:10 verbose #36044 > │ () │
00:08:10 verbose #36045 > │ #endif │
00:08:10 verbose #36046 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36047 > │ null |> unbox<unit> │
00:08:10 verbose #36048 > │ () │
00:08:10 verbose #36049 > │ #endif │
00:08:10 verbose #36050 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36051 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36052 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:10 verbose #36053 > │ v23 v20 │
00:08:10 verbose #36054 > │ () │
00:08:10 verbose #36055 > │ #endif │
00:08:10 verbose #36056 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36057 > │ null |> unbox<unit> │
00:08:10 verbose #36058 > │ () │
00:08:10 verbose #36059 > │ #endif │
00:08:10 verbose #36060 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36061 > │ Unchecked.defaultof<unit> │
00:08:10 verbose #36062 > │ () │
00:08:10 verbose #36063 > │ #endif │
00:08:10 verbose #36064 > │ |> fun x -> _v21 <- Some x │
00:08:10 verbose #36065 > │ _v21.Value │
00:08:10 verbose #36066 > │ () │
00:08:10 verbose #36067 > │ and method11 () : string = │
00:08:10 verbose #36068 > │ let v0 : string = "test.txt" │
00:08:10 verbose #36069 > │ v0 │
00:08:10 verbose #36070 > │ and method12 () : string = │
00:08:10 verbose #36071 > │ let v0 : string = "test.txt" │
00:08:10 verbose #36072 > │ v0 │
00:08:10 verbose #36073 > │ and closure12 () () : string = │
00:08:10 verbose #36074 > │ let v0 : string = "1" │
00:08:10 verbose #36075 > │ v0 │
00:08:10 verbose #36076 > │ and closure13 () () : string = │
00:08:10 verbose #36077 > │ let v0 : string = "2" │
00:08:10 verbose #36078 > │ v0 │
00:08:10 verbose #36079 > │ and closure14 () () : string = │
00:08:10 verbose #36080 > │ let v0 : string = "_1" │
00:08:10 verbose #36081 > │ v0 │
00:08:10 verbose #36082 > │ and closure15 () () : string = │
00:08:10 verbose #36083 > │ let v0 : string = "_2" │
00:08:10 verbose #36084 > │ v0 │
00:08:10 verbose #36085 > │ and closure16 () () : string = │
00:08:10 verbose #36086 > │ let v0 : string = "_3" │
00:08:10 verbose #36087 > │ v0 │
00:08:10 verbose #36088 > │ and closure17 () () : string = │
00:08:10 verbose #36089 > │ let v0 : string = "_4" │
00:08:10 verbose #36090 > │ v0 │
00:08:10 verbose #36091 > │ and closure18 () () : string = │
00:08:10 verbose #36092 > │ let v0 : string = "_5" │
00:08:10 verbose #36093 > │ v0 │
00:08:10 verbose #36094 > │ and closure19 () () : string = │
00:08:10 verbose #36095 > │ let v0 : string = "_6" │
00:08:10 verbose #36096 > │ v0 │
00:08:10 verbose #36097 > │ and closure20 () () : string = │
00:08:10 verbose #36098 > │ let v0 : string = "3" │
00:08:10 verbose #36099 > │ v0 │
00:08:10 verbose #36100 > │ and closure21 () () : string = │
00:08:10 verbose #36101 > │ let v0 : string = "4" │
00:08:10 verbose #36102 > │ v0 │
00:08:10 verbose #36103 > │ and closure22 () () : string = │
00:08:10 verbose #36104 > │ let v0 : string = "file_system.wait_for_file_access" │
00:08:10 verbose #36105 > │ v0 │
00:08:10 verbose #36106 > │ and closure23 (v0 : string, v1 : int64, v2 : string) () : string = │
00:08:10 verbose #36107 > │ let v3 : (string -> string) = closure11() │
00:08:10 verbose #36108 > │ let v4 : (unit -> string) = closure3() │
00:08:10 verbose #36109 > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:08:10 verbose #36110 > │ v5 │
00:08:10 verbose #36111 > │ and method13 (v0 : string, v1 : int64) : Async<int64> = │
00:08:10 verbose #36112 > │ let v2 : Async<int64> option = None │
00:08:10 verbose #36113 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:10 verbose #36114 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36115 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36116 > │ v4 │
00:08:10 verbose #36117 > │ #endif │
00:08:10 verbose #36118 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36119 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36120 > │ v5 │
00:08:10 verbose #36121 > │ #endif │
00:08:10 verbose #36122 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36123 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36124 > │ v6 │
00:08:10 verbose #36125 > │ #endif │
00:08:10 verbose #36126 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36127 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36128 > │ let v7 : Async<int64> option = None │
00:08:10 verbose #36129 > │ let mutable _v7 = v7 │
00:08:10 verbose #36130 > │ async { │
00:08:10 verbose #36131 > │ try │
00:08:10 verbose #36132 > │ let v8 : System.IO.FileStream option = None │
00:08:10 verbose #36133 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:10 verbose #36134 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36135 > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36136 > │ v10 │
00:08:10 verbose #36137 > │ #endif │
00:08:10 verbose #36138 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36139 > │ let v11 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36140 > │ v11 │
00:08:10 verbose #36141 > │ #endif │
00:08:10 verbose #36142 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36143 > │ let v12 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36144 > │ v12 │
00:08:10 verbose #36145 > │ #endif │
00:08:10 verbose #36146 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36147 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36148 > │ let v13 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:10 verbose #36149 > │ let v14 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:10 verbose #36150 > │ let v15 : System.IO.FileShare = System.IO.FileShare.Read │
00:08:10 verbose #36151 > │ let v16 : System.IO.FileStream = new System.IO.FileStream (v0, v13, v14, │
00:08:10 verbose #36152 > │ v15) │
00:08:10 verbose #36153 > │ v16 │
00:08:10 verbose #36154 > │ #endif │
00:08:10 verbose #36155 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36156 > │ let v17 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36157 > │ v17 │
00:08:10 verbose #36158 > │ #endif │
00:08:10 verbose #36159 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36160 > │ let v18 : System.IO.FileStream = │
00:08:10 verbose #36161 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:10 verbose #36162 > │ v18 │
00:08:10 verbose #36163 > │ #endif │
00:08:10 verbose #36164 > │ |> fun x -> _v8 <- Some x │
00:08:10 verbose #36165 > │ let v19 : System.IO.FileStream = _v8.Value │
00:08:10 verbose #36166 > │ use v19 = v19 │
00:08:10 verbose #36167 > │ let v20 : System.IO.FileStream = v19 │
00:08:10 verbose #36168 > │ return v1 │
00:08:10 verbose #36169 > │ with ex -> │
00:08:10 verbose #36170 > │ let v21 : exn = ex │
00:08:10 verbose #36171 > │ let v22 : bool = v1 > 0L │
00:08:10 verbose #36172 > │ let v25 : bool = │
00:08:10 verbose #36173 > │ if v22 then │
00:08:10 verbose #36174 > │ let v23 : int64 = v1 % 100L │
00:08:10 verbose #36175 > │ let v24 : bool = v23 = 0L │
00:08:10 verbose #36176 > │ v24 │
00:08:10 verbose #36177 > │ else │
00:08:10 verbose #36178 > │ false │
00:08:10 verbose #36179 > │ if v25 then │
00:08:10 verbose #36180 > │ let v26 : string option = None │
00:08:10 verbose #36181 > │ let v27 : bool = true in let mutable _v26 = v26 │
00:08:10 verbose #36182 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36183 > │ let v28 : string = $"%A{v21}" │
00:08:10 verbose #36184 > │ v28 │
00:08:10 verbose #36185 > │ #endif │
00:08:10 verbose #36186 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36187 > │ let v29 : string = $"%A{v21}" │
00:08:10 verbose #36188 > │ v29 │
00:08:10 verbose #36189 > │ #endif │
00:08:10 verbose #36190 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36191 > │ let v30 : string = $"%A{v21}" │
00:08:10 verbose #36192 > │ v30 │
00:08:10 verbose #36193 > │ #endif │
00:08:10 verbose #36194 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36195 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36196 > │ let v31 : string = $"{v21.GetType ()}: {v21.Message}" │
00:08:10 verbose #36197 > │ v31 │
00:08:10 verbose #36198 > │ #endif │
00:08:10 verbose #36199 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36200 > │ let v32 : string = $"%A{v21}" │
00:08:10 verbose #36201 > │ v32 │
00:08:10 verbose #36202 > │ #endif │
00:08:10 verbose #36203 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:10 verbose #36204 > │ FABLE_COMPILER_DART │
00:08:10 verbose #36205 > │ let v33 : string = Unchecked.defaultof<string> │
00:08:10 verbose #36206 > │ v33 │
00:08:10 verbose #36207 > │ #endif │
00:08:10 verbose #36208 > │ |> fun x -> _v26 <- Some x │
00:08:10 verbose #36209 > │ let v34 : string = _v26.Value │
00:08:10 verbose #36210 > │ let v35 : US0 = US0_1 │
00:08:10 verbose #36211 > │ let v36 : (unit -> string) = closure22() │
00:08:10 verbose #36212 > │ let v37 : (unit -> string) = closure23(v0, v1, v34) │
00:08:10 verbose #36213 > │ method4(v35, v36, v37) │
00:08:10 verbose #36214 > │ let v38 : Async<unit> option = None │
00:08:10 verbose #36215 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:08:10 verbose #36216 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36217 > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36218 > │ v40 │
00:08:10 verbose #36219 > │ #endif │
00:08:10 verbose #36220 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36221 > │ let v41 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36222 > │ v41 │
00:08:10 verbose #36223 > │ #endif │
00:08:10 verbose #36224 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36225 > │ let v42 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36226 > │ v42 │
00:08:10 verbose #36227 > │ #endif │
00:08:10 verbose #36228 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36229 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36230 > │ let v43 : (int32 -> Async<unit>) = Async.Sleep │
00:08:10 verbose #36231 > │ let v44 : Async<unit> = v43 10 │
00:08:10 verbose #36232 > │ v44 │
00:08:10 verbose #36233 > │ #endif │
00:08:10 verbose #36234 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36235 > │ let v45 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36236 > │ v45 │
00:08:10 verbose #36237 > │ #endif │
00:08:10 verbose #36238 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36239 > │ let v46 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36240 > │ v46 │
00:08:10 verbose #36241 > │ #endif │
00:08:10 verbose #36242 > │ |> fun x -> _v38 <- Some x │
00:08:10 verbose #36243 > │ let v47 : Async<unit> = _v38.Value │
00:08:10 verbose #36244 > │ do! v47 │
00:08:10 verbose #36245 > │ let v48 : int64 = v1 + 1L │
00:08:10 verbose #36246 > │ let v49 : Async<int64> = method13(v0, v48) │
00:08:10 verbose #36247 > │ return! v49 │
00:08:10 verbose #36248 > │ (* │
00:08:10 verbose #36249 > │ let v50 : int64 = *) │
00:08:10 verbose #36250 > │ } │
00:08:10 verbose #36251 > │ |> fun x -> _v7 <- Some x │
00:08:10 verbose #36252 > │ let v51 : Async<int64> = _v7 |> Option.get │
00:08:10 verbose #36253 > │ v51 │
00:08:10 verbose #36254 > │ #endif │
00:08:10 verbose #36255 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36256 > │ let v52 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36257 > │ v52 │
00:08:10 verbose #36258 > │ #endif │
00:08:10 verbose #36259 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36260 > │ let v53 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:10 verbose #36261 > │ v53 │
00:08:10 verbose #36262 > │ #endif │
00:08:10 verbose #36263 > │ |> fun x -> _v2 <- Some x │
00:08:10 verbose #36264 > │ let v54 : Async<int64> = _v2.Value │
00:08:10 verbose #36265 > │ v54 │
00:08:10 verbose #36266 > │ and closure24 () () : string = │
00:08:10 verbose #36267 > │ let v0 : string = "5" │
00:08:10 verbose #36268 > │ v0 │
00:08:10 verbose #36269 > │ and closure25 () () : string = │
00:08:10 verbose #36270 > │ let v0 : string = "6" │
00:08:10 verbose #36271 > │ v0 │
00:08:10 verbose #36272 > │ and closure26 () () : string = │
00:08:10 verbose #36273 > │ let v0 : string = "7" │
00:08:10 verbose #36274 > │ v0 │
00:08:10 verbose #36275 > │ and closure27 () struct (v0 : int64, v1 : string) : US4 = │
00:08:10 verbose #36276 > │ US4_0(v0, v1) │
00:08:10 verbose #36277 > │ and closure28 () (v0 : exn) : US4 = │
00:08:10 verbose #36278 > │ US4_1(v0) │
00:08:10 verbose #36279 > │ and closure29 () () : string = │
00:08:10 verbose #36280 > │ let v0 : string = "run_with_timeout_async" │
00:08:10 verbose #36281 > │ v0 │
00:08:10 verbose #36282 > │ and closure30 () () : string = │
00:08:10 verbose #36283 > │ let v0 : (unit -> string) = closure3() │
00:08:10 verbose #36284 > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:08:10 verbose #36285 > │ v1 │
00:08:10 verbose #36286 > │ and closure31 (v0 : string) () : string = │
00:08:10 verbose #36287 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:08:10 verbose #36288 > │ v1 │
00:08:10 verbose #36289 > │ and method14 (v0 : bool) : bool = │
00:08:10 verbose #36290 > │ v0 │
00:08:10 verbose #36291 > │ and method15 () : string = │
00:08:10 verbose #36292 > │ let v0 : string = "1" │
00:08:10 verbose #36293 > │ v0 │
00:08:10 verbose #36294 > │ and method0 () : unit = │
00:08:10 verbose #36295 > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:10 verbose #36296 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:10 verbose #36297 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36298 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:08:10 verbose #36299 > │ (string * System.IDisposable)> │
00:08:10 verbose #36300 > │ struct (v2, v3) │
00:08:10 verbose #36301 > │ #endif │
00:08:10 verbose #36302 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36303 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:08:10 verbose #36304 > │ (string * System.IDisposable)> │
00:08:10 verbose #36305 > │ struct (v4, v5) │
00:08:10 verbose #36306 > │ #endif │
00:08:10 verbose #36307 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36308 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:08:10 verbose #36309 > │ (string * System.IDisposable)> │
00:08:10 verbose #36310 > │ struct (v6, v7) │
00:08:10 verbose #36311 > │ #endif │
00:08:10 verbose #36312 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36313 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36314 > │ let v8 : string option = None │
00:08:10 verbose #36315 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:10 verbose #36316 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36317 > │ let v10 : string = null |> unbox<string> │
00:08:10 verbose #36318 > │ v10 │
00:08:10 verbose #36319 > │ #endif │
00:08:10 verbose #36320 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36321 > │ let v11 : string = null |> unbox<string> │
00:08:10 verbose #36322 > │ v11 │
00:08:10 verbose #36323 > │ #endif │
00:08:10 verbose #36324 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36325 > │ let v12 : string = null |> unbox<string> │
00:08:10 verbose #36326 > │ v12 │
00:08:10 verbose #36327 > │ #endif │
00:08:10 verbose #36328 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36329 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36330 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:10 verbose #36331 > │ let v14 : string = v13 () │
00:08:10 verbose #36332 > │ let v15 : (unit -> string) = closure0() │
00:08:10 verbose #36333 > │ let v16 : string = $"!{v15 ()}" │
00:08:10 verbose #36334 > │ let v17 : string option = None │
00:08:10 verbose #36335 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:10 verbose #36336 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36337 > │ let v19 : string = method1(v14) │
00:08:10 verbose #36338 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:10 verbose #36339 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:10 verbose #36340 > │ let v22 : string = "String::from($0)" │
00:08:10 verbose #36341 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:08:10 verbose #36342 > │ v22 │
00:08:10 verbose #36343 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:08:10 verbose #36344 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:10 verbose #36345 > │ let v26 : string = method1(v16) │
00:08:10 verbose #36346 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:10 verbose #36347 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:10 verbose #36348 > │ let v29 : string = "String::from($0)" │
00:08:10 verbose #36349 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:08:10 verbose #36350 > │ v29 │
00:08:10 verbose #36351 > │ let v31 : string = "$0.join($1)" │
00:08:10 verbose #36352 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:10 verbose #36353 > │ (v25, v30) v31 │
00:08:10 verbose #36354 > │ let v33 : string = "$0.display().to_string()" │
00:08:10 verbose #36355 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:08:10 verbose #36356 > │ v33 │
00:08:10 verbose #36357 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:08:10 verbose #36358 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:08:10 verbose #36359 > │ v36 │
00:08:10 verbose #36360 > │ #endif │
00:08:10 verbose #36361 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36362 > │ let v37 : string = null |> unbox<string> │
00:08:10 verbose #36363 > │ v37 │
00:08:10 verbose #36364 > │ #endif │
00:08:10 verbose #36365 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36366 > │ let v38 : string = null |> unbox<string> │
00:08:10 verbose #36367 > │ v38 │
00:08:10 verbose #36368 > │ #endif │
00:08:10 verbose #36369 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36370 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36371 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:08:10 verbose #36372 > │ v39 │
00:08:10 verbose #36373 > │ #endif │
00:08:10 verbose #36374 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36375 > │ let v40 : string = "path" │
00:08:10 verbose #36376 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:10 verbose #36377 > │ let v42 : string = method2(v14) │
00:08:10 verbose #36378 > │ let v43 : string = method3(v16) │
00:08:10 verbose #36379 > │ let v44 : string = "v41.join(v42, v43)" │
00:08:10 verbose #36380 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:08:10 verbose #36381 > │ v45 │
00:08:10 verbose #36382 > │ #endif │
00:08:10 verbose #36383 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36384 > │ let v46 : string = Unchecked.defaultof<string> │
00:08:10 verbose #36385 > │ v46 │
00:08:10 verbose #36386 > │ #endif │
00:08:10 verbose #36387 > │ |> fun x -> _v17 <- Some x │
00:08:10 verbose #36388 > │ let v47 : string = _v17.Value │
00:08:10 verbose #36389 > │ let v48 : System.DateTime = System.DateTime.Now │
00:08:10 verbose #36390 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:08:10 verbose #36391 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:08:10 verbose #36392 > │ let v51 : string = v50 v49 │
00:08:10 verbose #36393 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:10 verbose #36394 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:08:10 verbose #36395 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:08:10 verbose #36396 > │ let v55 : string = v54 v53 │
00:08:10 verbose #36397 > │ let v56 : string option = None │
00:08:10 verbose #36398 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:08:10 verbose #36399 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36400 > │ let v58 : string = method1(v47) │
00:08:10 verbose #36401 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:10 verbose #36402 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:08:10 verbose #36403 > │ let v61 : string = "String::from($0)" │
00:08:10 verbose #36404 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:08:10 verbose #36405 > │ v61 │
00:08:10 verbose #36406 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:08:10 verbose #36407 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:08:10 verbose #36408 > │ let v65 : string = method1(v55) │
00:08:10 verbose #36409 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:10 verbose #36410 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:10 verbose #36411 > │ let v68 : string = "String::from($0)" │
00:08:10 verbose #36412 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:08:10 verbose #36413 > │ v68 │
00:08:10 verbose #36414 > │ let v70 : string = "$0.join($1)" │
00:08:10 verbose #36415 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:10 verbose #36416 > │ (v64, v69) v70 │
00:08:10 verbose #36417 > │ let v72 : string = "$0.display().to_string()" │
00:08:10 verbose #36418 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:08:10 verbose #36419 > │ v72 │
00:08:10 verbose #36420 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:08:10 verbose #36421 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:08:10 verbose #36422 > │ v75 │
00:08:10 verbose #36423 > │ #endif │
00:08:10 verbose #36424 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36425 > │ let v76 : string = null |> unbox<string> │
00:08:10 verbose #36426 > │ v76 │
00:08:10 verbose #36427 > │ #endif │
00:08:10 verbose #36428 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36429 > │ let v77 : string = null |> unbox<string> │
00:08:10 verbose #36430 > │ v77 │
00:08:10 verbose #36431 > │ #endif │
00:08:10 verbose #36432 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36433 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36434 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:08:10 verbose #36435 > │ v78 │
00:08:10 verbose #36436 > │ #endif │
00:08:10 verbose #36437 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36438 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:10 verbose #36439 > │ let v80 : string = method2(v47) │
00:08:10 verbose #36440 > │ let v81 : string = method3(v55) │
00:08:10 verbose #36441 > │ let v82 : string = "v79.join(v80, v81)" │
00:08:10 verbose #36442 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:08:10 verbose #36443 > │ v83 │
00:08:10 verbose #36444 > │ #endif │
00:08:10 verbose #36445 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36446 > │ let v84 : string = Unchecked.defaultof<string> │
00:08:10 verbose #36447 > │ v84 │
00:08:10 verbose #36448 > │ #endif │
00:08:10 verbose #36449 > │ |> fun x -> _v56 <- Some x │
00:08:10 verbose #36450 > │ let v85 : string = _v56.Value │
00:08:10 verbose #36451 > │ v85 │
00:08:10 verbose #36452 > │ #endif │
00:08:10 verbose #36453 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36454 > │ let v86 : string = null |> unbox<string> │
00:08:10 verbose #36455 > │ v86 │
00:08:10 verbose #36456 > │ #endif │
00:08:10 verbose #36457 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36458 > │ let v87 : string = Unchecked.defaultof<string> │
00:08:10 verbose #36459 > │ v87 │
00:08:10 verbose #36460 > │ #endif │
00:08:10 verbose #36461 > │ |> fun x -> _v8 <- Some x │
00:08:10 verbose #36462 > │ let v88 : string = _v8.Value │
00:08:10 verbose #36463 > │ let v89 : System.IO.DirectoryInfo option = None │
00:08:10 verbose #36464 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:10 verbose #36465 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36466 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:08:10 verbose #36467 > │ unbox<System.IO.DirectoryInfo> │
00:08:10 verbose #36468 > │ v91 │
00:08:10 verbose #36469 > │ #endif │
00:08:10 verbose #36470 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36471 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:08:10 verbose #36472 > │ unbox<System.IO.DirectoryInfo> │
00:08:10 verbose #36473 > │ v92 │
00:08:10 verbose #36474 > │ #endif │
00:08:10 verbose #36475 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36476 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:08:10 verbose #36477 > │ unbox<System.IO.DirectoryInfo> │
00:08:10 verbose #36478 > │ v93 │
00:08:10 verbose #36479 > │ #endif │
00:08:10 verbose #36480 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36481 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36482 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:08:10 verbose #36483 > │ System.IO.Directory.CreateDirectory │
00:08:10 verbose #36484 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:08:10 verbose #36485 > │ v95 │
00:08:10 verbose #36486 > │ #endif │
00:08:10 verbose #36487 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36488 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:08:10 verbose #36489 > │ unbox<System.IO.DirectoryInfo> │
00:08:10 verbose #36490 > │ v96 │
00:08:10 verbose #36491 > │ #endif │
00:08:10 verbose #36492 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36493 > │ let v97 : System.IO.DirectoryInfo = │
00:08:10 verbose #36494 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:10 verbose #36495 > │ v97 │
00:08:10 verbose #36496 > │ #endif │
00:08:10 verbose #36497 > │ |> fun x -> _v89 <- Some x │
00:08:10 verbose #36498 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:08:10 verbose #36499 > │ let v99 : bool option = None │
00:08:10 verbose #36500 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:08:10 verbose #36501 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36502 > │ let v101 : bool = null |> unbox<bool> │
00:08:10 verbose #36503 > │ v101 │
00:08:10 verbose #36504 > │ #endif │
00:08:10 verbose #36505 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36506 > │ let v102 : bool = null |> unbox<bool> │
00:08:10 verbose #36507 > │ v102 │
00:08:10 verbose #36508 > │ #endif │
00:08:10 verbose #36509 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36510 > │ let v103 : bool = null |> unbox<bool> │
00:08:10 verbose #36511 > │ v103 │
00:08:10 verbose #36512 > │ #endif │
00:08:10 verbose #36513 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36514 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36515 > │ let v104 : bool = v98.Exists │
00:08:10 verbose #36516 > │ v104 │
00:08:10 verbose #36517 > │ #endif │
00:08:10 verbose #36518 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36519 > │ let v105 : bool = null |> unbox<bool> │
00:08:10 verbose #36520 > │ v105 │
00:08:10 verbose #36521 > │ #endif │
00:08:10 verbose #36522 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36523 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:08:10 verbose #36524 > │ v106 │
00:08:10 verbose #36525 > │ #endif │
00:08:10 verbose #36526 > │ |> fun x -> _v99 <- Some x │
00:08:10 verbose #36527 > │ let v107 : bool = _v99.Value │
00:08:10 verbose #36528 > │ let v108 : bool = v107 = false │
00:08:10 verbose #36529 > │ if v108 then │
00:08:10 verbose #36530 > │ let v109 : System.DateTime option = None │
00:08:10 verbose #36531 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:08:10 verbose #36532 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36533 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:08:10 verbose #36534 > │ v111 │
00:08:10 verbose #36535 > │ #endif │
00:08:10 verbose #36536 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36537 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:08:10 verbose #36538 > │ v112 │
00:08:10 verbose #36539 > │ #endif │
00:08:10 verbose #36540 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36541 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:08:10 verbose #36542 > │ v113 │
00:08:10 verbose #36543 > │ #endif │
00:08:10 verbose #36544 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36545 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36546 > │ let v114 : System.DateTime = v98.CreationTime │
00:08:10 verbose #36547 > │ v114 │
00:08:10 verbose #36548 > │ #endif │
00:08:10 verbose #36549 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36550 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:08:10 verbose #36551 > │ v115 │
00:08:10 verbose #36552 > │ #endif │
00:08:10 verbose #36553 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:10 verbose #36554 > │ FABLE_COMPILER_DART │
00:08:10 verbose #36555 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:10 verbose #36556 > │ v116 │
00:08:10 verbose #36557 > │ #endif │
00:08:10 verbose #36558 > │ |> fun x -> _v109 <- Some x │
00:08:10 verbose #36559 > │ let v117 : System.DateTime = _v109.Value │
00:08:10 verbose #36560 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:08:10 verbose #36561 > │ let v119 : string = $"%A{v118}" │
00:08:10 verbose #36562 > │ let v120 : US0 = US0_1 │
00:08:10 verbose #36563 > │ let v121 : (unit -> string) = closure1() │
00:08:10 verbose #36564 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:08:10 verbose #36565 > │ method4(v120, v121, v122) │
00:08:10 verbose #36566 > │ let v123 : System.IDisposable option = None │
00:08:10 verbose #36567 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:08:10 verbose #36568 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36569 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:10 verbose #36570 > │ v125 │
00:08:10 verbose #36571 > │ #endif │
00:08:10 verbose #36572 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36573 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:10 verbose #36574 > │ v126 │
00:08:10 verbose #36575 > │ #endif │
00:08:10 verbose #36576 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36577 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:10 verbose #36578 > │ v127 │
00:08:10 verbose #36579 > │ #endif │
00:08:10 verbose #36580 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36581 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36582 > │ let v128 : (unit -> unit) = closure8(v88) │
00:08:10 verbose #36583 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:08:10 verbose #36584 > │ _.Dispose () = v128 () } │
00:08:10 verbose #36585 > │ v129 │
00:08:10 verbose #36586 > │ #endif │
00:08:10 verbose #36587 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36588 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:10 verbose #36589 > │ v130 │
00:08:10 verbose #36590 > │ #endif │
00:08:10 verbose #36591 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36592 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:10 verbose #36593 > │ v131 │
00:08:10 verbose #36594 > │ #endif │
00:08:10 verbose #36595 > │ |> fun x -> _v123 <- Some x │
00:08:10 verbose #36596 > │ let v132 : System.IDisposable = _v123.Value │
00:08:10 verbose #36597 > │ struct (v88, v132) │
00:08:10 verbose #36598 > │ #endif │
00:08:10 verbose #36599 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36600 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:08:10 verbose #36601 > │ unbox<struct (string * System.IDisposable)> │
00:08:10 verbose #36602 > │ struct (v133, v134) │
00:08:10 verbose #36603 > │ #endif │
00:08:10 verbose #36604 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36605 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:08:10 verbose #36606 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:10 verbose #36607 > │ struct (v135, v136) │
00:08:10 verbose #36608 > │ #endif │
00:08:10 verbose #36609 > │ |> fun x -> _v0 <- Some x │
00:08:10 verbose #36610 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:08:10 verbose #36611 > │ use v138 = v138 │
00:08:10 verbose #36612 > │ let v139 : System.IDisposable = v138 │
00:08:10 verbose #36613 > │ let v140 : string option = None │
00:08:10 verbose #36614 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:08:10 verbose #36615 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36616 > │ let v142 : string = method1(v137) │
00:08:10 verbose #36617 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:10 verbose #36618 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:08:10 verbose #36619 > │ let v145 : string = "String::from($0)" │
00:08:10 verbose #36620 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:08:10 verbose #36621 > │ v145 │
00:08:10 verbose #36622 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:08:10 verbose #36623 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:08:10 verbose #36624 > │ v147 │
00:08:10 verbose #36625 > │ let v149 : string = method11() │
00:08:10 verbose #36626 > │ let v150 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:10 verbose #36627 > │ let v151 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v149 v150 │
00:08:10 verbose #36628 > │ let v152 : string = "String::from($0)" │
00:08:10 verbose #36629 > │ let v153 : std_string_String = Fable.Core.RustInterop.emitRustExpr v151 │
00:08:10 verbose #36630 > │ v152 │
00:08:10 verbose #36631 > │ let v154 : string = "$0.join($1)" │
00:08:10 verbose #36632 > │ let v155 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:10 verbose #36633 > │ (v148, v153) v154 │
00:08:10 verbose #36634 > │ let v156 : string = "$0.display().to_string()" │
00:08:10 verbose #36635 > │ let v157 : std_string_String = Fable.Core.RustInterop.emitRustExpr v155 │
00:08:10 verbose #36636 > │ v156 │
00:08:10 verbose #36637 > │ let v158 : string = "fable_library_rust::String_::fromString($0)" │
00:08:10 verbose #36638 > │ let v159 : string = Fable.Core.RustInterop.emitRustExpr v157 v158 │
00:08:10 verbose #36639 > │ v159 │
00:08:10 verbose #36640 > │ #endif │
00:08:10 verbose #36641 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36642 > │ let v160 : string = null |> unbox<string> │
00:08:10 verbose #36643 > │ v160 │
00:08:10 verbose #36644 > │ #endif │
00:08:10 verbose #36645 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36646 > │ let v161 : string = null |> unbox<string> │
00:08:10 verbose #36647 > │ v161 │
00:08:10 verbose #36648 > │ #endif │
00:08:10 verbose #36649 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36650 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36651 > │ let v162 : string = "test.txt" │
00:08:10 verbose #36652 > │ let v163 : string = System.IO.Path.Combine (v137, v162) │
00:08:10 verbose #36653 > │ v163 │
00:08:10 verbose #36654 > │ #endif │
00:08:10 verbose #36655 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36656 > │ let v164 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:10 verbose #36657 > │ let v165 : string = method2(v137) │
00:08:10 verbose #36658 > │ let v166 : string = method12() │
00:08:10 verbose #36659 > │ let v167 : string = "v164.join(v165, v166)" │
00:08:10 verbose #36660 > │ let v168 : string = Fable.Core.JsInterop.emitJsExpr () v167 │
00:08:10 verbose #36661 > │ v168 │
00:08:10 verbose #36662 > │ #endif │
00:08:10 verbose #36663 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36664 > │ let v169 : string = Unchecked.defaultof<string> │
00:08:10 verbose #36665 > │ v169 │
00:08:10 verbose #36666 > │ #endif │
00:08:10 verbose #36667 > │ |> fun x -> _v140 <- Some x │
00:08:10 verbose #36668 > │ let v170 : string = _v140.Value │
00:08:10 verbose #36669 > │ let v171 : Async<struct (int64 * string)> option = None │
00:08:10 verbose #36670 > │ let v172 : bool = true in let mutable _v171 = v171 │
00:08:10 verbose #36671 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36672 > │ let v173 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:08:10 verbose #36673 > │ (int64 * string)>> │
00:08:10 verbose #36674 > │ v173 │
00:08:10 verbose #36675 > │ #endif │
00:08:10 verbose #36676 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36677 > │ let v174 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:08:10 verbose #36678 > │ (int64 * string)>> │
00:08:10 verbose #36679 > │ v174 │
00:08:10 verbose #36680 > │ #endif │
00:08:10 verbose #36681 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36682 > │ let v175 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:08:10 verbose #36683 > │ (int64 * string)>> │
00:08:10 verbose #36684 > │ v175 │
00:08:10 verbose #36685 > │ #endif │
00:08:10 verbose #36686 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36687 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36688 > │ let v176 : Async<struct (int64 * string)> option = None │
00:08:10 verbose #36689 > │ let mutable _v176 = v176 │
00:08:10 verbose #36690 > │ async { │
00:08:10 verbose #36691 > │ let v177 : US0 = US0_1 │
00:08:10 verbose #36692 > │ let v178 : (unit -> string) = closure12() │
00:08:10 verbose #36693 > │ let v179 : (unit -> string) = closure3() │
00:08:10 verbose #36694 > │ method4(v177, v178, v179) │
00:08:10 verbose #36695 > │ let v180 : Async<unit> option = None │
00:08:10 verbose #36696 > │ let v181 : bool = true in let mutable _v180 = v180 │
00:08:10 verbose #36697 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36698 > │ let v182 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36699 > │ v182 │
00:08:10 verbose #36700 > │ #endif │
00:08:10 verbose #36701 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36702 > │ let v183 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36703 > │ v183 │
00:08:10 verbose #36704 > │ #endif │
00:08:10 verbose #36705 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36706 > │ let v184 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36707 > │ v184 │
00:08:10 verbose #36708 > │ #endif │
00:08:10 verbose #36709 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36710 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36711 > │ let v185 : string = "0" │
00:08:10 verbose #36712 > │ let v186 : System.Threading.Tasks.Task = │
00:08:10 verbose #36713 > │ System.IO.File.WriteAllTextAsync (v170, v185) │
00:08:10 verbose #36714 > │ let v187 : Async<unit> option = None │
00:08:10 verbose #36715 > │ let v188 : bool = true in let mutable _v187 = v187 │
00:08:10 verbose #36716 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36717 > │ let v189 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36718 > │ v189 │
00:08:10 verbose #36719 > │ #endif │
00:08:10 verbose #36720 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36721 > │ let v190 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36722 > │ v190 │
00:08:10 verbose #36723 > │ #endif │
00:08:10 verbose #36724 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36725 > │ let v191 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36726 > │ v191 │
00:08:10 verbose #36727 > │ #endif │
00:08:10 verbose #36728 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36729 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36730 > │ let v192 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:10 verbose #36731 > │ Async.AwaitTask │
00:08:10 verbose #36732 > │ let v193 : Async<unit> = v192 v186 │
00:08:10 verbose #36733 > │ v193 │
00:08:10 verbose #36734 > │ #endif │
00:08:10 verbose #36735 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36736 > │ let v194 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36737 > │ v194 │
00:08:10 verbose #36738 > │ #endif │
00:08:10 verbose #36739 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36740 > │ let v195 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36741 > │ v195 │
00:08:10 verbose #36742 > │ #endif │
00:08:10 verbose #36743 > │ |> fun x -> _v187 <- Some x │
00:08:10 verbose #36744 > │ let v196 : Async<unit> = _v187.Value │
00:08:10 verbose #36745 > │ v196 │
00:08:10 verbose #36746 > │ #endif │
00:08:10 verbose #36747 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36748 > │ let v197 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36749 > │ v197 │
00:08:10 verbose #36750 > │ #endif │
00:08:10 verbose #36751 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36752 > │ let v198 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36753 > │ v198 │
00:08:10 verbose #36754 > │ #endif │
00:08:10 verbose #36755 > │ |> fun x -> _v180 <- Some x │
00:08:10 verbose #36756 > │ let v199 : Async<unit> = _v180.Value │
00:08:10 verbose #36757 > │ do! v199 │
00:08:10 verbose #36758 > │ let v200 : US0 = US0_1 │
00:08:10 verbose #36759 > │ let v201 : (unit -> string) = closure13() │
00:08:10 verbose #36760 > │ method4(v200, v201, v179) │
00:08:10 verbose #36761 > │ let v202 : Async<unit> option = None │
00:08:10 verbose #36762 > │ let v203 : bool = true in let mutable _v202 = v202 │
00:08:10 verbose #36763 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36764 > │ let v204 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36765 > │ v204 │
00:08:10 verbose #36766 > │ #endif │
00:08:10 verbose #36767 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36768 > │ let v205 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36769 > │ v205 │
00:08:10 verbose #36770 > │ #endif │
00:08:10 verbose #36771 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36772 > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36773 > │ v206 │
00:08:10 verbose #36774 > │ #endif │
00:08:10 verbose #36775 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36776 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36777 > │ let v207 : Async<unit> option = None │
00:08:10 verbose #36778 > │ let mutable _v207 = v207 │
00:08:10 verbose #36779 > │ async { │
00:08:10 verbose #36780 > │ let v208 : US0 = US0_1 │
00:08:10 verbose #36781 > │ let v209 : (unit -> string) = closure14() │
00:08:10 verbose #36782 > │ method4(v208, v209, v179) │
00:08:10 verbose #36783 > │ let v210 : System.IO.FileStream option = None │
00:08:10 verbose #36784 > │ let v211 : bool = true in let mutable _v210 = v210 │
00:08:10 verbose #36785 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36786 > │ let v212 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36787 > │ v212 │
00:08:10 verbose #36788 > │ #endif │
00:08:10 verbose #36789 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36790 > │ let v213 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36791 > │ v213 │
00:08:10 verbose #36792 > │ #endif │
00:08:10 verbose #36793 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36794 > │ let v214 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36795 > │ v214 │
00:08:10 verbose #36796 > │ #endif │
00:08:10 verbose #36797 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36798 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36799 > │ let v215 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:10 verbose #36800 > │ let v216 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:10 verbose #36801 > │ let v217 : System.IO.FileShare = System.IO.FileShare.None │
00:08:10 verbose #36802 > │ let v218 : System.IO.FileStream = new System.IO.FileStream (v170, v215, │
00:08:10 verbose #36803 > │ v216, v217) │
00:08:10 verbose #36804 > │ v218 │
00:08:10 verbose #36805 > │ #endif │
00:08:10 verbose #36806 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36807 > │ let v219 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:10 verbose #36808 > │ v219 │
00:08:10 verbose #36809 > │ #endif │
00:08:10 verbose #36810 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36811 > │ let v220 : System.IO.FileStream = │
00:08:10 verbose #36812 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:10 verbose #36813 > │ v220 │
00:08:10 verbose #36814 > │ #endif │
00:08:10 verbose #36815 > │ |> fun x -> _v210 <- Some x │
00:08:10 verbose #36816 > │ let v221 : System.IO.FileStream = _v210.Value │
00:08:10 verbose #36817 > │ use v221 = v221 │
00:08:10 verbose #36818 > │ let v222 : System.IO.FileStream = v221 │
00:08:10 verbose #36819 > │ let v223 : US0 = US0_1 │
00:08:10 verbose #36820 > │ let v224 : (unit -> string) = closure15() │
00:08:10 verbose #36821 > │ method4(v223, v224, v179) │
00:08:10 verbose #36822 > │ let v225 : Async<unit> option = None │
00:08:10 verbose #36823 > │ let v226 : bool = true in let mutable _v225 = v225 │
00:08:10 verbose #36824 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36825 > │ let v227 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36826 > │ v227 │
00:08:10 verbose #36827 > │ #endif │
00:08:10 verbose #36828 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36829 > │ let v228 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36830 > │ v228 │
00:08:10 verbose #36831 > │ #endif │
00:08:10 verbose #36832 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36833 > │ let v229 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36834 > │ v229 │
00:08:10 verbose #36835 > │ #endif │
00:08:10 verbose #36836 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36837 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36838 > │ let v230 : (int32 -> Async<unit>) = Async.Sleep │
00:08:10 verbose #36839 > │ let v231 : Async<unit> = v230 2000 │
00:08:10 verbose #36840 > │ v231 │
00:08:10 verbose #36841 > │ #endif │
00:08:10 verbose #36842 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36843 > │ let v232 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36844 > │ v232 │
00:08:10 verbose #36845 > │ #endif │
00:08:10 verbose #36846 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36847 > │ let v233 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36848 > │ v233 │
00:08:10 verbose #36849 > │ #endif │
00:08:10 verbose #36850 > │ |> fun x -> _v225 <- Some x │
00:08:10 verbose #36851 > │ let v234 : Async<unit> = _v225.Value │
00:08:10 verbose #36852 > │ do! v234 │
00:08:10 verbose #36853 > │ let v235 : US0 = US0_1 │
00:08:10 verbose #36854 > │ let v236 : (unit -> string) = closure16() │
00:08:10 verbose #36855 > │ method4(v235, v236, v179) │
00:08:10 verbose #36856 > │ let v237 : int64 = v222.Seek (0L, System.IO.SeekOrigin.Begin) │
00:08:10 verbose #36857 > │ let v238 : US0 = US0_1 │
00:08:10 verbose #36858 > │ let v239 : (unit -> string) = closure17() │
00:08:10 verbose #36859 > │ method4(v238, v239, v179) │
00:08:10 verbose #36860 > │ let v240 : (uint8 -> unit) = v222.WriteByte │
00:08:10 verbose #36861 > │ v240 49uy │
00:08:10 verbose #36862 > │ let v241 : US0 = US0_1 │
00:08:10 verbose #36863 > │ let v242 : (unit -> string) = closure18() │
00:08:10 verbose #36864 > │ method4(v241, v242, v179) │
00:08:10 verbose #36865 > │ let v243 : (System.IO.FileStream -> unit) = _.Flush() │
00:08:10 verbose #36866 > │ v243 v222 │
00:08:10 verbose #36867 > │ let v244 : US0 = US0_1 │
00:08:10 verbose #36868 > │ let v245 : (unit -> string) = closure19() │
00:08:10 verbose #36869 > │ method4(v244, v245, v179) │
00:08:10 verbose #36870 > │ } │
00:08:10 verbose #36871 > │ |> fun x -> _v207 <- Some x │
00:08:10 verbose #36872 > │ let v246 : Async<unit> = _v207 |> Option.get │
00:08:10 verbose #36873 > │ v246 │
00:08:10 verbose #36874 > │ #endif │
00:08:10 verbose #36875 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36876 > │ let v247 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36877 > │ v247 │
00:08:10 verbose #36878 > │ #endif │
00:08:10 verbose #36879 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36880 > │ let v248 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36881 > │ v248 │
00:08:10 verbose #36882 > │ #endif │
00:08:10 verbose #36883 > │ |> fun x -> _v202 <- Some x │
00:08:10 verbose #36884 > │ let v249 : Async<unit> = _v202.Value │
00:08:10 verbose #36885 > │ let v250 : Async<Async<unit>> option = None │
00:08:10 verbose #36886 > │ let v251 : bool = true in let mutable _v250 = v250 │
00:08:10 verbose #36887 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36888 > │ let v252 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:10 verbose #36889 > │ v252 │
00:08:10 verbose #36890 > │ #endif │
00:08:10 verbose #36891 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36892 > │ let v253 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:10 verbose #36893 > │ v253 │
00:08:10 verbose #36894 > │ #endif │
00:08:10 verbose #36895 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36896 > │ let v254 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:10 verbose #36897 > │ v254 │
00:08:10 verbose #36898 > │ #endif │
00:08:10 verbose #36899 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36900 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36901 > │ let v255 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:08:10 verbose #36902 > │ let v256 : Async<Async<unit>> = v255 v249 │
00:08:10 verbose #36903 > │ v256 │
00:08:10 verbose #36904 > │ #endif │
00:08:10 verbose #36905 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36906 > │ let v257 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:10 verbose #36907 > │ v257 │
00:08:10 verbose #36908 > │ #endif │
00:08:10 verbose #36909 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36910 > │ let v258 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:08:10 verbose #36911 > │ v258 │
00:08:10 verbose #36912 > │ #endif │
00:08:10 verbose #36913 > │ |> fun x -> _v250 <- Some x │
00:08:10 verbose #36914 > │ let v259 : Async<Async<unit>> = _v250.Value │
00:08:10 verbose #36915 > │ let! v259 = v259 │
00:08:10 verbose #36916 > │ let v260 : Async<unit> = v259 │
00:08:10 verbose #36917 > │ let v261 : US0 = US0_1 │
00:08:10 verbose #36918 > │ let v262 : (unit -> string) = closure20() │
00:08:10 verbose #36919 > │ method4(v261, v262, v179) │
00:08:10 verbose #36920 > │ let v263 : Async<unit> option = None │
00:08:10 verbose #36921 > │ let v264 : bool = true in let mutable _v263 = v263 │
00:08:10 verbose #36922 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36923 > │ let v265 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36924 > │ v265 │
00:08:10 verbose #36925 > │ #endif │
00:08:10 verbose #36926 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36927 > │ let v266 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36928 > │ v266 │
00:08:10 verbose #36929 > │ #endif │
00:08:10 verbose #36930 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36931 > │ let v267 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36932 > │ v267 │
00:08:10 verbose #36933 > │ #endif │
00:08:10 verbose #36934 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36935 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36936 > │ let v268 : (int32 -> Async<unit>) = Async.Sleep │
00:08:10 verbose #36937 > │ let v269 : Async<unit> = v268 1 │
00:08:10 verbose #36938 > │ v269 │
00:08:10 verbose #36939 > │ #endif │
00:08:10 verbose #36940 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36941 > │ let v270 : Async<unit> = null |> unbox<Async<unit>> │
00:08:10 verbose #36942 > │ v270 │
00:08:10 verbose #36943 > │ #endif │
00:08:10 verbose #36944 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36945 > │ let v271 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:10 verbose #36946 > │ v271 │
00:08:10 verbose #36947 > │ #endif │
00:08:10 verbose #36948 > │ |> fun x -> _v263 <- Some x │
00:08:10 verbose #36949 > │ let v272 : Async<unit> = _v263.Value │
00:08:10 verbose #36950 > │ do! v272 │
00:08:10 verbose #36951 > │ let v273 : US0 = US0_1 │
00:08:10 verbose #36952 > │ let v274 : (unit -> string) = closure21() │
00:08:10 verbose #36953 > │ method4(v273, v274, v179) │
00:08:10 verbose #36954 > │ let v275 : Async<int64> option = None │
00:08:10 verbose #36955 > │ let v276 : bool = true in let mutable _v275 = v275 │
00:08:10 verbose #36956 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36957 > │ let v277 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36958 > │ v277 │
00:08:10 verbose #36959 > │ #endif │
00:08:10 verbose #36960 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36961 > │ let v278 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36962 > │ v278 │
00:08:10 verbose #36963 > │ #endif │
00:08:10 verbose #36964 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #36965 > │ let v279 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36966 > │ v279 │
00:08:10 verbose #36967 > │ #endif │
00:08:10 verbose #36968 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #36969 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #36970 > │ let v280 : int64 = 0L │
00:08:10 verbose #36971 > │ let v281 : Async<int64> = method13(v170, v280) │
00:08:10 verbose #36972 > │ v281 │
00:08:10 verbose #36973 > │ #endif │
00:08:10 verbose #36974 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #36975 > │ let v282 : Async<int64> = null |> unbox<Async<int64>> │
00:08:10 verbose #36976 > │ v282 │
00:08:10 verbose #36977 > │ #endif │
00:08:10 verbose #36978 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #36979 > │ let v283 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:10 verbose #36980 > │ v283 │
00:08:10 verbose #36981 > │ #endif │
00:08:10 verbose #36982 > │ |> fun x -> _v275 <- Some x │
00:08:10 verbose #36983 > │ let v284 : Async<int64> = _v275.Value │
00:08:10 verbose #36984 > │ let! v284 = v284 │
00:08:10 verbose #36985 > │ let v285 : int64 = v284 │
00:08:10 verbose #36986 > │ let v286 : US0 = US0_1 │
00:08:10 verbose #36987 > │ let v287 : (unit -> string) = closure24() │
00:08:10 verbose #36988 > │ method4(v286, v287, v179) │
00:08:10 verbose #36989 > │ let v288 : Async<string> option = None │
00:08:10 verbose #36990 > │ let v289 : bool = true in let mutable _v288 = v288 │
00:08:10 verbose #36991 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #36992 > │ let v290 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #36993 > │ v290 │
00:08:10 verbose #36994 > │ #endif │
00:08:10 verbose #36995 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #36996 > │ let v291 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #36997 > │ v291 │
00:08:10 verbose #36998 > │ #endif │
00:08:10 verbose #36999 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37000 > │ let v292 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #37001 > │ v292 │
00:08:10 verbose #37002 > │ #endif │
00:08:10 verbose #37003 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37004 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37005 > │ let v293 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:10 verbose #37006 > │ System.IO.File.ReadAllTextAsync │
00:08:10 verbose #37007 > │ let v294 : System.Threading.Tasks.Task<string> = v293 v170 │
00:08:10 verbose #37008 > │ let v295 : Async<string> option = None │
00:08:10 verbose #37009 > │ let v296 : bool = true in let mutable _v295 = v295 │
00:08:10 verbose #37010 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37011 > │ let v297 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #37012 > │ v297 │
00:08:10 verbose #37013 > │ #endif │
00:08:10 verbose #37014 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37015 > │ let v298 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #37016 > │ v298 │
00:08:10 verbose #37017 > │ #endif │
00:08:10 verbose #37018 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37019 > │ let v299 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #37020 > │ v299 │
00:08:10 verbose #37021 > │ #endif │
00:08:10 verbose #37022 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37023 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37024 > │ let v300 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:10 verbose #37025 > │ Async.AwaitTask │
00:08:10 verbose #37026 > │ let v301 : Async<string> = v300 v294 │
00:08:10 verbose #37027 > │ v301 │
00:08:10 verbose #37028 > │ #endif │
00:08:10 verbose #37029 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37030 > │ let v302 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #37031 > │ v302 │
00:08:10 verbose #37032 > │ #endif │
00:08:10 verbose #37033 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37034 > │ let v303 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:10 verbose #37035 > │ v303 │
00:08:10 verbose #37036 > │ #endif │
00:08:10 verbose #37037 > │ |> fun x -> _v295 <- Some x │
00:08:10 verbose #37038 > │ let v304 : Async<string> = _v295.Value │
00:08:10 verbose #37039 > │ v304 │
00:08:10 verbose #37040 > │ #endif │
00:08:10 verbose #37041 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37042 > │ let v305 : Async<string> = null |> unbox<Async<string>> │
00:08:10 verbose #37043 > │ v305 │
00:08:10 verbose #37044 > │ #endif │
00:08:10 verbose #37045 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37046 > │ let v306 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:10 verbose #37047 > │ v306 │
00:08:10 verbose #37048 > │ #endif │
00:08:10 verbose #37049 > │ |> fun x -> _v288 <- Some x │
00:08:10 verbose #37050 > │ let v307 : Async<string> = _v288.Value │
00:08:10 verbose #37051 > │ let! v307 = v307 │
00:08:10 verbose #37052 > │ let v308 : string = v307 │
00:08:10 verbose #37053 > │ let v309 : US0 = US0_1 │
00:08:10 verbose #37054 > │ let v310 : (unit -> string) = closure25() │
00:08:10 verbose #37055 > │ method4(v309, v310, v179) │
00:08:10 verbose #37056 > │ do! v260 │
00:08:10 verbose #37057 > │ let v311 : US0 = US0_1 │
00:08:10 verbose #37058 > │ let v312 : (unit -> string) = closure26() │
00:08:10 verbose #37059 > │ method4(v311, v312, v179) │
00:08:10 verbose #37060 > │ return struct (v285, v308) │
00:08:10 verbose #37061 > │ } │
00:08:10 verbose #37062 > │ |> fun x -> _v176 <- Some x │
00:08:10 verbose #37063 > │ let v313 : Async<struct (int64 * string)> = _v176 |> Option.get │
00:08:10 verbose #37064 > │ v313 │
00:08:10 verbose #37065 > │ #endif │
00:08:10 verbose #37066 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37067 > │ let v314 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:08:10 verbose #37068 > │ (int64 * string)>> │
00:08:10 verbose #37069 > │ v314 │
00:08:10 verbose #37070 > │ #endif │
00:08:10 verbose #37071 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37072 > │ let v315 : Async<struct (int64 * string)> = │
00:08:10 verbose #37073 > │ Unchecked.defaultof<Async<struct (int64 * string)>> │
00:08:10 verbose #37074 > │ v315 │
00:08:10 verbose #37075 > │ #endif │
00:08:10 verbose #37076 > │ |> fun x -> _v171 <- Some x │
00:08:10 verbose #37077 > │ let v316 : Async<struct (int64 * string)> = _v171.Value │
00:08:10 verbose #37078 > │ let v317 : Async<US3> option = None │
00:08:10 verbose #37079 > │ let v318 : bool = true in let mutable _v317 = v317 │
00:08:10 verbose #37080 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37081 > │ let v319 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37082 > │ v319 │
00:08:10 verbose #37083 > │ #endif │
00:08:10 verbose #37084 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37085 > │ let v320 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37086 > │ v320 │
00:08:10 verbose #37087 > │ #endif │
00:08:10 verbose #37088 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37089 > │ let v321 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37090 > │ v321 │
00:08:10 verbose #37091 > │ #endif │
00:08:10 verbose #37092 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37093 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37094 > │ let v322 : Async<US3> option = None │
00:08:10 verbose #37095 > │ let v323 : bool = true in let mutable _v322 = v322 │
00:08:10 verbose #37096 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37097 > │ let v324 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37098 > │ v324 │
00:08:10 verbose #37099 > │ #endif │
00:08:10 verbose #37100 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37101 > │ let v325 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37102 > │ v325 │
00:08:10 verbose #37103 > │ #endif │
00:08:10 verbose #37104 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37105 > │ let v326 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37106 > │ v326 │
00:08:10 verbose #37107 > │ #endif │
00:08:10 verbose #37108 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37109 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37110 > │ let v327 : Async<US3> option = None │
00:08:10 verbose #37111 > │ let mutable _v327 = v327 │
00:08:10 verbose #37112 > │ async { │
00:08:10 verbose #37113 > │ let v328 : Async<Async<struct (int64 * string)>> option = None │
00:08:10 verbose #37114 > │ let v329 : bool = true in let mutable _v328 = v328 │
00:08:10 verbose #37115 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37116 > │ let v330 : Async<Async<struct (int64 * string)>> = null |> │
00:08:10 verbose #37117 > │ unbox<Async<Async<struct (int64 * string)>>> │
00:08:10 verbose #37118 > │ v330 │
00:08:10 verbose #37119 > │ #endif │
00:08:10 verbose #37120 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37121 > │ let v331 : Async<Async<struct (int64 * string)>> = null |> │
00:08:10 verbose #37122 > │ unbox<Async<Async<struct (int64 * string)>>> │
00:08:10 verbose #37123 > │ v331 │
00:08:10 verbose #37124 > │ #endif │
00:08:10 verbose #37125 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37126 > │ let v332 : Async<Async<struct (int64 * string)>> = null |> │
00:08:10 verbose #37127 > │ unbox<Async<Async<struct (int64 * string)>>> │
00:08:10 verbose #37128 > │ v332 │
00:08:10 verbose #37129 > │ #endif │
00:08:10 verbose #37130 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37131 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37132 > │ let v333 : Async<Async<struct (int64 * string)>> = Async.StartChild │
00:08:10 verbose #37133 > │ (v316, 3000) │
00:08:10 verbose #37134 > │ v333 │
00:08:10 verbose #37135 > │ #endif │
00:08:10 verbose #37136 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37137 > │ let v334 : Async<Async<struct (int64 * string)>> = null |> │
00:08:10 verbose #37138 > │ unbox<Async<Async<struct (int64 * string)>>> │
00:08:10 verbose #37139 > │ v334 │
00:08:10 verbose #37140 > │ #endif │
00:08:10 verbose #37141 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37142 > │ let v335 : Async<Async<struct (int64 * string)>> = │
00:08:10 verbose #37143 > │ Unchecked.defaultof<Async<Async<struct (int64 * string)>>> │
00:08:10 verbose #37144 > │ v335 │
00:08:10 verbose #37145 > │ #endif │
00:08:10 verbose #37146 > │ |> fun x -> _v328 <- Some x │
00:08:10 verbose #37147 > │ let v336 : Async<Async<struct (int64 * string)>> = _v328.Value │
00:08:10 verbose #37148 > │ let! v336 = v336 │
00:08:10 verbose #37149 > │ let v337 : Async<struct (int64 * string)> = v336 │
00:08:10 verbose #37150 > │ let v338 : Async<Choice<struct (int64 * string), exn>> option = None │
00:08:10 verbose #37151 > │ let v339 : bool = true in let mutable _v338 = v338 │
00:08:10 verbose #37152 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37153 > │ let v340 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:08:10 verbose #37154 > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:08:10 verbose #37155 > │ v340 │
00:08:10 verbose #37156 > │ #endif │
00:08:10 verbose #37157 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37158 > │ let v341 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:08:10 verbose #37159 > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:08:10 verbose #37160 > │ v341 │
00:08:10 verbose #37161 > │ #endif │
00:08:10 verbose #37162 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37163 > │ let v342 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:08:10 verbose #37164 > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:08:10 verbose #37165 > │ v342 │
00:08:10 verbose #37166 > │ #endif │
00:08:10 verbose #37167 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37168 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37169 > │ let v343 : (Async<struct (int64 * string)> -> Async<Choice<struct (int64 │
00:08:10 verbose #37170 > │ * string), exn>>) = Async.Catch │
00:08:10 verbose #37171 > │ let v344 : Async<Choice<struct (int64 * string), exn>> = v343 v337 │
00:08:10 verbose #37172 > │ v344 │
00:08:10 verbose #37173 > │ #endif │
00:08:10 verbose #37174 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37175 > │ let v345 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:08:10 verbose #37176 > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:08:10 verbose #37177 > │ v345 │
00:08:10 verbose #37178 > │ #endif │
00:08:10 verbose #37179 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37180 > │ let v346 : Async<Choice<struct (int64 * string), exn>> = │
00:08:10 verbose #37181 > │ Unchecked.defaultof<Async<Choice<struct (int64 * string), exn>>> │
00:08:10 verbose #37182 > │ v346 │
00:08:10 verbose #37183 > │ #endif │
00:08:10 verbose #37184 > │ |> fun x -> _v338 <- Some x │
00:08:10 verbose #37185 > │ let v347 : Async<Choice<struct (int64 * string), exn>> = _v338.Value │
00:08:10 verbose #37186 > │ let v348 : Async<US4> option = None │
00:08:10 verbose #37187 > │ let v349 : bool = true in let mutable _v348 = v348 │
00:08:10 verbose #37188 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37189 > │ let v350 : Async<US4> = null |> unbox<Async<US4>> │
00:08:10 verbose #37190 > │ v350 │
00:08:10 verbose #37191 > │ #endif │
00:08:10 verbose #37192 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37193 > │ let v351 : Async<US4> = null |> unbox<Async<US4>> │
00:08:10 verbose #37194 > │ v351 │
00:08:10 verbose #37195 > │ #endif │
00:08:10 verbose #37196 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37197 > │ let v352 : Async<US4> = null |> unbox<Async<US4>> │
00:08:10 verbose #37198 > │ v352 │
00:08:10 verbose #37199 > │ #endif │
00:08:10 verbose #37200 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37201 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37202 > │ let v353 : Async<US4> option = None │
00:08:10 verbose #37203 > │ let mutable _v353 = v353 │
00:08:10 verbose #37204 > │ async { │
00:08:10 verbose #37205 > │ let! v347 = v347 │
00:08:10 verbose #37206 > │ let v354 : Choice<struct (int64 * string), exn> = v347 │
00:08:10 verbose #37207 > │ let v355 : US4 option = None │
00:08:10 verbose #37208 > │ let v356 : bool = true in let mutable _v355 = v355 │
00:08:10 verbose #37209 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37210 > │ let v357 : US4 = null |> unbox<US4> │
00:08:10 verbose #37211 > │ v357 │
00:08:10 verbose #37212 > │ #endif │
00:08:10 verbose #37213 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37214 > │ let v358 : US4 = null |> unbox<US4> │
00:08:10 verbose #37215 > │ v358 │
00:08:10 verbose #37216 > │ #endif │
00:08:10 verbose #37217 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37218 > │ let v359 : US4 = null |> unbox<US4> │
00:08:10 verbose #37219 > │ v359 │
00:08:10 verbose #37220 > │ #endif │
00:08:10 verbose #37221 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37222 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37223 > │ let v360 : (struct (int64 * string) -> US4) = closure27() │
00:08:10 verbose #37224 > │ let v361 : (exn -> US4) = closure28() │
00:08:10 verbose #37225 > │ let v362 : US4 = match v354 with Choice1Of2 x -> v360 x | Choice2Of2 x │
00:08:10 verbose #37226 > │ -> v361 x │
00:08:10 verbose #37227 > │ v362 │
00:08:10 verbose #37228 > │ #endif │
00:08:10 verbose #37229 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37230 > │ let v363 : US4 = null |> unbox<US4> │
00:08:10 verbose #37231 > │ v363 │
00:08:10 verbose #37232 > │ #endif │
00:08:10 verbose #37233 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37234 > │ let v364 : US4 = Unchecked.defaultof<US4> │
00:08:10 verbose #37235 > │ v364 │
00:08:10 verbose #37236 > │ #endif │
00:08:10 verbose #37237 > │ |> fun x -> _v355 <- Some x │
00:08:10 verbose #37238 > │ let v365 : US4 = _v355.Value │
00:08:10 verbose #37239 > │ return v365 │
00:08:10 verbose #37240 > │ } │
00:08:10 verbose #37241 > │ |> fun x -> _v353 <- Some x │
00:08:10 verbose #37242 > │ let v366 : Async<US4> = _v353 |> Option.get │
00:08:10 verbose #37243 > │ v366 │
00:08:10 verbose #37244 > │ #endif │
00:08:10 verbose #37245 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37246 > │ let v367 : Async<US4> = null |> unbox<Async<US4>> │
00:08:10 verbose #37247 > │ v367 │
00:08:10 verbose #37248 > │ #endif │
00:08:10 verbose #37249 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37250 > │ let v368 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:08:10 verbose #37251 > │ v368 │
00:08:10 verbose #37252 > │ #endif │
00:08:10 verbose #37253 > │ |> fun x -> _v348 <- Some x │
00:08:10 verbose #37254 > │ let v369 : Async<US4> = _v348.Value │
00:08:10 verbose #37255 > │ let v370 : Async<US5> option = None │
00:08:10 verbose #37256 > │ let v371 : bool = true in let mutable _v370 = v370 │
00:08:10 verbose #37257 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37258 > │ let v372 : Async<US5> = null |> unbox<Async<US5>> │
00:08:10 verbose #37259 > │ v372 │
00:08:10 verbose #37260 > │ #endif │
00:08:10 verbose #37261 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37262 > │ let v373 : Async<US5> = null |> unbox<Async<US5>> │
00:08:10 verbose #37263 > │ v373 │
00:08:10 verbose #37264 > │ #endif │
00:08:10 verbose #37265 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37266 > │ let v374 : Async<US5> = null |> unbox<Async<US5>> │
00:08:10 verbose #37267 > │ v374 │
00:08:10 verbose #37268 > │ #endif │
00:08:10 verbose #37269 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37270 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37271 > │ let v375 : Async<US5> option = None │
00:08:10 verbose #37272 > │ let mutable _v375 = v375 │
00:08:10 verbose #37273 > │ async { │
00:08:10 verbose #37274 > │ let! v369 = v369 │
00:08:10 verbose #37275 > │ let v376 : US4 = v369 │
00:08:10 verbose #37276 > │ let v383 : US5 = │
00:08:10 verbose #37277 > │ match v376 with │
00:08:10 verbose #37278 > │ | US4_0(v377, v378) -> (* Choice1Of2 *) │
00:08:10 verbose #37279 > │ US5_0(v377, v378) │
00:08:10 verbose #37280 > │ | US4_1(v380) -> (* Choice2Of2 *) │
00:08:10 verbose #37281 > │ US5_1(v380) │
00:08:10 verbose #37282 > │ return v383 │
00:08:10 verbose #37283 > │ } │
00:08:10 verbose #37284 > │ |> fun x -> _v375 <- Some x │
00:08:10 verbose #37285 > │ let v384 : Async<US5> = _v375 |> Option.get │
00:08:10 verbose #37286 > │ v384 │
00:08:10 verbose #37287 > │ #endif │
00:08:10 verbose #37288 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37289 > │ let v385 : Async<US5> = null |> unbox<Async<US5>> │
00:08:10 verbose #37290 > │ v385 │
00:08:10 verbose #37291 > │ #endif │
00:08:10 verbose #37292 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37293 > │ let v386 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:08:10 verbose #37294 > │ v386 │
00:08:10 verbose #37295 > │ #endif │
00:08:10 verbose #37296 > │ |> fun x -> _v370 <- Some x │
00:08:10 verbose #37297 > │ let v387 : Async<US5> = _v370.Value │
00:08:10 verbose #37298 > │ let v388 : Async<US3> option = None │
00:08:10 verbose #37299 > │ let v389 : bool = true in let mutable _v388 = v388 │
00:08:10 verbose #37300 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37301 > │ let v390 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37302 > │ v390 │
00:08:10 verbose #37303 > │ #endif │
00:08:10 verbose #37304 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37305 > │ let v391 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37306 > │ v391 │
00:08:10 verbose #37307 > │ #endif │
00:08:10 verbose #37308 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37309 > │ let v392 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37310 > │ v392 │
00:08:10 verbose #37311 > │ #endif │
00:08:10 verbose #37312 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37313 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37314 > │ let v393 : Async<US3> option = None │
00:08:10 verbose #37315 > │ let mutable _v393 = v393 │
00:08:10 verbose #37316 > │ async { │
00:08:10 verbose #37317 > │ let! v387 = v387 │
00:08:10 verbose #37318 > │ let v394 : US5 = v387 │
00:08:10 verbose #37319 > │ let v421 : US3 = │
00:08:10 verbose #37320 > │ match v394 with │
00:08:10 verbose #37321 > │ | US5_1(v398) -> (* Error *) │
00:08:10 verbose #37322 > │ let v399 : string = $"%A{v398}" │
00:08:10 verbose #37323 > │ let v400 : string = "System.TimeoutException" │
00:08:10 verbose #37324 > │ let v401 : bool = v399.Contains v400 │
00:08:10 verbose #37325 > │ if v401 then │
00:08:10 verbose #37326 > │ let v402 : US0 = US0_1 │
00:08:10 verbose #37327 > │ let v403 : (unit -> string) = closure29() │
00:08:10 verbose #37328 > │ let v404 : (unit -> string) = closure30() │
00:08:10 verbose #37329 > │ method4(v402, v403, v404) │
00:08:10 verbose #37330 > │ US3_1 │
00:08:10 verbose #37331 > │ else │
00:08:10 verbose #37332 > │ let v406 : string option = None │
00:08:10 verbose #37333 > │ let v407 : bool = true in let mutable _v406 = v406 │
00:08:10 verbose #37334 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37335 > │ let v408 : string = $"%A{v398}" │
00:08:10 verbose #37336 > │ v408 │
00:08:10 verbose #37337 > │ #endif │
00:08:10 verbose #37338 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37339 > │ let v409 : string = $"%A{v398}" │
00:08:10 verbose #37340 > │ v409 │
00:08:10 verbose #37341 > │ #endif │
00:08:10 verbose #37342 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37343 > │ let v410 : string = $"%A{v398}" │
00:08:10 verbose #37344 > │ v410 │
00:08:10 verbose #37345 > │ #endif │
00:08:10 verbose #37346 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37347 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37348 > │ let v411 : string = $"{v398.GetType ()}: {v398.Message}" │
00:08:10 verbose #37349 > │ v411 │
00:08:10 verbose #37350 > │ #endif │
00:08:10 verbose #37351 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37352 > │ let v412 : string = $"%A{v398}" │
00:08:10 verbose #37353 > │ v412 │
00:08:10 verbose #37354 > │ #endif │
00:08:10 verbose #37355 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:10 verbose #37356 > │ FABLE_COMPILER_DART │
00:08:10 verbose #37357 > │ let v413 : string = Unchecked.defaultof<string> │
00:08:10 verbose #37358 > │ v413 │
00:08:10 verbose #37359 > │ #endif │
00:08:10 verbose #37360 > │ |> fun x -> _v406 <- Some x │
00:08:10 verbose #37361 > │ let v414 : string = _v406.Value │
00:08:10 verbose #37362 > │ let v415 : US0 = US0_4 │
00:08:10 verbose #37363 > │ let v416 : (unit -> string) = closure31(v414) │
00:08:10 verbose #37364 > │ let v417 : (unit -> string) = closure30() │
00:08:10 verbose #37365 > │ method4(v415, v416, v417) │
00:08:10 verbose #37366 > │ US3_1 │
00:08:10 verbose #37367 > │ | US5_0(v395, v396) -> (* Ok *) │
00:08:10 verbose #37368 > │ US3_0(v395, v396) │
00:08:10 verbose #37369 > │ return v421 │
00:08:10 verbose #37370 > │ } │
00:08:10 verbose #37371 > │ |> fun x -> _v393 <- Some x │
00:08:10 verbose #37372 > │ let v422 : Async<US3> = _v393 |> Option.get │
00:08:10 verbose #37373 > │ v422 │
00:08:10 verbose #37374 > │ #endif │
00:08:10 verbose #37375 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37376 > │ let v423 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37377 > │ v423 │
00:08:10 verbose #37378 > │ #endif │
00:08:10 verbose #37379 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37380 > │ let v424 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:10 verbose #37381 > │ v424 │
00:08:10 verbose #37382 > │ #endif │
00:08:10 verbose #37383 > │ |> fun x -> _v388 <- Some x │
00:08:10 verbose #37384 > │ let v425 : Async<US3> = _v388.Value │
00:08:10 verbose #37385 > │ return! v425 │
00:08:10 verbose #37386 > │ } │
00:08:10 verbose #37387 > │ |> fun x -> _v327 <- Some x │
00:08:10 verbose #37388 > │ let v426 : Async<US3> = _v327 |> Option.get │
00:08:10 verbose #37389 > │ v426 │
00:08:10 verbose #37390 > │ #endif │
00:08:10 verbose #37391 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37392 > │ let v427 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37393 > │ v427 │
00:08:10 verbose #37394 > │ #endif │
00:08:10 verbose #37395 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37396 > │ let v428 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:10 verbose #37397 > │ v428 │
00:08:10 verbose #37398 > │ #endif │
00:08:10 verbose #37399 > │ |> fun x -> _v322 <- Some x │
00:08:10 verbose #37400 > │ let v429 : Async<US3> = _v322.Value │
00:08:10 verbose #37401 > │ v429 │
00:08:10 verbose #37402 > │ #endif │
00:08:10 verbose #37403 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37404 > │ let v430 : Async<US3> = null |> unbox<Async<US3>> │
00:08:10 verbose #37405 > │ v430 │
00:08:10 verbose #37406 > │ #endif │
00:08:10 verbose #37407 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37408 > │ let v431 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:10 verbose #37409 > │ v431 │
00:08:10 verbose #37410 > │ #endif │
00:08:10 verbose #37411 > │ |> fun x -> _v317 <- Some x │
00:08:10 verbose #37412 > │ let v432 : Async<US3> = _v317.Value │
00:08:10 verbose #37413 > │ let v433 : US3 option = None │
00:08:10 verbose #37414 > │ let v434 : bool = true in let mutable _v433 = v433 │
00:08:10 verbose #37415 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37416 > │ let v435 : US3 = null |> unbox<US3> │
00:08:10 verbose #37417 > │ v435 │
00:08:10 verbose #37418 > │ #endif │
00:08:10 verbose #37419 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37420 > │ let v436 : US3 = null |> unbox<US3> │
00:08:10 verbose #37421 > │ v436 │
00:08:10 verbose #37422 > │ #endif │
00:08:10 verbose #37423 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37424 > │ let v437 : US3 = null |> unbox<US3> │
00:08:10 verbose #37425 > │ v437 │
00:08:10 verbose #37426 > │ #endif │
00:08:10 verbose #37427 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37428 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37429 > │ let v438 : (Async<US3> -> US3) = Async.RunSynchronously │
00:08:10 verbose #37430 > │ let v439 : US3 = v438 v432 │
00:08:10 verbose #37431 > │ v439 │
00:08:10 verbose #37432 > │ #endif │
00:08:10 verbose #37433 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37434 > │ let v440 : US3 = null |> unbox<US3> │
00:08:10 verbose #37435 > │ v440 │
00:08:10 verbose #37436 > │ #endif │
00:08:10 verbose #37437 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:10 verbose #37438 > │ let v441 : US3 = Unchecked.defaultof<US3> │
00:08:10 verbose #37439 > │ v441 │
00:08:10 verbose #37440 > │ #endif │
00:08:10 verbose #37441 > │ |> fun x -> _v433 <- Some x │
00:08:10 verbose #37442 > │ let v442 : US3 = _v433.Value │
00:08:10 verbose #37443 > │ let v490 : bool = │
00:08:10 verbose #37444 > │ match v442 with │
00:08:10 verbose #37445 > │ | US3_0(v443, v444) -> (* Some *) │
00:08:10 verbose #37446 > │ let v445 : bool option = None │
00:08:10 verbose #37447 > │ let v446 : bool = true in let mutable _v445 = v445 │
00:08:10 verbose #37448 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37449 > │ let v447 : bool = null |> unbox<bool> │
00:08:10 verbose #37450 > │ v447 │
00:08:10 verbose #37451 > │ #endif │
00:08:10 verbose #37452 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37453 > │ let v448 : bool = null |> unbox<bool> │
00:08:10 verbose #37454 > │ v448 │
00:08:10 verbose #37455 > │ #endif │
00:08:10 verbose #37456 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37457 > │ let v449 : bool = null |> unbox<bool> │
00:08:10 verbose #37458 > │ v449 │
00:08:10 verbose #37459 > │ #endif │
00:08:10 verbose #37460 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37461 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37462 > │ let v450 : System.Runtime.InteropServices.OSPlatform = │
00:08:10 verbose #37463 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:10 verbose #37464 > │ let v451 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:10 verbose #37465 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:10 verbose #37466 > │ let v452 : bool = v451 v450 │
00:08:10 verbose #37467 > │ v452 │
00:08:10 verbose #37468 > │ #endif │
00:08:10 verbose #37469 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37470 > │ let v453 : bool = null |> unbox<bool> │
00:08:10 verbose #37471 > │ v453 │
00:08:10 verbose #37472 > │ #endif │
00:08:10 verbose #37473 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:10 verbose #37474 > │ FABLE_COMPILER_DART │
00:08:10 verbose #37475 > │ let v454 : bool = Unchecked.defaultof<bool> │
00:08:10 verbose #37476 > │ v454 │
00:08:10 verbose #37477 > │ #endif │
00:08:10 verbose #37478 > │ |> fun x -> _v445 <- Some x │
00:08:10 verbose #37479 > │ let v455 : bool = _v445.Value │
00:08:10 verbose #37480 > │ let v456 : int64 = │
00:08:10 verbose #37481 > │ if v455 then │
00:08:10 verbose #37482 > │ 50L │
00:08:10 verbose #37483 > │ else │
00:08:10 verbose #37484 > │ 100L │
00:08:10 verbose #37485 > │ let v457 : bool option = None │
00:08:10 verbose #37486 > │ let v458 : bool = true in let mutable _v457 = v457 │
00:08:10 verbose #37487 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:10 verbose #37488 > │ let v459 : bool = null |> unbox<bool> │
00:08:10 verbose #37489 > │ v459 │
00:08:10 verbose #37490 > │ #endif │
00:08:10 verbose #37491 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:10 verbose #37492 > │ let v460 : bool = null |> unbox<bool> │
00:08:10 verbose #37493 > │ v460 │
00:08:10 verbose #37494 > │ #endif │
00:08:10 verbose #37495 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:10 verbose #37496 > │ let v461 : bool = null |> unbox<bool> │
00:08:10 verbose #37497 > │ v461 │
00:08:10 verbose #37498 > │ #endif │
00:08:10 verbose #37499 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:10 verbose #37500 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:10 verbose #37501 > │ let v462 : System.Runtime.InteropServices.OSPlatform = │
00:08:10 verbose #37502 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:10 verbose #37503 > │ let v463 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:10 verbose #37504 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:10 verbose #37505 > │ let v464 : bool = v463 v462 │
00:08:10 verbose #37506 > │ v464 │
00:08:10 verbose #37507 > │ #endif │
00:08:10 verbose #37508 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:10 verbose #37509 > │ let v465 : bool = null |> unbox<bool> │
00:08:10 verbose #37510 > │ v465 │
00:08:10 verbose #37511 > │ #endif │
00:08:10 verbose #37512 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:10 verbose #37513 > │ FABLE_COMPILER_DART │
00:08:10 verbose #37514 > │ let v466 : bool = Unchecked.defaultof<bool> │
00:08:10 verbose #37515 > │ v466 │
00:08:10 verbose #37516 > │ #endif │
00:08:10 verbose #37517 > │ |> fun x -> _v457 <- Some x │
00:08:10 verbose #37518 > │ let v467 : bool = _v457.Value │
00:08:10 verbose #37519 > │ let v468 : int64 = │
00:08:10 verbose #37520 > │ if v467 then │
00:08:10 verbose #37521 > │ 150L │
00:08:10 verbose #37522 > │ else │
00:08:10 verbose #37523 > │ 200L │
00:08:10 verbose #37524 > │ let v469 : string = $"%A{v443}" │
00:08:10 verbose #37525 > │ System.Console.WriteLine v469 │
00:08:10 verbose #37526 > │ let v470 : string = $"%A{v443}" │
00:08:10 verbose #37527 > │ System.Console.WriteLine v470 │
00:08:10 verbose #37528 > │ let v471 : bool = v443 >= v456 │
00:08:10 verbose #37529 > │ let v473 : bool = │
00:08:10 verbose #37530 > │ if v471 then │
00:08:10 verbose #37531 > │ true │
00:08:10 verbose #37532 > │ else │
00:08:10 verbose #37533 > │ method14(v471) │
00:08:10 verbose #37534 > │ let v474 : string = $"__expect / actual: %A{v443} / expected: │
00:08:10 verbose #37535 > │ %A{v456}" │
00:08:10 verbose #37536 > │ let v475 : bool = v473 = false │
00:08:10 verbose #37537 > │ if v475 then │
00:08:10 verbose #37538 > │ failwith<unit> v474 │
00:08:10 verbose #37539 > │ let v476 : string = $"%A{v443}" │
00:08:10 verbose #37540 > │ System.Console.WriteLine v476 │
00:08:10 verbose #37541 > │ let v477 : bool = v443 <= v468 │
00:08:10 verbose #37542 > │ let v479 : bool = │
00:08:10 verbose #37543 > │ if v477 then │
00:08:10 verbose #37544 > │ true │
00:08:10 verbose #37545 > │ else │
00:08:10 verbose #37546 > │ method14(v477) │
00:08:10 verbose #37547 > │ let v480 : string = $"__expect / actual: %A{v443} / expected: │
00:08:10 verbose #37548 > │ %A{v468}" │
00:08:10 verbose #37549 > │ let v481 : bool = v479 = false │
00:08:10 verbose #37550 > │ if v481 then │
00:08:10 verbose #37551 > │ failwith<unit> v480 │
00:08:10 verbose #37552 > │ let v482 : string = $"__expect / actual: %A{v443} / expected: │
00:08:10 verbose #37553 > │ %A{struct (v456, v468)}" │
00:08:10 verbose #37554 > │ let v483 : string = method15() │
00:08:10 verbose #37555 > │ let v484 : string = $"%A{v444}" │
00:08:10 verbose #37556 > │ System.Console.WriteLine v484 │
00:08:10 verbose #37557 > │ let v485 : bool = v444 = v483 │
00:08:10 verbose #37558 > │ let v487 : bool = │
00:08:10 verbose #37559 > │ if v485 then │
00:08:10 verbose #37560 > │ true │
00:08:10 verbose #37561 > │ else │
00:08:10 verbose #37562 > │ method14(v485) │
00:08:10 verbose #37563 > │ let v488 : string = $"__expect / actual: %A{v444} / expected: │
00:08:10 verbose #37564 > │ %A{v483}" │
00:08:10 verbose #37565 > │ let v489 : bool = v487 = false │
00:08:10 verbose #37566 > │ if v489 then │
00:08:10 verbose #37567 > │ failwith<unit> v488 │
00:08:10 verbose #37568 > │ true │
00:08:10 verbose #37569 > │ | _ -> │
00:08:10 verbose #37570 > │ false │
00:08:10 verbose #37571 > │ let v491 : string = $"%A{v490}" │
00:08:10 verbose #37572 > │ System.Console.WriteLine v491 │
00:08:10 verbose #37573 > │ let v493 : bool = │
00:08:10 verbose #37574 > │ if v490 then │
00:08:10 verbose #37575 > │ true │
00:08:10 verbose #37576 > │ else │
00:08:10 verbose #37577 > │ method14(v490) │
00:08:10 verbose #37578 > │ let v494 : string = $"__expect / actual: %A{v490} / expected: %A{true}" │
00:08:10 verbose #37579 > │ let v495 : bool = v493 = false │
00:08:10 verbose #37580 > │ if v495 then │
00:08:10 verbose #37581 > │ failwith<unit> v494 │
00:08:10 verbose #37582 > │ method0() │
00:08:10 verbose #37583 > │ │
00:08:10 verbose #37584 > │ 00:00:00 debug #1 1 │
00:08:10 verbose #37585 > │ 00:00:00 debug #2 2 │
00:08:10 verbose #37586 > │ 00:00:00 debug #3 3 │
00:08:10 verbose #37587 > │ 00:00:00 debug #4 _1 │
00:08:10 verbose #37588 > │ 00:00:00 debug #5 _2 │
00:08:10 verbose #37589 > │ 00:00:00 debug #6 4 │
00:08:10 verbose #37590 > │ 00:00:01 debug #7 file_system.wait_for_file_access / path: test.txt / retry: │
00:08:10 verbose #37591 > │ 100 / ex: System.IO.IOException: The process cannot access the file │
00:08:10 verbose #37592 > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0140-3857-5734-5aa5 │
00:08:10 verbose #37593 > │ 178083a3\test.txt' because it is being used by another process. │
00:08:10 verbose #37594 > │ 00:00:01 debug #8 _3 │
00:08:10 verbose #37595 > │ 00:00:01 debug #9 _4 │
00:08:10 verbose #37596 > │ 00:00:02 debug #10 _5 │
00:08:10 verbose #37597 > │ 00:00:02 debug #11 _6 │
00:08:10 verbose #37598 > │ 00:00:02 debug #12 5 │
00:08:10 verbose #37599 > │ 00:00:02 debug #13 6 │
00:08:10 verbose #37600 > │ 00:00:02 debug #14 7 │
00:08:10 verbose #37601 > │ 127L │
00:08:10 verbose #37602 > │ 127L │
00:08:10 verbose #37603 > │ 127L │
00:08:10 verbose #37604 > │ "1" │
00:08:10 verbose #37605 > │ true │
00:08:10 verbose #37606 > │ │
00:08:10 verbose #37607 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:10 verbose #37608 >
00:08:10 verbose #37609 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:10 verbose #37610 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:10 verbose #37611 > │ ## read_all_text_retry_async │
00:08:10 verbose #37612 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:10 verbose #37613 >
00:08:10 verbose #37614 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:10 verbose #37615 > inl read_all_text_retry_async full_path : async.async (optionm'.option' string)
00:08:10 verbose #37616 > =
00:08:10 verbose #37617 > run_target function
00:08:10 verbose #37618 > | Fsharp (Native) => fun () =>
00:08:10 verbose #37619 > let rec loop (retry : i64) =
00:08:10 verbose #37620 > fun () =>
00:08:10 verbose #37621 > try_unit
00:08:10 verbose #37622 > fun () =>
00:08:10 verbose #37623 > if retry > 0
00:08:10 verbose #37624 > then
00:08:10 verbose #37625 > full_path
00:08:10 verbose #37626 > |> wait_for_file_access_read
00:08:10 verbose #37627 > |> async.run_with_timeout_async 1000
00:08:10 verbose #37628 > |> async.ignore
00:08:10 verbose #37629 > |> async.do
00:08:10 verbose #37630 > full_path |> read_all_text_async |> async.map (Some
00:08:10 verbose #37631 > >> optionm'.box) |> async.return_await
00:08:10 verbose #37632 > fun ex =>
00:08:10 verbose #37633 > if retry <> 0 then
00:08:10 verbose #37634 > inl ex = ex |> sm'.format_exception
00:08:10 verbose #37635 > let _locals () = $'$"retry: {!retry} / ex: {!ex}
00:08:10 verbose #37636 > / {!_locals ()}"' : string
00:08:10 verbose #37637 > trace Debug (fun () =>
00:08:10 verbose #37638 > $'"read_all_text_retry_async"' : string) _locals
00:08:10 verbose #37639 > (None : _ string) |> optionm'.box |> return |>
00:08:10 verbose #37640 > fun x => $'(*' : ()
00:08:10 verbose #37641 > else
00:08:10 verbose #37642 > $'*) else' : ()
00:08:10 verbose #37643 > loop (retry + 1) |> async.return_await |> fun x
00:08:10 verbose #37644 > => $'(*' : ()
00:08:10 verbose #37645 > |> fun x => $'*)' : ()
00:08:10 verbose #37646 > |> async.new_async
00:08:10 verbose #37647 > loop 0
00:08:10 verbose #37648 > | _ => fun () => null ()
00:08:10 verbose #37649 > 00:08:10 debug #641 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9d62f98eb595d2814b9596fa9bdaae20af78623fc5f59cc5365a1c708332634f/main.spi
00:08:10 verbose #37650 >
00:08:10 verbose #37651 > ╭─[ 238.11ms - stdout ]────────────────────────────────────────────────────────╮
00:08:10 verbose #37652 > │ () │
00:08:10 verbose #37653 > │ │
00:08:10 verbose #37654 > │ │
00:08:10 verbose #37655 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:10 verbose #37656 >
00:08:10 verbose #37657 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:10 verbose #37658 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:10 verbose #37659 > │ ## delete_file_async │
00:08:10 verbose #37660 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:10 verbose #37661 >
00:08:10 verbose #37662 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:10 verbose #37663 > inl delete_file_async path : _ i64 =
00:08:10 verbose #37664 > run_target function
00:08:10 verbose #37665 > | Fsharp (Native) => fun () =>
00:08:10 verbose #37666 > let rec loop (retry : i64) =
00:08:10 verbose #37667 > fun () =>
00:08:10 verbose #37668 > try_unit
00:08:10 verbose #37669 > fun () =>
00:08:10 verbose #37670 > path |> file_delete
00:08:10 verbose #37671 > return retry
00:08:10 verbose #37672 > fun ex =>
00:08:10 verbose #37673 > if retry % 100 = 0 then
00:08:10 verbose #37674 > trace Warning
00:08:10 verbose #37675 > fun () => "delete_file_async"
00:08:10 verbose #37676 > fun () =>
00:08:10 verbose #37677 > inl ex = ex |> sm'.format_exception
00:08:10 verbose #37678 > $'$"path: {!path |> !get_file_name}
00:08:10 verbose #37679 > ex: {!ex} / {!_locals ()}"'
00:08:10 verbose #37680 > async.sleep 10 |> async.do
00:08:10 verbose #37681 > loop (retry + 1) |> async.return_await
00:08:10 verbose #37682 > |> async.new_async
00:08:10 verbose #37683 > loop 0
00:08:10 verbose #37684 > | _ => fun () => null ()
00:08:11 verbose #37685 > 00:08:10 debug #642 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/347feb75ecc52eb77b160c895ea3616cc3d7d7bbe7ccae7ae9f274f0ba3dd9c2/main.spi
00:08:11 verbose #37686 >
00:08:11 verbose #37687 > ╭─[ 202.72ms - stdout ]────────────────────────────────────────────────────────╮
00:08:11 verbose #37688 > │ () │
00:08:11 verbose #37689 > │ │
00:08:11 verbose #37690 > │ │
00:08:11 verbose #37691 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:11 verbose #37692 >
00:08:11 verbose #37693 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:11 verbose #37694 > // // test
00:08:11 verbose #37695 >
00:08:11 verbose #37696 > inl lock_file path =
00:08:11 verbose #37697 > fun () =>
00:08:11 verbose #37698 > trace Debug (fun () => "_1") _locals
00:08:11 verbose #37699 > file_stream
00:08:11 verbose #37700 > path
00:08:11 verbose #37701 > ModeOpen
00:08:11 verbose #37702 > AccessReadWrite
00:08:11 verbose #37703 > ShareNone
00:08:11 verbose #37704 > |> use
00:08:11 verbose #37705 > |> ignore
00:08:11 verbose #37706 > trace Debug (fun () => "_2") _locals
00:08:11 verbose #37707 > async.sleep 2000 |> async.do
00:08:11 verbose #37708 > trace Debug (fun () => "_3") _locals
00:08:11 verbose #37709 > |> async.new_async
00:08:11 verbose #37710 >
00:08:11 verbose #37711 > inl temp_dir, disposable = create_temp_directory ()
00:08:11 verbose #37712 > disposable |> use |> ignore
00:08:11 verbose #37713 > inl path = temp_dir </> "test.txt"
00:08:11 verbose #37714 >
00:08:11 verbose #37715 > fun () =>
00:08:11 verbose #37716 > trace Debug (fun () => "1") _locals
00:08:11 verbose #37717 > "0" |> write_all_text_async path |> async.do
00:08:11 verbose #37718 > trace Debug (fun () => "2") _locals
00:08:11 verbose #37719 > inl child = lock_file path |> async.start_child |> async.let'
00:08:11 verbose #37720 > trace Debug (fun () => "3") _locals
00:08:11 verbose #37721 > async.sleep 1 |> async.do
00:08:11 verbose #37722 > trace Debug (fun () => "4") _locals
00:08:11 verbose #37723 > inl retries = delete_file_async path |> async.let'
00:08:11 verbose #37724 > trace Debug (fun () => "5") _locals
00:08:11 verbose #37725 > child |> async.do
00:08:11 verbose #37726 > trace Debug (fun () => "6") _locals
00:08:11 verbose #37727 > return retries
00:08:11 verbose #37728 > |> async.new_async_unit
00:08:11 verbose #37729 > |> async.run_with_timeout 3000
00:08:11 verbose #37730 > |> function
00:08:11 verbose #37731 > | Some (retries : i64) =>
00:08:11 verbose #37732 > retries
00:08:11 verbose #37733 > |> _assert_between
00:08:11 verbose #37734 > (if runtime.is_windows () then 50 else 0)
00:08:11 verbose #37735 > (if runtime.is_windows () then 150 else 0)
00:08:11 verbose #37736 >
00:08:11 verbose #37737 > true
00:08:11 verbose #37738 > | _ => false
00:08:11 verbose #37739 > |> _assert_eq true
00:08:11 verbose #37740 > 00:08:10 debug #643 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7466ef538c36f8ed51b12b82dea8f8af88a78bd74a342ae4d309f9bcfc433626/main.spi
00:08:13 verbose #37741 >
00:08:14 verbose #37742 > ╭─[ 2.92s - stdout ]───────────────────────────────────────────────────────────╮
00:08:14 verbose #37743 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:14 verbose #37744 > │ string │
00:08:14 verbose #37745 > │ module State = let mutable trace_state = None │
00:08:14 verbose #37746 > │ type [<Struct>] US0 = │
00:08:14 verbose #37747 > │ | US0_0 │
00:08:14 verbose #37748 > │ | US0_1 │
00:08:14 verbose #37749 > │ | US0_2 │
00:08:14 verbose #37750 > │ | US0_3 │
00:08:14 verbose #37751 > │ | US0_4 │
00:08:14 verbose #37752 > │ and Mut0 = {mutable l0 : int64} │
00:08:14 verbose #37753 > │ and Mut1 = {mutable l0 : bool} │
00:08:14 verbose #37754 > │ and Mut2 = {mutable l0 : US0} │
00:08:14 verbose #37755 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:08:14 verbose #37756 > │ and [<Struct>] US1 = │
00:08:14 verbose #37757 > │ | US1_0 of f0_0 : int64 │
00:08:14 verbose #37758 > │ | US1_1 │
00:08:14 verbose #37759 > │ and [<Struct>] US2 = │
00:08:14 verbose #37760 > │ | US2_0 of f0_0 : int64 │
00:08:14 verbose #37761 > │ | US2_1 │
00:08:14 verbose #37762 > │ and [<Struct>] US3 = │
00:08:14 verbose #37763 > │ | US3_0 of f0_0 : int64 │
00:08:14 verbose #37764 > │ | US3_1 of f1_0 : exn │
00:08:14 verbose #37765 > │ and [<Struct>] US4 = │
00:08:14 verbose #37766 > │ | US4_0 of f0_0 : int64 │
00:08:14 verbose #37767 > │ | US4_1 of f1_0 : exn │
00:08:14 verbose #37768 > │ let rec closure0 () () : string = │
00:08:14 verbose #37769 > │ let v0 : string option = None │
00:08:14 verbose #37770 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:14 verbose #37771 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #37772 > │ let v2 : string = null |> unbox<string> │
00:08:14 verbose #37773 > │ v2 │
00:08:14 verbose #37774 > │ #endif │
00:08:14 verbose #37775 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #37776 > │ let v3 : string = null |> unbox<string> │
00:08:14 verbose #37777 > │ v3 │
00:08:14 verbose #37778 > │ #endif │
00:08:14 verbose #37779 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #37780 > │ let v4 : string = null |> unbox<string> │
00:08:14 verbose #37781 > │ v4 │
00:08:14 verbose #37782 > │ #endif │
00:08:14 verbose #37783 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #37784 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #37785 > │ let v5 : string = │
00:08:14 verbose #37786 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:14 verbose #37787 > │ v5 │
00:08:14 verbose #37788 > │ #endif │
00:08:14 verbose #37789 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #37790 > │ let v6 : string = null |> unbox<string> │
00:08:14 verbose #37791 > │ v6 │
00:08:14 verbose #37792 > │ #endif │
00:08:14 verbose #37793 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #37794 > │ let v7 : string = Unchecked.defaultof<string> │
00:08:14 verbose #37795 > │ v7 │
00:08:14 verbose #37796 > │ #endif │
00:08:14 verbose #37797 > │ |> fun x -> _v0 <- Some x │
00:08:14 verbose #37798 > │ let v8 : string = _v0.Value │
00:08:14 verbose #37799 > │ v8 │
00:08:14 verbose #37800 > │ and method1 (v0 : string) : string = │
00:08:14 verbose #37801 > │ v0 │
00:08:14 verbose #37802 > │ and method2 (v0 : string) : string = │
00:08:14 verbose #37803 > │ v0 │
00:08:14 verbose #37804 > │ and method3 (v0 : string) : string = │
00:08:14 verbose #37805 > │ v0 │
00:08:14 verbose #37806 > │ and closure1 () () : string = │
00:08:14 verbose #37807 > │ let v0 : string = "file_system.create_temp_directory" │
00:08:14 verbose #37808 > │ v0 │
00:08:14 verbose #37809 > │ and closure3 () () : string = │
00:08:14 verbose #37810 > │ let v0 : string = "" │
00:08:14 verbose #37811 > │ v0 │
00:08:14 verbose #37812 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:08:14 verbose #37813 > │ let v2 : (unit -> string) = closure3() │
00:08:14 verbose #37814 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:14 verbose #37815 > │ v3 │
00:08:14 verbose #37816 > │ and closure6 () (v0 : string) : unit = │
00:08:14 verbose #37817 > │ () │
00:08:14 verbose #37818 > │ and method5 (v0 : int64 option) : int64 option = │
00:08:14 verbose #37819 > │ v0 │
00:08:14 verbose #37820 > │ and method6 (v0 : int64 option) : int64 option = │
00:08:14 verbose #37821 > │ v0 │
00:08:14 verbose #37822 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:08:14 verbose #37823 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:14 verbose #37824 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:14 verbose #37825 > │ let v2 : US0 = US0_0 │
00:08:14 verbose #37826 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:14 verbose #37827 > │ let v4 : (string -> unit) = closure6() │
00:08:14 verbose #37828 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:08:14 verbose #37829 > │ let v6 : int64 option option = None │
00:08:14 verbose #37830 > │ let mutable _v6 = v6 │
00:08:14 verbose #37831 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:14 verbose #37832 > │ let v7 : string option = None │
00:08:14 verbose #37833 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:14 verbose #37834 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #37835 > │ let v9 : string = null |> unbox<string> │
00:08:14 verbose #37836 > │ v9 │
00:08:14 verbose #37837 > │ #endif │
00:08:14 verbose #37838 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #37839 > │ let v10 : string = null |> unbox<string> │
00:08:14 verbose #37840 > │ v10 │
00:08:14 verbose #37841 > │ #endif │
00:08:14 verbose #37842 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #37843 > │ let v11 : string = null |> unbox<string> │
00:08:14 verbose #37844 > │ v11 │
00:08:14 verbose #37845 > │ #endif │
00:08:14 verbose #37846 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #37847 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #37848 > │ let v12 : string = │
00:08:14 verbose #37849 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:14 verbose #37850 > │ v12 │
00:08:14 verbose #37851 > │ #endif │
00:08:14 verbose #37852 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #37853 > │ let v13 : string = null |> unbox<string> │
00:08:14 verbose #37854 > │ v13 │
00:08:14 verbose #37855 > │ #endif │
00:08:14 verbose #37856 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #37857 > │ let v14 : string = Unchecked.defaultof<string> │
00:08:14 verbose #37858 > │ v14 │
00:08:14 verbose #37859 > │ #endif │
00:08:14 verbose #37860 > │ |> fun x -> _v7 <- Some x │
00:08:14 verbose #37861 > │ let v15 : string = _v7.Value │
00:08:14 verbose #37862 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:08:14 verbose #37863 > │ let v18 : bool = v17 <> true │
00:08:14 verbose #37864 > │ let v24 : US1 = │
00:08:14 verbose #37865 > │ if v18 then │
00:08:14 verbose #37866 > │ let v19 : System.DateTime = System.DateTime.Now │
00:08:14 verbose #37867 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:08:14 verbose #37868 > │ let v21 : int64 = v20 v19 │
00:08:14 verbose #37869 > │ US1_0(v21) │
00:08:14 verbose #37870 > │ else │
00:08:14 verbose #37871 > │ US1_1 │
00:08:14 verbose #37872 > │ let v29 : int64 option = │
00:08:14 verbose #37873 > │ match v24 with │
00:08:14 verbose #37874 > │ | US1_1 -> (* None *) │
00:08:14 verbose #37875 > │ let v27 : int64 option = None │
00:08:14 verbose #37876 > │ v27 │
00:08:14 verbose #37877 > │ | US1_0(v25) -> (* Some *) │
00:08:14 verbose #37878 > │ let v26 : int64 option = Some v25 │
00:08:14 verbose #37879 > │ v26 │
00:08:14 verbose #37880 > │ let v30 : int64 option = method5(v29) │
00:08:14 verbose #37881 > │ v30 │
00:08:14 verbose #37882 > │ #else │
00:08:14 verbose #37883 > │ let v31 : int64 option = None │
00:08:14 verbose #37884 > │ let v32 : int64 option = method6(v31) │
00:08:14 verbose #37885 > │ v32 │
00:08:14 verbose #37886 > │ #endif │
00:08:14 verbose #37887 > │ |> fun x -> _v6 <- Some x │
00:08:14 verbose #37888 > │ let v33 : int64 option = _v6.Value │
00:08:14 verbose #37889 > │ struct (v1, v0, v3, v33, v5) │
00:08:14 verbose #37890 > │ and closure7 () (v0 : int64) : US2 = │
00:08:14 verbose #37891 > │ US2_0(v0) │
00:08:14 verbose #37892 > │ and method7 () : (int64 -> US2) = │
00:08:14 verbose #37893 > │ closure7() │
00:08:14 verbose #37894 > │ and method8 () : string = │
00:08:14 verbose #37895 > │ let v0 : string = "" │
00:08:14 verbose #37896 > │ v0 │
00:08:14 verbose #37897 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:14 verbose #37898 > │ string = │
00:08:14 verbose #37899 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:14 verbose #37900 > │ closure5() │
00:08:14 verbose #37901 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:08:14 verbose #37902 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:08:14 verbose #37903 > │ Mut3) = State.trace_state.Value │
00:08:14 verbose #37904 > │ let v9 : string option = None │
00:08:14 verbose #37905 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:14 verbose #37906 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #37907 > │ let v11 : (int64 -> US2) = method7() │
00:08:14 verbose #37908 > │ let v12 : US2 = US2_1 │
00:08:14 verbose #37909 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:08:14 verbose #37910 > │ let v31 : System.DateTime = │
00:08:14 verbose #37911 > │ match v13 with │
00:08:14 verbose #37912 > │ | US2_1 -> (* None *) │
00:08:14 verbose #37913 > │ let v29 : System.DateTime = System.DateTime.Now │
00:08:14 verbose #37914 > │ v29 │
00:08:14 verbose #37915 > │ | US2_0(v14) -> (* Some *) │
00:08:14 verbose #37916 > │ let v15 : System.DateTime = System.DateTime.Now │
00:08:14 verbose #37917 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:08:14 verbose #37918 > │ let v17 : int64 = v16 v15 │
00:08:14 verbose #37919 > │ let v18 : int64 = v17 - v14 │
00:08:14 verbose #37920 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:08:14 verbose #37921 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:08:14 verbose #37922 > │ let v21 : int32 = v20 v19 │
00:08:14 verbose #37923 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:08:14 verbose #37924 > │ let v23 : int32 = v22 v19 │
00:08:14 verbose #37925 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:08:14 verbose #37926 > │ let v25 : int32 = v24 v19 │
00:08:14 verbose #37927 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:14 verbose #37928 > │ let v27 : int32 = v26 v19 │
00:08:14 verbose #37929 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:08:14 verbose #37930 > │ v25, v27) │
00:08:14 verbose #37931 > │ v28 │
00:08:14 verbose #37932 > │ let v32 : string = "hh:mm:ss" │
00:08:14 verbose #37933 > │ let v33 : string = v31.ToString v32 │
00:08:14 verbose #37934 > │ v33 │
00:08:14 verbose #37935 > │ #endif │
00:08:14 verbose #37936 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #37937 > │ let v34 : string = method8() │
00:08:14 verbose #37938 > │ v34 │
00:08:14 verbose #37939 > │ #endif │
00:08:14 verbose #37940 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #37941 > │ let v35 : string = method8() │
00:08:14 verbose #37942 > │ v35 │
00:08:14 verbose #37943 > │ #endif │
00:08:14 verbose #37944 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #37945 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #37946 > │ let v36 : (int64 -> US2) = method7() │
00:08:14 verbose #37947 > │ let v37 : US2 = US2_1 │
00:08:14 verbose #37948 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:08:14 verbose #37949 > │ let v56 : System.DateTime = │
00:08:14 verbose #37950 > │ match v38 with │
00:08:14 verbose #37951 > │ | US2_1 -> (* None *) │
00:08:14 verbose #37952 > │ let v54 : System.DateTime = System.DateTime.Now │
00:08:14 verbose #37953 > │ v54 │
00:08:14 verbose #37954 > │ | US2_0(v39) -> (* Some *) │
00:08:14 verbose #37955 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:14 verbose #37956 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:08:14 verbose #37957 > │ let v42 : int64 = v41 v40 │
00:08:14 verbose #37958 > │ let v43 : int64 = v42 - v39 │
00:08:14 verbose #37959 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:08:14 verbose #37960 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:08:14 verbose #37961 > │ let v46 : int32 = v45 v44 │
00:08:14 verbose #37962 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:08:14 verbose #37963 > │ let v48 : int32 = v47 v44 │
00:08:14 verbose #37964 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:08:14 verbose #37965 > │ let v50 : int32 = v49 v44 │
00:08:14 verbose #37966 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:14 verbose #37967 > │ let v52 : int32 = v51 v44 │
00:08:14 verbose #37968 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:08:14 verbose #37969 > │ v50, v52) │
00:08:14 verbose #37970 > │ v53 │
00:08:14 verbose #37971 > │ let v57 : string = "HH:mm:ss" │
00:08:14 verbose #37972 > │ let v58 : string = v56.ToString v57 │
00:08:14 verbose #37973 > │ v58 │
00:08:14 verbose #37974 > │ #endif │
00:08:14 verbose #37975 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #37976 > │ let v59 : string = method8() │
00:08:14 verbose #37977 > │ v59 │
00:08:14 verbose #37978 > │ #endif │
00:08:14 verbose #37979 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #37980 > │ let v60 : string = Unchecked.defaultof<string> │
00:08:14 verbose #37981 > │ v60 │
00:08:14 verbose #37982 > │ #endif │
00:08:14 verbose #37983 > │ |> fun x -> _v9 <- Some x │
00:08:14 verbose #37984 > │ let v61 : string = _v9.Value │
00:08:14 verbose #37985 > │ let v62 : int64 = v4.l0 │
00:08:14 verbose #37986 > │ let v72 : string = │
00:08:14 verbose #37987 > │ match v0 with │
00:08:14 verbose #37988 > │ | US0_4 -> (* Critical *) │
00:08:14 verbose #37989 > │ let v67 : string = "Critical" │
00:08:14 verbose #37990 > │ v67 │
00:08:14 verbose #37991 > │ | US0_1 -> (* Debug *) │
00:08:14 verbose #37992 > │ let v64 : string = "Debug" │
00:08:14 verbose #37993 > │ v64 │
00:08:14 verbose #37994 > │ | US0_2 -> (* Info *) │
00:08:14 verbose #37995 > │ let v65 : string = "Info" │
00:08:14 verbose #37996 > │ v65 │
00:08:14 verbose #37997 > │ | US0_0 -> (* Verbose *) │
00:08:14 verbose #37998 > │ let v63 : string = "Verbose" │
00:08:14 verbose #37999 > │ v63 │
00:08:14 verbose #38000 > │ | US0_3 -> (* Warning *) │
00:08:14 verbose #38001 > │ let v66 : string = "Warning" │
00:08:14 verbose #38002 > │ v66 │
00:08:14 verbose #38003 > │ let v73 : string = v72.ToLower () │
00:08:14 verbose #38004 > │ let v74 : string option = None │
00:08:14 verbose #38005 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:08:14 verbose #38006 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38007 > │ let v90 : Ref<Str> = │
00:08:14 verbose #38008 > │ match v0 with │
00:08:14 verbose #38009 > │ | US0_4 -> (* Critical *) │
00:08:14 verbose #38010 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:08:14 verbose #38011 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:08:14 verbose #38012 > │ v85 │
00:08:14 verbose #38013 > │ | US0_1 -> (* Debug *) │
00:08:14 verbose #38014 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:08:14 verbose #38015 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:08:14 verbose #38016 > │ v79 │
00:08:14 verbose #38017 > │ | US0_2 -> (* Info *) │
00:08:14 verbose #38018 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:08:14 verbose #38019 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:08:14 verbose #38020 > │ v81 │
00:08:14 verbose #38021 > │ | US0_0 -> (* Verbose *) │
00:08:14 verbose #38022 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:08:14 verbose #38023 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:08:14 verbose #38024 > │ v77 │
00:08:14 verbose #38025 > │ | US0_3 -> (* Warning *) │
00:08:14 verbose #38026 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:08:14 verbose #38027 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:08:14 verbose #38028 > │ v83 │
00:08:14 verbose #38029 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38030 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:08:14 verbose #38031 > │ let v93 : string = "inline_colorization::color_reset" │
00:08:14 verbose #38032 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:08:14 verbose #38033 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:08:14 verbose #38034 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:08:14 verbose #38035 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:08:14 verbose #38036 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 verbose #38037 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:08:14 verbose #38038 > │ v99 │
00:08:14 verbose #38039 > │ #endif │
00:08:14 verbose #38040 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38041 > │ let v114 : Ref<Str> = │
00:08:14 verbose #38042 > │ match v0 with │
00:08:14 verbose #38043 > │ | US0_4 -> (* Critical *) │
00:08:14 verbose #38044 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:08:14 verbose #38045 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38046 > │ v108 │
00:08:14 verbose #38047 > │ v109 │
00:08:14 verbose #38048 > │ | US0_1 -> (* Debug *) │
00:08:14 verbose #38049 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:08:14 verbose #38050 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38051 > │ v102 │
00:08:14 verbose #38052 > │ v103 │
00:08:14 verbose #38053 > │ | US0_2 -> (* Info *) │
00:08:14 verbose #38054 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:08:14 verbose #38055 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38056 > │ v104 │
00:08:14 verbose #38057 > │ v105 │
00:08:14 verbose #38058 > │ | US0_0 -> (* Verbose *) │
00:08:14 verbose #38059 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:08:14 verbose #38060 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38061 > │ v100 │
00:08:14 verbose #38062 > │ v101 │
00:08:14 verbose #38063 > │ | US0_3 -> (* Warning *) │
00:08:14 verbose #38064 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:08:14 verbose #38065 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38066 > │ v106 │
00:08:14 verbose #38067 > │ v107 │
00:08:14 verbose #38068 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38069 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:08:14 verbose #38070 > │ let v117 : string = "inline_colorization::color_reset" │
00:08:14 verbose #38071 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:08:14 verbose #38072 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:08:14 verbose #38073 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:08:14 verbose #38074 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38075 > │ v120 │
00:08:14 verbose #38076 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 verbose #38077 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:08:14 verbose #38078 > │ v123 │
00:08:14 verbose #38079 > │ #endif │
00:08:14 verbose #38080 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38081 > │ let v138 : Ref<Str> = │
00:08:14 verbose #38082 > │ match v0 with │
00:08:14 verbose #38083 > │ | US0_4 -> (* Critical *) │
00:08:14 verbose #38084 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:08:14 verbose #38085 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38086 > │ v132 │
00:08:14 verbose #38087 > │ v133 │
00:08:14 verbose #38088 > │ | US0_1 -> (* Debug *) │
00:08:14 verbose #38089 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:08:14 verbose #38090 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38091 > │ v126 │
00:08:14 verbose #38092 > │ v127 │
00:08:14 verbose #38093 > │ | US0_2 -> (* Info *) │
00:08:14 verbose #38094 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:08:14 verbose #38095 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38096 > │ v128 │
00:08:14 verbose #38097 > │ v129 │
00:08:14 verbose #38098 > │ | US0_0 -> (* Verbose *) │
00:08:14 verbose #38099 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:08:14 verbose #38100 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38101 > │ v124 │
00:08:14 verbose #38102 > │ v125 │
00:08:14 verbose #38103 > │ | US0_3 -> (* Warning *) │
00:08:14 verbose #38104 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:08:14 verbose #38105 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38106 > │ v130 │
00:08:14 verbose #38107 > │ v131 │
00:08:14 verbose #38108 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38109 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:08:14 verbose #38110 > │ let v141 : string = "inline_colorization::color_reset" │
00:08:14 verbose #38111 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:08:14 verbose #38112 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:08:14 verbose #38113 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:08:14 verbose #38114 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:14 verbose #38115 > │ v144 │
00:08:14 verbose #38116 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 verbose #38117 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:08:14 verbose #38118 > │ v147 │
00:08:14 verbose #38119 > │ #endif │
00:08:14 verbose #38120 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38121 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38122 > │ v73 │
00:08:14 verbose #38123 > │ #endif │
00:08:14 verbose #38124 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38125 > │ v73 │
00:08:14 verbose #38126 > │ #endif │
00:08:14 verbose #38127 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38128 > │ let v148 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38129 > │ v148 │
00:08:14 verbose #38130 > │ #endif │
00:08:14 verbose #38131 > │ |> fun x -> _v74 <- Some x │
00:08:14 verbose #38132 > │ let v149 : string = _v74.Value │
00:08:14 verbose #38133 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:08:14 verbose #38134 > │ let v151 : (char []) = [||] │
00:08:14 verbose #38135 > │ let v152 : string = v150.TrimStart v151 │
00:08:14 verbose #38136 > │ let v153 : (char []) = [|' '; '/'|] │
00:08:14 verbose #38137 > │ let v154 : string = v152.TrimEnd v153 │
00:08:14 verbose #38138 > │ v154 │
00:08:14 verbose #38139 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:08:14 verbose #38140 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:14 verbose #38141 > │ closure5() │
00:08:14 verbose #38142 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:14 verbose #38143 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:08:14 verbose #38144 > │ Mut3) = State.trace_state.Value │
00:08:14 verbose #38145 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:14 verbose #38146 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:08:14 verbose #38147 > │ Mut3) = State.trace_state.Value │
00:08:14 verbose #38148 > │ let v13 : US0 = v10.l0 │
00:08:14 verbose #38149 > │ let v14 : bool = v9.l0 │
00:08:14 verbose #38150 > │ let v15 : bool = v14 = false │
00:08:14 verbose #38151 > │ let v19 : bool = │
00:08:14 verbose #38152 > │ if v15 then │
00:08:14 verbose #38153 > │ false │
00:08:14 verbose #38154 > │ else │
00:08:14 verbose #38155 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:14 verbose #38156 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:08:14 verbose #38157 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:14 verbose #38158 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:08:14 verbose #38159 > │ let v18 : bool = v16 >= v17 │
00:08:14 verbose #38160 > │ v18 │
00:08:14 verbose #38161 > │ if v19 then │
00:08:14 verbose #38162 > │ let v20 : int64 = v3.l0 │
00:08:14 verbose #38163 > │ let v21 : int64 = v20 + 1L │
00:08:14 verbose #38164 > │ v3.l0 <- v21 │
00:08:14 verbose #38165 > │ let v22 : string = $"%s{v1 ()}" │
00:08:14 verbose #38166 > │ let v23 : unit option = None │
00:08:14 verbose #38167 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:08:14 verbose #38168 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38169 > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:14 verbose #38170 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:08:14 verbose #38171 > │ () │
00:08:14 verbose #38172 > │ #endif │
00:08:14 verbose #38173 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38174 > │ let v26 : string = @"println!(""{}"", $0)" │
00:08:14 verbose #38175 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:08:14 verbose #38176 > │ () │
00:08:14 verbose #38177 > │ #endif │
00:08:14 verbose #38178 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38179 > │ let v27 : string = @"println!(""{}"", $0)" │
00:08:14 verbose #38180 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:08:14 verbose #38181 > │ () │
00:08:14 verbose #38182 > │ #endif │
00:08:14 verbose #38183 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38184 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38185 > │ System.Console.WriteLine v22 │
00:08:14 verbose #38186 > │ () │
00:08:14 verbose #38187 > │ #endif │
00:08:14 verbose #38188 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38189 > │ System.Console.WriteLine v22 │
00:08:14 verbose #38190 > │ () │
00:08:14 verbose #38191 > │ #endif │
00:08:14 verbose #38192 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 verbose #38193 > │ FABLE_COMPILER_DART │
00:08:14 verbose #38194 > │ Unchecked.defaultof<unit> │
00:08:14 verbose #38195 > │ () │
00:08:14 verbose #38196 > │ #endif │
00:08:14 verbose #38197 > │ |> fun x -> _v23 <- Some x │
00:08:14 verbose #38198 > │ _v23.Value │
00:08:14 verbose #38199 > │ let v28 : (string -> unit) = v7.l0 │
00:08:14 verbose #38200 > │ v28 v22 │
00:08:14 verbose #38201 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:14 verbose #38202 > │ = │
00:08:14 verbose #38203 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:08:14 verbose #38204 > │ method9(v0, v3) │
00:08:14 verbose #38205 > │ and closure9 () () : string = │
00:08:14 verbose #38206 > │ let v0 : string = "file_system.delete_directory_async" │
00:08:14 verbose #38207 > │ v0 │
00:08:14 verbose #38208 > │ and closure11 () (v0 : string) : string = │
00:08:14 verbose #38209 > │ let v1 : string option = None │
00:08:14 verbose #38210 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:14 verbose #38211 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38212 > │ let v3 : string = null |> unbox<string> │
00:08:14 verbose #38213 > │ v3 │
00:08:14 verbose #38214 > │ #endif │
00:08:14 verbose #38215 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38216 > │ let v4 : string = null |> unbox<string> │
00:08:14 verbose #38217 > │ v4 │
00:08:14 verbose #38218 > │ #endif │
00:08:14 verbose #38219 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38220 > │ let v5 : string = null |> unbox<string> │
00:08:14 verbose #38221 > │ v5 │
00:08:14 verbose #38222 > │ #endif │
00:08:14 verbose #38223 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38224 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38225 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:08:14 verbose #38226 > │ let v7 : string = v6 v0 │
00:08:14 verbose #38227 > │ v7 │
00:08:14 verbose #38228 > │ #endif │
00:08:14 verbose #38229 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38230 > │ let v8 : string = null |> unbox<string> │
00:08:14 verbose #38231 > │ v8 │
00:08:14 verbose #38232 > │ #endif │
00:08:14 verbose #38233 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38234 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38235 > │ v9 │
00:08:14 verbose #38236 > │ #endif │
00:08:14 verbose #38237 > │ |> fun x -> _v1 <- Some x │
00:08:14 verbose #38238 > │ let v10 : string = _v1.Value │
00:08:14 verbose #38239 > │ v10 │
00:08:14 verbose #38240 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:08:14 verbose #38241 > │ let v2 : (string -> string) = closure11() │
00:08:14 verbose #38242 > │ let v3 : (unit -> string) = closure3() │
00:08:14 verbose #38243 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:14 verbose #38244 > │ v4 │
00:08:14 verbose #38245 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:08:14 verbose #38246 > │ let v2 : Async<int64> option = None │
00:08:14 verbose #38247 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:14 verbose #38248 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38249 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38250 > │ v4 │
00:08:14 verbose #38251 > │ #endif │
00:08:14 verbose #38252 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38253 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38254 > │ v5 │
00:08:14 verbose #38255 > │ #endif │
00:08:14 verbose #38256 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38257 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38258 > │ v6 │
00:08:14 verbose #38259 > │ #endif │
00:08:14 verbose #38260 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38261 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38262 > │ let v7 : Async<int64> option = None │
00:08:14 verbose #38263 > │ let mutable _v7 = v7 │
00:08:14 verbose #38264 > │ async { │
00:08:14 verbose #38265 > │ try │
00:08:14 verbose #38266 > │ let v8 : unit option = None │
00:08:14 verbose #38267 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:14 verbose #38268 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38269 > │ null |> unbox<unit> │
00:08:14 verbose #38270 > │ () │
00:08:14 verbose #38271 > │ #endif │
00:08:14 verbose #38272 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38273 > │ null |> unbox<unit> │
00:08:14 verbose #38274 > │ () │
00:08:14 verbose #38275 > │ #endif │
00:08:14 verbose #38276 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38277 > │ null |> unbox<unit> │
00:08:14 verbose #38278 > │ () │
00:08:14 verbose #38279 > │ #endif │
00:08:14 verbose #38280 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38281 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38282 > │ System.IO.Directory.Delete (v0, true) │
00:08:14 verbose #38283 > │ () │
00:08:14 verbose #38284 > │ #endif │
00:08:14 verbose #38285 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38286 > │ null |> unbox<unit> │
00:08:14 verbose #38287 > │ () │
00:08:14 verbose #38288 > │ #endif │
00:08:14 verbose #38289 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38290 > │ Unchecked.defaultof<unit> │
00:08:14 verbose #38291 > │ () │
00:08:14 verbose #38292 > │ #endif │
00:08:14 verbose #38293 > │ |> fun x -> _v8 <- Some x │
00:08:14 verbose #38294 > │ _v8.Value │
00:08:14 verbose #38295 > │ return v1 │
00:08:14 verbose #38296 > │ with ex -> │
00:08:14 verbose #38297 > │ let v10 : exn = ex │
00:08:14 verbose #38298 > │ let v11 : int64 = v1 % 100L │
00:08:14 verbose #38299 > │ let v12 : bool = v11 = 0L │
00:08:14 verbose #38300 > │ if v12 then │
00:08:14 verbose #38301 > │ let v13 : string option = None │
00:08:14 verbose #38302 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:14 verbose #38303 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38304 > │ let v15 : string = $"%A{v10}" │
00:08:14 verbose #38305 > │ v15 │
00:08:14 verbose #38306 > │ #endif │
00:08:14 verbose #38307 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38308 > │ let v16 : string = $"%A{v10}" │
00:08:14 verbose #38309 > │ v16 │
00:08:14 verbose #38310 > │ #endif │
00:08:14 verbose #38311 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38312 > │ let v17 : string = $"%A{v10}" │
00:08:14 verbose #38313 > │ v17 │
00:08:14 verbose #38314 > │ #endif │
00:08:14 verbose #38315 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38316 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38317 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:08:14 verbose #38318 > │ v18 │
00:08:14 verbose #38319 > │ #endif │
00:08:14 verbose #38320 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38321 > │ let v19 : string = $"%A{v10}" │
00:08:14 verbose #38322 > │ v19 │
00:08:14 verbose #38323 > │ #endif │
00:08:14 verbose #38324 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 verbose #38325 > │ FABLE_COMPILER_DART │
00:08:14 verbose #38326 > │ let v20 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38327 > │ v20 │
00:08:14 verbose #38328 > │ #endif │
00:08:14 verbose #38329 > │ |> fun x -> _v13 <- Some x │
00:08:14 verbose #38330 > │ let v21 : string = _v13.Value │
00:08:14 verbose #38331 > │ let v22 : US0 = US0_1 │
00:08:14 verbose #38332 > │ let v23 : (unit -> string) = closure9() │
00:08:14 verbose #38333 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:08:14 verbose #38334 > │ method4(v22, v23, v24) │
00:08:14 verbose #38335 > │ let v25 : Async<unit> option = None │
00:08:14 verbose #38336 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:08:14 verbose #38337 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38338 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38339 > │ v27 │
00:08:14 verbose #38340 > │ #endif │
00:08:14 verbose #38341 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38342 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38343 > │ v28 │
00:08:14 verbose #38344 > │ #endif │
00:08:14 verbose #38345 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38346 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38347 > │ v29 │
00:08:14 verbose #38348 > │ #endif │
00:08:14 verbose #38349 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38350 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38351 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:08:14 verbose #38352 > │ let v31 : Async<unit> = v30 10 │
00:08:14 verbose #38353 > │ v31 │
00:08:14 verbose #38354 > │ #endif │
00:08:14 verbose #38355 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38356 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38357 > │ v32 │
00:08:14 verbose #38358 > │ #endif │
00:08:14 verbose #38359 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38360 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #38361 > │ v33 │
00:08:14 verbose #38362 > │ #endif │
00:08:14 verbose #38363 > │ |> fun x -> _v25 <- Some x │
00:08:14 verbose #38364 > │ let v34 : Async<unit> = _v25.Value │
00:08:14 verbose #38365 > │ do! v34 │
00:08:14 verbose #38366 > │ let v35 : int64 = v1 + 1L │
00:08:14 verbose #38367 > │ let v36 : Async<int64> = method10(v0, v35) │
00:08:14 verbose #38368 > │ return! v36 │
00:08:14 verbose #38369 > │ (* │
00:08:14 verbose #38370 > │ let v37 : int64 = *) │
00:08:14 verbose #38371 > │ } │
00:08:14 verbose #38372 > │ |> fun x -> _v7 <- Some x │
00:08:14 verbose #38373 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:08:14 verbose #38374 > │ v38 │
00:08:14 verbose #38375 > │ #endif │
00:08:14 verbose #38376 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38377 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38378 > │ v39 │
00:08:14 verbose #38379 > │ #endif │
00:08:14 verbose #38380 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38381 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 verbose #38382 > │ v40 │
00:08:14 verbose #38383 > │ #endif │
00:08:14 verbose #38384 > │ |> fun x -> _v2 <- Some x │
00:08:14 verbose #38385 > │ let v41 : Async<int64> = _v2.Value │
00:08:14 verbose #38386 > │ v41 │
00:08:14 verbose #38387 > │ and closure8 (v0 : string) () : unit = │
00:08:14 verbose #38388 > │ let v1 : Async<int64> option = None │
00:08:14 verbose #38389 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:14 verbose #38390 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38391 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38392 > │ v3 │
00:08:14 verbose #38393 > │ #endif │
00:08:14 verbose #38394 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38395 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38396 > │ v4 │
00:08:14 verbose #38397 > │ #endif │
00:08:14 verbose #38398 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38399 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38400 > │ v5 │
00:08:14 verbose #38401 > │ #endif │
00:08:14 verbose #38402 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38403 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38404 > │ let v6 : int64 = 0L │
00:08:14 verbose #38405 > │ let v7 : Async<int64> = method10(v0, v6) │
00:08:14 verbose #38406 > │ v7 │
00:08:14 verbose #38407 > │ #endif │
00:08:14 verbose #38408 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38409 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38410 > │ v8 │
00:08:14 verbose #38411 > │ #endif │
00:08:14 verbose #38412 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38413 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 verbose #38414 > │ v9 │
00:08:14 verbose #38415 > │ #endif │
00:08:14 verbose #38416 > │ |> fun x -> _v1 <- Some x │
00:08:14 verbose #38417 > │ let v10 : Async<int64> = _v1.Value │
00:08:14 verbose #38418 > │ let v11 : Async<unit> option = None │
00:08:14 verbose #38419 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:08:14 verbose #38420 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38421 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38422 > │ v13 │
00:08:14 verbose #38423 > │ #endif │
00:08:14 verbose #38424 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38425 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38426 > │ v14 │
00:08:14 verbose #38427 > │ #endif │
00:08:14 verbose #38428 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38429 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38430 > │ v15 │
00:08:14 verbose #38431 > │ #endif │
00:08:14 verbose #38432 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38433 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38434 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:14 verbose #38435 > │ let v17 : Async<unit> = v16 v10 │
00:08:14 verbose #38436 > │ v17 │
00:08:14 verbose #38437 > │ #endif │
00:08:14 verbose #38438 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38439 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38440 > │ v18 │
00:08:14 verbose #38441 > │ #endif │
00:08:14 verbose #38442 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38443 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #38444 > │ v19 │
00:08:14 verbose #38445 > │ #endif │
00:08:14 verbose #38446 > │ |> fun x -> _v11 <- Some x │
00:08:14 verbose #38447 > │ let v20 : Async<unit> = _v11.Value │
00:08:14 verbose #38448 > │ let v21 : unit option = None │
00:08:14 verbose #38449 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:08:14 verbose #38450 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38451 > │ null |> unbox<unit> │
00:08:14 verbose #38452 > │ () │
00:08:14 verbose #38453 > │ #endif │
00:08:14 verbose #38454 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38455 > │ null |> unbox<unit> │
00:08:14 verbose #38456 > │ () │
00:08:14 verbose #38457 > │ #endif │
00:08:14 verbose #38458 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38459 > │ null |> unbox<unit> │
00:08:14 verbose #38460 > │ () │
00:08:14 verbose #38461 > │ #endif │
00:08:14 verbose #38462 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38463 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38464 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:14 verbose #38465 > │ v23 v20 │
00:08:14 verbose #38466 > │ () │
00:08:14 verbose #38467 > │ #endif │
00:08:14 verbose #38468 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38469 > │ null |> unbox<unit> │
00:08:14 verbose #38470 > │ () │
00:08:14 verbose #38471 > │ #endif │
00:08:14 verbose #38472 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38473 > │ Unchecked.defaultof<unit> │
00:08:14 verbose #38474 > │ () │
00:08:14 verbose #38475 > │ #endif │
00:08:14 verbose #38476 > │ |> fun x -> _v21 <- Some x │
00:08:14 verbose #38477 > │ _v21.Value │
00:08:14 verbose #38478 > │ () │
00:08:14 verbose #38479 > │ and method11 () : string = │
00:08:14 verbose #38480 > │ let v0 : string = "test.txt" │
00:08:14 verbose #38481 > │ v0 │
00:08:14 verbose #38482 > │ and method12 () : string = │
00:08:14 verbose #38483 > │ let v0 : string = "test.txt" │
00:08:14 verbose #38484 > │ v0 │
00:08:14 verbose #38485 > │ and closure12 () () : string = │
00:08:14 verbose #38486 > │ let v0 : string = "1" │
00:08:14 verbose #38487 > │ v0 │
00:08:14 verbose #38488 > │ and closure13 () () : string = │
00:08:14 verbose #38489 > │ let v0 : string = "2" │
00:08:14 verbose #38490 > │ v0 │
00:08:14 verbose #38491 > │ and closure14 () () : string = │
00:08:14 verbose #38492 > │ let v0 : string = "_1" │
00:08:14 verbose #38493 > │ v0 │
00:08:14 verbose #38494 > │ and closure15 () () : string = │
00:08:14 verbose #38495 > │ let v0 : string = "_2" │
00:08:14 verbose #38496 > │ v0 │
00:08:14 verbose #38497 > │ and closure16 () () : string = │
00:08:14 verbose #38498 > │ let v0 : string = "_3" │
00:08:14 verbose #38499 > │ v0 │
00:08:14 verbose #38500 > │ and closure17 () () : string = │
00:08:14 verbose #38501 > │ let v0 : string = "3" │
00:08:14 verbose #38502 > │ v0 │
00:08:14 verbose #38503 > │ and closure18 () () : string = │
00:08:14 verbose #38504 > │ let v0 : string = "4" │
00:08:14 verbose #38505 > │ v0 │
00:08:14 verbose #38506 > │ and closure19 () () : string = │
00:08:14 verbose #38507 > │ let v0 : string = "delete_file_async" │
00:08:14 verbose #38508 > │ v0 │
00:08:14 verbose #38509 > │ and closure20 (v0 : string, v1 : exn) () : string = │
00:08:14 verbose #38510 > │ let v2 : string option = None │
00:08:14 verbose #38511 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:14 verbose #38512 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38513 > │ let v4 : string = $"%A{v1}" │
00:08:14 verbose #38514 > │ v4 │
00:08:14 verbose #38515 > │ #endif │
00:08:14 verbose #38516 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38517 > │ let v5 : string = $"%A{v1}" │
00:08:14 verbose #38518 > │ v5 │
00:08:14 verbose #38519 > │ #endif │
00:08:14 verbose #38520 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38521 > │ let v6 : string = $"%A{v1}" │
00:08:14 verbose #38522 > │ v6 │
00:08:14 verbose #38523 > │ #endif │
00:08:14 verbose #38524 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38525 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38526 > │ let v7 : string = $"{v1.GetType ()}: {v1.Message}" │
00:08:14 verbose #38527 > │ v7 │
00:08:14 verbose #38528 > │ #endif │
00:08:14 verbose #38529 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38530 > │ let v8 : string = $"%A{v1}" │
00:08:14 verbose #38531 > │ v8 │
00:08:14 verbose #38532 > │ #endif │
00:08:14 verbose #38533 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38534 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38535 > │ v9 │
00:08:14 verbose #38536 > │ #endif │
00:08:14 verbose #38537 > │ |> fun x -> _v2 <- Some x │
00:08:14 verbose #38538 > │ let v10 : string = _v2.Value │
00:08:14 verbose #38539 > │ let v11 : (string -> string) = closure11() │
00:08:14 verbose #38540 > │ let v12 : (unit -> string) = closure3() │
00:08:14 verbose #38541 > │ let v13 : string = $"path: {v0 |> v11} / ex: {v10} / {v12 ()}" │
00:08:14 verbose #38542 > │ v13 │
00:08:14 verbose #38543 > │ and method13 (v0 : string, v1 : int64) : Async<int64> = │
00:08:14 verbose #38544 > │ let v2 : Async<int64> option = None │
00:08:14 verbose #38545 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:14 verbose #38546 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38547 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38548 > │ v4 │
00:08:14 verbose #38549 > │ #endif │
00:08:14 verbose #38550 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38551 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38552 > │ v5 │
00:08:14 verbose #38553 > │ #endif │
00:08:14 verbose #38554 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38555 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38556 > │ v6 │
00:08:14 verbose #38557 > │ #endif │
00:08:14 verbose #38558 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38559 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38560 > │ let v7 : Async<int64> option = None │
00:08:14 verbose #38561 > │ let mutable _v7 = v7 │
00:08:14 verbose #38562 > │ async { │
00:08:14 verbose #38563 > │ try │
00:08:14 verbose #38564 > │ let v8 : unit option = None │
00:08:14 verbose #38565 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:14 verbose #38566 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38567 > │ null |> unbox<unit> │
00:08:14 verbose #38568 > │ () │
00:08:14 verbose #38569 > │ #endif │
00:08:14 verbose #38570 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38571 > │ null |> unbox<unit> │
00:08:14 verbose #38572 > │ () │
00:08:14 verbose #38573 > │ #endif │
00:08:14 verbose #38574 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38575 > │ null |> unbox<unit> │
00:08:14 verbose #38576 > │ () │
00:08:14 verbose #38577 > │ #endif │
00:08:14 verbose #38578 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38579 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38580 > │ let v10 : (string -> unit) = System.IO.File.Delete │
00:08:14 verbose #38581 > │ v10 v0 │
00:08:14 verbose #38582 > │ () │
00:08:14 verbose #38583 > │ #endif │
00:08:14 verbose #38584 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38585 > │ null |> unbox<unit> │
00:08:14 verbose #38586 > │ () │
00:08:14 verbose #38587 > │ #endif │
00:08:14 verbose #38588 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38589 > │ Unchecked.defaultof<unit> │
00:08:14 verbose #38590 > │ () │
00:08:14 verbose #38591 > │ #endif │
00:08:14 verbose #38592 > │ |> fun x -> _v8 <- Some x │
00:08:14 verbose #38593 > │ _v8.Value │
00:08:14 verbose #38594 > │ return v1 │
00:08:14 verbose #38595 > │ with ex -> │
00:08:14 verbose #38596 > │ let v11 : exn = ex │
00:08:14 verbose #38597 > │ let v12 : int64 = v1 % 100L │
00:08:14 verbose #38598 > │ let v13 : bool = v12 = 0L │
00:08:14 verbose #38599 > │ if v13 then │
00:08:14 verbose #38600 > │ let v14 : US0 = US0_3 │
00:08:14 verbose #38601 > │ let v15 : (unit -> string) = closure19() │
00:08:14 verbose #38602 > │ let v16 : (unit -> string) = closure20(v0, v11) │
00:08:14 verbose #38603 > │ method4(v14, v15, v16) │
00:08:14 verbose #38604 > │ let v17 : Async<unit> option = None │
00:08:14 verbose #38605 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:14 verbose #38606 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38607 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38608 > │ v19 │
00:08:14 verbose #38609 > │ #endif │
00:08:14 verbose #38610 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38611 > │ let v20 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38612 > │ v20 │
00:08:14 verbose #38613 > │ #endif │
00:08:14 verbose #38614 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38615 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38616 > │ v21 │
00:08:14 verbose #38617 > │ #endif │
00:08:14 verbose #38618 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38619 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38620 > │ let v22 : (int32 -> Async<unit>) = Async.Sleep │
00:08:14 verbose #38621 > │ let v23 : Async<unit> = v22 10 │
00:08:14 verbose #38622 > │ v23 │
00:08:14 verbose #38623 > │ #endif │
00:08:14 verbose #38624 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38625 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #38626 > │ v24 │
00:08:14 verbose #38627 > │ #endif │
00:08:14 verbose #38628 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38629 > │ let v25 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #38630 > │ v25 │
00:08:14 verbose #38631 > │ #endif │
00:08:14 verbose #38632 > │ |> fun x -> _v17 <- Some x │
00:08:14 verbose #38633 > │ let v26 : Async<unit> = _v17.Value │
00:08:14 verbose #38634 > │ do! v26 │
00:08:14 verbose #38635 > │ let v27 : int64 = v1 + 1L │
00:08:14 verbose #38636 > │ let v28 : Async<int64> = method13(v0, v27) │
00:08:14 verbose #38637 > │ return! v28 │
00:08:14 verbose #38638 > │ (* │
00:08:14 verbose #38639 > │ let v29 : int64 = *) │
00:08:14 verbose #38640 > │ } │
00:08:14 verbose #38641 > │ |> fun x -> _v7 <- Some x │
00:08:14 verbose #38642 > │ let v30 : Async<int64> = _v7 |> Option.get │
00:08:14 verbose #38643 > │ v30 │
00:08:14 verbose #38644 > │ #endif │
00:08:14 verbose #38645 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38646 > │ let v31 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #38647 > │ v31 │
00:08:14 verbose #38648 > │ #endif │
00:08:14 verbose #38649 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38650 > │ let v32 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 verbose #38651 > │ v32 │
00:08:14 verbose #38652 > │ #endif │
00:08:14 verbose #38653 > │ |> fun x -> _v2 <- Some x │
00:08:14 verbose #38654 > │ let v33 : Async<int64> = _v2.Value │
00:08:14 verbose #38655 > │ v33 │
00:08:14 verbose #38656 > │ and closure21 () () : string = │
00:08:14 verbose #38657 > │ let v0 : string = "5" │
00:08:14 verbose #38658 > │ v0 │
00:08:14 verbose #38659 > │ and closure22 () () : string = │
00:08:14 verbose #38660 > │ let v0 : string = "6" │
00:08:14 verbose #38661 > │ v0 │
00:08:14 verbose #38662 > │ and closure23 () (v0 : int64) : US3 = │
00:08:14 verbose #38663 > │ US3_0(v0) │
00:08:14 verbose #38664 > │ and closure24 () (v0 : exn) : US3 = │
00:08:14 verbose #38665 > │ US3_1(v0) │
00:08:14 verbose #38666 > │ and closure25 () () : string = │
00:08:14 verbose #38667 > │ let v0 : string = "run_with_timeout_async" │
00:08:14 verbose #38668 > │ v0 │
00:08:14 verbose #38669 > │ and closure26 () () : string = │
00:08:14 verbose #38670 > │ let v0 : (unit -> string) = closure3() │
00:08:14 verbose #38671 > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:08:14 verbose #38672 > │ v1 │
00:08:14 verbose #38673 > │ and closure27 (v0 : string) () : string = │
00:08:14 verbose #38674 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:08:14 verbose #38675 > │ v1 │
00:08:14 verbose #38676 > │ and method14 (v0 : bool) : bool = │
00:08:14 verbose #38677 > │ v0 │
00:08:14 verbose #38678 > │ and method0 () : unit = │
00:08:14 verbose #38679 > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:14 verbose #38680 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:14 verbose #38681 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38682 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:08:14 verbose #38683 > │ (string * System.IDisposable)> │
00:08:14 verbose #38684 > │ struct (v2, v3) │
00:08:14 verbose #38685 > │ #endif │
00:08:14 verbose #38686 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38687 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:08:14 verbose #38688 > │ (string * System.IDisposable)> │
00:08:14 verbose #38689 > │ struct (v4, v5) │
00:08:14 verbose #38690 > │ #endif │
00:08:14 verbose #38691 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38692 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:08:14 verbose #38693 > │ (string * System.IDisposable)> │
00:08:14 verbose #38694 > │ struct (v6, v7) │
00:08:14 verbose #38695 > │ #endif │
00:08:14 verbose #38696 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38697 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38698 > │ let v8 : string option = None │
00:08:14 verbose #38699 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:14 verbose #38700 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38701 > │ let v10 : string = null |> unbox<string> │
00:08:14 verbose #38702 > │ v10 │
00:08:14 verbose #38703 > │ #endif │
00:08:14 verbose #38704 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38705 > │ let v11 : string = null |> unbox<string> │
00:08:14 verbose #38706 > │ v11 │
00:08:14 verbose #38707 > │ #endif │
00:08:14 verbose #38708 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38709 > │ let v12 : string = null |> unbox<string> │
00:08:14 verbose #38710 > │ v12 │
00:08:14 verbose #38711 > │ #endif │
00:08:14 verbose #38712 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38713 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38714 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:14 verbose #38715 > │ let v14 : string = v13 () │
00:08:14 verbose #38716 > │ let v15 : (unit -> string) = closure0() │
00:08:14 verbose #38717 > │ let v16 : string = $"!{v15 ()}" │
00:08:14 verbose #38718 > │ let v17 : string option = None │
00:08:14 verbose #38719 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:14 verbose #38720 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38721 > │ let v19 : string = method1(v14) │
00:08:14 verbose #38722 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38723 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:14 verbose #38724 > │ let v22 : string = "String::from($0)" │
00:08:14 verbose #38725 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:08:14 verbose #38726 > │ v22 │
00:08:14 verbose #38727 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:08:14 verbose #38728 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:14 verbose #38729 > │ let v26 : string = method1(v16) │
00:08:14 verbose #38730 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38731 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:14 verbose #38732 > │ let v29 : string = "String::from($0)" │
00:08:14 verbose #38733 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:08:14 verbose #38734 > │ v29 │
00:08:14 verbose #38735 > │ let v31 : string = "$0.join($1)" │
00:08:14 verbose #38736 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 verbose #38737 > │ (v25, v30) v31 │
00:08:14 verbose #38738 > │ let v33 : string = "$0.display().to_string()" │
00:08:14 verbose #38739 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:08:14 verbose #38740 > │ v33 │
00:08:14 verbose #38741 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 verbose #38742 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:08:14 verbose #38743 > │ v36 │
00:08:14 verbose #38744 > │ #endif │
00:08:14 verbose #38745 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38746 > │ let v37 : string = null |> unbox<string> │
00:08:14 verbose #38747 > │ v37 │
00:08:14 verbose #38748 > │ #endif │
00:08:14 verbose #38749 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38750 > │ let v38 : string = null |> unbox<string> │
00:08:14 verbose #38751 > │ v38 │
00:08:14 verbose #38752 > │ #endif │
00:08:14 verbose #38753 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38754 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38755 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:08:14 verbose #38756 > │ v39 │
00:08:14 verbose #38757 > │ #endif │
00:08:14 verbose #38758 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38759 > │ let v40 : string = "path" │
00:08:14 verbose #38760 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:14 verbose #38761 > │ let v42 : string = method2(v14) │
00:08:14 verbose #38762 > │ let v43 : string = method3(v16) │
00:08:14 verbose #38763 > │ let v44 : string = "v41.join(v42, v43)" │
00:08:14 verbose #38764 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:08:14 verbose #38765 > │ v45 │
00:08:14 verbose #38766 > │ #endif │
00:08:14 verbose #38767 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38768 > │ let v46 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38769 > │ v46 │
00:08:14 verbose #38770 > │ #endif │
00:08:14 verbose #38771 > │ |> fun x -> _v17 <- Some x │
00:08:14 verbose #38772 > │ let v47 : string = _v17.Value │
00:08:14 verbose #38773 > │ let v48 : System.DateTime = System.DateTime.Now │
00:08:14 verbose #38774 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:08:14 verbose #38775 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:08:14 verbose #38776 > │ let v51 : string = v50 v49 │
00:08:14 verbose #38777 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:14 verbose #38778 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:08:14 verbose #38779 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:08:14 verbose #38780 > │ let v55 : string = v54 v53 │
00:08:14 verbose #38781 > │ let v56 : string option = None │
00:08:14 verbose #38782 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:08:14 verbose #38783 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38784 > │ let v58 : string = method1(v47) │
00:08:14 verbose #38785 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38786 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:08:14 verbose #38787 > │ let v61 : string = "String::from($0)" │
00:08:14 verbose #38788 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:08:14 verbose #38789 > │ v61 │
00:08:14 verbose #38790 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:08:14 verbose #38791 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:08:14 verbose #38792 > │ let v65 : string = method1(v55) │
00:08:14 verbose #38793 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #38794 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:14 verbose #38795 > │ let v68 : string = "String::from($0)" │
00:08:14 verbose #38796 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:08:14 verbose #38797 > │ v68 │
00:08:14 verbose #38798 > │ let v70 : string = "$0.join($1)" │
00:08:14 verbose #38799 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 verbose #38800 > │ (v64, v69) v70 │
00:08:14 verbose #38801 > │ let v72 : string = "$0.display().to_string()" │
00:08:14 verbose #38802 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:08:14 verbose #38803 > │ v72 │
00:08:14 verbose #38804 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 verbose #38805 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:08:14 verbose #38806 > │ v75 │
00:08:14 verbose #38807 > │ #endif │
00:08:14 verbose #38808 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38809 > │ let v76 : string = null |> unbox<string> │
00:08:14 verbose #38810 > │ v76 │
00:08:14 verbose #38811 > │ #endif │
00:08:14 verbose #38812 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38813 > │ let v77 : string = null |> unbox<string> │
00:08:14 verbose #38814 > │ v77 │
00:08:14 verbose #38815 > │ #endif │
00:08:14 verbose #38816 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38817 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38818 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:08:14 verbose #38819 > │ v78 │
00:08:14 verbose #38820 > │ #endif │
00:08:14 verbose #38821 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38822 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:14 verbose #38823 > │ let v80 : string = method2(v47) │
00:08:14 verbose #38824 > │ let v81 : string = method3(v55) │
00:08:14 verbose #38825 > │ let v82 : string = "v79.join(v80, v81)" │
00:08:14 verbose #38826 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:08:14 verbose #38827 > │ v83 │
00:08:14 verbose #38828 > │ #endif │
00:08:14 verbose #38829 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38830 > │ let v84 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38831 > │ v84 │
00:08:14 verbose #38832 > │ #endif │
00:08:14 verbose #38833 > │ |> fun x -> _v56 <- Some x │
00:08:14 verbose #38834 > │ let v85 : string = _v56.Value │
00:08:14 verbose #38835 > │ v85 │
00:08:14 verbose #38836 > │ #endif │
00:08:14 verbose #38837 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38838 > │ let v86 : string = null |> unbox<string> │
00:08:14 verbose #38839 > │ v86 │
00:08:14 verbose #38840 > │ #endif │
00:08:14 verbose #38841 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38842 > │ let v87 : string = Unchecked.defaultof<string> │
00:08:14 verbose #38843 > │ v87 │
00:08:14 verbose #38844 > │ #endif │
00:08:14 verbose #38845 > │ |> fun x -> _v8 <- Some x │
00:08:14 verbose #38846 > │ let v88 : string = _v8.Value │
00:08:14 verbose #38847 > │ let v89 : System.IO.DirectoryInfo option = None │
00:08:14 verbose #38848 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:14 verbose #38849 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38850 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:08:14 verbose #38851 > │ unbox<System.IO.DirectoryInfo> │
00:08:14 verbose #38852 > │ v91 │
00:08:14 verbose #38853 > │ #endif │
00:08:14 verbose #38854 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38855 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:08:14 verbose #38856 > │ unbox<System.IO.DirectoryInfo> │
00:08:14 verbose #38857 > │ v92 │
00:08:14 verbose #38858 > │ #endif │
00:08:14 verbose #38859 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38860 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:08:14 verbose #38861 > │ unbox<System.IO.DirectoryInfo> │
00:08:14 verbose #38862 > │ v93 │
00:08:14 verbose #38863 > │ #endif │
00:08:14 verbose #38864 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38865 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38866 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:08:14 verbose #38867 > │ System.IO.Directory.CreateDirectory │
00:08:14 verbose #38868 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:08:14 verbose #38869 > │ v95 │
00:08:14 verbose #38870 > │ #endif │
00:08:14 verbose #38871 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38872 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:08:14 verbose #38873 > │ unbox<System.IO.DirectoryInfo> │
00:08:14 verbose #38874 > │ v96 │
00:08:14 verbose #38875 > │ #endif │
00:08:14 verbose #38876 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38877 > │ let v97 : System.IO.DirectoryInfo = │
00:08:14 verbose #38878 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:14 verbose #38879 > │ v97 │
00:08:14 verbose #38880 > │ #endif │
00:08:14 verbose #38881 > │ |> fun x -> _v89 <- Some x │
00:08:14 verbose #38882 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:08:14 verbose #38883 > │ let v99 : bool option = None │
00:08:14 verbose #38884 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:08:14 verbose #38885 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38886 > │ let v101 : bool = null |> unbox<bool> │
00:08:14 verbose #38887 > │ v101 │
00:08:14 verbose #38888 > │ #endif │
00:08:14 verbose #38889 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38890 > │ let v102 : bool = null |> unbox<bool> │
00:08:14 verbose #38891 > │ v102 │
00:08:14 verbose #38892 > │ #endif │
00:08:14 verbose #38893 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38894 > │ let v103 : bool = null |> unbox<bool> │
00:08:14 verbose #38895 > │ v103 │
00:08:14 verbose #38896 > │ #endif │
00:08:14 verbose #38897 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38898 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38899 > │ let v104 : bool = v98.Exists │
00:08:14 verbose #38900 > │ v104 │
00:08:14 verbose #38901 > │ #endif │
00:08:14 verbose #38902 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38903 > │ let v105 : bool = null |> unbox<bool> │
00:08:14 verbose #38904 > │ v105 │
00:08:14 verbose #38905 > │ #endif │
00:08:14 verbose #38906 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38907 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:08:14 verbose #38908 > │ v106 │
00:08:14 verbose #38909 > │ #endif │
00:08:14 verbose #38910 > │ |> fun x -> _v99 <- Some x │
00:08:14 verbose #38911 > │ let v107 : bool = _v99.Value │
00:08:14 verbose #38912 > │ let v108 : bool = v107 = false │
00:08:14 verbose #38913 > │ if v108 then │
00:08:14 verbose #38914 > │ let v109 : System.DateTime option = None │
00:08:14 verbose #38915 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:08:14 verbose #38916 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38917 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 verbose #38918 > │ v111 │
00:08:14 verbose #38919 > │ #endif │
00:08:14 verbose #38920 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38921 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 verbose #38922 > │ v112 │
00:08:14 verbose #38923 > │ #endif │
00:08:14 verbose #38924 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38925 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 verbose #38926 > │ v113 │
00:08:14 verbose #38927 > │ #endif │
00:08:14 verbose #38928 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38929 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38930 > │ let v114 : System.DateTime = v98.CreationTime │
00:08:14 verbose #38931 > │ v114 │
00:08:14 verbose #38932 > │ #endif │
00:08:14 verbose #38933 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38934 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 verbose #38935 > │ v115 │
00:08:14 verbose #38936 > │ #endif │
00:08:14 verbose #38937 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 verbose #38938 > │ FABLE_COMPILER_DART │
00:08:14 verbose #38939 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:14 verbose #38940 > │ v116 │
00:08:14 verbose #38941 > │ #endif │
00:08:14 verbose #38942 > │ |> fun x -> _v109 <- Some x │
00:08:14 verbose #38943 > │ let v117 : System.DateTime = _v109.Value │
00:08:14 verbose #38944 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:08:14 verbose #38945 > │ let v119 : string = $"%A{v118}" │
00:08:14 verbose #38946 > │ let v120 : US0 = US0_1 │
00:08:14 verbose #38947 > │ let v121 : (unit -> string) = closure1() │
00:08:14 verbose #38948 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:08:14 verbose #38949 > │ method4(v120, v121, v122) │
00:08:14 verbose #38950 > │ let v123 : System.IDisposable option = None │
00:08:14 verbose #38951 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:08:14 verbose #38952 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #38953 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 verbose #38954 > │ v125 │
00:08:14 verbose #38955 > │ #endif │
00:08:14 verbose #38956 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #38957 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 verbose #38958 > │ v126 │
00:08:14 verbose #38959 > │ #endif │
00:08:14 verbose #38960 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #38961 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 verbose #38962 > │ v127 │
00:08:14 verbose #38963 > │ #endif │
00:08:14 verbose #38964 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #38965 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #38966 > │ let v128 : (unit -> unit) = closure8(v88) │
00:08:14 verbose #38967 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:08:14 verbose #38968 > │ _.Dispose () = v128 () } │
00:08:14 verbose #38969 > │ v129 │
00:08:14 verbose #38970 > │ #endif │
00:08:14 verbose #38971 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38972 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 verbose #38973 > │ v130 │
00:08:14 verbose #38974 > │ #endif │
00:08:14 verbose #38975 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38976 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:14 verbose #38977 > │ v131 │
00:08:14 verbose #38978 > │ #endif │
00:08:14 verbose #38979 > │ |> fun x -> _v123 <- Some x │
00:08:14 verbose #38980 > │ let v132 : System.IDisposable = _v123.Value │
00:08:14 verbose #38981 > │ struct (v88, v132) │
00:08:14 verbose #38982 > │ #endif │
00:08:14 verbose #38983 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #38984 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:08:14 verbose #38985 > │ unbox<struct (string * System.IDisposable)> │
00:08:14 verbose #38986 > │ struct (v133, v134) │
00:08:14 verbose #38987 > │ #endif │
00:08:14 verbose #38988 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #38989 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:08:14 verbose #38990 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:14 verbose #38991 > │ struct (v135, v136) │
00:08:14 verbose #38992 > │ #endif │
00:08:14 verbose #38993 > │ |> fun x -> _v0 <- Some x │
00:08:14 verbose #38994 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:08:14 verbose #38995 > │ use v138 = v138 │
00:08:14 verbose #38996 > │ let v139 : System.IDisposable = v138 │
00:08:14 verbose #38997 > │ let v140 : string option = None │
00:08:14 verbose #38998 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:08:14 verbose #38999 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39000 > │ let v142 : string = method1(v137) │
00:08:14 verbose #39001 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #39002 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:08:14 verbose #39003 > │ let v145 : string = "String::from($0)" │
00:08:14 verbose #39004 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:08:14 verbose #39005 > │ v145 │
00:08:14 verbose #39006 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:08:14 verbose #39007 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:08:14 verbose #39008 > │ v147 │
00:08:14 verbose #39009 > │ let v149 : string = method11() │
00:08:14 verbose #39010 > │ let v150 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 verbose #39011 > │ let v151 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v149 v150 │
00:08:14 verbose #39012 > │ let v152 : string = "String::from($0)" │
00:08:14 verbose #39013 > │ let v153 : std_string_String = Fable.Core.RustInterop.emitRustExpr v151 │
00:08:14 verbose #39014 > │ v152 │
00:08:14 verbose #39015 > │ let v154 : string = "$0.join($1)" │
00:08:14 verbose #39016 > │ let v155 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 verbose #39017 > │ (v148, v153) v154 │
00:08:14 verbose #39018 > │ let v156 : string = "$0.display().to_string()" │
00:08:14 verbose #39019 > │ let v157 : std_string_String = Fable.Core.RustInterop.emitRustExpr v155 │
00:08:14 verbose #39020 > │ v156 │
00:08:14 verbose #39021 > │ let v158 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 verbose #39022 > │ let v159 : string = Fable.Core.RustInterop.emitRustExpr v157 v158 │
00:08:14 verbose #39023 > │ v159 │
00:08:14 verbose #39024 > │ #endif │
00:08:14 verbose #39025 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39026 > │ let v160 : string = null |> unbox<string> │
00:08:14 verbose #39027 > │ v160 │
00:08:14 verbose #39028 > │ #endif │
00:08:14 verbose #39029 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39030 > │ let v161 : string = null |> unbox<string> │
00:08:14 verbose #39031 > │ v161 │
00:08:14 verbose #39032 > │ #endif │
00:08:14 verbose #39033 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39034 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39035 > │ let v162 : string = "test.txt" │
00:08:14 verbose #39036 > │ let v163 : string = System.IO.Path.Combine (v137, v162) │
00:08:14 verbose #39037 > │ v163 │
00:08:14 verbose #39038 > │ #endif │
00:08:14 verbose #39039 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39040 > │ let v164 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:14 verbose #39041 > │ let v165 : string = method2(v137) │
00:08:14 verbose #39042 > │ let v166 : string = method12() │
00:08:14 verbose #39043 > │ let v167 : string = "v164.join(v165, v166)" │
00:08:14 verbose #39044 > │ let v168 : string = Fable.Core.JsInterop.emitJsExpr () v167 │
00:08:14 verbose #39045 > │ v168 │
00:08:14 verbose #39046 > │ #endif │
00:08:14 verbose #39047 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39048 > │ let v169 : string = Unchecked.defaultof<string> │
00:08:14 verbose #39049 > │ v169 │
00:08:14 verbose #39050 > │ #endif │
00:08:14 verbose #39051 > │ |> fun x -> _v140 <- Some x │
00:08:14 verbose #39052 > │ let v170 : string = _v140.Value │
00:08:14 verbose #39053 > │ let v171 : Async<int64> option = None │
00:08:14 verbose #39054 > │ let v172 : bool = true in let mutable _v171 = v171 │
00:08:14 verbose #39055 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39056 > │ let v173 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39057 > │ v173 │
00:08:14 verbose #39058 > │ #endif │
00:08:14 verbose #39059 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39060 > │ let v174 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39061 > │ v174 │
00:08:14 verbose #39062 > │ #endif │
00:08:14 verbose #39063 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39064 > │ let v175 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39065 > │ v175 │
00:08:14 verbose #39066 > │ #endif │
00:08:14 verbose #39067 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39068 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39069 > │ let v176 : Async<int64> option = None │
00:08:14 verbose #39070 > │ let mutable _v176 = v176 │
00:08:14 verbose #39071 > │ async { │
00:08:14 verbose #39072 > │ let v177 : US0 = US0_1 │
00:08:14 verbose #39073 > │ let v178 : (unit -> string) = closure12() │
00:08:14 verbose #39074 > │ let v179 : (unit -> string) = closure3() │
00:08:14 verbose #39075 > │ method4(v177, v178, v179) │
00:08:14 verbose #39076 > │ let v180 : Async<unit> option = None │
00:08:14 verbose #39077 > │ let v181 : bool = true in let mutable _v180 = v180 │
00:08:14 verbose #39078 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39079 > │ let v182 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39080 > │ v182 │
00:08:14 verbose #39081 > │ #endif │
00:08:14 verbose #39082 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39083 > │ let v183 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39084 > │ v183 │
00:08:14 verbose #39085 > │ #endif │
00:08:14 verbose #39086 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39087 > │ let v184 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39088 > │ v184 │
00:08:14 verbose #39089 > │ #endif │
00:08:14 verbose #39090 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39091 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39092 > │ let v185 : string = "0" │
00:08:14 verbose #39093 > │ let v186 : System.Threading.Tasks.Task = │
00:08:14 verbose #39094 > │ System.IO.File.WriteAllTextAsync (v170, v185) │
00:08:14 verbose #39095 > │ let v187 : Async<unit> option = None │
00:08:14 verbose #39096 > │ let v188 : bool = true in let mutable _v187 = v187 │
00:08:14 verbose #39097 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39098 > │ let v189 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39099 > │ v189 │
00:08:14 verbose #39100 > │ #endif │
00:08:14 verbose #39101 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39102 > │ let v190 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39103 > │ v190 │
00:08:14 verbose #39104 > │ #endif │
00:08:14 verbose #39105 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39106 > │ let v191 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39107 > │ v191 │
00:08:14 verbose #39108 > │ #endif │
00:08:14 verbose #39109 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39110 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39111 > │ let v192 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:14 verbose #39112 > │ Async.AwaitTask │
00:08:14 verbose #39113 > │ let v193 : Async<unit> = v192 v186 │
00:08:14 verbose #39114 > │ v193 │
00:08:14 verbose #39115 > │ #endif │
00:08:14 verbose #39116 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39117 > │ let v194 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39118 > │ v194 │
00:08:14 verbose #39119 > │ #endif │
00:08:14 verbose #39120 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39121 > │ let v195 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #39122 > │ v195 │
00:08:14 verbose #39123 > │ #endif │
00:08:14 verbose #39124 > │ |> fun x -> _v187 <- Some x │
00:08:14 verbose #39125 > │ let v196 : Async<unit> = _v187.Value │
00:08:14 verbose #39126 > │ v196 │
00:08:14 verbose #39127 > │ #endif │
00:08:14 verbose #39128 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39129 > │ let v197 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39130 > │ v197 │
00:08:14 verbose #39131 > │ #endif │
00:08:14 verbose #39132 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39133 > │ let v198 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #39134 > │ v198 │
00:08:14 verbose #39135 > │ #endif │
00:08:14 verbose #39136 > │ |> fun x -> _v180 <- Some x │
00:08:14 verbose #39137 > │ let v199 : Async<unit> = _v180.Value │
00:08:14 verbose #39138 > │ do! v199 │
00:08:14 verbose #39139 > │ let v200 : US0 = US0_1 │
00:08:14 verbose #39140 > │ let v201 : (unit -> string) = closure13() │
00:08:14 verbose #39141 > │ method4(v200, v201, v179) │
00:08:14 verbose #39142 > │ let v202 : Async<unit> option = None │
00:08:14 verbose #39143 > │ let v203 : bool = true in let mutable _v202 = v202 │
00:08:14 verbose #39144 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39145 > │ let v204 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39146 > │ v204 │
00:08:14 verbose #39147 > │ #endif │
00:08:14 verbose #39148 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39149 > │ let v205 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39150 > │ v205 │
00:08:14 verbose #39151 > │ #endif │
00:08:14 verbose #39152 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39153 > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39154 > │ v206 │
00:08:14 verbose #39155 > │ #endif │
00:08:14 verbose #39156 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39157 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39158 > │ let v207 : Async<unit> option = None │
00:08:14 verbose #39159 > │ let mutable _v207 = v207 │
00:08:14 verbose #39160 > │ async { │
00:08:14 verbose #39161 > │ let v208 : US0 = US0_1 │
00:08:14 verbose #39162 > │ let v209 : (unit -> string) = closure14() │
00:08:14 verbose #39163 > │ method4(v208, v209, v179) │
00:08:14 verbose #39164 > │ let v210 : System.IO.FileStream option = None │
00:08:14 verbose #39165 > │ let v211 : bool = true in let mutable _v210 = v210 │
00:08:14 verbose #39166 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39167 > │ let v212 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:14 verbose #39168 > │ v212 │
00:08:14 verbose #39169 > │ #endif │
00:08:14 verbose #39170 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39171 > │ let v213 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:14 verbose #39172 > │ v213 │
00:08:14 verbose #39173 > │ #endif │
00:08:14 verbose #39174 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39175 > │ let v214 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:14 verbose #39176 > │ v214 │
00:08:14 verbose #39177 > │ #endif │
00:08:14 verbose #39178 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39179 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39180 > │ let v215 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:14 verbose #39181 > │ let v216 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:14 verbose #39182 > │ let v217 : System.IO.FileShare = System.IO.FileShare.None │
00:08:14 verbose #39183 > │ let v218 : System.IO.FileStream = new System.IO.FileStream (v170, v215, │
00:08:14 verbose #39184 > │ v216, v217) │
00:08:14 verbose #39185 > │ v218 │
00:08:14 verbose #39186 > │ #endif │
00:08:14 verbose #39187 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39188 > │ let v219 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:14 verbose #39189 > │ v219 │
00:08:14 verbose #39190 > │ #endif │
00:08:14 verbose #39191 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39192 > │ let v220 : System.IO.FileStream = │
00:08:14 verbose #39193 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:14 verbose #39194 > │ v220 │
00:08:14 verbose #39195 > │ #endif │
00:08:14 verbose #39196 > │ |> fun x -> _v210 <- Some x │
00:08:14 verbose #39197 > │ let v221 : System.IO.FileStream = _v210.Value │
00:08:14 verbose #39198 > │ use v221 = v221 │
00:08:14 verbose #39199 > │ let v222 : System.IO.FileStream = v221 │
00:08:14 verbose #39200 > │ let v223 : US0 = US0_1 │
00:08:14 verbose #39201 > │ let v224 : (unit -> string) = closure15() │
00:08:14 verbose #39202 > │ method4(v223, v224, v179) │
00:08:14 verbose #39203 > │ let v225 : Async<unit> option = None │
00:08:14 verbose #39204 > │ let v226 : bool = true in let mutable _v225 = v225 │
00:08:14 verbose #39205 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39206 > │ let v227 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39207 > │ v227 │
00:08:14 verbose #39208 > │ #endif │
00:08:14 verbose #39209 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39210 > │ let v228 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39211 > │ v228 │
00:08:14 verbose #39212 > │ #endif │
00:08:14 verbose #39213 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39214 > │ let v229 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39215 > │ v229 │
00:08:14 verbose #39216 > │ #endif │
00:08:14 verbose #39217 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39218 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39219 > │ let v230 : (int32 -> Async<unit>) = Async.Sleep │
00:08:14 verbose #39220 > │ let v231 : Async<unit> = v230 2000 │
00:08:14 verbose #39221 > │ v231 │
00:08:14 verbose #39222 > │ #endif │
00:08:14 verbose #39223 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39224 > │ let v232 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39225 > │ v232 │
00:08:14 verbose #39226 > │ #endif │
00:08:14 verbose #39227 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39228 > │ let v233 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #39229 > │ v233 │
00:08:14 verbose #39230 > │ #endif │
00:08:14 verbose #39231 > │ |> fun x -> _v225 <- Some x │
00:08:14 verbose #39232 > │ let v234 : Async<unit> = _v225.Value │
00:08:14 verbose #39233 > │ do! v234 │
00:08:14 verbose #39234 > │ let v235 : US0 = US0_1 │
00:08:14 verbose #39235 > │ let v236 : (unit -> string) = closure16() │
00:08:14 verbose #39236 > │ method4(v235, v236, v179) │
00:08:14 verbose #39237 > │ } │
00:08:14 verbose #39238 > │ |> fun x -> _v207 <- Some x │
00:08:14 verbose #39239 > │ let v237 : Async<unit> = _v207 |> Option.get │
00:08:14 verbose #39240 > │ v237 │
00:08:14 verbose #39241 > │ #endif │
00:08:14 verbose #39242 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39243 > │ let v238 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39244 > │ v238 │
00:08:14 verbose #39245 > │ #endif │
00:08:14 verbose #39246 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39247 > │ let v239 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #39248 > │ v239 │
00:08:14 verbose #39249 > │ #endif │
00:08:14 verbose #39250 > │ |> fun x -> _v202 <- Some x │
00:08:14 verbose #39251 > │ let v240 : Async<unit> = _v202.Value │
00:08:14 verbose #39252 > │ let v241 : Async<Async<unit>> option = None │
00:08:14 verbose #39253 > │ let v242 : bool = true in let mutable _v241 = v241 │
00:08:14 verbose #39254 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39255 > │ let v243 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:14 verbose #39256 > │ v243 │
00:08:14 verbose #39257 > │ #endif │
00:08:14 verbose #39258 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39259 > │ let v244 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:14 verbose #39260 > │ v244 │
00:08:14 verbose #39261 > │ #endif │
00:08:14 verbose #39262 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39263 > │ let v245 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:14 verbose #39264 > │ v245 │
00:08:14 verbose #39265 > │ #endif │
00:08:14 verbose #39266 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39267 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39268 > │ let v246 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:08:14 verbose #39269 > │ let v247 : Async<Async<unit>> = v246 v240 │
00:08:14 verbose #39270 > │ v247 │
00:08:14 verbose #39271 > │ #endif │
00:08:14 verbose #39272 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39273 > │ let v248 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:14 verbose #39274 > │ v248 │
00:08:14 verbose #39275 > │ #endif │
00:08:14 verbose #39276 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39277 > │ let v249 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:08:14 verbose #39278 > │ v249 │
00:08:14 verbose #39279 > │ #endif │
00:08:14 verbose #39280 > │ |> fun x -> _v241 <- Some x │
00:08:14 verbose #39281 > │ let v250 : Async<Async<unit>> = _v241.Value │
00:08:14 verbose #39282 > │ let! v250 = v250 │
00:08:14 verbose #39283 > │ let v251 : Async<unit> = v250 │
00:08:14 verbose #39284 > │ let v252 : US0 = US0_1 │
00:08:14 verbose #39285 > │ let v253 : (unit -> string) = closure17() │
00:08:14 verbose #39286 > │ method4(v252, v253, v179) │
00:08:14 verbose #39287 > │ let v254 : Async<unit> option = None │
00:08:14 verbose #39288 > │ let v255 : bool = true in let mutable _v254 = v254 │
00:08:14 verbose #39289 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39290 > │ let v256 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39291 > │ v256 │
00:08:14 verbose #39292 > │ #endif │
00:08:14 verbose #39293 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39294 > │ let v257 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39295 > │ v257 │
00:08:14 verbose #39296 > │ #endif │
00:08:14 verbose #39297 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39298 > │ let v258 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39299 > │ v258 │
00:08:14 verbose #39300 > │ #endif │
00:08:14 verbose #39301 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39302 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39303 > │ let v259 : (int32 -> Async<unit>) = Async.Sleep │
00:08:14 verbose #39304 > │ let v260 : Async<unit> = v259 1 │
00:08:14 verbose #39305 > │ v260 │
00:08:14 verbose #39306 > │ #endif │
00:08:14 verbose #39307 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39308 > │ let v261 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 verbose #39309 > │ v261 │
00:08:14 verbose #39310 > │ #endif │
00:08:14 verbose #39311 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39312 > │ let v262 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 verbose #39313 > │ v262 │
00:08:14 verbose #39314 > │ #endif │
00:08:14 verbose #39315 > │ |> fun x -> _v254 <- Some x │
00:08:14 verbose #39316 > │ let v263 : Async<unit> = _v254.Value │
00:08:14 verbose #39317 > │ do! v263 │
00:08:14 verbose #39318 > │ let v264 : US0 = US0_1 │
00:08:14 verbose #39319 > │ let v265 : (unit -> string) = closure18() │
00:08:14 verbose #39320 > │ method4(v264, v265, v179) │
00:08:14 verbose #39321 > │ let v266 : Async<int64> option = None │
00:08:14 verbose #39322 > │ let v267 : bool = true in let mutable _v266 = v266 │
00:08:14 verbose #39323 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39324 > │ let v268 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39325 > │ v268 │
00:08:14 verbose #39326 > │ #endif │
00:08:14 verbose #39327 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39328 > │ let v269 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39329 > │ v269 │
00:08:14 verbose #39330 > │ #endif │
00:08:14 verbose #39331 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39332 > │ let v270 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39333 > │ v270 │
00:08:14 verbose #39334 > │ #endif │
00:08:14 verbose #39335 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39336 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39337 > │ let v271 : int64 = 0L │
00:08:14 verbose #39338 > │ let v272 : Async<int64> = method13(v170, v271) │
00:08:14 verbose #39339 > │ v272 │
00:08:14 verbose #39340 > │ #endif │
00:08:14 verbose #39341 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39342 > │ let v273 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39343 > │ v273 │
00:08:14 verbose #39344 > │ #endif │
00:08:14 verbose #39345 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39346 > │ let v274 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 verbose #39347 > │ v274 │
00:08:14 verbose #39348 > │ #endif │
00:08:14 verbose #39349 > │ |> fun x -> _v266 <- Some x │
00:08:14 verbose #39350 > │ let v275 : Async<int64> = _v266.Value │
00:08:14 verbose #39351 > │ let! v275 = v275 │
00:08:14 verbose #39352 > │ let v276 : int64 = v275 │
00:08:14 verbose #39353 > │ let v277 : US0 = US0_1 │
00:08:14 verbose #39354 > │ let v278 : (unit -> string) = closure21() │
00:08:14 verbose #39355 > │ method4(v277, v278, v179) │
00:08:14 verbose #39356 > │ do! v251 │
00:08:14 verbose #39357 > │ let v279 : US0 = US0_1 │
00:08:14 verbose #39358 > │ let v280 : (unit -> string) = closure22() │
00:08:14 verbose #39359 > │ method4(v279, v280, v179) │
00:08:14 verbose #39360 > │ return v276 │
00:08:14 verbose #39361 > │ } │
00:08:14 verbose #39362 > │ |> fun x -> _v176 <- Some x │
00:08:14 verbose #39363 > │ let v281 : Async<int64> = _v176 |> Option.get │
00:08:14 verbose #39364 > │ v281 │
00:08:14 verbose #39365 > │ #endif │
00:08:14 verbose #39366 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39367 > │ let v282 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 verbose #39368 > │ v282 │
00:08:14 verbose #39369 > │ #endif │
00:08:14 verbose #39370 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39371 > │ let v283 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 verbose #39372 > │ v283 │
00:08:14 verbose #39373 > │ #endif │
00:08:14 verbose #39374 > │ |> fun x -> _v171 <- Some x │
00:08:14 verbose #39375 > │ let v284 : Async<int64> = _v171.Value │
00:08:14 verbose #39376 > │ let v285 : Async<US2> option = None │
00:08:14 verbose #39377 > │ let v286 : bool = true in let mutable _v285 = v285 │
00:08:14 verbose #39378 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39379 > │ let v287 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39380 > │ v287 │
00:08:14 verbose #39381 > │ #endif │
00:08:14 verbose #39382 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39383 > │ let v288 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39384 > │ v288 │
00:08:14 verbose #39385 > │ #endif │
00:08:14 verbose #39386 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39387 > │ let v289 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39388 > │ v289 │
00:08:14 verbose #39389 > │ #endif │
00:08:14 verbose #39390 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39391 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39392 > │ let v290 : Async<US2> option = None │
00:08:14 verbose #39393 > │ let v291 : bool = true in let mutable _v290 = v290 │
00:08:14 verbose #39394 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39395 > │ let v292 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39396 > │ v292 │
00:08:14 verbose #39397 > │ #endif │
00:08:14 verbose #39398 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39399 > │ let v293 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39400 > │ v293 │
00:08:14 verbose #39401 > │ #endif │
00:08:14 verbose #39402 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39403 > │ let v294 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39404 > │ v294 │
00:08:14 verbose #39405 > │ #endif │
00:08:14 verbose #39406 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39407 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39408 > │ let v295 : Async<US2> option = None │
00:08:14 verbose #39409 > │ let mutable _v295 = v295 │
00:08:14 verbose #39410 > │ async { │
00:08:14 verbose #39411 > │ let v296 : Async<Async<int64>> option = None │
00:08:14 verbose #39412 > │ let v297 : bool = true in let mutable _v296 = v296 │
00:08:14 verbose #39413 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39414 > │ let v298 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 verbose #39415 > │ v298 │
00:08:14 verbose #39416 > │ #endif │
00:08:14 verbose #39417 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39418 > │ let v299 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 verbose #39419 > │ v299 │
00:08:14 verbose #39420 > │ #endif │
00:08:14 verbose #39421 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39422 > │ let v300 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 verbose #39423 > │ v300 │
00:08:14 verbose #39424 > │ #endif │
00:08:14 verbose #39425 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39426 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39427 > │ let v301 : Async<Async<int64>> = Async.StartChild (v284, 3000) │
00:08:14 verbose #39428 > │ v301 │
00:08:14 verbose #39429 > │ #endif │
00:08:14 verbose #39430 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39431 > │ let v302 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 verbose #39432 > │ v302 │
00:08:14 verbose #39433 > │ #endif │
00:08:14 verbose #39434 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39435 > │ let v303 : Async<Async<int64>> = │
00:08:14 verbose #39436 > │ Unchecked.defaultof<Async<Async<int64>>> │
00:08:14 verbose #39437 > │ v303 │
00:08:14 verbose #39438 > │ #endif │
00:08:14 verbose #39439 > │ |> fun x -> _v296 <- Some x │
00:08:14 verbose #39440 > │ let v304 : Async<Async<int64>> = _v296.Value │
00:08:14 verbose #39441 > │ let! v304 = v304 │
00:08:14 verbose #39442 > │ let v305 : Async<int64> = v304 │
00:08:14 verbose #39443 > │ let v306 : Async<Choice<int64, exn>> option = None │
00:08:14 verbose #39444 > │ let v307 : bool = true in let mutable _v306 = v306 │
00:08:14 verbose #39445 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39446 > │ let v308 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:14 verbose #39447 > │ exn>>> │
00:08:14 verbose #39448 > │ v308 │
00:08:14 verbose #39449 > │ #endif │
00:08:14 verbose #39450 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39451 > │ let v309 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:14 verbose #39452 > │ exn>>> │
00:08:14 verbose #39453 > │ v309 │
00:08:14 verbose #39454 > │ #endif │
00:08:14 verbose #39455 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39456 > │ let v310 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:14 verbose #39457 > │ exn>>> │
00:08:14 verbose #39458 > │ v310 │
00:08:14 verbose #39459 > │ #endif │
00:08:14 verbose #39460 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39461 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39462 > │ let v311 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:08:14 verbose #39463 > │ let v312 : Async<Choice<int64, exn>> = v311 v305 │
00:08:14 verbose #39464 > │ v312 │
00:08:14 verbose #39465 > │ #endif │
00:08:14 verbose #39466 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39467 > │ let v313 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:08:14 verbose #39468 > │ exn>>> │
00:08:14 verbose #39469 > │ v313 │
00:08:14 verbose #39470 > │ #endif │
00:08:14 verbose #39471 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39472 > │ let v314 : Async<Choice<int64, exn>> = │
00:08:14 verbose #39473 > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:08:14 verbose #39474 > │ v314 │
00:08:14 verbose #39475 > │ #endif │
00:08:14 verbose #39476 > │ |> fun x -> _v306 <- Some x │
00:08:14 verbose #39477 > │ let v315 : Async<Choice<int64, exn>> = _v306.Value │
00:08:14 verbose #39478 > │ let v316 : Async<US3> option = None │
00:08:14 verbose #39479 > │ let v317 : bool = true in let mutable _v316 = v316 │
00:08:14 verbose #39480 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39481 > │ let v318 : Async<US3> = null |> unbox<Async<US3>> │
00:08:14 verbose #39482 > │ v318 │
00:08:14 verbose #39483 > │ #endif │
00:08:14 verbose #39484 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39485 > │ let v319 : Async<US3> = null |> unbox<Async<US3>> │
00:08:14 verbose #39486 > │ v319 │
00:08:14 verbose #39487 > │ #endif │
00:08:14 verbose #39488 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39489 > │ let v320 : Async<US3> = null |> unbox<Async<US3>> │
00:08:14 verbose #39490 > │ v320 │
00:08:14 verbose #39491 > │ #endif │
00:08:14 verbose #39492 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39493 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39494 > │ let v321 : Async<US3> option = None │
00:08:14 verbose #39495 > │ let mutable _v321 = v321 │
00:08:14 verbose #39496 > │ async { │
00:08:14 verbose #39497 > │ let! v315 = v315 │
00:08:14 verbose #39498 > │ let v322 : Choice<int64, exn> = v315 │
00:08:14 verbose #39499 > │ let v323 : US3 option = None │
00:08:14 verbose #39500 > │ let v324 : bool = true in let mutable _v323 = v323 │
00:08:14 verbose #39501 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39502 > │ let v325 : US3 = null |> unbox<US3> │
00:08:14 verbose #39503 > │ v325 │
00:08:14 verbose #39504 > │ #endif │
00:08:14 verbose #39505 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39506 > │ let v326 : US3 = null |> unbox<US3> │
00:08:14 verbose #39507 > │ v326 │
00:08:14 verbose #39508 > │ #endif │
00:08:14 verbose #39509 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39510 > │ let v327 : US3 = null |> unbox<US3> │
00:08:14 verbose #39511 > │ v327 │
00:08:14 verbose #39512 > │ #endif │
00:08:14 verbose #39513 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39514 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39515 > │ let v328 : (int64 -> US3) = closure23() │
00:08:14 verbose #39516 > │ let v329 : (exn -> US3) = closure24() │
00:08:14 verbose #39517 > │ let v330 : US3 = match v322 with Choice1Of2 x -> v328 x | Choice2Of2 x │
00:08:14 verbose #39518 > │ -> v329 x │
00:08:14 verbose #39519 > │ v330 │
00:08:14 verbose #39520 > │ #endif │
00:08:14 verbose #39521 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39522 > │ let v331 : US3 = null |> unbox<US3> │
00:08:14 verbose #39523 > │ v331 │
00:08:14 verbose #39524 > │ #endif │
00:08:14 verbose #39525 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39526 > │ let v332 : US3 = Unchecked.defaultof<US3> │
00:08:14 verbose #39527 > │ v332 │
00:08:14 verbose #39528 > │ #endif │
00:08:14 verbose #39529 > │ |> fun x -> _v323 <- Some x │
00:08:14 verbose #39530 > │ let v333 : US3 = _v323.Value │
00:08:14 verbose #39531 > │ return v333 │
00:08:14 verbose #39532 > │ } │
00:08:14 verbose #39533 > │ |> fun x -> _v321 <- Some x │
00:08:14 verbose #39534 > │ let v334 : Async<US3> = _v321 |> Option.get │
00:08:14 verbose #39535 > │ v334 │
00:08:14 verbose #39536 > │ #endif │
00:08:14 verbose #39537 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39538 > │ let v335 : Async<US3> = null |> unbox<Async<US3>> │
00:08:14 verbose #39539 > │ v335 │
00:08:14 verbose #39540 > │ #endif │
00:08:14 verbose #39541 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39542 > │ let v336 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:14 verbose #39543 > │ v336 │
00:08:14 verbose #39544 > │ #endif │
00:08:14 verbose #39545 > │ |> fun x -> _v316 <- Some x │
00:08:14 verbose #39546 > │ let v337 : Async<US3> = _v316.Value │
00:08:14 verbose #39547 > │ let v338 : Async<US4> option = None │
00:08:14 verbose #39548 > │ let v339 : bool = true in let mutable _v338 = v338 │
00:08:14 verbose #39549 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39550 > │ let v340 : Async<US4> = null |> unbox<Async<US4>> │
00:08:14 verbose #39551 > │ v340 │
00:08:14 verbose #39552 > │ #endif │
00:08:14 verbose #39553 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39554 > │ let v341 : Async<US4> = null |> unbox<Async<US4>> │
00:08:14 verbose #39555 > │ v341 │
00:08:14 verbose #39556 > │ #endif │
00:08:14 verbose #39557 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39558 > │ let v342 : Async<US4> = null |> unbox<Async<US4>> │
00:08:14 verbose #39559 > │ v342 │
00:08:14 verbose #39560 > │ #endif │
00:08:14 verbose #39561 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39562 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39563 > │ let v343 : Async<US4> option = None │
00:08:14 verbose #39564 > │ let mutable _v343 = v343 │
00:08:14 verbose #39565 > │ async { │
00:08:14 verbose #39566 > │ let! v337 = v337 │
00:08:14 verbose #39567 > │ let v344 : US3 = v337 │
00:08:14 verbose #39568 > │ let v350 : US4 = │
00:08:14 verbose #39569 > │ match v344 with │
00:08:14 verbose #39570 > │ | US3_0(v345) -> (* Choice1Of2 *) │
00:08:14 verbose #39571 > │ US4_0(v345) │
00:08:14 verbose #39572 > │ | US3_1(v347) -> (* Choice2Of2 *) │
00:08:14 verbose #39573 > │ US4_1(v347) │
00:08:14 verbose #39574 > │ return v350 │
00:08:14 verbose #39575 > │ } │
00:08:14 verbose #39576 > │ |> fun x -> _v343 <- Some x │
00:08:14 verbose #39577 > │ let v351 : Async<US4> = _v343 |> Option.get │
00:08:14 verbose #39578 > │ v351 │
00:08:14 verbose #39579 > │ #endif │
00:08:14 verbose #39580 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39581 > │ let v352 : Async<US4> = null |> unbox<Async<US4>> │
00:08:14 verbose #39582 > │ v352 │
00:08:14 verbose #39583 > │ #endif │
00:08:14 verbose #39584 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39585 > │ let v353 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:08:14 verbose #39586 > │ v353 │
00:08:14 verbose #39587 > │ #endif │
00:08:14 verbose #39588 > │ |> fun x -> _v338 <- Some x │
00:08:14 verbose #39589 > │ let v354 : Async<US4> = _v338.Value │
00:08:14 verbose #39590 > │ let v355 : Async<US2> option = None │
00:08:14 verbose #39591 > │ let v356 : bool = true in let mutable _v355 = v355 │
00:08:14 verbose #39592 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39593 > │ let v357 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39594 > │ v357 │
00:08:14 verbose #39595 > │ #endif │
00:08:14 verbose #39596 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39597 > │ let v358 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39598 > │ v358 │
00:08:14 verbose #39599 > │ #endif │
00:08:14 verbose #39600 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39601 > │ let v359 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39602 > │ v359 │
00:08:14 verbose #39603 > │ #endif │
00:08:14 verbose #39604 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39605 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39606 > │ let v360 : Async<US2> option = None │
00:08:14 verbose #39607 > │ let mutable _v360 = v360 │
00:08:14 verbose #39608 > │ async { │
00:08:14 verbose #39609 > │ let! v354 = v354 │
00:08:14 verbose #39610 > │ let v361 : US4 = v354 │
00:08:14 verbose #39611 > │ let v387 : US2 = │
00:08:14 verbose #39612 > │ match v361 with │
00:08:14 verbose #39613 > │ | US4_1(v364) -> (* Error *) │
00:08:14 verbose #39614 > │ let v365 : string = $"%A{v364}" │
00:08:14 verbose #39615 > │ let v366 : string = "System.TimeoutException" │
00:08:14 verbose #39616 > │ let v367 : bool = v365.Contains v366 │
00:08:14 verbose #39617 > │ if v367 then │
00:08:14 verbose #39618 > │ let v368 : US0 = US0_1 │
00:08:14 verbose #39619 > │ let v369 : (unit -> string) = closure25() │
00:08:14 verbose #39620 > │ let v370 : (unit -> string) = closure26() │
00:08:14 verbose #39621 > │ method4(v368, v369, v370) │
00:08:14 verbose #39622 > │ US2_1 │
00:08:14 verbose #39623 > │ else │
00:08:14 verbose #39624 > │ let v372 : string option = None │
00:08:14 verbose #39625 > │ let v373 : bool = true in let mutable _v372 = v372 │
00:08:14 verbose #39626 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39627 > │ let v374 : string = $"%A{v364}" │
00:08:14 verbose #39628 > │ v374 │
00:08:14 verbose #39629 > │ #endif │
00:08:14 verbose #39630 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39631 > │ let v375 : string = $"%A{v364}" │
00:08:14 verbose #39632 > │ v375 │
00:08:14 verbose #39633 > │ #endif │
00:08:14 verbose #39634 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39635 > │ let v376 : string = $"%A{v364}" │
00:08:14 verbose #39636 > │ v376 │
00:08:14 verbose #39637 > │ #endif │
00:08:14 verbose #39638 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39639 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39640 > │ let v377 : string = $"{v364.GetType ()}: {v364.Message}" │
00:08:14 verbose #39641 > │ v377 │
00:08:14 verbose #39642 > │ #endif │
00:08:14 verbose #39643 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39644 > │ let v378 : string = $"%A{v364}" │
00:08:14 verbose #39645 > │ v378 │
00:08:14 verbose #39646 > │ #endif │
00:08:14 verbose #39647 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 verbose #39648 > │ FABLE_COMPILER_DART │
00:08:14 verbose #39649 > │ let v379 : string = Unchecked.defaultof<string> │
00:08:14 verbose #39650 > │ v379 │
00:08:14 verbose #39651 > │ #endif │
00:08:14 verbose #39652 > │ |> fun x -> _v372 <- Some x │
00:08:14 verbose #39653 > │ let v380 : string = _v372.Value │
00:08:14 verbose #39654 > │ let v381 : US0 = US0_4 │
00:08:14 verbose #39655 > │ let v382 : (unit -> string) = closure27(v380) │
00:08:14 verbose #39656 > │ let v383 : (unit -> string) = closure26() │
00:08:14 verbose #39657 > │ method4(v381, v382, v383) │
00:08:14 verbose #39658 > │ US2_1 │
00:08:14 verbose #39659 > │ | US4_0(v362) -> (* Ok *) │
00:08:14 verbose #39660 > │ US2_0(v362) │
00:08:14 verbose #39661 > │ return v387 │
00:08:14 verbose #39662 > │ } │
00:08:14 verbose #39663 > │ |> fun x -> _v360 <- Some x │
00:08:14 verbose #39664 > │ let v388 : Async<US2> = _v360 |> Option.get │
00:08:14 verbose #39665 > │ v388 │
00:08:14 verbose #39666 > │ #endif │
00:08:14 verbose #39667 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39668 > │ let v389 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39669 > │ v389 │
00:08:14 verbose #39670 > │ #endif │
00:08:14 verbose #39671 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39672 > │ let v390 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:14 verbose #39673 > │ v390 │
00:08:14 verbose #39674 > │ #endif │
00:08:14 verbose #39675 > │ |> fun x -> _v355 <- Some x │
00:08:14 verbose #39676 > │ let v391 : Async<US2> = _v355.Value │
00:08:14 verbose #39677 > │ return! v391 │
00:08:14 verbose #39678 > │ } │
00:08:14 verbose #39679 > │ |> fun x -> _v295 <- Some x │
00:08:14 verbose #39680 > │ let v392 : Async<US2> = _v295 |> Option.get │
00:08:14 verbose #39681 > │ v392 │
00:08:14 verbose #39682 > │ #endif │
00:08:14 verbose #39683 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39684 > │ let v393 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39685 > │ v393 │
00:08:14 verbose #39686 > │ #endif │
00:08:14 verbose #39687 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39688 > │ let v394 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:14 verbose #39689 > │ v394 │
00:08:14 verbose #39690 > │ #endif │
00:08:14 verbose #39691 > │ |> fun x -> _v290 <- Some x │
00:08:14 verbose #39692 > │ let v395 : Async<US2> = _v290.Value │
00:08:14 verbose #39693 > │ v395 │
00:08:14 verbose #39694 > │ #endif │
00:08:14 verbose #39695 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39696 > │ let v396 : Async<US2> = null |> unbox<Async<US2>> │
00:08:14 verbose #39697 > │ v396 │
00:08:14 verbose #39698 > │ #endif │
00:08:14 verbose #39699 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39700 > │ let v397 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:14 verbose #39701 > │ v397 │
00:08:14 verbose #39702 > │ #endif │
00:08:14 verbose #39703 > │ |> fun x -> _v285 <- Some x │
00:08:14 verbose #39704 > │ let v398 : Async<US2> = _v285.Value │
00:08:14 verbose #39705 > │ let v399 : US2 option = None │
00:08:14 verbose #39706 > │ let v400 : bool = true in let mutable _v399 = v399 │
00:08:14 verbose #39707 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39708 > │ let v401 : US2 = null |> unbox<US2> │
00:08:14 verbose #39709 > │ v401 │
00:08:14 verbose #39710 > │ #endif │
00:08:14 verbose #39711 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39712 > │ let v402 : US2 = null |> unbox<US2> │
00:08:14 verbose #39713 > │ v402 │
00:08:14 verbose #39714 > │ #endif │
00:08:14 verbose #39715 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39716 > │ let v403 : US2 = null |> unbox<US2> │
00:08:14 verbose #39717 > │ v403 │
00:08:14 verbose #39718 > │ #endif │
00:08:14 verbose #39719 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39720 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39721 > │ let v404 : (Async<US2> -> US2) = Async.RunSynchronously │
00:08:14 verbose #39722 > │ let v405 : US2 = v404 v398 │
00:08:14 verbose #39723 > │ v405 │
00:08:14 verbose #39724 > │ #endif │
00:08:14 verbose #39725 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39726 > │ let v406 : US2 = null |> unbox<US2> │
00:08:14 verbose #39727 > │ v406 │
00:08:14 verbose #39728 > │ #endif │
00:08:14 verbose #39729 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 verbose #39730 > │ let v407 : US2 = Unchecked.defaultof<US2> │
00:08:14 verbose #39731 > │ v407 │
00:08:14 verbose #39732 > │ #endif │
00:08:14 verbose #39733 > │ |> fun x -> _v399 <- Some x │
00:08:14 verbose #39734 > │ let v408 : US2 = _v399.Value │
00:08:14 verbose #39735 > │ let v448 : bool = │
00:08:14 verbose #39736 > │ match v408 with │
00:08:14 verbose #39737 > │ | US2_0(v409) -> (* Some *) │
00:08:14 verbose #39738 > │ let v410 : bool option = None │
00:08:14 verbose #39739 > │ let v411 : bool = true in let mutable _v410 = v410 │
00:08:14 verbose #39740 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39741 > │ let v412 : bool = null |> unbox<bool> │
00:08:14 verbose #39742 > │ v412 │
00:08:14 verbose #39743 > │ #endif │
00:08:14 verbose #39744 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39745 > │ let v413 : bool = null |> unbox<bool> │
00:08:14 verbose #39746 > │ v413 │
00:08:14 verbose #39747 > │ #endif │
00:08:14 verbose #39748 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39749 > │ let v414 : bool = null |> unbox<bool> │
00:08:14 verbose #39750 > │ v414 │
00:08:14 verbose #39751 > │ #endif │
00:08:14 verbose #39752 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39753 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39754 > │ let v415 : System.Runtime.InteropServices.OSPlatform = │
00:08:14 verbose #39755 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:14 verbose #39756 > │ let v416 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:14 verbose #39757 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:14 verbose #39758 > │ let v417 : bool = v416 v415 │
00:08:14 verbose #39759 > │ v417 │
00:08:14 verbose #39760 > │ #endif │
00:08:14 verbose #39761 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39762 > │ let v418 : bool = null |> unbox<bool> │
00:08:14 verbose #39763 > │ v418 │
00:08:14 verbose #39764 > │ #endif │
00:08:14 verbose #39765 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 verbose #39766 > │ FABLE_COMPILER_DART │
00:08:14 verbose #39767 > │ let v419 : bool = Unchecked.defaultof<bool> │
00:08:14 verbose #39768 > │ v419 │
00:08:14 verbose #39769 > │ #endif │
00:08:14 verbose #39770 > │ |> fun x -> _v410 <- Some x │
00:08:14 verbose #39771 > │ let v420 : bool = _v410.Value │
00:08:14 verbose #39772 > │ let v421 : int64 = │
00:08:14 verbose #39773 > │ if v420 then │
00:08:14 verbose #39774 > │ 50L │
00:08:14 verbose #39775 > │ else │
00:08:14 verbose #39776 > │ 0L │
00:08:14 verbose #39777 > │ let v422 : bool option = None │
00:08:14 verbose #39778 > │ let v423 : bool = true in let mutable _v422 = v422 │
00:08:14 verbose #39779 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 verbose #39780 > │ let v424 : bool = null |> unbox<bool> │
00:08:14 verbose #39781 > │ v424 │
00:08:14 verbose #39782 > │ #endif │
00:08:14 verbose #39783 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 verbose #39784 > │ let v425 : bool = null |> unbox<bool> │
00:08:14 verbose #39785 > │ v425 │
00:08:14 verbose #39786 > │ #endif │
00:08:14 verbose #39787 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 verbose #39788 > │ let v426 : bool = null |> unbox<bool> │
00:08:14 verbose #39789 > │ v426 │
00:08:14 verbose #39790 > │ #endif │
00:08:14 verbose #39791 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 verbose #39792 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 verbose #39793 > │ let v427 : System.Runtime.InteropServices.OSPlatform = │
00:08:14 verbose #39794 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:14 verbose #39795 > │ let v428 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:14 verbose #39796 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:14 verbose #39797 > │ let v429 : bool = v428 v427 │
00:08:14 verbose #39798 > │ v429 │
00:08:14 verbose #39799 > │ #endif │
00:08:14 verbose #39800 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 verbose #39801 > │ let v430 : bool = null |> unbox<bool> │
00:08:14 verbose #39802 > │ v430 │
00:08:14 verbose #39803 > │ #endif │
00:08:14 verbose #39804 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 verbose #39805 > │ FABLE_COMPILER_DART │
00:08:14 verbose #39806 > │ let v431 : bool = Unchecked.defaultof<bool> │
00:08:14 verbose #39807 > │ v431 │
00:08:14 verbose #39808 > │ #endif │
00:08:14 verbose #39809 > │ |> fun x -> _v422 <- Some x │
00:08:14 verbose #39810 > │ let v432 : bool = _v422.Value │
00:08:14 verbose #39811 > │ let v433 : int64 = │
00:08:14 verbose #39812 > │ if v432 then │
00:08:14 verbose #39813 > │ 150L │
00:08:14 verbose #39814 > │ else │
00:08:14 verbose #39815 > │ 0L │
00:08:14 verbose #39816 > │ let v434 : string = $"%A{v409}" │
00:08:14 verbose #39817 > │ System.Console.WriteLine v434 │
00:08:14 verbose #39818 > │ let v435 : string = $"%A{v409}" │
00:08:14 verbose #39819 > │ System.Console.WriteLine v435 │
00:08:14 verbose #39820 > │ let v436 : bool = v409 >= v421 │
00:08:14 verbose #39821 > │ let v438 : bool = │
00:08:14 verbose #39822 > │ if v436 then │
00:08:14 verbose #39823 > │ true │
00:08:14 verbose #39824 > │ else │
00:08:14 verbose #39825 > │ method14(v436) │
00:08:14 verbose #39826 > │ let v439 : string = $"__expect / actual: %A{v409} / expected: │
00:08:14 verbose #39827 > │ %A{v421}" │
00:08:14 verbose #39828 > │ let v440 : bool = v438 = false │
00:08:14 verbose #39829 > │ if v440 then │
00:08:14 verbose #39830 > │ failwith<unit> v439 │
00:08:14 verbose #39831 > │ let v441 : string = $"%A{v409}" │
00:08:14 verbose #39832 > │ System.Console.WriteLine v441 │
00:08:14 verbose #39833 > │ let v442 : bool = v409 <= v433 │
00:08:14 verbose #39834 > │ let v444 : bool = │
00:08:14 verbose #39835 > │ if v442 then │
00:08:14 verbose #39836 > │ true │
00:08:14 verbose #39837 > │ else │
00:08:14 verbose #39838 > │ method14(v442) │
00:08:14 verbose #39839 > │ let v445 : string = $"__expect / actual: %A{v409} / expected: │
00:08:14 verbose #39840 > │ %A{v433}" │
00:08:14 verbose #39841 > │ let v446 : bool = v444 = false │
00:08:14 verbose #39842 > │ if v446 then │
00:08:14 verbose #39843 > │ failwith<unit> v445 │
00:08:14 verbose #39844 > │ let v447 : string = $"__expect / actual: %A{v409} / expected: │
00:08:14 verbose #39845 > │ %A{struct (v421, v433)}" │
00:08:14 verbose #39846 > │ true │
00:08:14 verbose #39847 > │ | _ -> │
00:08:14 verbose #39848 > │ false │
00:08:14 verbose #39849 > │ let v449 : string = $"%A{v448}" │
00:08:14 verbose #39850 > │ System.Console.WriteLine v449 │
00:08:14 verbose #39851 > │ let v451 : bool = │
00:08:14 verbose #39852 > │ if v448 then │
00:08:14 verbose #39853 > │ true │
00:08:14 verbose #39854 > │ else │
00:08:14 verbose #39855 > │ method14(v448) │
00:08:14 verbose #39856 > │ let v452 : string = $"__expect / actual: %A{v448} / expected: %A{true}" │
00:08:14 verbose #39857 > │ let v453 : bool = v451 = false │
00:08:14 verbose #39858 > │ if v453 then │
00:08:14 verbose #39859 > │ failwith<unit> v452 │
00:08:14 verbose #39860 > │ method0() │
00:08:14 verbose #39861 > │ │
00:08:14 verbose #39862 > │ 00:00:00 debug #1 1 │
00:08:14 verbose #39863 > │ 00:00:00 debug #2 2 │
00:08:14 verbose #39864 > │ 00:00:00 debug #3 3 │
00:08:14 verbose #39865 > │ 00:00:00 debug #4 _1 │
00:08:14 verbose #39866 > │ 00:00:00 debug #5 _2 │
00:08:14 verbose #39867 > │ 00:00:00 debug #6 4 │
00:08:14 verbose #39868 > │ 00:00:00 warning #7 delete_file_async / path: test.txt / ex: │
00:08:14 verbose #39869 > │ System.IO.IOException: The process cannot access the file │
00:08:14 verbose #39870 > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0140-4287-8723-815d │
00:08:14 verbose #39871 > │ fab0082d\test.txt' because it is being used by another process. │
00:08:14 verbose #39872 > │ 00:00:01 warning #8 delete_file_async / path: test.txt / ex: │
00:08:14 verbose #39873 > │ System.IO.IOException: The process cannot access the file │
00:08:14 verbose #39874 > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240422-0140-4287-8723-815d │
00:08:14 verbose #39875 > │ fab0082d\test.txt' because it is being used by another process. │
00:08:14 verbose #39876 > │ 00:00:01 debug #9 _3 │
00:08:14 verbose #39877 > │ 00:00:02 debug #10 5 │
00:08:14 verbose #39878 > │ 00:00:02 debug #11 6 │
00:08:14 verbose #39879 > │ 127L │
00:08:14 verbose #39880 > │ 127L │
00:08:14 verbose #39881 > │ 127L │
00:08:14 verbose #39882 > │ true │
00:08:14 verbose #39883 > │ │
00:08:14 verbose #39884 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:14 verbose #39885 >
00:08:14 verbose #39886 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:14 verbose #39887 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:14 verbose #39888 > │ ## move_file_async │
00:08:14 verbose #39889 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:14 verbose #39890 >
00:08:14 verbose #39891 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:14 verbose #39892 > inl move_file_async new_path old_path : _ i64 =
00:08:14 verbose #39893 > run_target function
00:08:14 verbose #39894 > | Fsharp (Native) => fun () =>
00:08:14 verbose #39895 > let rec loop (retry : i64) =
00:08:14 verbose #39896 > fun () =>
00:08:14 verbose #39897 > try_unit
00:08:14 verbose #39898 > fun () =>
00:08:14 verbose #39899 > file_move old_path new_path
00:08:14 verbose #39900 > return retry
00:08:14 verbose #39901 > fun ex =>
00:08:14 verbose #39902 > if retry % 100 = 0 then
00:08:14 verbose #39903 > inl _locals () =
00:08:14 verbose #39904 > inl ex = ex |> sm'.format_exception
00:08:14 verbose #39905 > $'$"old_path: {!old_path |> !get_file_name}
00:08:14 verbose #39906 > / new_path: {!new_path |> !get_file_name} / ex: {!ex} / {!_locals ()}"'
00:08:14 verbose #39907 > trace Warning (fun () => "move_file_async")
00:08:14 verbose #39908 > _locals
00:08:14 verbose #39909 > async.sleep 10 |> async.do
00:08:14 verbose #39910 > loop (retry + 1) |> async.return_await
00:08:14 verbose #39911 > |> async.new_async_unit
00:08:14 verbose #39912 > loop 0
00:08:14 verbose #39913 > | _ => fun () => null ()
00:08:14 verbose #39914 > 00:08:14 debug #644 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/be4cf5f0056166117fafa5a3a680f633bfaaad80f1db8cb65aeb368a5b5c906a/main.spi
00:08:14 verbose #39915 >
00:08:14 verbose #39916 > ╭─[ 213.04ms - stdout ]────────────────────────────────────────────────────────╮
00:08:14 verbose #39917 > │ () │
00:08:14 verbose #39918 > │ │
00:08:14 verbose #39919 > │ │
00:08:14 verbose #39920 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:14 verbose #39921 >
00:08:14 verbose #39922 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:14 verbose #39923 > // // test
00:08:14 verbose #39924 >
00:08:14 verbose #39925 > inl lock_file path =
00:08:14 verbose #39926 > fun () =>
00:08:14 verbose #39927 > trace Debug (fun () => "_1") _locals
00:08:14 verbose #39928 > file_stream
00:08:14 verbose #39929 > path
00:08:14 verbose #39930 > ModeOpen
00:08:14 verbose #39931 > AccessReadWrite
00:08:14 verbose #39932 > ShareNone
00:08:14 verbose #39933 > |> use
00:08:14 verbose #39934 > |> ignore
00:08:14 verbose #39935 > trace Debug (fun () => "_2") _locals
00:08:14 verbose #39936 > async.sleep 2000 |> async.do
00:08:14 verbose #39937 > trace Debug (fun () => "_3") _locals
00:08:14 verbose #39938 > |> async.new_async
00:08:14 verbose #39939 >
00:08:14 verbose #39940 > inl temp_dir, disposable = create_temp_directory ()
00:08:14 verbose #39941 > disposable |> use |> ignore
00:08:14 verbose #39942 > let path = temp_dir </> "test.txt"
00:08:14 verbose #39943 > let new_path = temp_dir </> "test2.txt"
00:08:14 verbose #39944 >
00:08:14 verbose #39945 > fun () =>
00:08:14 verbose #39946 > trace Debug (fun () => "1") _locals
00:08:14 verbose #39947 > "0" |> write_all_text_async path |> async.do
00:08:14 verbose #39948 > trace Debug (fun () => "2") _locals
00:08:14 verbose #39949 > inl child = lock_file path |> async.start_child |> async.let'
00:08:14 verbose #39950 > trace Debug (fun () => "3") _locals
00:08:14 verbose #39951 > async.sleep 1 |> async.do
00:08:14 verbose #39952 > trace Debug (fun () => "4") _locals
00:08:14 verbose #39953 > inl retries1 = path |> move_file_async new_path |> async.let'
00:08:14 verbose #39954 > trace Debug (fun () => "5") _locals
00:08:14 verbose #39955 > inl retries2 = new_path |> wait_for_file_access None |> async.let'
00:08:14 verbose #39956 > trace Debug (fun () => "6") _locals
00:08:14 verbose #39957 > inl text = new_path |> read_all_text_async |> async.let'
00:08:14 verbose #39958 > trace Debug (fun () => "7") _locals
00:08:14 verbose #39959 > child |> async.do
00:08:14 verbose #39960 > trace Debug (fun () => "8") _locals
00:08:14 verbose #39961 > (retries1, retries2, text) |> return
00:08:14 verbose #39962 > |> async.new_async_unit
00:08:14 verbose #39963 > |> async.run_with_timeout 3000
00:08:14 verbose #39964 > |> function
00:08:14 verbose #39965 > | Some (retries1, retries2, text) =>
00:08:14 verbose #39966 > retries1
00:08:14 verbose #39967 > |> _assert_between
00:08:14 verbose #39968 > (if runtime.is_windows () then 50i64 else 0)
00:08:14 verbose #39969 > (if runtime.is_windows () then 150 else 0)
00:08:14 verbose #39970 >
00:08:14 verbose #39971 > retries2
00:08:14 verbose #39972 > |> _assert_between
00:08:14 verbose #39973 > (if runtime.is_windows () then 0i64 else 100)
00:08:14 verbose #39974 > (if runtime.is_windows () then 0 else 200)
00:08:14 verbose #39975 >
00:08:14 verbose #39976 > text |> _assert_eq (join "0")
00:08:14 verbose #39977 >
00:08:14 verbose #39978 > true
00:08:14 verbose #39979 > | _ => false
00:08:14 verbose #39980 > |> _assert_eq true
00:08:15 verbose #39981 > 00:08:14 debug #645 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/32aca074bfe95d74d471de9c2786294eea1a26e4e304ed9baa9a77c58916ca17/main.spi
00:08:17 verbose #39982 >
00:08:18 verbose #39983 > ╭─[ 3.02s - stdout ]───────────────────────────────────────────────────────────╮
00:08:18 verbose #39984 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:18 verbose #39985 > │ string │
00:08:18 verbose #39986 > │ module State = let mutable trace_state = None │
00:08:18 verbose #39987 > │ type [<Struct>] US0 = │
00:08:18 verbose #39988 > │ | US0_0 │
00:08:18 verbose #39989 > │ | US0_1 │
00:08:18 verbose #39990 > │ | US0_2 │
00:08:18 verbose #39991 > │ | US0_3 │
00:08:18 verbose #39992 > │ | US0_4 │
00:08:18 verbose #39993 > │ and Mut0 = {mutable l0 : int64} │
00:08:18 verbose #39994 > │ and Mut1 = {mutable l0 : bool} │
00:08:18 verbose #39995 > │ and Mut2 = {mutable l0 : US0} │
00:08:18 verbose #39996 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:08:18 verbose #39997 > │ and [<Struct>] US1 = │
00:08:18 verbose #39998 > │ | US1_0 of f0_0 : int64 │
00:08:18 verbose #39999 > │ | US1_1 │
00:08:18 verbose #40000 > │ and [<Struct>] US2 = │
00:08:18 verbose #40001 > │ | US2_0 of f0_0 : int64 │
00:08:18 verbose #40002 > │ | US2_1 │
00:08:18 verbose #40003 > │ and [<Struct>] US3 = │
00:08:18 verbose #40004 > │ | US3_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:08:18 verbose #40005 > │ | US3_1 │
00:08:18 verbose #40006 > │ and [<Struct>] US4 = │
00:08:18 verbose #40007 > │ | US4_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:08:18 verbose #40008 > │ | US4_1 of f1_0 : exn │
00:08:18 verbose #40009 > │ and [<Struct>] US5 = │
00:08:18 verbose #40010 > │ | US5_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:08:18 verbose #40011 > │ | US5_1 of f1_0 : exn │
00:08:18 verbose #40012 > │ let rec closure0 () () : string = │
00:08:18 verbose #40013 > │ let v0 : string option = None │
00:08:18 verbose #40014 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:18 verbose #40015 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40016 > │ let v2 : string = null |> unbox<string> │
00:08:18 verbose #40017 > │ v2 │
00:08:18 verbose #40018 > │ #endif │
00:08:18 verbose #40019 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40020 > │ let v3 : string = null |> unbox<string> │
00:08:18 verbose #40021 > │ v3 │
00:08:18 verbose #40022 > │ #endif │
00:08:18 verbose #40023 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40024 > │ let v4 : string = null |> unbox<string> │
00:08:18 verbose #40025 > │ v4 │
00:08:18 verbose #40026 > │ #endif │
00:08:18 verbose #40027 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40028 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40029 > │ let v5 : string = │
00:08:18 verbose #40030 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:18 verbose #40031 > │ v5 │
00:08:18 verbose #40032 > │ #endif │
00:08:18 verbose #40033 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40034 > │ let v6 : string = null |> unbox<string> │
00:08:18 verbose #40035 > │ v6 │
00:08:18 verbose #40036 > │ #endif │
00:08:18 verbose #40037 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40038 > │ let v7 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40039 > │ v7 │
00:08:18 verbose #40040 > │ #endif │
00:08:18 verbose #40041 > │ |> fun x -> _v0 <- Some x │
00:08:18 verbose #40042 > │ let v8 : string = _v0.Value │
00:08:18 verbose #40043 > │ v8 │
00:08:18 verbose #40044 > │ and method1 (v0 : string) : string = │
00:08:18 verbose #40045 > │ v0 │
00:08:18 verbose #40046 > │ and method2 (v0 : string) : string = │
00:08:18 verbose #40047 > │ v0 │
00:08:18 verbose #40048 > │ and method3 (v0 : string) : string = │
00:08:18 verbose #40049 > │ v0 │
00:08:18 verbose #40050 > │ and closure1 () () : string = │
00:08:18 verbose #40051 > │ let v0 : string = "file_system.create_temp_directory" │
00:08:18 verbose #40052 > │ v0 │
00:08:18 verbose #40053 > │ and closure3 () () : string = │
00:08:18 verbose #40054 > │ let v0 : string = "" │
00:08:18 verbose #40055 > │ v0 │
00:08:18 verbose #40056 > │ and closure2 (v0 : string, v1 : string) () : string = │
00:08:18 verbose #40057 > │ let v2 : (unit -> string) = closure3() │
00:08:18 verbose #40058 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:18 verbose #40059 > │ v3 │
00:08:18 verbose #40060 > │ and closure6 () (v0 : string) : unit = │
00:08:18 verbose #40061 > │ () │
00:08:18 verbose #40062 > │ and method5 (v0 : int64 option) : int64 option = │
00:08:18 verbose #40063 > │ v0 │
00:08:18 verbose #40064 > │ and method6 (v0 : int64 option) : int64 option = │
00:08:18 verbose #40065 > │ v0 │
00:08:18 verbose #40066 > │ and closure5 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:08:18 verbose #40067 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:18 verbose #40068 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:18 verbose #40069 > │ let v2 : US0 = US0_0 │
00:08:18 verbose #40070 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:18 verbose #40071 > │ let v4 : (string -> unit) = closure6() │
00:08:18 verbose #40072 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:08:18 verbose #40073 > │ let v6 : int64 option option = None │
00:08:18 verbose #40074 > │ let mutable _v6 = v6 │
00:08:18 verbose #40075 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:18 verbose #40076 > │ let v7 : string option = None │
00:08:18 verbose #40077 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:18 verbose #40078 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40079 > │ let v9 : string = null |> unbox<string> │
00:08:18 verbose #40080 > │ v9 │
00:08:18 verbose #40081 > │ #endif │
00:08:18 verbose #40082 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40083 > │ let v10 : string = null |> unbox<string> │
00:08:18 verbose #40084 > │ v10 │
00:08:18 verbose #40085 > │ #endif │
00:08:18 verbose #40086 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40087 > │ let v11 : string = null |> unbox<string> │
00:08:18 verbose #40088 > │ v11 │
00:08:18 verbose #40089 > │ #endif │
00:08:18 verbose #40090 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40091 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40092 > │ let v12 : string = │
00:08:18 verbose #40093 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:18 verbose #40094 > │ v12 │
00:08:18 verbose #40095 > │ #endif │
00:08:18 verbose #40096 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40097 > │ let v13 : string = null |> unbox<string> │
00:08:18 verbose #40098 > │ v13 │
00:08:18 verbose #40099 > │ #endif │
00:08:18 verbose #40100 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40101 > │ let v14 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40102 > │ v14 │
00:08:18 verbose #40103 > │ #endif │
00:08:18 verbose #40104 > │ |> fun x -> _v7 <- Some x │
00:08:18 verbose #40105 > │ let v15 : string = _v7.Value │
00:08:18 verbose #40106 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:08:18 verbose #40107 > │ let v18 : bool = v17 <> true │
00:08:18 verbose #40108 > │ let v24 : US1 = │
00:08:18 verbose #40109 > │ if v18 then │
00:08:18 verbose #40110 > │ let v19 : System.DateTime = System.DateTime.Now │
00:08:18 verbose #40111 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:08:18 verbose #40112 > │ let v21 : int64 = v20 v19 │
00:08:18 verbose #40113 > │ US1_0(v21) │
00:08:18 verbose #40114 > │ else │
00:08:18 verbose #40115 > │ US1_1 │
00:08:18 verbose #40116 > │ let v29 : int64 option = │
00:08:18 verbose #40117 > │ match v24 with │
00:08:18 verbose #40118 > │ | US1_1 -> (* None *) │
00:08:18 verbose #40119 > │ let v27 : int64 option = None │
00:08:18 verbose #40120 > │ v27 │
00:08:18 verbose #40121 > │ | US1_0(v25) -> (* Some *) │
00:08:18 verbose #40122 > │ let v26 : int64 option = Some v25 │
00:08:18 verbose #40123 > │ v26 │
00:08:18 verbose #40124 > │ let v30 : int64 option = method5(v29) │
00:08:18 verbose #40125 > │ v30 │
00:08:18 verbose #40126 > │ #else │
00:08:18 verbose #40127 > │ let v31 : int64 option = None │
00:08:18 verbose #40128 > │ let v32 : int64 option = method6(v31) │
00:08:18 verbose #40129 > │ v32 │
00:08:18 verbose #40130 > │ #endif │
00:08:18 verbose #40131 > │ |> fun x -> _v6 <- Some x │
00:08:18 verbose #40132 > │ let v33 : int64 option = _v6.Value │
00:08:18 verbose #40133 > │ struct (v1, v0, v3, v33, v5) │
00:08:18 verbose #40134 > │ and closure7 () (v0 : int64) : US2 = │
00:08:18 verbose #40135 > │ US2_0(v0) │
00:08:18 verbose #40136 > │ and method7 () : (int64 -> US2) = │
00:08:18 verbose #40137 > │ closure7() │
00:08:18 verbose #40138 > │ and method8 () : string = │
00:08:18 verbose #40139 > │ let v0 : string = "" │
00:08:18 verbose #40140 > │ v0 │
00:08:18 verbose #40141 > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:18 verbose #40142 > │ string = │
00:08:18 verbose #40143 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:18 verbose #40144 > │ closure5() │
00:08:18 verbose #40145 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:08:18 verbose #40146 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:08:18 verbose #40147 > │ Mut3) = State.trace_state.Value │
00:08:18 verbose #40148 > │ let v9 : string option = None │
00:08:18 verbose #40149 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:18 verbose #40150 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40151 > │ let v11 : (int64 -> US2) = method7() │
00:08:18 verbose #40152 > │ let v12 : US2 = US2_1 │
00:08:18 verbose #40153 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:08:18 verbose #40154 > │ let v31 : System.DateTime = │
00:08:18 verbose #40155 > │ match v13 with │
00:08:18 verbose #40156 > │ | US2_1 -> (* None *) │
00:08:18 verbose #40157 > │ let v29 : System.DateTime = System.DateTime.Now │
00:08:18 verbose #40158 > │ v29 │
00:08:18 verbose #40159 > │ | US2_0(v14) -> (* Some *) │
00:08:18 verbose #40160 > │ let v15 : System.DateTime = System.DateTime.Now │
00:08:18 verbose #40161 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:08:18 verbose #40162 > │ let v17 : int64 = v16 v15 │
00:08:18 verbose #40163 > │ let v18 : int64 = v17 - v14 │
00:08:18 verbose #40164 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:08:18 verbose #40165 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:08:18 verbose #40166 > │ let v21 : int32 = v20 v19 │
00:08:18 verbose #40167 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:08:18 verbose #40168 > │ let v23 : int32 = v22 v19 │
00:08:18 verbose #40169 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:08:18 verbose #40170 > │ let v25 : int32 = v24 v19 │
00:08:18 verbose #40171 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:18 verbose #40172 > │ let v27 : int32 = v26 v19 │
00:08:18 verbose #40173 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:08:18 verbose #40174 > │ v25, v27) │
00:08:18 verbose #40175 > │ v28 │
00:08:18 verbose #40176 > │ let v32 : string = "hh:mm:ss" │
00:08:18 verbose #40177 > │ let v33 : string = v31.ToString v32 │
00:08:18 verbose #40178 > │ v33 │
00:08:18 verbose #40179 > │ #endif │
00:08:18 verbose #40180 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40181 > │ let v34 : string = method8() │
00:08:18 verbose #40182 > │ v34 │
00:08:18 verbose #40183 > │ #endif │
00:08:18 verbose #40184 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40185 > │ let v35 : string = method8() │
00:08:18 verbose #40186 > │ v35 │
00:08:18 verbose #40187 > │ #endif │
00:08:18 verbose #40188 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40189 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40190 > │ let v36 : (int64 -> US2) = method7() │
00:08:18 verbose #40191 > │ let v37 : US2 = US2_1 │
00:08:18 verbose #40192 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:08:18 verbose #40193 > │ let v56 : System.DateTime = │
00:08:18 verbose #40194 > │ match v38 with │
00:08:18 verbose #40195 > │ | US2_1 -> (* None *) │
00:08:18 verbose #40196 > │ let v54 : System.DateTime = System.DateTime.Now │
00:08:18 verbose #40197 > │ v54 │
00:08:18 verbose #40198 > │ | US2_0(v39) -> (* Some *) │
00:08:18 verbose #40199 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:18 verbose #40200 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:08:18 verbose #40201 > │ let v42 : int64 = v41 v40 │
00:08:18 verbose #40202 > │ let v43 : int64 = v42 - v39 │
00:08:18 verbose #40203 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:08:18 verbose #40204 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:08:18 verbose #40205 > │ let v46 : int32 = v45 v44 │
00:08:18 verbose #40206 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:08:18 verbose #40207 > │ let v48 : int32 = v47 v44 │
00:08:18 verbose #40208 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:08:18 verbose #40209 > │ let v50 : int32 = v49 v44 │
00:08:18 verbose #40210 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:18 verbose #40211 > │ let v52 : int32 = v51 v44 │
00:08:18 verbose #40212 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:08:18 verbose #40213 > │ v50, v52) │
00:08:18 verbose #40214 > │ v53 │
00:08:18 verbose #40215 > │ let v57 : string = "HH:mm:ss" │
00:08:18 verbose #40216 > │ let v58 : string = v56.ToString v57 │
00:08:18 verbose #40217 > │ v58 │
00:08:18 verbose #40218 > │ #endif │
00:08:18 verbose #40219 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40220 > │ let v59 : string = method8() │
00:08:18 verbose #40221 > │ v59 │
00:08:18 verbose #40222 > │ #endif │
00:08:18 verbose #40223 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40224 > │ let v60 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40225 > │ v60 │
00:08:18 verbose #40226 > │ #endif │
00:08:18 verbose #40227 > │ |> fun x -> _v9 <- Some x │
00:08:18 verbose #40228 > │ let v61 : string = _v9.Value │
00:08:18 verbose #40229 > │ let v62 : int64 = v4.l0 │
00:08:18 verbose #40230 > │ let v72 : string = │
00:08:18 verbose #40231 > │ match v0 with │
00:08:18 verbose #40232 > │ | US0_4 -> (* Critical *) │
00:08:18 verbose #40233 > │ let v67 : string = "Critical" │
00:08:18 verbose #40234 > │ v67 │
00:08:18 verbose #40235 > │ | US0_1 -> (* Debug *) │
00:08:18 verbose #40236 > │ let v64 : string = "Debug" │
00:08:18 verbose #40237 > │ v64 │
00:08:18 verbose #40238 > │ | US0_2 -> (* Info *) │
00:08:18 verbose #40239 > │ let v65 : string = "Info" │
00:08:18 verbose #40240 > │ v65 │
00:08:18 verbose #40241 > │ | US0_0 -> (* Verbose *) │
00:08:18 verbose #40242 > │ let v63 : string = "Verbose" │
00:08:18 verbose #40243 > │ v63 │
00:08:18 verbose #40244 > │ | US0_3 -> (* Warning *) │
00:08:18 verbose #40245 > │ let v66 : string = "Warning" │
00:08:18 verbose #40246 > │ v66 │
00:08:18 verbose #40247 > │ let v73 : string = v72.ToLower () │
00:08:18 verbose #40248 > │ let v74 : string option = None │
00:08:18 verbose #40249 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:08:18 verbose #40250 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40251 > │ let v90 : Ref<Str> = │
00:08:18 verbose #40252 > │ match v0 with │
00:08:18 verbose #40253 > │ | US0_4 -> (* Critical *) │
00:08:18 verbose #40254 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:08:18 verbose #40255 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:08:18 verbose #40256 > │ v85 │
00:08:18 verbose #40257 > │ | US0_1 -> (* Debug *) │
00:08:18 verbose #40258 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:08:18 verbose #40259 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:08:18 verbose #40260 > │ v79 │
00:08:18 verbose #40261 > │ | US0_2 -> (* Info *) │
00:08:18 verbose #40262 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:08:18 verbose #40263 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:08:18 verbose #40264 > │ v81 │
00:08:18 verbose #40265 > │ | US0_0 -> (* Verbose *) │
00:08:18 verbose #40266 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:08:18 verbose #40267 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:08:18 verbose #40268 > │ v77 │
00:08:18 verbose #40269 > │ | US0_3 -> (* Warning *) │
00:08:18 verbose #40270 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:08:18 verbose #40271 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:08:18 verbose #40272 > │ v83 │
00:08:18 verbose #40273 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #40274 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:08:18 verbose #40275 > │ let v93 : string = "inline_colorization::color_reset" │
00:08:18 verbose #40276 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:08:18 verbose #40277 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:08:18 verbose #40278 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:08:18 verbose #40279 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:08:18 verbose #40280 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #40281 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:08:18 verbose #40282 > │ v99 │
00:08:18 verbose #40283 > │ #endif │
00:08:18 verbose #40284 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40285 > │ let v114 : Ref<Str> = │
00:08:18 verbose #40286 > │ match v0 with │
00:08:18 verbose #40287 > │ | US0_4 -> (* Critical *) │
00:08:18 verbose #40288 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:08:18 verbose #40289 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40290 > │ v108 │
00:08:18 verbose #40291 > │ v109 │
00:08:18 verbose #40292 > │ | US0_1 -> (* Debug *) │
00:08:18 verbose #40293 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:08:18 verbose #40294 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40295 > │ v102 │
00:08:18 verbose #40296 > │ v103 │
00:08:18 verbose #40297 > │ | US0_2 -> (* Info *) │
00:08:18 verbose #40298 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:08:18 verbose #40299 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40300 > │ v104 │
00:08:18 verbose #40301 > │ v105 │
00:08:18 verbose #40302 > │ | US0_0 -> (* Verbose *) │
00:08:18 verbose #40303 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:08:18 verbose #40304 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40305 > │ v100 │
00:08:18 verbose #40306 > │ v101 │
00:08:18 verbose #40307 > │ | US0_3 -> (* Warning *) │
00:08:18 verbose #40308 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:08:18 verbose #40309 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40310 > │ v106 │
00:08:18 verbose #40311 > │ v107 │
00:08:18 verbose #40312 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #40313 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:08:18 verbose #40314 > │ let v117 : string = "inline_colorization::color_reset" │
00:08:18 verbose #40315 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:08:18 verbose #40316 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:08:18 verbose #40317 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:08:18 verbose #40318 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40319 > │ v120 │
00:08:18 verbose #40320 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #40321 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:08:18 verbose #40322 > │ v123 │
00:08:18 verbose #40323 > │ #endif │
00:08:18 verbose #40324 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40325 > │ let v138 : Ref<Str> = │
00:08:18 verbose #40326 > │ match v0 with │
00:08:18 verbose #40327 > │ | US0_4 -> (* Critical *) │
00:08:18 verbose #40328 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:08:18 verbose #40329 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40330 > │ v132 │
00:08:18 verbose #40331 > │ v133 │
00:08:18 verbose #40332 > │ | US0_1 -> (* Debug *) │
00:08:18 verbose #40333 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:08:18 verbose #40334 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40335 > │ v126 │
00:08:18 verbose #40336 > │ v127 │
00:08:18 verbose #40337 > │ | US0_2 -> (* Info *) │
00:08:18 verbose #40338 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:08:18 verbose #40339 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40340 > │ v128 │
00:08:18 verbose #40341 > │ v129 │
00:08:18 verbose #40342 > │ | US0_0 -> (* Verbose *) │
00:08:18 verbose #40343 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:08:18 verbose #40344 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40345 > │ v124 │
00:08:18 verbose #40346 > │ v125 │
00:08:18 verbose #40347 > │ | US0_3 -> (* Warning *) │
00:08:18 verbose #40348 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:08:18 verbose #40349 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40350 > │ v130 │
00:08:18 verbose #40351 > │ v131 │
00:08:18 verbose #40352 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #40353 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:08:18 verbose #40354 > │ let v141 : string = "inline_colorization::color_reset" │
00:08:18 verbose #40355 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:08:18 verbose #40356 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:08:18 verbose #40357 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:08:18 verbose #40358 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:18 verbose #40359 > │ v144 │
00:08:18 verbose #40360 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #40361 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:08:18 verbose #40362 > │ v147 │
00:08:18 verbose #40363 > │ #endif │
00:08:18 verbose #40364 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40365 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40366 > │ v73 │
00:08:18 verbose #40367 > │ #endif │
00:08:18 verbose #40368 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40369 > │ v73 │
00:08:18 verbose #40370 > │ #endif │
00:08:18 verbose #40371 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40372 > │ let v148 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40373 > │ v148 │
00:08:18 verbose #40374 > │ #endif │
00:08:18 verbose #40375 > │ |> fun x -> _v74 <- Some x │
00:08:18 verbose #40376 > │ let v149 : string = _v74.Value │
00:08:18 verbose #40377 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:08:18 verbose #40378 > │ let v151 : (char []) = [||] │
00:08:18 verbose #40379 > │ let v152 : string = v150.TrimStart v151 │
00:08:18 verbose #40380 > │ let v153 : (char []) = [|' '; '/'|] │
00:08:18 verbose #40381 > │ let v154 : string = v152.TrimEnd v153 │
00:08:18 verbose #40382 > │ v154 │
00:08:18 verbose #40383 > │ and method9 (v0 : US0, v1 : (unit -> string)) : unit = │
00:08:18 verbose #40384 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:18 verbose #40385 > │ closure5() │
00:08:18 verbose #40386 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:18 verbose #40387 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:08:18 verbose #40388 > │ Mut3) = State.trace_state.Value │
00:08:18 verbose #40389 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:18 verbose #40390 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:08:18 verbose #40391 > │ Mut3) = State.trace_state.Value │
00:08:18 verbose #40392 > │ let v13 : US0 = v10.l0 │
00:08:18 verbose #40393 > │ let v14 : bool = v9.l0 │
00:08:18 verbose #40394 > │ let v15 : bool = v14 = false │
00:08:18 verbose #40395 > │ let v19 : bool = │
00:08:18 verbose #40396 > │ if v15 then │
00:08:18 verbose #40397 > │ false │
00:08:18 verbose #40398 > │ else │
00:08:18 verbose #40399 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:18 verbose #40400 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:08:18 verbose #40401 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:18 verbose #40402 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:08:18 verbose #40403 > │ let v18 : bool = v16 >= v17 │
00:08:18 verbose #40404 > │ v18 │
00:08:18 verbose #40405 > │ if v19 then │
00:08:18 verbose #40406 > │ let v20 : int64 = v3.l0 │
00:08:18 verbose #40407 > │ let v21 : int64 = v20 + 1L │
00:08:18 verbose #40408 > │ v3.l0 <- v21 │
00:08:18 verbose #40409 > │ let v22 : string = $"%s{v1 ()}" │
00:08:18 verbose #40410 > │ let v23 : unit option = None │
00:08:18 verbose #40411 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:08:18 verbose #40412 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40413 > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:18 verbose #40414 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:08:18 verbose #40415 > │ () │
00:08:18 verbose #40416 > │ #endif │
00:08:18 verbose #40417 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40418 > │ let v26 : string = @"println!(""{}"", $0)" │
00:08:18 verbose #40419 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:08:18 verbose #40420 > │ () │
00:08:18 verbose #40421 > │ #endif │
00:08:18 verbose #40422 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40423 > │ let v27 : string = @"println!(""{}"", $0)" │
00:08:18 verbose #40424 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:08:18 verbose #40425 > │ () │
00:08:18 verbose #40426 > │ #endif │
00:08:18 verbose #40427 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40428 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40429 > │ System.Console.WriteLine v22 │
00:08:18 verbose #40430 > │ () │
00:08:18 verbose #40431 > │ #endif │
00:08:18 verbose #40432 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40433 > │ System.Console.WriteLine v22 │
00:08:18 verbose #40434 > │ () │
00:08:18 verbose #40435 > │ #endif │
00:08:18 verbose #40436 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #40437 > │ FABLE_COMPILER_DART │
00:08:18 verbose #40438 > │ Unchecked.defaultof<unit> │
00:08:18 verbose #40439 > │ () │
00:08:18 verbose #40440 > │ #endif │
00:08:18 verbose #40441 > │ |> fun x -> _v23 <- Some x │
00:08:18 verbose #40442 > │ _v23.Value │
00:08:18 verbose #40443 > │ let v28 : (string -> unit) = v7.l0 │
00:08:18 verbose #40444 > │ v28 v22 │
00:08:18 verbose #40445 > │ and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:18 verbose #40446 > │ = │
00:08:18 verbose #40447 > │ let v3 : (unit -> string) = closure4(v0, v1, v2) │
00:08:18 verbose #40448 > │ method9(v0, v3) │
00:08:18 verbose #40449 > │ and closure9 () () : string = │
00:08:18 verbose #40450 > │ let v0 : string = "file_system.delete_directory_async" │
00:08:18 verbose #40451 > │ v0 │
00:08:18 verbose #40452 > │ and closure11 () (v0 : string) : string = │
00:08:18 verbose #40453 > │ let v1 : string option = None │
00:08:18 verbose #40454 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:18 verbose #40455 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40456 > │ let v3 : string = null |> unbox<string> │
00:08:18 verbose #40457 > │ v3 │
00:08:18 verbose #40458 > │ #endif │
00:08:18 verbose #40459 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40460 > │ let v4 : string = null |> unbox<string> │
00:08:18 verbose #40461 > │ v4 │
00:08:18 verbose #40462 > │ #endif │
00:08:18 verbose #40463 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40464 > │ let v5 : string = null |> unbox<string> │
00:08:18 verbose #40465 > │ v5 │
00:08:18 verbose #40466 > │ #endif │
00:08:18 verbose #40467 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40468 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40469 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:08:18 verbose #40470 > │ let v7 : string = v6 v0 │
00:08:18 verbose #40471 > │ v7 │
00:08:18 verbose #40472 > │ #endif │
00:08:18 verbose #40473 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40474 > │ let v8 : string = null |> unbox<string> │
00:08:18 verbose #40475 > │ v8 │
00:08:18 verbose #40476 > │ #endif │
00:08:18 verbose #40477 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40478 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40479 > │ v9 │
00:08:18 verbose #40480 > │ #endif │
00:08:18 verbose #40481 > │ |> fun x -> _v1 <- Some x │
00:08:18 verbose #40482 > │ let v10 : string = _v1.Value │
00:08:18 verbose #40483 > │ v10 │
00:08:18 verbose #40484 > │ and closure10 (v0 : string, v1 : string) () : string = │
00:08:18 verbose #40485 > │ let v2 : (string -> string) = closure11() │
00:08:18 verbose #40486 > │ let v3 : (unit -> string) = closure3() │
00:08:18 verbose #40487 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:18 verbose #40488 > │ v4 │
00:08:18 verbose #40489 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:08:18 verbose #40490 > │ let v2 : Async<int64> option = None │
00:08:18 verbose #40491 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:18 verbose #40492 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40493 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40494 > │ v4 │
00:08:18 verbose #40495 > │ #endif │
00:08:18 verbose #40496 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40497 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40498 > │ v5 │
00:08:18 verbose #40499 > │ #endif │
00:08:18 verbose #40500 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40501 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40502 > │ v6 │
00:08:18 verbose #40503 > │ #endif │
00:08:18 verbose #40504 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40505 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40506 > │ let v7 : Async<int64> option = None │
00:08:18 verbose #40507 > │ let mutable _v7 = v7 │
00:08:18 verbose #40508 > │ async { │
00:08:18 verbose #40509 > │ try │
00:08:18 verbose #40510 > │ let v8 : unit option = None │
00:08:18 verbose #40511 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:18 verbose #40512 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40513 > │ null |> unbox<unit> │
00:08:18 verbose #40514 > │ () │
00:08:18 verbose #40515 > │ #endif │
00:08:18 verbose #40516 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40517 > │ null |> unbox<unit> │
00:08:18 verbose #40518 > │ () │
00:08:18 verbose #40519 > │ #endif │
00:08:18 verbose #40520 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40521 > │ null |> unbox<unit> │
00:08:18 verbose #40522 > │ () │
00:08:18 verbose #40523 > │ #endif │
00:08:18 verbose #40524 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40525 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40526 > │ System.IO.Directory.Delete (v0, true) │
00:08:18 verbose #40527 > │ () │
00:08:18 verbose #40528 > │ #endif │
00:08:18 verbose #40529 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40530 > │ null |> unbox<unit> │
00:08:18 verbose #40531 > │ () │
00:08:18 verbose #40532 > │ #endif │
00:08:18 verbose #40533 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40534 > │ Unchecked.defaultof<unit> │
00:08:18 verbose #40535 > │ () │
00:08:18 verbose #40536 > │ #endif │
00:08:18 verbose #40537 > │ |> fun x -> _v8 <- Some x │
00:08:18 verbose #40538 > │ _v8.Value │
00:08:18 verbose #40539 > │ return v1 │
00:08:18 verbose #40540 > │ with ex -> │
00:08:18 verbose #40541 > │ let v10 : exn = ex │
00:08:18 verbose #40542 > │ let v11 : int64 = v1 % 100L │
00:08:18 verbose #40543 > │ let v12 : bool = v11 = 0L │
00:08:18 verbose #40544 > │ if v12 then │
00:08:18 verbose #40545 > │ let v13 : string option = None │
00:08:18 verbose #40546 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:18 verbose #40547 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40548 > │ let v15 : string = $"%A{v10}" │
00:08:18 verbose #40549 > │ v15 │
00:08:18 verbose #40550 > │ #endif │
00:08:18 verbose #40551 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40552 > │ let v16 : string = $"%A{v10}" │
00:08:18 verbose #40553 > │ v16 │
00:08:18 verbose #40554 > │ #endif │
00:08:18 verbose #40555 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40556 > │ let v17 : string = $"%A{v10}" │
00:08:18 verbose #40557 > │ v17 │
00:08:18 verbose #40558 > │ #endif │
00:08:18 verbose #40559 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40560 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40561 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:08:18 verbose #40562 > │ v18 │
00:08:18 verbose #40563 > │ #endif │
00:08:18 verbose #40564 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40565 > │ let v19 : string = $"%A{v10}" │
00:08:18 verbose #40566 > │ v19 │
00:08:18 verbose #40567 > │ #endif │
00:08:18 verbose #40568 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #40569 > │ FABLE_COMPILER_DART │
00:08:18 verbose #40570 > │ let v20 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40571 > │ v20 │
00:08:18 verbose #40572 > │ #endif │
00:08:18 verbose #40573 > │ |> fun x -> _v13 <- Some x │
00:08:18 verbose #40574 > │ let v21 : string = _v13.Value │
00:08:18 verbose #40575 > │ let v22 : US0 = US0_1 │
00:08:18 verbose #40576 > │ let v23 : (unit -> string) = closure9() │
00:08:18 verbose #40577 > │ let v24 : (unit -> string) = closure10(v0, v21) │
00:08:18 verbose #40578 > │ method4(v22, v23, v24) │
00:08:18 verbose #40579 > │ let v25 : Async<unit> option = None │
00:08:18 verbose #40580 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:08:18 verbose #40581 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40582 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40583 > │ v27 │
00:08:18 verbose #40584 > │ #endif │
00:08:18 verbose #40585 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40586 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40587 > │ v28 │
00:08:18 verbose #40588 > │ #endif │
00:08:18 verbose #40589 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40590 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40591 > │ v29 │
00:08:18 verbose #40592 > │ #endif │
00:08:18 verbose #40593 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40594 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40595 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:08:18 verbose #40596 > │ let v31 : Async<unit> = v30 10 │
00:08:18 verbose #40597 > │ v31 │
00:08:18 verbose #40598 > │ #endif │
00:08:18 verbose #40599 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40600 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40601 > │ v32 │
00:08:18 verbose #40602 > │ #endif │
00:08:18 verbose #40603 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40604 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #40605 > │ v33 │
00:08:18 verbose #40606 > │ #endif │
00:08:18 verbose #40607 > │ |> fun x -> _v25 <- Some x │
00:08:18 verbose #40608 > │ let v34 : Async<unit> = _v25.Value │
00:08:18 verbose #40609 > │ do! v34 │
00:08:18 verbose #40610 > │ let v35 : int64 = v1 + 1L │
00:08:18 verbose #40611 > │ let v36 : Async<int64> = method10(v0, v35) │
00:08:18 verbose #40612 > │ return! v36 │
00:08:18 verbose #40613 > │ (* │
00:08:18 verbose #40614 > │ let v37 : int64 = *) │
00:08:18 verbose #40615 > │ } │
00:08:18 verbose #40616 > │ |> fun x -> _v7 <- Some x │
00:08:18 verbose #40617 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:08:18 verbose #40618 > │ v38 │
00:08:18 verbose #40619 > │ #endif │
00:08:18 verbose #40620 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40621 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40622 > │ v39 │
00:08:18 verbose #40623 > │ #endif │
00:08:18 verbose #40624 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40625 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:18 verbose #40626 > │ v40 │
00:08:18 verbose #40627 > │ #endif │
00:08:18 verbose #40628 > │ |> fun x -> _v2 <- Some x │
00:08:18 verbose #40629 > │ let v41 : Async<int64> = _v2.Value │
00:08:18 verbose #40630 > │ v41 │
00:08:18 verbose #40631 > │ and closure8 (v0 : string) () : unit = │
00:08:18 verbose #40632 > │ let v1 : Async<int64> option = None │
00:08:18 verbose #40633 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:18 verbose #40634 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40635 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40636 > │ v3 │
00:08:18 verbose #40637 > │ #endif │
00:08:18 verbose #40638 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40639 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40640 > │ v4 │
00:08:18 verbose #40641 > │ #endif │
00:08:18 verbose #40642 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40643 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40644 > │ v5 │
00:08:18 verbose #40645 > │ #endif │
00:08:18 verbose #40646 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40647 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40648 > │ let v6 : int64 = 0L │
00:08:18 verbose #40649 > │ let v7 : Async<int64> = method10(v0, v6) │
00:08:18 verbose #40650 > │ v7 │
00:08:18 verbose #40651 > │ #endif │
00:08:18 verbose #40652 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40653 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40654 > │ v8 │
00:08:18 verbose #40655 > │ #endif │
00:08:18 verbose #40656 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40657 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:18 verbose #40658 > │ v9 │
00:08:18 verbose #40659 > │ #endif │
00:08:18 verbose #40660 > │ |> fun x -> _v1 <- Some x │
00:08:18 verbose #40661 > │ let v10 : Async<int64> = _v1.Value │
00:08:18 verbose #40662 > │ let v11 : Async<unit> option = None │
00:08:18 verbose #40663 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:08:18 verbose #40664 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40665 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40666 > │ v13 │
00:08:18 verbose #40667 > │ #endif │
00:08:18 verbose #40668 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40669 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40670 > │ v14 │
00:08:18 verbose #40671 > │ #endif │
00:08:18 verbose #40672 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40673 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40674 > │ v15 │
00:08:18 verbose #40675 > │ #endif │
00:08:18 verbose #40676 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40677 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40678 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:18 verbose #40679 > │ let v17 : Async<unit> = v16 v10 │
00:08:18 verbose #40680 > │ v17 │
00:08:18 verbose #40681 > │ #endif │
00:08:18 verbose #40682 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40683 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40684 > │ v18 │
00:08:18 verbose #40685 > │ #endif │
00:08:18 verbose #40686 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40687 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #40688 > │ v19 │
00:08:18 verbose #40689 > │ #endif │
00:08:18 verbose #40690 > │ |> fun x -> _v11 <- Some x │
00:08:18 verbose #40691 > │ let v20 : Async<unit> = _v11.Value │
00:08:18 verbose #40692 > │ let v21 : unit option = None │
00:08:18 verbose #40693 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:08:18 verbose #40694 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40695 > │ null |> unbox<unit> │
00:08:18 verbose #40696 > │ () │
00:08:18 verbose #40697 > │ #endif │
00:08:18 verbose #40698 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40699 > │ null |> unbox<unit> │
00:08:18 verbose #40700 > │ () │
00:08:18 verbose #40701 > │ #endif │
00:08:18 verbose #40702 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40703 > │ null |> unbox<unit> │
00:08:18 verbose #40704 > │ () │
00:08:18 verbose #40705 > │ #endif │
00:08:18 verbose #40706 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40707 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40708 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:18 verbose #40709 > │ v23 v20 │
00:08:18 verbose #40710 > │ () │
00:08:18 verbose #40711 > │ #endif │
00:08:18 verbose #40712 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40713 > │ null |> unbox<unit> │
00:08:18 verbose #40714 > │ () │
00:08:18 verbose #40715 > │ #endif │
00:08:18 verbose #40716 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40717 > │ Unchecked.defaultof<unit> │
00:08:18 verbose #40718 > │ () │
00:08:18 verbose #40719 > │ #endif │
00:08:18 verbose #40720 > │ |> fun x -> _v21 <- Some x │
00:08:18 verbose #40721 > │ _v21.Value │
00:08:18 verbose #40722 > │ () │
00:08:18 verbose #40723 > │ and method11 () : string = │
00:08:18 verbose #40724 > │ let v0 : string = "test.txt" │
00:08:18 verbose #40725 > │ v0 │
00:08:18 verbose #40726 > │ and method12 () : string = │
00:08:18 verbose #40727 > │ let v0 : string = "test.txt" │
00:08:18 verbose #40728 > │ v0 │
00:08:18 verbose #40729 > │ and method13 () : string = │
00:08:18 verbose #40730 > │ let v0 : string = "test2.txt" │
00:08:18 verbose #40731 > │ v0 │
00:08:18 verbose #40732 > │ and method14 () : string = │
00:08:18 verbose #40733 > │ let v0 : string = "test2.txt" │
00:08:18 verbose #40734 > │ v0 │
00:08:18 verbose #40735 > │ and closure12 () () : string = │
00:08:18 verbose #40736 > │ let v0 : string = "1" │
00:08:18 verbose #40737 > │ v0 │
00:08:18 verbose #40738 > │ and closure13 () () : string = │
00:08:18 verbose #40739 > │ let v0 : string = "2" │
00:08:18 verbose #40740 > │ v0 │
00:08:18 verbose #40741 > │ and closure14 () () : string = │
00:08:18 verbose #40742 > │ let v0 : string = "_1" │
00:08:18 verbose #40743 > │ v0 │
00:08:18 verbose #40744 > │ and closure15 () () : string = │
00:08:18 verbose #40745 > │ let v0 : string = "_2" │
00:08:18 verbose #40746 > │ v0 │
00:08:18 verbose #40747 > │ and closure16 () () : string = │
00:08:18 verbose #40748 > │ let v0 : string = "_3" │
00:08:18 verbose #40749 > │ v0 │
00:08:18 verbose #40750 > │ and closure17 () () : string = │
00:08:18 verbose #40751 > │ let v0 : string = "3" │
00:08:18 verbose #40752 > │ v0 │
00:08:18 verbose #40753 > │ and closure18 () () : string = │
00:08:18 verbose #40754 > │ let v0 : string = "4" │
00:08:18 verbose #40755 > │ v0 │
00:08:18 verbose #40756 > │ and closure19 () () : string = │
00:08:18 verbose #40757 > │ let v0 : string = "move_file_async" │
00:08:18 verbose #40758 > │ v0 │
00:08:18 verbose #40759 > │ and closure20 (v0 : string, v1 : string, v2 : exn) () : string = │
00:08:18 verbose #40760 > │ let v3 : string option = None │
00:08:18 verbose #40761 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:18 verbose #40762 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40763 > │ let v5 : string = $"%A{v2}" │
00:08:18 verbose #40764 > │ v5 │
00:08:18 verbose #40765 > │ #endif │
00:08:18 verbose #40766 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40767 > │ let v6 : string = $"%A{v2}" │
00:08:18 verbose #40768 > │ v6 │
00:08:18 verbose #40769 > │ #endif │
00:08:18 verbose #40770 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40771 > │ let v7 : string = $"%A{v2}" │
00:08:18 verbose #40772 > │ v7 │
00:08:18 verbose #40773 > │ #endif │
00:08:18 verbose #40774 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40775 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40776 > │ let v8 : string = $"{v2.GetType ()}: {v2.Message}" │
00:08:18 verbose #40777 > │ v8 │
00:08:18 verbose #40778 > │ #endif │
00:08:18 verbose #40779 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40780 > │ let v9 : string = $"%A{v2}" │
00:08:18 verbose #40781 > │ v9 │
00:08:18 verbose #40782 > │ #endif │
00:08:18 verbose #40783 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40784 > │ let v10 : string = Unchecked.defaultof<string> │
00:08:18 verbose #40785 > │ v10 │
00:08:18 verbose #40786 > │ #endif │
00:08:18 verbose #40787 > │ |> fun x -> _v3 <- Some x │
00:08:18 verbose #40788 > │ let v11 : string = _v3.Value │
00:08:18 verbose #40789 > │ let v12 : (string -> string) = closure11() │
00:08:18 verbose #40790 > │ let v13 : (unit -> string) = closure3() │
00:08:18 verbose #40791 > │ let v14 : string = $"old_path: {v1 |> v12} / new_path: {v0 |> v12} / ex: │
00:08:18 verbose #40792 > │ {v11} / {v13 ()}" │
00:08:18 verbose #40793 > │ v14 │
00:08:18 verbose #40794 > │ and method15 (v0 : string, v1 : string, v2 : int64) : Async<int64> = │
00:08:18 verbose #40795 > │ let v3 : Async<int64> option = None │
00:08:18 verbose #40796 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:18 verbose #40797 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40798 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40799 > │ v5 │
00:08:18 verbose #40800 > │ #endif │
00:08:18 verbose #40801 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40802 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40803 > │ v6 │
00:08:18 verbose #40804 > │ #endif │
00:08:18 verbose #40805 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40806 > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40807 > │ v7 │
00:08:18 verbose #40808 > │ #endif │
00:08:18 verbose #40809 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40810 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40811 > │ let v8 : Async<int64> option = None │
00:08:18 verbose #40812 > │ let mutable _v8 = v8 │
00:08:18 verbose #40813 > │ async { │
00:08:18 verbose #40814 > │ try │
00:08:18 verbose #40815 > │ let v9 : unit option = None │
00:08:18 verbose #40816 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:18 verbose #40817 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40818 > │ null |> unbox<unit> │
00:08:18 verbose #40819 > │ () │
00:08:18 verbose #40820 > │ #endif │
00:08:18 verbose #40821 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40822 > │ null |> unbox<unit> │
00:08:18 verbose #40823 > │ () │
00:08:18 verbose #40824 > │ #endif │
00:08:18 verbose #40825 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40826 > │ null |> unbox<unit> │
00:08:18 verbose #40827 > │ () │
00:08:18 verbose #40828 > │ #endif │
00:08:18 verbose #40829 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40830 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40831 > │ System.IO.File.Move (v1, v0) │
00:08:18 verbose #40832 > │ () │
00:08:18 verbose #40833 > │ #endif │
00:08:18 verbose #40834 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40835 > │ null |> unbox<unit> │
00:08:18 verbose #40836 > │ () │
00:08:18 verbose #40837 > │ #endif │
00:08:18 verbose #40838 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40839 > │ Unchecked.defaultof<unit> │
00:08:18 verbose #40840 > │ () │
00:08:18 verbose #40841 > │ #endif │
00:08:18 verbose #40842 > │ |> fun x -> _v9 <- Some x │
00:08:18 verbose #40843 > │ _v9.Value │
00:08:18 verbose #40844 > │ return v2 │
00:08:18 verbose #40845 > │ with ex -> │
00:08:18 verbose #40846 > │ let v11 : exn = ex │
00:08:18 verbose #40847 > │ let v12 : int64 = v2 % 100L │
00:08:18 verbose #40848 > │ let v13 : bool = v12 = 0L │
00:08:18 verbose #40849 > │ if v13 then │
00:08:18 verbose #40850 > │ let v14 : US0 = US0_3 │
00:08:18 verbose #40851 > │ let v15 : (unit -> string) = closure19() │
00:08:18 verbose #40852 > │ let v16 : (unit -> string) = closure20(v0, v1, v11) │
00:08:18 verbose #40853 > │ method4(v14, v15, v16) │
00:08:18 verbose #40854 > │ let v17 : Async<unit> option = None │
00:08:18 verbose #40855 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:18 verbose #40856 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40857 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40858 > │ v19 │
00:08:18 verbose #40859 > │ #endif │
00:08:18 verbose #40860 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40861 > │ let v20 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40862 > │ v20 │
00:08:18 verbose #40863 > │ #endif │
00:08:18 verbose #40864 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40865 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40866 > │ v21 │
00:08:18 verbose #40867 > │ #endif │
00:08:18 verbose #40868 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40869 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40870 > │ let v22 : (int32 -> Async<unit>) = Async.Sleep │
00:08:18 verbose #40871 > │ let v23 : Async<unit> = v22 10 │
00:08:18 verbose #40872 > │ v23 │
00:08:18 verbose #40873 > │ #endif │
00:08:18 verbose #40874 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40875 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #40876 > │ v24 │
00:08:18 verbose #40877 > │ #endif │
00:08:18 verbose #40878 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40879 > │ let v25 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #40880 > │ v25 │
00:08:18 verbose #40881 > │ #endif │
00:08:18 verbose #40882 > │ |> fun x -> _v17 <- Some x │
00:08:18 verbose #40883 > │ let v26 : Async<unit> = _v17.Value │
00:08:18 verbose #40884 > │ do! v26 │
00:08:18 verbose #40885 > │ let v27 : int64 = v2 + 1L │
00:08:18 verbose #40886 > │ let v28 : Async<int64> = method15(v0, v1, v27) │
00:08:18 verbose #40887 > │ return! v28 │
00:08:18 verbose #40888 > │ (* │
00:08:18 verbose #40889 > │ *) │
00:08:18 verbose #40890 > │ } │
00:08:18 verbose #40891 > │ |> fun x -> _v8 <- Some x │
00:08:18 verbose #40892 > │ let v29 : Async<int64> = _v8 |> Option.get │
00:08:18 verbose #40893 > │ v29 │
00:08:18 verbose #40894 > │ #endif │
00:08:18 verbose #40895 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40896 > │ let v30 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40897 > │ v30 │
00:08:18 verbose #40898 > │ #endif │
00:08:18 verbose #40899 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40900 > │ let v31 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:18 verbose #40901 > │ v31 │
00:08:18 verbose #40902 > │ #endif │
00:08:18 verbose #40903 > │ |> fun x -> _v3 <- Some x │
00:08:18 verbose #40904 > │ let v32 : Async<int64> = _v3.Value │
00:08:18 verbose #40905 > │ v32 │
00:08:18 verbose #40906 > │ and closure21 () () : string = │
00:08:18 verbose #40907 > │ let v0 : string = "5" │
00:08:18 verbose #40908 > │ v0 │
00:08:18 verbose #40909 > │ and closure22 () () : string = │
00:08:18 verbose #40910 > │ let v0 : string = "file_system.wait_for_file_access" │
00:08:18 verbose #40911 > │ v0 │
00:08:18 verbose #40912 > │ and closure23 (v0 : string, v1 : int64, v2 : string) () : string = │
00:08:18 verbose #40913 > │ let v3 : (string -> string) = closure11() │
00:08:18 verbose #40914 > │ let v4 : (unit -> string) = closure3() │
00:08:18 verbose #40915 > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:08:18 verbose #40916 > │ v5 │
00:08:18 verbose #40917 > │ and method16 (v0 : string, v1 : int64) : Async<int64> = │
00:08:18 verbose #40918 > │ let v2 : Async<int64> option = None │
00:08:18 verbose #40919 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:18 verbose #40920 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40921 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40922 > │ v4 │
00:08:18 verbose #40923 > │ #endif │
00:08:18 verbose #40924 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40925 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40926 > │ v5 │
00:08:18 verbose #40927 > │ #endif │
00:08:18 verbose #40928 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40929 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #40930 > │ v6 │
00:08:18 verbose #40931 > │ #endif │
00:08:18 verbose #40932 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40933 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40934 > │ let v7 : Async<int64> option = None │
00:08:18 verbose #40935 > │ let mutable _v7 = v7 │
00:08:18 verbose #40936 > │ async { │
00:08:18 verbose #40937 > │ try │
00:08:18 verbose #40938 > │ let v8 : System.IO.FileStream option = None │
00:08:18 verbose #40939 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:18 verbose #40940 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40941 > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #40942 > │ v10 │
00:08:18 verbose #40943 > │ #endif │
00:08:18 verbose #40944 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40945 > │ let v11 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #40946 > │ v11 │
00:08:18 verbose #40947 > │ #endif │
00:08:18 verbose #40948 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40949 > │ let v12 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #40950 > │ v12 │
00:08:18 verbose #40951 > │ #endif │
00:08:18 verbose #40952 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #40953 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #40954 > │ let v13 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:18 verbose #40955 > │ let v14 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:18 verbose #40956 > │ let v15 : System.IO.FileShare = System.IO.FileShare.Read │
00:08:18 verbose #40957 > │ let v16 : System.IO.FileStream = new System.IO.FileStream (v0, v13, v14, │
00:08:18 verbose #40958 > │ v15) │
00:08:18 verbose #40959 > │ v16 │
00:08:18 verbose #40960 > │ #endif │
00:08:18 verbose #40961 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #40962 > │ let v17 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #40963 > │ v17 │
00:08:18 verbose #40964 > │ #endif │
00:08:18 verbose #40965 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #40966 > │ let v18 : System.IO.FileStream = │
00:08:18 verbose #40967 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:18 verbose #40968 > │ v18 │
00:08:18 verbose #40969 > │ #endif │
00:08:18 verbose #40970 > │ |> fun x -> _v8 <- Some x │
00:08:18 verbose #40971 > │ let v19 : System.IO.FileStream = _v8.Value │
00:08:18 verbose #40972 > │ use v19 = v19 │
00:08:18 verbose #40973 > │ let v20 : System.IO.FileStream = v19 │
00:08:18 verbose #40974 > │ return v1 │
00:08:18 verbose #40975 > │ with ex -> │
00:08:18 verbose #40976 > │ let v21 : exn = ex │
00:08:18 verbose #40977 > │ let v22 : bool = v1 > 0L │
00:08:18 verbose #40978 > │ let v25 : bool = │
00:08:18 verbose #40979 > │ if v22 then │
00:08:18 verbose #40980 > │ let v23 : int64 = v1 % 100L │
00:08:18 verbose #40981 > │ let v24 : bool = v23 = 0L │
00:08:18 verbose #40982 > │ v24 │
00:08:18 verbose #40983 > │ else │
00:08:18 verbose #40984 > │ false │
00:08:18 verbose #40985 > │ if v25 then │
00:08:18 verbose #40986 > │ let v26 : string option = None │
00:08:18 verbose #40987 > │ let v27 : bool = true in let mutable _v26 = v26 │
00:08:18 verbose #40988 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #40989 > │ let v28 : string = $"%A{v21}" │
00:08:18 verbose #40990 > │ v28 │
00:08:18 verbose #40991 > │ #endif │
00:08:18 verbose #40992 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #40993 > │ let v29 : string = $"%A{v21}" │
00:08:18 verbose #40994 > │ v29 │
00:08:18 verbose #40995 > │ #endif │
00:08:18 verbose #40996 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #40997 > │ let v30 : string = $"%A{v21}" │
00:08:18 verbose #40998 > │ v30 │
00:08:18 verbose #40999 > │ #endif │
00:08:18 verbose #41000 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41001 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41002 > │ let v31 : string = $"{v21.GetType ()}: {v21.Message}" │
00:08:18 verbose #41003 > │ v31 │
00:08:18 verbose #41004 > │ #endif │
00:08:18 verbose #41005 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41006 > │ let v32 : string = $"%A{v21}" │
00:08:18 verbose #41007 > │ v32 │
00:08:18 verbose #41008 > │ #endif │
00:08:18 verbose #41009 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #41010 > │ FABLE_COMPILER_DART │
00:08:18 verbose #41011 > │ let v33 : string = Unchecked.defaultof<string> │
00:08:18 verbose #41012 > │ v33 │
00:08:18 verbose #41013 > │ #endif │
00:08:18 verbose #41014 > │ |> fun x -> _v26 <- Some x │
00:08:18 verbose #41015 > │ let v34 : string = _v26.Value │
00:08:18 verbose #41016 > │ let v35 : US0 = US0_1 │
00:08:18 verbose #41017 > │ let v36 : (unit -> string) = closure22() │
00:08:18 verbose #41018 > │ let v37 : (unit -> string) = closure23(v0, v1, v34) │
00:08:18 verbose #41019 > │ method4(v35, v36, v37) │
00:08:18 verbose #41020 > │ let v38 : Async<unit> option = None │
00:08:18 verbose #41021 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:08:18 verbose #41022 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41023 > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41024 > │ v40 │
00:08:18 verbose #41025 > │ #endif │
00:08:18 verbose #41026 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41027 > │ let v41 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41028 > │ v41 │
00:08:18 verbose #41029 > │ #endif │
00:08:18 verbose #41030 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41031 > │ let v42 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41032 > │ v42 │
00:08:18 verbose #41033 > │ #endif │
00:08:18 verbose #41034 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41035 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41036 > │ let v43 : (int32 -> Async<unit>) = Async.Sleep │
00:08:18 verbose #41037 > │ let v44 : Async<unit> = v43 10 │
00:08:18 verbose #41038 > │ v44 │
00:08:18 verbose #41039 > │ #endif │
00:08:18 verbose #41040 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41041 > │ let v45 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41042 > │ v45 │
00:08:18 verbose #41043 > │ #endif │
00:08:18 verbose #41044 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41045 > │ let v46 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #41046 > │ v46 │
00:08:18 verbose #41047 > │ #endif │
00:08:18 verbose #41048 > │ |> fun x -> _v38 <- Some x │
00:08:18 verbose #41049 > │ let v47 : Async<unit> = _v38.Value │
00:08:18 verbose #41050 > │ do! v47 │
00:08:18 verbose #41051 > │ let v48 : int64 = v1 + 1L │
00:08:18 verbose #41052 > │ let v49 : Async<int64> = method16(v0, v48) │
00:08:18 verbose #41053 > │ return! v49 │
00:08:18 verbose #41054 > │ (* │
00:08:18 verbose #41055 > │ let v50 : int64 = *) │
00:08:18 verbose #41056 > │ } │
00:08:18 verbose #41057 > │ |> fun x -> _v7 <- Some x │
00:08:18 verbose #41058 > │ let v51 : Async<int64> = _v7 |> Option.get │
00:08:18 verbose #41059 > │ v51 │
00:08:18 verbose #41060 > │ #endif │
00:08:18 verbose #41061 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41062 > │ let v52 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41063 > │ v52 │
00:08:18 verbose #41064 > │ #endif │
00:08:18 verbose #41065 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41066 > │ let v53 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:18 verbose #41067 > │ v53 │
00:08:18 verbose #41068 > │ #endif │
00:08:18 verbose #41069 > │ |> fun x -> _v2 <- Some x │
00:08:18 verbose #41070 > │ let v54 : Async<int64> = _v2.Value │
00:08:18 verbose #41071 > │ v54 │
00:08:18 verbose #41072 > │ and closure24 () () : string = │
00:08:18 verbose #41073 > │ let v0 : string = "6" │
00:08:18 verbose #41074 > │ v0 │
00:08:18 verbose #41075 > │ and closure25 () () : string = │
00:08:18 verbose #41076 > │ let v0 : string = "7" │
00:08:18 verbose #41077 > │ v0 │
00:08:18 verbose #41078 > │ and closure26 () () : string = │
00:08:18 verbose #41079 > │ let v0 : string = "8" │
00:08:18 verbose #41080 > │ v0 │
00:08:18 verbose #41081 > │ and closure27 () struct (v0 : int64, v1 : int64, v2 : string) : US4 = │
00:08:18 verbose #41082 > │ US4_0(v0, v1, v2) │
00:08:18 verbose #41083 > │ and closure28 () (v0 : exn) : US4 = │
00:08:18 verbose #41084 > │ US4_1(v0) │
00:08:18 verbose #41085 > │ and closure29 () () : string = │
00:08:18 verbose #41086 > │ let v0 : string = "run_with_timeout_async" │
00:08:18 verbose #41087 > │ v0 │
00:08:18 verbose #41088 > │ and closure30 () () : string = │
00:08:18 verbose #41089 > │ let v0 : (unit -> string) = closure3() │
00:08:18 verbose #41090 > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:08:18 verbose #41091 > │ v1 │
00:08:18 verbose #41092 > │ and closure31 (v0 : string) () : string = │
00:08:18 verbose #41093 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:08:18 verbose #41094 > │ v1 │
00:08:18 verbose #41095 > │ and method17 (v0 : bool) : bool = │
00:08:18 verbose #41096 > │ v0 │
00:08:18 verbose #41097 > │ and method18 () : string = │
00:08:18 verbose #41098 > │ let v0 : string = "0" │
00:08:18 verbose #41099 > │ v0 │
00:08:18 verbose #41100 > │ and method0 () : unit = │
00:08:18 verbose #41101 > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:18 verbose #41102 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:18 verbose #41103 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41104 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:08:18 verbose #41105 > │ (string * System.IDisposable)> │
00:08:18 verbose #41106 > │ struct (v2, v3) │
00:08:18 verbose #41107 > │ #endif │
00:08:18 verbose #41108 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41109 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:08:18 verbose #41110 > │ (string * System.IDisposable)> │
00:08:18 verbose #41111 > │ struct (v4, v5) │
00:08:18 verbose #41112 > │ #endif │
00:08:18 verbose #41113 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41114 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:08:18 verbose #41115 > │ (string * System.IDisposable)> │
00:08:18 verbose #41116 > │ struct (v6, v7) │
00:08:18 verbose #41117 > │ #endif │
00:08:18 verbose #41118 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41119 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41120 > │ let v8 : string option = None │
00:08:18 verbose #41121 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:18 verbose #41122 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41123 > │ let v10 : string = null |> unbox<string> │
00:08:18 verbose #41124 > │ v10 │
00:08:18 verbose #41125 > │ #endif │
00:08:18 verbose #41126 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41127 > │ let v11 : string = null |> unbox<string> │
00:08:18 verbose #41128 > │ v11 │
00:08:18 verbose #41129 > │ #endif │
00:08:18 verbose #41130 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41131 > │ let v12 : string = null |> unbox<string> │
00:08:18 verbose #41132 > │ v12 │
00:08:18 verbose #41133 > │ #endif │
00:08:18 verbose #41134 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41135 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41136 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:18 verbose #41137 > │ let v14 : string = v13 () │
00:08:18 verbose #41138 > │ let v15 : (unit -> string) = closure0() │
00:08:18 verbose #41139 > │ let v16 : string = $"!{v15 ()}" │
00:08:18 verbose #41140 > │ let v17 : string option = None │
00:08:18 verbose #41141 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:18 verbose #41142 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41143 > │ let v19 : string = method1(v14) │
00:08:18 verbose #41144 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41145 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:18 verbose #41146 > │ let v22 : string = "String::from($0)" │
00:08:18 verbose #41147 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:08:18 verbose #41148 > │ v22 │
00:08:18 verbose #41149 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:08:18 verbose #41150 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:18 verbose #41151 > │ let v26 : string = method1(v16) │
00:08:18 verbose #41152 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41153 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:18 verbose #41154 > │ let v29 : string = "String::from($0)" │
00:08:18 verbose #41155 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:08:18 verbose #41156 > │ v29 │
00:08:18 verbose #41157 > │ let v31 : string = "$0.join($1)" │
00:08:18 verbose #41158 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:18 verbose #41159 > │ (v25, v30) v31 │
00:08:18 verbose #41160 > │ let v33 : string = "$0.display().to_string()" │
00:08:18 verbose #41161 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:08:18 verbose #41162 > │ v33 │
00:08:18 verbose #41163 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #41164 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:08:18 verbose #41165 > │ v36 │
00:08:18 verbose #41166 > │ #endif │
00:08:18 verbose #41167 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41168 > │ let v37 : string = null |> unbox<string> │
00:08:18 verbose #41169 > │ v37 │
00:08:18 verbose #41170 > │ #endif │
00:08:18 verbose #41171 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41172 > │ let v38 : string = null |> unbox<string> │
00:08:18 verbose #41173 > │ v38 │
00:08:18 verbose #41174 > │ #endif │
00:08:18 verbose #41175 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41176 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41177 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:08:18 verbose #41178 > │ v39 │
00:08:18 verbose #41179 > │ #endif │
00:08:18 verbose #41180 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41181 > │ let v40 : string = "path" │
00:08:18 verbose #41182 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:18 verbose #41183 > │ let v42 : string = method2(v14) │
00:08:18 verbose #41184 > │ let v43 : string = method3(v16) │
00:08:18 verbose #41185 > │ let v44 : string = "v41.join(v42, v43)" │
00:08:18 verbose #41186 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:08:18 verbose #41187 > │ v45 │
00:08:18 verbose #41188 > │ #endif │
00:08:18 verbose #41189 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41190 > │ let v46 : string = Unchecked.defaultof<string> │
00:08:18 verbose #41191 > │ v46 │
00:08:18 verbose #41192 > │ #endif │
00:08:18 verbose #41193 > │ |> fun x -> _v17 <- Some x │
00:08:18 verbose #41194 > │ let v47 : string = _v17.Value │
00:08:18 verbose #41195 > │ let v48 : System.DateTime = System.DateTime.Now │
00:08:18 verbose #41196 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:08:18 verbose #41197 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:08:18 verbose #41198 > │ let v51 : string = v50 v49 │
00:08:18 verbose #41199 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:18 verbose #41200 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:08:18 verbose #41201 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:08:18 verbose #41202 > │ let v55 : string = v54 v53 │
00:08:18 verbose #41203 > │ let v56 : string option = None │
00:08:18 verbose #41204 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:08:18 verbose #41205 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41206 > │ let v58 : string = method1(v47) │
00:08:18 verbose #41207 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41208 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:08:18 verbose #41209 > │ let v61 : string = "String::from($0)" │
00:08:18 verbose #41210 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:08:18 verbose #41211 > │ v61 │
00:08:18 verbose #41212 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:08:18 verbose #41213 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:08:18 verbose #41214 > │ let v65 : string = method1(v55) │
00:08:18 verbose #41215 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41216 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:18 verbose #41217 > │ let v68 : string = "String::from($0)" │
00:08:18 verbose #41218 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:08:18 verbose #41219 > │ v68 │
00:08:18 verbose #41220 > │ let v70 : string = "$0.join($1)" │
00:08:18 verbose #41221 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:18 verbose #41222 > │ (v64, v69) v70 │
00:08:18 verbose #41223 > │ let v72 : string = "$0.display().to_string()" │
00:08:18 verbose #41224 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:08:18 verbose #41225 > │ v72 │
00:08:18 verbose #41226 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #41227 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:08:18 verbose #41228 > │ v75 │
00:08:18 verbose #41229 > │ #endif │
00:08:18 verbose #41230 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41231 > │ let v76 : string = null |> unbox<string> │
00:08:18 verbose #41232 > │ v76 │
00:08:18 verbose #41233 > │ #endif │
00:08:18 verbose #41234 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41235 > │ let v77 : string = null |> unbox<string> │
00:08:18 verbose #41236 > │ v77 │
00:08:18 verbose #41237 > │ #endif │
00:08:18 verbose #41238 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41239 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41240 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:08:18 verbose #41241 > │ v78 │
00:08:18 verbose #41242 > │ #endif │
00:08:18 verbose #41243 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41244 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:18 verbose #41245 > │ let v80 : string = method2(v47) │
00:08:18 verbose #41246 > │ let v81 : string = method3(v55) │
00:08:18 verbose #41247 > │ let v82 : string = "v79.join(v80, v81)" │
00:08:18 verbose #41248 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:08:18 verbose #41249 > │ v83 │
00:08:18 verbose #41250 > │ #endif │
00:08:18 verbose #41251 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41252 > │ let v84 : string = Unchecked.defaultof<string> │
00:08:18 verbose #41253 > │ v84 │
00:08:18 verbose #41254 > │ #endif │
00:08:18 verbose #41255 > │ |> fun x -> _v56 <- Some x │
00:08:18 verbose #41256 > │ let v85 : string = _v56.Value │
00:08:18 verbose #41257 > │ v85 │
00:08:18 verbose #41258 > │ #endif │
00:08:18 verbose #41259 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41260 > │ let v86 : string = null |> unbox<string> │
00:08:18 verbose #41261 > │ v86 │
00:08:18 verbose #41262 > │ #endif │
00:08:18 verbose #41263 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41264 > │ let v87 : string = Unchecked.defaultof<string> │
00:08:18 verbose #41265 > │ v87 │
00:08:18 verbose #41266 > │ #endif │
00:08:18 verbose #41267 > │ |> fun x -> _v8 <- Some x │
00:08:18 verbose #41268 > │ let v88 : string = _v8.Value │
00:08:18 verbose #41269 > │ let v89 : System.IO.DirectoryInfo option = None │
00:08:18 verbose #41270 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:18 verbose #41271 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41272 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:08:18 verbose #41273 > │ unbox<System.IO.DirectoryInfo> │
00:08:18 verbose #41274 > │ v91 │
00:08:18 verbose #41275 > │ #endif │
00:08:18 verbose #41276 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41277 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:08:18 verbose #41278 > │ unbox<System.IO.DirectoryInfo> │
00:08:18 verbose #41279 > │ v92 │
00:08:18 verbose #41280 > │ #endif │
00:08:18 verbose #41281 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41282 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:08:18 verbose #41283 > │ unbox<System.IO.DirectoryInfo> │
00:08:18 verbose #41284 > │ v93 │
00:08:18 verbose #41285 > │ #endif │
00:08:18 verbose #41286 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41287 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41288 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:08:18 verbose #41289 > │ System.IO.Directory.CreateDirectory │
00:08:18 verbose #41290 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:08:18 verbose #41291 > │ v95 │
00:08:18 verbose #41292 > │ #endif │
00:08:18 verbose #41293 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41294 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:08:18 verbose #41295 > │ unbox<System.IO.DirectoryInfo> │
00:08:18 verbose #41296 > │ v96 │
00:08:18 verbose #41297 > │ #endif │
00:08:18 verbose #41298 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41299 > │ let v97 : System.IO.DirectoryInfo = │
00:08:18 verbose #41300 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:18 verbose #41301 > │ v97 │
00:08:18 verbose #41302 > │ #endif │
00:08:18 verbose #41303 > │ |> fun x -> _v89 <- Some x │
00:08:18 verbose #41304 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:08:18 verbose #41305 > │ let v99 : bool option = None │
00:08:18 verbose #41306 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:08:18 verbose #41307 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41308 > │ let v101 : bool = null |> unbox<bool> │
00:08:18 verbose #41309 > │ v101 │
00:08:18 verbose #41310 > │ #endif │
00:08:18 verbose #41311 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41312 > │ let v102 : bool = null |> unbox<bool> │
00:08:18 verbose #41313 > │ v102 │
00:08:18 verbose #41314 > │ #endif │
00:08:18 verbose #41315 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41316 > │ let v103 : bool = null |> unbox<bool> │
00:08:18 verbose #41317 > │ v103 │
00:08:18 verbose #41318 > │ #endif │
00:08:18 verbose #41319 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41320 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41321 > │ let v104 : bool = v98.Exists │
00:08:18 verbose #41322 > │ v104 │
00:08:18 verbose #41323 > │ #endif │
00:08:18 verbose #41324 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41325 > │ let v105 : bool = null |> unbox<bool> │
00:08:18 verbose #41326 > │ v105 │
00:08:18 verbose #41327 > │ #endif │
00:08:18 verbose #41328 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41329 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:08:18 verbose #41330 > │ v106 │
00:08:18 verbose #41331 > │ #endif │
00:08:18 verbose #41332 > │ |> fun x -> _v99 <- Some x │
00:08:18 verbose #41333 > │ let v107 : bool = _v99.Value │
00:08:18 verbose #41334 > │ let v108 : bool = v107 = false │
00:08:18 verbose #41335 > │ if v108 then │
00:08:18 verbose #41336 > │ let v109 : System.DateTime option = None │
00:08:18 verbose #41337 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:08:18 verbose #41338 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41339 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:08:18 verbose #41340 > │ v111 │
00:08:18 verbose #41341 > │ #endif │
00:08:18 verbose #41342 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41343 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:08:18 verbose #41344 > │ v112 │
00:08:18 verbose #41345 > │ #endif │
00:08:18 verbose #41346 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41347 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:08:18 verbose #41348 > │ v113 │
00:08:18 verbose #41349 > │ #endif │
00:08:18 verbose #41350 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41351 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41352 > │ let v114 : System.DateTime = v98.CreationTime │
00:08:18 verbose #41353 > │ v114 │
00:08:18 verbose #41354 > │ #endif │
00:08:18 verbose #41355 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41356 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:08:18 verbose #41357 > │ v115 │
00:08:18 verbose #41358 > │ #endif │
00:08:18 verbose #41359 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #41360 > │ FABLE_COMPILER_DART │
00:08:18 verbose #41361 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:18 verbose #41362 > │ v116 │
00:08:18 verbose #41363 > │ #endif │
00:08:18 verbose #41364 > │ |> fun x -> _v109 <- Some x │
00:08:18 verbose #41365 > │ let v117 : System.DateTime = _v109.Value │
00:08:18 verbose #41366 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:08:18 verbose #41367 > │ let v119 : string = $"%A{v118}" │
00:08:18 verbose #41368 > │ let v120 : US0 = US0_1 │
00:08:18 verbose #41369 > │ let v121 : (unit -> string) = closure1() │
00:08:18 verbose #41370 > │ let v122 : (unit -> string) = closure2(v88, v119) │
00:08:18 verbose #41371 > │ method4(v120, v121, v122) │
00:08:18 verbose #41372 > │ let v123 : System.IDisposable option = None │
00:08:18 verbose #41373 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:08:18 verbose #41374 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41375 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:18 verbose #41376 > │ v125 │
00:08:18 verbose #41377 > │ #endif │
00:08:18 verbose #41378 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41379 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:18 verbose #41380 > │ v126 │
00:08:18 verbose #41381 > │ #endif │
00:08:18 verbose #41382 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41383 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:18 verbose #41384 > │ v127 │
00:08:18 verbose #41385 > │ #endif │
00:08:18 verbose #41386 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41387 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41388 > │ let v128 : (unit -> unit) = closure8(v88) │
00:08:18 verbose #41389 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:08:18 verbose #41390 > │ _.Dispose () = v128 () } │
00:08:18 verbose #41391 > │ v129 │
00:08:18 verbose #41392 > │ #endif │
00:08:18 verbose #41393 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41394 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:18 verbose #41395 > │ v130 │
00:08:18 verbose #41396 > │ #endif │
00:08:18 verbose #41397 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41398 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:18 verbose #41399 > │ v131 │
00:08:18 verbose #41400 > │ #endif │
00:08:18 verbose #41401 > │ |> fun x -> _v123 <- Some x │
00:08:18 verbose #41402 > │ let v132 : System.IDisposable = _v123.Value │
00:08:18 verbose #41403 > │ struct (v88, v132) │
00:08:18 verbose #41404 > │ #endif │
00:08:18 verbose #41405 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41406 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:08:18 verbose #41407 > │ unbox<struct (string * System.IDisposable)> │
00:08:18 verbose #41408 > │ struct (v133, v134) │
00:08:18 verbose #41409 > │ #endif │
00:08:18 verbose #41410 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41411 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:08:18 verbose #41412 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:18 verbose #41413 > │ struct (v135, v136) │
00:08:18 verbose #41414 > │ #endif │
00:08:18 verbose #41415 > │ |> fun x -> _v0 <- Some x │
00:08:18 verbose #41416 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:08:18 verbose #41417 > │ use v138 = v138 │
00:08:18 verbose #41418 > │ let v139 : System.IDisposable = v138 │
00:08:18 verbose #41419 > │ let v140 : string option = None │
00:08:18 verbose #41420 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:08:18 verbose #41421 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41422 > │ let v142 : string = method1(v137) │
00:08:18 verbose #41423 > │ let v143 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41424 > │ let v144 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:08:18 verbose #41425 > │ let v145 : string = "String::from($0)" │
00:08:18 verbose #41426 > │ let v146 : std_string_String = Fable.Core.RustInterop.emitRustExpr v144 │
00:08:18 verbose #41427 > │ v145 │
00:08:18 verbose #41428 > │ let v147 : string = "std::path::PathBuf::from($0)" │
00:08:18 verbose #41429 > │ let v148 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v146 │
00:08:18 verbose #41430 > │ v147 │
00:08:18 verbose #41431 > │ let v149 : string = method11() │
00:08:18 verbose #41432 > │ let v150 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41433 > │ let v151 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v149 v150 │
00:08:18 verbose #41434 > │ let v152 : string = "String::from($0)" │
00:08:18 verbose #41435 > │ let v153 : std_string_String = Fable.Core.RustInterop.emitRustExpr v151 │
00:08:18 verbose #41436 > │ v152 │
00:08:18 verbose #41437 > │ let v154 : string = "$0.join($1)" │
00:08:18 verbose #41438 > │ let v155 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:18 verbose #41439 > │ (v148, v153) v154 │
00:08:18 verbose #41440 > │ let v156 : string = "$0.display().to_string()" │
00:08:18 verbose #41441 > │ let v157 : std_string_String = Fable.Core.RustInterop.emitRustExpr v155 │
00:08:18 verbose #41442 > │ v156 │
00:08:18 verbose #41443 > │ let v158 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #41444 > │ let v159 : string = Fable.Core.RustInterop.emitRustExpr v157 v158 │
00:08:18 verbose #41445 > │ v159 │
00:08:18 verbose #41446 > │ #endif │
00:08:18 verbose #41447 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41448 > │ let v160 : string = null |> unbox<string> │
00:08:18 verbose #41449 > │ v160 │
00:08:18 verbose #41450 > │ #endif │
00:08:18 verbose #41451 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41452 > │ let v161 : string = null |> unbox<string> │
00:08:18 verbose #41453 > │ v161 │
00:08:18 verbose #41454 > │ #endif │
00:08:18 verbose #41455 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41456 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41457 > │ let v162 : string = "test.txt" │
00:08:18 verbose #41458 > │ let v163 : string = System.IO.Path.Combine (v137, v162) │
00:08:18 verbose #41459 > │ v163 │
00:08:18 verbose #41460 > │ #endif │
00:08:18 verbose #41461 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41462 > │ let v164 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:18 verbose #41463 > │ let v165 : string = method2(v137) │
00:08:18 verbose #41464 > │ let v166 : string = method12() │
00:08:18 verbose #41465 > │ let v167 : string = "v164.join(v165, v166)" │
00:08:18 verbose #41466 > │ let v168 : string = Fable.Core.JsInterop.emitJsExpr () v167 │
00:08:18 verbose #41467 > │ v168 │
00:08:18 verbose #41468 > │ #endif │
00:08:18 verbose #41469 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41470 > │ let v169 : string = Unchecked.defaultof<string> │
00:08:18 verbose #41471 > │ v169 │
00:08:18 verbose #41472 > │ #endif │
00:08:18 verbose #41473 > │ |> fun x -> _v140 <- Some x │
00:08:18 verbose #41474 > │ let v170 : string = _v140.Value │
00:08:18 verbose #41475 > │ let v171 : string option = None │
00:08:18 verbose #41476 > │ let v172 : bool = true in let mutable _v171 = v171 │
00:08:18 verbose #41477 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41478 > │ let v173 : string = method1(v137) │
00:08:18 verbose #41479 > │ let v174 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41480 > │ let v175 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v173 v174 │
00:08:18 verbose #41481 > │ let v176 : string = "String::from($0)" │
00:08:18 verbose #41482 > │ let v177 : std_string_String = Fable.Core.RustInterop.emitRustExpr v175 │
00:08:18 verbose #41483 > │ v176 │
00:08:18 verbose #41484 > │ let v178 : string = "std::path::PathBuf::from($0)" │
00:08:18 verbose #41485 > │ let v179 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v177 │
00:08:18 verbose #41486 > │ v178 │
00:08:18 verbose #41487 > │ let v180 : string = method13() │
00:08:18 verbose #41488 > │ let v181 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:18 verbose #41489 > │ let v182 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v180 v181 │
00:08:18 verbose #41490 > │ let v183 : string = "String::from($0)" │
00:08:18 verbose #41491 > │ let v184 : std_string_String = Fable.Core.RustInterop.emitRustExpr v182 │
00:08:18 verbose #41492 > │ v183 │
00:08:18 verbose #41493 > │ let v185 : string = "$0.join($1)" │
00:08:18 verbose #41494 > │ let v186 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:18 verbose #41495 > │ (v179, v184) v185 │
00:08:18 verbose #41496 > │ let v187 : string = "$0.display().to_string()" │
00:08:18 verbose #41497 > │ let v188 : std_string_String = Fable.Core.RustInterop.emitRustExpr v186 │
00:08:18 verbose #41498 > │ v187 │
00:08:18 verbose #41499 > │ let v189 : string = "fable_library_rust::String_::fromString($0)" │
00:08:18 verbose #41500 > │ let v190 : string = Fable.Core.RustInterop.emitRustExpr v188 v189 │
00:08:18 verbose #41501 > │ v190 │
00:08:18 verbose #41502 > │ #endif │
00:08:18 verbose #41503 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41504 > │ let v191 : string = null |> unbox<string> │
00:08:18 verbose #41505 > │ v191 │
00:08:18 verbose #41506 > │ #endif │
00:08:18 verbose #41507 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41508 > │ let v192 : string = null |> unbox<string> │
00:08:18 verbose #41509 > │ v192 │
00:08:18 verbose #41510 > │ #endif │
00:08:18 verbose #41511 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41512 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41513 > │ let v193 : string = "test2.txt" │
00:08:18 verbose #41514 > │ let v194 : string = System.IO.Path.Combine (v137, v193) │
00:08:18 verbose #41515 > │ v194 │
00:08:18 verbose #41516 > │ #endif │
00:08:18 verbose #41517 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41518 > │ let v195 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:18 verbose #41519 > │ let v196 : string = method2(v137) │
00:08:18 verbose #41520 > │ let v197 : string = method14() │
00:08:18 verbose #41521 > │ let v198 : string = "v195.join(v196, v197)" │
00:08:18 verbose #41522 > │ let v199 : string = Fable.Core.JsInterop.emitJsExpr () v198 │
00:08:18 verbose #41523 > │ v199 │
00:08:18 verbose #41524 > │ #endif │
00:08:18 verbose #41525 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41526 > │ let v200 : string = Unchecked.defaultof<string> │
00:08:18 verbose #41527 > │ v200 │
00:08:18 verbose #41528 > │ #endif │
00:08:18 verbose #41529 > │ |> fun x -> _v171 <- Some x │
00:08:18 verbose #41530 > │ let v201 : string = _v171.Value │
00:08:18 verbose #41531 > │ let v202 : Async<struct (int64 * int64 * string)> option = None │
00:08:18 verbose #41532 > │ let v203 : bool = true in let mutable _v202 = v202 │
00:08:18 verbose #41533 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41534 > │ let v204 : Async<struct (int64 * int64 * string)> = null |> │
00:08:18 verbose #41535 > │ unbox<Async<struct (int64 * int64 * string)>> │
00:08:18 verbose #41536 > │ v204 │
00:08:18 verbose #41537 > │ #endif │
00:08:18 verbose #41538 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41539 > │ let v205 : Async<struct (int64 * int64 * string)> = null |> │
00:08:18 verbose #41540 > │ unbox<Async<struct (int64 * int64 * string)>> │
00:08:18 verbose #41541 > │ v205 │
00:08:18 verbose #41542 > │ #endif │
00:08:18 verbose #41543 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41544 > │ let v206 : Async<struct (int64 * int64 * string)> = null |> │
00:08:18 verbose #41545 > │ unbox<Async<struct (int64 * int64 * string)>> │
00:08:18 verbose #41546 > │ v206 │
00:08:18 verbose #41547 > │ #endif │
00:08:18 verbose #41548 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41549 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41550 > │ let v207 : Async<struct (int64 * int64 * string)> option = None │
00:08:18 verbose #41551 > │ let mutable _v207 = v207 │
00:08:18 verbose #41552 > │ async { │
00:08:18 verbose #41553 > │ let v208 : US0 = US0_1 │
00:08:18 verbose #41554 > │ let v209 : (unit -> string) = closure12() │
00:08:18 verbose #41555 > │ let v210 : (unit -> string) = closure3() │
00:08:18 verbose #41556 > │ method4(v208, v209, v210) │
00:08:18 verbose #41557 > │ let v211 : Async<unit> option = None │
00:08:18 verbose #41558 > │ let v212 : bool = true in let mutable _v211 = v211 │
00:08:18 verbose #41559 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41560 > │ let v213 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41561 > │ v213 │
00:08:18 verbose #41562 > │ #endif │
00:08:18 verbose #41563 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41564 > │ let v214 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41565 > │ v214 │
00:08:18 verbose #41566 > │ #endif │
00:08:18 verbose #41567 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41568 > │ let v215 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41569 > │ v215 │
00:08:18 verbose #41570 > │ #endif │
00:08:18 verbose #41571 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41572 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41573 > │ let v216 : string = "0" │
00:08:18 verbose #41574 > │ let v217 : System.Threading.Tasks.Task = │
00:08:18 verbose #41575 > │ System.IO.File.WriteAllTextAsync (v170, v216) │
00:08:18 verbose #41576 > │ let v218 : Async<unit> option = None │
00:08:18 verbose #41577 > │ let v219 : bool = true in let mutable _v218 = v218 │
00:08:18 verbose #41578 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41579 > │ let v220 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41580 > │ v220 │
00:08:18 verbose #41581 > │ #endif │
00:08:18 verbose #41582 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41583 > │ let v221 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41584 > │ v221 │
00:08:18 verbose #41585 > │ #endif │
00:08:18 verbose #41586 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41587 > │ let v222 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41588 > │ v222 │
00:08:18 verbose #41589 > │ #endif │
00:08:18 verbose #41590 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41591 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41592 > │ let v223 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:18 verbose #41593 > │ Async.AwaitTask │
00:08:18 verbose #41594 > │ let v224 : Async<unit> = v223 v217 │
00:08:18 verbose #41595 > │ v224 │
00:08:18 verbose #41596 > │ #endif │
00:08:18 verbose #41597 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41598 > │ let v225 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41599 > │ v225 │
00:08:18 verbose #41600 > │ #endif │
00:08:18 verbose #41601 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41602 > │ let v226 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #41603 > │ v226 │
00:08:18 verbose #41604 > │ #endif │
00:08:18 verbose #41605 > │ |> fun x -> _v218 <- Some x │
00:08:18 verbose #41606 > │ let v227 : Async<unit> = _v218.Value │
00:08:18 verbose #41607 > │ v227 │
00:08:18 verbose #41608 > │ #endif │
00:08:18 verbose #41609 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41610 > │ let v228 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41611 > │ v228 │
00:08:18 verbose #41612 > │ #endif │
00:08:18 verbose #41613 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41614 > │ let v229 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #41615 > │ v229 │
00:08:18 verbose #41616 > │ #endif │
00:08:18 verbose #41617 > │ |> fun x -> _v211 <- Some x │
00:08:18 verbose #41618 > │ let v230 : Async<unit> = _v211.Value │
00:08:18 verbose #41619 > │ do! v230 │
00:08:18 verbose #41620 > │ let v231 : US0 = US0_1 │
00:08:18 verbose #41621 > │ let v232 : (unit -> string) = closure13() │
00:08:18 verbose #41622 > │ method4(v231, v232, v210) │
00:08:18 verbose #41623 > │ let v233 : Async<unit> option = None │
00:08:18 verbose #41624 > │ let v234 : bool = true in let mutable _v233 = v233 │
00:08:18 verbose #41625 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41626 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41627 > │ v235 │
00:08:18 verbose #41628 > │ #endif │
00:08:18 verbose #41629 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41630 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41631 > │ v236 │
00:08:18 verbose #41632 > │ #endif │
00:08:18 verbose #41633 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41634 > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41635 > │ v237 │
00:08:18 verbose #41636 > │ #endif │
00:08:18 verbose #41637 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41638 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41639 > │ let v238 : Async<unit> option = None │
00:08:18 verbose #41640 > │ let mutable _v238 = v238 │
00:08:18 verbose #41641 > │ async { │
00:08:18 verbose #41642 > │ let v239 : US0 = US0_1 │
00:08:18 verbose #41643 > │ let v240 : (unit -> string) = closure14() │
00:08:18 verbose #41644 > │ method4(v239, v240, v210) │
00:08:18 verbose #41645 > │ let v241 : System.IO.FileStream option = None │
00:08:18 verbose #41646 > │ let v242 : bool = true in let mutable _v241 = v241 │
00:08:18 verbose #41647 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41648 > │ let v243 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #41649 > │ v243 │
00:08:18 verbose #41650 > │ #endif │
00:08:18 verbose #41651 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41652 > │ let v244 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #41653 > │ v244 │
00:08:18 verbose #41654 > │ #endif │
00:08:18 verbose #41655 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41656 > │ let v245 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #41657 > │ v245 │
00:08:18 verbose #41658 > │ #endif │
00:08:18 verbose #41659 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41660 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41661 > │ let v246 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:18 verbose #41662 > │ let v247 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:18 verbose #41663 > │ let v248 : System.IO.FileShare = System.IO.FileShare.None │
00:08:18 verbose #41664 > │ let v249 : System.IO.FileStream = new System.IO.FileStream (v170, v246, │
00:08:18 verbose #41665 > │ v247, v248) │
00:08:18 verbose #41666 > │ v249 │
00:08:18 verbose #41667 > │ #endif │
00:08:18 verbose #41668 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41669 > │ let v250 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:18 verbose #41670 > │ v250 │
00:08:18 verbose #41671 > │ #endif │
00:08:18 verbose #41672 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41673 > │ let v251 : System.IO.FileStream = │
00:08:18 verbose #41674 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:18 verbose #41675 > │ v251 │
00:08:18 verbose #41676 > │ #endif │
00:08:18 verbose #41677 > │ |> fun x -> _v241 <- Some x │
00:08:18 verbose #41678 > │ let v252 : System.IO.FileStream = _v241.Value │
00:08:18 verbose #41679 > │ use v252 = v252 │
00:08:18 verbose #41680 > │ let v253 : System.IO.FileStream = v252 │
00:08:18 verbose #41681 > │ let v254 : US0 = US0_1 │
00:08:18 verbose #41682 > │ let v255 : (unit -> string) = closure15() │
00:08:18 verbose #41683 > │ method4(v254, v255, v210) │
00:08:18 verbose #41684 > │ let v256 : Async<unit> option = None │
00:08:18 verbose #41685 > │ let v257 : bool = true in let mutable _v256 = v256 │
00:08:18 verbose #41686 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41687 > │ let v258 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41688 > │ v258 │
00:08:18 verbose #41689 > │ #endif │
00:08:18 verbose #41690 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41691 > │ let v259 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41692 > │ v259 │
00:08:18 verbose #41693 > │ #endif │
00:08:18 verbose #41694 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41695 > │ let v260 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41696 > │ v260 │
00:08:18 verbose #41697 > │ #endif │
00:08:18 verbose #41698 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41699 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41700 > │ let v261 : (int32 -> Async<unit>) = Async.Sleep │
00:08:18 verbose #41701 > │ let v262 : Async<unit> = v261 2000 │
00:08:18 verbose #41702 > │ v262 │
00:08:18 verbose #41703 > │ #endif │
00:08:18 verbose #41704 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41705 > │ let v263 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41706 > │ v263 │
00:08:18 verbose #41707 > │ #endif │
00:08:18 verbose #41708 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41709 > │ let v264 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #41710 > │ v264 │
00:08:18 verbose #41711 > │ #endif │
00:08:18 verbose #41712 > │ |> fun x -> _v256 <- Some x │
00:08:18 verbose #41713 > │ let v265 : Async<unit> = _v256.Value │
00:08:18 verbose #41714 > │ do! v265 │
00:08:18 verbose #41715 > │ let v266 : US0 = US0_1 │
00:08:18 verbose #41716 > │ let v267 : (unit -> string) = closure16() │
00:08:18 verbose #41717 > │ method4(v266, v267, v210) │
00:08:18 verbose #41718 > │ } │
00:08:18 verbose #41719 > │ |> fun x -> _v238 <- Some x │
00:08:18 verbose #41720 > │ let v268 : Async<unit> = _v238 |> Option.get │
00:08:18 verbose #41721 > │ v268 │
00:08:18 verbose #41722 > │ #endif │
00:08:18 verbose #41723 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41724 > │ let v269 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41725 > │ v269 │
00:08:18 verbose #41726 > │ #endif │
00:08:18 verbose #41727 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41728 > │ let v270 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #41729 > │ v270 │
00:08:18 verbose #41730 > │ #endif │
00:08:18 verbose #41731 > │ |> fun x -> _v233 <- Some x │
00:08:18 verbose #41732 > │ let v271 : Async<unit> = _v233.Value │
00:08:18 verbose #41733 > │ let v272 : Async<Async<unit>> option = None │
00:08:18 verbose #41734 > │ let v273 : bool = true in let mutable _v272 = v272 │
00:08:18 verbose #41735 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41736 > │ let v274 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:18 verbose #41737 > │ v274 │
00:08:18 verbose #41738 > │ #endif │
00:08:18 verbose #41739 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41740 > │ let v275 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:18 verbose #41741 > │ v275 │
00:08:18 verbose #41742 > │ #endif │
00:08:18 verbose #41743 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41744 > │ let v276 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:18 verbose #41745 > │ v276 │
00:08:18 verbose #41746 > │ #endif │
00:08:18 verbose #41747 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41748 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41749 > │ let v277 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:08:18 verbose #41750 > │ let v278 : Async<Async<unit>> = v277 v271 │
00:08:18 verbose #41751 > │ v278 │
00:08:18 verbose #41752 > │ #endif │
00:08:18 verbose #41753 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41754 > │ let v279 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:08:18 verbose #41755 > │ v279 │
00:08:18 verbose #41756 > │ #endif │
00:08:18 verbose #41757 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41758 > │ let v280 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:08:18 verbose #41759 > │ v280 │
00:08:18 verbose #41760 > │ #endif │
00:08:18 verbose #41761 > │ |> fun x -> _v272 <- Some x │
00:08:18 verbose #41762 > │ let v281 : Async<Async<unit>> = _v272.Value │
00:08:18 verbose #41763 > │ let! v281 = v281 │
00:08:18 verbose #41764 > │ let v282 : Async<unit> = v281 │
00:08:18 verbose #41765 > │ let v283 : US0 = US0_1 │
00:08:18 verbose #41766 > │ let v284 : (unit -> string) = closure17() │
00:08:18 verbose #41767 > │ method4(v283, v284, v210) │
00:08:18 verbose #41768 > │ let v285 : Async<unit> option = None │
00:08:18 verbose #41769 > │ let v286 : bool = true in let mutable _v285 = v285 │
00:08:18 verbose #41770 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41771 > │ let v287 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41772 > │ v287 │
00:08:18 verbose #41773 > │ #endif │
00:08:18 verbose #41774 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41775 > │ let v288 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41776 > │ v288 │
00:08:18 verbose #41777 > │ #endif │
00:08:18 verbose #41778 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41779 > │ let v289 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41780 > │ v289 │
00:08:18 verbose #41781 > │ #endif │
00:08:18 verbose #41782 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41783 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41784 > │ let v290 : (int32 -> Async<unit>) = Async.Sleep │
00:08:18 verbose #41785 > │ let v291 : Async<unit> = v290 1 │
00:08:18 verbose #41786 > │ v291 │
00:08:18 verbose #41787 > │ #endif │
00:08:18 verbose #41788 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41789 > │ let v292 : Async<unit> = null |> unbox<Async<unit>> │
00:08:18 verbose #41790 > │ v292 │
00:08:18 verbose #41791 > │ #endif │
00:08:18 verbose #41792 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41793 > │ let v293 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:18 verbose #41794 > │ v293 │
00:08:18 verbose #41795 > │ #endif │
00:08:18 verbose #41796 > │ |> fun x -> _v285 <- Some x │
00:08:18 verbose #41797 > │ let v294 : Async<unit> = _v285.Value │
00:08:18 verbose #41798 > │ do! v294 │
00:08:18 verbose #41799 > │ let v295 : US0 = US0_1 │
00:08:18 verbose #41800 > │ let v296 : (unit -> string) = closure18() │
00:08:18 verbose #41801 > │ method4(v295, v296, v210) │
00:08:18 verbose #41802 > │ let v297 : Async<int64> option = None │
00:08:18 verbose #41803 > │ let v298 : bool = true in let mutable _v297 = v297 │
00:08:18 verbose #41804 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41805 > │ let v299 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41806 > │ v299 │
00:08:18 verbose #41807 > │ #endif │
00:08:18 verbose #41808 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41809 > │ let v300 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41810 > │ v300 │
00:08:18 verbose #41811 > │ #endif │
00:08:18 verbose #41812 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41813 > │ let v301 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41814 > │ v301 │
00:08:18 verbose #41815 > │ #endif │
00:08:18 verbose #41816 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41817 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41818 > │ let v302 : int64 = 0L │
00:08:18 verbose #41819 > │ let v303 : Async<int64> = method15(v201, v170, v302) │
00:08:18 verbose #41820 > │ v303 │
00:08:18 verbose #41821 > │ #endif │
00:08:18 verbose #41822 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41823 > │ let v304 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41824 > │ v304 │
00:08:18 verbose #41825 > │ #endif │
00:08:18 verbose #41826 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41827 > │ let v305 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:18 verbose #41828 > │ v305 │
00:08:18 verbose #41829 > │ #endif │
00:08:18 verbose #41830 > │ |> fun x -> _v297 <- Some x │
00:08:18 verbose #41831 > │ let v306 : Async<int64> = _v297.Value │
00:08:18 verbose #41832 > │ let! v306 = v306 │
00:08:18 verbose #41833 > │ let v307 : int64 = v306 │
00:08:18 verbose #41834 > │ let v308 : US0 = US0_1 │
00:08:18 verbose #41835 > │ let v309 : (unit -> string) = closure21() │
00:08:18 verbose #41836 > │ method4(v308, v309, v210) │
00:08:18 verbose #41837 > │ let v310 : Async<int64> option = None │
00:08:18 verbose #41838 > │ let v311 : bool = true in let mutable _v310 = v310 │
00:08:18 verbose #41839 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41840 > │ let v312 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41841 > │ v312 │
00:08:18 verbose #41842 > │ #endif │
00:08:18 verbose #41843 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41844 > │ let v313 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41845 > │ v313 │
00:08:18 verbose #41846 > │ #endif │
00:08:18 verbose #41847 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41848 > │ let v314 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41849 > │ v314 │
00:08:18 verbose #41850 > │ #endif │
00:08:18 verbose #41851 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41852 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41853 > │ let v315 : int64 = 0L │
00:08:18 verbose #41854 > │ let v316 : Async<int64> = method16(v201, v315) │
00:08:18 verbose #41855 > │ v316 │
00:08:18 verbose #41856 > │ #endif │
00:08:18 verbose #41857 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41858 > │ let v317 : Async<int64> = null |> unbox<Async<int64>> │
00:08:18 verbose #41859 > │ v317 │
00:08:18 verbose #41860 > │ #endif │
00:08:18 verbose #41861 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41862 > │ let v318 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:18 verbose #41863 > │ v318 │
00:08:18 verbose #41864 > │ #endif │
00:08:18 verbose #41865 > │ |> fun x -> _v310 <- Some x │
00:08:18 verbose #41866 > │ let v319 : Async<int64> = _v310.Value │
00:08:18 verbose #41867 > │ let! v319 = v319 │
00:08:18 verbose #41868 > │ let v320 : int64 = v319 │
00:08:18 verbose #41869 > │ let v321 : US0 = US0_1 │
00:08:18 verbose #41870 > │ let v322 : (unit -> string) = closure24() │
00:08:18 verbose #41871 > │ method4(v321, v322, v210) │
00:08:18 verbose #41872 > │ let v323 : Async<string> option = None │
00:08:18 verbose #41873 > │ let v324 : bool = true in let mutable _v323 = v323 │
00:08:18 verbose #41874 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41875 > │ let v325 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41876 > │ v325 │
00:08:18 verbose #41877 > │ #endif │
00:08:18 verbose #41878 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41879 > │ let v326 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41880 > │ v326 │
00:08:18 verbose #41881 > │ #endif │
00:08:18 verbose #41882 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41883 > │ let v327 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41884 > │ v327 │
00:08:18 verbose #41885 > │ #endif │
00:08:18 verbose #41886 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41887 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41888 > │ let v328 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:18 verbose #41889 > │ System.IO.File.ReadAllTextAsync │
00:08:18 verbose #41890 > │ let v329 : System.Threading.Tasks.Task<string> = v328 v201 │
00:08:18 verbose #41891 > │ let v330 : Async<string> option = None │
00:08:18 verbose #41892 > │ let v331 : bool = true in let mutable _v330 = v330 │
00:08:18 verbose #41893 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41894 > │ let v332 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41895 > │ v332 │
00:08:18 verbose #41896 > │ #endif │
00:08:18 verbose #41897 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41898 > │ let v333 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41899 > │ v333 │
00:08:18 verbose #41900 > │ #endif │
00:08:18 verbose #41901 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41902 > │ let v334 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41903 > │ v334 │
00:08:18 verbose #41904 > │ #endif │
00:08:18 verbose #41905 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41906 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41907 > │ let v335 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:18 verbose #41908 > │ Async.AwaitTask │
00:08:18 verbose #41909 > │ let v336 : Async<string> = v335 v329 │
00:08:18 verbose #41910 > │ v336 │
00:08:18 verbose #41911 > │ #endif │
00:08:18 verbose #41912 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41913 > │ let v337 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41914 > │ v337 │
00:08:18 verbose #41915 > │ #endif │
00:08:18 verbose #41916 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41917 > │ let v338 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:18 verbose #41918 > │ v338 │
00:08:18 verbose #41919 > │ #endif │
00:08:18 verbose #41920 > │ |> fun x -> _v330 <- Some x │
00:08:18 verbose #41921 > │ let v339 : Async<string> = _v330.Value │
00:08:18 verbose #41922 > │ v339 │
00:08:18 verbose #41923 > │ #endif │
00:08:18 verbose #41924 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41925 > │ let v340 : Async<string> = null |> unbox<Async<string>> │
00:08:18 verbose #41926 > │ v340 │
00:08:18 verbose #41927 > │ #endif │
00:08:18 verbose #41928 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41929 > │ let v341 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:18 verbose #41930 > │ v341 │
00:08:18 verbose #41931 > │ #endif │
00:08:18 verbose #41932 > │ |> fun x -> _v323 <- Some x │
00:08:18 verbose #41933 > │ let v342 : Async<string> = _v323.Value │
00:08:18 verbose #41934 > │ let! v342 = v342 │
00:08:18 verbose #41935 > │ let v343 : string = v342 │
00:08:18 verbose #41936 > │ let v344 : US0 = US0_1 │
00:08:18 verbose #41937 > │ let v345 : (unit -> string) = closure25() │
00:08:18 verbose #41938 > │ method4(v344, v345, v210) │
00:08:18 verbose #41939 > │ do! v282 │
00:08:18 verbose #41940 > │ let v346 : US0 = US0_1 │
00:08:18 verbose #41941 > │ let v347 : (unit -> string) = closure26() │
00:08:18 verbose #41942 > │ method4(v346, v347, v210) │
00:08:18 verbose #41943 > │ return struct (v307, v320, v343) │
00:08:18 verbose #41944 > │ } │
00:08:18 verbose #41945 > │ |> fun x -> _v207 <- Some x │
00:08:18 verbose #41946 > │ let v348 : Async<struct (int64 * int64 * string)> = _v207 |> Option.get │
00:08:18 verbose #41947 > │ v348 │
00:08:18 verbose #41948 > │ #endif │
00:08:18 verbose #41949 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #41950 > │ let v349 : Async<struct (int64 * int64 * string)> = null |> │
00:08:18 verbose #41951 > │ unbox<Async<struct (int64 * int64 * string)>> │
00:08:18 verbose #41952 > │ v349 │
00:08:18 verbose #41953 > │ #endif │
00:08:18 verbose #41954 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #41955 > │ let v350 : Async<struct (int64 * int64 * string)> = │
00:08:18 verbose #41956 > │ Unchecked.defaultof<Async<struct (int64 * int64 * string)>> │
00:08:18 verbose #41957 > │ v350 │
00:08:18 verbose #41958 > │ #endif │
00:08:18 verbose #41959 > │ |> fun x -> _v202 <- Some x │
00:08:18 verbose #41960 > │ let v351 : Async<struct (int64 * int64 * string)> = _v202.Value │
00:08:18 verbose #41961 > │ let v352 : Async<US3> option = None │
00:08:18 verbose #41962 > │ let v353 : bool = true in let mutable _v352 = v352 │
00:08:18 verbose #41963 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41964 > │ let v354 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #41965 > │ v354 │
00:08:18 verbose #41966 > │ #endif │
00:08:18 verbose #41967 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41968 > │ let v355 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #41969 > │ v355 │
00:08:18 verbose #41970 > │ #endif │
00:08:18 verbose #41971 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41972 > │ let v356 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #41973 > │ v356 │
00:08:18 verbose #41974 > │ #endif │
00:08:18 verbose #41975 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41976 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41977 > │ let v357 : Async<US3> option = None │
00:08:18 verbose #41978 > │ let v358 : bool = true in let mutable _v357 = v357 │
00:08:18 verbose #41979 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41980 > │ let v359 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #41981 > │ v359 │
00:08:18 verbose #41982 > │ #endif │
00:08:18 verbose #41983 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #41984 > │ let v360 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #41985 > │ v360 │
00:08:18 verbose #41986 > │ #endif │
00:08:18 verbose #41987 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #41988 > │ let v361 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #41989 > │ v361 │
00:08:18 verbose #41990 > │ #endif │
00:08:18 verbose #41991 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #41992 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #41993 > │ let v362 : Async<US3> option = None │
00:08:18 verbose #41994 > │ let mutable _v362 = v362 │
00:08:18 verbose #41995 > │ async { │
00:08:18 verbose #41996 > │ let v363 : Async<Async<struct (int64 * int64 * string)>> option = None │
00:08:18 verbose #41997 > │ let v364 : bool = true in let mutable _v363 = v363 │
00:08:18 verbose #41998 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #41999 > │ let v365 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:08:18 verbose #42000 > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:08:18 verbose #42001 > │ v365 │
00:08:18 verbose #42002 > │ #endif │
00:08:18 verbose #42003 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42004 > │ let v366 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:08:18 verbose #42005 > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:08:18 verbose #42006 > │ v366 │
00:08:18 verbose #42007 > │ #endif │
00:08:18 verbose #42008 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42009 > │ let v367 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:08:18 verbose #42010 > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:08:18 verbose #42011 > │ v367 │
00:08:18 verbose #42012 > │ #endif │
00:08:18 verbose #42013 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42014 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42015 > │ let v368 : Async<Async<struct (int64 * int64 * string)>> = │
00:08:18 verbose #42016 > │ Async.StartChild (v351, 3000) │
00:08:18 verbose #42017 > │ v368 │
00:08:18 verbose #42018 > │ #endif │
00:08:18 verbose #42019 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42020 > │ let v369 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:08:18 verbose #42021 > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:08:18 verbose #42022 > │ v369 │
00:08:18 verbose #42023 > │ #endif │
00:08:18 verbose #42024 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42025 > │ let v370 : Async<Async<struct (int64 * int64 * string)>> = │
00:08:18 verbose #42026 > │ Unchecked.defaultof<Async<Async<struct (int64 * int64 * string)>>> │
00:08:18 verbose #42027 > │ v370 │
00:08:18 verbose #42028 > │ #endif │
00:08:18 verbose #42029 > │ |> fun x -> _v363 <- Some x │
00:08:18 verbose #42030 > │ let v371 : Async<Async<struct (int64 * int64 * string)>> = _v363.Value │
00:08:18 verbose #42031 > │ let! v371 = v371 │
00:08:18 verbose #42032 > │ let v372 : Async<struct (int64 * int64 * string)> = v371 │
00:08:18 verbose #42033 > │ let v373 : Async<Choice<struct (int64 * int64 * string), exn>> option = │
00:08:18 verbose #42034 > │ None │
00:08:18 verbose #42035 > │ let v374 : bool = true in let mutable _v373 = v373 │
00:08:18 verbose #42036 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42037 > │ let v375 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:08:18 verbose #42038 > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:08:18 verbose #42039 > │ v375 │
00:08:18 verbose #42040 > │ #endif │
00:08:18 verbose #42041 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42042 > │ let v376 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:08:18 verbose #42043 > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:08:18 verbose #42044 > │ v376 │
00:08:18 verbose #42045 > │ #endif │
00:08:18 verbose #42046 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42047 > │ let v377 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:08:18 verbose #42048 > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:08:18 verbose #42049 > │ v377 │
00:08:18 verbose #42050 > │ #endif │
00:08:18 verbose #42051 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42052 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42053 > │ let v378 : (Async<struct (int64 * int64 * string)> -> │
00:08:18 verbose #42054 > │ Async<Choice<struct (int64 * int64 * string), exn>>) = Async.Catch │
00:08:18 verbose #42055 > │ let v379 : Async<Choice<struct (int64 * int64 * string), exn>> = v378 │
00:08:18 verbose #42056 > │ v372 │
00:08:18 verbose #42057 > │ v379 │
00:08:18 verbose #42058 > │ #endif │
00:08:18 verbose #42059 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42060 > │ let v380 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:08:18 verbose #42061 > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:08:18 verbose #42062 > │ v380 │
00:08:18 verbose #42063 > │ #endif │
00:08:18 verbose #42064 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42065 > │ let v381 : Async<Choice<struct (int64 * int64 * string), exn>> = │
00:08:18 verbose #42066 > │ Unchecked.defaultof<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:08:18 verbose #42067 > │ v381 │
00:08:18 verbose #42068 > │ #endif │
00:08:18 verbose #42069 > │ |> fun x -> _v373 <- Some x │
00:08:18 verbose #42070 > │ let v382 : Async<Choice<struct (int64 * int64 * string), exn>> = │
00:08:18 verbose #42071 > │ _v373.Value │
00:08:18 verbose #42072 > │ let v383 : Async<US4> option = None │
00:08:18 verbose #42073 > │ let v384 : bool = true in let mutable _v383 = v383 │
00:08:18 verbose #42074 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42075 > │ let v385 : Async<US4> = null |> unbox<Async<US4>> │
00:08:18 verbose #42076 > │ v385 │
00:08:18 verbose #42077 > │ #endif │
00:08:18 verbose #42078 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42079 > │ let v386 : Async<US4> = null |> unbox<Async<US4>> │
00:08:18 verbose #42080 > │ v386 │
00:08:18 verbose #42081 > │ #endif │
00:08:18 verbose #42082 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42083 > │ let v387 : Async<US4> = null |> unbox<Async<US4>> │
00:08:18 verbose #42084 > │ v387 │
00:08:18 verbose #42085 > │ #endif │
00:08:18 verbose #42086 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42087 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42088 > │ let v388 : Async<US4> option = None │
00:08:18 verbose #42089 > │ let mutable _v388 = v388 │
00:08:18 verbose #42090 > │ async { │
00:08:18 verbose #42091 > │ let! v382 = v382 │
00:08:18 verbose #42092 > │ let v389 : Choice<struct (int64 * int64 * string), exn> = v382 │
00:08:18 verbose #42093 > │ let v390 : US4 option = None │
00:08:18 verbose #42094 > │ let v391 : bool = true in let mutable _v390 = v390 │
00:08:18 verbose #42095 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42096 > │ let v392 : US4 = null |> unbox<US4> │
00:08:18 verbose #42097 > │ v392 │
00:08:18 verbose #42098 > │ #endif │
00:08:18 verbose #42099 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42100 > │ let v393 : US4 = null |> unbox<US4> │
00:08:18 verbose #42101 > │ v393 │
00:08:18 verbose #42102 > │ #endif │
00:08:18 verbose #42103 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42104 > │ let v394 : US4 = null |> unbox<US4> │
00:08:18 verbose #42105 > │ v394 │
00:08:18 verbose #42106 > │ #endif │
00:08:18 verbose #42107 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42108 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42109 > │ let v395 : (struct (int64 * int64 * string) -> US4) = closure27() │
00:08:18 verbose #42110 > │ let v396 : (exn -> US4) = closure28() │
00:08:18 verbose #42111 > │ let v397 : US4 = match v389 with Choice1Of2 x -> v395 x | Choice2Of2 x │
00:08:18 verbose #42112 > │ -> v396 x │
00:08:18 verbose #42113 > │ v397 │
00:08:18 verbose #42114 > │ #endif │
00:08:18 verbose #42115 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42116 > │ let v398 : US4 = null |> unbox<US4> │
00:08:18 verbose #42117 > │ v398 │
00:08:18 verbose #42118 > │ #endif │
00:08:18 verbose #42119 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42120 > │ let v399 : US4 = Unchecked.defaultof<US4> │
00:08:18 verbose #42121 > │ v399 │
00:08:18 verbose #42122 > │ #endif │
00:08:18 verbose #42123 > │ |> fun x -> _v390 <- Some x │
00:08:18 verbose #42124 > │ let v400 : US4 = _v390.Value │
00:08:18 verbose #42125 > │ return v400 │
00:08:18 verbose #42126 > │ } │
00:08:18 verbose #42127 > │ |> fun x -> _v388 <- Some x │
00:08:18 verbose #42128 > │ let v401 : Async<US4> = _v388 |> Option.get │
00:08:18 verbose #42129 > │ v401 │
00:08:18 verbose #42130 > │ #endif │
00:08:18 verbose #42131 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42132 > │ let v402 : Async<US4> = null |> unbox<Async<US4>> │
00:08:18 verbose #42133 > │ v402 │
00:08:18 verbose #42134 > │ #endif │
00:08:18 verbose #42135 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42136 > │ let v403 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:08:18 verbose #42137 > │ v403 │
00:08:18 verbose #42138 > │ #endif │
00:08:18 verbose #42139 > │ |> fun x -> _v383 <- Some x │
00:08:18 verbose #42140 > │ let v404 : Async<US4> = _v383.Value │
00:08:18 verbose #42141 > │ let v405 : Async<US5> option = None │
00:08:18 verbose #42142 > │ let v406 : bool = true in let mutable _v405 = v405 │
00:08:18 verbose #42143 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42144 > │ let v407 : Async<US5> = null |> unbox<Async<US5>> │
00:08:18 verbose #42145 > │ v407 │
00:08:18 verbose #42146 > │ #endif │
00:08:18 verbose #42147 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42148 > │ let v408 : Async<US5> = null |> unbox<Async<US5>> │
00:08:18 verbose #42149 > │ v408 │
00:08:18 verbose #42150 > │ #endif │
00:08:18 verbose #42151 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42152 > │ let v409 : Async<US5> = null |> unbox<Async<US5>> │
00:08:18 verbose #42153 > │ v409 │
00:08:18 verbose #42154 > │ #endif │
00:08:18 verbose #42155 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42156 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42157 > │ let v410 : Async<US5> option = None │
00:08:18 verbose #42158 > │ let mutable _v410 = v410 │
00:08:18 verbose #42159 > │ async { │
00:08:18 verbose #42160 > │ let! v404 = v404 │
00:08:18 verbose #42161 > │ let v411 : US4 = v404 │
00:08:18 verbose #42162 > │ let v419 : US5 = │
00:08:18 verbose #42163 > │ match v411 with │
00:08:18 verbose #42164 > │ | US4_0(v412, v413, v414) -> (* Choice1Of2 *) │
00:08:18 verbose #42165 > │ US5_0(v412, v413, v414) │
00:08:18 verbose #42166 > │ | US4_1(v416) -> (* Choice2Of2 *) │
00:08:18 verbose #42167 > │ US5_1(v416) │
00:08:18 verbose #42168 > │ return v419 │
00:08:18 verbose #42169 > │ } │
00:08:18 verbose #42170 > │ |> fun x -> _v410 <- Some x │
00:08:18 verbose #42171 > │ let v420 : Async<US5> = _v410 |> Option.get │
00:08:18 verbose #42172 > │ v420 │
00:08:18 verbose #42173 > │ #endif │
00:08:18 verbose #42174 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42175 > │ let v421 : Async<US5> = null |> unbox<Async<US5>> │
00:08:18 verbose #42176 > │ v421 │
00:08:18 verbose #42177 > │ #endif │
00:08:18 verbose #42178 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42179 > │ let v422 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:08:18 verbose #42180 > │ v422 │
00:08:18 verbose #42181 > │ #endif │
00:08:18 verbose #42182 > │ |> fun x -> _v405 <- Some x │
00:08:18 verbose #42183 > │ let v423 : Async<US5> = _v405.Value │
00:08:18 verbose #42184 > │ let v424 : Async<US3> option = None │
00:08:18 verbose #42185 > │ let v425 : bool = true in let mutable _v424 = v424 │
00:08:18 verbose #42186 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42187 > │ let v426 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #42188 > │ v426 │
00:08:18 verbose #42189 > │ #endif │
00:08:18 verbose #42190 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42191 > │ let v427 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #42192 > │ v427 │
00:08:18 verbose #42193 > │ #endif │
00:08:18 verbose #42194 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42195 > │ let v428 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #42196 > │ v428 │
00:08:18 verbose #42197 > │ #endif │
00:08:18 verbose #42198 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42199 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42200 > │ let v429 : Async<US3> option = None │
00:08:18 verbose #42201 > │ let mutable _v429 = v429 │
00:08:18 verbose #42202 > │ async { │
00:08:18 verbose #42203 > │ let! v423 = v423 │
00:08:18 verbose #42204 > │ let v430 : US5 = v423 │
00:08:18 verbose #42205 > │ let v458 : US3 = │
00:08:18 verbose #42206 > │ match v430 with │
00:08:18 verbose #42207 > │ | US5_1(v435) -> (* Error *) │
00:08:18 verbose #42208 > │ let v436 : string = $"%A{v435}" │
00:08:18 verbose #42209 > │ let v437 : string = "System.TimeoutException" │
00:08:18 verbose #42210 > │ let v438 : bool = v436.Contains v437 │
00:08:18 verbose #42211 > │ if v438 then │
00:08:18 verbose #42212 > │ let v439 : US0 = US0_1 │
00:08:18 verbose #42213 > │ let v440 : (unit -> string) = closure29() │
00:08:18 verbose #42214 > │ let v441 : (unit -> string) = closure30() │
00:08:18 verbose #42215 > │ method4(v439, v440, v441) │
00:08:18 verbose #42216 > │ US3_1 │
00:08:18 verbose #42217 > │ else │
00:08:18 verbose #42218 > │ let v443 : string option = None │
00:08:18 verbose #42219 > │ let v444 : bool = true in let mutable _v443 = v443 │
00:08:18 verbose #42220 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42221 > │ let v445 : string = $"%A{v435}" │
00:08:18 verbose #42222 > │ v445 │
00:08:18 verbose #42223 > │ #endif │
00:08:18 verbose #42224 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42225 > │ let v446 : string = $"%A{v435}" │
00:08:18 verbose #42226 > │ v446 │
00:08:18 verbose #42227 > │ #endif │
00:08:18 verbose #42228 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42229 > │ let v447 : string = $"%A{v435}" │
00:08:18 verbose #42230 > │ v447 │
00:08:18 verbose #42231 > │ #endif │
00:08:18 verbose #42232 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42233 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42234 > │ let v448 : string = $"{v435.GetType ()}: {v435.Message}" │
00:08:18 verbose #42235 > │ v448 │
00:08:18 verbose #42236 > │ #endif │
00:08:18 verbose #42237 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42238 > │ let v449 : string = $"%A{v435}" │
00:08:18 verbose #42239 > │ v449 │
00:08:18 verbose #42240 > │ #endif │
00:08:18 verbose #42241 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #42242 > │ FABLE_COMPILER_DART │
00:08:18 verbose #42243 > │ let v450 : string = Unchecked.defaultof<string> │
00:08:18 verbose #42244 > │ v450 │
00:08:18 verbose #42245 > │ #endif │
00:08:18 verbose #42246 > │ |> fun x -> _v443 <- Some x │
00:08:18 verbose #42247 > │ let v451 : string = _v443.Value │
00:08:18 verbose #42248 > │ let v452 : US0 = US0_4 │
00:08:18 verbose #42249 > │ let v453 : (unit -> string) = closure31(v451) │
00:08:18 verbose #42250 > │ let v454 : (unit -> string) = closure30() │
00:08:18 verbose #42251 > │ method4(v452, v453, v454) │
00:08:18 verbose #42252 > │ US3_1 │
00:08:18 verbose #42253 > │ | US5_0(v431, v432, v433) -> (* Ok *) │
00:08:18 verbose #42254 > │ US3_0(v431, v432, v433) │
00:08:18 verbose #42255 > │ return v458 │
00:08:18 verbose #42256 > │ } │
00:08:18 verbose #42257 > │ |> fun x -> _v429 <- Some x │
00:08:18 verbose #42258 > │ let v459 : Async<US3> = _v429 |> Option.get │
00:08:18 verbose #42259 > │ v459 │
00:08:18 verbose #42260 > │ #endif │
00:08:18 verbose #42261 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42262 > │ let v460 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #42263 > │ v460 │
00:08:18 verbose #42264 > │ #endif │
00:08:18 verbose #42265 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42266 > │ let v461 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:18 verbose #42267 > │ v461 │
00:08:18 verbose #42268 > │ #endif │
00:08:18 verbose #42269 > │ |> fun x -> _v424 <- Some x │
00:08:18 verbose #42270 > │ let v462 : Async<US3> = _v424.Value │
00:08:18 verbose #42271 > │ return! v462 │
00:08:18 verbose #42272 > │ } │
00:08:18 verbose #42273 > │ |> fun x -> _v362 <- Some x │
00:08:18 verbose #42274 > │ let v463 : Async<US3> = _v362 |> Option.get │
00:08:18 verbose #42275 > │ v463 │
00:08:18 verbose #42276 > │ #endif │
00:08:18 verbose #42277 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42278 > │ let v464 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #42279 > │ v464 │
00:08:18 verbose #42280 > │ #endif │
00:08:18 verbose #42281 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42282 > │ let v465 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:18 verbose #42283 > │ v465 │
00:08:18 verbose #42284 > │ #endif │
00:08:18 verbose #42285 > │ |> fun x -> _v357 <- Some x │
00:08:18 verbose #42286 > │ let v466 : Async<US3> = _v357.Value │
00:08:18 verbose #42287 > │ v466 │
00:08:18 verbose #42288 > │ #endif │
00:08:18 verbose #42289 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42290 > │ let v467 : Async<US3> = null |> unbox<Async<US3>> │
00:08:18 verbose #42291 > │ v467 │
00:08:18 verbose #42292 > │ #endif │
00:08:18 verbose #42293 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42294 > │ let v468 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:08:18 verbose #42295 > │ v468 │
00:08:18 verbose #42296 > │ #endif │
00:08:18 verbose #42297 > │ |> fun x -> _v352 <- Some x │
00:08:18 verbose #42298 > │ let v469 : Async<US3> = _v352.Value │
00:08:18 verbose #42299 > │ let v470 : US3 option = None │
00:08:18 verbose #42300 > │ let v471 : bool = true in let mutable _v470 = v470 │
00:08:18 verbose #42301 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42302 > │ let v472 : US3 = null |> unbox<US3> │
00:08:18 verbose #42303 > │ v472 │
00:08:18 verbose #42304 > │ #endif │
00:08:18 verbose #42305 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42306 > │ let v473 : US3 = null |> unbox<US3> │
00:08:18 verbose #42307 > │ v473 │
00:08:18 verbose #42308 > │ #endif │
00:08:18 verbose #42309 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42310 > │ let v474 : US3 = null |> unbox<US3> │
00:08:18 verbose #42311 > │ v474 │
00:08:18 verbose #42312 > │ #endif │
00:08:18 verbose #42313 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42314 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42315 > │ let v475 : (Async<US3> -> US3) = Async.RunSynchronously │
00:08:18 verbose #42316 > │ let v476 : US3 = v475 v469 │
00:08:18 verbose #42317 > │ v476 │
00:08:18 verbose #42318 > │ #endif │
00:08:18 verbose #42319 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42320 > │ let v477 : US3 = null |> unbox<US3> │
00:08:18 verbose #42321 > │ v477 │
00:08:18 verbose #42322 > │ #endif │
00:08:18 verbose #42323 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:18 verbose #42324 > │ let v478 : US3 = Unchecked.defaultof<US3> │
00:08:18 verbose #42325 > │ v478 │
00:08:18 verbose #42326 > │ #endif │
00:08:18 verbose #42327 > │ |> fun x -> _v470 <- Some x │
00:08:18 verbose #42328 > │ let v479 : US3 = _v470.Value │
00:08:18 verbose #42329 > │ let v566 : bool = │
00:08:18 verbose #42330 > │ match v479 with │
00:08:18 verbose #42331 > │ | US3_0(v480, v481, v482) -> (* Some *) │
00:08:18 verbose #42332 > │ let v483 : bool option = None │
00:08:18 verbose #42333 > │ let v484 : bool = true in let mutable _v483 = v483 │
00:08:18 verbose #42334 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42335 > │ let v485 : bool = null |> unbox<bool> │
00:08:18 verbose #42336 > │ v485 │
00:08:18 verbose #42337 > │ #endif │
00:08:18 verbose #42338 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42339 > │ let v486 : bool = null |> unbox<bool> │
00:08:18 verbose #42340 > │ v486 │
00:08:18 verbose #42341 > │ #endif │
00:08:18 verbose #42342 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42343 > │ let v487 : bool = null |> unbox<bool> │
00:08:18 verbose #42344 > │ v487 │
00:08:18 verbose #42345 > │ #endif │
00:08:18 verbose #42346 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42347 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42348 > │ let v488 : System.Runtime.InteropServices.OSPlatform = │
00:08:18 verbose #42349 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:18 verbose #42350 > │ let v489 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:18 verbose #42351 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:18 verbose #42352 > │ let v490 : bool = v489 v488 │
00:08:18 verbose #42353 > │ v490 │
00:08:18 verbose #42354 > │ #endif │
00:08:18 verbose #42355 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42356 > │ let v491 : bool = null |> unbox<bool> │
00:08:18 verbose #42357 > │ v491 │
00:08:18 verbose #42358 > │ #endif │
00:08:18 verbose #42359 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #42360 > │ FABLE_COMPILER_DART │
00:08:18 verbose #42361 > │ let v492 : bool = Unchecked.defaultof<bool> │
00:08:18 verbose #42362 > │ v492 │
00:08:18 verbose #42363 > │ #endif │
00:08:18 verbose #42364 > │ |> fun x -> _v483 <- Some x │
00:08:18 verbose #42365 > │ let v493 : bool = _v483.Value │
00:08:18 verbose #42366 > │ let v494 : int64 = │
00:08:18 verbose #42367 > │ if v493 then │
00:08:18 verbose #42368 > │ 50L │
00:08:18 verbose #42369 > │ else │
00:08:18 verbose #42370 > │ 0L │
00:08:18 verbose #42371 > │ let v495 : bool option = None │
00:08:18 verbose #42372 > │ let v496 : bool = true in let mutable _v495 = v495 │
00:08:18 verbose #42373 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42374 > │ let v497 : bool = null |> unbox<bool> │
00:08:18 verbose #42375 > │ v497 │
00:08:18 verbose #42376 > │ #endif │
00:08:18 verbose #42377 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42378 > │ let v498 : bool = null |> unbox<bool> │
00:08:18 verbose #42379 > │ v498 │
00:08:18 verbose #42380 > │ #endif │
00:08:18 verbose #42381 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42382 > │ let v499 : bool = null |> unbox<bool> │
00:08:18 verbose #42383 > │ v499 │
00:08:18 verbose #42384 > │ #endif │
00:08:18 verbose #42385 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42386 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42387 > │ let v500 : System.Runtime.InteropServices.OSPlatform = │
00:08:18 verbose #42388 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:18 verbose #42389 > │ let v501 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:18 verbose #42390 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:18 verbose #42391 > │ let v502 : bool = v501 v500 │
00:08:18 verbose #42392 > │ v502 │
00:08:18 verbose #42393 > │ #endif │
00:08:18 verbose #42394 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42395 > │ let v503 : bool = null |> unbox<bool> │
00:08:18 verbose #42396 > │ v503 │
00:08:18 verbose #42397 > │ #endif │
00:08:18 verbose #42398 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #42399 > │ FABLE_COMPILER_DART │
00:08:18 verbose #42400 > │ let v504 : bool = Unchecked.defaultof<bool> │
00:08:18 verbose #42401 > │ v504 │
00:08:18 verbose #42402 > │ #endif │
00:08:18 verbose #42403 > │ |> fun x -> _v495 <- Some x │
00:08:18 verbose #42404 > │ let v505 : bool = _v495.Value │
00:08:18 verbose #42405 > │ let v506 : int64 = │
00:08:18 verbose #42406 > │ if v505 then │
00:08:18 verbose #42407 > │ 150L │
00:08:18 verbose #42408 > │ else │
00:08:18 verbose #42409 > │ 0L │
00:08:18 verbose #42410 > │ let v507 : string = $"%A{v480}" │
00:08:18 verbose #42411 > │ System.Console.WriteLine v507 │
00:08:18 verbose #42412 > │ let v508 : string = $"%A{v480}" │
00:08:18 verbose #42413 > │ System.Console.WriteLine v508 │
00:08:18 verbose #42414 > │ let v509 : bool = v480 >= v494 │
00:08:18 verbose #42415 > │ let v511 : bool = │
00:08:18 verbose #42416 > │ if v509 then │
00:08:18 verbose #42417 > │ true │
00:08:18 verbose #42418 > │ else │
00:08:18 verbose #42419 > │ method17(v509) │
00:08:18 verbose #42420 > │ let v512 : string = $"__expect / actual: %A{v480} / expected: │
00:08:18 verbose #42421 > │ %A{v494}" │
00:08:18 verbose #42422 > │ let v513 : bool = v511 = false │
00:08:18 verbose #42423 > │ if v513 then │
00:08:18 verbose #42424 > │ failwith<unit> v512 │
00:08:18 verbose #42425 > │ let v514 : string = $"%A{v480}" │
00:08:18 verbose #42426 > │ System.Console.WriteLine v514 │
00:08:18 verbose #42427 > │ let v515 : bool = v480 <= v506 │
00:08:18 verbose #42428 > │ let v517 : bool = │
00:08:18 verbose #42429 > │ if v515 then │
00:08:18 verbose #42430 > │ true │
00:08:18 verbose #42431 > │ else │
00:08:18 verbose #42432 > │ method17(v515) │
00:08:18 verbose #42433 > │ let v518 : string = $"__expect / actual: %A{v480} / expected: │
00:08:18 verbose #42434 > │ %A{v506}" │
00:08:18 verbose #42435 > │ let v519 : bool = v517 = false │
00:08:18 verbose #42436 > │ if v519 then │
00:08:18 verbose #42437 > │ failwith<unit> v518 │
00:08:18 verbose #42438 > │ let v520 : string = $"__expect / actual: %A{v480} / expected: │
00:08:18 verbose #42439 > │ %A{struct (v494, v506)}" │
00:08:18 verbose #42440 > │ let v521 : bool option = None │
00:08:18 verbose #42441 > │ let v522 : bool = true in let mutable _v521 = v521 │
00:08:18 verbose #42442 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42443 > │ let v523 : bool = null |> unbox<bool> │
00:08:18 verbose #42444 > │ v523 │
00:08:18 verbose #42445 > │ #endif │
00:08:18 verbose #42446 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42447 > │ let v524 : bool = null |> unbox<bool> │
00:08:18 verbose #42448 > │ v524 │
00:08:18 verbose #42449 > │ #endif │
00:08:18 verbose #42450 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42451 > │ let v525 : bool = null |> unbox<bool> │
00:08:18 verbose #42452 > │ v525 │
00:08:18 verbose #42453 > │ #endif │
00:08:18 verbose #42454 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42455 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42456 > │ let v526 : System.Runtime.InteropServices.OSPlatform = │
00:08:18 verbose #42457 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:18 verbose #42458 > │ let v527 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:18 verbose #42459 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:18 verbose #42460 > │ let v528 : bool = v527 v526 │
00:08:18 verbose #42461 > │ v528 │
00:08:18 verbose #42462 > │ #endif │
00:08:18 verbose #42463 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42464 > │ let v529 : bool = null |> unbox<bool> │
00:08:18 verbose #42465 > │ v529 │
00:08:18 verbose #42466 > │ #endif │
00:08:18 verbose #42467 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #42468 > │ FABLE_COMPILER_DART │
00:08:18 verbose #42469 > │ let v530 : bool = Unchecked.defaultof<bool> │
00:08:18 verbose #42470 > │ v530 │
00:08:18 verbose #42471 > │ #endif │
00:08:18 verbose #42472 > │ |> fun x -> _v521 <- Some x │
00:08:18 verbose #42473 > │ let v531 : bool = _v521.Value │
00:08:18 verbose #42474 > │ let v532 : int64 = │
00:08:18 verbose #42475 > │ if v531 then │
00:08:18 verbose #42476 > │ 0L │
00:08:18 verbose #42477 > │ else │
00:08:18 verbose #42478 > │ 100L │
00:08:18 verbose #42479 > │ let v533 : bool option = None │
00:08:18 verbose #42480 > │ let v534 : bool = true in let mutable _v533 = v533 │
00:08:18 verbose #42481 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:18 verbose #42482 > │ let v535 : bool = null |> unbox<bool> │
00:08:18 verbose #42483 > │ v535 │
00:08:18 verbose #42484 > │ #endif │
00:08:18 verbose #42485 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:18 verbose #42486 > │ let v536 : bool = null |> unbox<bool> │
00:08:18 verbose #42487 > │ v536 │
00:08:18 verbose #42488 > │ #endif │
00:08:18 verbose #42489 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:18 verbose #42490 > │ let v537 : bool = null |> unbox<bool> │
00:08:18 verbose #42491 > │ v537 │
00:08:18 verbose #42492 > │ #endif │
00:08:18 verbose #42493 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:18 verbose #42494 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:18 verbose #42495 > │ let v538 : System.Runtime.InteropServices.OSPlatform = │
00:08:18 verbose #42496 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:18 verbose #42497 > │ let v539 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:18 verbose #42498 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:18 verbose #42499 > │ let v540 : bool = v539 v538 │
00:08:18 verbose #42500 > │ v540 │
00:08:18 verbose #42501 > │ #endif │
00:08:18 verbose #42502 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:18 verbose #42503 > │ let v541 : bool = null |> unbox<bool> │
00:08:18 verbose #42504 > │ v541 │
00:08:18 verbose #42505 > │ #endif │
00:08:18 verbose #42506 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:18 verbose #42507 > │ FABLE_COMPILER_DART │
00:08:18 verbose #42508 > │ let v542 : bool = Unchecked.defaultof<bool> │
00:08:18 verbose #42509 > │ v542 │
00:08:18 verbose #42510 > │ #endif │
00:08:18 verbose #42511 > │ |> fun x -> _v533 <- Some x │
00:08:18 verbose #42512 > │ let v543 : bool = _v533.Value │
00:08:18 verbose #42513 > │ let v544 : int64 = │
00:08:18 verbose #42514 > │ if v543 then │
00:08:18 verbose #42515 > │ 0L │
00:08:18 verbose #42516 > │ else │
00:08:18 verbose #42517 > │ 200L │
00:08:18 verbose #42518 > │ let v545 : string = $"%A{v481}" │
00:08:18 verbose #42519 > │ System.Console.WriteLine v545 │
00:08:18 verbose #42520 > │ let v546 : string = $"%A{v481}" │
00:08:18 verbose #42521 > │ System.Console.WriteLine v546 │
00:08:18 verbose #42522 > │ let v547 : bool = v481 >= v532 │
00:08:18 verbose #42523 > │ let v549 : bool = │
00:08:18 verbose #42524 > │ if v547 then │
00:08:18 verbose #42525 > │ true │
00:08:18 verbose #42526 > │ else │
00:08:18 verbose #42527 > │ method17(v547) │
00:08:18 verbose #42528 > │ let v550 : string = $"__expect / actual: %A{v481} / expected: │
00:08:18 verbose #42529 > │ %A{v532}" │
00:08:18 verbose #42530 > │ let v551 : bool = v549 = false │
00:08:18 verbose #42531 > │ if v551 then │
00:08:18 verbose #42532 > │ failwith<unit> v550 │
00:08:18 verbose #42533 > │ let v552 : string = $"%A{v481}" │
00:08:18 verbose #42534 > │ System.Console.WriteLine v552 │
00:08:18 verbose #42535 > │ let v553 : bool = v481 <= v544 │
00:08:18 verbose #42536 > │ let v555 : bool = │
00:08:18 verbose #42537 > │ if v553 then │
00:08:18 verbose #42538 > │ true │
00:08:18 verbose #42539 > │ else │
00:08:18 verbose #42540 > │ method17(v553) │
00:08:18 verbose #42541 > │ let v556 : string = $"__expect / actual: %A{v481} / expected: │
00:08:18 verbose #42542 > │ %A{v544}" │
00:08:18 verbose #42543 > │ let v557 : bool = v555 = false │
00:08:18 verbose #42544 > │ if v557 then │
00:08:18 verbose #42545 > │ failwith<unit> v556 │
00:08:18 verbose #42546 > │ let v558 : string = $"__expect / actual: %A{v481} / expected: │
00:08:18 verbose #42547 > │ %A{struct (v532, v544)}" │
00:08:18 verbose #42548 > │ let v559 : string = method18() │
00:08:18 verbose #42549 > │ let v560 : string = $"%A{v482}" │
00:08:18 verbose #42550 > │ System.Console.WriteLine v560 │
00:08:18 verbose #42551 > │ let v561 : bool = v482 = v559 │
00:08:18 verbose #42552 > │ let v563 : bool = │
00:08:18 verbose #42553 > │ if v561 then │
00:08:18 verbose #42554 > │ true │
00:08:18 verbose #42555 > │ else │
00:08:18 verbose #42556 > │ method17(v561) │
00:08:18 verbose #42557 > │ let v564 : string = $"__expect / actual: %A{v482} / expected: │
00:08:18 verbose #42558 > │ %A{v559}" │
00:08:18 verbose #42559 > │ let v565 : bool = v563 = false │
00:08:18 verbose #42560 > │ if v565 then │
00:08:18 verbose #42561 > │ failwith<unit> v564 │
00:08:18 verbose #42562 > │ true │
00:08:18 verbose #42563 > │ | _ -> │
00:08:18 verbose #42564 > │ false │
00:08:18 verbose #42565 > │ let v567 : string = $"%A{v566}" │
00:08:18 verbose #42566 > │ System.Console.WriteLine v567 │
00:08:18 verbose #42567 > │ let v569 : bool = │
00:08:18 verbose #42568 > │ if v566 then │
00:08:18 verbose #42569 > │ true │
00:08:18 verbose #42570 > │ else │
00:08:18 verbose #42571 > │ method17(v566) │
00:08:18 verbose #42572 > │ let v570 : string = $"__expect / actual: %A{v566} / expected: %A{true}" │
00:08:18 verbose #42573 > │ let v571 : bool = v569 = false │
00:08:18 verbose #42574 > │ if v571 then │
00:08:18 verbose #42575 > │ failwith<unit> v570 │
00:08:18 verbose #42576 > │ method0() │
00:08:18 verbose #42577 > │ │
00:08:18 verbose #42578 > │ 00:00:00 debug #1 1 │
00:08:18 verbose #42579 > │ 00:00:00 debug #2 2 │
00:08:18 verbose #42580 > │ 00:00:00 debug #3 3 │
00:08:18 verbose #42581 > │ 00:00:00 debug #4 _1 │
00:08:18 verbose #42582 > │ 00:00:00 debug #5 _2 │
00:08:18 verbose #42583 > │ 00:00:00 debug #6 4 │
00:08:18 verbose #42584 > │ 00:00:00 warning #7 move_file_async / old_path: test.txt / new_path: │
00:08:18 verbose #42585 > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:08:18 verbose #42586 > │ because it is being used by another process. │
00:08:18 verbose #42587 > │ 00:00:01 warning #8 move_file_async / old_path: test.txt / new_path: │
00:08:18 verbose #42588 > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:08:18 verbose #42589 > │ because it is being used by another process. │
00:08:18 verbose #42590 > │ 00:00:02 debug #9 _3 │
00:08:18 verbose #42591 > │ 00:00:02 debug #10 5 │
00:08:18 verbose #42592 > │ 00:00:02 debug #11 6 │
00:08:18 verbose #42593 > │ 00:00:02 debug #12 7 │
00:08:18 verbose #42594 > │ 00:00:02 debug #13 8 │
00:08:18 verbose #42595 > │ 127L │
00:08:18 verbose #42596 > │ 127L │
00:08:18 verbose #42597 > │ 127L │
00:08:18 verbose #42598 > │ 0L │
00:08:18 verbose #42599 > │ 0L │
00:08:18 verbose #42600 > │ 0L │
00:08:18 verbose #42601 > │ "0" │
00:08:18 verbose #42602 > │ true │
00:08:18 verbose #42603 > │ │
00:08:18 verbose #42604 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:18 verbose #42605 >
00:08:18 verbose #42606 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:18 verbose #42607 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:18 verbose #42608 > │ ## find_parent │
00:08:18 verbose #42609 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:18 verbose #42610 >
00:08:18 verbose #42611 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:18 verbose #42612 > inl find_parent name is_file root_dir =
00:08:18 verbose #42613 > let rec loop dir =
00:08:18 verbose #42614 > if dir </> name |> (if is_file then file_exists else directory_exists)
00:08:18 verbose #42615 > then dir
00:08:18 verbose #42616 > else
00:08:18 verbose #42617 > inl result = dir |> (join directory_get_parent)
00:08:18 verbose #42618 > match result |> optionm'.unbox with
00:08:18 verbose #42619 > | Some parent => parent |> loop
00:08:18 verbose #42620 > | None => failwith $'$"""No parent for {if !is_file then "file" else
00:08:18 verbose #42621 > "dir"} \'{!name}\' at \'{!root_dir}\' (until \'{!dir}\')"""'
00:08:18 verbose #42622 > loop root_dir
00:08:19 verbose #42623 > 00:08:18 debug #646 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/27d5c48b988bc5317e3be3fefd45e8d13c86104e0c00c12baf5e500e4eeaf4d3/main.spi
00:08:19 verbose #42624 >
00:08:19 verbose #42625 > ╭─[ 284.49ms - stdout ]────────────────────────────────────────────────────────╮
00:08:19 verbose #42626 > │ () │
00:08:19 verbose #42627 > │ │
00:08:19 verbose #42628 > │ │
00:08:19 verbose #42629 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:19 verbose #42630 >
00:08:19 verbose #42631 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:19 verbose #42632 > // // test
00:08:19 verbose #42633 > // // print_code=false
00:08:19 verbose #42634 >
00:08:19 verbose #42635 > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:08:19 verbose #42636 > |> am.map fun (file, is_file) =>
00:08:19 verbose #42637 > get_source_directory ()
00:08:19 verbose #42638 > |> find_parent file is_file
00:08:19 verbose #42639 > |> directory_info
00:08:19 verbose #42640 > |> directory_info_name
00:08:19 verbose #42641 > |> am'.distinct
00:08:19 verbose #42642 > |> _assert_eq (a ;[[ "polyglot" ]] : _ i32 _)
00:08:19 verbose #42643 > 00:08:18 debug #647 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4ce49dbb5f8e4afb1cf830bf86dfacf479047ca458fe487d63d16bfa03741f03/main.spi
00:08:19 verbose #42644 >
00:08:19 verbose #42645 > ╭─[ 381.78ms - stdout ]────────────────────────────────────────────────────────╮
00:08:19 verbose #42646 > │ [|"polyglot"|] │
00:08:19 verbose #42647 > │ │
00:08:19 verbose #42648 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:19 verbose #42649 >
00:08:19 verbose #42650 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:19 verbose #42651 > // // test
00:08:19 verbose #42652 > // // rust=
00:08:19 verbose #42653 > // // print_code=false
00:08:19 verbose #42654 >
00:08:19 verbose #42655 > types ()
00:08:19 verbose #42656 > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:08:19 verbose #42657 > |> am.map fun (file, is_file) =>
00:08:19 verbose #42658 > fun () =>
00:08:19 verbose #42659 > join
00:08:19 verbose #42660 > get_source_directory ()
00:08:19 verbose #42661 > |> find_parent file is_file
00:08:19 verbose #42662 > |> new_path_buf
00:08:19 verbose #42663 > |> path_buf_file_name
00:08:19 verbose #42664 > |> optionm'.try'
00:08:19 verbose #42665 > |> sm'.to_os_string
00:08:19 verbose #42666 > |> sm'.os_to_str
00:08:19 verbose #42667 > |> optionm'.try'
00:08:19 verbose #42668 > |> sm'.ref_to_std_string
00:08:19 verbose #42669 > |> sm'.from_std_string
00:08:19 verbose #42670 > |> Some
00:08:19 verbose #42671 > |> optionm'.box
00:08:19 verbose #42672 > |> fun x => x () |> optionm'.unbox
00:08:19 verbose #42673 > |> optionm'.default_value ""
00:08:19 verbose #42674 > |> am'.distinct
00:08:19 verbose #42675 > |> fun result =>
00:08:19 verbose #42676 > result |> am'.length |> _assert_eq 1i32
00:08:19 verbose #42677 > index result 0i32 |> _assert_eq "polyglot"
00:08:19 verbose #42678 > 00:08:19 debug #648 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/fae023ff2c2aeadf1da084606caa3d8d4e2d4d04f196c15f16cfd389343bf5cd/main.spi
00:08:27 verbose #42679 >
00:08:27 verbose #42680 > ╭─[ 7.63s - return value ]─────────────────────────────────────────────────────╮
00:08:27 verbose #42681 > │ 1 │
00:08:27 verbose #42682 > │ "polyglot" │
00:08:27 verbose #42683 > │ │
00:08:27 verbose #42684 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42685 >
00:08:27 verbose #42686 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:27 verbose #42687 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:27 verbose #42688 > │ ## get_repository_root │
00:08:27 verbose #42689 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42690 >
00:08:27 verbose #42691 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:27 verbose #42692 > inl get_repository_root () =
00:08:27 verbose #42693 > get_source_directory ()
00:08:27 verbose #42694 > |> find_parent ("polyglot" </> ".paket") false
00:08:27 verbose #42695 > |> fun root => root </> "polyglot"
00:08:27 verbose #42696 > 00:08:26 debug #649 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d7a8665aa17c0b56e74ad9f5d03ef427aed1014107d4ee7042730470041b2163/main.spi
00:08:27 verbose #42697 >
00:08:27 verbose #42698 > ╭─[ 221.91ms - stdout ]────────────────────────────────────────────────────────╮
00:08:27 verbose #42699 > │ () │
00:08:27 verbose #42700 > │ │
00:08:27 verbose #42701 > │ │
00:08:27 verbose #42702 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42703 >
00:08:27 verbose #42704 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:27 verbose #42705 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:27 verbose #42706 > │ ## normalize_path │
00:08:27 verbose #42707 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42708 >
00:08:27 verbose #42709 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:27 verbose #42710 > inl normalize_path (path : string) : string =
00:08:27 verbose #42711 > if runtime.is_windows () |> not
00:08:27 verbose #42712 > then path
00:08:27 verbose #42713 > else $'$"{!path.[[0]] |> System.Char.ToLower}{!path.[[1..]]}"' |>
00:08:27 verbose #42714 > sm'.replace "\\" "/"
00:08:27 verbose #42715 > 00:08:26 debug #650 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a188b208482c6990a2f91862f100c872b17e9b2495d7be6f6cf762130fb375ce/main.spi
00:08:27 verbose #42716 >
00:08:27 verbose #42717 > ╭─[ 318.61ms - stdout ]────────────────────────────────────────────────────────╮
00:08:27 verbose #42718 > │ () │
00:08:27 verbose #42719 > │ │
00:08:27 verbose #42720 > │ │
00:08:27 verbose #42721 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42722 >
00:08:27 verbose #42723 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:27 verbose #42724 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:27 verbose #42725 > │ ## new_file_uri │
00:08:27 verbose #42726 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42727 >
00:08:27 verbose #42728 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:27 verbose #42729 > inl new_file_uri (path : string) : string =
00:08:27 verbose #42730 > inl path = path |> sm'.trim_start ;[[ '/' ]]
00:08:27 verbose #42731 > $'$"file:///{!path}"'
00:08:27 verbose #42732 > 00:08:27 debug #651 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5ef5e5618949a07cdf7203682f059a35948ee18437a805c0b9ef2ebc8ee5ec45/main.spi
00:08:27 verbose #42733 >
00:08:27 verbose #42734 > ╭─[ 246.12ms - stdout ]────────────────────────────────────────────────────────╮
00:08:27 verbose #42735 > │ () │
00:08:27 verbose #42736 > │ │
00:08:27 verbose #42737 > │ │
00:08:27 verbose #42738 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #42739 >
00:08:27 verbose #42740 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:27 verbose #42741 > // // test
00:08:27 verbose #42742 >
00:08:27 verbose #42743 > "C:\\test"
00:08:27 verbose #42744 > |> normalize_path
00:08:27 verbose #42745 > |> new_file_uri
00:08:27 verbose #42746 > |> _assert_eq "file:///c:/test"
00:08:28 verbose #42747 > 00:08:27 debug #652 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f542c994bbc26bdd82dcd2ee050d3c3ab5c00199c54fe9c52b5a399d63b3eb4b/main.spi
00:08:28 verbose #42748 >
00:08:28 verbose #42749 > ╭─[ 276.75ms - stdout ]────────────────────────────────────────────────────────╮
00:08:28 verbose #42750 > │ let rec method1 (v0 : bool) : bool = │
00:08:28 verbose #42751 > │ v0 │
00:08:28 verbose #42752 > │ and method0 () : unit = │
00:08:28 verbose #42753 > │ let v0 : bool option = None │
00:08:28 verbose #42754 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:28 verbose #42755 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:28 verbose #42756 > │ let v2 : bool = null |> unbox<bool> │
00:08:28 verbose #42757 > │ v2 │
00:08:28 verbose #42758 > │ #endif │
00:08:28 verbose #42759 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:28 verbose #42760 > │ let v3 : bool = null |> unbox<bool> │
00:08:28 verbose #42761 > │ v3 │
00:08:28 verbose #42762 > │ #endif │
00:08:28 verbose #42763 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:28 verbose #42764 > │ let v4 : bool = null |> unbox<bool> │
00:08:28 verbose #42765 > │ v4 │
00:08:28 verbose #42766 > │ #endif │
00:08:28 verbose #42767 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:28 verbose #42768 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:28 verbose #42769 > │ let v5 : System.Runtime.InteropServices.OSPlatform = │
00:08:28 verbose #42770 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:28 verbose #42771 > │ let v6 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:28 verbose #42772 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:28 verbose #42773 > │ let v7 : bool = v6 v5 │
00:08:28 verbose #42774 > │ v7 │
00:08:28 verbose #42775 > │ #endif │
00:08:28 verbose #42776 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:28 verbose #42777 > │ let v8 : bool = null |> unbox<bool> │
00:08:28 verbose #42778 > │ v8 │
00:08:28 verbose #42779 > │ #endif │
00:08:28 verbose #42780 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:28 verbose #42781 > │ let v9 : bool = Unchecked.defaultof<bool> │
00:08:28 verbose #42782 > │ v9 │
00:08:28 verbose #42783 > │ #endif │
00:08:28 verbose #42784 > │ |> fun x -> _v0 <- Some x │
00:08:28 verbose #42785 > │ let v10 : bool = _v0.Value │
00:08:28 verbose #42786 > │ let v11 : bool = v10 = false │
00:08:28 verbose #42787 > │ let v18 : string = │
00:08:28 verbose #42788 > │ if v11 then │
00:08:28 verbose #42789 > │ let v12 : string = "C:\\test" │
00:08:28 verbose #42790 > │ v12 │
00:08:28 verbose #42791 > │ else │
00:08:28 verbose #42792 > │ let v13 : string = "C:\\test" │
00:08:28 verbose #42793 > │ let v14 : string = $"{v13.[0] |> System.Char.ToLower}{v13.[ │
00:08:28 verbose #42794 > │ 1..]}" │
00:08:28 verbose #42795 > │ let v15 : string = "\\" │
00:08:28 verbose #42796 > │ let v16 : string = "/" │
00:08:28 verbose #42797 > │ let v17 : string = v14.Replace (v15, v16) │
00:08:28 verbose #42798 > │ v17 │
00:08:28 verbose #42799 > │ let v19 : (char []) = [|'/'|] │
00:08:28 verbose #42800 > │ let v20 : string = v18.TrimStart v19 │
00:08:28 verbose #42801 > │ let v21 : string = $"file:///{v20}" │
00:08:28 verbose #42802 > │ let v22 : string = $"%A{v21}" │
00:08:28 verbose #42803 > │ System.Console.WriteLine v22 │
00:08:28 verbose #42804 > │ let v24 : bool = v21 = "file:///c:/test" │
00:08:28 verbose #42805 > │ let v26 : bool = │
00:08:28 verbose #42806 > │ if v24 then │
00:08:28 verbose #42807 > │ true │
00:08:28 verbose #42808 > │ else │
00:08:28 verbose #42809 > │ method1(v24) │
00:08:28 verbose #42810 > │ let v27 : string = "file:///c:/test" │
00:08:28 verbose #42811 > │ let v28 : string = $"__expect / actual: %A{v21} / expected: %A{v27}" │
00:08:28 verbose #42812 > │ let v29 : bool = v26 = false │
00:08:28 verbose #42813 > │ if v29 then │
00:08:28 verbose #42814 > │ failwith<unit> v28 │
00:08:28 verbose #42815 > │ method0() │
00:08:28 verbose #42816 > │ │
00:08:28 verbose #42817 > │ "file:///c:/test" │
00:08:28 verbose #42818 > │ │
00:08:28 verbose #42819 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:28 verbose #42820 >
00:08:28 verbose #42821 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:28 verbose #42822 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:28 verbose #42823 > │ ## trace_file │
00:08:28 verbose #42824 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:28 verbose #42825 >
00:08:28 verbose #42826 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:28 verbose #42827 > let rec trace_file text =
00:08:28 verbose #42828 > run_target function
00:08:28 verbose #42829 > | Fsharp (Native) => fun () =>
00:08:28 verbose #42830 > try_unit
00:08:28 verbose #42831 > fun () =>
00:08:28 verbose #42832 > inl assembly_name = get_entry_assembly_name ()
00:08:28 verbose #42833 > inl guid = date_time.now () |> date_time.new_guid_from_date_time
00:08:28 verbose #42834 > inl file_name = $'$"{!assembly_name}_{!guid}.txt"'
00:08:28 verbose #42835 >
00:08:28 verbose #42836 > inl repository_root = get_repository_root ()
00:08:28 verbose #42837 > inl trace_dir = repository_root </> "target/polyglot/trace"
00:08:28 verbose #42838 > trace_dir |> create_directory |> ignore
00:08:28 verbose #42839 > inl path = trace_dir </> file_name
00:08:28 verbose #42840 > text |> write_all_text_async path |> async.run_synchronously
00:08:28 verbose #42841 > fun ex =>
00:08:28 verbose #42842 > trace_file $'$"file_system.trace_file / ex: %A{!ex}"'
00:08:28 verbose #42843 > | _ => fun () => ()
00:08:28 verbose #42844 > 00:08:27 debug #653 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c64ecf59145ce2c278a56c7f9b333d1a1379280dfb34547e9e0a8b13a16b5acc/main.spi
00:08:28 verbose #42845 >
00:08:28 verbose #42846 > ╭─[ 222.88ms - stdout ]────────────────────────────────────────────────────────╮
00:08:28 verbose #42847 > │ () │
00:08:28 verbose #42848 > │ │
00:08:28 verbose #42849 > │ │
00:08:28 verbose #42850 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:28 verbose #42851 >
00:08:28 verbose #42852 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:28 verbose #42853 > // // test
00:08:28 verbose #42854 > // // print_code=false
00:08:28 verbose #42855 >
00:08:28 verbose #42856 > inl get_count dir : i64 =
00:08:28 verbose #42857 > inl files = dir |> file_system.directory_get_files
00:08:28 verbose #42858 > a files |> am'.length
00:08:28 verbose #42859 >
00:08:28 verbose #42860 > inl trace_dir = file_system.get_repository_root () </> "target/polyglot/trace"
00:08:28 verbose #42861 > trace_dir |> file_system.create_directory |> ignore
00:08:28 verbose #42862 >
00:08:28 verbose #42863 > inl count = get_count trace_dir
00:08:28 verbose #42864 >
00:08:28 verbose #42865 > trace_file "test"
00:08:28 verbose #42866 >
00:08:28 verbose #42867 > get_count trace_dir
00:08:28 verbose #42868 > |> _assert_eq (count + 1)
00:08:28 verbose #42869 > 00:08:28 debug #654 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/65487ee5ac6ca8075601362a12a4f45374a275ba4a5848546cf36922f0107490/main.spi
00:08:29 verbose #42870 >
00:08:29 verbose #42871 > ╭─[ 541.24ms - stdout ]────────────────────────────────────────────────────────╮
00:08:29 verbose #42872 > │ 4L │
00:08:29 verbose #42873 > │ │
00:08:29 verbose #42874 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:29 verbose #42875 >
00:08:29 verbose #42876 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:29 verbose #42877 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:29 verbose #42878 > │ ## init_trace_file │
00:08:29 verbose #42879 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:29 verbose #42880 >
00:08:29 verbose #42881 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:29 verbose #42882 > inl init_trace_file enabled =
00:08:29 verbose #42883 > inl state_trace_file = get_trace_state () .trace_file
00:08:29 verbose #42884 > state_trace_file <- if enabled then trace_file else ignore
00:08:29 verbose #42885 > 00:08:28 debug #655 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8b958c85ee93694d20358d4fcc6606cc7d0601fa31740622673bcf2a423334d7/main.spi
00:08:29 verbose #42886 >
00:08:29 verbose #42887 > ╭─[ 285.87ms - stdout ]────────────────────────────────────────────────────────╮
00:08:29 verbose #42888 > │ () │
00:08:29 verbose #42889 > │ │
00:08:29 verbose #42890 > │ │
00:08:29 verbose #42891 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:29 verbose #42892 >
00:08:29 verbose #42893 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:29 verbose #42894 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:29 verbose #42895 > │ ## main │
00:08:29 verbose #42896 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:29 verbose #42897 >
00:08:29 verbose #42898 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:29 verbose #42899 > inl main () =
00:08:29 verbose #42900 > types ()
00:08:29 verbose #42901 > init_trace_state ()
00:08:29 verbose #42902 > $"let delete_directory_async x = !delete_directory_async x" : ()
00:08:29 verbose #42903 > $"let wait_for_file_access x = !wait_for_file_access x" : ()
00:08:29 verbose #42904 > $"let wait_for_file_access_read x = !wait_for_file_access_read x" : ()
00:08:29 verbose #42905 > $"let read_all_text_async x = !read_all_text_async x" : ()
00:08:29 verbose #42906 > $"let file_exists_content x = !file_exists_content x" : ()
00:08:29 verbose #42907 > $"let write_all_text_async x = !write_all_text_async x" : ()
00:08:29 verbose #42908 > $"let write_all_text_exists x = !write_all_text_exists x" : ()
00:08:29 verbose #42909 > $"let delete_file_async x = !delete_file_async x" : ()
00:08:29 verbose #42910 > $"let move_file_async x = !move_file_async x" : ()
00:08:29 verbose #42911 > $"let read_all_text_retry_async x = !read_all_text_retry_async x" : ()
00:08:29 verbose #42912 > $"let create_temp_directory_name () = !create_temp_directory_name ()" : ()
00:08:29 verbose #42913 > $"let create_temp_directory () = !create_temp_directory ()" : ()
00:08:29 verbose #42914 > $"let get_source_directory () = !get_source_directory ()" : ()
00:08:29 verbose #42915 > $"let find_parent x = !find_parent x" : ()
00:08:29 verbose #42916 > $"let normalize_path x = !normalize_path x" : ()
00:08:29 verbose #42917 > $"let new_file_uri x = !new_file_uri x" : ()
00:08:29 verbose #42918 > $"let get_repository_root () = !get_repository_root ()" : ()
00:08:29 verbose #42919 > $"let init_trace_file x = !init_trace_file x" : ()
00:08:29 verbose #42920 > inl combine x = (</>) x
00:08:29 verbose #42921 > $"let (</>) x = !combine x" : ()
00:08:29 verbose #42922 > 00:08:28 debug #656 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d1668aa85370905d7dd9ad1bbd542ae0213845b5f9dbfe59f7f3192fd531a9d7/main.spi
00:08:30 verbose #42923 >
00:08:30 verbose #42924 > ╭─[ 1.45s - stdout ]───────────────────────────────────────────────────────────╮
00:08:30 verbose #42925 > │ #if FABLE_COMPILER // file_system.types │
00:08:30 verbose #42926 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:08:30 verbose #42927 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:08:30 verbose #42928 > │ base64_DecodeError = class end │
00:08:30 verbose #42929 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:08:30 verbose #42930 > │ borsh_io_Error = class end │
00:08:30 verbose #42931 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:08:30 verbose #42932 > │ js_sys_JsString = class end │
00:08:30 verbose #42933 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:08:30 verbose #42934 > │ serde_json_Error = class end │
00:08:30 verbose #42935 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:08:30 verbose #42936 > │ serde_json_Value = class end │
00:08:30 verbose #42937 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:08:30 verbose #42938 > │ serde_wasm_bindgen_Error = class end │
00:08:30 verbose #42939 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:08:30 verbose #42940 > │ = class end │
00:08:30 verbose #42941 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:08:30 verbose #42942 > │ std_ffi_OsString = class end │
00:08:30 verbose #42943 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:08:30 verbose #42944 > │ std_str_Utf8Error = class end │
00:08:30 verbose #42945 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:08:30 verbose #42946 > │ std_string_String = class end │
00:08:30 verbose #42947 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:08:30 verbose #42948 > │ end │
00:08:30 verbose #42949 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:08:30 verbose #42950 > │ class end │
00:08:30 verbose #42951 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:08:30 verbose #42952 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:08:30 verbose #42953 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:08:30 verbose #42954 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:08:30 verbose #42955 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:08:30 verbose #42956 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:08:30 verbose #42957 > │ class end │
00:08:30 verbose #42958 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:08:30 verbose #42959 > │ end │
00:08:30 verbose #42960 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:08:30 verbose #42961 > │ class end │
00:08:30 verbose #42962 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:08:30 verbose #42963 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:08:30 verbose #42964 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:08:30 verbose #42965 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:08:30 verbose #42966 > │ class end │
00:08:30 verbose #42967 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:08:30 verbose #42968 > │ class end │
00:08:30 verbose #42969 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:08:30 verbose #42970 > │ class end │
00:08:30 verbose #42971 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:08:30 verbose #42972 > │ std_cell_RefCell<'T> = class end │
00:08:30 verbose #42973 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:08:30 verbose #42974 > │ std_pin_Pin<'T> = class end │
00:08:30 verbose #42975 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:08:30 verbose #42976 > │ = class end │
00:08:30 verbose #42977 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:08:30 verbose #42978 > │ std_rc_Weak<'T> = class end │
00:08:30 verbose #42979 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:08:30 verbose #42980 > │ std_sync_Arc<'T> = class end │
00:08:30 verbose #42981 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>] type │
00:08:30 verbose #42982 > │ std_fs_FileType = class end │
00:08:30 verbose #42983 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::io::Error")>] type std_io_Error = │
00:08:30 verbose #42984 > │ class end │
00:08:30 verbose #42985 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>] type std_path_Path │
00:08:30 verbose #42986 > │ = class end │
00:08:30 verbose #42987 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>] type │
00:08:30 verbose #42988 > │ std_path_PathBuf = class end │
00:08:30 verbose #42989 > │ [<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>] type │
00:08:30 verbose #42990 > │ async_walkdir_DirEntry = class end │
00:08:30 verbose #42991 > │ [<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>] type │
00:08:30 verbose #42992 > │ async_walkdir_Filtering = class end │
00:08:30 verbose #42993 > │ [<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>] type │
00:08:30 verbose #42994 > │ async_walkdir_WalkDir = class end │
00:08:30 verbose #42995 > │ #endif // file_system.types │
00:08:30 verbose #42996 > │ module State = let mutable trace_state = None │
00:08:30 verbose #42997 > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:08:30 verbose #42998 > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:30 verbose #42999 > │ string │
00:08:30 verbose #43000 > │ type IPathDirname = abstract dirname: path: string -> string │
00:08:30 verbose #43001 > │ type Mut0 = {mutable l0 : int64} │
00:08:30 verbose #43002 > │ and Mut1 = {mutable l0 : bool} │
00:08:30 verbose #43003 > │ and [<Struct>] US0 = │
00:08:30 verbose #43004 > │ | US0_0 │
00:08:30 verbose #43005 > │ | US0_1 │
00:08:30 verbose #43006 > │ | US0_2 │
00:08:30 verbose #43007 > │ | US0_3 │
00:08:30 verbose #43008 > │ | US0_4 │
00:08:30 verbose #43009 > │ and Mut2 = {mutable l0 : US0} │
00:08:30 verbose #43010 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:08:30 verbose #43011 > │ and [<Struct>] US1 = │
00:08:30 verbose #43012 > │ | US1_0 of f0_0 : int64 │
00:08:30 verbose #43013 > │ | US1_1 │
00:08:30 verbose #43014 > │ and [<Struct>] US2 = │
00:08:30 verbose #43015 > │ | US2_0 of f0_0 : int64 │
00:08:30 verbose #43016 > │ | US2_1 │
00:08:30 verbose #43017 > │ and [<Struct>] US4 = │
00:08:30 verbose #43018 > │ | US4_0 │
00:08:30 verbose #43019 > │ | US4_1 │
00:08:30 verbose #43020 > │ | US4_2 │
00:08:30 verbose #43021 > │ and [<Struct>] US5 = │
00:08:30 verbose #43022 > │ | US5_0 │
00:08:30 verbose #43023 > │ | US5_1 │
00:08:30 verbose #43024 > │ | US5_2 │
00:08:30 verbose #43025 > │ | US5_3 │
00:08:30 verbose #43026 > │ | US5_4 │
00:08:30 verbose #43027 > │ and [<Struct>] US3 = │
00:08:30 verbose #43028 > │ | US3_0 of f0_0 : US4 * f0_1 : US5 │
00:08:30 verbose #43029 > │ | US3_1 │
00:08:30 verbose #43030 > │ and [<Struct>] US6 = │
00:08:30 verbose #43031 > │ | US6_0 of f0_0 : int64 │
00:08:30 verbose #43032 > │ | US6_1 of f1_0 : exn │
00:08:30 verbose #43033 > │ and [<Struct>] US7 = │
00:08:30 verbose #43034 > │ | US7_0 of f0_0 : int64 │
00:08:30 verbose #43035 > │ | US7_1 of f1_0 : exn │
00:08:30 verbose #43036 > │ and [<Struct>] US8 = │
00:08:30 verbose #43037 > │ | US8_0 of f0_0 : string │
00:08:30 verbose #43038 > │ | US8_1 │
00:08:30 verbose #43039 > │ let rec closure1 () (v0 : string) : unit = │
00:08:30 verbose #43040 > │ () │
00:08:30 verbose #43041 > │ and method0 (v0 : int64 option) : int64 option = │
00:08:30 verbose #43042 > │ v0 │
00:08:30 verbose #43043 > │ and method1 (v0 : int64 option) : int64 option = │
00:08:30 verbose #43044 > │ v0 │
00:08:30 verbose #43045 > │ and closure0 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:08:30 verbose #43046 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:30 verbose #43047 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:30 verbose #43048 > │ let v2 : US0 = US0_0 │
00:08:30 verbose #43049 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:30 verbose #43050 > │ let v4 : (string -> unit) = closure1() │
00:08:30 verbose #43051 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:08:30 verbose #43052 > │ let v6 : int64 option option = None │
00:08:30 verbose #43053 > │ let mutable _v6 = v6 │
00:08:30 verbose #43054 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:30 verbose #43055 > │ let v7 : string option = None │
00:08:30 verbose #43056 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:30 verbose #43057 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:30 verbose #43058 > │ let v9 : string = null |> unbox<string> │
00:08:30 verbose #43059 > │ v9 │
00:08:30 verbose #43060 > │ #endif │
00:08:30 verbose #43061 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:30 verbose #43062 > │ let v10 : string = null |> unbox<string> │
00:08:30 verbose #43063 > │ v10 │
00:08:30 verbose #43064 > │ #endif │
00:08:30 verbose #43065 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:30 verbose #43066 > │ let v11 : string = null |> unbox<string> │
00:08:30 verbose #43067 > │ v11 │
00:08:30 verbose #43068 > │ #endif │
00:08:30 verbose #43069 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:30 verbose #43070 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:30 verbose #43071 > │ let v12 : string = │
00:08:30 verbose #43072 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:30 verbose #43073 > │ v12 │
00:08:30 verbose #43074 > │ #endif │
00:08:30 verbose #43075 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:30 verbose #43076 > │ let v13 : string = null |> unbox<string> │
00:08:30 verbose #43077 > │ v13 │
00:08:30 verbose #43078 > │ #endif │
00:08:30 verbose #43079 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:30 verbose #43080 > │ let v14 : string = Unchecked.defaultof<string> │
00:08:30 verbose #43081 > │ v14 │
00:08:30 verbose #43082 > │ #endif │
00:08:30 verbose #43083 > │ |> fun x -> _v7 <- Some x │
00:08:30 verbose #43084 > │ let v15 : string = _v7.Value │
00:08:30 verbose #43085 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:08:30 verbose #43086 > │ let v18 : bool = v17 <> true │
00:08:30 verbose #43087 > │ let v24 : US1 = │
00:08:30 verbose #43088 > │ if v18 then │
00:08:30 verbose #43089 > │ let v19 : System.DateTime = System.DateTime.Now │
00:08:30 verbose #43090 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:08:30 verbose #43091 > │ let v21 : int64 = v20 v19 │
00:08:30 verbose #43092 > │ US1_0(v21) │
00:08:30 verbose #43093 > │ else │
00:08:30 verbose #43094 > │ US1_1 │
00:08:30 verbose #43095 > │ let v29 : int64 option = │
00:08:30 verbose #43096 > │ match v24 with │
00:08:30 verbose #43097 > │ | US1_1 -> (* None *) │
00:08:30 verbose #43098 > │ let v27 : int64 option = None │
00:08:30 verbose #43099 > │ v27 │
00:08:30 verbose #43100 > │ | US1_0(v25) -> (* Some *) │
00:08:30 verbose #43101 > │ let v26 : int64 option = Some v25 │
00:08:30 verbose #43102 > │ v26 │
00:08:30 verbose #43103 > │ let v30 : int64 option = method0(v29) │
00:08:30 verbose #43104 > │ v30 │
00:08:30 verbose #43105 > │ #else │
00:08:30 verbose #43106 > │ let v31 : int64 option = None │
00:08:30 verbose #43107 > │ let v32 : int64 option = method1(v31) │
00:08:30 verbose #43108 > │ v32 │
00:08:30 verbose #43109 > │ #endif │
00:08:30 verbose #43110 > │ |> fun x -> _v6 <- Some x │
00:08:30 verbose #43111 > │ let v33 : int64 option = _v6.Value │
00:08:30 verbose #43112 > │ struct (v1, v0, v3, v33, v5) │
00:08:30 verbose #43113 > │ and closure3 () () : string = │
00:08:30 verbose #43114 > │ let v0 : string = "file_system.delete_directory_async" │
00:08:30 verbose #43115 > │ v0 │
00:08:30 verbose #43116 > │ and closure5 () (v0 : string) : string = │
00:08:30 verbose #43117 > │ let v1 : string option = None │
00:08:30 verbose #43118 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:30 verbose #43119 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:30 verbose #43120 > │ let v3 : string = null |> unbox<string> │
00:08:30 verbose #43121 > │ v3 │
00:08:30 verbose #43122 > │ #endif │
00:08:30 verbose #43123 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:30 verbose #43124 > │ let v4 : string = null |> unbox<string> │
00:08:30 verbose #43125 > │ v4 │
00:08:30 verbose #43126 > │ #endif │
00:08:30 verbose #43127 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:30 verbose #43128 > │ let v5 : string = null |> unbox<string> │
00:08:30 verbose #43129 > │ v5 │
00:08:30 verbose #43130 > │ #endif │
00:08:30 verbose #43131 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:30 verbose #43132 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:30 verbose #43133 > │ let v6 : (string -> string) = System.IO.Path.GetFileName │
00:08:30 verbose #43134 > │ let v7 : string = v6 v0 │
00:08:30 verbose #43135 > │ v7 │
00:08:30 verbose #43136 > │ #endif │
00:08:30 verbose #43137 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:30 verbose #43138 > │ let v8 : string = null |> unbox<string> │
00:08:30 verbose #43139 > │ v8 │
00:08:30 verbose #43140 > │ #endif │
00:08:30 verbose #43141 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:30 verbose #43142 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:30 verbose #43143 > │ v9 │
00:08:30 verbose #43144 > │ #endif │
00:08:30 verbose #43145 > │ |> fun x -> _v1 <- Some x │
00:08:30 verbose #43146 > │ let v10 : string = _v1.Value │
00:08:30 verbose #43147 > │ v10 │
00:08:30 verbose #43148 > │ and closure6 () () : string = │
00:08:30 verbose #43149 > │ let v0 : string = "" │
00:08:30 verbose #43150 > │ v0 │
00:08:30 verbose #43151 > │ and closure4 (v0 : string, v1 : string) () : string = │
00:08:30 verbose #43152 > │ let v2 : (string -> string) = closure5() │
00:08:30 verbose #43153 > │ let v3 : (unit -> string) = closure6() │
00:08:30 verbose #43154 > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:30 verbose #43155 > │ v4 │
00:08:30 verbose #43156 > │ and closure8 () (v0 : int64) : US2 = │
00:08:30 verbose #43157 > │ US2_0(v0) │
00:08:30 verbose #43158 > │ and method4 () : (int64 -> US2) = │
00:08:30 verbose #43159 > │ closure8() │
00:08:30 verbose #43160 > │ and method5 () : string = │
00:08:30 verbose #43161 > │ let v0 : string = "" │
00:08:30 verbose #43162 > │ v0 │
00:08:30 verbose #43163 > │ and closure7 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:30 verbose #43164 > │ string = │
00:08:30 verbose #43165 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:30 verbose #43166 > │ closure0() │
00:08:30 verbose #43167 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:08:30 verbose #43168 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:08:30 verbose #43169 > │ Mut3) = State.trace_state.Value │
00:08:30 verbose #43170 > │ let v9 : string option = None │
00:08:30 verbose #43171 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:30 verbose #43172 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:30 verbose #43173 > │ let v11 : (int64 -> US2) = method4() │
00:08:30 verbose #43174 > │ let v12 : US2 = US2_1 │
00:08:30 verbose #43175 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:08:30 verbose #43176 > │ let v31 : System.DateTime = │
00:08:30 verbose #43177 > │ match v13 with │
00:08:30 verbose #43178 > │ | US2_1 -> (* None *) │
00:08:30 verbose #43179 > │ let v29 : System.DateTime = System.DateTime.Now │
00:08:30 verbose #43180 > │ v29 │
00:08:30 verbose #43181 > │ | US2_0(v14) -> (* Some *) │
00:08:30 verbose #43182 > │ let v15 : System.DateTime = System.DateTime.Now │
00:08:30 verbose #43183 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:08:30 verbose #43184 > │ let v17 : int64 = v16 v15 │
00:08:30 verbose #43185 > │ let v18 : int64 = v17 - v14 │
00:08:30 verbose #43186 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:08:30 verbose #43187 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:08:30 verbose #43188 > │ let v21 : int32 = v20 v19 │
00:08:30 verbose #43189 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:08:30 verbose #43190 > │ let v23 : int32 = v22 v19 │
00:08:30 verbose #43191 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:08:30 verbose #43192 > │ let v25 : int32 = v24 v19 │
00:08:30 verbose #43193 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:30 verbose #43194 > │ let v27 : int32 = v26 v19 │
00:08:30 verbose #43195 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:08:30 verbose #43196 > │ v25, v27) │
00:08:30 verbose #43197 > │ v28 │
00:08:30 verbose #43198 > │ let v32 : string = "hh:mm:ss" │
00:08:30 verbose #43199 > │ let v33 : string = v31.ToString v32 │
00:08:30 verbose #43200 > │ v33 │
00:08:30 verbose #43201 > │ #endif │
00:08:30 verbose #43202 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:30 verbose #43203 > │ let v34 : string = method5() │
00:08:30 verbose #43204 > │ v34 │
00:08:30 verbose #43205 > │ #endif │
00:08:30 verbose #43206 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:30 verbose #43207 > │ let v35 : string = method5() │
00:08:30 verbose #43208 > │ v35 │
00:08:30 verbose #43209 > │ #endif │
00:08:30 verbose #43210 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:30 verbose #43211 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:30 verbose #43212 > │ let v36 : (int64 -> US2) = method4() │
00:08:30 verbose #43213 > │ let v37 : US2 = US2_1 │
00:08:30 verbose #43214 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:08:30 verbose #43215 > │ let v56 : System.DateTime = │
00:08:30 verbose #43216 > │ match v38 with │
00:08:30 verbose #43217 > │ | US2_1 -> (* None *) │
00:08:30 verbose #43218 > │ let v54 : System.DateTime = System.DateTime.Now │
00:08:30 verbose #43219 > │ v54 │
00:08:30 verbose #43220 > │ | US2_0(v39) -> (* Some *) │
00:08:30 verbose #43221 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:30 verbose #43222 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:08:30 verbose #43223 > │ let v42 : int64 = v41 v40 │
00:08:30 verbose #43224 > │ let v43 : int64 = v42 - v39 │
00:08:30 verbose #43225 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:08:30 verbose #43226 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:08:30 verbose #43227 > │ let v46 : int32 = v45 v44 │
00:08:30 verbose #43228 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:08:30 verbose #43229 > │ let v48 : int32 = v47 v44 │
00:08:30 verbose #43230 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:08:30 verbose #43231 > │ let v50 : int32 = v49 v44 │
00:08:30 verbose #43232 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:30 verbose #43233 > │ let v52 : int32 = v51 v44 │
00:08:30 verbose #43234 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:08:30 verbose #43235 > │ v50, v52) │
00:08:30 verbose #43236 > │ v53 │
00:08:30 verbose #43237 > │ let v57 : string = "HH:mm:ss" │
00:08:30 verbose #43238 > │ let v58 : string = v56.ToString v57 │
00:08:30 verbose #43239 > │ v58 │
00:08:30 verbose #43240 > │ #endif │
00:08:30 verbose #43241 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:30 verbose #43242 > │ let v59 : string = method5() │
00:08:30 verbose #43243 > │ v59 │
00:08:30 verbose #43244 > │ #endif │
00:08:30 verbose #43245 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:30 verbose #43246 > │ let v60 : string = Unchecked.defaultof<string> │
00:08:30 verbose #43247 > │ v60 │
00:08:30 verbose #43248 > │ #endif │
00:08:30 verbose #43249 > │ |> fun x -> _v9 <- Some x │
00:08:30 verbose #43250 > │ let v61 : string = _v9.Value │
00:08:30 verbose #43251 > │ let v62 : int64 = v4.l0 │
00:08:30 verbose #43252 > │ let v72 : string = │
00:08:30 verbose #43253 > │ match v0 with │
00:08:30 verbose #43254 > │ | US0_4 -> (* Critical *) │
00:08:30 verbose #43255 > │ let v67 : string = "Critical" │
00:08:30 verbose #43256 > │ v67 │
00:08:30 verbose #43257 > │ | US0_1 -> (* Debug *) │
00:08:30 verbose #43258 > │ let v64 : string = "Debug" │
00:08:30 verbose #43259 > │ v64 │
00:08:30 verbose #43260 > │ | US0_2 -> (* Info *) │
00:08:30 verbose #43261 > │ let v65 : string = "Info" │
00:08:30 verbose #43262 > │ v65 │
00:08:30 verbose #43263 > │ | US0_0 -> (* Verbose *) │
00:08:30 verbose #43264 > │ let v63 : string = "Verbose" │
00:08:30 verbose #43265 > │ v63 │
00:08:30 verbose #43266 > │ | US0_3 -> (* Warning *) │
00:08:30 verbose #43267 > │ let v66 : string = "Warning" │
00:08:30 verbose #43268 > │ v66 │
00:08:30 verbose #43269 > │ let v73 : string = v72.ToLower () │
00:08:30 verbose #43270 > │ let v74 : string option = None │
00:08:30 verbose #43271 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:08:30 verbose #43272 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:30 verbose #43273 > │ let v90 : Ref<Str> = │
00:08:30 verbose #43274 > │ match v0 with │
00:08:30 verbose #43275 > │ | US0_4 -> (* Critical *) │
00:08:30 verbose #43276 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:08:30 verbose #43277 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:08:30 verbose #43278 > │ v85 │
00:08:30 verbose #43279 > │ | US0_1 -> (* Debug *) │
00:08:30 verbose #43280 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:08:30 verbose #43281 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:08:30 verbose #43282 > │ v79 │
00:08:30 verbose #43283 > │ | US0_2 -> (* Info *) │
00:08:30 verbose #43284 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:08:30 verbose #43285 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:08:30 verbose #43286 > │ v81 │
00:08:30 verbose #43287 > │ | US0_0 -> (* Verbose *) │
00:08:30 verbose #43288 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:08:30 verbose #43289 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:08:30 verbose #43290 > │ v77 │
00:08:30 verbose #43291 > │ | US0_3 -> (* Warning *) │
00:08:30 verbose #43292 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:08:30 verbose #43293 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:08:30 verbose #43294 > │ v83 │
00:08:30 verbose #43295 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:30 verbose #43296 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:08:30 verbose #43297 > │ let v93 : string = "inline_colorization::color_reset" │
00:08:30 verbose #43298 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:08:30 verbose #43299 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:08:30 verbose #43300 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:08:30 verbose #43301 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:08:31 verbose #43302 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:08:31 verbose #43303 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:08:31 verbose #43304 > │ v99 │
00:08:31 verbose #43305 > │ #endif │
00:08:31 verbose #43306 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43307 > │ let v114 : Ref<Str> = │
00:08:31 verbose #43308 > │ match v0 with │
00:08:31 verbose #43309 > │ | US0_4 -> (* Critical *) │
00:08:31 verbose #43310 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:08:31 verbose #43311 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43312 > │ v108 │
00:08:31 verbose #43313 > │ v109 │
00:08:31 verbose #43314 > │ | US0_1 -> (* Debug *) │
00:08:31 verbose #43315 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:08:31 verbose #43316 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43317 > │ v102 │
00:08:31 verbose #43318 > │ v103 │
00:08:31 verbose #43319 > │ | US0_2 -> (* Info *) │
00:08:31 verbose #43320 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:08:31 verbose #43321 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43322 > │ v104 │
00:08:31 verbose #43323 > │ v105 │
00:08:31 verbose #43324 > │ | US0_0 -> (* Verbose *) │
00:08:31 verbose #43325 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:08:31 verbose #43326 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43327 > │ v100 │
00:08:31 verbose #43328 > │ v101 │
00:08:31 verbose #43329 > │ | US0_3 -> (* Warning *) │
00:08:31 verbose #43330 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:08:31 verbose #43331 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43332 > │ v106 │
00:08:31 verbose #43333 > │ v107 │
00:08:31 verbose #43334 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #43335 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:08:31 verbose #43336 > │ let v117 : string = "inline_colorization::color_reset" │
00:08:31 verbose #43337 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:08:31 verbose #43338 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:08:31 verbose #43339 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:08:31 verbose #43340 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43341 > │ v120 │
00:08:31 verbose #43342 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:08:31 verbose #43343 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:08:31 verbose #43344 > │ v123 │
00:08:31 verbose #43345 > │ #endif │
00:08:31 verbose #43346 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43347 > │ let v138 : Ref<Str> = │
00:08:31 verbose #43348 > │ match v0 with │
00:08:31 verbose #43349 > │ | US0_4 -> (* Critical *) │
00:08:31 verbose #43350 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:08:31 verbose #43351 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43352 > │ v132 │
00:08:31 verbose #43353 > │ v133 │
00:08:31 verbose #43354 > │ | US0_1 -> (* Debug *) │
00:08:31 verbose #43355 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:08:31 verbose #43356 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43357 > │ v126 │
00:08:31 verbose #43358 > │ v127 │
00:08:31 verbose #43359 > │ | US0_2 -> (* Info *) │
00:08:31 verbose #43360 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:08:31 verbose #43361 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43362 > │ v128 │
00:08:31 verbose #43363 > │ v129 │
00:08:31 verbose #43364 > │ | US0_0 -> (* Verbose *) │
00:08:31 verbose #43365 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:08:31 verbose #43366 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43367 > │ v124 │
00:08:31 verbose #43368 > │ v125 │
00:08:31 verbose #43369 > │ | US0_3 -> (* Warning *) │
00:08:31 verbose #43370 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:08:31 verbose #43371 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43372 > │ v130 │
00:08:31 verbose #43373 > │ v131 │
00:08:31 verbose #43374 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #43375 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:08:31 verbose #43376 > │ let v141 : string = "inline_colorization::color_reset" │
00:08:31 verbose #43377 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:08:31 verbose #43378 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:08:31 verbose #43379 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:08:31 verbose #43380 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:08:31 verbose #43381 > │ v144 │
00:08:31 verbose #43382 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:08:31 verbose #43383 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:08:31 verbose #43384 > │ v147 │
00:08:31 verbose #43385 > │ #endif │
00:08:31 verbose #43386 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43387 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43388 > │ v73 │
00:08:31 verbose #43389 > │ #endif │
00:08:31 verbose #43390 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43391 > │ v73 │
00:08:31 verbose #43392 > │ #endif │
00:08:31 verbose #43393 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43394 > │ let v148 : string = Unchecked.defaultof<string> │
00:08:31 verbose #43395 > │ v148 │
00:08:31 verbose #43396 > │ #endif │
00:08:31 verbose #43397 > │ |> fun x -> _v74 <- Some x │
00:08:31 verbose #43398 > │ let v149 : string = _v74.Value │
00:08:31 verbose #43399 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:08:31 verbose #43400 > │ let v151 : (char []) = [||] │
00:08:31 verbose #43401 > │ let v152 : string = v150.TrimStart v151 │
00:08:31 verbose #43402 > │ let v153 : (char []) = [|' '; '/'|] │
00:08:31 verbose #43403 > │ let v154 : string = v152.TrimEnd v153 │
00:08:31 verbose #43404 > │ v154 │
00:08:31 verbose #43405 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:08:31 verbose #43406 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:31 verbose #43407 > │ closure0() │
00:08:31 verbose #43408 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:31 verbose #43409 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:08:31 verbose #43410 > │ Mut3) = State.trace_state.Value │
00:08:31 verbose #43411 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:08:31 verbose #43412 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:08:31 verbose #43413 > │ Mut3) = State.trace_state.Value │
00:08:31 verbose #43414 > │ let v13 : US0 = v10.l0 │
00:08:31 verbose #43415 > │ let v14 : bool = v9.l0 │
00:08:31 verbose #43416 > │ let v15 : bool = v14 = false │
00:08:31 verbose #43417 > │ let v19 : bool = │
00:08:31 verbose #43418 > │ if v15 then │
00:08:31 verbose #43419 > │ false │
00:08:31 verbose #43420 > │ else │
00:08:31 verbose #43421 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:31 verbose #43422 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:08:31 verbose #43423 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:08:31 verbose #43424 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:08:31 verbose #43425 > │ let v18 : bool = v16 >= v17 │
00:08:31 verbose #43426 > │ v18 │
00:08:31 verbose #43427 > │ if v19 then │
00:08:31 verbose #43428 > │ let v20 : int64 = v3.l0 │
00:08:31 verbose #43429 > │ let v21 : int64 = v20 + 1L │
00:08:31 verbose #43430 > │ v3.l0 <- v21 │
00:08:31 verbose #43431 > │ let v22 : string = $"%s{v1 ()}" │
00:08:31 verbose #43432 > │ let v23 : unit option = None │
00:08:31 verbose #43433 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:08:31 verbose #43434 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43435 > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:31 verbose #43436 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:08:31 verbose #43437 > │ () │
00:08:31 verbose #43438 > │ #endif │
00:08:31 verbose #43439 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43440 > │ let v26 : string = @"println!(""{}"", $0)" │
00:08:31 verbose #43441 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:08:31 verbose #43442 > │ () │
00:08:31 verbose #43443 > │ #endif │
00:08:31 verbose #43444 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43445 > │ let v27 : string = @"println!(""{}"", $0)" │
00:08:31 verbose #43446 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:08:31 verbose #43447 > │ () │
00:08:31 verbose #43448 > │ #endif │
00:08:31 verbose #43449 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43450 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43451 > │ System.Console.WriteLine v22 │
00:08:31 verbose #43452 > │ () │
00:08:31 verbose #43453 > │ #endif │
00:08:31 verbose #43454 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43455 > │ System.Console.WriteLine v22 │
00:08:31 verbose #43456 > │ () │
00:08:31 verbose #43457 > │ #endif │
00:08:31 verbose #43458 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #43459 > │ FABLE_COMPILER_DART │
00:08:31 verbose #43460 > │ Unchecked.defaultof<unit> │
00:08:31 verbose #43461 > │ () │
00:08:31 verbose #43462 > │ #endif │
00:08:31 verbose #43463 > │ |> fun x -> _v23 <- Some x │
00:08:31 verbose #43464 > │ _v23.Value │
00:08:31 verbose #43465 > │ let v28 : (string -> unit) = v7.l0 │
00:08:31 verbose #43466 > │ v28 v22 │
00:08:31 verbose #43467 > │ and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:31 verbose #43468 > │ = │
00:08:31 verbose #43469 > │ let v3 : (unit -> string) = closure7(v0, v1, v2) │
00:08:31 verbose #43470 > │ method6(v0, v3) │
00:08:31 verbose #43471 > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:08:31 verbose #43472 > │ let v2 : Async<int64> option = None │
00:08:31 verbose #43473 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #43474 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43475 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43476 > │ v4 │
00:08:31 verbose #43477 > │ #endif │
00:08:31 verbose #43478 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43479 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43480 > │ v5 │
00:08:31 verbose #43481 > │ #endif │
00:08:31 verbose #43482 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43483 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43484 > │ v6 │
00:08:31 verbose #43485 > │ #endif │
00:08:31 verbose #43486 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43487 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43488 > │ let v7 : Async<int64> option = None │
00:08:31 verbose #43489 > │ let mutable _v7 = v7 │
00:08:31 verbose #43490 > │ async { │
00:08:31 verbose #43491 > │ try │
00:08:31 verbose #43492 > │ let v8 : unit option = None │
00:08:31 verbose #43493 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #43494 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43495 > │ null |> unbox<unit> │
00:08:31 verbose #43496 > │ () │
00:08:31 verbose #43497 > │ #endif │
00:08:31 verbose #43498 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43499 > │ null |> unbox<unit> │
00:08:31 verbose #43500 > │ () │
00:08:31 verbose #43501 > │ #endif │
00:08:31 verbose #43502 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43503 > │ null |> unbox<unit> │
00:08:31 verbose #43504 > │ () │
00:08:31 verbose #43505 > │ #endif │
00:08:31 verbose #43506 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43507 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43508 > │ System.IO.Directory.Delete (v0, true) │
00:08:31 verbose #43509 > │ () │
00:08:31 verbose #43510 > │ #endif │
00:08:31 verbose #43511 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43512 > │ null |> unbox<unit> │
00:08:31 verbose #43513 > │ () │
00:08:31 verbose #43514 > │ #endif │
00:08:31 verbose #43515 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43516 > │ Unchecked.defaultof<unit> │
00:08:31 verbose #43517 > │ () │
00:08:31 verbose #43518 > │ #endif │
00:08:31 verbose #43519 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #43520 > │ _v8.Value │
00:08:31 verbose #43521 > │ return v1 │
00:08:31 verbose #43522 > │ with ex -> │
00:08:31 verbose #43523 > │ let v10 : exn = ex │
00:08:31 verbose #43524 > │ let v11 : int64 = v1 % 100L │
00:08:31 verbose #43525 > │ let v12 : bool = v11 = 0L │
00:08:31 verbose #43526 > │ if v12 then │
00:08:31 verbose #43527 > │ let v13 : string option = None │
00:08:31 verbose #43528 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:31 verbose #43529 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43530 > │ let v15 : string = $"%A{v10}" │
00:08:31 verbose #43531 > │ v15 │
00:08:31 verbose #43532 > │ #endif │
00:08:31 verbose #43533 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43534 > │ let v16 : string = $"%A{v10}" │
00:08:31 verbose #43535 > │ v16 │
00:08:31 verbose #43536 > │ #endif │
00:08:31 verbose #43537 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43538 > │ let v17 : string = $"%A{v10}" │
00:08:31 verbose #43539 > │ v17 │
00:08:31 verbose #43540 > │ #endif │
00:08:31 verbose #43541 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43542 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43543 > │ let v18 : string = $"{v10.GetType ()}: {v10.Message}" │
00:08:31 verbose #43544 > │ v18 │
00:08:31 verbose #43545 > │ #endif │
00:08:31 verbose #43546 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43547 > │ let v19 : string = $"%A{v10}" │
00:08:31 verbose #43548 > │ v19 │
00:08:31 verbose #43549 > │ #endif │
00:08:31 verbose #43550 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #43551 > │ FABLE_COMPILER_DART │
00:08:31 verbose #43552 > │ let v20 : string = Unchecked.defaultof<string> │
00:08:31 verbose #43553 > │ v20 │
00:08:31 verbose #43554 > │ #endif │
00:08:31 verbose #43555 > │ |> fun x -> _v13 <- Some x │
00:08:31 verbose #43556 > │ let v21 : string = _v13.Value │
00:08:31 verbose #43557 > │ let v22 : US0 = US0_1 │
00:08:31 verbose #43558 > │ let v23 : (unit -> string) = closure3() │
00:08:31 verbose #43559 > │ let v24 : (unit -> string) = closure4(v0, v21) │
00:08:31 verbose #43560 > │ method3(v22, v23, v24) │
00:08:31 verbose #43561 > │ let v25 : Async<unit> option = None │
00:08:31 verbose #43562 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:08:31 verbose #43563 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43564 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43565 > │ v27 │
00:08:31 verbose #43566 > │ #endif │
00:08:31 verbose #43567 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43568 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43569 > │ v28 │
00:08:31 verbose #43570 > │ #endif │
00:08:31 verbose #43571 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43572 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43573 > │ v29 │
00:08:31 verbose #43574 > │ #endif │
00:08:31 verbose #43575 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43576 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43577 > │ let v30 : (int32 -> Async<unit>) = Async.Sleep │
00:08:31 verbose #43578 > │ let v31 : Async<unit> = v30 10 │
00:08:31 verbose #43579 > │ v31 │
00:08:31 verbose #43580 > │ #endif │
00:08:31 verbose #43581 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43582 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43583 > │ v32 │
00:08:31 verbose #43584 > │ #endif │
00:08:31 verbose #43585 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43586 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #43587 > │ v33 │
00:08:31 verbose #43588 > │ #endif │
00:08:31 verbose #43589 > │ |> fun x -> _v25 <- Some x │
00:08:31 verbose #43590 > │ let v34 : Async<unit> = _v25.Value │
00:08:31 verbose #43591 > │ do! v34 │
00:08:31 verbose #43592 > │ let v35 : int64 = v1 + 1L │
00:08:31 verbose #43593 > │ let v36 : Async<int64> = method2(v0, v35) │
00:08:31 verbose #43594 > │ return! v36 │
00:08:31 verbose #43595 > │ (* │
00:08:31 verbose #43596 > │ let v37 : int64 = *) │
00:08:31 verbose #43597 > │ } │
00:08:31 verbose #43598 > │ |> fun x -> _v7 <- Some x │
00:08:31 verbose #43599 > │ let v38 : Async<int64> = _v7 |> Option.get │
00:08:31 verbose #43600 > │ v38 │
00:08:31 verbose #43601 > │ #endif │
00:08:31 verbose #43602 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43603 > │ let v39 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43604 > │ v39 │
00:08:31 verbose #43605 > │ #endif │
00:08:31 verbose #43606 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43607 > │ let v40 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #43608 > │ v40 │
00:08:31 verbose #43609 > │ #endif │
00:08:31 verbose #43610 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #43611 > │ let v41 : Async<int64> = _v2.Value │
00:08:31 verbose #43612 > │ v41 │
00:08:31 verbose #43613 > │ and closure2 () (v0 : string) : Async<int64> = │
00:08:31 verbose #43614 > │ let v1 : Async<int64> option = None │
00:08:31 verbose #43615 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:31 verbose #43616 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43617 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43618 > │ v3 │
00:08:31 verbose #43619 > │ #endif │
00:08:31 verbose #43620 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43621 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43622 > │ v4 │
00:08:31 verbose #43623 > │ #endif │
00:08:31 verbose #43624 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43625 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43626 > │ v5 │
00:08:31 verbose #43627 > │ #endif │
00:08:31 verbose #43628 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43629 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43630 > │ let v6 : int64 = 0L │
00:08:31 verbose #43631 > │ let v7 : Async<int64> = method2(v0, v6) │
00:08:31 verbose #43632 > │ v7 │
00:08:31 verbose #43633 > │ #endif │
00:08:31 verbose #43634 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43635 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43636 > │ v8 │
00:08:31 verbose #43637 > │ #endif │
00:08:31 verbose #43638 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43639 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #43640 > │ v9 │
00:08:31 verbose #43641 > │ #endif │
00:08:31 verbose #43642 > │ |> fun x -> _v1 <- Some x │
00:08:31 verbose #43643 > │ let v10 : Async<int64> = _v1.Value │
00:08:31 verbose #43644 > │ v10 │
00:08:31 verbose #43645 > │ and closure11 () () : string = │
00:08:31 verbose #43646 > │ let v0 : string = "file_system.wait_for_file_access" │
00:08:31 verbose #43647 > │ v0 │
00:08:31 verbose #43648 > │ and closure12 (v0 : string, v1 : int64, v2 : string) () : string = │
00:08:31 verbose #43649 > │ let v3 : (string -> string) = closure5() │
00:08:31 verbose #43650 > │ let v4 : (unit -> string) = closure6() │
00:08:31 verbose #43651 > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:08:31 verbose #43652 > │ v5 │
00:08:31 verbose #43653 > │ and method7 (v0 : string, v1 : US5, v2 : US4, v3 : int64) : Async<int64> = │
00:08:31 verbose #43654 > │ let v4 : Async<int64> option = None │
00:08:31 verbose #43655 > │ let v5 : bool = true in let mutable _v4 = v4 │
00:08:31 verbose #43656 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43657 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43658 > │ v6 │
00:08:31 verbose #43659 > │ #endif │
00:08:31 verbose #43660 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43661 > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43662 > │ v7 │
00:08:31 verbose #43663 > │ #endif │
00:08:31 verbose #43664 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43665 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43666 > │ v8 │
00:08:31 verbose #43667 > │ #endif │
00:08:31 verbose #43668 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43669 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43670 > │ let v9 : Async<int64> option = None │
00:08:31 verbose #43671 > │ let mutable _v9 = v9 │
00:08:31 verbose #43672 > │ async { │
00:08:31 verbose #43673 > │ try │
00:08:31 verbose #43674 > │ let v10 : System.IO.FileStream option = None │
00:08:31 verbose #43675 > │ let v11 : bool = true in let mutable _v10 = v10 │
00:08:31 verbose #43676 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43677 > │ let v12 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43678 > │ v12 │
00:08:31 verbose #43679 > │ #endif │
00:08:31 verbose #43680 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43681 > │ let v13 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43682 > │ v13 │
00:08:31 verbose #43683 > │ #endif │
00:08:31 verbose #43684 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43685 > │ let v14 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43686 > │ v14 │
00:08:31 verbose #43687 > │ #endif │
00:08:31 verbose #43688 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43689 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43690 > │ let v15 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:31 verbose #43691 > │ let v21 : System.IO.FileAccess = │
00:08:31 verbose #43692 > │ match v2 with │
00:08:31 verbose #43693 > │ | US4_0 -> (* AccessRead *) │
00:08:31 verbose #43694 > │ let v16 : System.IO.FileAccess = System.IO.FileAccess.Read │
00:08:31 verbose #43695 > │ v16 │
00:08:31 verbose #43696 > │ | US4_2 -> (* AccessReadWrite *) │
00:08:31 verbose #43697 > │ let v18 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:31 verbose #43698 > │ v18 │
00:08:31 verbose #43699 > │ | US4_1 -> (* AccessWrite *) │
00:08:31 verbose #43700 > │ let v17 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:31 verbose #43701 > │ v17 │
00:08:31 verbose #43702 > │ let v31 : System.IO.FileShare = │
00:08:31 verbose #43703 > │ match v1 with │
00:08:31 verbose #43704 > │ | US5_4 -> (* ShareDelete *) │
00:08:31 verbose #43705 > │ let v26 : System.IO.FileShare = System.IO.FileShare.Delete │
00:08:31 verbose #43706 > │ v26 │
00:08:31 verbose #43707 > │ | US5_0 -> (* ShareNone *) │
00:08:31 verbose #43708 > │ let v22 : System.IO.FileShare = System.IO.FileShare.None │
00:08:31 verbose #43709 > │ v22 │
00:08:31 verbose #43710 > │ | US5_1 -> (* ShareRead *) │
00:08:31 verbose #43711 > │ let v23 : System.IO.FileShare = System.IO.FileShare.Read │
00:08:31 verbose #43712 > │ v23 │
00:08:31 verbose #43713 > │ | US5_3 -> (* ShareReadWrite *) │
00:08:31 verbose #43714 > │ let v25 : System.IO.FileShare = System.IO.FileShare.ReadWrite │
00:08:31 verbose #43715 > │ v25 │
00:08:31 verbose #43716 > │ | US5_2 -> (* ShareWrite *) │
00:08:31 verbose #43717 > │ let v24 : System.IO.FileShare = System.IO.FileShare.Write │
00:08:31 verbose #43718 > │ v24 │
00:08:31 verbose #43719 > │ let v32 : System.IO.FileStream = new System.IO.FileStream (v0, v15, v21, │
00:08:31 verbose #43720 > │ v31) │
00:08:31 verbose #43721 > │ v32 │
00:08:31 verbose #43722 > │ #endif │
00:08:31 verbose #43723 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43724 > │ let v33 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43725 > │ v33 │
00:08:31 verbose #43726 > │ #endif │
00:08:31 verbose #43727 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43728 > │ let v34 : System.IO.FileStream = │
00:08:31 verbose #43729 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:31 verbose #43730 > │ v34 │
00:08:31 verbose #43731 > │ #endif │
00:08:31 verbose #43732 > │ |> fun x -> _v10 <- Some x │
00:08:31 verbose #43733 > │ let v35 : System.IO.FileStream = _v10.Value │
00:08:31 verbose #43734 > │ use v35 = v35 │
00:08:31 verbose #43735 > │ let v36 : System.IO.FileStream = v35 │
00:08:31 verbose #43736 > │ return v3 │
00:08:31 verbose #43737 > │ with ex -> │
00:08:31 verbose #43738 > │ let v37 : exn = ex │
00:08:31 verbose #43739 > │ let v38 : bool = v3 > 0L │
00:08:31 verbose #43740 > │ let v41 : bool = │
00:08:31 verbose #43741 > │ if v38 then │
00:08:31 verbose #43742 > │ let v39 : int64 = v3 % 100L │
00:08:31 verbose #43743 > │ let v40 : bool = v39 = 0L │
00:08:31 verbose #43744 > │ v40 │
00:08:31 verbose #43745 > │ else │
00:08:31 verbose #43746 > │ false │
00:08:31 verbose #43747 > │ if v41 then │
00:08:31 verbose #43748 > │ let v42 : string option = None │
00:08:31 verbose #43749 > │ let v43 : bool = true in let mutable _v42 = v42 │
00:08:31 verbose #43750 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43751 > │ let v44 : string = $"%A{v37}" │
00:08:31 verbose #43752 > │ v44 │
00:08:31 verbose #43753 > │ #endif │
00:08:31 verbose #43754 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43755 > │ let v45 : string = $"%A{v37}" │
00:08:31 verbose #43756 > │ v45 │
00:08:31 verbose #43757 > │ #endif │
00:08:31 verbose #43758 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43759 > │ let v46 : string = $"%A{v37}" │
00:08:31 verbose #43760 > │ v46 │
00:08:31 verbose #43761 > │ #endif │
00:08:31 verbose #43762 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43763 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43764 > │ let v47 : string = $"{v37.GetType ()}: {v37.Message}" │
00:08:31 verbose #43765 > │ v47 │
00:08:31 verbose #43766 > │ #endif │
00:08:31 verbose #43767 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43768 > │ let v48 : string = $"%A{v37}" │
00:08:31 verbose #43769 > │ v48 │
00:08:31 verbose #43770 > │ #endif │
00:08:31 verbose #43771 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #43772 > │ FABLE_COMPILER_DART │
00:08:31 verbose #43773 > │ let v49 : string = Unchecked.defaultof<string> │
00:08:31 verbose #43774 > │ v49 │
00:08:31 verbose #43775 > │ #endif │
00:08:31 verbose #43776 > │ |> fun x -> _v42 <- Some x │
00:08:31 verbose #43777 > │ let v50 : string = _v42.Value │
00:08:31 verbose #43778 > │ let v51 : US0 = US0_1 │
00:08:31 verbose #43779 > │ let v52 : (unit -> string) = closure11() │
00:08:31 verbose #43780 > │ let v53 : (unit -> string) = closure12(v0, v3, v50) │
00:08:31 verbose #43781 > │ method3(v51, v52, v53) │
00:08:31 verbose #43782 > │ let v54 : Async<unit> option = None │
00:08:31 verbose #43783 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:08:31 verbose #43784 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43785 > │ let v56 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43786 > │ v56 │
00:08:31 verbose #43787 > │ #endif │
00:08:31 verbose #43788 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43789 > │ let v57 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43790 > │ v57 │
00:08:31 verbose #43791 > │ #endif │
00:08:31 verbose #43792 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43793 > │ let v58 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43794 > │ v58 │
00:08:31 verbose #43795 > │ #endif │
00:08:31 verbose #43796 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43797 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43798 > │ let v59 : (int32 -> Async<unit>) = Async.Sleep │
00:08:31 verbose #43799 > │ let v60 : Async<unit> = v59 10 │
00:08:31 verbose #43800 > │ v60 │
00:08:31 verbose #43801 > │ #endif │
00:08:31 verbose #43802 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43803 > │ let v61 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43804 > │ v61 │
00:08:31 verbose #43805 > │ #endif │
00:08:31 verbose #43806 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43807 > │ let v62 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #43808 > │ v62 │
00:08:31 verbose #43809 > │ #endif │
00:08:31 verbose #43810 > │ |> fun x -> _v54 <- Some x │
00:08:31 verbose #43811 > │ let v63 : Async<unit> = _v54.Value │
00:08:31 verbose #43812 > │ do! v63 │
00:08:31 verbose #43813 > │ let v64 : int64 = v3 + 1L │
00:08:31 verbose #43814 > │ let v65 : Async<int64> = method7(v0, v1, v2, v64) │
00:08:31 verbose #43815 > │ return! v65 │
00:08:31 verbose #43816 > │ (* │
00:08:31 verbose #43817 > │ let v66 : int64 = *) │
00:08:31 verbose #43818 > │ } │
00:08:31 verbose #43819 > │ |> fun x -> _v9 <- Some x │
00:08:31 verbose #43820 > │ let v67 : Async<int64> = _v9 |> Option.get │
00:08:31 verbose #43821 > │ v67 │
00:08:31 verbose #43822 > │ #endif │
00:08:31 verbose #43823 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43824 > │ let v68 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43825 > │ v68 │
00:08:31 verbose #43826 > │ #endif │
00:08:31 verbose #43827 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43828 > │ let v69 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #43829 > │ v69 │
00:08:31 verbose #43830 > │ #endif │
00:08:31 verbose #43831 > │ |> fun x -> _v4 <- Some x │
00:08:31 verbose #43832 > │ let v70 : Async<int64> = _v4.Value │
00:08:31 verbose #43833 > │ v70 │
00:08:31 verbose #43834 > │ and closure10 (v0 : US3) (v1 : string) : Async<int64> = │
00:08:31 verbose #43835 > │ let v2 : Async<int64> option = None │
00:08:31 verbose #43836 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #43837 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43838 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43839 > │ v4 │
00:08:31 verbose #43840 > │ #endif │
00:08:31 verbose #43841 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43842 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43843 > │ v5 │
00:08:31 verbose #43844 > │ #endif │
00:08:31 verbose #43845 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43846 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43847 > │ v6 │
00:08:31 verbose #43848 > │ #endif │
00:08:31 verbose #43849 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43850 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43851 > │ let struct (v13 : US4, v14 : US5) = │
00:08:31 verbose #43852 > │ match v0 with │
00:08:31 verbose #43853 > │ | US3_1 -> (* None *) │
00:08:31 verbose #43854 > │ let v9 : US4 = US4_2 │
00:08:31 verbose #43855 > │ let v10 : US5 = US5_1 │
00:08:31 verbose #43856 > │ struct (v9, v10) │
00:08:31 verbose #43857 > │ | US3_0(v7, v8) -> (* Some *) │
00:08:31 verbose #43858 > │ struct (v7, v8) │
00:08:31 verbose #43859 > │ let v15 : int64 = 0L │
00:08:31 verbose #43860 > │ let v16 : Async<int64> = method7(v1, v14, v13, v15) │
00:08:31 verbose #43861 > │ v16 │
00:08:31 verbose #43862 > │ #endif │
00:08:31 verbose #43863 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43864 > │ let v17 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43865 > │ v17 │
00:08:31 verbose #43866 > │ #endif │
00:08:31 verbose #43867 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43868 > │ let v18 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #43869 > │ v18 │
00:08:31 verbose #43870 > │ #endif │
00:08:31 verbose #43871 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #43872 > │ let v19 : Async<int64> = _v2.Value │
00:08:31 verbose #43873 > │ v19 │
00:08:31 verbose #43874 > │ and closure9 () (v0 : US3) : (string -> Async<int64>) = │
00:08:31 verbose #43875 > │ closure10(v0) │
00:08:31 verbose #43876 > │ and method8 (v0 : string, v1 : int64) : Async<int64> = │
00:08:31 verbose #43877 > │ let v2 : Async<int64> option = None │
00:08:31 verbose #43878 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #43879 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43880 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43881 > │ v4 │
00:08:31 verbose #43882 > │ #endif │
00:08:31 verbose #43883 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43884 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43885 > │ v5 │
00:08:31 verbose #43886 > │ #endif │
00:08:31 verbose #43887 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43888 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #43889 > │ v6 │
00:08:31 verbose #43890 > │ #endif │
00:08:31 verbose #43891 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43892 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43893 > │ let v7 : Async<int64> option = None │
00:08:31 verbose #43894 > │ let mutable _v7 = v7 │
00:08:31 verbose #43895 > │ async { │
00:08:31 verbose #43896 > │ try │
00:08:31 verbose #43897 > │ let v8 : System.IO.FileStream option = None │
00:08:31 verbose #43898 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #43899 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43900 > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43901 > │ v10 │
00:08:31 verbose #43902 > │ #endif │
00:08:31 verbose #43903 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43904 > │ let v11 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43905 > │ v11 │
00:08:31 verbose #43906 > │ #endif │
00:08:31 verbose #43907 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43908 > │ let v12 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43909 > │ v12 │
00:08:31 verbose #43910 > │ #endif │
00:08:31 verbose #43911 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43912 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43913 > │ let v13 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:31 verbose #43914 > │ let v14 : System.IO.FileAccess = System.IO.FileAccess.Read │
00:08:31 verbose #43915 > │ let v15 : System.IO.FileShare = System.IO.FileShare.Read │
00:08:31 verbose #43916 > │ let v16 : System.IO.FileStream = new System.IO.FileStream (v0, v13, v14, │
00:08:31 verbose #43917 > │ v15) │
00:08:31 verbose #43918 > │ v16 │
00:08:31 verbose #43919 > │ #endif │
00:08:31 verbose #43920 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43921 > │ let v17 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:31 verbose #43922 > │ v17 │
00:08:31 verbose #43923 > │ #endif │
00:08:31 verbose #43924 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #43925 > │ let v18 : System.IO.FileStream = │
00:08:31 verbose #43926 > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:31 verbose #43927 > │ v18 │
00:08:31 verbose #43928 > │ #endif │
00:08:31 verbose #43929 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #43930 > │ let v19 : System.IO.FileStream = _v8.Value │
00:08:31 verbose #43931 > │ use v19 = v19 │
00:08:31 verbose #43932 > │ let v20 : System.IO.FileStream = v19 │
00:08:31 verbose #43933 > │ return v1 │
00:08:31 verbose #43934 > │ with ex -> │
00:08:31 verbose #43935 > │ let v21 : exn = ex │
00:08:31 verbose #43936 > │ let v22 : bool = v1 > 0L │
00:08:31 verbose #43937 > │ let v25 : bool = │
00:08:31 verbose #43938 > │ if v22 then │
00:08:31 verbose #43939 > │ let v23 : int64 = v1 % 100L │
00:08:31 verbose #43940 > │ let v24 : bool = v23 = 0L │
00:08:31 verbose #43941 > │ v24 │
00:08:31 verbose #43942 > │ else │
00:08:31 verbose #43943 > │ false │
00:08:31 verbose #43944 > │ if v25 then │
00:08:31 verbose #43945 > │ let v26 : string option = None │
00:08:31 verbose #43946 > │ let v27 : bool = true in let mutable _v26 = v26 │
00:08:31 verbose #43947 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43948 > │ let v28 : string = $"%A{v21}" │
00:08:31 verbose #43949 > │ v28 │
00:08:31 verbose #43950 > │ #endif │
00:08:31 verbose #43951 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43952 > │ let v29 : string = $"%A{v21}" │
00:08:31 verbose #43953 > │ v29 │
00:08:31 verbose #43954 > │ #endif │
00:08:31 verbose #43955 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43956 > │ let v30 : string = $"%A{v21}" │
00:08:31 verbose #43957 > │ v30 │
00:08:31 verbose #43958 > │ #endif │
00:08:31 verbose #43959 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43960 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43961 > │ let v31 : string = $"{v21.GetType ()}: {v21.Message}" │
00:08:31 verbose #43962 > │ v31 │
00:08:31 verbose #43963 > │ #endif │
00:08:31 verbose #43964 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #43965 > │ let v32 : string = $"%A{v21}" │
00:08:31 verbose #43966 > │ v32 │
00:08:31 verbose #43967 > │ #endif │
00:08:31 verbose #43968 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #43969 > │ FABLE_COMPILER_DART │
00:08:31 verbose #43970 > │ let v33 : string = Unchecked.defaultof<string> │
00:08:31 verbose #43971 > │ v33 │
00:08:31 verbose #43972 > │ #endif │
00:08:31 verbose #43973 > │ |> fun x -> _v26 <- Some x │
00:08:31 verbose #43974 > │ let v34 : string = _v26.Value │
00:08:31 verbose #43975 > │ let v35 : US0 = US0_1 │
00:08:31 verbose #43976 > │ let v36 : (unit -> string) = closure11() │
00:08:31 verbose #43977 > │ let v37 : (unit -> string) = closure12(v0, v1, v34) │
00:08:31 verbose #43978 > │ method3(v35, v36, v37) │
00:08:31 verbose #43979 > │ let v38 : Async<unit> option = None │
00:08:31 verbose #43980 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:08:31 verbose #43981 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #43982 > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43983 > │ v40 │
00:08:31 verbose #43984 > │ #endif │
00:08:31 verbose #43985 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #43986 > │ let v41 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43987 > │ v41 │
00:08:31 verbose #43988 > │ #endif │
00:08:31 verbose #43989 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #43990 > │ let v42 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #43991 > │ v42 │
00:08:31 verbose #43992 > │ #endif │
00:08:31 verbose #43993 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #43994 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #43995 > │ let v43 : (int32 -> Async<unit>) = Async.Sleep │
00:08:31 verbose #43996 > │ let v44 : Async<unit> = v43 10 │
00:08:31 verbose #43997 > │ v44 │
00:08:31 verbose #43998 > │ #endif │
00:08:31 verbose #43999 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44000 > │ let v45 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44001 > │ v45 │
00:08:31 verbose #44002 > │ #endif │
00:08:31 verbose #44003 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44004 > │ let v46 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44005 > │ v46 │
00:08:31 verbose #44006 > │ #endif │
00:08:31 verbose #44007 > │ |> fun x -> _v38 <- Some x │
00:08:31 verbose #44008 > │ let v47 : Async<unit> = _v38.Value │
00:08:31 verbose #44009 > │ do! v47 │
00:08:31 verbose #44010 > │ let v48 : int64 = v1 + 1L │
00:08:31 verbose #44011 > │ let v49 : Async<int64> = method8(v0, v48) │
00:08:31 verbose #44012 > │ return! v49 │
00:08:31 verbose #44013 > │ (* │
00:08:31 verbose #44014 > │ let v50 : int64 = *) │
00:08:31 verbose #44015 > │ } │
00:08:31 verbose #44016 > │ |> fun x -> _v7 <- Some x │
00:08:31 verbose #44017 > │ let v51 : Async<int64> = _v7 |> Option.get │
00:08:31 verbose #44018 > │ v51 │
00:08:31 verbose #44019 > │ #endif │
00:08:31 verbose #44020 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44021 > │ let v52 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44022 > │ v52 │
00:08:31 verbose #44023 > │ #endif │
00:08:31 verbose #44024 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44025 > │ let v53 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #44026 > │ v53 │
00:08:31 verbose #44027 > │ #endif │
00:08:31 verbose #44028 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #44029 > │ let v54 : Async<int64> = _v2.Value │
00:08:31 verbose #44030 > │ v54 │
00:08:31 verbose #44031 > │ and closure13 () (v0 : string) : Async<int64> = │
00:08:31 verbose #44032 > │ let v1 : Async<int64> option = None │
00:08:31 verbose #44033 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:31 verbose #44034 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44035 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44036 > │ v3 │
00:08:31 verbose #44037 > │ #endif │
00:08:31 verbose #44038 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44039 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44040 > │ v4 │
00:08:31 verbose #44041 > │ #endif │
00:08:31 verbose #44042 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44043 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44044 > │ v5 │
00:08:31 verbose #44045 > │ #endif │
00:08:31 verbose #44046 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44047 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44048 > │ let v6 : int64 = 0L │
00:08:31 verbose #44049 > │ let v7 : Async<int64> = method8(v0, v6) │
00:08:31 verbose #44050 > │ v7 │
00:08:31 verbose #44051 > │ #endif │
00:08:31 verbose #44052 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44053 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44054 > │ v8 │
00:08:31 verbose #44055 > │ #endif │
00:08:31 verbose #44056 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44057 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #44058 > │ v9 │
00:08:31 verbose #44059 > │ #endif │
00:08:31 verbose #44060 > │ |> fun x -> _v1 <- Some x │
00:08:31 verbose #44061 > │ let v10 : Async<int64> = _v1.Value │
00:08:31 verbose #44062 > │ v10 │
00:08:31 verbose #44063 > │ and closure14 () (v0 : string) : Async<string> = │
00:08:31 verbose #44064 > │ let v1 : Async<string> option = None │
00:08:31 verbose #44065 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:31 verbose #44066 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44067 > │ let v3 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44068 > │ v3 │
00:08:31 verbose #44069 > │ #endif │
00:08:31 verbose #44070 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44071 > │ let v4 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44072 > │ v4 │
00:08:31 verbose #44073 > │ #endif │
00:08:31 verbose #44074 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44075 > │ let v5 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44076 > │ v5 │
00:08:31 verbose #44077 > │ #endif │
00:08:31 verbose #44078 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44079 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44080 > │ let v6 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:31 verbose #44081 > │ System.IO.File.ReadAllTextAsync │
00:08:31 verbose #44082 > │ let v7 : System.Threading.Tasks.Task<string> = v6 v0 │
00:08:31 verbose #44083 > │ let v8 : Async<string> option = None │
00:08:31 verbose #44084 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #44085 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44086 > │ let v10 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44087 > │ v10 │
00:08:31 verbose #44088 > │ #endif │
00:08:31 verbose #44089 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44090 > │ let v11 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44091 > │ v11 │
00:08:31 verbose #44092 > │ #endif │
00:08:31 verbose #44093 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44094 > │ let v12 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44095 > │ v12 │
00:08:31 verbose #44096 > │ #endif │
00:08:31 verbose #44097 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44098 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44099 > │ let v13 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:31 verbose #44100 > │ Async.AwaitTask │
00:08:31 verbose #44101 > │ let v14 : Async<string> = v13 v7 │
00:08:31 verbose #44102 > │ v14 │
00:08:31 verbose #44103 > │ #endif │
00:08:31 verbose #44104 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44105 > │ let v15 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44106 > │ v15 │
00:08:31 verbose #44107 > │ #endif │
00:08:31 verbose #44108 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44109 > │ let v16 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #44110 > │ v16 │
00:08:31 verbose #44111 > │ #endif │
00:08:31 verbose #44112 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #44113 > │ let v17 : Async<string> = _v8.Value │
00:08:31 verbose #44114 > │ v17 │
00:08:31 verbose #44115 > │ #endif │
00:08:31 verbose #44116 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44117 > │ let v18 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44118 > │ v18 │
00:08:31 verbose #44119 > │ #endif │
00:08:31 verbose #44120 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44121 > │ let v19 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #44122 > │ v19 │
00:08:31 verbose #44123 > │ #endif │
00:08:31 verbose #44124 > │ |> fun x -> _v1 <- Some x │
00:08:31 verbose #44125 > │ let v20 : Async<string> = _v1.Value │
00:08:31 verbose #44126 > │ v20 │
00:08:31 verbose #44127 > │ and method9 (v0 : string) : string = │
00:08:31 verbose #44128 > │ v0 │
00:08:31 verbose #44129 > │ and closure16 (v0 : string) (v1 : string) : Async<bool> = │
00:08:31 verbose #44130 > │ let v2 : Async<bool> option = None │
00:08:31 verbose #44131 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #44132 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44133 > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44134 > │ v4 │
00:08:31 verbose #44135 > │ #endif │
00:08:31 verbose #44136 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44137 > │ let v5 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44138 > │ v5 │
00:08:31 verbose #44139 > │ #endif │
00:08:31 verbose #44140 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44141 > │ let v6 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44142 > │ v6 │
00:08:31 verbose #44143 > │ #endif │
00:08:31 verbose #44144 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44145 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44146 > │ let v7 : Async<bool> option = None │
00:08:31 verbose #44147 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:08:31 verbose #44148 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44149 > │ let v9 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44150 > │ v9 │
00:08:31 verbose #44151 > │ #endif │
00:08:31 verbose #44152 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44153 > │ let v10 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44154 > │ v10 │
00:08:31 verbose #44155 > │ #endif │
00:08:31 verbose #44156 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44157 > │ let v11 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44158 > │ v11 │
00:08:31 verbose #44159 > │ #endif │
00:08:31 verbose #44160 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44161 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44162 > │ let v12 : Async<bool> option = None │
00:08:31 verbose #44163 > │ let mutable _v12 = v12 │
00:08:31 verbose #44164 > │ async { │
00:08:31 verbose #44165 > │ let v13 : bool option = None │
00:08:31 verbose #44166 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:31 verbose #44167 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44168 > │ let v15 : string = method9(v0) │
00:08:31 verbose #44169 > │ let v16 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #44170 > │ let v17 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v15 v16 │
00:08:31 verbose #44171 > │ let v18 : string = "String::from($0)" │
00:08:31 verbose #44172 > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:08:31 verbose #44173 > │ v18 │
00:08:31 verbose #44174 > │ let v20 : string = "std::path::PathBuf::from($0)" │
00:08:31 verbose #44175 > │ let v21 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:31 verbose #44176 > │ let v22 : string = "$0.exists()" │
00:08:31 verbose #44177 > │ let v23 : bool = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:08:31 verbose #44178 > │ let v26 : bool = │
00:08:31 verbose #44179 > │ if v23 then │
00:08:31 verbose #44180 > │ let v24 : string = "$0.is_file()" │
00:08:31 verbose #44181 > │ let v25 : bool = Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:08:31 verbose #44182 > │ v25 │
00:08:31 verbose #44183 > │ else │
00:08:31 verbose #44184 > │ false │
00:08:31 verbose #44185 > │ v26 │
00:08:31 verbose #44186 > │ #endif │
00:08:31 verbose #44187 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44188 > │ let v27 : bool = null |> unbox<bool> │
00:08:31 verbose #44189 > │ v27 │
00:08:31 verbose #44190 > │ #endif │
00:08:31 verbose #44191 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44192 > │ let v28 : bool = null |> unbox<bool> │
00:08:31 verbose #44193 > │ v28 │
00:08:31 verbose #44194 > │ #endif │
00:08:31 verbose #44195 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44196 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44197 > │ let v29 : (string -> bool) = System.IO.File.Exists │
00:08:31 verbose #44198 > │ let v30 : bool = v29 v0 │
00:08:31 verbose #44199 > │ v30 │
00:08:31 verbose #44200 > │ #endif │
00:08:31 verbose #44201 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44202 > │ let v31 : string = "fs" │
00:08:31 verbose #44203 > │ let v32 : IFsExistsSync = Fable.Core.JsInterop.importAll v31 │
00:08:31 verbose #44204 > │ let v33 : string = "v32.existsSync($0)" │
00:08:31 verbose #44205 > │ let v34 : bool = Fable.Core.JsInterop.emitJsExpr v0 v33 │
00:08:31 verbose #44206 > │ v34 │
00:08:31 verbose #44207 > │ #endif │
00:08:31 verbose #44208 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44209 > │ let v35 : bool = Unchecked.defaultof<bool> │
00:08:31 verbose #44210 > │ v35 │
00:08:31 verbose #44211 > │ #endif │
00:08:31 verbose #44212 > │ |> fun x -> _v13 <- Some x │
00:08:31 verbose #44213 > │ let v36 : bool = _v13.Value │
00:08:31 verbose #44214 > │ let v37 : bool = v36 = false │
00:08:31 verbose #44215 > │ if v37 then │
00:08:31 verbose #44216 > │ return false │
00:08:31 verbose #44217 > │ (* │
00:08:31 verbose #44218 > │ () │
00:08:31 verbose #44219 > │ else │
00:08:31 verbose #44220 > │ *) else │
00:08:31 verbose #44221 > │ let v38 : Async<string> option = None │
00:08:31 verbose #44222 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:08:31 verbose #44223 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44224 > │ let v40 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44225 > │ v40 │
00:08:31 verbose #44226 > │ #endif │
00:08:31 verbose #44227 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44228 > │ let v41 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44229 > │ v41 │
00:08:31 verbose #44230 > │ #endif │
00:08:31 verbose #44231 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44232 > │ let v42 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44233 > │ v42 │
00:08:31 verbose #44234 > │ #endif │
00:08:31 verbose #44235 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44236 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44237 > │ let v43 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:31 verbose #44238 > │ System.IO.File.ReadAllTextAsync │
00:08:31 verbose #44239 > │ let v44 : System.Threading.Tasks.Task<string> = v43 v0 │
00:08:31 verbose #44240 > │ let v45 : Async<string> option = None │
00:08:31 verbose #44241 > │ let v46 : bool = true in let mutable _v45 = v45 │
00:08:31 verbose #44242 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44243 > │ let v47 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44244 > │ v47 │
00:08:31 verbose #44245 > │ #endif │
00:08:31 verbose #44246 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44247 > │ let v48 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44248 > │ v48 │
00:08:31 verbose #44249 > │ #endif │
00:08:31 verbose #44250 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44251 > │ let v49 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44252 > │ v49 │
00:08:31 verbose #44253 > │ #endif │
00:08:31 verbose #44254 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44255 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44256 > │ let v50 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:31 verbose #44257 > │ Async.AwaitTask │
00:08:31 verbose #44258 > │ let v51 : Async<string> = v50 v44 │
00:08:31 verbose #44259 > │ v51 │
00:08:31 verbose #44260 > │ #endif │
00:08:31 verbose #44261 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44262 > │ let v52 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44263 > │ v52 │
00:08:31 verbose #44264 > │ #endif │
00:08:31 verbose #44265 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #44266 > │ FABLE_COMPILER_DART │
00:08:31 verbose #44267 > │ let v53 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #44268 > │ v53 │
00:08:31 verbose #44269 > │ #endif │
00:08:31 verbose #44270 > │ |> fun x -> _v45 <- Some x │
00:08:31 verbose #44271 > │ let v54 : Async<string> = _v45.Value │
00:08:31 verbose #44272 > │ v54 │
00:08:31 verbose #44273 > │ #endif │
00:08:31 verbose #44274 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44275 > │ let v55 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44276 > │ v55 │
00:08:31 verbose #44277 > │ #endif │
00:08:31 verbose #44278 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #44279 > │ FABLE_COMPILER_DART │
00:08:31 verbose #44280 > │ let v56 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #44281 > │ v56 │
00:08:31 verbose #44282 > │ #endif │
00:08:31 verbose #44283 > │ |> fun x -> _v38 <- Some x │
00:08:31 verbose #44284 > │ let v57 : Async<string> = _v38.Value │
00:08:31 verbose #44285 > │ let! v57 = v57 │
00:08:31 verbose #44286 > │ let v58 : string = v57 │
00:08:31 verbose #44287 > │ let v59 : bool = v1 = v58 │
00:08:31 verbose #44288 > │ return v59 │
00:08:31 verbose #44289 > │ (* │
00:08:31 verbose #44290 > │ () │
00:08:31 verbose #44291 > │ *) │
00:08:31 verbose #44292 > │ } │
00:08:31 verbose #44293 > │ |> fun x -> _v12 <- Some x │
00:08:31 verbose #44294 > │ let v60 : Async<bool> = _v12 |> Option.get │
00:08:31 verbose #44295 > │ v60 │
00:08:31 verbose #44296 > │ #endif │
00:08:31 verbose #44297 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44298 > │ let v61 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44299 > │ v61 │
00:08:31 verbose #44300 > │ #endif │
00:08:31 verbose #44301 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44302 > │ let v62 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:31 verbose #44303 > │ v62 │
00:08:31 verbose #44304 > │ #endif │
00:08:31 verbose #44305 > │ |> fun x -> _v7 <- Some x │
00:08:31 verbose #44306 > │ let v63 : Async<bool> = _v7.Value │
00:08:31 verbose #44307 > │ v63 │
00:08:31 verbose #44308 > │ #endif │
00:08:31 verbose #44309 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44310 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44311 > │ v64 │
00:08:31 verbose #44312 > │ #endif │
00:08:31 verbose #44313 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44314 > │ let v65 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:31 verbose #44315 > │ v65 │
00:08:31 verbose #44316 > │ #endif │
00:08:31 verbose #44317 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #44318 > │ let v66 : Async<bool> = _v2.Value │
00:08:31 verbose #44319 > │ v66 │
00:08:31 verbose #44320 > │ and closure15 () (v0 : string) : (string -> Async<bool>) = │
00:08:31 verbose #44321 > │ closure16(v0) │
00:08:31 verbose #44322 > │ and closure18 (v0 : string) (v1 : string) : Async<unit> = │
00:08:31 verbose #44323 > │ let v2 : Async<unit> option = None │
00:08:31 verbose #44324 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #44325 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44326 > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44327 > │ v4 │
00:08:31 verbose #44328 > │ #endif │
00:08:31 verbose #44329 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44330 > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44331 > │ v5 │
00:08:31 verbose #44332 > │ #endif │
00:08:31 verbose #44333 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44334 > │ let v6 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44335 > │ v6 │
00:08:31 verbose #44336 > │ #endif │
00:08:31 verbose #44337 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44338 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44339 > │ let v7 : System.Threading.Tasks.Task = System.IO.File.WriteAllTextAsync │
00:08:31 verbose #44340 > │ (v0, v1) │
00:08:31 verbose #44341 > │ let v8 : Async<unit> option = None │
00:08:31 verbose #44342 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #44343 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44344 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44345 > │ v10 │
00:08:31 verbose #44346 > │ #endif │
00:08:31 verbose #44347 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44348 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44349 > │ v11 │
00:08:31 verbose #44350 > │ #endif │
00:08:31 verbose #44351 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44352 > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44353 > │ v12 │
00:08:31 verbose #44354 > │ #endif │
00:08:31 verbose #44355 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44356 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44357 > │ let v13 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:08:31 verbose #44358 > │ let v14 : Async<unit> = v13 v7 │
00:08:31 verbose #44359 > │ v14 │
00:08:31 verbose #44360 > │ #endif │
00:08:31 verbose #44361 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44362 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44363 > │ v15 │
00:08:31 verbose #44364 > │ #endif │
00:08:31 verbose #44365 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44366 > │ let v16 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44367 > │ v16 │
00:08:31 verbose #44368 > │ #endif │
00:08:31 verbose #44369 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #44370 > │ let v17 : Async<unit> = _v8.Value │
00:08:31 verbose #44371 > │ v17 │
00:08:31 verbose #44372 > │ #endif │
00:08:31 verbose #44373 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44374 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44375 > │ v18 │
00:08:31 verbose #44376 > │ #endif │
00:08:31 verbose #44377 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44378 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44379 > │ v19 │
00:08:31 verbose #44380 > │ #endif │
00:08:31 verbose #44381 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #44382 > │ let v20 : Async<unit> = _v2.Value │
00:08:31 verbose #44383 > │ v20 │
00:08:31 verbose #44384 > │ and closure17 () (v0 : string) : (string -> Async<unit>) = │
00:08:31 verbose #44385 > │ closure18(v0) │
00:08:31 verbose #44386 > │ and closure20 (v0 : string) (v1 : string) : Async<unit> = │
00:08:31 verbose #44387 > │ let v2 : Async<unit> option = None │
00:08:31 verbose #44388 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #44389 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44390 > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44391 > │ v4 │
00:08:31 verbose #44392 > │ #endif │
00:08:31 verbose #44393 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44394 > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44395 > │ v5 │
00:08:31 verbose #44396 > │ #endif │
00:08:31 verbose #44397 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44398 > │ let v6 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44399 > │ v6 │
00:08:31 verbose #44400 > │ #endif │
00:08:31 verbose #44401 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44402 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44403 > │ let v7 : Async<unit> option = None │
00:08:31 verbose #44404 > │ let mutable _v7 = v7 │
00:08:31 verbose #44405 > │ async { │
00:08:31 verbose #44406 > │ let v8 : Async<bool> option = None │
00:08:31 verbose #44407 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #44408 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44409 > │ let v10 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44410 > │ v10 │
00:08:31 verbose #44411 > │ #endif │
00:08:31 verbose #44412 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44413 > │ let v11 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44414 > │ v11 │
00:08:31 verbose #44415 > │ #endif │
00:08:31 verbose #44416 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44417 > │ let v12 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44418 > │ v12 │
00:08:31 verbose #44419 > │ #endif │
00:08:31 verbose #44420 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44421 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44422 > │ let v13 : Async<bool> option = None │
00:08:31 verbose #44423 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:08:31 verbose #44424 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44425 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44426 > │ v15 │
00:08:31 verbose #44427 > │ #endif │
00:08:31 verbose #44428 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44429 > │ let v16 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44430 > │ v16 │
00:08:31 verbose #44431 > │ #endif │
00:08:31 verbose #44432 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44433 > │ let v17 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44434 > │ v17 │
00:08:31 verbose #44435 > │ #endif │
00:08:31 verbose #44436 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44437 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44438 > │ let v18 : Async<bool> option = None │
00:08:31 verbose #44439 > │ let mutable _v18 = v18 │
00:08:31 verbose #44440 > │ async { │
00:08:31 verbose #44441 > │ let v19 : bool option = None │
00:08:31 verbose #44442 > │ let v20 : bool = true in let mutable _v19 = v19 │
00:08:31 verbose #44443 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44444 > │ let v21 : string = method9(v0) │
00:08:31 verbose #44445 > │ let v22 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #44446 > │ let v23 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:08:31 verbose #44447 > │ let v24 : string = "String::from($0)" │
00:08:31 verbose #44448 > │ let v25 : std_string_String = Fable.Core.RustInterop.emitRustExpr v23 │
00:08:31 verbose #44449 > │ v24 │
00:08:31 verbose #44450 > │ let v26 : string = "std::path::PathBuf::from($0)" │
00:08:31 verbose #44451 > │ let v27 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v25 v26 │
00:08:31 verbose #44452 > │ let v28 : string = "$0.exists()" │
00:08:31 verbose #44453 > │ let v29 : bool = Fable.Core.RustInterop.emitRustExpr v27 v28 │
00:08:31 verbose #44454 > │ let v32 : bool = │
00:08:31 verbose #44455 > │ if v29 then │
00:08:31 verbose #44456 > │ let v30 : string = "$0.is_file()" │
00:08:31 verbose #44457 > │ let v31 : bool = Fable.Core.RustInterop.emitRustExpr v27 v30 │
00:08:31 verbose #44458 > │ v31 │
00:08:31 verbose #44459 > │ else │
00:08:31 verbose #44460 > │ false │
00:08:31 verbose #44461 > │ v32 │
00:08:31 verbose #44462 > │ #endif │
00:08:31 verbose #44463 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44464 > │ let v33 : bool = null |> unbox<bool> │
00:08:31 verbose #44465 > │ v33 │
00:08:31 verbose #44466 > │ #endif │
00:08:31 verbose #44467 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44468 > │ let v34 : bool = null |> unbox<bool> │
00:08:31 verbose #44469 > │ v34 │
00:08:31 verbose #44470 > │ #endif │
00:08:31 verbose #44471 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44472 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44473 > │ let v35 : (string -> bool) = System.IO.File.Exists │
00:08:31 verbose #44474 > │ let v36 : bool = v35 v0 │
00:08:31 verbose #44475 > │ v36 │
00:08:31 verbose #44476 > │ #endif │
00:08:31 verbose #44477 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44478 > │ let v37 : string = "fs" │
00:08:31 verbose #44479 > │ let v38 : IFsExistsSync = Fable.Core.JsInterop.importAll v37 │
00:08:31 verbose #44480 > │ let v39 : string = "v38.existsSync($0)" │
00:08:31 verbose #44481 > │ let v40 : bool = Fable.Core.JsInterop.emitJsExpr v0 v39 │
00:08:31 verbose #44482 > │ v40 │
00:08:31 verbose #44483 > │ #endif │
00:08:31 verbose #44484 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44485 > │ let v41 : bool = Unchecked.defaultof<bool> │
00:08:31 verbose #44486 > │ v41 │
00:08:31 verbose #44487 > │ #endif │
00:08:31 verbose #44488 > │ |> fun x -> _v19 <- Some x │
00:08:31 verbose #44489 > │ let v42 : bool = _v19.Value │
00:08:31 verbose #44490 > │ let v43 : bool = v42 = false │
00:08:31 verbose #44491 > │ if v43 then │
00:08:31 verbose #44492 > │ return false │
00:08:31 verbose #44493 > │ (* │
00:08:31 verbose #44494 > │ () │
00:08:31 verbose #44495 > │ else │
00:08:31 verbose #44496 > │ *) else │
00:08:31 verbose #44497 > │ let v44 : Async<string> option = None │
00:08:31 verbose #44498 > │ let v45 : bool = true in let mutable _v44 = v44 │
00:08:31 verbose #44499 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44500 > │ let v46 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44501 > │ v46 │
00:08:31 verbose #44502 > │ #endif │
00:08:31 verbose #44503 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44504 > │ let v47 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44505 > │ v47 │
00:08:31 verbose #44506 > │ #endif │
00:08:31 verbose #44507 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44508 > │ let v48 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44509 > │ v48 │
00:08:31 verbose #44510 > │ #endif │
00:08:31 verbose #44511 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44512 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44513 > │ let v49 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:31 verbose #44514 > │ System.IO.File.ReadAllTextAsync │
00:08:31 verbose #44515 > │ let v50 : System.Threading.Tasks.Task<string> = v49 v0 │
00:08:31 verbose #44516 > │ let v51 : Async<string> option = None │
00:08:31 verbose #44517 > │ let v52 : bool = true in let mutable _v51 = v51 │
00:08:31 verbose #44518 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44519 > │ let v53 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44520 > │ v53 │
00:08:31 verbose #44521 > │ #endif │
00:08:31 verbose #44522 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44523 > │ let v54 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44524 > │ v54 │
00:08:31 verbose #44525 > │ #endif │
00:08:31 verbose #44526 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44527 > │ let v55 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44528 > │ v55 │
00:08:31 verbose #44529 > │ #endif │
00:08:31 verbose #44530 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44531 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44532 > │ let v56 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:31 verbose #44533 > │ Async.AwaitTask │
00:08:31 verbose #44534 > │ let v57 : Async<string> = v56 v50 │
00:08:31 verbose #44535 > │ v57 │
00:08:31 verbose #44536 > │ #endif │
00:08:31 verbose #44537 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44538 > │ let v58 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44539 > │ v58 │
00:08:31 verbose #44540 > │ #endif │
00:08:31 verbose #44541 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #44542 > │ FABLE_COMPILER_DART │
00:08:31 verbose #44543 > │ let v59 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #44544 > │ v59 │
00:08:31 verbose #44545 > │ #endif │
00:08:31 verbose #44546 > │ |> fun x -> _v51 <- Some x │
00:08:31 verbose #44547 > │ let v60 : Async<string> = _v51.Value │
00:08:31 verbose #44548 > │ v60 │
00:08:31 verbose #44549 > │ #endif │
00:08:31 verbose #44550 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44551 > │ let v61 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #44552 > │ v61 │
00:08:31 verbose #44553 > │ #endif │
00:08:31 verbose #44554 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #44555 > │ FABLE_COMPILER_DART │
00:08:31 verbose #44556 > │ let v62 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #44557 > │ v62 │
00:08:31 verbose #44558 > │ #endif │
00:08:31 verbose #44559 > │ |> fun x -> _v44 <- Some x │
00:08:31 verbose #44560 > │ let v63 : Async<string> = _v44.Value │
00:08:31 verbose #44561 > │ let! v63 = v63 │
00:08:31 verbose #44562 > │ let v64 : string = v63 │
00:08:31 verbose #44563 > │ let v65 : bool = v1 = v64 │
00:08:31 verbose #44564 > │ return v65 │
00:08:31 verbose #44565 > │ (* │
00:08:31 verbose #44566 > │ () │
00:08:31 verbose #44567 > │ *) │
00:08:31 verbose #44568 > │ } │
00:08:31 verbose #44569 > │ |> fun x -> _v18 <- Some x │
00:08:31 verbose #44570 > │ let v66 : Async<bool> = _v18 |> Option.get │
00:08:31 verbose #44571 > │ v66 │
00:08:31 verbose #44572 > │ #endif │
00:08:31 verbose #44573 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44574 > │ let v67 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44575 > │ v67 │
00:08:31 verbose #44576 > │ #endif │
00:08:31 verbose #44577 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44578 > │ let v68 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:31 verbose #44579 > │ v68 │
00:08:31 verbose #44580 > │ #endif │
00:08:31 verbose #44581 > │ |> fun x -> _v13 <- Some x │
00:08:31 verbose #44582 > │ let v69 : Async<bool> = _v13.Value │
00:08:31 verbose #44583 > │ v69 │
00:08:31 verbose #44584 > │ #endif │
00:08:31 verbose #44585 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44586 > │ let v70 : Async<bool> = null |> unbox<Async<bool>> │
00:08:31 verbose #44587 > │ v70 │
00:08:31 verbose #44588 > │ #endif │
00:08:31 verbose #44589 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44590 > │ let v71 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:31 verbose #44591 > │ v71 │
00:08:31 verbose #44592 > │ #endif │
00:08:31 verbose #44593 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #44594 > │ let v72 : Async<bool> = _v8.Value │
00:08:31 verbose #44595 > │ let! v72 = v72 │
00:08:31 verbose #44596 > │ let v73 : bool = v72 │
00:08:31 verbose #44597 > │ let v74 : bool = v73 = false │
00:08:31 verbose #44598 > │ if v74 then │
00:08:31 verbose #44599 > │ let v75 : Async<unit> option = None │
00:08:31 verbose #44600 > │ let v76 : bool = true in let mutable _v75 = v75 │
00:08:31 verbose #44601 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44602 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44603 > │ v77 │
00:08:31 verbose #44604 > │ #endif │
00:08:31 verbose #44605 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44606 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44607 > │ v78 │
00:08:31 verbose #44608 > │ #endif │
00:08:31 verbose #44609 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44610 > │ let v79 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44611 > │ v79 │
00:08:31 verbose #44612 > │ #endif │
00:08:31 verbose #44613 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44614 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44615 > │ let v80 : System.Threading.Tasks.Task = │
00:08:31 verbose #44616 > │ System.IO.File.WriteAllTextAsync (v0, v1) │
00:08:31 verbose #44617 > │ let v81 : Async<unit> option = None │
00:08:31 verbose #44618 > │ let v82 : bool = true in let mutable _v81 = v81 │
00:08:31 verbose #44619 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44620 > │ let v83 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44621 > │ v83 │
00:08:31 verbose #44622 > │ #endif │
00:08:31 verbose #44623 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44624 > │ let v84 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44625 > │ v84 │
00:08:31 verbose #44626 > │ #endif │
00:08:31 verbose #44627 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44628 > │ let v85 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44629 > │ v85 │
00:08:31 verbose #44630 > │ #endif │
00:08:31 verbose #44631 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44632 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44633 > │ let v86 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:31 verbose #44634 > │ Async.AwaitTask │
00:08:31 verbose #44635 > │ let v87 : Async<unit> = v86 v80 │
00:08:31 verbose #44636 > │ v87 │
00:08:31 verbose #44637 > │ #endif │
00:08:31 verbose #44638 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44639 > │ let v88 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44640 > │ v88 │
00:08:31 verbose #44641 > │ #endif │
00:08:31 verbose #44642 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #44643 > │ FABLE_COMPILER_DART │
00:08:31 verbose #44644 > │ let v89 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44645 > │ v89 │
00:08:31 verbose #44646 > │ #endif │
00:08:31 verbose #44647 > │ |> fun x -> _v81 <- Some x │
00:08:31 verbose #44648 > │ let v90 : Async<unit> = _v81.Value │
00:08:31 verbose #44649 > │ v90 │
00:08:31 verbose #44650 > │ #endif │
00:08:31 verbose #44651 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44652 > │ let v91 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44653 > │ v91 │
00:08:31 verbose #44654 > │ #endif │
00:08:31 verbose #44655 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #44656 > │ FABLE_COMPILER_DART │
00:08:31 verbose #44657 > │ let v92 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44658 > │ v92 │
00:08:31 verbose #44659 > │ #endif │
00:08:31 verbose #44660 > │ |> fun x -> _v75 <- Some x │
00:08:31 verbose #44661 > │ let v93 : Async<unit> = _v75.Value │
00:08:31 verbose #44662 > │ do! v93 │
00:08:31 verbose #44663 > │ () │
00:08:31 verbose #44664 > │ } │
00:08:31 verbose #44665 > │ |> fun x -> _v7 <- Some x │
00:08:31 verbose #44666 > │ let v94 : Async<unit> = _v7 |> Option.get │
00:08:31 verbose #44667 > │ v94 │
00:08:31 verbose #44668 > │ #endif │
00:08:31 verbose #44669 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44670 > │ let v95 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44671 > │ v95 │
00:08:31 verbose #44672 > │ #endif │
00:08:31 verbose #44673 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44674 > │ let v96 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44675 > │ v96 │
00:08:31 verbose #44676 > │ #endif │
00:08:31 verbose #44677 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #44678 > │ let v97 : Async<unit> = _v2.Value │
00:08:31 verbose #44679 > │ v97 │
00:08:31 verbose #44680 > │ and closure19 () (v0 : string) : (string -> Async<unit>) = │
00:08:31 verbose #44681 > │ closure20(v0) │
00:08:31 verbose #44682 > │ and closure22 () () : string = │
00:08:31 verbose #44683 > │ let v0 : string = "delete_file_async" │
00:08:31 verbose #44684 > │ v0 │
00:08:31 verbose #44685 > │ and closure23 (v0 : string, v1 : exn) () : string = │
00:08:31 verbose #44686 > │ let v2 : string option = None │
00:08:31 verbose #44687 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #44688 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44689 > │ let v4 : string = $"%A{v1}" │
00:08:31 verbose #44690 > │ v4 │
00:08:31 verbose #44691 > │ #endif │
00:08:31 verbose #44692 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44693 > │ let v5 : string = $"%A{v1}" │
00:08:31 verbose #44694 > │ v5 │
00:08:31 verbose #44695 > │ #endif │
00:08:31 verbose #44696 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44697 > │ let v6 : string = $"%A{v1}" │
00:08:31 verbose #44698 > │ v6 │
00:08:31 verbose #44699 > │ #endif │
00:08:31 verbose #44700 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44701 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44702 > │ let v7 : string = $"{v1.GetType ()}: {v1.Message}" │
00:08:31 verbose #44703 > │ v7 │
00:08:31 verbose #44704 > │ #endif │
00:08:31 verbose #44705 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44706 > │ let v8 : string = $"%A{v1}" │
00:08:31 verbose #44707 > │ v8 │
00:08:31 verbose #44708 > │ #endif │
00:08:31 verbose #44709 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44710 > │ let v9 : string = Unchecked.defaultof<string> │
00:08:31 verbose #44711 > │ v9 │
00:08:31 verbose #44712 > │ #endif │
00:08:31 verbose #44713 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #44714 > │ let v10 : string = _v2.Value │
00:08:31 verbose #44715 > │ let v11 : (string -> string) = closure5() │
00:08:31 verbose #44716 > │ let v12 : (unit -> string) = closure6() │
00:08:31 verbose #44717 > │ let v13 : string = $"path: {v0 |> v11} / ex: {v10} / {v12 ()}" │
00:08:31 verbose #44718 > │ v13 │
00:08:31 verbose #44719 > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:08:31 verbose #44720 > │ let v2 : Async<int64> option = None │
00:08:31 verbose #44721 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #44722 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44723 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44724 > │ v4 │
00:08:31 verbose #44725 > │ #endif │
00:08:31 verbose #44726 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44727 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44728 > │ v5 │
00:08:31 verbose #44729 > │ #endif │
00:08:31 verbose #44730 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44731 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44732 > │ v6 │
00:08:31 verbose #44733 > │ #endif │
00:08:31 verbose #44734 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44735 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44736 > │ let v7 : Async<int64> option = None │
00:08:31 verbose #44737 > │ let mutable _v7 = v7 │
00:08:31 verbose #44738 > │ async { │
00:08:31 verbose #44739 > │ try │
00:08:31 verbose #44740 > │ let v8 : unit option = None │
00:08:31 verbose #44741 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #44742 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44743 > │ null |> unbox<unit> │
00:08:31 verbose #44744 > │ () │
00:08:31 verbose #44745 > │ #endif │
00:08:31 verbose #44746 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44747 > │ null |> unbox<unit> │
00:08:31 verbose #44748 > │ () │
00:08:31 verbose #44749 > │ #endif │
00:08:31 verbose #44750 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44751 > │ null |> unbox<unit> │
00:08:31 verbose #44752 > │ () │
00:08:31 verbose #44753 > │ #endif │
00:08:31 verbose #44754 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44755 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44756 > │ let v10 : (string -> unit) = System.IO.File.Delete │
00:08:31 verbose #44757 > │ v10 v0 │
00:08:31 verbose #44758 > │ () │
00:08:31 verbose #44759 > │ #endif │
00:08:31 verbose #44760 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44761 > │ null |> unbox<unit> │
00:08:31 verbose #44762 > │ () │
00:08:31 verbose #44763 > │ #endif │
00:08:31 verbose #44764 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44765 > │ Unchecked.defaultof<unit> │
00:08:31 verbose #44766 > │ () │
00:08:31 verbose #44767 > │ #endif │
00:08:31 verbose #44768 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #44769 > │ _v8.Value │
00:08:31 verbose #44770 > │ return v1 │
00:08:31 verbose #44771 > │ with ex -> │
00:08:31 verbose #44772 > │ let v11 : exn = ex │
00:08:31 verbose #44773 > │ let v12 : int64 = v1 % 100L │
00:08:31 verbose #44774 > │ let v13 : bool = v12 = 0L │
00:08:31 verbose #44775 > │ if v13 then │
00:08:31 verbose #44776 > │ let v14 : US0 = US0_3 │
00:08:31 verbose #44777 > │ let v15 : (unit -> string) = closure22() │
00:08:31 verbose #44778 > │ let v16 : (unit -> string) = closure23(v0, v11) │
00:08:31 verbose #44779 > │ method3(v14, v15, v16) │
00:08:31 verbose #44780 > │ let v17 : Async<unit> option = None │
00:08:31 verbose #44781 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:31 verbose #44782 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44783 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44784 > │ v19 │
00:08:31 verbose #44785 > │ #endif │
00:08:31 verbose #44786 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44787 > │ let v20 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44788 > │ v20 │
00:08:31 verbose #44789 > │ #endif │
00:08:31 verbose #44790 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44791 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44792 > │ v21 │
00:08:31 verbose #44793 > │ #endif │
00:08:31 verbose #44794 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44795 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44796 > │ let v22 : (int32 -> Async<unit>) = Async.Sleep │
00:08:31 verbose #44797 > │ let v23 : Async<unit> = v22 10 │
00:08:31 verbose #44798 > │ v23 │
00:08:31 verbose #44799 > │ #endif │
00:08:31 verbose #44800 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44801 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44802 > │ v24 │
00:08:31 verbose #44803 > │ #endif │
00:08:31 verbose #44804 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44805 > │ let v25 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44806 > │ v25 │
00:08:31 verbose #44807 > │ #endif │
00:08:31 verbose #44808 > │ |> fun x -> _v17 <- Some x │
00:08:31 verbose #44809 > │ let v26 : Async<unit> = _v17.Value │
00:08:31 verbose #44810 > │ do! v26 │
00:08:31 verbose #44811 > │ let v27 : int64 = v1 + 1L │
00:08:31 verbose #44812 > │ let v28 : Async<int64> = method10(v0, v27) │
00:08:31 verbose #44813 > │ return! v28 │
00:08:31 verbose #44814 > │ (* │
00:08:31 verbose #44815 > │ let v29 : int64 = *) │
00:08:31 verbose #44816 > │ } │
00:08:31 verbose #44817 > │ |> fun x -> _v7 <- Some x │
00:08:31 verbose #44818 > │ let v30 : Async<int64> = _v7 |> Option.get │
00:08:31 verbose #44819 > │ v30 │
00:08:31 verbose #44820 > │ #endif │
00:08:31 verbose #44821 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44822 > │ let v31 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44823 > │ v31 │
00:08:31 verbose #44824 > │ #endif │
00:08:31 verbose #44825 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44826 > │ let v32 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #44827 > │ v32 │
00:08:31 verbose #44828 > │ #endif │
00:08:31 verbose #44829 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #44830 > │ let v33 : Async<int64> = _v2.Value │
00:08:31 verbose #44831 > │ v33 │
00:08:31 verbose #44832 > │ and closure21 () (v0 : string) : Async<int64> = │
00:08:31 verbose #44833 > │ let v1 : Async<int64> option = None │
00:08:31 verbose #44834 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:31 verbose #44835 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44836 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44837 > │ v3 │
00:08:31 verbose #44838 > │ #endif │
00:08:31 verbose #44839 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44840 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44841 > │ v4 │
00:08:31 verbose #44842 > │ #endif │
00:08:31 verbose #44843 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44844 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44845 > │ v5 │
00:08:31 verbose #44846 > │ #endif │
00:08:31 verbose #44847 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44848 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44849 > │ let v6 : int64 = 0L │
00:08:31 verbose #44850 > │ let v7 : Async<int64> = method10(v0, v6) │
00:08:31 verbose #44851 > │ v7 │
00:08:31 verbose #44852 > │ #endif │
00:08:31 verbose #44853 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44854 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44855 > │ v8 │
00:08:31 verbose #44856 > │ #endif │
00:08:31 verbose #44857 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44858 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #44859 > │ v9 │
00:08:31 verbose #44860 > │ #endif │
00:08:31 verbose #44861 > │ |> fun x -> _v1 <- Some x │
00:08:31 verbose #44862 > │ let v10 : Async<int64> = _v1.Value │
00:08:31 verbose #44863 > │ v10 │
00:08:31 verbose #44864 > │ and closure26 () () : string = │
00:08:31 verbose #44865 > │ let v0 : string = "move_file_async" │
00:08:31 verbose #44866 > │ v0 │
00:08:31 verbose #44867 > │ and closure27 (v0 : string, v1 : string, v2 : exn) () : string = │
00:08:31 verbose #44868 > │ let v3 : string option = None │
00:08:31 verbose #44869 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:31 verbose #44870 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44871 > │ let v5 : string = $"%A{v2}" │
00:08:31 verbose #44872 > │ v5 │
00:08:31 verbose #44873 > │ #endif │
00:08:31 verbose #44874 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44875 > │ let v6 : string = $"%A{v2}" │
00:08:31 verbose #44876 > │ v6 │
00:08:31 verbose #44877 > │ #endif │
00:08:31 verbose #44878 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44879 > │ let v7 : string = $"%A{v2}" │
00:08:31 verbose #44880 > │ v7 │
00:08:31 verbose #44881 > │ #endif │
00:08:31 verbose #44882 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44883 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44884 > │ let v8 : string = $"{v2.GetType ()}: {v2.Message}" │
00:08:31 verbose #44885 > │ v8 │
00:08:31 verbose #44886 > │ #endif │
00:08:31 verbose #44887 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44888 > │ let v9 : string = $"%A{v2}" │
00:08:31 verbose #44889 > │ v9 │
00:08:31 verbose #44890 > │ #endif │
00:08:31 verbose #44891 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44892 > │ let v10 : string = Unchecked.defaultof<string> │
00:08:31 verbose #44893 > │ v10 │
00:08:31 verbose #44894 > │ #endif │
00:08:31 verbose #44895 > │ |> fun x -> _v3 <- Some x │
00:08:31 verbose #44896 > │ let v11 : string = _v3.Value │
00:08:31 verbose #44897 > │ let v12 : (string -> string) = closure5() │
00:08:31 verbose #44898 > │ let v13 : (unit -> string) = closure6() │
00:08:31 verbose #44899 > │ let v14 : string = $"old_path: {v1 |> v12} / new_path: {v0 |> v12} / ex: │
00:08:31 verbose #44900 > │ {v11} / {v13 ()}" │
00:08:31 verbose #44901 > │ v14 │
00:08:31 verbose #44902 > │ and method11 (v0 : string, v1 : string, v2 : int64) : Async<int64> = │
00:08:31 verbose #44903 > │ let v3 : Async<int64> option = None │
00:08:31 verbose #44904 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:31 verbose #44905 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44906 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44907 > │ v5 │
00:08:31 verbose #44908 > │ #endif │
00:08:31 verbose #44909 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44910 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44911 > │ v6 │
00:08:31 verbose #44912 > │ #endif │
00:08:31 verbose #44913 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44914 > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #44915 > │ v7 │
00:08:31 verbose #44916 > │ #endif │
00:08:31 verbose #44917 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44918 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44919 > │ let v8 : Async<int64> option = None │
00:08:31 verbose #44920 > │ let mutable _v8 = v8 │
00:08:31 verbose #44921 > │ async { │
00:08:31 verbose #44922 > │ try │
00:08:31 verbose #44923 > │ let v9 : unit option = None │
00:08:31 verbose #44924 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:31 verbose #44925 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44926 > │ null |> unbox<unit> │
00:08:31 verbose #44927 > │ () │
00:08:31 verbose #44928 > │ #endif │
00:08:31 verbose #44929 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44930 > │ null |> unbox<unit> │
00:08:31 verbose #44931 > │ () │
00:08:31 verbose #44932 > │ #endif │
00:08:31 verbose #44933 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44934 > │ null |> unbox<unit> │
00:08:31 verbose #44935 > │ () │
00:08:31 verbose #44936 > │ #endif │
00:08:31 verbose #44937 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44938 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44939 > │ System.IO.File.Move (v1, v0) │
00:08:31 verbose #44940 > │ () │
00:08:31 verbose #44941 > │ #endif │
00:08:31 verbose #44942 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44943 > │ null |> unbox<unit> │
00:08:31 verbose #44944 > │ () │
00:08:31 verbose #44945 > │ #endif │
00:08:31 verbose #44946 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44947 > │ Unchecked.defaultof<unit> │
00:08:31 verbose #44948 > │ () │
00:08:31 verbose #44949 > │ #endif │
00:08:31 verbose #44950 > │ |> fun x -> _v9 <- Some x │
00:08:31 verbose #44951 > │ _v9.Value │
00:08:31 verbose #44952 > │ return v2 │
00:08:31 verbose #44953 > │ with ex -> │
00:08:31 verbose #44954 > │ let v11 : exn = ex │
00:08:31 verbose #44955 > │ let v12 : int64 = v2 % 100L │
00:08:31 verbose #44956 > │ let v13 : bool = v12 = 0L │
00:08:31 verbose #44957 > │ if v13 then │
00:08:31 verbose #44958 > │ let v14 : US0 = US0_3 │
00:08:31 verbose #44959 > │ let v15 : (unit -> string) = closure26() │
00:08:31 verbose #44960 > │ let v16 : (unit -> string) = closure27(v0, v1, v11) │
00:08:31 verbose #44961 > │ method3(v14, v15, v16) │
00:08:31 verbose #44962 > │ let v17 : Async<unit> option = None │
00:08:31 verbose #44963 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:31 verbose #44964 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #44965 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44966 > │ v19 │
00:08:31 verbose #44967 > │ #endif │
00:08:31 verbose #44968 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #44969 > │ let v20 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44970 > │ v20 │
00:08:31 verbose #44971 > │ #endif │
00:08:31 verbose #44972 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #44973 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44974 > │ v21 │
00:08:31 verbose #44975 > │ #endif │
00:08:31 verbose #44976 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #44977 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #44978 > │ let v22 : (int32 -> Async<unit>) = Async.Sleep │
00:08:31 verbose #44979 > │ let v23 : Async<unit> = v22 10 │
00:08:31 verbose #44980 > │ v23 │
00:08:31 verbose #44981 > │ #endif │
00:08:31 verbose #44982 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #44983 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #44984 > │ v24 │
00:08:31 verbose #44985 > │ #endif │
00:08:31 verbose #44986 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #44987 > │ let v25 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #44988 > │ v25 │
00:08:31 verbose #44989 > │ #endif │
00:08:31 verbose #44990 > │ |> fun x -> _v17 <- Some x │
00:08:31 verbose #44991 > │ let v26 : Async<unit> = _v17.Value │
00:08:31 verbose #44992 > │ do! v26 │
00:08:31 verbose #44993 > │ let v27 : int64 = v2 + 1L │
00:08:31 verbose #44994 > │ let v28 : Async<int64> = method11(v0, v1, v27) │
00:08:31 verbose #44995 > │ return! v28 │
00:08:31 verbose #44996 > │ (* │
00:08:31 verbose #44997 > │ *) │
00:08:31 verbose #44998 > │ } │
00:08:31 verbose #44999 > │ |> fun x -> _v8 <- Some x │
00:08:31 verbose #45000 > │ let v29 : Async<int64> = _v8 |> Option.get │
00:08:31 verbose #45001 > │ v29 │
00:08:31 verbose #45002 > │ #endif │
00:08:31 verbose #45003 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45004 > │ let v30 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45005 > │ v30 │
00:08:31 verbose #45006 > │ #endif │
00:08:31 verbose #45007 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45008 > │ let v31 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #45009 > │ v31 │
00:08:31 verbose #45010 > │ #endif │
00:08:31 verbose #45011 > │ |> fun x -> _v3 <- Some x │
00:08:31 verbose #45012 > │ let v32 : Async<int64> = _v3.Value │
00:08:31 verbose #45013 > │ v32 │
00:08:31 verbose #45014 > │ and closure25 (v0 : string) (v1 : string) : Async<int64> = │
00:08:31 verbose #45015 > │ let v2 : Async<int64> option = None │
00:08:31 verbose #45016 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #45017 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45018 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45019 > │ v4 │
00:08:31 verbose #45020 > │ #endif │
00:08:31 verbose #45021 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45022 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45023 > │ v5 │
00:08:31 verbose #45024 > │ #endif │
00:08:31 verbose #45025 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45026 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45027 > │ v6 │
00:08:31 verbose #45028 > │ #endif │
00:08:31 verbose #45029 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45030 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45031 > │ let v7 : int64 = 0L │
00:08:31 verbose #45032 > │ let v8 : Async<int64> = method11(v0, v1, v7) │
00:08:31 verbose #45033 > │ v8 │
00:08:31 verbose #45034 > │ #endif │
00:08:31 verbose #45035 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45036 > │ let v9 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45037 > │ v9 │
00:08:31 verbose #45038 > │ #endif │
00:08:31 verbose #45039 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45040 > │ let v10 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #45041 > │ v10 │
00:08:31 verbose #45042 > │ #endif │
00:08:31 verbose #45043 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #45044 > │ let v11 : Async<int64> = _v2.Value │
00:08:31 verbose #45045 > │ v11 │
00:08:31 verbose #45046 > │ and closure24 () (v0 : string) : (string -> Async<int64>) = │
00:08:31 verbose #45047 > │ closure25(v0) │
00:08:31 verbose #45048 > │ and closure29 () (v0 : int64) : US6 = │
00:08:31 verbose #45049 > │ US6_0(v0) │
00:08:31 verbose #45050 > │ and closure30 () (v0 : exn) : US6 = │
00:08:31 verbose #45051 > │ US6_1(v0) │
00:08:31 verbose #45052 > │ and closure31 () () : string = │
00:08:31 verbose #45053 > │ let v0 : string = "run_with_timeout_async" │
00:08:31 verbose #45054 > │ v0 │
00:08:31 verbose #45055 > │ and closure32 () () : string = │
00:08:31 verbose #45056 > │ let v0 : (unit -> string) = closure6() │
00:08:31 verbose #45057 > │ let v1 : string = $"timeout: {1000} / {v0 ()}" │
00:08:31 verbose #45058 > │ v1 │
00:08:31 verbose #45059 > │ and closure33 (v0 : string) () : string = │
00:08:31 verbose #45060 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:08:31 verbose #45061 > │ v1 │
00:08:31 verbose #45062 > │ and closure34 () () : string = │
00:08:31 verbose #45063 > │ let v0 : string = "read_all_text_retry_async" │
00:08:31 verbose #45064 > │ v0 │
00:08:31 verbose #45065 > │ and method13 (v0 : int64, v1 : string) : string = │
00:08:31 verbose #45066 > │ let v2 : (unit -> string) = closure6() │
00:08:31 verbose #45067 > │ let v3 : string = $"retry: {v0} / ex: {v1} / {v2 ()}" │
00:08:31 verbose #45068 > │ v3 │
00:08:31 verbose #45069 > │ and closure35 (v0 : int64, v1 : string) () : string = │
00:08:31 verbose #45070 > │ method13(v0, v1) │
00:08:31 verbose #45071 > │ and method12 (v0 : string, v1 : int64) : Async<string option> = │
00:08:31 verbose #45072 > │ let v2 : Async<string option> option = None │
00:08:31 verbose #45073 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:31 verbose #45074 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45075 > │ let v4 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45076 > │ v4 │
00:08:31 verbose #45077 > │ #endif │
00:08:31 verbose #45078 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45079 > │ let v5 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45080 > │ v5 │
00:08:31 verbose #45081 > │ #endif │
00:08:31 verbose #45082 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45083 > │ let v6 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45084 > │ v6 │
00:08:31 verbose #45085 > │ #endif │
00:08:31 verbose #45086 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45087 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45088 > │ let v7 : Async<string option> option = None │
00:08:31 verbose #45089 > │ let mutable _v7 = v7 │
00:08:31 verbose #45090 > │ async { │
00:08:31 verbose #45091 > │ try │
00:08:31 verbose #45092 > │ let v8 : bool = v1 > 0L │
00:08:31 verbose #45093 > │ if v8 then │
00:08:31 verbose #45094 > │ let v9 : Async<int64> option = None │
00:08:31 verbose #45095 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:31 verbose #45096 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45097 > │ let v11 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45098 > │ v11 │
00:08:31 verbose #45099 > │ #endif │
00:08:31 verbose #45100 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45101 > │ let v12 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45102 > │ v12 │
00:08:31 verbose #45103 > │ #endif │
00:08:31 verbose #45104 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45105 > │ let v13 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45106 > │ v13 │
00:08:31 verbose #45107 > │ #endif │
00:08:31 verbose #45108 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45109 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45110 > │ let v14 : int64 = 0L │
00:08:31 verbose #45111 > │ let v15 : Async<int64> = method8(v0, v14) │
00:08:31 verbose #45112 > │ v15 │
00:08:31 verbose #45113 > │ #endif │
00:08:31 verbose #45114 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45115 > │ let v16 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45116 > │ v16 │
00:08:31 verbose #45117 > │ #endif │
00:08:31 verbose #45118 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45119 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45120 > │ let v17 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #45121 > │ v17 │
00:08:31 verbose #45122 > │ #endif │
00:08:31 verbose #45123 > │ |> fun x -> _v9 <- Some x │
00:08:31 verbose #45124 > │ let v18 : Async<int64> = _v9.Value │
00:08:31 verbose #45125 > │ let v19 : Async<US2> option = None │
00:08:31 verbose #45126 > │ let v20 : bool = true in let mutable _v19 = v19 │
00:08:31 verbose #45127 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45128 > │ let v21 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45129 > │ v21 │
00:08:31 verbose #45130 > │ #endif │
00:08:31 verbose #45131 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45132 > │ let v22 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45133 > │ v22 │
00:08:31 verbose #45134 > │ #endif │
00:08:31 verbose #45135 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45136 > │ let v23 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45137 > │ v23 │
00:08:31 verbose #45138 > │ #endif │
00:08:31 verbose #45139 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45140 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45141 > │ let v24 : Async<US2> option = None │
00:08:31 verbose #45142 > │ let v25 : bool = true in let mutable _v24 = v24 │
00:08:31 verbose #45143 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45144 > │ let v26 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45145 > │ v26 │
00:08:31 verbose #45146 > │ #endif │
00:08:31 verbose #45147 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45148 > │ let v27 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45149 > │ v27 │
00:08:31 verbose #45150 > │ #endif │
00:08:31 verbose #45151 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45152 > │ let v28 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45153 > │ v28 │
00:08:31 verbose #45154 > │ #endif │
00:08:31 verbose #45155 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45156 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45157 > │ let v29 : Async<US2> option = None │
00:08:31 verbose #45158 > │ let mutable _v29 = v29 │
00:08:31 verbose #45159 > │ async { │
00:08:31 verbose #45160 > │ let v30 : Async<Async<int64>> option = None │
00:08:31 verbose #45161 > │ let v31 : bool = true in let mutable _v30 = v30 │
00:08:31 verbose #45162 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45163 > │ let v32 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:31 verbose #45164 > │ v32 │
00:08:31 verbose #45165 > │ #endif │
00:08:31 verbose #45166 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45167 > │ let v33 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:31 verbose #45168 > │ v33 │
00:08:31 verbose #45169 > │ #endif │
00:08:31 verbose #45170 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45171 > │ let v34 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:31 verbose #45172 > │ v34 │
00:08:31 verbose #45173 > │ #endif │
00:08:31 verbose #45174 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45175 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45176 > │ let v35 : Async<Async<int64>> = Async.StartChild (v18, 1000) │
00:08:31 verbose #45177 > │ v35 │
00:08:31 verbose #45178 > │ #endif │
00:08:31 verbose #45179 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45180 > │ let v36 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:31 verbose #45181 > │ v36 │
00:08:31 verbose #45182 > │ #endif │
00:08:31 verbose #45183 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45184 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45185 > │ let v37 : Async<Async<int64>> = │
00:08:31 verbose #45186 > │ Unchecked.defaultof<Async<Async<int64>>> │
00:08:31 verbose #45187 > │ v37 │
00:08:31 verbose #45188 > │ #endif │
00:08:31 verbose #45189 > │ |> fun x -> _v30 <- Some x │
00:08:31 verbose #45190 > │ let v38 : Async<Async<int64>> = _v30.Value │
00:08:31 verbose #45191 > │ let! v38 = v38 │
00:08:31 verbose #45192 > │ let v39 : Async<int64> = v38 │
00:08:31 verbose #45193 > │ let v40 : Async<Choice<int64, exn>> option = None │
00:08:31 verbose #45194 > │ let v41 : bool = true in let mutable _v40 = v40 │
00:08:31 verbose #45195 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45196 > │ let v42 : Async<Choice<int64, exn>> = null |> │
00:08:31 verbose #45197 > │ unbox<Async<Choice<int64, exn>>> │
00:08:31 verbose #45198 > │ v42 │
00:08:31 verbose #45199 > │ #endif │
00:08:31 verbose #45200 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45201 > │ let v43 : Async<Choice<int64, exn>> = null |> │
00:08:31 verbose #45202 > │ unbox<Async<Choice<int64, exn>>> │
00:08:31 verbose #45203 > │ v43 │
00:08:31 verbose #45204 > │ #endif │
00:08:31 verbose #45205 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45206 > │ let v44 : Async<Choice<int64, exn>> = null |> │
00:08:31 verbose #45207 > │ unbox<Async<Choice<int64, exn>>> │
00:08:31 verbose #45208 > │ v44 │
00:08:31 verbose #45209 > │ #endif │
00:08:31 verbose #45210 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45211 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45212 > │ let v45 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:08:31 verbose #45213 > │ let v46 : Async<Choice<int64, exn>> = v45 v39 │
00:08:31 verbose #45214 > │ v46 │
00:08:31 verbose #45215 > │ #endif │
00:08:31 verbose #45216 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45217 > │ let v47 : Async<Choice<int64, exn>> = null |> │
00:08:31 verbose #45218 > │ unbox<Async<Choice<int64, exn>>> │
00:08:31 verbose #45219 > │ v47 │
00:08:31 verbose #45220 > │ #endif │
00:08:31 verbose #45221 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45222 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45223 > │ let v48 : Async<Choice<int64, exn>> = │
00:08:31 verbose #45224 > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:08:31 verbose #45225 > │ v48 │
00:08:31 verbose #45226 > │ #endif │
00:08:31 verbose #45227 > │ |> fun x -> _v40 <- Some x │
00:08:31 verbose #45228 > │ let v49 : Async<Choice<int64, exn>> = _v40.Value │
00:08:31 verbose #45229 > │ let v50 : Async<US6> option = None │
00:08:31 verbose #45230 > │ let v51 : bool = true in let mutable _v50 = v50 │
00:08:31 verbose #45231 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45232 > │ let v52 : Async<US6> = null |> unbox<Async<US6>> │
00:08:31 verbose #45233 > │ v52 │
00:08:31 verbose #45234 > │ #endif │
00:08:31 verbose #45235 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45236 > │ let v53 : Async<US6> = null |> unbox<Async<US6>> │
00:08:31 verbose #45237 > │ v53 │
00:08:31 verbose #45238 > │ #endif │
00:08:31 verbose #45239 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45240 > │ let v54 : Async<US6> = null |> unbox<Async<US6>> │
00:08:31 verbose #45241 > │ v54 │
00:08:31 verbose #45242 > │ #endif │
00:08:31 verbose #45243 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45244 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45245 > │ let v55 : Async<US6> option = None │
00:08:31 verbose #45246 > │ let mutable _v55 = v55 │
00:08:31 verbose #45247 > │ async { │
00:08:31 verbose #45248 > │ let! v49 = v49 │
00:08:31 verbose #45249 > │ let v56 : Choice<int64, exn> = v49 │
00:08:31 verbose #45250 > │ let v57 : US6 option = None │
00:08:31 verbose #45251 > │ let v58 : bool = true in let mutable _v57 = v57 │
00:08:31 verbose #45252 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45253 > │ let v59 : US6 = null |> unbox<US6> │
00:08:31 verbose #45254 > │ v59 │
00:08:31 verbose #45255 > │ #endif │
00:08:31 verbose #45256 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45257 > │ let v60 : US6 = null |> unbox<US6> │
00:08:31 verbose #45258 > │ v60 │
00:08:31 verbose #45259 > │ #endif │
00:08:31 verbose #45260 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45261 > │ let v61 : US6 = null |> unbox<US6> │
00:08:31 verbose #45262 > │ v61 │
00:08:31 verbose #45263 > │ #endif │
00:08:31 verbose #45264 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45265 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45266 > │ let v62 : (int64 -> US6) = closure29() │
00:08:31 verbose #45267 > │ let v63 : (exn -> US6) = closure30() │
00:08:31 verbose #45268 > │ let v64 : US6 = match v56 with Choice1Of2 x -> v62 x | Choice2Of2 x │
00:08:31 verbose #45269 > │ -> v63 x │
00:08:31 verbose #45270 > │ v64 │
00:08:31 verbose #45271 > │ #endif │
00:08:31 verbose #45272 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45273 > │ let v65 : US6 = null |> unbox<US6> │
00:08:31 verbose #45274 > │ v65 │
00:08:31 verbose #45275 > │ #endif │
00:08:31 verbose #45276 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45277 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45278 > │ let v66 : US6 = Unchecked.defaultof<US6> │
00:08:31 verbose #45279 > │ v66 │
00:08:31 verbose #45280 > │ #endif │
00:08:31 verbose #45281 > │ |> fun x -> _v57 <- Some x │
00:08:31 verbose #45282 > │ let v67 : US6 = _v57.Value │
00:08:31 verbose #45283 > │ return v67 │
00:08:31 verbose #45284 > │ } │
00:08:31 verbose #45285 > │ |> fun x -> _v55 <- Some x │
00:08:31 verbose #45286 > │ let v68 : Async<US6> = _v55 |> Option.get │
00:08:31 verbose #45287 > │ v68 │
00:08:31 verbose #45288 > │ #endif │
00:08:31 verbose #45289 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45290 > │ let v69 : Async<US6> = null |> unbox<Async<US6>> │
00:08:31 verbose #45291 > │ v69 │
00:08:31 verbose #45292 > │ #endif │
00:08:31 verbose #45293 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45294 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45295 > │ let v70 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:08:31 verbose #45296 > │ v70 │
00:08:31 verbose #45297 > │ #endif │
00:08:31 verbose #45298 > │ |> fun x -> _v50 <- Some x │
00:08:31 verbose #45299 > │ let v71 : Async<US6> = _v50.Value │
00:08:31 verbose #45300 > │ let v72 : Async<US7> option = None │
00:08:31 verbose #45301 > │ let v73 : bool = true in let mutable _v72 = v72 │
00:08:31 verbose #45302 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45303 > │ let v74 : Async<US7> = null |> unbox<Async<US7>> │
00:08:31 verbose #45304 > │ v74 │
00:08:31 verbose #45305 > │ #endif │
00:08:31 verbose #45306 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45307 > │ let v75 : Async<US7> = null |> unbox<Async<US7>> │
00:08:31 verbose #45308 > │ v75 │
00:08:31 verbose #45309 > │ #endif │
00:08:31 verbose #45310 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45311 > │ let v76 : Async<US7> = null |> unbox<Async<US7>> │
00:08:31 verbose #45312 > │ v76 │
00:08:31 verbose #45313 > │ #endif │
00:08:31 verbose #45314 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45315 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45316 > │ let v77 : Async<US7> option = None │
00:08:31 verbose #45317 > │ let mutable _v77 = v77 │
00:08:31 verbose #45318 > │ async { │
00:08:31 verbose #45319 > │ let! v71 = v71 │
00:08:31 verbose #45320 > │ let v78 : US6 = v71 │
00:08:31 verbose #45321 > │ let v84 : US7 = │
00:08:31 verbose #45322 > │ match v78 with │
00:08:31 verbose #45323 > │ | US6_0(v79) -> (* Choice1Of2 *) │
00:08:31 verbose #45324 > │ US7_0(v79) │
00:08:31 verbose #45325 > │ | US6_1(v81) -> (* Choice2Of2 *) │
00:08:31 verbose #45326 > │ US7_1(v81) │
00:08:31 verbose #45327 > │ return v84 │
00:08:31 verbose #45328 > │ } │
00:08:31 verbose #45329 > │ |> fun x -> _v77 <- Some x │
00:08:31 verbose #45330 > │ let v85 : Async<US7> = _v77 |> Option.get │
00:08:31 verbose #45331 > │ v85 │
00:08:31 verbose #45332 > │ #endif │
00:08:31 verbose #45333 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45334 > │ let v86 : Async<US7> = null |> unbox<Async<US7>> │
00:08:31 verbose #45335 > │ v86 │
00:08:31 verbose #45336 > │ #endif │
00:08:31 verbose #45337 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45338 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45339 > │ let v87 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:08:31 verbose #45340 > │ v87 │
00:08:31 verbose #45341 > │ #endif │
00:08:31 verbose #45342 > │ |> fun x -> _v72 <- Some x │
00:08:31 verbose #45343 > │ let v88 : Async<US7> = _v72.Value │
00:08:31 verbose #45344 > │ let v89 : Async<US2> option = None │
00:08:31 verbose #45345 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:31 verbose #45346 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45347 > │ let v91 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45348 > │ v91 │
00:08:31 verbose #45349 > │ #endif │
00:08:31 verbose #45350 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45351 > │ let v92 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45352 > │ v92 │
00:08:31 verbose #45353 > │ #endif │
00:08:31 verbose #45354 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45355 > │ let v93 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45356 > │ v93 │
00:08:31 verbose #45357 > │ #endif │
00:08:31 verbose #45358 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45359 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45360 > │ let v94 : Async<US2> option = None │
00:08:31 verbose #45361 > │ let mutable _v94 = v94 │
00:08:31 verbose #45362 > │ async { │
00:08:31 verbose #45363 > │ let! v88 = v88 │
00:08:31 verbose #45364 > │ let v95 : US7 = v88 │
00:08:31 verbose #45365 > │ let v121 : US2 = │
00:08:31 verbose #45366 > │ match v95 with │
00:08:31 verbose #45367 > │ | US7_1(v98) -> (* Error *) │
00:08:31 verbose #45368 > │ let v99 : string = $"%A{v98}" │
00:08:31 verbose #45369 > │ let v100 : string = "System.TimeoutException" │
00:08:31 verbose #45370 > │ let v101 : bool = v99.Contains v100 │
00:08:31 verbose #45371 > │ if v101 then │
00:08:31 verbose #45372 > │ let v102 : US0 = US0_1 │
00:08:31 verbose #45373 > │ let v103 : (unit -> string) = closure31() │
00:08:31 verbose #45374 > │ let v104 : (unit -> string) = closure32() │
00:08:31 verbose #45375 > │ method3(v102, v103, v104) │
00:08:31 verbose #45376 > │ US2_1 │
00:08:31 verbose #45377 > │ else │
00:08:31 verbose #45378 > │ let v106 : string option = None │
00:08:31 verbose #45379 > │ let v107 : bool = true in let mutable _v106 = v106 │
00:08:31 verbose #45380 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45381 > │ let v108 : string = $"%A{v98}" │
00:08:31 verbose #45382 > │ v108 │
00:08:31 verbose #45383 > │ #endif │
00:08:31 verbose #45384 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45385 > │ let v109 : string = $"%A{v98}" │
00:08:31 verbose #45386 > │ v109 │
00:08:31 verbose #45387 > │ #endif │
00:08:31 verbose #45388 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45389 > │ let v110 : string = $"%A{v98}" │
00:08:31 verbose #45390 > │ v110 │
00:08:31 verbose #45391 > │ #endif │
00:08:31 verbose #45392 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45393 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45394 > │ let v111 : string = $"{v98.GetType ()}: {v98.Message}" │
00:08:31 verbose #45395 > │ v111 │
00:08:31 verbose #45396 > │ #endif │
00:08:31 verbose #45397 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45398 > │ let v112 : string = $"%A{v98}" │
00:08:31 verbose #45399 > │ v112 │
00:08:31 verbose #45400 > │ #endif │
00:08:31 verbose #45401 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45402 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45403 > │ let v113 : string = Unchecked.defaultof<string> │
00:08:31 verbose #45404 > │ v113 │
00:08:31 verbose #45405 > │ #endif │
00:08:31 verbose #45406 > │ |> fun x -> _v106 <- Some x │
00:08:31 verbose #45407 > │ let v114 : string = _v106.Value │
00:08:31 verbose #45408 > │ let v115 : US0 = US0_4 │
00:08:31 verbose #45409 > │ let v116 : (unit -> string) = closure33(v114) │
00:08:31 verbose #45410 > │ let v117 : (unit -> string) = closure32() │
00:08:31 verbose #45411 > │ method3(v115, v116, v117) │
00:08:31 verbose #45412 > │ US2_1 │
00:08:31 verbose #45413 > │ | US7_0(v96) -> (* Ok *) │
00:08:31 verbose #45414 > │ US2_0(v96) │
00:08:31 verbose #45415 > │ return v121 │
00:08:31 verbose #45416 > │ } │
00:08:31 verbose #45417 > │ |> fun x -> _v94 <- Some x │
00:08:31 verbose #45418 > │ let v122 : Async<US2> = _v94 |> Option.get │
00:08:31 verbose #45419 > │ v122 │
00:08:31 verbose #45420 > │ #endif │
00:08:31 verbose #45421 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45422 > │ let v123 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45423 > │ v123 │
00:08:31 verbose #45424 > │ #endif │
00:08:31 verbose #45425 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45426 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45427 > │ let v124 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:31 verbose #45428 > │ v124 │
00:08:31 verbose #45429 > │ #endif │
00:08:31 verbose #45430 > │ |> fun x -> _v89 <- Some x │
00:08:31 verbose #45431 > │ let v125 : Async<US2> = _v89.Value │
00:08:31 verbose #45432 > │ return! v125 │
00:08:31 verbose #45433 > │ } │
00:08:31 verbose #45434 > │ |> fun x -> _v29 <- Some x │
00:08:31 verbose #45435 > │ let v126 : Async<US2> = _v29 |> Option.get │
00:08:31 verbose #45436 > │ v126 │
00:08:31 verbose #45437 > │ #endif │
00:08:31 verbose #45438 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45439 > │ let v127 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45440 > │ v127 │
00:08:31 verbose #45441 > │ #endif │
00:08:31 verbose #45442 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45443 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45444 > │ let v128 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:31 verbose #45445 > │ v128 │
00:08:31 verbose #45446 > │ #endif │
00:08:31 verbose #45447 > │ |> fun x -> _v24 <- Some x │
00:08:31 verbose #45448 > │ let v129 : Async<US2> = _v24.Value │
00:08:31 verbose #45449 > │ v129 │
00:08:31 verbose #45450 > │ #endif │
00:08:31 verbose #45451 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45452 > │ let v130 : Async<US2> = null |> unbox<Async<US2>> │
00:08:31 verbose #45453 > │ v130 │
00:08:31 verbose #45454 > │ #endif │
00:08:31 verbose #45455 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45456 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45457 > │ let v131 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:08:31 verbose #45458 > │ v131 │
00:08:31 verbose #45459 > │ #endif │
00:08:31 verbose #45460 > │ |> fun x -> _v19 <- Some x │
00:08:31 verbose #45461 > │ let v132 : Async<US2> = _v19.Value │
00:08:31 verbose #45462 > │ let v133 : Async<unit> option = None │
00:08:31 verbose #45463 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:08:31 verbose #45464 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45465 > │ let v135 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45466 > │ v135 │
00:08:31 verbose #45467 > │ #endif │
00:08:31 verbose #45468 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45469 > │ let v136 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45470 > │ v136 │
00:08:31 verbose #45471 > │ #endif │
00:08:31 verbose #45472 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45473 > │ let v137 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45474 > │ v137 │
00:08:31 verbose #45475 > │ #endif │
00:08:31 verbose #45476 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45477 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45478 > │ let v138 : (Async<US2> -> Async<unit>) = Async.Ignore │
00:08:31 verbose #45479 > │ let v139 : Async<unit> = v138 v132 │
00:08:31 verbose #45480 > │ v139 │
00:08:31 verbose #45481 > │ #endif │
00:08:31 verbose #45482 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45483 > │ let v140 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45484 > │ v140 │
00:08:31 verbose #45485 > │ #endif │
00:08:31 verbose #45486 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45487 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45488 > │ let v141 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #45489 > │ v141 │
00:08:31 verbose #45490 > │ #endif │
00:08:31 verbose #45491 > │ |> fun x -> _v133 <- Some x │
00:08:31 verbose #45492 > │ let v142 : Async<unit> = _v133.Value │
00:08:31 verbose #45493 > │ do! v142 │
00:08:31 verbose #45494 > │ () │
00:08:31 verbose #45495 > │ let v143 : Async<string> option = None │
00:08:31 verbose #45496 > │ let v144 : bool = true in let mutable _v143 = v143 │
00:08:31 verbose #45497 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45498 > │ let v145 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45499 > │ v145 │
00:08:31 verbose #45500 > │ #endif │
00:08:31 verbose #45501 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45502 > │ let v146 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45503 > │ v146 │
00:08:31 verbose #45504 > │ #endif │
00:08:31 verbose #45505 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45506 > │ let v147 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45507 > │ v147 │
00:08:31 verbose #45508 > │ #endif │
00:08:31 verbose #45509 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45510 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45511 > │ let v148 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:31 verbose #45512 > │ System.IO.File.ReadAllTextAsync │
00:08:31 verbose #45513 > │ let v149 : System.Threading.Tasks.Task<string> = v148 v0 │
00:08:31 verbose #45514 > │ let v150 : Async<string> option = None │
00:08:31 verbose #45515 > │ let v151 : bool = true in let mutable _v150 = v150 │
00:08:31 verbose #45516 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45517 > │ let v152 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45518 > │ v152 │
00:08:31 verbose #45519 > │ #endif │
00:08:31 verbose #45520 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45521 > │ let v153 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45522 > │ v153 │
00:08:31 verbose #45523 > │ #endif │
00:08:31 verbose #45524 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45525 > │ let v154 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45526 > │ v154 │
00:08:31 verbose #45527 > │ #endif │
00:08:31 verbose #45528 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45529 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45530 > │ let v155 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:31 verbose #45531 > │ Async.AwaitTask │
00:08:31 verbose #45532 > │ let v156 : Async<string> = v155 v149 │
00:08:31 verbose #45533 > │ v156 │
00:08:31 verbose #45534 > │ #endif │
00:08:31 verbose #45535 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45536 > │ let v157 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45537 > │ v157 │
00:08:31 verbose #45538 > │ #endif │
00:08:31 verbose #45539 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45540 > │ let v158 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #45541 > │ v158 │
00:08:31 verbose #45542 > │ #endif │
00:08:31 verbose #45543 > │ |> fun x -> _v150 <- Some x │
00:08:31 verbose #45544 > │ let v159 : Async<string> = _v150.Value │
00:08:31 verbose #45545 > │ v159 │
00:08:31 verbose #45546 > │ #endif │
00:08:31 verbose #45547 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45548 > │ let v160 : Async<string> = null |> unbox<Async<string>> │
00:08:31 verbose #45549 > │ v160 │
00:08:31 verbose #45550 > │ #endif │
00:08:31 verbose #45551 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45552 > │ let v161 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:31 verbose #45553 > │ v161 │
00:08:31 verbose #45554 > │ #endif │
00:08:31 verbose #45555 > │ |> fun x -> _v143 <- Some x │
00:08:31 verbose #45556 > │ let v162 : Async<string> = _v143.Value │
00:08:31 verbose #45557 > │ let v163 : Async<string option> option = None │
00:08:31 verbose #45558 > │ let v164 : bool = true in let mutable _v163 = v163 │
00:08:31 verbose #45559 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45560 > │ let v165 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45561 > │ v165 │
00:08:31 verbose #45562 > │ #endif │
00:08:31 verbose #45563 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45564 > │ let v166 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45565 > │ v166 │
00:08:31 verbose #45566 > │ #endif │
00:08:31 verbose #45567 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45568 > │ let v167 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45569 > │ v167 │
00:08:31 verbose #45570 > │ #endif │
00:08:31 verbose #45571 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45572 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45573 > │ let v168 : Async<string option> option = None │
00:08:31 verbose #45574 > │ let mutable _v168 = v168 │
00:08:31 verbose #45575 > │ async { │
00:08:31 verbose #45576 > │ let! v162 = v162 │
00:08:31 verbose #45577 > │ let v169 : string = v162 │
00:08:31 verbose #45578 > │ let v170 : string option = Some v169 │
00:08:31 verbose #45579 > │ return v170 │
00:08:31 verbose #45580 > │ } │
00:08:31 verbose #45581 > │ |> fun x -> _v168 <- Some x │
00:08:31 verbose #45582 > │ let v171 : Async<string option> = _v168 |> Option.get │
00:08:31 verbose #45583 > │ v171 │
00:08:31 verbose #45584 > │ #endif │
00:08:31 verbose #45585 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45586 > │ let v172 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45587 > │ v172 │
00:08:31 verbose #45588 > │ #endif │
00:08:31 verbose #45589 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45590 > │ let v173 : Async<string option> = Unchecked.defaultof<Async<string │
00:08:31 verbose #45591 > │ option>> │
00:08:31 verbose #45592 > │ v173 │
00:08:31 verbose #45593 > │ #endif │
00:08:31 verbose #45594 > │ |> fun x -> _v163 <- Some x │
00:08:31 verbose #45595 > │ let v174 : Async<string option> = _v163.Value │
00:08:31 verbose #45596 > │ return! v174 │
00:08:31 verbose #45597 > │ with ex -> │
00:08:31 verbose #45598 > │ let v175 : exn = ex │
00:08:31 verbose #45599 > │ let v176 : bool = v1 = 0L │
00:08:31 verbose #45600 > │ let v177 : bool = v176 <> true │
00:08:31 verbose #45601 > │ if v177 then │
00:08:31 verbose #45602 > │ let v178 : string option = None │
00:08:31 verbose #45603 > │ let v179 : bool = true in let mutable _v178 = v178 │
00:08:31 verbose #45604 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45605 > │ let v180 : string = $"%A{v175}" │
00:08:31 verbose #45606 > │ v180 │
00:08:31 verbose #45607 > │ #endif │
00:08:31 verbose #45608 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45609 > │ let v181 : string = $"%A{v175}" │
00:08:31 verbose #45610 > │ v181 │
00:08:31 verbose #45611 > │ #endif │
00:08:31 verbose #45612 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45613 > │ let v182 : string = $"%A{v175}" │
00:08:31 verbose #45614 > │ v182 │
00:08:31 verbose #45615 > │ #endif │
00:08:31 verbose #45616 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45617 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45618 > │ let v183 : string = $"{v175.GetType ()}: {v175.Message}" │
00:08:31 verbose #45619 > │ v183 │
00:08:31 verbose #45620 > │ #endif │
00:08:31 verbose #45621 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45622 > │ let v184 : string = $"%A{v175}" │
00:08:31 verbose #45623 > │ v184 │
00:08:31 verbose #45624 > │ #endif │
00:08:31 verbose #45625 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:31 verbose #45626 > │ FABLE_COMPILER_DART │
00:08:31 verbose #45627 > │ let v185 : string = Unchecked.defaultof<string> │
00:08:31 verbose #45628 > │ v185 │
00:08:31 verbose #45629 > │ #endif │
00:08:31 verbose #45630 > │ |> fun x -> _v178 <- Some x │
00:08:31 verbose #45631 > │ let v186 : string = _v178.Value │
00:08:31 verbose #45632 > │ let v187 : US0 = US0_1 │
00:08:31 verbose #45633 > │ let v188 : (unit -> string) = closure34() │
00:08:31 verbose #45634 > │ let v189 : (unit -> string) = closure35(v1, v186) │
00:08:31 verbose #45635 > │ method3(v187, v188, v189) │
00:08:31 verbose #45636 > │ let v190 : string option = None │
00:08:31 verbose #45637 > │ return v190 │
00:08:31 verbose #45638 > │ (* │
00:08:31 verbose #45639 > │ () │
00:08:31 verbose #45640 > │ else │
00:08:31 verbose #45641 > │ *) else │
00:08:31 verbose #45642 > │ let v191 : int64 = v1 + 1L │
00:08:31 verbose #45643 > │ let v192 : Async<string option> = method12(v0, v191) │
00:08:31 verbose #45644 > │ return! v192 │
00:08:31 verbose #45645 > │ (* │
00:08:31 verbose #45646 > │ () │
00:08:31 verbose #45647 > │ *) │
00:08:31 verbose #45648 > │ (* │
00:08:31 verbose #45649 > │ let v193 : string option = *) │
00:08:31 verbose #45650 > │ } │
00:08:31 verbose #45651 > │ |> fun x -> _v7 <- Some x │
00:08:31 verbose #45652 > │ let v194 : Async<string option> = _v7 |> Option.get │
00:08:31 verbose #45653 > │ v194 │
00:08:31 verbose #45654 > │ #endif │
00:08:31 verbose #45655 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45656 > │ let v195 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45657 > │ v195 │
00:08:31 verbose #45658 > │ #endif │
00:08:31 verbose #45659 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45660 > │ let v196 : Async<string option> = Unchecked.defaultof<Async<string │
00:08:31 verbose #45661 > │ option>> │
00:08:31 verbose #45662 > │ v196 │
00:08:31 verbose #45663 > │ #endif │
00:08:31 verbose #45664 > │ |> fun x -> _v2 <- Some x │
00:08:31 verbose #45665 > │ let v197 : Async<string option> = _v2.Value │
00:08:31 verbose #45666 > │ v197 │
00:08:31 verbose #45667 > │ and closure28 () (v0 : string) : Async<string option> = │
00:08:31 verbose #45668 > │ let v1 : Async<string option> option = None │
00:08:31 verbose #45669 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:31 verbose #45670 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45671 > │ let v3 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45672 > │ v3 │
00:08:31 verbose #45673 > │ #endif │
00:08:31 verbose #45674 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45675 > │ let v4 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45676 > │ v4 │
00:08:31 verbose #45677 > │ #endif │
00:08:31 verbose #45678 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45679 > │ let v5 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45680 > │ v5 │
00:08:31 verbose #45681 > │ #endif │
00:08:31 verbose #45682 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45683 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45684 > │ let v6 : int64 = 0L │
00:08:31 verbose #45685 > │ let v7 : Async<string option> = method12(v0, v6) │
00:08:31 verbose #45686 > │ v7 │
00:08:31 verbose #45687 > │ #endif │
00:08:31 verbose #45688 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45689 > │ let v8 : Async<string option> = null |> unbox<Async<string option>> │
00:08:31 verbose #45690 > │ v8 │
00:08:31 verbose #45691 > │ #endif │
00:08:31 verbose #45692 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45693 > │ let v9 : Async<string option> = Unchecked.defaultof<Async<string │
00:08:31 verbose #45694 > │ option>> │
00:08:31 verbose #45695 > │ v9 │
00:08:31 verbose #45696 > │ #endif │
00:08:31 verbose #45697 > │ |> fun x -> _v1 <- Some x │
00:08:31 verbose #45698 > │ let v10 : Async<string option> = _v1.Value │
00:08:31 verbose #45699 > │ v10 │
00:08:31 verbose #45700 > │ and closure37 () () : string = │
00:08:31 verbose #45701 > │ let v0 : string option = None │
00:08:31 verbose #45702 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:31 verbose #45703 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45704 > │ let v2 : string = null |> unbox<string> │
00:08:31 verbose #45705 > │ v2 │
00:08:31 verbose #45706 > │ #endif │
00:08:31 verbose #45707 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45708 > │ let v3 : string = null |> unbox<string> │
00:08:31 verbose #45709 > │ v3 │
00:08:31 verbose #45710 > │ #endif │
00:08:31 verbose #45711 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45712 > │ let v4 : string = null |> unbox<string> │
00:08:31 verbose #45713 > │ v4 │
00:08:31 verbose #45714 > │ #endif │
00:08:31 verbose #45715 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45716 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45717 > │ let v5 : string = │
00:08:31 verbose #45718 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:31 verbose #45719 > │ v5 │
00:08:31 verbose #45720 > │ #endif │
00:08:31 verbose #45721 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45722 > │ let v6 : string = null |> unbox<string> │
00:08:31 verbose #45723 > │ v6 │
00:08:31 verbose #45724 > │ #endif │
00:08:31 verbose #45725 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45726 > │ let v7 : string = Unchecked.defaultof<string> │
00:08:31 verbose #45727 > │ v7 │
00:08:31 verbose #45728 > │ #endif │
00:08:31 verbose #45729 > │ |> fun x -> _v0 <- Some x │
00:08:31 verbose #45730 > │ let v8 : string = _v0.Value │
00:08:31 verbose #45731 > │ v8 │
00:08:31 verbose #45732 > │ and method14 (v0 : string) : string = │
00:08:31 verbose #45733 > │ v0 │
00:08:31 verbose #45734 > │ and method15 (v0 : string) : string = │
00:08:31 verbose #45735 > │ v0 │
00:08:31 verbose #45736 > │ and closure36 () () : string = │
00:08:31 verbose #45737 > │ let v0 : string option = None │
00:08:31 verbose #45738 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:31 verbose #45739 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45740 > │ let v2 : string = null |> unbox<string> │
00:08:31 verbose #45741 > │ v2 │
00:08:31 verbose #45742 > │ #endif │
00:08:31 verbose #45743 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45744 > │ let v3 : string = null |> unbox<string> │
00:08:31 verbose #45745 > │ v3 │
00:08:31 verbose #45746 > │ #endif │
00:08:31 verbose #45747 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45748 > │ let v4 : string = null |> unbox<string> │
00:08:31 verbose #45749 > │ v4 │
00:08:31 verbose #45750 > │ #endif │
00:08:31 verbose #45751 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45752 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45753 > │ let v5 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:31 verbose #45754 > │ let v6 : string = v5 () │
00:08:31 verbose #45755 > │ let v7 : (unit -> string) = closure37() │
00:08:31 verbose #45756 > │ let v8 : string = $"!{v7 ()}" │
00:08:31 verbose #45757 > │ let v9 : string option = None │
00:08:31 verbose #45758 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:08:31 verbose #45759 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45760 > │ let v11 : string = method9(v6) │
00:08:31 verbose #45761 > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #45762 > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:08:31 verbose #45763 > │ let v14 : string = "String::from($0)" │
00:08:31 verbose #45764 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:08:31 verbose #45765 > │ v14 │
00:08:31 verbose #45766 > │ let v16 : string = "std::path::PathBuf::from($0)" │
00:08:31 verbose #45767 > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v15 v16 │
00:08:31 verbose #45768 > │ let v18 : string = method9(v8) │
00:08:31 verbose #45769 > │ let v19 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #45770 > │ let v20 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:08:31 verbose #45771 > │ let v21 : string = "String::from($0)" │
00:08:31 verbose #45772 > │ let v22 : std_string_String = Fable.Core.RustInterop.emitRustExpr v20 │
00:08:31 verbose #45773 > │ v21 │
00:08:31 verbose #45774 > │ let v23 : string = "$0.join($1)" │
00:08:31 verbose #45775 > │ let v24 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:31 verbose #45776 > │ (v17, v22) v23 │
00:08:31 verbose #45777 > │ let v25 : string = "$0.display().to_string()" │
00:08:31 verbose #45778 > │ let v26 : std_string_String = Fable.Core.RustInterop.emitRustExpr v24 │
00:08:31 verbose #45779 > │ v25 │
00:08:31 verbose #45780 > │ let v27 : string = "fable_library_rust::String_::fromString($0)" │
00:08:31 verbose #45781 > │ let v28 : string = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:31 verbose #45782 > │ v28 │
00:08:31 verbose #45783 > │ #endif │
00:08:31 verbose #45784 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45785 > │ let v29 : string = null |> unbox<string> │
00:08:31 verbose #45786 > │ v29 │
00:08:31 verbose #45787 > │ #endif │
00:08:31 verbose #45788 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45789 > │ let v30 : string = null |> unbox<string> │
00:08:31 verbose #45790 > │ v30 │
00:08:31 verbose #45791 > │ #endif │
00:08:31 verbose #45792 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45793 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45794 > │ let v31 : string = System.IO.Path.Combine (v6, v8) │
00:08:31 verbose #45795 > │ v31 │
00:08:31 verbose #45796 > │ #endif │
00:08:31 verbose #45797 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45798 > │ let v32 : string = "path" │
00:08:31 verbose #45799 > │ let v33 : IPathJoin = Fable.Core.JsInterop.importAll v32 │
00:08:31 verbose #45800 > │ let v34 : string = method14(v6) │
00:08:31 verbose #45801 > │ let v35 : string = method15(v8) │
00:08:31 verbose #45802 > │ let v36 : string = "v33.join(v34, v35)" │
00:08:31 verbose #45803 > │ let v37 : string = Fable.Core.JsInterop.emitJsExpr () v36 │
00:08:31 verbose #45804 > │ v37 │
00:08:31 verbose #45805 > │ #endif │
00:08:31 verbose #45806 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45807 > │ let v38 : string = Unchecked.defaultof<string> │
00:08:31 verbose #45808 > │ v38 │
00:08:31 verbose #45809 > │ #endif │
00:08:31 verbose #45810 > │ |> fun x -> _v9 <- Some x │
00:08:31 verbose #45811 > │ let v39 : string = _v9.Value │
00:08:31 verbose #45812 > │ let v40 : System.DateTime = System.DateTime.Now │
00:08:31 verbose #45813 > │ let v41 : System.Guid = System.Guid.NewGuid () │
00:08:31 verbose #45814 > │ let v42 : (System.Guid -> string) = _.ToString() │
00:08:31 verbose #45815 > │ let v43 : string = v42 v41 │
00:08:31 verbose #45816 > │ let v44 : string = v40.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:31 verbose #45817 > │ let v45 : System.Guid = System.Guid $"{v44}{v43.[v44.Length..]}" │
00:08:31 verbose #45818 > │ let v46 : (System.Guid -> string) = _.ToString() │
00:08:31 verbose #45819 > │ let v47 : string = v46 v45 │
00:08:31 verbose #45820 > │ let v48 : string option = None │
00:08:31 verbose #45821 > │ let v49 : bool = true in let mutable _v48 = v48 │
00:08:31 verbose #45822 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45823 > │ let v50 : string = method9(v39) │
00:08:31 verbose #45824 > │ let v51 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #45825 > │ let v52 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v50 v51 │
00:08:31 verbose #45826 > │ let v53 : string = "String::from($0)" │
00:08:31 verbose #45827 > │ let v54 : std_string_String = Fable.Core.RustInterop.emitRustExpr v52 │
00:08:31 verbose #45828 > │ v53 │
00:08:31 verbose #45829 > │ let v55 : string = "std::path::PathBuf::from($0)" │
00:08:31 verbose #45830 > │ let v56 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v54 v55 │
00:08:31 verbose #45831 > │ let v57 : string = method9(v47) │
00:08:31 verbose #45832 > │ let v58 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:31 verbose #45833 > │ let v59 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v57 v58 │
00:08:31 verbose #45834 > │ let v60 : string = "String::from($0)" │
00:08:31 verbose #45835 > │ let v61 : std_string_String = Fable.Core.RustInterop.emitRustExpr v59 │
00:08:31 verbose #45836 > │ v60 │
00:08:31 verbose #45837 > │ let v62 : string = "$0.join($1)" │
00:08:31 verbose #45838 > │ let v63 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:31 verbose #45839 > │ (v56, v61) v62 │
00:08:31 verbose #45840 > │ let v64 : string = "$0.display().to_string()" │
00:08:31 verbose #45841 > │ let v65 : std_string_String = Fable.Core.RustInterop.emitRustExpr v63 │
00:08:31 verbose #45842 > │ v64 │
00:08:31 verbose #45843 > │ let v66 : string = "fable_library_rust::String_::fromString($0)" │
00:08:31 verbose #45844 > │ let v67 : string = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:31 verbose #45845 > │ v67 │
00:08:31 verbose #45846 > │ #endif │
00:08:31 verbose #45847 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45848 > │ let v68 : string = null |> unbox<string> │
00:08:31 verbose #45849 > │ v68 │
00:08:31 verbose #45850 > │ #endif │
00:08:31 verbose #45851 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45852 > │ let v69 : string = null |> unbox<string> │
00:08:31 verbose #45853 > │ v69 │
00:08:31 verbose #45854 > │ #endif │
00:08:31 verbose #45855 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45856 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45857 > │ let v70 : string = System.IO.Path.Combine (v39, v47) │
00:08:31 verbose #45858 > │ v70 │
00:08:31 verbose #45859 > │ #endif │
00:08:31 verbose #45860 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45861 > │ let v71 : IPathJoin = Fable.Core.JsInterop.importAll v32 │
00:08:31 verbose #45862 > │ let v72 : string = method14(v39) │
00:08:31 verbose #45863 > │ let v73 : string = method15(v47) │
00:08:31 verbose #45864 > │ let v74 : string = "v71.join(v72, v73)" │
00:08:31 verbose #45865 > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr () v74 │
00:08:31 verbose #45866 > │ v75 │
00:08:31 verbose #45867 > │ #endif │
00:08:31 verbose #45868 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45869 > │ let v76 : string = Unchecked.defaultof<string> │
00:08:31 verbose #45870 > │ v76 │
00:08:31 verbose #45871 > │ #endif │
00:08:31 verbose #45872 > │ |> fun x -> _v48 <- Some x │
00:08:31 verbose #45873 > │ let v77 : string = _v48.Value │
00:08:31 verbose #45874 > │ v77 │
00:08:31 verbose #45875 > │ #endif │
00:08:31 verbose #45876 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45877 > │ let v78 : string = null |> unbox<string> │
00:08:31 verbose #45878 > │ v78 │
00:08:31 verbose #45879 > │ #endif │
00:08:31 verbose #45880 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45881 > │ let v79 : string = Unchecked.defaultof<string> │
00:08:31 verbose #45882 > │ v79 │
00:08:31 verbose #45883 > │ #endif │
00:08:31 verbose #45884 > │ |> fun x -> _v0 <- Some x │
00:08:31 verbose #45885 > │ let v80 : string = _v0.Value │
00:08:31 verbose #45886 > │ v80 │
00:08:31 verbose #45887 > │ and closure39 () () : string = │
00:08:31 verbose #45888 > │ let v0 : string = "file_system.create_temp_directory" │
00:08:31 verbose #45889 > │ v0 │
00:08:31 verbose #45890 > │ and closure40 (v0 : string, v1 : string) () : string = │
00:08:31 verbose #45891 > │ let v2 : (unit -> string) = closure6() │
00:08:31 verbose #45892 > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:31 verbose #45893 > │ v3 │
00:08:31 verbose #45894 > │ and closure41 (v0 : string) () : unit = │
00:08:31 verbose #45895 > │ let v1 : Async<int64> option = None │
00:08:31 verbose #45896 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:31 verbose #45897 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45898 > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45899 > │ v3 │
00:08:31 verbose #45900 > │ #endif │
00:08:31 verbose #45901 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45902 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45903 > │ v4 │
00:08:31 verbose #45904 > │ #endif │
00:08:31 verbose #45905 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45906 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45907 > │ v5 │
00:08:31 verbose #45908 > │ #endif │
00:08:31 verbose #45909 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45910 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45911 > │ let v6 : int64 = 0L │
00:08:31 verbose #45912 > │ let v7 : Async<int64> = method2(v0, v6) │
00:08:31 verbose #45913 > │ v7 │
00:08:31 verbose #45914 > │ #endif │
00:08:31 verbose #45915 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45916 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:31 verbose #45917 > │ v8 │
00:08:31 verbose #45918 > │ #endif │
00:08:31 verbose #45919 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45920 > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:31 verbose #45921 > │ v9 │
00:08:31 verbose #45922 > │ #endif │
00:08:31 verbose #45923 > │ |> fun x -> _v1 <- Some x │
00:08:31 verbose #45924 > │ let v10 : Async<int64> = _v1.Value │
00:08:31 verbose #45925 > │ let v11 : Async<unit> option = None │
00:08:31 verbose #45926 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:08:31 verbose #45927 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45928 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45929 > │ v13 │
00:08:31 verbose #45930 > │ #endif │
00:08:31 verbose #45931 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45932 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45933 > │ v14 │
00:08:31 verbose #45934 > │ #endif │
00:08:31 verbose #45935 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45936 > │ let v15 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45937 > │ v15 │
00:08:31 verbose #45938 > │ #endif │
00:08:31 verbose #45939 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45940 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45941 > │ let v16 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:31 verbose #45942 > │ let v17 : Async<unit> = v16 v10 │
00:08:31 verbose #45943 > │ v17 │
00:08:31 verbose #45944 > │ #endif │
00:08:31 verbose #45945 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45946 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:31 verbose #45947 > │ v18 │
00:08:31 verbose #45948 > │ #endif │
00:08:31 verbose #45949 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45950 > │ let v19 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:31 verbose #45951 > │ v19 │
00:08:31 verbose #45952 > │ #endif │
00:08:31 verbose #45953 > │ |> fun x -> _v11 <- Some x │
00:08:31 verbose #45954 > │ let v20 : Async<unit> = _v11.Value │
00:08:31 verbose #45955 > │ let v21 : unit option = None │
00:08:31 verbose #45956 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:08:31 verbose #45957 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45958 > │ null |> unbox<unit> │
00:08:31 verbose #45959 > │ () │
00:08:31 verbose #45960 > │ #endif │
00:08:31 verbose #45961 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45962 > │ null |> unbox<unit> │
00:08:31 verbose #45963 > │ () │
00:08:31 verbose #45964 > │ #endif │
00:08:31 verbose #45965 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #45966 > │ null |> unbox<unit> │
00:08:31 verbose #45967 > │ () │
00:08:31 verbose #45968 > │ #endif │
00:08:31 verbose #45969 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #45970 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #45971 > │ let v23 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:31 verbose #45972 > │ v23 v20 │
00:08:31 verbose #45973 > │ () │
00:08:31 verbose #45974 > │ #endif │
00:08:31 verbose #45975 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:31 verbose #45976 > │ null |> unbox<unit> │
00:08:31 verbose #45977 > │ () │
00:08:31 verbose #45978 > │ #endif │
00:08:31 verbose #45979 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:31 verbose #45980 > │ Unchecked.defaultof<unit> │
00:08:31 verbose #45981 > │ () │
00:08:31 verbose #45982 > │ #endif │
00:08:31 verbose #45983 > │ |> fun x -> _v21 <- Some x │
00:08:31 verbose #45984 > │ _v21.Value │
00:08:31 verbose #45985 > │ () │
00:08:31 verbose #45986 > │ and closure38 () () : struct (string * System.IDisposable) = │
00:08:31 verbose #45987 > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:31 verbose #45988 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:08:31 verbose #45989 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #45990 > │ let struct (v2 : string, v3 : System.IDisposable) = null |> unbox<struct │
00:08:31 verbose #45991 > │ (string * System.IDisposable)> │
00:08:31 verbose #45992 > │ struct (v2, v3) │
00:08:31 verbose #45993 > │ #endif │
00:08:31 verbose #45994 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #45995 > │ let struct (v4 : string, v5 : System.IDisposable) = null |> unbox<struct │
00:08:31 verbose #45996 > │ (string * System.IDisposable)> │
00:08:31 verbose #45997 > │ struct (v4, v5) │
00:08:31 verbose #45998 > │ #endif │
00:08:31 verbose #45999 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #46000 > │ let struct (v6 : string, v7 : System.IDisposable) = null |> unbox<struct │
00:08:31 verbose #46001 > │ (string * System.IDisposable)> │
00:08:31 verbose #46002 > │ struct (v6, v7) │
00:08:31 verbose #46003 > │ #endif │
00:08:31 verbose #46004 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #46005 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #46006 > │ let v8 : string option = None │
00:08:31 verbose #46007 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:08:31 verbose #46008 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:31 verbose #46009 > │ let v10 : string = null |> unbox<string> │
00:08:31 verbose #46010 > │ v10 │
00:08:31 verbose #46011 > │ #endif │
00:08:31 verbose #46012 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:31 verbose #46013 > │ let v11 : string = null |> unbox<string> │
00:08:31 verbose #46014 > │ v11 │
00:08:31 verbose #46015 > │ #endif │
00:08:31 verbose #46016 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:31 verbose #46017 > │ let v12 : string = null |> unbox<string> │
00:08:31 verbose #46018 > │ v12 │
00:08:31 verbose #46019 > │ #endif │
00:08:31 verbose #46020 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:31 verbose #46021 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:31 verbose #46022 > │ let v13 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:31 verbose #46023 > │ let v14 : string = v13 () │
00:08:32 verbose #46024 > │ let v15 : (unit -> string) = closure37() │
00:08:32 verbose #46025 > │ let v16 : string = $"!{v15 ()}" │
00:08:32 verbose #46026 > │ let v17 : string option = None │
00:08:32 verbose #46027 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:08:32 verbose #46028 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46029 > │ let v19 : string = method9(v14) │
00:08:32 verbose #46030 > │ let v20 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46031 > │ let v21 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:32 verbose #46032 > │ let v22 : string = "String::from($0)" │
00:08:32 verbose #46033 > │ let v23 : std_string_String = Fable.Core.RustInterop.emitRustExpr v21 │
00:08:32 verbose #46034 > │ v22 │
00:08:32 verbose #46035 > │ let v24 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46036 > │ let v25 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:32 verbose #46037 > │ let v26 : string = method9(v16) │
00:08:32 verbose #46038 > │ let v27 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46039 > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:32 verbose #46040 > │ let v29 : string = "String::from($0)" │
00:08:32 verbose #46041 > │ let v30 : std_string_String = Fable.Core.RustInterop.emitRustExpr v28 │
00:08:32 verbose #46042 > │ v29 │
00:08:32 verbose #46043 > │ let v31 : string = "$0.join($1)" │
00:08:32 verbose #46044 > │ let v32 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46045 > │ (v25, v30) v31 │
00:08:32 verbose #46046 > │ let v33 : string = "$0.display().to_string()" │
00:08:32 verbose #46047 > │ let v34 : std_string_String = Fable.Core.RustInterop.emitRustExpr v32 │
00:08:32 verbose #46048 > │ v33 │
00:08:32 verbose #46049 > │ let v35 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46050 > │ let v36 : string = Fable.Core.RustInterop.emitRustExpr v34 v35 │
00:08:32 verbose #46051 > │ v36 │
00:08:32 verbose #46052 > │ #endif │
00:08:32 verbose #46053 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46054 > │ let v37 : string = null |> unbox<string> │
00:08:32 verbose #46055 > │ v37 │
00:08:32 verbose #46056 > │ #endif │
00:08:32 verbose #46057 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46058 > │ let v38 : string = null |> unbox<string> │
00:08:32 verbose #46059 > │ v38 │
00:08:32 verbose #46060 > │ #endif │
00:08:32 verbose #46061 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46062 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46063 > │ let v39 : string = System.IO.Path.Combine (v14, v16) │
00:08:32 verbose #46064 > │ v39 │
00:08:32 verbose #46065 > │ #endif │
00:08:32 verbose #46066 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46067 > │ let v40 : string = "path" │
00:08:32 verbose #46068 > │ let v41 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:32 verbose #46069 > │ let v42 : string = method14(v14) │
00:08:32 verbose #46070 > │ let v43 : string = method15(v16) │
00:08:32 verbose #46071 > │ let v44 : string = "v41.join(v42, v43)" │
00:08:32 verbose #46072 > │ let v45 : string = Fable.Core.JsInterop.emitJsExpr () v44 │
00:08:32 verbose #46073 > │ v45 │
00:08:32 verbose #46074 > │ #endif │
00:08:32 verbose #46075 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46076 > │ let v46 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46077 > │ v46 │
00:08:32 verbose #46078 > │ #endif │
00:08:32 verbose #46079 > │ |> fun x -> _v17 <- Some x │
00:08:32 verbose #46080 > │ let v47 : string = _v17.Value │
00:08:32 verbose #46081 > │ let v48 : System.DateTime = System.DateTime.Now │
00:08:32 verbose #46082 > │ let v49 : System.Guid = System.Guid.NewGuid () │
00:08:32 verbose #46083 > │ let v50 : (System.Guid -> string) = _.ToString() │
00:08:32 verbose #46084 > │ let v51 : string = v50 v49 │
00:08:32 verbose #46085 > │ let v52 : string = v48.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:32 verbose #46086 > │ let v53 : System.Guid = System.Guid $"{v52}{v51.[v52.Length..]}" │
00:08:32 verbose #46087 > │ let v54 : (System.Guid -> string) = _.ToString() │
00:08:32 verbose #46088 > │ let v55 : string = v54 v53 │
00:08:32 verbose #46089 > │ let v56 : string option = None │
00:08:32 verbose #46090 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:08:32 verbose #46091 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46092 > │ let v58 : string = method9(v47) │
00:08:32 verbose #46093 > │ let v59 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46094 > │ let v60 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v58 v59 │
00:08:32 verbose #46095 > │ let v61 : string = "String::from($0)" │
00:08:32 verbose #46096 > │ let v62 : std_string_String = Fable.Core.RustInterop.emitRustExpr v60 │
00:08:32 verbose #46097 > │ v61 │
00:08:32 verbose #46098 > │ let v63 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46099 > │ let v64 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v62 v63 │
00:08:32 verbose #46100 > │ let v65 : string = method9(v55) │
00:08:32 verbose #46101 > │ let v66 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46102 > │ let v67 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v65 v66 │
00:08:32 verbose #46103 > │ let v68 : string = "String::from($0)" │
00:08:32 verbose #46104 > │ let v69 : std_string_String = Fable.Core.RustInterop.emitRustExpr v67 │
00:08:32 verbose #46105 > │ v68 │
00:08:32 verbose #46106 > │ let v70 : string = "$0.join($1)" │
00:08:32 verbose #46107 > │ let v71 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46108 > │ (v64, v69) v70 │
00:08:32 verbose #46109 > │ let v72 : string = "$0.display().to_string()" │
00:08:32 verbose #46110 > │ let v73 : std_string_String = Fable.Core.RustInterop.emitRustExpr v71 │
00:08:32 verbose #46111 > │ v72 │
00:08:32 verbose #46112 > │ let v74 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46113 > │ let v75 : string = Fable.Core.RustInterop.emitRustExpr v73 v74 │
00:08:32 verbose #46114 > │ v75 │
00:08:32 verbose #46115 > │ #endif │
00:08:32 verbose #46116 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46117 > │ let v76 : string = null |> unbox<string> │
00:08:32 verbose #46118 > │ v76 │
00:08:32 verbose #46119 > │ #endif │
00:08:32 verbose #46120 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46121 > │ let v77 : string = null |> unbox<string> │
00:08:32 verbose #46122 > │ v77 │
00:08:32 verbose #46123 > │ #endif │
00:08:32 verbose #46124 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46125 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46126 > │ let v78 : string = System.IO.Path.Combine (v47, v55) │
00:08:32 verbose #46127 > │ v78 │
00:08:32 verbose #46128 > │ #endif │
00:08:32 verbose #46129 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46130 > │ let v79 : IPathJoin = Fable.Core.JsInterop.importAll v40 │
00:08:32 verbose #46131 > │ let v80 : string = method14(v47) │
00:08:32 verbose #46132 > │ let v81 : string = method15(v55) │
00:08:32 verbose #46133 > │ let v82 : string = "v79.join(v80, v81)" │
00:08:32 verbose #46134 > │ let v83 : string = Fable.Core.JsInterop.emitJsExpr () v82 │
00:08:32 verbose #46135 > │ v83 │
00:08:32 verbose #46136 > │ #endif │
00:08:32 verbose #46137 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46138 > │ let v84 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46139 > │ v84 │
00:08:32 verbose #46140 > │ #endif │
00:08:32 verbose #46141 > │ |> fun x -> _v56 <- Some x │
00:08:32 verbose #46142 > │ let v85 : string = _v56.Value │
00:08:32 verbose #46143 > │ v85 │
00:08:32 verbose #46144 > │ #endif │
00:08:32 verbose #46145 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46146 > │ let v86 : string = null |> unbox<string> │
00:08:32 verbose #46147 > │ v86 │
00:08:32 verbose #46148 > │ #endif │
00:08:32 verbose #46149 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46150 > │ let v87 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46151 > │ v87 │
00:08:32 verbose #46152 > │ #endif │
00:08:32 verbose #46153 > │ |> fun x -> _v8 <- Some x │
00:08:32 verbose #46154 > │ let v88 : string = _v8.Value │
00:08:32 verbose #46155 > │ let v89 : System.IO.DirectoryInfo option = None │
00:08:32 verbose #46156 > │ let v90 : bool = true in let mutable _v89 = v89 │
00:08:32 verbose #46157 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46158 > │ let v91 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #46159 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #46160 > │ v91 │
00:08:32 verbose #46161 > │ #endif │
00:08:32 verbose #46162 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46163 > │ let v92 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #46164 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #46165 > │ v92 │
00:08:32 verbose #46166 > │ #endif │
00:08:32 verbose #46167 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46168 > │ let v93 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #46169 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #46170 > │ v93 │
00:08:32 verbose #46171 > │ #endif │
00:08:32 verbose #46172 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46173 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46174 > │ let v94 : (string -> System.IO.DirectoryInfo) = │
00:08:32 verbose #46175 > │ System.IO.Directory.CreateDirectory │
00:08:32 verbose #46176 > │ let v95 : System.IO.DirectoryInfo = v94 v88 │
00:08:32 verbose #46177 > │ v95 │
00:08:32 verbose #46178 > │ #endif │
00:08:32 verbose #46179 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46180 > │ let v96 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #46181 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #46182 > │ v96 │
00:08:32 verbose #46183 > │ #endif │
00:08:32 verbose #46184 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46185 > │ let v97 : System.IO.DirectoryInfo = │
00:08:32 verbose #46186 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:32 verbose #46187 > │ v97 │
00:08:32 verbose #46188 > │ #endif │
00:08:32 verbose #46189 > │ |> fun x -> _v89 <- Some x │
00:08:32 verbose #46190 > │ let v98 : System.IO.DirectoryInfo = _v89.Value │
00:08:32 verbose #46191 > │ let v99 : bool option = None │
00:08:32 verbose #46192 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:08:32 verbose #46193 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46194 > │ let v101 : bool = null |> unbox<bool> │
00:08:32 verbose #46195 > │ v101 │
00:08:32 verbose #46196 > │ #endif │
00:08:32 verbose #46197 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46198 > │ let v102 : bool = null |> unbox<bool> │
00:08:32 verbose #46199 > │ v102 │
00:08:32 verbose #46200 > │ #endif │
00:08:32 verbose #46201 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46202 > │ let v103 : bool = null |> unbox<bool> │
00:08:32 verbose #46203 > │ v103 │
00:08:32 verbose #46204 > │ #endif │
00:08:32 verbose #46205 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46206 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46207 > │ let v104 : bool = v98.Exists │
00:08:32 verbose #46208 > │ v104 │
00:08:32 verbose #46209 > │ #endif │
00:08:32 verbose #46210 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46211 > │ let v105 : bool = null |> unbox<bool> │
00:08:32 verbose #46212 > │ v105 │
00:08:32 verbose #46213 > │ #endif │
00:08:32 verbose #46214 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46215 > │ let v106 : bool = Unchecked.defaultof<bool> │
00:08:32 verbose #46216 > │ v106 │
00:08:32 verbose #46217 > │ #endif │
00:08:32 verbose #46218 > │ |> fun x -> _v99 <- Some x │
00:08:32 verbose #46219 > │ let v107 : bool = _v99.Value │
00:08:32 verbose #46220 > │ let v108 : bool = v107 = false │
00:08:32 verbose #46221 > │ if v108 then │
00:08:32 verbose #46222 > │ let v109 : System.DateTime option = None │
00:08:32 verbose #46223 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:08:32 verbose #46224 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46225 > │ let v111 : System.DateTime = null |> unbox<System.DateTime> │
00:08:32 verbose #46226 > │ v111 │
00:08:32 verbose #46227 > │ #endif │
00:08:32 verbose #46228 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46229 > │ let v112 : System.DateTime = null |> unbox<System.DateTime> │
00:08:32 verbose #46230 > │ v112 │
00:08:32 verbose #46231 > │ #endif │
00:08:32 verbose #46232 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46233 > │ let v113 : System.DateTime = null |> unbox<System.DateTime> │
00:08:32 verbose #46234 > │ v113 │
00:08:32 verbose #46235 > │ #endif │
00:08:32 verbose #46236 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46237 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46238 > │ let v114 : System.DateTime = v98.CreationTime │
00:08:32 verbose #46239 > │ v114 │
00:08:32 verbose #46240 > │ #endif │
00:08:32 verbose #46241 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46242 > │ let v115 : System.DateTime = null |> unbox<System.DateTime> │
00:08:32 verbose #46243 > │ v115 │
00:08:32 verbose #46244 > │ #endif │
00:08:32 verbose #46245 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:32 verbose #46246 > │ FABLE_COMPILER_DART │
00:08:32 verbose #46247 > │ let v116 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:32 verbose #46248 > │ v116 │
00:08:32 verbose #46249 > │ #endif │
00:08:32 verbose #46250 > │ |> fun x -> _v109 <- Some x │
00:08:32 verbose #46251 > │ let v117 : System.DateTime = _v109.Value │
00:08:32 verbose #46252 > │ let v118 : obj = {| Exists = v107; CreationTime = v117 |} │
00:08:32 verbose #46253 > │ let v119 : string = $"%A{v118}" │
00:08:32 verbose #46254 > │ let v120 : US0 = US0_1 │
00:08:32 verbose #46255 > │ let v121 : (unit -> string) = closure39() │
00:08:32 verbose #46256 > │ let v122 : (unit -> string) = closure40(v88, v119) │
00:08:32 verbose #46257 > │ method3(v120, v121, v122) │
00:08:32 verbose #46258 > │ let v123 : System.IDisposable option = None │
00:08:32 verbose #46259 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:08:32 verbose #46260 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46261 > │ let v125 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:32 verbose #46262 > │ v125 │
00:08:32 verbose #46263 > │ #endif │
00:08:32 verbose #46264 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46265 > │ let v126 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:32 verbose #46266 > │ v126 │
00:08:32 verbose #46267 > │ #endif │
00:08:32 verbose #46268 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46269 > │ let v127 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:32 verbose #46270 > │ v127 │
00:08:32 verbose #46271 > │ #endif │
00:08:32 verbose #46272 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46273 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46274 > │ let v128 : (unit -> unit) = closure41(v88) │
00:08:32 verbose #46275 > │ let v129 : System.IDisposable = { new System.IDisposable with member │
00:08:32 verbose #46276 > │ _.Dispose () = v128 () } │
00:08:32 verbose #46277 > │ v129 │
00:08:32 verbose #46278 > │ #endif │
00:08:32 verbose #46279 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46280 > │ let v130 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:32 verbose #46281 > │ v130 │
00:08:32 verbose #46282 > │ #endif │
00:08:32 verbose #46283 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46284 > │ let v131 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:32 verbose #46285 > │ v131 │
00:08:32 verbose #46286 > │ #endif │
00:08:32 verbose #46287 > │ |> fun x -> _v123 <- Some x │
00:08:32 verbose #46288 > │ let v132 : System.IDisposable = _v123.Value │
00:08:32 verbose #46289 > │ struct (v88, v132) │
00:08:32 verbose #46290 > │ #endif │
00:08:32 verbose #46291 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46292 > │ let struct (v133 : string, v134 : System.IDisposable) = null |> │
00:08:32 verbose #46293 > │ unbox<struct (string * System.IDisposable)> │
00:08:32 verbose #46294 > │ struct (v133, v134) │
00:08:32 verbose #46295 > │ #endif │
00:08:32 verbose #46296 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46297 > │ let struct (v135 : string, v136 : System.IDisposable) = │
00:08:32 verbose #46298 > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:32 verbose #46299 > │ struct (v135, v136) │
00:08:32 verbose #46300 > │ #endif │
00:08:32 verbose #46301 > │ |> fun x -> _v0 <- Some x │
00:08:32 verbose #46302 > │ let struct (v137 : string, v138 : System.IDisposable) = _v0.Value │
00:08:32 verbose #46303 > │ struct (v137, v138) │
00:08:32 verbose #46304 > │ and closure42 () () : string = │
00:08:32 verbose #46305 > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:08:32 verbose #46306 > │ v0 │
00:08:32 verbose #46307 > │ and closure46 () (v0 : string) : bool = │
00:08:32 verbose #46308 > │ let v1 : bool option = None │
00:08:32 verbose #46309 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:32 verbose #46310 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46311 > │ let v3 : string = method9(v0) │
00:08:32 verbose #46312 > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46313 > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:08:32 verbose #46314 > │ let v6 : string = "String::from($0)" │
00:08:32 verbose #46315 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:32 verbose #46316 > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46317 > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:32 verbose #46318 > │ let v10 : string = "$0.exists()" │
00:08:32 verbose #46319 > │ let v11 : bool = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:08:32 verbose #46320 > │ let v14 : bool = │
00:08:32 verbose #46321 > │ if v11 then │
00:08:32 verbose #46322 > │ let v12 : string = "$0.is_file()" │
00:08:32 verbose #46323 > │ let v13 : bool = Fable.Core.RustInterop.emitRustExpr v9 v12 │
00:08:32 verbose #46324 > │ v13 │
00:08:32 verbose #46325 > │ else │
00:08:32 verbose #46326 > │ false │
00:08:32 verbose #46327 > │ v14 │
00:08:32 verbose #46328 > │ #endif │
00:08:32 verbose #46329 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46330 > │ let v15 : bool = null |> unbox<bool> │
00:08:32 verbose #46331 > │ v15 │
00:08:32 verbose #46332 > │ #endif │
00:08:32 verbose #46333 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46334 > │ let v16 : bool = null |> unbox<bool> │
00:08:32 verbose #46335 > │ v16 │
00:08:32 verbose #46336 > │ #endif │
00:08:32 verbose #46337 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46338 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46339 > │ let v17 : (string -> bool) = System.IO.File.Exists │
00:08:32 verbose #46340 > │ let v18 : bool = v17 v0 │
00:08:32 verbose #46341 > │ v18 │
00:08:32 verbose #46342 > │ #endif │
00:08:32 verbose #46343 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46344 > │ let v19 : string = "fs" │
00:08:32 verbose #46345 > │ let v20 : IFsExistsSync = Fable.Core.JsInterop.importAll v19 │
00:08:32 verbose #46346 > │ let v21 : string = "v20.existsSync($0)" │
00:08:32 verbose #46347 > │ let v22 : bool = Fable.Core.JsInterop.emitJsExpr v0 v21 │
00:08:32 verbose #46348 > │ v22 │
00:08:32 verbose #46349 > │ #endif │
00:08:32 verbose #46350 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46351 > │ let v23 : bool = Unchecked.defaultof<bool> │
00:08:32 verbose #46352 > │ v23 │
00:08:32 verbose #46353 > │ #endif │
00:08:32 verbose #46354 > │ |> fun x -> _v1 <- Some x │
00:08:32 verbose #46355 > │ let v24 : bool = _v1.Value │
00:08:32 verbose #46356 > │ v24 │
00:08:32 verbose #46357 > │ and closure47 () (v0 : string) : bool = │
00:08:32 verbose #46358 > │ let v1 : bool option = None │
00:08:32 verbose #46359 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:32 verbose #46360 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46361 > │ let v3 : string = method9(v0) │
00:08:32 verbose #46362 > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46363 > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:08:32 verbose #46364 > │ let v6 : string = "String::from($0)" │
00:08:32 verbose #46365 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:32 verbose #46366 > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46367 > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:32 verbose #46368 > │ let v10 : string = "$0.exists()" │
00:08:32 verbose #46369 > │ let v11 : bool = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:08:32 verbose #46370 > │ let v14 : bool = │
00:08:32 verbose #46371 > │ if v11 then │
00:08:32 verbose #46372 > │ let v12 : string = "$0.is_dir()" │
00:08:32 verbose #46373 > │ let v13 : bool = Fable.Core.RustInterop.emitRustExpr v9 v12 │
00:08:32 verbose #46374 > │ v13 │
00:08:32 verbose #46375 > │ else │
00:08:32 verbose #46376 > │ false │
00:08:32 verbose #46377 > │ v14 │
00:08:32 verbose #46378 > │ #endif │
00:08:32 verbose #46379 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46380 > │ let v15 : bool = null |> unbox<bool> │
00:08:32 verbose #46381 > │ v15 │
00:08:32 verbose #46382 > │ #endif │
00:08:32 verbose #46383 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46384 > │ let v16 : bool = null |> unbox<bool> │
00:08:32 verbose #46385 > │ v16 │
00:08:32 verbose #46386 > │ #endif │
00:08:32 verbose #46387 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46388 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46389 > │ let v17 : (string -> bool) = System.IO.Directory.Exists │
00:08:32 verbose #46390 > │ let v18 : bool = v17 v0 │
00:08:32 verbose #46391 > │ v18 │
00:08:32 verbose #46392 > │ #endif │
00:08:32 verbose #46393 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46394 > │ let v19 : string = "fs" │
00:08:32 verbose #46395 > │ let v20 : IFsExistsSync = Fable.Core.JsInterop.importAll v19 │
00:08:32 verbose #46396 > │ let v21 : string = "v20.existsSync($0)" │
00:08:32 verbose #46397 > │ let v22 : bool = Fable.Core.JsInterop.emitJsExpr v0 v21 │
00:08:32 verbose #46398 > │ v22 │
00:08:32 verbose #46399 > │ #endif │
00:08:32 verbose #46400 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46401 > │ let v23 : bool = Unchecked.defaultof<bool> │
00:08:32 verbose #46402 > │ v23 │
00:08:32 verbose #46403 > │ #endif │
00:08:32 verbose #46404 > │ |> fun x -> _v1 <- Some x │
00:08:32 verbose #46405 > │ let v24 : bool = _v1.Value │
00:08:32 verbose #46406 > │ v24 │
00:08:32 verbose #46407 > │ and closure48 () (v0 : string) : string option = │
00:08:32 verbose #46408 > │ let v1 : US8 option = None │
00:08:32 verbose #46409 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:32 verbose #46410 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46411 > │ let v3 : string = method9(v0) │
00:08:32 verbose #46412 > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46413 > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:08:32 verbose #46414 > │ let v6 : string = "String::from($0)" │
00:08:32 verbose #46415 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:32 verbose #46416 > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46417 > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:32 verbose #46418 > │ let v10 : string = "$0.parent().map(std::path::PathBuf::from)" │
00:08:32 verbose #46419 > │ let v11 : std_path_PathBuf option = Fable.Core.RustInterop.emitRustExpr │
00:08:32 verbose #46420 > │ v9 v10 │
00:08:32 verbose #46421 > │ let v12 : string = "$0?" │
00:08:32 verbose #46422 > │ let v13 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:08:32 verbose #46423 > │ let v14 : string = "$0.display().to_string()" │
00:08:32 verbose #46424 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:08:32 verbose #46425 > │ v14 │
00:08:32 verbose #46426 > │ let v16 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46427 > │ let v17 : string = Fable.Core.RustInterop.emitRustExpr v15 v16 │
00:08:32 verbose #46428 > │ let v18 : US8 = US8_0(v17) │
00:08:32 verbose #46429 > │ v18 │
00:08:32 verbose #46430 > │ #endif │
00:08:32 verbose #46431 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46432 > │ let v19 : US8 = null |> unbox<US8> │
00:08:32 verbose #46433 > │ v19 │
00:08:32 verbose #46434 > │ #endif │
00:08:32 verbose #46435 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46436 > │ let v20 : US8 = null |> unbox<US8> │
00:08:32 verbose #46437 > │ v20 │
00:08:32 verbose #46438 > │ #endif │
00:08:32 verbose #46439 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46440 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46441 > │ let v21 : (string -> System.IO.DirectoryInfo) = │
00:08:32 verbose #46442 > │ System.IO.Directory.GetParent │
00:08:32 verbose #46443 > │ let v22 : System.IO.DirectoryInfo = v21 v0 │
00:08:32 verbose #46444 > │ let v23 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #46445 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #46446 > │ let v24 : bool = v22 = v23 │
00:08:32 verbose #46447 > │ let v36 : US8 = │
00:08:32 verbose #46448 > │ if v24 then │
00:08:32 verbose #46449 > │ US8_1 │
00:08:32 verbose #46450 > │ else │
00:08:32 verbose #46451 > │ let v26 : string option = None │
00:08:32 verbose #46452 > │ let v27 : bool = true in let mutable _v26 = v26 │
00:08:32 verbose #46453 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46454 > │ let v28 : string = null |> unbox<string> │
00:08:32 verbose #46455 > │ v28 │
00:08:32 verbose #46456 > │ #endif │
00:08:32 verbose #46457 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46458 > │ let v29 : string = null |> unbox<string> │
00:08:32 verbose #46459 > │ v29 │
00:08:32 verbose #46460 > │ #endif │
00:08:32 verbose #46461 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46462 > │ let v30 : string = null |> unbox<string> │
00:08:32 verbose #46463 > │ v30 │
00:08:32 verbose #46464 > │ #endif │
00:08:32 verbose #46465 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46466 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46467 > │ let v31 : string = v22.FullName │
00:08:32 verbose #46468 > │ v31 │
00:08:32 verbose #46469 > │ #endif │
00:08:32 verbose #46470 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46471 > │ let v32 : string = null |> unbox<string> │
00:08:32 verbose #46472 > │ v32 │
00:08:32 verbose #46473 > │ #endif │
00:08:32 verbose #46474 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:32 verbose #46475 > │ FABLE_COMPILER_DART │
00:08:32 verbose #46476 > │ let v33 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46477 > │ v33 │
00:08:32 verbose #46478 > │ #endif │
00:08:32 verbose #46479 > │ |> fun x -> _v26 <- Some x │
00:08:32 verbose #46480 > │ let v34 : string = _v26.Value │
00:08:32 verbose #46481 > │ US8_0(v34) │
00:08:32 verbose #46482 > │ v36 │
00:08:32 verbose #46483 > │ #endif │
00:08:32 verbose #46484 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46485 > │ let v37 : string = "path" │
00:08:32 verbose #46486 > │ let v38 : IPathDirname = Fable.Core.JsInterop.importAll v37 │
00:08:32 verbose #46487 > │ let v39 : string = "v38.dirname($0)" │
00:08:32 verbose #46488 > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr v0 v39 │
00:08:32 verbose #46489 > │ let v41 : US8 = US8_0(v40) │
00:08:32 verbose #46490 > │ v41 │
00:08:32 verbose #46491 > │ #endif │
00:08:32 verbose #46492 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46493 > │ let v42 : US8 = Unchecked.defaultof<US8> │
00:08:32 verbose #46494 > │ v42 │
00:08:32 verbose #46495 > │ #endif │
00:08:32 verbose #46496 > │ |> fun x -> _v1 <- Some x │
00:08:32 verbose #46497 > │ let v43 : US8 = _v1.Value │
00:08:32 verbose #46498 > │ match v43 with │
00:08:32 verbose #46499 > │ | US8_1 -> (* None *) │
00:08:32 verbose #46500 > │ let v46 : string option = None │
00:08:32 verbose #46501 > │ v46 │
00:08:32 verbose #46502 > │ | US8_0(v44) -> (* Some *) │
00:08:32 verbose #46503 > │ let v45 : string option = Some v44 │
00:08:32 verbose #46504 > │ v45 │
00:08:32 verbose #46505 > │ and method17 () : (string -> string option) = │
00:08:32 verbose #46506 > │ closure48() │
00:08:32 verbose #46507 > │ and closure49 () (v0 : string) : US8 = │
00:08:32 verbose #46508 > │ US8_0(v0) │
00:08:32 verbose #46509 > │ and method18 () : (string -> US8) = │
00:08:32 verbose #46510 > │ closure49() │
00:08:32 verbose #46511 > │ and method19 (v0 : string, v1 : bool, v2 : string, v3 : string) : string = │
00:08:32 verbose #46512 > │ let v4 : string option = None │
00:08:32 verbose #46513 > │ let v5 : bool = true in let mutable _v4 = v4 │
00:08:32 verbose #46514 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46515 > │ let v6 : string = method9(v3) │
00:08:32 verbose #46516 > │ let v7 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46517 > │ let v8 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:32 verbose #46518 > │ let v9 : string = "String::from($0)" │
00:08:32 verbose #46519 > │ let v10 : std_string_String = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:08:32 verbose #46520 > │ let v11 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46521 > │ let v12 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v10 v11 │
00:08:32 verbose #46522 > │ let v13 : string = method9(v0) │
00:08:32 verbose #46523 > │ let v14 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46524 > │ let v15 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v13 v14 │
00:08:32 verbose #46525 > │ let v16 : string = "String::from($0)" │
00:08:32 verbose #46526 > │ let v17 : std_string_String = Fable.Core.RustInterop.emitRustExpr v15 │
00:08:32 verbose #46527 > │ v16 │
00:08:32 verbose #46528 > │ let v18 : string = "$0.join($1)" │
00:08:32 verbose #46529 > │ let v19 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46530 > │ (v12, v17) v18 │
00:08:32 verbose #46531 > │ let v20 : string = "$0.display().to_string()" │
00:08:32 verbose #46532 > │ let v21 : std_string_String = Fable.Core.RustInterop.emitRustExpr v19 │
00:08:32 verbose #46533 > │ v20 │
00:08:32 verbose #46534 > │ let v22 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46535 > │ let v23 : string = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:08:32 verbose #46536 > │ v23 │
00:08:32 verbose #46537 > │ #endif │
00:08:32 verbose #46538 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46539 > │ let v24 : string = null |> unbox<string> │
00:08:32 verbose #46540 > │ v24 │
00:08:32 verbose #46541 > │ #endif │
00:08:32 verbose #46542 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46543 > │ let v25 : string = null |> unbox<string> │
00:08:32 verbose #46544 > │ v25 │
00:08:32 verbose #46545 > │ #endif │
00:08:32 verbose #46546 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46547 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46548 > │ let v26 : string = System.IO.Path.Combine (v3, v0) │
00:08:32 verbose #46549 > │ v26 │
00:08:32 verbose #46550 > │ #endif │
00:08:32 verbose #46551 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46552 > │ let v27 : string = "path" │
00:08:32 verbose #46553 > │ let v28 : IPathJoin = Fable.Core.JsInterop.importAll v27 │
00:08:32 verbose #46554 > │ let v29 : string = method14(v3) │
00:08:32 verbose #46555 > │ let v30 : string = method15(v0) │
00:08:32 verbose #46556 > │ let v31 : string = "v28.join(v29, v30)" │
00:08:32 verbose #46557 > │ let v32 : string = Fable.Core.JsInterop.emitJsExpr () v31 │
00:08:32 verbose #46558 > │ v32 │
00:08:32 verbose #46559 > │ #endif │
00:08:32 verbose #46560 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46561 > │ let v33 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46562 > │ v33 │
00:08:32 verbose #46563 > │ #endif │
00:08:32 verbose #46564 > │ |> fun x -> _v4 <- Some x │
00:08:32 verbose #46565 > │ let v34 : string = _v4.Value │
00:08:32 verbose #46566 > │ let v37 : (string -> bool) = │
00:08:32 verbose #46567 > │ if v1 then │
00:08:32 verbose #46568 > │ closure46() │
00:08:32 verbose #46569 > │ else │
00:08:32 verbose #46570 > │ closure47() │
00:08:32 verbose #46571 > │ let v38 : bool = v37 v34 │
00:08:32 verbose #46572 > │ if v38 then │
00:08:32 verbose #46573 > │ v3 │
00:08:32 verbose #46574 > │ else │
00:08:32 verbose #46575 > │ let v39 : (string -> string option) = method17() │
00:08:32 verbose #46576 > │ let v40 : string option = v39 v3 │
00:08:32 verbose #46577 > │ let v41 : (string -> US8) = method18() │
00:08:32 verbose #46578 > │ let v42 : US8 = US8_1 │
00:08:32 verbose #46579 > │ let v43 : US8 = v40 |> Option.map v41 |> Option.defaultValue v42 │
00:08:32 verbose #46580 > │ match v43 with │
00:08:32 verbose #46581 > │ | US8_1 -> (* None *) │
00:08:32 verbose #46582 > │ let v46 : string = $"""No parent for {if v1 then "file" else │
00:08:32 verbose #46583 > │ "dir"} '{v0}' at '{v2}' (until '{v3}')""" │
00:08:32 verbose #46584 > │ failwith<string> v46 │
00:08:32 verbose #46585 > │ | US8_0(v44) -> (* Some *) │
00:08:32 verbose #46586 > │ method19(v0, v1, v2, v44) │
00:08:32 verbose #46587 > │ and method16 (v0 : string, v1 : bool, v2 : string) : string = │
00:08:32 verbose #46588 > │ let v3 : string option = None │
00:08:32 verbose #46589 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:32 verbose #46590 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46591 > │ let v5 : string = method9(v2) │
00:08:32 verbose #46592 > │ let v6 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46593 > │ let v7 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:32 verbose #46594 > │ let v8 : string = "String::from($0)" │
00:08:32 verbose #46595 > │ let v9 : std_string_String = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:32 verbose #46596 > │ let v10 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46597 > │ let v11 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:08:32 verbose #46598 > │ let v12 : string = method9(v0) │
00:08:32 verbose #46599 > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46600 > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:08:32 verbose #46601 > │ let v15 : string = "String::from($0)" │
00:08:32 verbose #46602 > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:08:32 verbose #46603 > │ v15 │
00:08:32 verbose #46604 > │ let v17 : string = "$0.join($1)" │
00:08:32 verbose #46605 > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46606 > │ (v11, v16) v17 │
00:08:32 verbose #46607 > │ let v19 : string = "$0.display().to_string()" │
00:08:32 verbose #46608 > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:08:32 verbose #46609 > │ v19 │
00:08:32 verbose #46610 > │ let v21 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46611 > │ let v22 : string = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:08:32 verbose #46612 > │ v22 │
00:08:32 verbose #46613 > │ #endif │
00:08:32 verbose #46614 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46615 > │ let v23 : string = null |> unbox<string> │
00:08:32 verbose #46616 > │ v23 │
00:08:32 verbose #46617 > │ #endif │
00:08:32 verbose #46618 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46619 > │ let v24 : string = null |> unbox<string> │
00:08:32 verbose #46620 > │ v24 │
00:08:32 verbose #46621 > │ #endif │
00:08:32 verbose #46622 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46623 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46624 > │ let v25 : string = System.IO.Path.Combine (v2, v0) │
00:08:32 verbose #46625 > │ v25 │
00:08:32 verbose #46626 > │ #endif │
00:08:32 verbose #46627 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46628 > │ let v26 : string = "path" │
00:08:32 verbose #46629 > │ let v27 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:08:32 verbose #46630 > │ let v28 : string = method14(v2) │
00:08:32 verbose #46631 > │ let v29 : string = method15(v0) │
00:08:32 verbose #46632 > │ let v30 : string = "v27.join(v28, v29)" │
00:08:32 verbose #46633 > │ let v31 : string = Fable.Core.JsInterop.emitJsExpr () v30 │
00:08:32 verbose #46634 > │ v31 │
00:08:32 verbose #46635 > │ #endif │
00:08:32 verbose #46636 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46637 > │ let v32 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46638 > │ v32 │
00:08:32 verbose #46639 > │ #endif │
00:08:32 verbose #46640 > │ |> fun x -> _v3 <- Some x │
00:08:32 verbose #46641 > │ let v33 : string = _v3.Value │
00:08:32 verbose #46642 > │ let v36 : (string -> bool) = │
00:08:32 verbose #46643 > │ if v1 then │
00:08:32 verbose #46644 > │ closure46() │
00:08:32 verbose #46645 > │ else │
00:08:32 verbose #46646 > │ closure47() │
00:08:32 verbose #46647 > │ let v37 : bool = v36 v33 │
00:08:32 verbose #46648 > │ if v37 then │
00:08:32 verbose #46649 > │ v2 │
00:08:32 verbose #46650 > │ else │
00:08:32 verbose #46651 > │ let v38 : (string -> string option) = method17() │
00:08:32 verbose #46652 > │ let v39 : string option = v38 v2 │
00:08:32 verbose #46653 > │ let v40 : (string -> US8) = method18() │
00:08:32 verbose #46654 > │ let v41 : US8 = US8_1 │
00:08:32 verbose #46655 > │ let v42 : US8 = v39 |> Option.map v40 |> Option.defaultValue v41 │
00:08:32 verbose #46656 > │ match v42 with │
00:08:32 verbose #46657 > │ | US8_1 -> (* None *) │
00:08:32 verbose #46658 > │ let v45 : string = $"""No parent for {if v1 then "file" else │
00:08:32 verbose #46659 > │ "dir"} '{v0}' at '{v2}' (until '{v2}')""" │
00:08:32 verbose #46660 > │ failwith<string> v45 │
00:08:32 verbose #46661 > │ | US8_0(v43) -> (* Some *) │
00:08:32 verbose #46662 > │ method19(v0, v1, v2, v43) │
00:08:32 verbose #46663 > │ and closure45 (v0 : string, v1 : bool) (v2 : string) : string = │
00:08:32 verbose #46664 > │ method16(v0, v1, v2) │
00:08:32 verbose #46665 > │ and closure44 (v0 : string) (v1 : bool) : (string -> string) = │
00:08:32 verbose #46666 > │ closure45(v0, v1) │
00:08:32 verbose #46667 > │ and closure43 () (v0 : string) : (bool -> (string -> string)) = │
00:08:32 verbose #46668 > │ closure44(v0) │
00:08:32 verbose #46669 > │ and closure50 () (v0 : string) : string = │
00:08:32 verbose #46670 > │ let v1 : bool option = None │
00:08:32 verbose #46671 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:32 verbose #46672 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46673 > │ let v3 : bool = null |> unbox<bool> │
00:08:32 verbose #46674 > │ v3 │
00:08:32 verbose #46675 > │ #endif │
00:08:32 verbose #46676 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46677 > │ let v4 : bool = null |> unbox<bool> │
00:08:32 verbose #46678 > │ v4 │
00:08:32 verbose #46679 > │ #endif │
00:08:32 verbose #46680 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46681 > │ let v5 : bool = null |> unbox<bool> │
00:08:32 verbose #46682 > │ v5 │
00:08:32 verbose #46683 > │ #endif │
00:08:32 verbose #46684 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46685 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46686 > │ let v6 : System.Runtime.InteropServices.OSPlatform = │
00:08:32 verbose #46687 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:08:32 verbose #46688 > │ let v7 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:08:32 verbose #46689 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:08:32 verbose #46690 > │ let v8 : bool = v7 v6 │
00:08:32 verbose #46691 > │ v8 │
00:08:32 verbose #46692 > │ #endif │
00:08:32 verbose #46693 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46694 > │ let v9 : bool = null |> unbox<bool> │
00:08:32 verbose #46695 > │ v9 │
00:08:32 verbose #46696 > │ #endif │
00:08:32 verbose #46697 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46698 > │ let v10 : bool = Unchecked.defaultof<bool> │
00:08:32 verbose #46699 > │ v10 │
00:08:32 verbose #46700 > │ #endif │
00:08:32 verbose #46701 > │ |> fun x -> _v1 <- Some x │
00:08:32 verbose #46702 > │ let v11 : bool = _v1.Value │
00:08:32 verbose #46703 > │ let v12 : bool = v11 = false │
00:08:32 verbose #46704 > │ if v12 then │
00:08:32 verbose #46705 > │ v0 │
00:08:32 verbose #46706 > │ else │
00:08:32 verbose #46707 > │ let v13 : string = $"{v0.[0] |> System.Char.ToLower}{v0.[1..]}" │
00:08:32 verbose #46708 > │ let v14 : string = "\\" │
00:08:32 verbose #46709 > │ let v15 : string = "/" │
00:08:32 verbose #46710 > │ let v16 : string = v13.Replace (v14, v15) │
00:08:32 verbose #46711 > │ v16 │
00:08:32 verbose #46712 > │ and closure51 () (v0 : string) : string = │
00:08:32 verbose #46713 > │ let v1 : (char []) = [|'/'|] │
00:08:32 verbose #46714 > │ let v2 : string = v0.TrimStart v1 │
00:08:32 verbose #46715 > │ let v3 : string = $"file:///{v2}" │
00:08:32 verbose #46716 > │ v3 │
00:08:32 verbose #46717 > │ and method20 () : string = │
00:08:32 verbose #46718 > │ let v0 : string = "polyglot" │
00:08:32 verbose #46719 > │ v0 │
00:08:32 verbose #46720 > │ and method21 () : string = │
00:08:32 verbose #46721 > │ let v0 : string = ".paket" │
00:08:32 verbose #46722 > │ v0 │
00:08:32 verbose #46723 > │ and method22 () : string = │
00:08:32 verbose #46724 > │ let v0 : string = "polyglot" │
00:08:32 verbose #46725 > │ v0 │
00:08:32 verbose #46726 > │ and method23 () : string = │
00:08:32 verbose #46727 > │ let v0 : string = ".paket" │
00:08:32 verbose #46728 > │ v0 │
00:08:32 verbose #46729 > │ and method25 (v0 : string, v1 : string, v2 : string) : string = │
00:08:32 verbose #46730 > │ let v3 : string option = None │
00:08:32 verbose #46731 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:32 verbose #46732 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46733 > │ let v5 : string = method9(v2) │
00:08:32 verbose #46734 > │ let v6 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46735 > │ let v7 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:32 verbose #46736 > │ let v8 : string = "String::from($0)" │
00:08:32 verbose #46737 > │ let v9 : std_string_String = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:32 verbose #46738 > │ let v10 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46739 > │ let v11 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:08:32 verbose #46740 > │ let v12 : string = method9(v0) │
00:08:32 verbose #46741 > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46742 > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:08:32 verbose #46743 > │ let v15 : string = "String::from($0)" │
00:08:32 verbose #46744 > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:08:32 verbose #46745 > │ v15 │
00:08:32 verbose #46746 > │ let v17 : string = "$0.join($1)" │
00:08:32 verbose #46747 > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46748 > │ (v11, v16) v17 │
00:08:32 verbose #46749 > │ let v19 : string = "$0.display().to_string()" │
00:08:32 verbose #46750 > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:08:32 verbose #46751 > │ v19 │
00:08:32 verbose #46752 > │ let v21 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46753 > │ let v22 : string = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:08:32 verbose #46754 > │ v22 │
00:08:32 verbose #46755 > │ #endif │
00:08:32 verbose #46756 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46757 > │ let v23 : string = null |> unbox<string> │
00:08:32 verbose #46758 > │ v23 │
00:08:32 verbose #46759 > │ #endif │
00:08:32 verbose #46760 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46761 > │ let v24 : string = null |> unbox<string> │
00:08:32 verbose #46762 > │ v24 │
00:08:32 verbose #46763 > │ #endif │
00:08:32 verbose #46764 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46765 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46766 > │ let v25 : string = System.IO.Path.Combine (v2, v0) │
00:08:32 verbose #46767 > │ v25 │
00:08:32 verbose #46768 > │ #endif │
00:08:32 verbose #46769 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46770 > │ let v26 : string = "path" │
00:08:32 verbose #46771 > │ let v27 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:08:32 verbose #46772 > │ let v28 : string = method14(v2) │
00:08:32 verbose #46773 > │ let v29 : string = method15(v0) │
00:08:32 verbose #46774 > │ let v30 : string = "v27.join(v28, v29)" │
00:08:32 verbose #46775 > │ let v31 : string = Fable.Core.JsInterop.emitJsExpr () v30 │
00:08:32 verbose #46776 > │ v31 │
00:08:32 verbose #46777 > │ #endif │
00:08:32 verbose #46778 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46779 > │ let v32 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46780 > │ v32 │
00:08:32 verbose #46781 > │ #endif │
00:08:32 verbose #46782 > │ |> fun x -> _v3 <- Some x │
00:08:32 verbose #46783 > │ let v33 : string = _v3.Value │
00:08:32 verbose #46784 > │ let v34 : bool option = None │
00:08:32 verbose #46785 > │ let v35 : bool = true in let mutable _v34 = v34 │
00:08:32 verbose #46786 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46787 > │ let v36 : string = method9(v33) │
00:08:32 verbose #46788 > │ let v37 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46789 > │ let v38 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v37 │
00:08:32 verbose #46790 > │ let v39 : string = "String::from($0)" │
00:08:32 verbose #46791 > │ let v40 : std_string_String = Fable.Core.RustInterop.emitRustExpr v38 │
00:08:32 verbose #46792 > │ v39 │
00:08:32 verbose #46793 > │ let v41 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46794 > │ let v42 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v40 v41 │
00:08:32 verbose #46795 > │ let v43 : string = "$0.exists()" │
00:08:32 verbose #46796 > │ let v44 : bool = Fable.Core.RustInterop.emitRustExpr v42 v43 │
00:08:32 verbose #46797 > │ let v47 : bool = │
00:08:32 verbose #46798 > │ if v44 then │
00:08:32 verbose #46799 > │ let v45 : string = "$0.is_dir()" │
00:08:32 verbose #46800 > │ let v46 : bool = Fable.Core.RustInterop.emitRustExpr v42 v45 │
00:08:32 verbose #46801 > │ v46 │
00:08:32 verbose #46802 > │ else │
00:08:32 verbose #46803 > │ false │
00:08:32 verbose #46804 > │ v47 │
00:08:32 verbose #46805 > │ #endif │
00:08:32 verbose #46806 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46807 > │ let v48 : bool = null |> unbox<bool> │
00:08:32 verbose #46808 > │ v48 │
00:08:32 verbose #46809 > │ #endif │
00:08:32 verbose #46810 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46811 > │ let v49 : bool = null |> unbox<bool> │
00:08:32 verbose #46812 > │ v49 │
00:08:32 verbose #46813 > │ #endif │
00:08:32 verbose #46814 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46815 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46816 > │ let v50 : (string -> bool) = System.IO.Directory.Exists │
00:08:32 verbose #46817 > │ let v51 : bool = v50 v33 │
00:08:32 verbose #46818 > │ v51 │
00:08:32 verbose #46819 > │ #endif │
00:08:32 verbose #46820 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46821 > │ let v52 : string = "fs" │
00:08:32 verbose #46822 > │ let v53 : IFsExistsSync = Fable.Core.JsInterop.importAll v52 │
00:08:32 verbose #46823 > │ let v54 : string = "v53.existsSync($0)" │
00:08:32 verbose #46824 > │ let v55 : bool = Fable.Core.JsInterop.emitJsExpr v33 v54 │
00:08:32 verbose #46825 > │ v55 │
00:08:32 verbose #46826 > │ #endif │
00:08:32 verbose #46827 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46828 > │ let v56 : bool = Unchecked.defaultof<bool> │
00:08:32 verbose #46829 > │ v56 │
00:08:32 verbose #46830 > │ #endif │
00:08:32 verbose #46831 > │ |> fun x -> _v34 <- Some x │
00:08:32 verbose #46832 > │ let v57 : bool = _v34.Value │
00:08:32 verbose #46833 > │ if v57 then │
00:08:32 verbose #46834 > │ v2 │
00:08:32 verbose #46835 > │ else │
00:08:32 verbose #46836 > │ let v58 : (string -> string option) = method17() │
00:08:32 verbose #46837 > │ let v59 : string option = v58 v2 │
00:08:32 verbose #46838 > │ let v60 : (string -> US8) = method18() │
00:08:32 verbose #46839 > │ let v61 : US8 = US8_1 │
00:08:32 verbose #46840 > │ let v62 : US8 = v59 |> Option.map v60 |> Option.defaultValue v61 │
00:08:32 verbose #46841 > │ match v62 with │
00:08:32 verbose #46842 > │ | US8_1 -> (* None *) │
00:08:32 verbose #46843 > │ let v65 : string = $"""No parent for {if false then "file" else │
00:08:32 verbose #46844 > │ "dir"} '{v0}' at '{v1}' (until '{v2}')""" │
00:08:32 verbose #46845 > │ failwith<string> v65 │
00:08:32 verbose #46846 > │ | US8_0(v63) -> (* Some *) │
00:08:32 verbose #46847 > │ method25(v0, v1, v63) │
00:08:32 verbose #46848 > │ and method24 (v0 : string, v1 : string) : string = │
00:08:32 verbose #46849 > │ let v2 : string option = None │
00:08:32 verbose #46850 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:32 verbose #46851 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46852 > │ let v4 : string = method9(v1) │
00:08:32 verbose #46853 > │ let v5 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46854 > │ let v6 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:08:32 verbose #46855 > │ let v7 : string = "String::from($0)" │
00:08:32 verbose #46856 > │ let v8 : std_string_String = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:32 verbose #46857 > │ let v9 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46858 > │ let v10 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:08:32 verbose #46859 > │ let v11 : string = method9(v0) │
00:08:32 verbose #46860 > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46861 > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:08:32 verbose #46862 > │ let v14 : string = "String::from($0)" │
00:08:32 verbose #46863 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:08:32 verbose #46864 > │ v14 │
00:08:32 verbose #46865 > │ let v16 : string = "$0.join($1)" │
00:08:32 verbose #46866 > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46867 > │ (v10, v15) v16 │
00:08:32 verbose #46868 > │ let v18 : string = "$0.display().to_string()" │
00:08:32 verbose #46869 > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:08:32 verbose #46870 > │ v18 │
00:08:32 verbose #46871 > │ let v20 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46872 > │ let v21 : string = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:32 verbose #46873 > │ v21 │
00:08:32 verbose #46874 > │ #endif │
00:08:32 verbose #46875 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46876 > │ let v22 : string = null |> unbox<string> │
00:08:32 verbose #46877 > │ v22 │
00:08:32 verbose #46878 > │ #endif │
00:08:32 verbose #46879 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46880 > │ let v23 : string = null |> unbox<string> │
00:08:32 verbose #46881 > │ v23 │
00:08:32 verbose #46882 > │ #endif │
00:08:32 verbose #46883 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46884 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46885 > │ let v24 : string = System.IO.Path.Combine (v1, v0) │
00:08:32 verbose #46886 > │ v24 │
00:08:32 verbose #46887 > │ #endif │
00:08:32 verbose #46888 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46889 > │ let v25 : string = "path" │
00:08:32 verbose #46890 > │ let v26 : IPathJoin = Fable.Core.JsInterop.importAll v25 │
00:08:32 verbose #46891 > │ let v27 : string = method14(v1) │
00:08:32 verbose #46892 > │ let v28 : string = method15(v0) │
00:08:32 verbose #46893 > │ let v29 : string = "v26.join(v27, v28)" │
00:08:32 verbose #46894 > │ let v30 : string = Fable.Core.JsInterop.emitJsExpr () v29 │
00:08:32 verbose #46895 > │ v30 │
00:08:32 verbose #46896 > │ #endif │
00:08:32 verbose #46897 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46898 > │ let v31 : string = Unchecked.defaultof<string> │
00:08:32 verbose #46899 > │ v31 │
00:08:32 verbose #46900 > │ #endif │
00:08:32 verbose #46901 > │ |> fun x -> _v2 <- Some x │
00:08:32 verbose #46902 > │ let v32 : string = _v2.Value │
00:08:32 verbose #46903 > │ let v33 : bool option = None │
00:08:32 verbose #46904 > │ let v34 : bool = true in let mutable _v33 = v33 │
00:08:32 verbose #46905 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46906 > │ let v35 : string = method9(v32) │
00:08:32 verbose #46907 > │ let v36 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46908 > │ let v37 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v35 v36 │
00:08:32 verbose #46909 > │ let v38 : string = "String::from($0)" │
00:08:32 verbose #46910 > │ let v39 : std_string_String = Fable.Core.RustInterop.emitRustExpr v37 │
00:08:32 verbose #46911 > │ v38 │
00:08:32 verbose #46912 > │ let v40 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46913 > │ let v41 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v39 v40 │
00:08:32 verbose #46914 > │ let v42 : string = "$0.exists()" │
00:08:32 verbose #46915 > │ let v43 : bool = Fable.Core.RustInterop.emitRustExpr v41 v42 │
00:08:32 verbose #46916 > │ let v46 : bool = │
00:08:32 verbose #46917 > │ if v43 then │
00:08:32 verbose #46918 > │ let v44 : string = "$0.is_dir()" │
00:08:32 verbose #46919 > │ let v45 : bool = Fable.Core.RustInterop.emitRustExpr v41 v44 │
00:08:32 verbose #46920 > │ v45 │
00:08:32 verbose #46921 > │ else │
00:08:32 verbose #46922 > │ false │
00:08:32 verbose #46923 > │ v46 │
00:08:32 verbose #46924 > │ #endif │
00:08:32 verbose #46925 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46926 > │ let v47 : bool = null |> unbox<bool> │
00:08:32 verbose #46927 > │ v47 │
00:08:32 verbose #46928 > │ #endif │
00:08:32 verbose #46929 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #46930 > │ let v48 : bool = null |> unbox<bool> │
00:08:32 verbose #46931 > │ v48 │
00:08:32 verbose #46932 > │ #endif │
00:08:32 verbose #46933 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #46934 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #46935 > │ let v49 : (string -> bool) = System.IO.Directory.Exists │
00:08:32 verbose #46936 > │ let v50 : bool = v49 v32 │
00:08:32 verbose #46937 > │ v50 │
00:08:32 verbose #46938 > │ #endif │
00:08:32 verbose #46939 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #46940 > │ let v51 : string = "fs" │
00:08:32 verbose #46941 > │ let v52 : IFsExistsSync = Fable.Core.JsInterop.importAll v51 │
00:08:32 verbose #46942 > │ let v53 : string = "v52.existsSync($0)" │
00:08:32 verbose #46943 > │ let v54 : bool = Fable.Core.JsInterop.emitJsExpr v32 v53 │
00:08:32 verbose #46944 > │ v54 │
00:08:32 verbose #46945 > │ #endif │
00:08:32 verbose #46946 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #46947 > │ let v55 : bool = Unchecked.defaultof<bool> │
00:08:32 verbose #46948 > │ v55 │
00:08:32 verbose #46949 > │ #endif │
00:08:32 verbose #46950 > │ |> fun x -> _v33 <- Some x │
00:08:32 verbose #46951 > │ let v56 : bool = _v33.Value │
00:08:32 verbose #46952 > │ if v56 then │
00:08:32 verbose #46953 > │ v1 │
00:08:32 verbose #46954 > │ else │
00:08:32 verbose #46955 > │ let v57 : (string -> string option) = method17() │
00:08:32 verbose #46956 > │ let v58 : string option = v57 v1 │
00:08:32 verbose #46957 > │ let v59 : (string -> US8) = method18() │
00:08:32 verbose #46958 > │ let v60 : US8 = US8_1 │
00:08:32 verbose #46959 > │ let v61 : US8 = v58 |> Option.map v59 |> Option.defaultValue v60 │
00:08:32 verbose #46960 > │ match v61 with │
00:08:32 verbose #46961 > │ | US8_1 -> (* None *) │
00:08:32 verbose #46962 > │ let v64 : string = $"""No parent for {if false then "file" else │
00:08:32 verbose #46963 > │ "dir"} '{v0}' at '{v1}' (until '{v1}')""" │
00:08:32 verbose #46964 > │ failwith<string> v64 │
00:08:32 verbose #46965 > │ | US8_0(v62) -> (* Some *) │
00:08:32 verbose #46966 > │ method25(v0, v1, v62) │
00:08:32 verbose #46967 > │ and method26 () : string = │
00:08:32 verbose #46968 > │ let v0 : string = "polyglot" │
00:08:32 verbose #46969 > │ v0 │
00:08:32 verbose #46970 > │ and closure52 () () : string = │
00:08:32 verbose #46971 > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:08:32 verbose #46972 > │ let v1 : string option = None │
00:08:32 verbose #46973 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:32 verbose #46974 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #46975 > │ let v3 : string = method20() │
00:08:32 verbose #46976 > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46977 > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:08:32 verbose #46978 > │ let v6 : string = "String::from($0)" │
00:08:32 verbose #46979 > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:32 verbose #46980 > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #46981 > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:32 verbose #46982 > │ let v10 : string = method21() │
00:08:32 verbose #46983 > │ let v11 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #46984 > │ let v12 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v10 v11 │
00:08:32 verbose #46985 > │ let v13 : string = "String::from($0)" │
00:08:32 verbose #46986 > │ let v14 : std_string_String = Fable.Core.RustInterop.emitRustExpr v12 │
00:08:32 verbose #46987 > │ v13 │
00:08:32 verbose #46988 > │ let v15 : string = "$0.join($1)" │
00:08:32 verbose #46989 > │ let v16 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #46990 > │ (v9, v14) v15 │
00:08:32 verbose #46991 > │ let v17 : string = "$0.display().to_string()" │
00:08:32 verbose #46992 > │ let v18 : std_string_String = Fable.Core.RustInterop.emitRustExpr v16 │
00:08:32 verbose #46993 > │ v17 │
00:08:32 verbose #46994 > │ let v19 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #46995 > │ let v20 : string = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:08:32 verbose #46996 > │ v20 │
00:08:32 verbose #46997 > │ #endif │
00:08:32 verbose #46998 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #46999 > │ let v21 : string = null |> unbox<string> │
00:08:32 verbose #47000 > │ v21 │
00:08:32 verbose #47001 > │ #endif │
00:08:32 verbose #47002 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47003 > │ let v22 : string = null |> unbox<string> │
00:08:32 verbose #47004 > │ v22 │
00:08:32 verbose #47005 > │ #endif │
00:08:32 verbose #47006 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47007 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47008 > │ let v23 : string = "polyglot" │
00:08:32 verbose #47009 > │ let v24 : string = ".paket" │
00:08:32 verbose #47010 > │ let v25 : string = System.IO.Path.Combine (v23, v24) │
00:08:32 verbose #47011 > │ v25 │
00:08:32 verbose #47012 > │ #endif │
00:08:32 verbose #47013 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47014 > │ let v26 : string = "path" │
00:08:32 verbose #47015 > │ let v27 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:08:32 verbose #47016 > │ let v28 : string = method22() │
00:08:32 verbose #47017 > │ let v29 : string = method23() │
00:08:32 verbose #47018 > │ let v30 : string = "v27.join(v28, v29)" │
00:08:32 verbose #47019 > │ let v31 : string = Fable.Core.JsInterop.emitJsExpr () v30 │
00:08:32 verbose #47020 > │ v31 │
00:08:32 verbose #47021 > │ #endif │
00:08:32 verbose #47022 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47023 > │ let v32 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47024 > │ v32 │
00:08:32 verbose #47025 > │ #endif │
00:08:32 verbose #47026 > │ |> fun x -> _v1 <- Some x │
00:08:32 verbose #47027 > │ let v33 : string = _v1.Value │
00:08:32 verbose #47028 > │ let v34 : string = method24(v33, v0) │
00:08:32 verbose #47029 > │ let v35 : string option = None │
00:08:32 verbose #47030 > │ let v36 : bool = true in let mutable _v35 = v35 │
00:08:32 verbose #47031 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47032 > │ let v37 : string = method9(v34) │
00:08:32 verbose #47033 > │ let v38 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47034 > │ let v39 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v37 v38 │
00:08:32 verbose #47035 > │ let v40 : string = "String::from($0)" │
00:08:32 verbose #47036 > │ let v41 : std_string_String = Fable.Core.RustInterop.emitRustExpr v39 │
00:08:32 verbose #47037 > │ v40 │
00:08:32 verbose #47038 > │ let v42 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #47039 > │ let v43 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v41 v42 │
00:08:32 verbose #47040 > │ let v44 : string = method20() │
00:08:32 verbose #47041 > │ let v45 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47042 > │ let v46 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v44 v45 │
00:08:32 verbose #47043 > │ let v47 : string = "String::from($0)" │
00:08:32 verbose #47044 > │ let v48 : std_string_String = Fable.Core.RustInterop.emitRustExpr v46 │
00:08:32 verbose #47045 > │ v47 │
00:08:32 verbose #47046 > │ let v49 : string = "$0.join($1)" │
00:08:32 verbose #47047 > │ let v50 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #47048 > │ (v43, v48) v49 │
00:08:32 verbose #47049 > │ let v51 : string = "$0.display().to_string()" │
00:08:32 verbose #47050 > │ let v52 : std_string_String = Fable.Core.RustInterop.emitRustExpr v50 │
00:08:32 verbose #47051 > │ v51 │
00:08:32 verbose #47052 > │ let v53 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #47053 > │ let v54 : string = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:08:32 verbose #47054 > │ v54 │
00:08:32 verbose #47055 > │ #endif │
00:08:32 verbose #47056 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47057 > │ let v55 : string = null |> unbox<string> │
00:08:32 verbose #47058 > │ v55 │
00:08:32 verbose #47059 > │ #endif │
00:08:32 verbose #47060 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47061 > │ let v56 : string = null |> unbox<string> │
00:08:32 verbose #47062 > │ v56 │
00:08:32 verbose #47063 > │ #endif │
00:08:32 verbose #47064 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47065 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47066 > │ let v57 : string = System.IO.Path.Combine (v34, v23) │
00:08:32 verbose #47067 > │ v57 │
00:08:32 verbose #47068 > │ #endif │
00:08:32 verbose #47069 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47070 > │ let v58 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:08:32 verbose #47071 > │ let v59 : string = method14(v34) │
00:08:32 verbose #47072 > │ let v60 : string = method26() │
00:08:32 verbose #47073 > │ let v61 : string = "v58.join(v59, v60)" │
00:08:32 verbose #47074 > │ let v62 : string = Fable.Core.JsInterop.emitJsExpr () v61 │
00:08:32 verbose #47075 > │ v62 │
00:08:32 verbose #47076 > │ #endif │
00:08:32 verbose #47077 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47078 > │ let v63 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47079 > │ v63 │
00:08:32 verbose #47080 > │ #endif │
00:08:32 verbose #47081 > │ |> fun x -> _v35 <- Some x │
00:08:32 verbose #47082 > │ let v64 : string = _v35.Value │
00:08:32 verbose #47083 > │ v64 │
00:08:32 verbose #47084 > │ and method28 () : string = │
00:08:32 verbose #47085 > │ let v0 : string = "target/polyglot/trace" │
00:08:32 verbose #47086 > │ v0 │
00:08:32 verbose #47087 > │ and method29 () : string = │
00:08:32 verbose #47088 > │ let v0 : string = "target/polyglot/trace" │
00:08:32 verbose #47089 > │ v0 │
00:08:32 verbose #47090 > │ and method27 (v0 : string) : unit = │
00:08:32 verbose #47091 > │ let v1 : unit option = None │
00:08:32 verbose #47092 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:08:32 verbose #47093 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47094 > │ () │
00:08:32 verbose #47095 > │ #endif │
00:08:32 verbose #47096 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47097 > │ () │
00:08:32 verbose #47098 > │ #endif │
00:08:32 verbose #47099 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47100 > │ () │
00:08:32 verbose #47101 > │ #endif │
00:08:32 verbose #47102 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47103 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47104 > │ try │
00:08:32 verbose #47105 > │ let v3 : string option = None │
00:08:32 verbose #47106 > │ let v4 : bool = true in let mutable _v3 = v3 │
00:08:32 verbose #47107 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47108 > │ let v5 : string = null |> unbox<string> │
00:08:32 verbose #47109 > │ v5 │
00:08:32 verbose #47110 > │ #endif │
00:08:32 verbose #47111 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47112 > │ let v6 : string = null |> unbox<string> │
00:08:32 verbose #47113 > │ v6 │
00:08:32 verbose #47114 > │ #endif │
00:08:32 verbose #47115 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47116 > │ let v7 : string = null |> unbox<string> │
00:08:32 verbose #47117 > │ v7 │
00:08:32 verbose #47118 > │ #endif │
00:08:32 verbose #47119 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47120 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47121 > │ let v8 : string = │
00:08:32 verbose #47122 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:32 verbose #47123 > │ v8 │
00:08:32 verbose #47124 > │ #endif │
00:08:32 verbose #47125 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47126 > │ let v9 : string = null |> unbox<string> │
00:08:32 verbose #47127 > │ v9 │
00:08:32 verbose #47128 > │ #endif │
00:08:32 verbose #47129 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47130 > │ let v10 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47131 > │ v10 │
00:08:32 verbose #47132 > │ #endif │
00:08:32 verbose #47133 > │ |> fun x -> _v3 <- Some x │
00:08:32 verbose #47134 > │ let v11 : string = _v3.Value │
00:08:32 verbose #47135 > │ let v12 : System.DateTime = System.DateTime.Now │
00:08:32 verbose #47136 > │ let v13 : System.Guid = System.Guid.NewGuid () │
00:08:32 verbose #47137 > │ let v14 : (System.Guid -> string) = _.ToString() │
00:08:32 verbose #47138 > │ let v15 : string = v14 v13 │
00:08:32 verbose #47139 > │ let v16 : string = v12.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:32 verbose #47140 > │ let v17 : System.Guid = System.Guid $"{v16}{v15.[v16.Length..]}" │
00:08:32 verbose #47141 > │ let v18 : string = $"{v11}_{v17}.txt" │
00:08:32 verbose #47142 > │ let v19 : string = __SOURCE_DIRECTORY__ │
00:08:32 verbose #47143 > │ let v20 : string option = None │
00:08:32 verbose #47144 > │ let v21 : bool = true in let mutable _v20 = v20 │
00:08:32 verbose #47145 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47146 > │ let v22 : string = method20() │
00:08:32 verbose #47147 > │ let v23 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47148 > │ let v24 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v22 v23 │
00:08:32 verbose #47149 > │ let v25 : string = "String::from($0)" │
00:08:32 verbose #47150 > │ let v26 : std_string_String = Fable.Core.RustInterop.emitRustExpr v24 │
00:08:32 verbose #47151 > │ v25 │
00:08:32 verbose #47152 > │ let v27 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #47153 > │ let v28 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v26 v27 │
00:08:32 verbose #47154 > │ let v29 : string = method21() │
00:08:32 verbose #47155 > │ let v30 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47156 > │ let v31 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v29 v30 │
00:08:32 verbose #47157 > │ let v32 : string = "String::from($0)" │
00:08:32 verbose #47158 > │ let v33 : std_string_String = Fable.Core.RustInterop.emitRustExpr v31 │
00:08:32 verbose #47159 > │ v32 │
00:08:32 verbose #47160 > │ let v34 : string = "$0.join($1)" │
00:08:32 verbose #47161 > │ let v35 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #47162 > │ (v28, v33) v34 │
00:08:32 verbose #47163 > │ let v36 : string = "$0.display().to_string()" │
00:08:32 verbose #47164 > │ let v37 : std_string_String = Fable.Core.RustInterop.emitRustExpr v35 │
00:08:32 verbose #47165 > │ v36 │
00:08:32 verbose #47166 > │ let v38 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #47167 > │ let v39 : string = Fable.Core.RustInterop.emitRustExpr v37 v38 │
00:08:32 verbose #47168 > │ v39 │
00:08:32 verbose #47169 > │ #endif │
00:08:32 verbose #47170 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47171 > │ let v40 : string = null |> unbox<string> │
00:08:32 verbose #47172 > │ v40 │
00:08:32 verbose #47173 > │ #endif │
00:08:32 verbose #47174 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47175 > │ let v41 : string = null |> unbox<string> │
00:08:32 verbose #47176 > │ v41 │
00:08:32 verbose #47177 > │ #endif │
00:08:32 verbose #47178 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47179 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47180 > │ let v42 : string = "polyglot" │
00:08:32 verbose #47181 > │ let v43 : string = ".paket" │
00:08:32 verbose #47182 > │ let v44 : string = System.IO.Path.Combine (v42, v43) │
00:08:32 verbose #47183 > │ v44 │
00:08:32 verbose #47184 > │ #endif │
00:08:32 verbose #47185 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47186 > │ let v45 : string = "path" │
00:08:32 verbose #47187 > │ let v46 : IPathJoin = Fable.Core.JsInterop.importAll v45 │
00:08:32 verbose #47188 > │ let v47 : string = method22() │
00:08:32 verbose #47189 > │ let v48 : string = method23() │
00:08:32 verbose #47190 > │ let v49 : string = "v46.join(v47, v48)" │
00:08:32 verbose #47191 > │ let v50 : string = Fable.Core.JsInterop.emitJsExpr () v49 │
00:08:32 verbose #47192 > │ v50 │
00:08:32 verbose #47193 > │ #endif │
00:08:32 verbose #47194 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47195 > │ let v51 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47196 > │ v51 │
00:08:32 verbose #47197 > │ #endif │
00:08:32 verbose #47198 > │ |> fun x -> _v20 <- Some x │
00:08:32 verbose #47199 > │ let v52 : string = _v20.Value │
00:08:32 verbose #47200 > │ let v53 : string = method24(v52, v19) │
00:08:32 verbose #47201 > │ let v54 : string option = None │
00:08:32 verbose #47202 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:08:32 verbose #47203 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47204 > │ let v56 : string = method9(v53) │
00:08:32 verbose #47205 > │ let v57 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47206 > │ let v58 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:08:32 verbose #47207 > │ let v59 : string = "String::from($0)" │
00:08:32 verbose #47208 > │ let v60 : std_string_String = Fable.Core.RustInterop.emitRustExpr v58 │
00:08:32 verbose #47209 > │ v59 │
00:08:32 verbose #47210 > │ let v61 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #47211 > │ let v62 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v60 v61 │
00:08:32 verbose #47212 > │ let v63 : string = method20() │
00:08:32 verbose #47213 > │ let v64 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47214 > │ let v65 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v63 v64 │
00:08:32 verbose #47215 > │ let v66 : string = "String::from($0)" │
00:08:32 verbose #47216 > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:08:32 verbose #47217 > │ v66 │
00:08:32 verbose #47218 > │ let v68 : string = "$0.join($1)" │
00:08:32 verbose #47219 > │ let v69 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #47220 > │ (v62, v67) v68 │
00:08:32 verbose #47221 > │ let v70 : string = "$0.display().to_string()" │
00:08:32 verbose #47222 > │ let v71 : std_string_String = Fable.Core.RustInterop.emitRustExpr v69 │
00:08:32 verbose #47223 > │ v70 │
00:08:32 verbose #47224 > │ let v72 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #47225 > │ let v73 : string = Fable.Core.RustInterop.emitRustExpr v71 v72 │
00:08:32 verbose #47226 > │ v73 │
00:08:32 verbose #47227 > │ #endif │
00:08:32 verbose #47228 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47229 > │ let v74 : string = null |> unbox<string> │
00:08:32 verbose #47230 > │ v74 │
00:08:32 verbose #47231 > │ #endif │
00:08:32 verbose #47232 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47233 > │ let v75 : string = null |> unbox<string> │
00:08:32 verbose #47234 > │ v75 │
00:08:32 verbose #47235 > │ #endif │
00:08:32 verbose #47236 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47237 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47238 > │ let v76 : string = System.IO.Path.Combine (v53, v42) │
00:08:32 verbose #47239 > │ v76 │
00:08:32 verbose #47240 > │ #endif │
00:08:32 verbose #47241 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47242 > │ let v77 : IPathJoin = Fable.Core.JsInterop.importAll v45 │
00:08:32 verbose #47243 > │ let v78 : string = method14(v53) │
00:08:32 verbose #47244 > │ let v79 : string = method26() │
00:08:32 verbose #47245 > │ let v80 : string = "v77.join(v78, v79)" │
00:08:32 verbose #47246 > │ let v81 : string = Fable.Core.JsInterop.emitJsExpr () v80 │
00:08:32 verbose #47247 > │ v81 │
00:08:32 verbose #47248 > │ #endif │
00:08:32 verbose #47249 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47250 > │ let v82 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47251 > │ v82 │
00:08:32 verbose #47252 > │ #endif │
00:08:32 verbose #47253 > │ |> fun x -> _v54 <- Some x │
00:08:32 verbose #47254 > │ let v83 : string = _v54.Value │
00:08:32 verbose #47255 > │ let v84 : string option = None │
00:08:32 verbose #47256 > │ let v85 : bool = true in let mutable _v84 = v84 │
00:08:32 verbose #47257 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47258 > │ let v86 : string = method9(v83) │
00:08:32 verbose #47259 > │ let v87 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47260 > │ let v88 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v86 v87 │
00:08:32 verbose #47261 > │ let v89 : string = "String::from($0)" │
00:08:32 verbose #47262 > │ let v90 : std_string_String = Fable.Core.RustInterop.emitRustExpr v88 │
00:08:32 verbose #47263 > │ v89 │
00:08:32 verbose #47264 > │ let v91 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #47265 > │ let v92 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v90 v91 │
00:08:32 verbose #47266 > │ let v93 : string = method28() │
00:08:32 verbose #47267 > │ let v94 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47268 > │ let v95 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v93 v94 │
00:08:32 verbose #47269 > │ let v96 : string = "String::from($0)" │
00:08:32 verbose #47270 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr v95 │
00:08:32 verbose #47271 > │ v96 │
00:08:32 verbose #47272 > │ let v98 : string = "$0.join($1)" │
00:08:32 verbose #47273 > │ let v99 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #47274 > │ (v92, v97) v98 │
00:08:32 verbose #47275 > │ let v100 : string = "$0.display().to_string()" │
00:08:32 verbose #47276 > │ let v101 : std_string_String = Fable.Core.RustInterop.emitRustExpr v99 │
00:08:32 verbose #47277 > │ v100 │
00:08:32 verbose #47278 > │ let v102 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #47279 > │ let v103 : string = Fable.Core.RustInterop.emitRustExpr v101 v102 │
00:08:32 verbose #47280 > │ v103 │
00:08:32 verbose #47281 > │ #endif │
00:08:32 verbose #47282 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47283 > │ let v104 : string = null |> unbox<string> │
00:08:32 verbose #47284 > │ v104 │
00:08:32 verbose #47285 > │ #endif │
00:08:32 verbose #47286 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47287 > │ let v105 : string = null |> unbox<string> │
00:08:32 verbose #47288 > │ v105 │
00:08:32 verbose #47289 > │ #endif │
00:08:32 verbose #47290 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47291 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47292 > │ let v106 : string = "target/polyglot/trace" │
00:08:32 verbose #47293 > │ let v107 : string = System.IO.Path.Combine (v83, v106) │
00:08:32 verbose #47294 > │ v107 │
00:08:32 verbose #47295 > │ #endif │
00:08:32 verbose #47296 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47297 > │ let v108 : IPathJoin = Fable.Core.JsInterop.importAll v45 │
00:08:32 verbose #47298 > │ let v109 : string = method14(v83) │
00:08:32 verbose #47299 > │ let v110 : string = method29() │
00:08:32 verbose #47300 > │ let v111 : string = "v108.join(v109, v110)" │
00:08:32 verbose #47301 > │ let v112 : string = Fable.Core.JsInterop.emitJsExpr () v111 │
00:08:32 verbose #47302 > │ v112 │
00:08:32 verbose #47303 > │ #endif │
00:08:32 verbose #47304 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47305 > │ let v113 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47306 > │ v113 │
00:08:32 verbose #47307 > │ #endif │
00:08:32 verbose #47308 > │ |> fun x -> _v84 <- Some x │
00:08:32 verbose #47309 > │ let v114 : string = _v84.Value │
00:08:32 verbose #47310 > │ let v115 : System.IO.DirectoryInfo option = None │
00:08:32 verbose #47311 > │ let v116 : bool = true in let mutable _v115 = v115 │
00:08:32 verbose #47312 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47313 > │ let v117 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #47314 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #47315 > │ v117 │
00:08:32 verbose #47316 > │ #endif │
00:08:32 verbose #47317 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47318 > │ let v118 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #47319 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #47320 > │ v118 │
00:08:32 verbose #47321 > │ #endif │
00:08:32 verbose #47322 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47323 > │ let v119 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #47324 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #47325 > │ v119 │
00:08:32 verbose #47326 > │ #endif │
00:08:32 verbose #47327 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47328 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47329 > │ let v120 : (string -> System.IO.DirectoryInfo) = │
00:08:32 verbose #47330 > │ System.IO.Directory.CreateDirectory │
00:08:32 verbose #47331 > │ let v121 : System.IO.DirectoryInfo = v120 v114 │
00:08:32 verbose #47332 > │ v121 │
00:08:32 verbose #47333 > │ #endif │
00:08:32 verbose #47334 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47335 > │ let v122 : System.IO.DirectoryInfo = null |> │
00:08:32 verbose #47336 > │ unbox<System.IO.DirectoryInfo> │
00:08:32 verbose #47337 > │ v122 │
00:08:32 verbose #47338 > │ #endif │
00:08:32 verbose #47339 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47340 > │ let v123 : System.IO.DirectoryInfo = │
00:08:32 verbose #47341 > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:32 verbose #47342 > │ v123 │
00:08:32 verbose #47343 > │ #endif │
00:08:32 verbose #47344 > │ |> fun x -> _v115 <- Some x │
00:08:32 verbose #47345 > │ let v124 : System.IO.DirectoryInfo = _v115.Value │
00:08:32 verbose #47346 > │ let v125 : string option = None │
00:08:32 verbose #47347 > │ let v126 : bool = true in let mutable _v125 = v125 │
00:08:32 verbose #47348 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47349 > │ let v127 : string = method9(v114) │
00:08:32 verbose #47350 > │ let v128 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47351 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v127 v128 │
00:08:32 verbose #47352 > │ let v130 : string = "String::from($0)" │
00:08:32 verbose #47353 > │ let v131 : std_string_String = Fable.Core.RustInterop.emitRustExpr v129 │
00:08:32 verbose #47354 > │ v130 │
00:08:32 verbose #47355 > │ let v132 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #47356 > │ let v133 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v131 │
00:08:32 verbose #47357 > │ v132 │
00:08:32 verbose #47358 > │ let v134 : string = method9(v18) │
00:08:32 verbose #47359 > │ let v135 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47360 > │ let v136 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v134 v135 │
00:08:32 verbose #47361 > │ let v137 : string = "String::from($0)" │
00:08:32 verbose #47362 > │ let v138 : std_string_String = Fable.Core.RustInterop.emitRustExpr v136 │
00:08:32 verbose #47363 > │ v137 │
00:08:32 verbose #47364 > │ let v139 : string = "$0.join($1)" │
00:08:32 verbose #47365 > │ let v140 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #47366 > │ (v133, v138) v139 │
00:08:32 verbose #47367 > │ let v141 : string = "$0.display().to_string()" │
00:08:32 verbose #47368 > │ let v142 : std_string_String = Fable.Core.RustInterop.emitRustExpr v140 │
00:08:32 verbose #47369 > │ v141 │
00:08:32 verbose #47370 > │ let v143 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #47371 > │ let v144 : string = Fable.Core.RustInterop.emitRustExpr v142 v143 │
00:08:32 verbose #47372 > │ v144 │
00:08:32 verbose #47373 > │ #endif │
00:08:32 verbose #47374 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47375 > │ let v145 : string = null |> unbox<string> │
00:08:32 verbose #47376 > │ v145 │
00:08:32 verbose #47377 > │ #endif │
00:08:32 verbose #47378 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47379 > │ let v146 : string = null |> unbox<string> │
00:08:32 verbose #47380 > │ v146 │
00:08:32 verbose #47381 > │ #endif │
00:08:32 verbose #47382 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47383 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47384 > │ let v147 : string = System.IO.Path.Combine (v114, v18) │
00:08:32 verbose #47385 > │ v147 │
00:08:32 verbose #47386 > │ #endif │
00:08:32 verbose #47387 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47388 > │ let v148 : IPathJoin = Fable.Core.JsInterop.importAll v45 │
00:08:32 verbose #47389 > │ let v149 : string = method14(v114) │
00:08:32 verbose #47390 > │ let v150 : string = method15(v18) │
00:08:32 verbose #47391 > │ let v151 : string = "v148.join(v149, v150)" │
00:08:32 verbose #47392 > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr () v151 │
00:08:32 verbose #47393 > │ v152 │
00:08:32 verbose #47394 > │ #endif │
00:08:32 verbose #47395 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47396 > │ let v153 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47397 > │ v153 │
00:08:32 verbose #47398 > │ #endif │
00:08:32 verbose #47399 > │ |> fun x -> _v125 <- Some x │
00:08:32 verbose #47400 > │ let v154 : string = _v125.Value │
00:08:32 verbose #47401 > │ let v155 : Async<unit> option = None │
00:08:32 verbose #47402 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:08:32 verbose #47403 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47404 > │ let v157 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47405 > │ v157 │
00:08:32 verbose #47406 > │ #endif │
00:08:32 verbose #47407 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47408 > │ let v158 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47409 > │ v158 │
00:08:32 verbose #47410 > │ #endif │
00:08:32 verbose #47411 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47412 > │ let v159 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47413 > │ v159 │
00:08:32 verbose #47414 > │ #endif │
00:08:32 verbose #47415 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47416 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47417 > │ let v160 : System.Threading.Tasks.Task = │
00:08:32 verbose #47418 > │ System.IO.File.WriteAllTextAsync (v154, v0) │
00:08:32 verbose #47419 > │ let v161 : Async<unit> option = None │
00:08:32 verbose #47420 > │ let v162 : bool = true in let mutable _v161 = v161 │
00:08:32 verbose #47421 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47422 > │ let v163 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47423 > │ v163 │
00:08:32 verbose #47424 > │ #endif │
00:08:32 verbose #47425 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47426 > │ let v164 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47427 > │ v164 │
00:08:32 verbose #47428 > │ #endif │
00:08:32 verbose #47429 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47430 > │ let v165 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47431 > │ v165 │
00:08:32 verbose #47432 > │ #endif │
00:08:32 verbose #47433 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47434 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47435 > │ let v166 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:32 verbose #47436 > │ Async.AwaitTask │
00:08:32 verbose #47437 > │ let v167 : Async<unit> = v166 v160 │
00:08:32 verbose #47438 > │ v167 │
00:08:32 verbose #47439 > │ #endif │
00:08:32 verbose #47440 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47441 > │ let v168 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47442 > │ v168 │
00:08:32 verbose #47443 > │ #endif │
00:08:32 verbose #47444 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47445 > │ let v169 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:32 verbose #47446 > │ v169 │
00:08:32 verbose #47447 > │ #endif │
00:08:32 verbose #47448 > │ |> fun x -> _v161 <- Some x │
00:08:32 verbose #47449 > │ let v170 : Async<unit> = _v161.Value │
00:08:32 verbose #47450 > │ v170 │
00:08:32 verbose #47451 > │ #endif │
00:08:32 verbose #47452 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47453 > │ let v171 : Async<unit> = null |> unbox<Async<unit>> │
00:08:32 verbose #47454 > │ v171 │
00:08:32 verbose #47455 > │ #endif │
00:08:32 verbose #47456 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47457 > │ let v172 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:32 verbose #47458 > │ v172 │
00:08:32 verbose #47459 > │ #endif │
00:08:32 verbose #47460 > │ |> fun x -> _v155 <- Some x │
00:08:32 verbose #47461 > │ let v173 : Async<unit> = _v155.Value │
00:08:32 verbose #47462 > │ let v174 : unit option = None │
00:08:32 verbose #47463 > │ let v175 : bool = true in let mutable _v174 = v174 │
00:08:32 verbose #47464 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47465 > │ null |> unbox<unit> │
00:08:32 verbose #47466 > │ () │
00:08:32 verbose #47467 > │ #endif │
00:08:32 verbose #47468 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47469 > │ null |> unbox<unit> │
00:08:32 verbose #47470 > │ () │
00:08:32 verbose #47471 > │ #endif │
00:08:32 verbose #47472 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47473 > │ null |> unbox<unit> │
00:08:32 verbose #47474 > │ () │
00:08:32 verbose #47475 > │ #endif │
00:08:32 verbose #47476 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47477 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47478 > │ let v176 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:32 verbose #47479 > │ v176 v173 │
00:08:32 verbose #47480 > │ () │
00:08:32 verbose #47481 > │ #endif │
00:08:32 verbose #47482 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47483 > │ null |> unbox<unit> │
00:08:32 verbose #47484 > │ () │
00:08:32 verbose #47485 > │ #endif │
00:08:32 verbose #47486 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47487 > │ Unchecked.defaultof<unit> │
00:08:32 verbose #47488 > │ () │
00:08:32 verbose #47489 > │ #endif │
00:08:32 verbose #47490 > │ |> fun x -> _v174 <- Some x │
00:08:32 verbose #47491 > │ _v174.Value │
00:08:32 verbose #47492 > │ with ex -> │
00:08:32 verbose #47493 > │ let v177 : exn = ex │
00:08:32 verbose #47494 > │ let v178 : string = $"file_system.trace_file / ex: %A{v177}" │
00:08:32 verbose #47495 > │ method27(v178) │
00:08:32 verbose #47496 > │ (* │
00:08:32 verbose #47497 > │ *) │
00:08:32 verbose #47498 > │ () │
00:08:32 verbose #47499 > │ #endif │
00:08:32 verbose #47500 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47501 > │ () │
00:08:32 verbose #47502 > │ #endif │
00:08:32 verbose #47503 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47504 > │ Unchecked.defaultof<unit> │
00:08:32 verbose #47505 > │ () │
00:08:32 verbose #47506 > │ #endif │
00:08:32 verbose #47507 > │ |> fun x -> _v1 <- Some x │
00:08:32 verbose #47508 > │ _v1.Value │
00:08:32 verbose #47509 > │ () │
00:08:32 verbose #47510 > │ and closure54 () (v0 : string) : unit = │
00:08:32 verbose #47511 > │ method27(v0) │
00:08:32 verbose #47512 > │ and closure53 () (v0 : bool) : unit = │
00:08:32 verbose #47513 > │ let v1 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:32 verbose #47514 > │ closure0() │
00:08:32 verbose #47515 > │ if State.trace_state.IsNone then State.trace_state <- v1 () |> Some │
00:08:32 verbose #47516 > │ let struct (v2 : Mut0, v3 : Mut1, v4 : Mut2, v5 : int64 option, v6 : │
00:08:32 verbose #47517 > │ Mut3) = State.trace_state.Value │
00:08:32 verbose #47518 > │ let v9 : (string -> unit) = │
00:08:32 verbose #47519 > │ if v0 then │
00:08:32 verbose #47520 > │ closure54() │
00:08:32 verbose #47521 > │ else │
00:08:32 verbose #47522 > │ closure1() │
00:08:32 verbose #47523 > │ v6.l0 <- v9 │
00:08:32 verbose #47524 > │ () │
00:08:32 verbose #47525 > │ and closure56 (v0 : string) (v1 : string) : string = │
00:08:32 verbose #47526 > │ let v2 : string option = None │
00:08:32 verbose #47527 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:08:32 verbose #47528 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:32 verbose #47529 > │ let v4 : string = method9(v0) │
00:08:32 verbose #47530 > │ let v5 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47531 > │ let v6 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:08:32 verbose #47532 > │ let v7 : string = "String::from($0)" │
00:08:32 verbose #47533 > │ let v8 : std_string_String = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:32 verbose #47534 > │ let v9 : string = "std::path::PathBuf::from($0)" │
00:08:32 verbose #47535 > │ let v10 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:08:32 verbose #47536 > │ let v11 : string = method9(v1) │
00:08:32 verbose #47537 > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:32 verbose #47538 > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:08:32 verbose #47539 > │ let v14 : string = "String::from($0)" │
00:08:32 verbose #47540 > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:08:32 verbose #47541 > │ v14 │
00:08:32 verbose #47542 > │ let v16 : string = "$0.join($1)" │
00:08:32 verbose #47543 > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:32 verbose #47544 > │ (v10, v15) v16 │
00:08:32 verbose #47545 > │ let v18 : string = "$0.display().to_string()" │
00:08:32 verbose #47546 > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:08:32 verbose #47547 > │ v18 │
00:08:32 verbose #47548 > │ let v20 : string = "fable_library_rust::String_::fromString($0)" │
00:08:32 verbose #47549 > │ let v21 : string = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:32 verbose #47550 > │ v21 │
00:08:32 verbose #47551 > │ #endif │
00:08:32 verbose #47552 > │ #if FABLE_COMPILER_RUST && WASM │
00:08:32 verbose #47553 > │ let v22 : string = null |> unbox<string> │
00:08:32 verbose #47554 > │ v22 │
00:08:32 verbose #47555 > │ #endif │
00:08:32 verbose #47556 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:32 verbose #47557 > │ let v23 : string = null |> unbox<string> │
00:08:32 verbose #47558 > │ v23 │
00:08:32 verbose #47559 > │ #endif │
00:08:32 verbose #47560 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:32 verbose #47561 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:32 verbose #47562 > │ let v24 : string = System.IO.Path.Combine (v0, v1) │
00:08:32 verbose #47563 > │ v24 │
00:08:32 verbose #47564 > │ #endif │
00:08:32 verbose #47565 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:32 verbose #47566 > │ let v25 : string = "path" │
00:08:32 verbose #47567 > │ let v26 : IPathJoin = Fable.Core.JsInterop.importAll v25 │
00:08:32 verbose #47568 > │ let v27 : string = method14(v0) │
00:08:32 verbose #47569 > │ let v28 : string = method15(v1) │
00:08:32 verbose #47570 > │ let v29 : string = "v26.join(v27, v28)" │
00:08:32 verbose #47571 > │ let v30 : string = Fable.Core.JsInterop.emitJsExpr () v29 │
00:08:32 verbose #47572 > │ v30 │
00:08:32 verbose #47573 > │ #endif │
00:08:32 verbose #47574 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:32 verbose #47575 > │ let v31 : string = Unchecked.defaultof<string> │
00:08:32 verbose #47576 > │ v31 │
00:08:32 verbose #47577 > │ #endif │
00:08:32 verbose #47578 > │ |> fun x -> _v2 <- Some x │
00:08:32 verbose #47579 > │ let v32 : string = _v2.Value │
00:08:32 verbose #47580 > │ v32 │
00:08:32 verbose #47581 > │ and closure55 () (v0 : string) : (string -> string) = │
00:08:32 verbose #47582 > │ closure56(v0) │
00:08:32 verbose #47583 > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:08:32 verbose #47584 > │ closure0() │
00:08:32 verbose #47585 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:08:32 verbose #47586 > │ let v1 : (string -> Async<int64>) = closure2() │
00:08:32 verbose #47587 > │ let delete_directory_async x = v1 x │
00:08:32 verbose #47588 > │ let v2 : (US3 -> (string -> Async<int64>)) = closure9() │
00:08:32 verbose #47589 > │ let wait_for_file_access x = v2 x │
00:08:32 verbose #47590 > │ let v3 : (string -> Async<int64>) = closure13() │
00:08:32 verbose #47591 > │ let wait_for_file_access_read x = v3 x │
00:08:32 verbose #47592 > │ let v4 : (string -> Async<string>) = closure14() │
00:08:32 verbose #47593 > │ let read_all_text_async x = v4 x │
00:08:32 verbose #47594 > │ let v5 : (string -> (string -> Async<bool>)) = closure15() │
00:08:32 verbose #47595 > │ let file_exists_content x = v5 x │
00:08:32 verbose #47596 > │ let v6 : (string -> (string -> Async<unit>)) = closure17() │
00:08:32 verbose #47597 > │ let write_all_text_async x = v6 x │
00:08:32 verbose #47598 > │ let v7 : (string -> (string -> Async<unit>)) = closure19() │
00:08:32 verbose #47599 > │ let write_all_text_exists x = v7 x │
00:08:32 verbose #47600 > │ let v8 : (string -> Async<int64>) = closure21() │
00:08:32 verbose #47601 > │ let delete_file_async x = v8 x │
00:08:32 verbose #47602 > │ let v9 : (string -> (string -> Async<int64>)) = closure24() │
00:08:32 verbose #47603 > │ let move_file_async x = v9 x │
00:08:32 verbose #47604 > │ let v10 : (string -> Async<string option>) = closure28() │
00:08:32 verbose #47605 > │ let read_all_text_retry_async x = v10 x │
00:08:32 verbose #47606 > │ let v11 : (unit -> string) = closure36() │
00:08:32 verbose #47607 > │ let create_temp_directory_name () = v11 () │
00:08:32 verbose #47608 > │ let v12 : (unit -> struct (string * System.IDisposable)) = closure38() │
00:08:32 verbose #47609 > │ let create_temp_directory () = v12 () │
00:08:32 verbose #47610 > │ let v13 : (unit -> string) = closure42() │
00:08:32 verbose #47611 > │ let get_source_directory () = v13 () │
00:08:32 verbose #47612 > │ let v14 : (string -> (bool -> (string -> string))) = closure43() │
00:08:32 verbose #47613 > │ let find_parent x = v14 x │
00:08:32 verbose #47614 > │ let v15 : (string -> string) = closure50() │
00:08:32 verbose #47615 > │ let normalize_path x = v15 x │
00:08:32 verbose #47616 > │ let v16 : (string -> string) = closure51() │
00:08:32 verbose #47617 > │ let new_file_uri x = v16 x │
00:08:32 verbose #47618 > │ let v17 : (unit -> string) = closure52() │
00:08:32 verbose #47619 > │ let get_repository_root () = v17 () │
00:08:32 verbose #47620 > │ let v18 : (bool -> unit) = closure53() │
00:08:32 verbose #47621 > │ let init_trace_file x = v18 x │
00:08:32 verbose #47622 > │ let v19 : (string -> (string -> string)) = closure55() │
00:08:32 verbose #47623 > │ let (</>) x = v19 x │
00:08:32 verbose #47624 > │ () │
00:08:32 verbose #47625 > │ │
00:08:32 verbose #47626 > │ │
00:08:32 verbose #47627 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:34 verbose #47628 > [NbConvertApp] Converting notebook file_system.dib.ipynb to html
00:08:34 verbose #47629 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:34 verbose #47630 > validate(nb)
00:08:35 verbose #47631 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:08:35 verbose #47632 > return _pygments_highlight(
00:08:36 verbose #47633 > [NbConvertApp] Writing 1094752 bytes to file_system.dib.html
00:08:37 debug #47634 execute_with_options_async / exit_code: 0 / output.Length: 1341441
00:08:37 debug #22 main / executeCommand / exitCode: 0
00:08:37 debug #47635 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 rust.dib" -Retries 3", None, None)
00:08:37 verbose #47636 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: rust.dib / _args: [
00:08:37 verbose #47637 > "-Retries",
00:08:37 verbose #47638 > 3
00:08:37 verbose #47639 > ]
00:08:39 verbose #47640 >
00:08:39 verbose #47641 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:39 verbose #47642 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:39 verbose #47643 > │ # rust │
00:08:39 verbose #47644 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:39 verbose #47645 >
00:08:39 verbose #47646 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:39 verbose #47647 > // // test
00:08:39 verbose #47648 >
00:08:39 verbose #47649 > open testing
00:08:42 verbose #47650 > 00:08:41 debug #657 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:08:43 verbose #47651 >
00:08:43 verbose #47652 > ╭─[ 4.02s - stdout ]───────────────────────────────────────────────────────────╮
00:08:43 verbose #47653 > │ () │
00:08:43 verbose #47654 > │ │
00:08:43 verbose #47655 > │ │
00:08:43 verbose #47656 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:43 verbose #47657 >
00:08:43 verbose #47658 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:43 verbose #47659 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:43 verbose #47660 > │ ## types │
00:08:43 verbose #47661 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:43 verbose #47662 >
00:08:43 verbose #47663 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:43 verbose #47664 > inl types () =
00:08:43 verbose #47665 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Func0<$0>\")>]] type
00:08:43 verbose #47666 > Func0<'T> = class end"
00:08:43 verbose #47667 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Func1<$0, $1>\")>]] type
00:08:43 verbose #47668 > Func0<'T, 'U> = class end"
00:08:43 verbose #47669 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Box<$0>\")>]] type Box<'T> =
00:08:43 verbose #47670 > class end"
00:08:43 verbose #47671 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"dyn $0\")>]] type Dyn<'T> =
00:08:43 verbose #47672 > class end"
00:08:43 verbose #47673 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"$0 + Send\")>]] type Send<'T>
00:08:43 verbose #47674 > = class end"
00:08:43 verbose #47675 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn() -> $0\")>]] type Fn<'T>
00:08:43 verbose #47676 > = class end"
00:08:43 verbose #47677 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn()\")>]] type FnUnit =
00:08:43 verbose #47678 > class end"
00:08:43 verbose #47679 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"FnOnce() -> $0\")>]] type
00:08:43 verbose #47680 > FnOnce<'T> = class end"
00:08:43 verbose #47681 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn($0)\")>]] type
00:08:43 verbose #47682 > ActionFn<'T> = class end"
00:08:43 verbose #47683 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn($0, $1)\")>]] type
00:08:43 verbose #47684 > ActionFn2<'T, 'U> = class end"
00:08:43 verbose #47685 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"impl $0\")>]] type Impl<'T> =
00:08:43 verbose #47686 > class end"
00:08:43 verbose #47687 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"mut $0\")>]] type Mut<'T> =
00:08:43 verbose #47688 > class end"
00:08:43 verbose #47689 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&$0\")>]] type Ref<'T> =
00:08:43 verbose #47690 > class end"
00:08:43 verbose #47691 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&'static $0\")>]] type
00:08:43 verbose #47692 > StaticRef<'T> = class end"
00:08:43 verbose #47693 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"MutCell<$0>\")>]] type
00:08:43 verbose #47694 > MutCell<'T> = class end"
00:08:43 verbose #47695 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::any::Any\")>]] type
00:08:43 verbose #47696 > std_any_Any = class end"
00:08:43 verbose #47697 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::cell::RefCell<$0>\")>]]
00:08:43 verbose #47698 > type std_cell_RefCell<'T> = class end"
00:08:43 verbose #47699 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::pin::Pin<$0>\")>]] type
00:08:43 verbose #47700 > std_pin_Pin<'T> = class end"
00:08:43 verbose #47701 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::rc::Rc<$0>\")>]] type
00:08:43 verbose #47702 > std_rc_Rc<'T> = class end"
00:08:43 verbose #47703 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::rc::Weak<$0>\")>]] type
00:08:43 verbose #47704 > std_rc_Weak<'T> = class end"
00:08:43 verbose #47705 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::sync::Arc<$0>\")>]] type
00:08:43 verbose #47706 > std_sync_Arc<'T> = class end"
00:08:43 verbose #47707 > 00:08:43 debug #658 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d3d8b017e868ad11a2f7966ebd17f4b3cd4b67fec522e4915d959a99b154e8b0/main.spi
00:08:43 verbose #47708 >
00:08:43 verbose #47709 > ╭─[ 253.63ms - stdout ]────────────────────────────────────────────────────────╮
00:08:43 verbose #47710 > │ () │
00:08:43 verbose #47711 > │ │
00:08:43 verbose #47712 > │ │
00:08:43 verbose #47713 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:43 verbose #47714 >
00:08:43 verbose #47715 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:43 verbose #47716 > nominal ref_cell t = $"std_cell_RefCell<`t>"
00:08:43 verbose #47717 > nominal rc t = $"std_rc_Rc<`t>"
00:08:43 verbose #47718 > nominal weak_rc t = $"std_rc_Weak<`t>"
00:08:43 verbose #47719 > nominal box t = $"Box<`t>"
00:08:43 verbose #47720 > nominal mut_cell t = $"MutCell<`t>"
00:08:43 verbose #47721 > nominal pin t = $"std_pin_Pin<`t>"
00:08:43 verbose #47722 > nominal arc t = $"std_sync_Arc<`t>"
00:08:43 verbose #47723 > nominal dyn' t = $"Dyn<`t>"
00:08:43 verbose #47724 > nominal fn' t = $"Fn<`t>"
00:08:43 verbose #47725 > nominal action_fn t = $"ActionFn<`t>"
00:08:43 verbose #47726 > nominal action_fn2 t u = $"ActionFn2<`t, `u>"
00:08:43 verbose #47727 > nominal fn_once t = $"FnOnce<`t>"
00:08:43 verbose #47728 > nominal fn_unit = $"FnUnit"
00:08:43 verbose #47729 > nominal func0 t = $"Func0<`t>"
00:08:43 verbose #47730 > nominal func1 t u =
00:08:43 verbose #47731 > `(
00:08:43 verbose #47732 > typecase t with
00:08:43 verbose #47733 > | () => `func0 `u
00:08:43 verbose #47734 > | _ => $'' : $"Func0<`t, `u>"
00:08:43 verbose #47735 > )
00:08:43 verbose #47736 > nominal impl t = $"Impl<`t>"
00:08:43 verbose #47737 > nominal mut' t = $"Mut<`t>"
00:08:43 verbose #47738 > nominal ref' t = $"Ref<`t>"
00:08:43 verbose #47739 > nominal send t = $"Send<`t>"
00:08:43 verbose #47740 > nominal static_ref' t = $"StaticRef<`t>"
00:08:44 verbose #47741 > 00:08:43 debug #659 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1242b899d3276b8c4e0e0e582d09a79412cf4a89ff8b48ed1a2eb5fb152b8198/main.spi
00:08:44 verbose #47742 >
00:08:44 verbose #47743 > ╭─[ 238.37ms - stdout ]────────────────────────────────────────────────────────╮
00:08:44 verbose #47744 > │ () │
00:08:44 verbose #47745 > │ │
00:08:44 verbose #47746 > │ │
00:08:44 verbose #47747 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47748 >
00:08:44 verbose #47749 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:44 verbose #47750 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:44 verbose #47751 > │ ## emit_expr │
00:08:44 verbose #47752 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47753 >
00:08:44 verbose #47754 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:44 verbose #47755 > inl emit_expr forall a t. (args : a) (code : string) : t =
00:08:44 verbose #47756 > real
00:08:44 verbose #47757 > $"Fable.Core.RustInterop.emitRustExpr !args !code" : t
00:08:44 verbose #47758 > 00:08:43 debug #660 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8872e56b1205197958b99c109f3cb392571541b1e909a51213f2b9000f00df93/main.spi
00:08:44 verbose #47759 >
00:08:44 verbose #47760 > ╭─[ 265.31ms - stdout ]────────────────────────────────────────────────────────╮
00:08:44 verbose #47761 > │ () │
00:08:44 verbose #47762 > │ │
00:08:44 verbose #47763 > │ │
00:08:44 verbose #47764 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47765 >
00:08:44 verbose #47766 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:44 verbose #47767 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:44 verbose #47768 > │ ## (~!\) │
00:08:44 verbose #47769 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47770 >
00:08:44 verbose #47771 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:44 verbose #47772 > inl (~!\) forall t. (code : string) : t =
00:08:44 verbose #47773 > emit_expr () code
00:08:44 verbose #47774 > 00:08:43 debug #661 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2d87a56a6caad5a830ea87c750e2a76fdf4e536fa267e3aeecc3f4f9d6d7e519/main.spi
00:08:44 verbose #47775 >
00:08:44 verbose #47776 > ╭─[ 263.88ms - stdout ]────────────────────────────────────────────────────────╮
00:08:44 verbose #47777 > │ () │
00:08:44 verbose #47778 > │ │
00:08:44 verbose #47779 > │ │
00:08:44 verbose #47780 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47781 >
00:08:44 verbose #47782 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:44 verbose #47783 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:44 verbose #47784 > │ ## (~!\\) │
00:08:44 verbose #47785 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47786 >
00:08:44 verbose #47787 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:44 verbose #47788 > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:08:44 verbose #47789 > emit_expr args code
00:08:44 verbose #47790 > 00:08:44 debug #662 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a5b36db8120d1f78caa753ae736c7334afebd011053a67dd784201f558b5da00/main.spi
00:08:44 verbose #47791 >
00:08:44 verbose #47792 > ╭─[ 202.18ms - stdout ]────────────────────────────────────────────────────────╮
00:08:44 verbose #47793 > │ () │
00:08:44 verbose #47794 > │ │
00:08:44 verbose #47795 > │ │
00:08:44 verbose #47796 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47797 >
00:08:44 verbose #47798 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:44 verbose #47799 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:44 verbose #47800 > │ ## emit │
00:08:44 verbose #47801 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:44 verbose #47802 >
00:08:44 verbose #47803 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:44 verbose #47804 > inl emit forall t. (x : t) : t =
00:08:44 verbose #47805 > !\\(x, $'"$0"')
00:08:45 verbose #47806 > 00:08:44 debug #663 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c4e2866fb941a940f621d4964932bdc207dc8cc8b27beab81a2f2538b029efb3/main.spi
00:08:45 verbose #47807 >
00:08:45 verbose #47808 > ╭─[ 228.23ms - stdout ]────────────────────────────────────────────────────────╮
00:08:45 verbose #47809 > │ () │
00:08:45 verbose #47810 > │ │
00:08:45 verbose #47811 > │ │
00:08:45 verbose #47812 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47813 >
00:08:45 verbose #47814 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:45 verbose #47815 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:45 verbose #47816 > │ ## emit' │
00:08:45 verbose #47817 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47818 >
00:08:45 verbose #47819 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:45 verbose #47820 > inl emit' forall t. (x : t) : t =
00:08:45 verbose #47821 > !\\(x, $'"let !x = $0"')
00:08:45 verbose #47822 > x
00:08:45 verbose #47823 > 00:08:44 debug #664 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/57f459e01f56c61b15db55f6d39efe9aa61f6c30e5c9c4ffeeed5b8a18476417/main.spi
00:08:45 verbose #47824 >
00:08:45 verbose #47825 > ╭─[ 273.43ms - stdout ]────────────────────────────────────────────────────────╮
00:08:45 verbose #47826 > │ () │
00:08:45 verbose #47827 > │ │
00:08:45 verbose #47828 > │ │
00:08:45 verbose #47829 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47830 >
00:08:45 verbose #47831 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:45 verbose #47832 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:45 verbose #47833 > │ ## new_box │
00:08:45 verbose #47834 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47835 >
00:08:45 verbose #47836 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:45 verbose #47837 > inl new_box forall t. (x : t) : box t =
00:08:45 verbose #47838 > inl x = join x
00:08:45 verbose #47839 > !\($'"Box::new(!x)"')
00:08:45 verbose #47840 > 00:08:44 debug #665 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/18ecd9f97c85912289679d804067c8dbda6aea2a0ded523debafec695f85c193/main.spi
00:08:45 verbose #47841 >
00:08:45 verbose #47842 > ╭─[ 247.77ms - stdout ]────────────────────────────────────────────────────────╮
00:08:45 verbose #47843 > │ () │
00:08:45 verbose #47844 > │ │
00:08:45 verbose #47845 > │ │
00:08:45 verbose #47846 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47847 >
00:08:45 verbose #47848 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:45 verbose #47849 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:45 verbose #47850 > │ ## new_rc │
00:08:45 verbose #47851 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47852 >
00:08:45 verbose #47853 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:45 verbose #47854 > inl new_rc forall t. (x : t) : rc t =
00:08:45 verbose #47855 > inl x = join x
00:08:45 verbose #47856 > !\($'"std::rc::Rc::new(!x)"')
00:08:45 verbose #47857 > 00:08:45 debug #666 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bbf060919fd8f98e74415921bce3de7468758ccdcb56a22adc6332df91e5263a/main.spi
00:08:45 verbose #47858 >
00:08:45 verbose #47859 > ╭─[ 230.03ms - stdout ]────────────────────────────────────────────────────────╮
00:08:45 verbose #47860 > │ () │
00:08:45 verbose #47861 > │ │
00:08:45 verbose #47862 > │ │
00:08:45 verbose #47863 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47864 >
00:08:45 verbose #47865 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:45 verbose #47866 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:45 verbose #47867 > │ ## rc_clone │
00:08:45 verbose #47868 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:45 verbose #47869 >
00:08:45 verbose #47870 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:45 verbose #47871 > inl rc_clone forall t. (x : rc t) : rc t =
00:08:45 verbose #47872 > inl x = join x
00:08:45 verbose #47873 > !\($'"std::rc::Rc::clone(&!x)"')
00:08:46 verbose #47874 > 00:08:45 debug #667 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4ba8892cffc378d870ab8a05dbfd9b9b1b1f8b83ce6997f26a0e46052c89313f/main.spi
00:08:46 verbose #47875 >
00:08:46 verbose #47876 > ╭─[ 280.26ms - stdout ]────────────────────────────────────────────────────────╮
00:08:46 verbose #47877 > │ () │
00:08:46 verbose #47878 > │ │
00:08:46 verbose #47879 > │ │
00:08:46 verbose #47880 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47881 >
00:08:46 verbose #47882 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:46 verbose #47883 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:46 verbose #47884 > │ ## rc_unwrap_or_clone │
00:08:46 verbose #47885 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47886 >
00:08:46 verbose #47887 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:46 verbose #47888 > inl rc_unwrap_or_clone forall t. (x : rc t) : t =
00:08:46 verbose #47889 > inl x = join x
00:08:46 verbose #47890 > !\($'"std::rc::Rc::unwrap_or_clone(!x)"')
00:08:46 verbose #47891 > 00:08:45 debug #668 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/55ba9b92415ca64f4bd873e12211ed0156275856d54faa374157795bb66555d4/main.spi
00:08:46 verbose #47892 >
00:08:46 verbose #47893 > ╭─[ 243.36ms - stdout ]────────────────────────────────────────────────────────╮
00:08:46 verbose #47894 > │ () │
00:08:46 verbose #47895 > │ │
00:08:46 verbose #47896 > │ │
00:08:46 verbose #47897 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47898 >
00:08:46 verbose #47899 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:46 verbose #47900 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:46 verbose #47901 > │ ## rc_downgrade │
00:08:46 verbose #47902 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47903 >
00:08:46 verbose #47904 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:46 verbose #47905 > inl rc_downgrade forall t. (x : rc t) : weak_rc t =
00:08:46 verbose #47906 > inl x = join x
00:08:46 verbose #47907 > !\($'"std::rc::Rc::downgrade(&!x)"')
00:08:46 verbose #47908 > 00:08:45 debug #669 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b4b07e80e3a6bd36f1c22848b35bd5f80e6384a61ab5f85ce321a5590a9015dd/main.spi
00:08:46 verbose #47909 >
00:08:46 verbose #47910 > ╭─[ 294.77ms - stdout ]────────────────────────────────────────────────────────╮
00:08:46 verbose #47911 > │ () │
00:08:46 verbose #47912 > │ │
00:08:46 verbose #47913 > │ │
00:08:46 verbose #47914 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47915 >
00:08:46 verbose #47916 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:46 verbose #47917 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:46 verbose #47918 > │ ## new_ref_cell │
00:08:46 verbose #47919 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47920 >
00:08:46 verbose #47921 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:46 verbose #47922 > inl new_ref_cell forall t. (x : t) : ref_cell t =
00:08:46 verbose #47923 > inl x = join x
00:08:46 verbose #47924 > !\($'"std::cell::RefCell::new(!x)"')
00:08:46 verbose #47925 > 00:08:46 debug #670 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b19d3998270a179ddacd69b8d0004ea66a680b8c668288edaae67f2354970b29/main.spi
00:08:46 verbose #47926 >
00:08:46 verbose #47927 > ╭─[ 218.61ms - stdout ]────────────────────────────────────────────────────────╮
00:08:46 verbose #47928 > │ () │
00:08:46 verbose #47929 > │ │
00:08:46 verbose #47930 > │ │
00:08:46 verbose #47931 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47932 >
00:08:46 verbose #47933 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:46 verbose #47934 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:46 verbose #47935 > │ ## ref_cell_borrow │
00:08:46 verbose #47936 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 verbose #47937 >
00:08:46 verbose #47938 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:46 verbose #47939 > inl ref_cell_borrow forall t. (x : rc (ref_cell t)) : t =
00:08:46 verbose #47940 > inl x = join x
00:08:46 verbose #47941 > !\($'"*std::cell::RefCell::borrow(&std::rc::Rc::clone(&!x))"')
00:08:47 verbose #47942 > 00:08:46 debug #671 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4c99aa40623774d0a8b7910fe895acd13eaad7d171e19f908e19a7a0f3af304f/main.spi
00:08:47 verbose #47943 >
00:08:47 verbose #47944 > ╭─[ 261.45ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 verbose #47945 > │ () │
00:08:47 verbose #47946 > │ │
00:08:47 verbose #47947 > │ │
00:08:47 verbose #47948 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #47949 >
00:08:47 verbose #47950 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:47 verbose #47951 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:47 verbose #47952 > │ ## ref_cell_borrow_mut │
00:08:47 verbose #47953 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #47954 >
00:08:47 verbose #47955 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 verbose #47956 > inl ref_cell_borrow_mut forall t. (x : rc (ref_cell t)) : mut' t =
00:08:47 verbose #47957 > inl x = join x
00:08:47 verbose #47958 > !\($'"*std::cell::RefCell::borrow_mut(&std::rc::Rc::clone(&!x))"')
00:08:47 verbose #47959 > 00:08:46 debug #672 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/60c4de06aeaf9065f7a35b0106be5b1fe5e14d51ed1d7ba5be60c35fae04fdb9/main.spi
00:08:47 verbose #47960 >
00:08:47 verbose #47961 > ╭─[ 233.77ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 verbose #47962 > │ () │
00:08:47 verbose #47963 > │ │
00:08:47 verbose #47964 > │ │
00:08:47 verbose #47965 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #47966 >
00:08:47 verbose #47967 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:47 verbose #47968 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:47 verbose #47969 > │ ## to_mut │
00:08:47 verbose #47970 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #47971 >
00:08:47 verbose #47972 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 verbose #47973 > inl to_mut forall t. (x : t) : t =
00:08:47 verbose #47974 > (!\($'"true; // 1"') : bool) |> ignore
00:08:47 verbose #47975 > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:08:47 verbose #47976 > (!\($'"true; !x"') : bool) |> ignore
00:08:47 verbose #47977 > !\($'"!x"')
00:08:47 verbose #47978 > // inl result = !\($'"!x"') : mut' t
00:08:47 verbose #47979 > // !\($'"!result"')
00:08:47 verbose #47980 > // inl result = !\($'"*/ // a"') : mut' t
00:08:47 verbose #47981 > // inl result = !\($'"!x"') : mut' t
00:08:47 verbose #47982 > // result |> fun x => $'!x |> unbox // b'
00:08:47 verbose #47983 > 00:08:47 debug #673 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7000c463f6602921f47df67683bbbafa94a1062c2400b5ae824f526bf44fd098/main.spi
00:08:47 verbose #47984 >
00:08:47 verbose #47985 > ╭─[ 295.54ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 verbose #47986 > │ () │
00:08:47 verbose #47987 > │ │
00:08:47 verbose #47988 > │ │
00:08:47 verbose #47989 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #47990 >
00:08:47 verbose #47991 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:47 verbose #47992 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:47 verbose #47993 > │ ## ref_map │
00:08:47 verbose #47994 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #47995 >
00:08:47 verbose #47996 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 verbose #47997 > inl ref_map forall t u. (fn : t -> u) (x : ref' t) : ref' u =
00:08:47 verbose #47998 > !\($'"!fn(!x)"')
00:08:47 verbose #47999 > 00:08:47 debug #674 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/487b8976a126078fc010a8e40a237e89c2995a6a83a529ea4789fb76769fde45/main.spi
00:08:47 verbose #48000 >
00:08:47 verbose #48001 > ╭─[ 221.08ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 verbose #48002 > │ () │
00:08:47 verbose #48003 > │ │
00:08:47 verbose #48004 > │ │
00:08:47 verbose #48005 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #48006 >
00:08:47 verbose #48007 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:47 verbose #48008 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:47 verbose #48009 > │ ## from_mut │
00:08:47 verbose #48010 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #48011 >
00:08:47 verbose #48012 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 verbose #48013 > inl from_mut forall t. (x : mut' t) : t =
00:08:47 verbose #48014 > !\($'"!x"')
00:08:48 verbose #48015 > 00:08:47 debug #675 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/05dd30b9c95497c5dbd8a18bd810210cbbb0d9d268a105efed3d360ad0d597ad/main.spi
00:08:48 verbose #48016 >
00:08:48 verbose #48017 > ╭─[ 272.56ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 verbose #48018 > │ () │
00:08:48 verbose #48019 > │ │
00:08:48 verbose #48020 > │ │
00:08:48 verbose #48021 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48022 >
00:08:48 verbose #48023 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:48 verbose #48024 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:48 verbose #48025 > │ ## new_arc │
00:08:48 verbose #48026 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48027 >
00:08:48 verbose #48028 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 verbose #48029 > inl new_arc forall t. (x : t) : arc t =
00:08:48 verbose #48030 > inl x = join x
00:08:48 verbose #48031 > !\($'"std::sync::Arc::new(!x)"')
00:08:48 verbose #48032 > 00:08:47 debug #676 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c7db961aa7f1804f8b9530cf889d9e773412c6417a7260727355070870ebdd1f/main.spi
00:08:48 verbose #48033 >
00:08:48 verbose #48034 > ╭─[ 254.65ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 verbose #48035 > │ () │
00:08:48 verbose #48036 > │ │
00:08:48 verbose #48037 > │ │
00:08:48 verbose #48038 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48039 >
00:08:48 verbose #48040 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:48 verbose #48041 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:48 verbose #48042 > │ ## box_fn │
00:08:48 verbose #48043 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48044 >
00:08:48 verbose #48045 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 verbose #48046 > inl box_fn forall t. (x : () -> ()) : box t =
00:08:48 verbose #48047 > inl x = join x
00:08:48 verbose #48048 > !\($'"Box::new(move || !x())"')
00:08:48 verbose #48049 > 00:08:48 debug #677 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bc09d54f142780c436d3ff07e0505ed6fe0af22561417a84fb5af6d850188ef5/main.spi
00:08:48 verbose #48050 >
00:08:48 verbose #48051 > ╭─[ 214.23ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 verbose #48052 > │ () │
00:08:48 verbose #48053 > │ │
00:08:48 verbose #48054 > │ │
00:08:48 verbose #48055 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48056 >
00:08:48 verbose #48057 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:48 verbose #48058 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:48 verbose #48059 > │ ## new_pin │
00:08:48 verbose #48060 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48061 >
00:08:48 verbose #48062 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 verbose #48063 > inl new_pin forall t. (x : t) : pin (box t) =
00:08:48 verbose #48064 > inl x = join x
00:08:48 verbose #48065 > !\($'"Box::pin(!x)"')
00:08:48 verbose #48066 > 00:08:48 debug #678 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5ade2c019101bdadc14c62059a6788d8d2b1bcc877c7cb49e1dc1211b0f93992/main.spi
00:08:48 verbose #48067 >
00:08:48 verbose #48068 > ╭─[ 253.18ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 verbose #48069 > │ () │
00:08:48 verbose #48070 > │ │
00:08:48 verbose #48071 > │ │
00:08:48 verbose #48072 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48073 >
00:08:48 verbose #48074 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:48 verbose #48075 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:48 verbose #48076 > │ ## deref │
00:08:48 verbose #48077 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #48078 >
00:08:48 verbose #48079 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 verbose #48080 > inl deref forall t. (ref : ref' t) : t =
00:08:48 verbose #48081 > inl ref = join ref
00:08:48 verbose #48082 > !\($'"*!ref"')
00:08:49 verbose #48083 > 00:08:48 debug #679 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e512615e29f42c99d0315ba9a8167549ce2d573371eb6be2c538e0c2b578b418/main.spi
00:08:49 verbose #48084 >
00:08:49 verbose #48085 > ╭─[ 253.58ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 verbose #48086 > │ () │
00:08:49 verbose #48087 > │ │
00:08:49 verbose #48088 > │ │
00:08:49 verbose #48089 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 verbose #48090 >
00:08:49 verbose #48091 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:49 verbose #48092 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:49 verbose #48093 > │ ## ops_deref │
00:08:49 verbose #48094 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 verbose #48095 >
00:08:49 verbose #48096 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 verbose #48097 > inl ops_deref forall t. (ref : t) : t =
00:08:49 verbose #48098 > inl ref = join ref
00:08:49 verbose #48099 > !\($'"core::ops::Deref::deref(&!ref)"')
00:08:49 verbose #48100 > 00:08:48 debug #680 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/513d07bb7586d037a149f8828498c8ce26ce59011d10e3457e1703584b8ef61e/main.spi
00:08:49 verbose #48101 >
00:08:49 verbose #48102 > ╭─[ 242.94ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 verbose #48103 > │ () │
00:08:49 verbose #48104 > │ │
00:08:49 verbose #48105 > │ │
00:08:49 verbose #48106 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 verbose #48107 >
00:08:49 verbose #48108 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:49 verbose #48109 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:49 verbose #48110 > │ ## func0_get │
00:08:49 verbose #48111 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 verbose #48112 >
00:08:49 verbose #48113 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 verbose #48114 > inl func0_get forall t. (x : func0 t) : t =
00:08:49 verbose #48115 > inl x = join x
00:08:49 verbose #48116 > !\($'"!x()"')
00:08:49 verbose #48117 > 00:08:49 debug #681 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f796158ce4775765e5b608e9e07cb222179867e7bca3947d731436b4137b143b/main.spi
00:08:49 verbose #48118 >
00:08:49 verbose #48119 > ╭─[ 256.33ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 verbose #48120 > │ () │
00:08:49 verbose #48121 > │ │
00:08:49 verbose #48122 > │ │
00:08:49 verbose #48123 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 verbose #48124 >
00:08:49 verbose #48125 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:49 verbose #48126 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:49 verbose #48127 > │ ## func0_move │
00:08:49 verbose #48128 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 verbose #48129 >
00:08:49 verbose #48130 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 verbose #48131 > inl func0_move forall t. (fn : func0 t) : t =
00:08:49 verbose #48132 > inl fn = join fn
00:08:49 verbose #48133 > !\($'"(move || !fn())()"')
00:08:49 verbose #48134 > 00:08:49 debug #682 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/00d41fbbdd9110646d5ba885a5b6c6c10176f1d2e970a91fbe92495fce1bbd88/main.spi
00:08:49 verbose #48135 >
00:08:50 verbose #48136 > ╭─[ 240.78ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 verbose #48137 > │ () │
00:08:50 verbose #48138 > │ │
00:08:50 verbose #48139 > │ │
00:08:50 verbose #48140 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48141 >
00:08:50 verbose #48142 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:50 verbose #48143 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:50 verbose #48144 > │ ## move │
00:08:50 verbose #48145 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48146 >
00:08:50 verbose #48147 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #48148 > inl move forall t. (fn : () -> t) : func0 t =
00:08:50 verbose #48149 > !\\(fn, $'"Func0::new(move || $0())"')
00:08:50 verbose #48150 > 00:08:49 debug #683 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b1dfeda2261cc5fddd3bfd264ce6b5c882c941af58b400478ca0907302c83ba4/main.spi
00:08:50 verbose #48151 >
00:08:50 verbose #48152 > ╭─[ 239.77ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 verbose #48153 > │ () │
00:08:50 verbose #48154 > │ │
00:08:50 verbose #48155 > │ │
00:08:50 verbose #48156 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48157 >
00:08:50 verbose #48158 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:50 verbose #48159 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:50 verbose #48160 > │ ## to_static_ref_unbox │
00:08:50 verbose #48161 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48162 >
00:08:50 verbose #48163 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #48164 > inl to_static_ref_unbox forall t. (x : ref' t) : static_ref' t =
00:08:50 verbose #48165 > $"!x |> unbox"
00:08:50 verbose #48166 > 00:08:49 debug #684 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8b61ee4b2c1472fbd721a778c3b78146bcf15f85a3ca8845636839dd5d3464ca/main.spi
00:08:50 verbose #48167 >
00:08:50 verbose #48168 > ╭─[ 285.81ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 verbose #48169 > │ () │
00:08:50 verbose #48170 > │ │
00:08:50 verbose #48171 > │ │
00:08:50 verbose #48172 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48173 >
00:08:50 verbose #48174 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:50 verbose #48175 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:50 verbose #48176 > │ ## from_static_ref_unbox │
00:08:50 verbose #48177 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48178 >
00:08:50 verbose #48179 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #48180 > inl from_static_ref_unbox forall t. (x : static_ref' t) : ref' t =
00:08:50 verbose #48181 > $"!x |> unbox"
00:08:50 verbose #48182 > 00:08:50 debug #685 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8bbb457e6cc6b86314d788c1ae8818d5d581bb5ecaf7a3707fa40c95de58f38e/main.spi
00:08:50 verbose #48183 >
00:08:50 verbose #48184 > ╭─[ 248.49ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 verbose #48185 > │ () │
00:08:50 verbose #48186 > │ │
00:08:50 verbose #48187 > │ │
00:08:50 verbose #48188 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48189 >
00:08:50 verbose #48190 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:50 verbose #48191 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:50 verbose #48192 > │ ## box_leak │
00:08:50 verbose #48193 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #48194 >
00:08:50 verbose #48195 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #48196 > inl box_leak forall t. (x : box t) : static_ref' (mut' t) =
00:08:50 verbose #48197 > emit_expr () $"\"Box::leak(!x)\""
00:08:50 verbose #48198 > 00:08:50 debug #686 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f52230eda08de8f91785ba170e00fffd07979bf75ff625521f75f929e61113ec/main.spi
00:08:51 verbose #48199 >
00:08:51 verbose #48200 > ╭─[ 272.40ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 verbose #48201 > │ () │
00:08:51 verbose #48202 > │ │
00:08:51 verbose #48203 > │ │
00:08:51 verbose #48204 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 verbose #48205 >
00:08:51 verbose #48206 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:51 verbose #48207 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:51 verbose #48208 > │ ## fix_closure │
00:08:51 verbose #48209 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 verbose #48210 >
00:08:51 verbose #48211 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 verbose #48212 > inl fix_closure depth' x' =
00:08:51 verbose #48213 > inl depth = depth' |> fst
00:08:51 verbose #48214 > if depth = 1
00:08:51 verbose #48215 > then !\($'"!x' })"')
00:08:51 verbose #48216 > elif depth = 2
00:08:51 verbose #48217 > then !\($'"!x' }})"')
00:08:51 verbose #48218 > elif depth = 3
00:08:51 verbose #48219 > then !\($'"!x' }}})"')
00:08:51 verbose #48220 > elif depth = 4
00:08:51 verbose #48221 > then !\($'"!x' }}}})"')
00:08:51 verbose #48222 > elif depth = 5
00:08:51 verbose #48223 > then !\($'"!x' }}}}})"')
00:08:51 verbose #48224 > elif depth = 6 // , 4) // ?
00:08:51 verbose #48225 > then !\($'"!x' }}}}}})"')
00:08:51 verbose #48226 > elif depth = 7 // , 5) // 7
00:08:51 verbose #48227 > then !\($'"!x' }}}}}}})"')
00:08:51 verbose #48228 > elif depth = 8 // , 5) // 7
00:08:51 verbose #48229 > then !\($'"!x' }}}}}}}})"')
00:08:51 verbose #48230 >
00:08:51 verbose #48231 > inl depth = depth' |> snd
00:08:51 verbose #48232 > if depth = 1
00:08:51 verbose #48233 > then !\($'"{ //"')
00:08:51 verbose #48234 > elif depth = 2
00:08:51 verbose #48235 > then !\($'"{{ //"')
00:08:51 verbose #48236 > elif depth = 3
00:08:51 verbose #48237 > then !\($'"{{{ //"')
00:08:51 verbose #48238 > elif depth = 4
00:08:51 verbose #48239 > then !\($'"{{{{ //"')
00:08:51 verbose #48240 > elif depth = 5
00:08:51 verbose #48241 > then !\($'"{{{{{ //"')
00:08:51 verbose #48242 > elif depth = 6
00:08:51 verbose #48243 > then !\($'"{{{{{{ //"')
00:08:51 verbose #48244 > elif depth = 7
00:08:51 verbose #48245 > then !\($'"{{{{{{{ //"')
00:08:51 verbose #48246 > elif depth = 8
00:08:51 verbose #48247 > then !\($'"{{{{{{{{ //"')
00:08:51 verbose #48248 > 00:08:50 debug #687 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/496df90d2d55e2e3d453c04f617057c61803768022ccaf328d4b9ae75e792e6d/main.spi
00:08:51 verbose #48249 >
00:08:51 verbose #48250 > ╭─[ 243.65ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 verbose #48251 > │ () │
00:08:51 verbose #48252 > │ │
00:08:51 verbose #48253 > │ │
00:08:51 verbose #48254 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 verbose #48255 >
00:08:51 verbose #48256 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:51 verbose #48257 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:51 verbose #48258 > │ ## run_tests │
00:08:51 verbose #48259 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 verbose #48260 >
00:08:51 verbose #48261 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 verbose #48262 > inl run_tests tests =
00:08:51 verbose #48263 > (!\($'"true; () //"') : bool) |> ignore
00:08:51 verbose #48264 >
00:08:51 verbose #48265 > tests
00:08:51 verbose #48266 > |> listm.iter fun name, fn =>
00:08:51 verbose #48267 > !\($'"} /* /*"')
00:08:51 verbose #48268 > (!\($'$"*/ #[[test]] fn " + !name + "() { //"') : bool) |> ignore
00:08:51 verbose #48269 > fn name |> ignore
00:08:51 verbose #48270 >
00:08:51 verbose #48271 > tests
00:08:51 verbose #48272 > |> listm.iter fun name, fn =>
00:08:51 verbose #48273 > !\($'"{ //"') : ()
00:08:51 verbose #48274 > 00:08:50 debug #688 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/101314fcf7ca718cd734eb3968f0d56563702d1ce3b9af04fbcd507e92bdec56/main.spi
00:08:51 verbose #48275 >
00:08:51 verbose #48276 > ╭─[ 230.32ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 verbose #48277 > │ () │
00:08:51 verbose #48278 > │ │
00:08:51 verbose #48279 > │ │
00:08:51 verbose #48280 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:53 verbose #48281 > [NbConvertApp] Converting notebook rust.dib.ipynb to html
00:08:53 verbose #48282 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:53 verbose #48283 > validate(nb)
00:08:53 verbose #48284 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:08:53 verbose #48285 > return _pygments_highlight(
00:08:54 verbose #48286 > [NbConvertApp] Writing 350501 bytes to rust.dib.html
00:08:54 debug #48287 execute_with_options_async / exit_code: 0 / output.Length: 33462
00:08:54 debug #23 main / executeCommand / exitCode: 0
00:08:54 debug #48288 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 threading.dib -Retries 3"", None,
None)
00:08:55 verbose #48289 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: threading.dib / _args: [
00:08:55 verbose #48290 > "-Retries",
00:08:55 verbose #48291 > 3
00:08:55 verbose #48292 > ]
00:08:57 verbose #48293 >
00:08:57 verbose #48294 > ── markdown ────────────────────────────────────────────────────────────────────
00:08:57 verbose #48295 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:57 verbose #48296 > │ # threading │
00:08:57 verbose #48297 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 verbose #48298 >
00:08:57 verbose #48299 > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 verbose #48300 > open rust_operators
00:09:01 verbose #48301 > 00:09:00 debug #689 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/509422cf3bb8a8cfc4cbb3c916e280922525b9b9428a427906e968efadb5b7b1/main.spi
00:09:02 verbose #48302 >
00:09:02 verbose #48303 > ╭─[ 4.11s - stdout ]───────────────────────────────────────────────────────────╮
00:09:02 verbose #48304 > │ () │
00:09:02 verbose #48305 > │ │
00:09:02 verbose #48306 > │ │
00:09:02 verbose #48307 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48308 >
00:09:02 verbose #48309 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 verbose #48310 > // // test
00:09:02 verbose #48311 >
00:09:02 verbose #48312 > open testing
00:09:02 verbose #48313 > 00:09:01 debug #690 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/89a2ef849d6c3b2184af79b96248f5c4c02791c5063b63d0c53ad845fa512858/main.spi
00:09:02 verbose #48314 >
00:09:02 verbose #48315 > ╭─[ 255.86ms - stdout ]────────────────────────────────────────────────────────╮
00:09:02 verbose #48316 > │ () │
00:09:02 verbose #48317 > │ │
00:09:02 verbose #48318 > │ │
00:09:02 verbose #48319 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48320 >
00:09:02 verbose #48321 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:02 verbose #48322 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:02 verbose #48323 > │ ## cancellation_token │
00:09:02 verbose #48324 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48325 >
00:09:02 verbose #48326 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 verbose #48327 > nominal cancellation_token = $'System.Threading.CancellationToken'
00:09:02 verbose #48328 > 00:09:01 debug #691 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dba328444d6b1c1757943890c289012ca96897f809642a64c928b4531b269c8f/main.spi
00:09:02 verbose #48329 >
00:09:02 verbose #48330 > ╭─[ 238.84ms - stdout ]────────────────────────────────────────────────────────╮
00:09:02 verbose #48331 > │ () │
00:09:02 verbose #48332 > │ │
00:09:02 verbose #48333 > │ │
00:09:02 verbose #48334 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48335 >
00:09:02 verbose #48336 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:02 verbose #48337 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:02 verbose #48338 > │ ## cancellation_token_source │
00:09:02 verbose #48339 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48340 >
00:09:02 verbose #48341 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 verbose #48342 > nominal cancellation_token_source = $'System.Threading.CancellationTokenSource'
00:09:02 verbose #48343 > 00:09:02 debug #692 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3d834e50860772a255d3802702baf11f1e57ddfb04d0a5acdb00443556b6227c/main.spi
00:09:02 verbose #48344 >
00:09:02 verbose #48345 > ╭─[ 248.56ms - stdout ]────────────────────────────────────────────────────────╮
00:09:02 verbose #48346 > │ () │
00:09:02 verbose #48347 > │ │
00:09:02 verbose #48348 > │ │
00:09:02 verbose #48349 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48350 >
00:09:02 verbose #48351 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:02 verbose #48352 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:02 verbose #48353 > │ ## cancellation_token_registration │
00:09:02 verbose #48354 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #48355 >
00:09:02 verbose #48356 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 verbose #48357 > nominal cancellation_token_registration =
00:09:02 verbose #48358 > $'System.Threading.CancellationTokenRegistration'
00:09:02 verbose #48359 > 00:09:02 debug #693 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/78875a9f9bd6089e369c1f8c4f71f916f2ea82c7d1bda19c3f7c22b49f14958b/main.spi
00:09:03 verbose #48360 >
00:09:03 verbose #48361 > ╭─[ 273.90ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 verbose #48362 > │ () │
00:09:03 verbose #48363 > │ │
00:09:03 verbose #48364 > │ │
00:09:03 verbose #48365 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48366 >
00:09:03 verbose #48367 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 verbose #48368 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 verbose #48369 > │ ## cancellation_source_token │
00:09:03 verbose #48370 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48371 >
00:09:03 verbose #48372 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 verbose #48373 > inl cancellation_source_token (x : cancellation_token_source) :
00:09:03 verbose #48374 > cancellation_token =
00:09:03 verbose #48375 > $'!x.Token'
00:09:03 verbose #48376 > 00:09:02 debug #694 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5520c72b050958a2e7fb5304c329dcb7c9a792e4b85c3c06bcf8ba5b86ef59fe/main.spi
00:09:03 verbose #48377 >
00:09:03 verbose #48378 > ╭─[ 205.10ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 verbose #48379 > │ () │
00:09:03 verbose #48380 > │ │
00:09:03 verbose #48381 > │ │
00:09:03 verbose #48382 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48383 >
00:09:03 verbose #48384 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 verbose #48385 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 verbose #48386 > │ ## cancellation_source_cancel │
00:09:03 verbose #48387 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48388 >
00:09:03 verbose #48389 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 verbose #48390 > inl cancellation_source_cancel (x : cancellation_token_source) : () =
00:09:03 verbose #48391 > run_target function
00:09:03 verbose #48392 > | Fsharp (Native) => fun () =>
00:09:03 verbose #48393 > $'!x.Cancel' ()
00:09:03 verbose #48394 > | _ => fun () => null ()
00:09:03 verbose #48395 > 00:09:02 debug #695 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ef4451c9827e853714ee523a03ed082d5733079d3d95a393545b708afece4c08/main.spi
00:09:03 verbose #48396 >
00:09:03 verbose #48397 > ╭─[ 259.88ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 verbose #48398 > │ () │
00:09:03 verbose #48399 > │ │
00:09:03 verbose #48400 > │ │
00:09:03 verbose #48401 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48402 >
00:09:03 verbose #48403 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 verbose #48404 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 verbose #48405 > │ ## create_linked_token_source │
00:09:03 verbose #48406 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48407 >
00:09:03 verbose #48408 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 verbose #48409 > inl create_linked_token_source (x : array_base cancellation_token) :
00:09:03 verbose #48410 > cancellation_token_source =
00:09:03 verbose #48411 > x |> $'System.Threading.CancellationTokenSource.CreateLinkedTokenSource'
00:09:03 verbose #48412 > 00:09:03 debug #696 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/afe06d91c3b441f94129eac4de2e432b435ee8f63f6b8bcdf4bd76d0778cd92f/main.spi
00:09:03 verbose #48413 >
00:09:03 verbose #48414 > ╭─[ 330.33ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 verbose #48415 > │ () │
00:09:03 verbose #48416 > │ │
00:09:03 verbose #48417 > │ │
00:09:03 verbose #48418 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48419 >
00:09:03 verbose #48420 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 verbose #48421 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 verbose #48422 > │ ## sleep │
00:09:03 verbose #48423 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #48424 >
00:09:03 verbose #48425 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 verbose #48426 > inl sleep (duration : date_time.duration) : () =
00:09:03 verbose #48427 > inl duration = join duration
00:09:03 verbose #48428 > !\($'"std::thread::sleep(!duration)"')
00:09:04 verbose #48429 > 00:09:03 debug #697 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b0e2900c34b348a61db9e6ee93be0edf98a93077392266acf1e39c50b727edcc/main.spi
00:09:04 verbose #48430 >
00:09:04 verbose #48431 > ╭─[ 260.60ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 verbose #48432 > │ () │
00:09:04 verbose #48433 > │ │
00:09:04 verbose #48434 > │ │
00:09:04 verbose #48435 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48436 >
00:09:04 verbose #48437 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 verbose #48438 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 verbose #48439 > │ ## concurrent_stack │
00:09:04 verbose #48440 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48441 >
00:09:04 verbose #48442 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 verbose #48443 > nominal concurrent_stack t =
00:09:04 verbose #48444 > $'System.Collections.Concurrent.ConcurrentStack<`t>'
00:09:04 verbose #48445 > 00:09:03 debug #698 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9dd911c93e03f4ef8c59a8ed9a8759cfa1be224f5b76899e74f42709f5ae974d/main.spi
00:09:04 verbose #48446 >
00:09:04 verbose #48447 > ╭─[ 258.84ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 verbose #48448 > │ () │
00:09:04 verbose #48449 > │ │
00:09:04 verbose #48450 > │ │
00:09:04 verbose #48451 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48452 >
00:09:04 verbose #48453 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 verbose #48454 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 verbose #48455 > │ ## concurrent_stack_push │
00:09:04 verbose #48456 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48457 >
00:09:04 verbose #48458 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 verbose #48459 > inl concurrent_stack_push forall t. (item : t) (stack : concurrent_stack t) : ()
00:09:04 verbose #48460 > =
00:09:04 verbose #48461 > $'!stack.Push' item
00:09:04 verbose #48462 > 00:09:03 debug #699 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7e7fb9d3733891263f06979759b4512a04e8919d88f3c247c93d1324b8651e0d/main.spi
00:09:04 verbose #48463 >
00:09:04 verbose #48464 > ╭─[ 257.22ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 verbose #48465 > │ () │
00:09:04 verbose #48466 > │ │
00:09:04 verbose #48467 > │ │
00:09:04 verbose #48468 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48469 >
00:09:04 verbose #48470 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 verbose #48471 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 verbose #48472 > │ ## token_none │
00:09:04 verbose #48473 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48474 >
00:09:04 verbose #48475 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 verbose #48476 > inl token_none () : cancellation_token =
00:09:04 verbose #48477 > $'`cancellation_token.None'
00:09:04 verbose #48478 > 00:09:04 debug #700 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/76e30513a36b989af8c2a54acb825b9818973e29de2ba6a6beff47e41fdfd8b1/main.spi
00:09:04 verbose #48479 >
00:09:04 verbose #48480 > ╭─[ 220.20ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 verbose #48481 > │ () │
00:09:04 verbose #48482 > │ │
00:09:04 verbose #48483 > │ │
00:09:04 verbose #48484 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48485 >
00:09:04 verbose #48486 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 verbose #48487 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 verbose #48488 > │ ## new_concurrent_stack │
00:09:04 verbose #48489 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #48490 >
00:09:04 verbose #48491 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 verbose #48492 > inl new_concurrent_stack forall t. () : concurrent_stack t =
00:09:04 verbose #48493 > $'System.Collections.Concurrent.ConcurrentStack<`t>' ()
00:09:05 verbose #48494 > 00:09:04 debug #701 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9823d00c21b9e0fa3be21b69a6b94843b2cfb8e8f5951c0ba865f17fa587dcfd/main.spi
00:09:05 verbose #48495 >
00:09:05 verbose #48496 > ╭─[ 222.25ms - stdout ]────────────────────────────────────────────────────────╮
00:09:05 verbose #48497 > │ () │
00:09:05 verbose #48498 > │ │
00:09:05 verbose #48499 > │ │
00:09:05 verbose #48500 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48501 >
00:09:05 verbose #48502 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:05 verbose #48503 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:05 verbose #48504 > │ ## token_register │
00:09:05 verbose #48505 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48506 >
00:09:05 verbose #48507 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #48508 > inl token_register (fn : () -> ()) (ct : cancellation_token) :
00:09:05 verbose #48509 > cancellation_token_registration =
00:09:05 verbose #48510 > fn |> $'!ct.Register'
00:09:05 verbose #48511 > 00:09:04 debug #702 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d20387528d53636729d4bf5e43eec87b0861417de044bcbe708bf16b0a111632/main.spi
00:09:05 verbose #48512 >
00:09:05 verbose #48513 > ╭─[ 219.52ms - stdout ]────────────────────────────────────────────────────────╮
00:09:05 verbose #48514 > │ () │
00:09:05 verbose #48515 > │ │
00:09:05 verbose #48516 > │ │
00:09:05 verbose #48517 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48518 >
00:09:05 verbose #48519 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:05 verbose #48520 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:05 verbose #48521 > │ ## new_cancellation_token_source │
00:09:05 verbose #48522 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48523 >
00:09:05 verbose #48524 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #48525 > inl new_cancellation_token_source () : cancellation_token_source =
00:09:05 verbose #48526 > $'new `cancellation_token_source ()'
00:09:05 verbose #48527 > 00:09:04 debug #703 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1adb241ddf9aabb894d82985d2ff9d05adc11f125b8b5df095e6018ed86fd1c8/main.spi
00:09:05 verbose #48528 >
00:09:05 verbose #48529 > ╭─[ 231.10ms - stdout ]────────────────────────────────────────────────────────╮
00:09:05 verbose #48530 > │ () │
00:09:05 verbose #48531 > │ │
00:09:05 verbose #48532 > │ │
00:09:05 verbose #48533 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48534 >
00:09:05 verbose #48535 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #48536 > inl token_cancellation_requested (ct : cancellation_token) : bool =
00:09:05 verbose #48537 > $'!ct.IsCancellationRequested'
00:09:05 verbose #48538 > 00:09:05 debug #704 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/63b93b445c84cc8d9cddba468eab9fbec75e79bf21e0ab79c352a2b770535089/main.spi
00:09:05 verbose #48539 >
00:09:05 verbose #48540 > ╭─[ 257.35ms - stdout ]────────────────────────────────────────────────────────╮
00:09:05 verbose #48541 > │ () │
00:09:05 verbose #48542 > │ │
00:09:05 verbose #48543 > │ │
00:09:05 verbose #48544 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48545 >
00:09:05 verbose #48546 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:05 verbose #48547 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:05 verbose #48548 > │ ## new_disposable_token │
00:09:05 verbose #48549 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #48550 >
00:09:05 verbose #48551 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #48552 > inl new_disposable_token (merge_token : optionm'.option' cancellation_token) =
00:09:05 verbose #48553 > run_target function
00:09:05 verbose #48554 > | Fsharp (Native) => fun () =>
00:09:05 verbose #48555 > inl cts = new_cancellation_token_source ()
00:09:05 verbose #48556 > inl cts =
00:09:05 verbose #48557 > match merge_token |> optionm'.unbox with
00:09:05 verbose #48558 > | None => cts
00:09:05 verbose #48559 > | Some merge_token =>
00:09:05 verbose #48560 > create_linked_token_source ;[[ cts |>
00:09:05 verbose #48561 > cancellation_source_token; merge_token ]]
00:09:05 verbose #48562 > inl disposable : _ () = new_disposable fun () =>
00:09:05 verbose #48563 > cts |> cancellation_source_cancel
00:09:05 verbose #48564 > cts |> cancellation_source_token, disposable
00:09:05 verbose #48565 > | _ => fun () => null ()
00:09:05 verbose #48566 > 00:09:05 debug #705 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2981b830a04017ede914e8f18612bc2b982580d8c6504360b267ae87f30cc72a/main.spi
00:09:06 verbose #48567 >
00:09:06 verbose #48568 > ╭─[ 219.34ms - stdout ]────────────────────────────────────────────────────────╮
00:09:06 verbose #48569 > │ () │
00:09:06 verbose #48570 > │ │
00:09:06 verbose #48571 > │ │
00:09:06 verbose #48572 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 verbose #48573 >
00:09:06 verbose #48574 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:06 verbose #48575 > // // test
00:09:06 verbose #48576 >
00:09:06 verbose #48577 > inl run fn =
00:09:06 verbose #48578 > inl token, disposable = new_disposable_token (None |> optionm'.box)
00:09:06 verbose #48579 > disposable |> use |> ignore
00:09:06 verbose #48580 > fn token
00:09:06 verbose #48581 > fun () =>
00:09:06 verbose #48582 > fn token
00:09:06 verbose #48583 > |> async.new_async
00:09:06 verbose #48584 > |> async.start
00:09:06 verbose #48585 >
00:09:06 verbose #48586 > fun () =>
00:09:06 verbose #48587 > inl counter = mut 0i32
00:09:06 verbose #48588 >
00:09:06 verbose #48589 > inl fn (token : cancellation_token) =
00:09:06 verbose #48590 > counter <- *counter + (if token |> token_cancellation_requested then 10
00:09:06 verbose #48591 > else 1)
00:09:06 verbose #48592 >
00:09:06 verbose #48593 > join run fn
00:09:06 verbose #48594 > async.sleep 10 |> async.do
00:09:06 verbose #48595 > return *counter
00:09:06 verbose #48596 > |> async.new_async_unit
00:09:06 verbose #48597 > |> async.run_synchronously
00:09:06 verbose #48598 > |> _assert_eq 11i32
00:09:06 verbose #48599 > 00:09:05 debug #706 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3cee36c37bdfc8bcb78c9c19ea7e57503d3ea6cd2af69ae9e69ce6ff2522757a/main.spi
00:09:07 verbose #48600 >
00:09:07 verbose #48601 > ╭─[ 1.83s - stdout ]───────────────────────────────────────────────────────────╮
00:09:07 verbose #48602 > │ type Mut0 = {mutable l0 : int32} │
00:09:07 verbose #48603 > │ and [<Struct>] US0 = │
00:09:07 verbose #48604 > │ | US0_0 of f0_0 : System.Threading.CancellationToken │
00:09:07 verbose #48605 > │ | US0_1 │
00:09:07 verbose #48606 > │ let rec closure0 () (v0 : System.Threading.CancellationToken) : US0 = │
00:09:07 verbose #48607 > │ US0_0(v0) │
00:09:07 verbose #48608 > │ and method2 () : (System.Threading.CancellationToken -> US0) = │
00:09:07 verbose #48609 > │ closure0() │
00:09:07 verbose #48610 > │ and closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = │
00:09:07 verbose #48611 > │ let v1 : unit option = None │
00:09:07 verbose #48612 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:09:07 verbose #48613 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48614 > │ null |> unbox<unit> │
00:09:07 verbose #48615 > │ () │
00:09:07 verbose #48616 > │ #endif │
00:09:07 verbose #48617 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48618 > │ null |> unbox<unit> │
00:09:07 verbose #48619 > │ () │
00:09:07 verbose #48620 > │ #endif │
00:09:07 verbose #48621 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48622 > │ null |> unbox<unit> │
00:09:07 verbose #48623 > │ () │
00:09:07 verbose #48624 > │ #endif │
00:09:07 verbose #48625 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48626 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48627 > │ let v3 : (unit -> unit) = v0.Cancel │
00:09:07 verbose #48628 > │ v3 () │
00:09:07 verbose #48629 > │ () │
00:09:07 verbose #48630 > │ #endif │
00:09:07 verbose #48631 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48632 > │ null |> unbox<unit> │
00:09:07 verbose #48633 > │ () │
00:09:07 verbose #48634 > │ #endif │
00:09:07 verbose #48635 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48636 > │ Unchecked.defaultof<unit> │
00:09:07 verbose #48637 > │ () │
00:09:07 verbose #48638 > │ #endif │
00:09:07 verbose #48639 > │ |> fun x -> _v1 <- Some x │
00:09:07 verbose #48640 > │ _v1.Value │
00:09:07 verbose #48641 > │ () │
00:09:07 verbose #48642 > │ and method1 (v0 : Mut0) : unit = │
00:09:07 verbose #48643 > │ let v1 : System.Threading.CancellationToken option = None │
00:09:07 verbose #48644 > │ let v2 : struct (System.Threading.CancellationToken * │
00:09:07 verbose #48645 > │ System.IDisposable) option = None │
00:09:07 verbose #48646 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:07 verbose #48647 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48648 > │ let struct (v4 : System.Threading.CancellationToken, v5 : │
00:09:07 verbose #48649 > │ System.IDisposable) = null |> unbox<struct │
00:09:07 verbose #48650 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:07 verbose #48651 > │ struct (v4, v5) │
00:09:07 verbose #48652 > │ #endif │
00:09:07 verbose #48653 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48654 > │ let struct (v6 : System.Threading.CancellationToken, v7 : │
00:09:07 verbose #48655 > │ System.IDisposable) = null |> unbox<struct │
00:09:07 verbose #48656 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:07 verbose #48657 > │ struct (v6, v7) │
00:09:07 verbose #48658 > │ #endif │
00:09:07 verbose #48659 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48660 > │ let struct (v8 : System.Threading.CancellationToken, v9 : │
00:09:07 verbose #48661 > │ System.IDisposable) = null |> unbox<struct │
00:09:07 verbose #48662 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:07 verbose #48663 > │ struct (v8, v9) │
00:09:07 verbose #48664 > │ #endif │
00:09:07 verbose #48665 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48666 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48667 > │ let v10 : System.Threading.CancellationTokenSource = new │
00:09:07 verbose #48668 > │ System.Threading.CancellationTokenSource () │
00:09:07 verbose #48669 > │ let v11 : (System.Threading.CancellationToken -> US0) = method2() │
00:09:07 verbose #48670 > │ let v12 : US0 = US0_1 │
00:09:07 verbose #48671 > │ let v13 : US0 = v1 |> Option.map v11 |> Option.defaultValue v12 │
00:09:07 verbose #48672 > │ let v20 : System.Threading.CancellationTokenSource = │
00:09:07 verbose #48673 > │ match v13 with │
00:09:07 verbose #48674 > │ | US0_1 -> (* None *) │
00:09:07 verbose #48675 > │ v10 │
00:09:07 verbose #48676 > │ | US0_0(v14) -> (* Some *) │
00:09:07 verbose #48677 > │ let v15 : System.Threading.CancellationToken = v10.Token │
00:09:07 verbose #48678 > │ let v16 : (System.Threading.CancellationToken []) = [|v15; v14|] │
00:09:07 verbose #48679 > │ let v17 : ((System.Threading.CancellationToken []) -> │
00:09:07 verbose #48680 > │ System.Threading.CancellationTokenSource) = │
00:09:07 verbose #48681 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:09:07 verbose #48682 > │ v17 v16 │
00:09:07 verbose #48683 > │ let v21 : System.IDisposable option = None │
00:09:07 verbose #48684 > │ let v22 : bool = true in let mutable _v21 = v21 │
00:09:07 verbose #48685 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48686 > │ let v23 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:07 verbose #48687 > │ v23 │
00:09:07 verbose #48688 > │ #endif │
00:09:07 verbose #48689 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48690 > │ let v24 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:07 verbose #48691 > │ v24 │
00:09:07 verbose #48692 > │ #endif │
00:09:07 verbose #48693 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48694 > │ let v25 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:07 verbose #48695 > │ v25 │
00:09:07 verbose #48696 > │ #endif │
00:09:07 verbose #48697 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48698 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48699 > │ let v26 : (unit -> unit) = closure1(v20) │
00:09:07 verbose #48700 > │ let v27 : System.IDisposable = { new System.IDisposable with member │
00:09:07 verbose #48701 > │ _.Dispose () = v26 () } │
00:09:07 verbose #48702 > │ v27 │
00:09:07 verbose #48703 > │ #endif │
00:09:07 verbose #48704 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48705 > │ let v28 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:07 verbose #48706 > │ v28 │
00:09:07 verbose #48707 > │ #endif │
00:09:07 verbose #48708 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48709 > │ let v29 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:09:07 verbose #48710 > │ v29 │
00:09:07 verbose #48711 > │ #endif │
00:09:07 verbose #48712 > │ |> fun x -> _v21 <- Some x │
00:09:07 verbose #48713 > │ let v30 : System.IDisposable = _v21.Value │
00:09:07 verbose #48714 > │ let v31 : System.Threading.CancellationToken = v20.Token │
00:09:07 verbose #48715 > │ struct (v31, v30) │
00:09:07 verbose #48716 > │ #endif │
00:09:07 verbose #48717 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48718 > │ let struct (v32 : System.Threading.CancellationToken, v33 : │
00:09:07 verbose #48719 > │ System.IDisposable) = null |> unbox<struct │
00:09:07 verbose #48720 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:07 verbose #48721 > │ struct (v32, v33) │
00:09:07 verbose #48722 > │ #endif │
00:09:07 verbose #48723 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48724 > │ let struct (v34 : System.Threading.CancellationToken, v35 : │
00:09:07 verbose #48725 > │ System.IDisposable) = Unchecked.defaultof<struct │
00:09:07 verbose #48726 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:07 verbose #48727 > │ struct (v34, v35) │
00:09:07 verbose #48728 > │ #endif │
00:09:07 verbose #48729 > │ |> fun x -> _v2 <- Some x │
00:09:07 verbose #48730 > │ let struct (v36 : System.Threading.CancellationToken, v37 : │
00:09:07 verbose #48731 > │ System.IDisposable) = _v2.Value │
00:09:07 verbose #48732 > │ use v37 = v37 │
00:09:07 verbose #48733 > │ let v38 : System.IDisposable = v37 │
00:09:07 verbose #48734 > │ let v39 : int32 = v0.l0 │
00:09:07 verbose #48735 > │ let v40 : bool = v36.IsCancellationRequested │
00:09:07 verbose #48736 > │ let v41 : int32 = │
00:09:07 verbose #48737 > │ if v40 then │
00:09:07 verbose #48738 > │ 10 │
00:09:07 verbose #48739 > │ else │
00:09:07 verbose #48740 > │ 1 │
00:09:07 verbose #48741 > │ let v42 : int32 = v39 + v41 │
00:09:07 verbose #48742 > │ v0.l0 <- v42 │
00:09:07 verbose #48743 > │ let v43 : Async<unit> option = None │
00:09:07 verbose #48744 > │ let v44 : bool = true in let mutable _v43 = v43 │
00:09:07 verbose #48745 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48746 > │ let v45 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48747 > │ v45 │
00:09:07 verbose #48748 > │ #endif │
00:09:07 verbose #48749 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48750 > │ let v46 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48751 > │ v46 │
00:09:07 verbose #48752 > │ #endif │
00:09:07 verbose #48753 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48754 > │ let v47 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48755 > │ v47 │
00:09:07 verbose #48756 > │ #endif │
00:09:07 verbose #48757 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48758 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48759 > │ let v48 : Async<unit> option = None │
00:09:07 verbose #48760 > │ let mutable _v48 = v48 │
00:09:07 verbose #48761 > │ async { │
00:09:07 verbose #48762 > │ let v49 : int32 = v0.l0 │
00:09:07 verbose #48763 > │ let v50 : bool = v36.IsCancellationRequested │
00:09:07 verbose #48764 > │ let v51 : int32 = │
00:09:07 verbose #48765 > │ if v50 then │
00:09:07 verbose #48766 > │ 10 │
00:09:07 verbose #48767 > │ else │
00:09:07 verbose #48768 > │ 1 │
00:09:07 verbose #48769 > │ let v52 : int32 = v49 + v51 │
00:09:07 verbose #48770 > │ v0.l0 <- v52 │
00:09:07 verbose #48771 > │ } │
00:09:07 verbose #48772 > │ |> fun x -> _v48 <- Some x │
00:09:07 verbose #48773 > │ let v53 : Async<unit> = _v48 |> Option.get │
00:09:07 verbose #48774 > │ v53 │
00:09:07 verbose #48775 > │ #endif │
00:09:07 verbose #48776 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48777 > │ let v54 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48778 > │ v54 │
00:09:07 verbose #48779 > │ #endif │
00:09:07 verbose #48780 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48781 > │ let v55 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:07 verbose #48782 > │ v55 │
00:09:07 verbose #48783 > │ #endif │
00:09:07 verbose #48784 > │ |> fun x -> _v43 <- Some x │
00:09:07 verbose #48785 > │ let v56 : Async<unit> = _v43.Value │
00:09:07 verbose #48786 > │ let v57 : unit option = None │
00:09:07 verbose #48787 > │ let v58 : bool = true in let mutable _v57 = v57 │
00:09:07 verbose #48788 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48789 > │ null |> unbox<unit> │
00:09:07 verbose #48790 > │ () │
00:09:07 verbose #48791 > │ #endif │
00:09:07 verbose #48792 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48793 > │ null |> unbox<unit> │
00:09:07 verbose #48794 > │ () │
00:09:07 verbose #48795 > │ #endif │
00:09:07 verbose #48796 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48797 > │ null |> unbox<unit> │
00:09:07 verbose #48798 > │ () │
00:09:07 verbose #48799 > │ #endif │
00:09:07 verbose #48800 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48801 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48802 > │ let v59 : (Async<unit> -> unit) = Async.Start │
00:09:07 verbose #48803 > │ v59 v56 │
00:09:07 verbose #48804 > │ () │
00:09:07 verbose #48805 > │ #endif │
00:09:07 verbose #48806 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48807 > │ null |> unbox<unit> │
00:09:07 verbose #48808 > │ () │
00:09:07 verbose #48809 > │ #endif │
00:09:07 verbose #48810 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48811 > │ Unchecked.defaultof<unit> │
00:09:07 verbose #48812 > │ () │
00:09:07 verbose #48813 > │ #endif │
00:09:07 verbose #48814 > │ |> fun x -> _v57 <- Some x │
00:09:07 verbose #48815 > │ _v57.Value │
00:09:07 verbose #48816 > │ () │
00:09:07 verbose #48817 > │ and method3 (v0 : bool) : bool = │
00:09:07 verbose #48818 > │ v0 │
00:09:07 verbose #48819 > │ and method0 () : unit = │
00:09:07 verbose #48820 > │ let v0 : Async<int32> option = None │
00:09:07 verbose #48821 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:07 verbose #48822 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48823 > │ let v2 : Async<int32> = null |> unbox<Async<int32>> │
00:09:07 verbose #48824 > │ v2 │
00:09:07 verbose #48825 > │ #endif │
00:09:07 verbose #48826 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48827 > │ let v3 : Async<int32> = null |> unbox<Async<int32>> │
00:09:07 verbose #48828 > │ v3 │
00:09:07 verbose #48829 > │ #endif │
00:09:07 verbose #48830 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48831 > │ let v4 : Async<int32> = null |> unbox<Async<int32>> │
00:09:07 verbose #48832 > │ v4 │
00:09:07 verbose #48833 > │ #endif │
00:09:07 verbose #48834 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48835 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48836 > │ let v5 : Async<int32> option = None │
00:09:07 verbose #48837 > │ let mutable _v5 = v5 │
00:09:07 verbose #48838 > │ async { │
00:09:07 verbose #48839 > │ let v6 : Mut0 = {l0 = 0} : Mut0 │
00:09:07 verbose #48840 > │ method1(v6) │
00:09:07 verbose #48841 > │ let v7 : Async<unit> option = None │
00:09:07 verbose #48842 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:07 verbose #48843 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:07 verbose #48844 > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48845 > │ v9 │
00:09:07 verbose #48846 > │ #endif │
00:09:07 verbose #48847 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:07 verbose #48848 > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48849 > │ v10 │
00:09:07 verbose #48850 > │ #endif │
00:09:07 verbose #48851 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:07 verbose #48852 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48853 > │ v11 │
00:09:07 verbose #48854 > │ #endif │
00:09:07 verbose #48855 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:07 verbose #48856 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:07 verbose #48857 > │ let v12 : (int32 -> Async<unit>) = Async.Sleep │
00:09:07 verbose #48858 > │ let v13 : Async<unit> = v12 10 │
00:09:07 verbose #48859 > │ v13 │
00:09:07 verbose #48860 > │ #endif │
00:09:07 verbose #48861 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48862 > │ let v14 : Async<unit> = null |> unbox<Async<unit>> │
00:09:07 verbose #48863 > │ v14 │
00:09:07 verbose #48864 > │ #endif │
00:09:07 verbose #48865 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48866 > │ let v15 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:07 verbose #48867 > │ v15 │
00:09:07 verbose #48868 > │ #endif │
00:09:07 verbose #48869 > │ |> fun x -> _v7 <- Some x │
00:09:07 verbose #48870 > │ let v16 : Async<unit> = _v7.Value │
00:09:07 verbose #48871 > │ do! v16 │
00:09:07 verbose #48872 > │ let v17 : int32 = v6.l0 │
00:09:07 verbose #48873 > │ return v17 │
00:09:07 verbose #48874 > │ } │
00:09:07 verbose #48875 > │ |> fun x -> _v5 <- Some x │
00:09:07 verbose #48876 > │ let v18 : Async<int32> = _v5 |> Option.get │
00:09:07 verbose #48877 > │ v18 │
00:09:07 verbose #48878 > │ #endif │
00:09:07 verbose #48879 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:07 verbose #48880 > │ let v19 : Async<int32> = null |> unbox<Async<int32>> │
00:09:07 verbose #48881 > │ v19 │
00:09:07 verbose #48882 > │ #endif │
00:09:07 verbose #48883 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:07 verbose #48884 > │ let v20 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:09:07 verbose #48885 > │ v20 │
00:09:07 verbose #48886 > │ #endif │
00:09:07 verbose #48887 > │ |> fun x -> _v0 <- Some x │
00:09:07 verbose #48888 > │ let v21 : Async<int32> = _v0.Value │
00:09:08 verbose #48889 > │ let v22 : int32 option = None │
00:09:08 verbose #48890 > │ let v23 : bool = true in let mutable _v22 = v22 │
00:09:08 verbose #48891 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:08 verbose #48892 > │ let v24 : int32 = null |> unbox<int32> │
00:09:08 verbose #48893 > │ v24 │
00:09:08 verbose #48894 > │ #endif │
00:09:08 verbose #48895 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:08 verbose #48896 > │ let v25 : int32 = null |> unbox<int32> │
00:09:08 verbose #48897 > │ v25 │
00:09:08 verbose #48898 > │ #endif │
00:09:08 verbose #48899 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:08 verbose #48900 > │ let v26 : int32 = null |> unbox<int32> │
00:09:08 verbose #48901 > │ v26 │
00:09:08 verbose #48902 > │ #endif │
00:09:08 verbose #48903 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:08 verbose #48904 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:08 verbose #48905 > │ let v27 : (Async<int32> -> int32) = Async.RunSynchronously │
00:09:08 verbose #48906 > │ let v28 : int32 = v27 v21 │
00:09:08 verbose #48907 > │ v28 │
00:09:08 verbose #48908 > │ #endif │
00:09:08 verbose #48909 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:08 verbose #48910 > │ let v29 : int32 = null |> unbox<int32> │
00:09:08 verbose #48911 > │ v29 │
00:09:08 verbose #48912 > │ #endif │
00:09:08 verbose #48913 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:08 verbose #48914 > │ let v30 : int32 = Unchecked.defaultof<int32> │
00:09:08 verbose #48915 > │ v30 │
00:09:08 verbose #48916 > │ #endif │
00:09:08 verbose #48917 > │ |> fun x -> _v22 <- Some x │
00:09:08 verbose #48918 > │ let v31 : int32 = _v22.Value │
00:09:08 verbose #48919 > │ let v32 : string = $"%A{v31}" │
00:09:08 verbose #48920 > │ System.Console.WriteLine v32 │
00:09:08 verbose #48921 > │ let v33 : bool = v31 = 11 │
00:09:08 verbose #48922 > │ let v35 : bool = │
00:09:08 verbose #48923 > │ if v33 then │
00:09:08 verbose #48924 > │ true │
00:09:08 verbose #48925 > │ else │
00:09:08 verbose #48926 > │ method3(v33) │
00:09:08 verbose #48927 > │ let v36 : string = $"__expect / actual: %A{v31} / expected: %A{11}" │
00:09:08 verbose #48928 > │ let v37 : bool = v35 = false │
00:09:08 verbose #48929 > │ if v37 then │
00:09:08 verbose #48930 > │ failwith<unit> v36 │
00:09:08 verbose #48931 > │ method0() │
00:09:08 verbose #48932 > │ │
00:09:08 verbose #48933 > │ 11 │
00:09:08 verbose #48934 > │ │
00:09:08 verbose #48935 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:08 verbose #48936 >
00:09:08 verbose #48937 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:08 verbose #48938 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:08 verbose #48939 > │ ## main │
00:09:08 verbose #48940 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:08 verbose #48941 >
00:09:08 verbose #48942 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:08 verbose #48943 > inl main () =
00:09:08 verbose #48944 > $"let new_disposable_token x = !new_disposable_token x" : ()
00:09:08 verbose #48945 > 00:09:07 debug #707 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eb4d7dc628aba1f603d0d35169cf0ab0f388e425764efa4e272df6400cf01020/main.spi
00:09:08 verbose #48946 >
00:09:08 verbose #48947 > ╭─[ 309.96ms - stdout ]────────────────────────────────────────────────────────╮
00:09:08 verbose #48948 > │ type [<Struct>] US0 = │
00:09:08 verbose #48949 > │ | US0_0 of f0_0 : System.Threading.CancellationToken │
00:09:08 verbose #48950 > │ | US0_1 │
00:09:08 verbose #48951 > │ let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 = │
00:09:08 verbose #48952 > │ US0_0(v0) │
00:09:08 verbose #48953 > │ and method0 () : (System.Threading.CancellationToken -> US0) = │
00:09:08 verbose #48954 > │ closure1() │
00:09:08 verbose #48955 > │ and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit = │
00:09:08 verbose #48956 > │ let v1 : unit option = None │
00:09:08 verbose #48957 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:09:08 verbose #48958 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:08 verbose #48959 > │ null |> unbox<unit> │
00:09:08 verbose #48960 > │ () │
00:09:08 verbose #48961 > │ #endif │
00:09:08 verbose #48962 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:08 verbose #48963 > │ null |> unbox<unit> │
00:09:08 verbose #48964 > │ () │
00:09:08 verbose #48965 > │ #endif │
00:09:08 verbose #48966 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:08 verbose #48967 > │ null |> unbox<unit> │
00:09:08 verbose #48968 > │ () │
00:09:08 verbose #48969 > │ #endif │
00:09:08 verbose #48970 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:08 verbose #48971 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:08 verbose #48972 > │ let v3 : (unit -> unit) = v0.Cancel │
00:09:08 verbose #48973 > │ v3 () │
00:09:08 verbose #48974 > │ () │
00:09:08 verbose #48975 > │ #endif │
00:09:08 verbose #48976 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:08 verbose #48977 > │ null |> unbox<unit> │
00:09:08 verbose #48978 > │ () │
00:09:08 verbose #48979 > │ #endif │
00:09:08 verbose #48980 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:08 verbose #48981 > │ Unchecked.defaultof<unit> │
00:09:08 verbose #48982 > │ () │
00:09:08 verbose #48983 > │ #endif │
00:09:08 verbose #48984 > │ |> fun x -> _v1 <- Some x │
00:09:08 verbose #48985 > │ _v1.Value │
00:09:08 verbose #48986 > │ () │
00:09:08 verbose #48987 > │ and closure0 () (v0 : System.Threading.CancellationToken option) : struct │
00:09:08 verbose #48988 > │ (System.Threading.CancellationToken * System.IDisposable) = │
00:09:08 verbose #48989 > │ let v1 : struct (System.Threading.CancellationToken * │
00:09:08 verbose #48990 > │ System.IDisposable) option = None │
00:09:08 verbose #48991 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:09:08 verbose #48992 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:08 verbose #48993 > │ let struct (v3 : System.Threading.CancellationToken, v4 : │
00:09:08 verbose #48994 > │ System.IDisposable) = null |> unbox<struct │
00:09:08 verbose #48995 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:08 verbose #48996 > │ struct (v3, v4) │
00:09:08 verbose #48997 > │ #endif │
00:09:08 verbose #48998 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:08 verbose #48999 > │ let struct (v5 : System.Threading.CancellationToken, v6 : │
00:09:08 verbose #49000 > │ System.IDisposable) = null |> unbox<struct │
00:09:08 verbose #49001 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:08 verbose #49002 > │ struct (v5, v6) │
00:09:08 verbose #49003 > │ #endif │
00:09:08 verbose #49004 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:08 verbose #49005 > │ let struct (v7 : System.Threading.CancellationToken, v8 : │
00:09:08 verbose #49006 > │ System.IDisposable) = null |> unbox<struct │
00:09:08 verbose #49007 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:08 verbose #49008 > │ struct (v7, v8) │
00:09:08 verbose #49009 > │ #endif │
00:09:08 verbose #49010 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:08 verbose #49011 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:08 verbose #49012 > │ let v9 : System.Threading.CancellationTokenSource = new │
00:09:08 verbose #49013 > │ System.Threading.CancellationTokenSource () │
00:09:08 verbose #49014 > │ let v10 : (System.Threading.CancellationToken -> US0) = method0() │
00:09:08 verbose #49015 > │ let v11 : US0 = US0_1 │
00:09:08 verbose #49016 > │ let v12 : US0 = v0 |> Option.map v10 |> Option.defaultValue v11 │
00:09:08 verbose #49017 > │ let v19 : System.Threading.CancellationTokenSource = │
00:09:08 verbose #49018 > │ match v12 with │
00:09:08 verbose #49019 > │ | US0_1 -> (* None *) │
00:09:08 verbose #49020 > │ v9 │
00:09:08 verbose #49021 > │ | US0_0(v13) -> (* Some *) │
00:09:08 verbose #49022 > │ let v14 : System.Threading.CancellationToken = v9.Token │
00:09:08 verbose #49023 > │ let v15 : (System.Threading.CancellationToken []) = [|v14; v13|] │
00:09:08 verbose #49024 > │ let v16 : ((System.Threading.CancellationToken []) -> │
00:09:08 verbose #49025 > │ System.Threading.CancellationTokenSource) = │
00:09:08 verbose #49026 > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:09:08 verbose #49027 > │ v16 v15 │
00:09:08 verbose #49028 > │ let v20 : System.IDisposable option = None │
00:09:08 verbose #49029 > │ let v21 : bool = true in let mutable _v20 = v20 │
00:09:08 verbose #49030 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:08 verbose #49031 > │ let v22 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:08 verbose #49032 > │ v22 │
00:09:08 verbose #49033 > │ #endif │
00:09:08 verbose #49034 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:08 verbose #49035 > │ let v23 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:08 verbose #49036 > │ v23 │
00:09:08 verbose #49037 > │ #endif │
00:09:08 verbose #49038 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:08 verbose #49039 > │ let v24 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:08 verbose #49040 > │ v24 │
00:09:08 verbose #49041 > │ #endif │
00:09:08 verbose #49042 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:08 verbose #49043 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:08 verbose #49044 > │ let v25 : (unit -> unit) = closure2(v19) │
00:09:08 verbose #49045 > │ let v26 : System.IDisposable = { new System.IDisposable with member │
00:09:08 verbose #49046 > │ _.Dispose () = v25 () } │
00:09:08 verbose #49047 > │ v26 │
00:09:08 verbose #49048 > │ #endif │
00:09:08 verbose #49049 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:08 verbose #49050 > │ let v27 : System.IDisposable = null |> unbox<System.IDisposable> │
00:09:08 verbose #49051 > │ v27 │
00:09:08 verbose #49052 > │ #endif │
00:09:08 verbose #49053 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:08 verbose #49054 > │ let v28 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:09:08 verbose #49055 > │ v28 │
00:09:08 verbose #49056 > │ #endif │
00:09:08 verbose #49057 > │ |> fun x -> _v20 <- Some x │
00:09:08 verbose #49058 > │ let v29 : System.IDisposable = _v20.Value │
00:09:08 verbose #49059 > │ let v30 : System.Threading.CancellationToken = v19.Token │
00:09:08 verbose #49060 > │ struct (v30, v29) │
00:09:08 verbose #49061 > │ #endif │
00:09:08 verbose #49062 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:08 verbose #49063 > │ let struct (v31 : System.Threading.CancellationToken, v32 : │
00:09:08 verbose #49064 > │ System.IDisposable) = null |> unbox<struct │
00:09:08 verbose #49065 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:08 verbose #49066 > │ struct (v31, v32) │
00:09:08 verbose #49067 > │ #endif │
00:09:08 verbose #49068 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:08 verbose #49069 > │ let struct (v33 : System.Threading.CancellationToken, v34 : │
00:09:08 verbose #49070 > │ System.IDisposable) = Unchecked.defaultof<struct │
00:09:08 verbose #49071 > │ (System.Threading.CancellationToken * System.IDisposable)> │
00:09:08 verbose #49072 > │ struct (v33, v34) │
00:09:08 verbose #49073 > │ #endif │
00:09:08 verbose #49074 > │ |> fun x -> _v1 <- Some x │
00:09:08 verbose #49075 > │ let struct (v35 : System.Threading.CancellationToken, v36 : │
00:09:08 verbose #49076 > │ System.IDisposable) = _v1.Value │
00:09:08 verbose #49077 > │ struct (v35, v36) │
00:09:08 verbose #49078 > │ let v0 : (System.Threading.CancellationToken option -> struct │
00:09:08 verbose #49079 > │ (System.Threading.CancellationToken * System.IDisposable)) = closure0() │
00:09:08 verbose #49080 > │ let new_disposable_token x = v0 x │
00:09:08 verbose #49081 > │ () │
00:09:08 verbose #49082 > │ │
00:09:08 verbose #49083 > │ │
00:09:08 verbose #49084 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:10 verbose #49085 > [NbConvertApp] Converting notebook threading.dib.ipynb to html
00:09:10 verbose #49086 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:10 verbose #49087 > validate(nb)
00:09:10 verbose #49088 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:09:10 verbose #49089 > return _pygments_highlight(
00:09:10 verbose #49090 > [NbConvertApp] Writing 324351 bytes to threading.dib.html
00:09:11 debug #49091 execute_with_options_async / exit_code: 0 / output.Length: 55688
00:09:11 debug #24 main / executeCommand / exitCode: 0
00:09:11 debug #49092 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 networking.dib -Retries 3"", None,
None)
00:09:12 verbose #49093 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: networking.dib / _args: [
00:09:12 verbose #49094 > "-Retries",
00:09:12 verbose #49095 > 3
00:09:12 verbose #49096 > ]
00:09:14 verbose #49097 >
00:09:14 verbose #49098 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:14 verbose #49099 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:14 verbose #49100 > │ # networking │
00:09:14 verbose #49101 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:14 verbose #49102 >
00:09:14 verbose #49103 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:14 verbose #49104 > open rust_operators
00:09:17 verbose #49105 > 00:09:16 debug #708 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/509422cf3bb8a8cfc4cbb3c916e280922525b9b9428a427906e968efadb5b7b1/main.spi
00:09:18 verbose #49106 >
00:09:18 verbose #49107 > ╭─[ 3.95s - stdout ]───────────────────────────────────────────────────────────╮
00:09:18 verbose #49108 > │ () │
00:09:18 verbose #49109 > │ │
00:09:18 verbose #49110 > │ │
00:09:18 verbose #49111 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:18 verbose #49112 >
00:09:18 verbose #49113 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:18 verbose #49114 > // // test
00:09:18 verbose #49115 >
00:09:18 verbose #49116 > open testing
00:09:18 verbose #49117 > 00:09:17 debug #709 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/89a2ef849d6c3b2184af79b96248f5c4c02791c5063b63d0c53ad845fa512858/main.spi
00:09:18 verbose #49118 >
00:09:18 verbose #49119 > ╭─[ 280.13ms - stdout ]────────────────────────────────────────────────────────╮
00:09:18 verbose #49120 > │ () │
00:09:18 verbose #49121 > │ │
00:09:18 verbose #49122 > │ │
00:09:18 verbose #49123 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:18 verbose #49124 >
00:09:18 verbose #49125 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:18 verbose #49126 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:18 verbose #49127 > │ ## types │
00:09:18 verbose #49128 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:18 verbose #49129 >
00:09:18 verbose #49130 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:18 verbose #49131 > inl types () =
00:09:18 verbose #49132 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"reqwest_wasm::Error\")>]]
00:09:18 verbose #49133 > type reqwest_Error = class end"
00:09:18 verbose #49134 > global "[[<Fable.Core.Erase;
00:09:18 verbose #49135 > Fable.Core.Emit(\"reqwest_wasm::RequestBuilder\")>]] type reqwest_RequestBuilder
00:09:18 verbose #49136 > = class end"
00:09:18 verbose #49137 > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"reqwest_wasm::Response\")>]]
00:09:18 verbose #49138 > type reqwest_Response = class end"
00:09:18 verbose #49139 > 00:09:17 debug #710 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a2b4c95214ede498ff797d6d0786793b7e598ea51a8185ecf849bf13878f2ceb/main.spi
00:09:18 verbose #49140 >
00:09:18 verbose #49141 > ╭─[ 286.69ms - stdout ]────────────────────────────────────────────────────────╮
00:09:18 verbose #49142 > │ () │
00:09:18 verbose #49143 > │ │
00:09:18 verbose #49144 > │ │
00:09:18 verbose #49145 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:18 verbose #49146 >
00:09:18 verbose #49147 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:18 verbose #49148 > inl types () =
00:09:18 verbose #49149 > global "#if FABLE_COMPILER // networking.types"
00:09:18 verbose #49150 > rust.types ()
00:09:18 verbose #49151 > sm'.types ()
00:09:18 verbose #49152 > types ()
00:09:18 verbose #49153 > global "#endif // networking.types"
00:09:18 verbose #49154 > 00:09:18 debug #711 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7df5a6999942e4d172a2e7b692d461f0e21537cd81d550f04a94b292285bae18/main.spi
00:09:19 verbose #49155 >
00:09:19 verbose #49156 > ╭─[ 338.98ms - stdout ]────────────────────────────────────────────────────────╮
00:09:19 verbose #49157 > │ () │
00:09:19 verbose #49158 > │ │
00:09:19 verbose #49159 > │ │
00:09:19 verbose #49160 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49161 >
00:09:19 verbose #49162 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #49163 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #49164 > │ ## reqwest_response │
00:09:19 verbose #49165 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49166 >
00:09:19 verbose #49167 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #49168 > nominal reqwest_response = $"reqwest_Response"
00:09:19 verbose #49169 > 00:09:18 debug #712 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c5a8062ef3b87efde9fcc8cbcc9c76f0a3822bc80e0b99d0c54fca039f098057/main.spi
00:09:19 verbose #49170 >
00:09:19 verbose #49171 > ╭─[ 206.20ms - stdout ]────────────────────────────────────────────────────────╮
00:09:19 verbose #49172 > │ () │
00:09:19 verbose #49173 > │ │
00:09:19 verbose #49174 > │ │
00:09:19 verbose #49175 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49176 >
00:09:19 verbose #49177 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #49178 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #49179 > │ ## reqwest_error │
00:09:19 verbose #49180 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49181 >
00:09:19 verbose #49182 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #49183 > nominal reqwest_error = $"reqwest_Error"
00:09:19 verbose #49184 > 00:09:18 debug #713 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/13d2eacf0681e14e250eea1b2425efdf4eff639fea398eebed0f7db91d063e7b/main.spi
00:09:19 verbose #49185 >
00:09:19 verbose #49186 > ╭─[ 223.54ms - stdout ]────────────────────────────────────────────────────────╮
00:09:19 verbose #49187 > │ () │
00:09:19 verbose #49188 > │ │
00:09:19 verbose #49189 > │ │
00:09:19 verbose #49190 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49191 >
00:09:19 verbose #49192 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #49193 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #49194 > │ ## request_builder │
00:09:19 verbose #49195 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49196 >
00:09:19 verbose #49197 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #49198 > nominal request_builder = $"reqwest_RequestBuilder"
00:09:19 verbose #49199 > 00:09:18 debug #714 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2c7132ffa55d861d0473124b8e077b9acfe25d193b71e8ca794b67f19d49bba5/main.spi
00:09:19 verbose #49200 >
00:09:19 verbose #49201 > ╭─[ 217.71ms - stdout ]────────────────────────────────────────────────────────╮
00:09:19 verbose #49202 > │ () │
00:09:19 verbose #49203 > │ │
00:09:19 verbose #49204 > │ │
00:09:19 verbose #49205 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49206 >
00:09:19 verbose #49207 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #49208 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #49209 > │ ## request_type │
00:09:19 verbose #49210 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49211 >
00:09:19 verbose #49212 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #49213 > union request_type =
00:09:19 verbose #49214 > | Get
00:09:19 verbose #49215 > | Post
00:09:19 verbose #49216 > 00:09:19 debug #715 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/df63688729ba7ad932a6a45cf79b2a0a6f269b3afa89b8b3100a466d34e731cc/main.spi
00:09:19 verbose #49217 >
00:09:19 verbose #49218 > ╭─[ 226.04ms - stdout ]────────────────────────────────────────────────────────╮
00:09:19 verbose #49219 > │ () │
00:09:19 verbose #49220 > │ │
00:09:19 verbose #49221 > │ │
00:09:19 verbose #49222 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49223 >
00:09:19 verbose #49224 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #49225 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #49226 > │ ## request │
00:09:19 verbose #49227 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #49228 >
00:09:19 verbose #49229 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #49230 > type request =
00:09:19 verbose #49231 > {
00:09:19 verbose #49232 > url : string
00:09:19 verbose #49233 > request_type : request_type
00:09:19 verbose #49234 > body : string
00:09:19 verbose #49235 > json : bool
00:09:19 verbose #49236 > auto_refresh : bool
00:09:19 verbose #49237 > }
00:09:20 verbose #49238 > 00:09:19 debug #716 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/11b5d581af9b3698a85bf381a649e13a1ba2f17a0ae06db397675b70d643b3db/main.spi
00:09:20 verbose #49239 >
00:09:20 verbose #49240 > ╭─[ 243.31ms - stdout ]────────────────────────────────────────────────────────╮
00:09:20 verbose #49241 > │ () │
00:09:20 verbose #49242 > │ │
00:09:20 verbose #49243 > │ │
00:09:20 verbose #49244 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49245 >
00:09:20 verbose #49246 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:20 verbose #49247 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:20 verbose #49248 > │ ## new_request_get │
00:09:20 verbose #49249 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49250 >
00:09:20 verbose #49251 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:20 verbose #49252 > inl new_request_get (url : string) : request_builder =
00:09:20 verbose #49253 > inl url = join url
00:09:20 verbose #49254 > inl url = url |> sm'.to_std_string
00:09:20 verbose #49255 > inl url = join url
00:09:20 verbose #49256 > !\($'"reqwest_wasm::Client::builder().build().map_err(|err|
00:09:20 verbose #49257 > err.to_string())?.get(!url)"')
00:09:20 verbose #49258 > 00:09:19 debug #717 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8971676c4719a6103fd5d864d2f7fff6831e086082710dcf993fa08578865415/main.spi
00:09:20 verbose #49259 >
00:09:20 verbose #49260 > ╭─[ 242.04ms - stdout ]────────────────────────────────────────────────────────╮
00:09:20 verbose #49261 > │ () │
00:09:20 verbose #49262 > │ │
00:09:20 verbose #49263 > │ │
00:09:20 verbose #49264 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49265 >
00:09:20 verbose #49266 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:20 verbose #49267 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:20 verbose #49268 > │ ## new_request_post │
00:09:20 verbose #49269 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49270 >
00:09:20 verbose #49271 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:20 verbose #49272 > inl new_request_post (url : string) : request_builder =
00:09:20 verbose #49273 > inl url = join url
00:09:20 verbose #49274 > inl url = url |> sm'.to_std_string
00:09:20 verbose #49275 > inl url = join url
00:09:20 verbose #49276 > !\($'"reqwest_wasm::Client::builder().build().map_err(|err|
00:09:20 verbose #49277 > err.to_string())?.post(!url)"')
00:09:20 verbose #49278 > 00:09:19 debug #718 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6c152e346816c497907c8d388d537e33b5455382c53d2e36ccfacf1932ca4412/main.spi
00:09:20 verbose #49279 >
00:09:20 verbose #49280 > ╭─[ 229.32ms - stdout ]────────────────────────────────────────────────────────╮
00:09:20 verbose #49281 > │ () │
00:09:20 verbose #49282 > │ │
00:09:20 verbose #49283 > │ │
00:09:20 verbose #49284 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49285 >
00:09:20 verbose #49286 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:20 verbose #49287 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:20 verbose #49288 > │ ## request_send │
00:09:20 verbose #49289 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49290 >
00:09:20 verbose #49291 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:20 verbose #49292 > inl request_send (request : request_builder) : async.future_pin (resultm.result'
00:09:20 verbose #49293 > reqwest_response reqwest_error) =
00:09:20 verbose #49294 > inl request = join request
00:09:20 verbose #49295 > !\($'"Box::pin(reqwest_wasm::RequestBuilder::send(!request))"')
00:09:20 verbose #49296 > 00:09:20 debug #719 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/da2f18de83820e306cbf0a823793e0a8bc7729f05de94eb2ee2156e356e0cd4d/main.spi
00:09:20 verbose #49297 >
00:09:20 verbose #49298 > ╭─[ 266.83ms - stdout ]────────────────────────────────────────────────────────╮
00:09:20 verbose #49299 > │ () │
00:09:20 verbose #49300 > │ │
00:09:20 verbose #49301 > │ │
00:09:20 verbose #49302 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49303 >
00:09:20 verbose #49304 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:20 verbose #49305 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:20 verbose #49306 > │ ## request_body │
00:09:20 verbose #49307 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 verbose #49308 >
00:09:20 verbose #49309 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:20 verbose #49310 > inl request_body (body : string) (request : request_builder) : request_builder =
00:09:20 verbose #49311 > inl body = body |> sm'.to_std_string
00:09:20 verbose #49312 > !\($'"reqwest_wasm::RequestBuilder::body(!request, !body)"')
00:09:21 verbose #49313 > 00:09:20 debug #720 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/07fe037cf78a7d6da7eaac1ce9fc76a7e244a5946e3c65dd950855cb99f419a7/main.spi
00:09:21 verbose #49314 >
00:09:21 verbose #49315 > ╭─[ 241.19ms - stdout ]────────────────────────────────────────────────────────╮
00:09:21 verbose #49316 > │ () │
00:09:21 verbose #49317 > │ │
00:09:21 verbose #49318 > │ │
00:09:21 verbose #49319 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49320 >
00:09:21 verbose #49321 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:21 verbose #49322 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:21 verbose #49323 > │ ## request_header │
00:09:21 verbose #49324 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49325 >
00:09:21 verbose #49326 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:21 verbose #49327 > inl request_header (key : string) (value : string) (request : request_builder) :
00:09:21 verbose #49328 > request_builder =
00:09:21 verbose #49329 > inl request = join request
00:09:21 verbose #49330 > inl key = key |> sm'.to_std_string
00:09:21 verbose #49331 > inl value = value |> sm'.to_std_string
00:09:21 verbose #49332 > !\($'"reqwest_wasm::RequestBuilder::header(!request, !key, !value)"')
00:09:21 verbose #49333 > 00:09:20 debug #721 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d7d431bbc7dfc8fd810c2c4f4272e9ad9d9e2b5e83c641bb1c849a4816a59e29/main.spi
00:09:21 verbose #49334 >
00:09:21 verbose #49335 > ╭─[ 256.19ms - stdout ]────────────────────────────────────────────────────────╮
00:09:21 verbose #49336 > │ () │
00:09:21 verbose #49337 > │ │
00:09:21 verbose #49338 > │ │
00:09:21 verbose #49339 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49340 >
00:09:21 verbose #49341 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:21 verbose #49342 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:21 verbose #49343 > │ ## request_json │
00:09:21 verbose #49344 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49345 >
00:09:21 verbose #49346 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:21 verbose #49347 > inl request_json forall t. (obj : t) (request : request_builder) :
00:09:21 verbose #49348 > request_builder =
00:09:21 verbose #49349 > !\($'"reqwest_wasm::RequestBuilder::json(!request, &!obj)"')
00:09:21 verbose #49350 > 00:09:20 debug #722 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e0b1939b669e37730ce43ece437c83c45101c76b5ad6ec5f16d255ad066f2dcb/main.spi
00:09:21 verbose #49351 >
00:09:21 verbose #49352 > ╭─[ 247.41ms - stdout ]────────────────────────────────────────────────────────╮
00:09:21 verbose #49353 > │ () │
00:09:21 verbose #49354 > │ │
00:09:21 verbose #49355 > │ │
00:09:21 verbose #49356 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49357 >
00:09:21 verbose #49358 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:21 verbose #49359 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:21 verbose #49360 > │ ## response_text │
00:09:21 verbose #49361 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49362 >
00:09:21 verbose #49363 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:21 verbose #49364 > inl response_text (response : reqwest_response) : async.future_pin
00:09:21 verbose #49365 > (resultm.result' sm'.std_string reqwest_error) =
00:09:21 verbose #49366 > !\($'"Box::pin(reqwest_wasm::Response::text(!response))"')
00:09:21 verbose #49367 > 00:09:21 debug #723 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9bb5f7485920e169307638a102f474b60d0787161ccf17b9175a07fef7f80942/main.spi
00:09:21 verbose #49368 >
00:09:21 verbose #49369 > ╭─[ 203.23ms - stdout ]────────────────────────────────────────────────────────╮
00:09:21 verbose #49370 > │ () │
00:09:21 verbose #49371 > │ │
00:09:21 verbose #49372 > │ │
00:09:21 verbose #49373 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49374 >
00:09:21 verbose #49375 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:21 verbose #49376 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:21 verbose #49377 > │ ## tcp_client │
00:09:21 verbose #49378 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #49379 >
00:09:21 verbose #49380 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:21 verbose #49381 > nominal tcp_client = $'System.Net.Sockets.TcpClient'
00:09:22 verbose #49382 > 00:09:21 debug #724 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/abdd4e5d04fa18b7aaf3fa3571bc0271efbc54e69536aaafd42ad25ab88affc9/main.spi
00:09:22 verbose #49383 >
00:09:22 verbose #49384 > ╭─[ 259.52ms - stdout ]────────────────────────────────────────────────────────╮
00:09:22 verbose #49385 > │ () │
00:09:22 verbose #49386 > │ │
00:09:22 verbose #49387 > │ │
00:09:22 verbose #49388 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49389 >
00:09:22 verbose #49390 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:22 verbose #49391 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:22 verbose #49392 > │ ## new_tcp_client │
00:09:22 verbose #49393 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49394 >
00:09:22 verbose #49395 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:22 verbose #49396 > inl new_tcp_client () : tcp_client =
00:09:22 verbose #49397 > $'new `tcp_client ()'
00:09:22 verbose #49398 > 00:09:21 debug #725 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d727a2925b1a7271ddd9d7171dbfd5312b6a4c4e461928727dfaf32c422a6d5b/main.spi
00:09:22 verbose #49399 >
00:09:22 verbose #49400 > ╭─[ 238.69ms - stdout ]────────────────────────────────────────────────────────╮
00:09:22 verbose #49401 > │ () │
00:09:22 verbose #49402 > │ │
00:09:22 verbose #49403 > │ │
00:09:22 verbose #49404 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49405 >
00:09:22 verbose #49406 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:22 verbose #49407 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:22 verbose #49408 > │ ## ip_address │
00:09:22 verbose #49409 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49410 >
00:09:22 verbose #49411 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:22 verbose #49412 > nominal ip_address = $'System.Net.IPAddress'
00:09:22 verbose #49413 > 00:09:21 debug #726 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/733b6e374098d45a98e4b0bdaed8178d63eaa51d7d6b69902eb5abac4d0dfc03/main.spi
00:09:22 verbose #49414 >
00:09:22 verbose #49415 > ╭─[ 246.47ms - stdout ]────────────────────────────────────────────────────────╮
00:09:22 verbose #49416 > │ () │
00:09:22 verbose #49417 > │ │
00:09:22 verbose #49418 > │ │
00:09:22 verbose #49419 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49420 >
00:09:22 verbose #49421 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:22 verbose #49422 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:22 verbose #49423 > │ ## ip_address_parse │
00:09:22 verbose #49424 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49425 >
00:09:22 verbose #49426 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:22 verbose #49427 > inl ip_address_parse (s : string) : ip_address =
00:09:22 verbose #49428 > s |> $'`ip_address.Parse'
00:09:22 verbose #49429 > 00:09:22 debug #727 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8e1f013c4878a73bc1f737745ec30e468655970aee8c87319ae1e5d664e92523/main.spi
00:09:22 verbose #49430 >
00:09:22 verbose #49431 > ╭─[ 236.01ms - stdout ]────────────────────────────────────────────────────────╮
00:09:22 verbose #49432 > │ () │
00:09:22 verbose #49433 > │ │
00:09:22 verbose #49434 > │ │
00:09:22 verbose #49435 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49436 >
00:09:22 verbose #49437 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:22 verbose #49438 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:22 verbose #49439 > │ ## tcp_listener │
00:09:22 verbose #49440 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #49441 >
00:09:22 verbose #49442 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:22 verbose #49443 > nominal tcp_listener = $'System.Net.Sockets.TcpListener'
00:09:23 verbose #49444 > 00:09:22 debug #728 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9439d7cf50f44351fe2d0a5cb99cc1a11d8aa77d483c6eb0489e0788b6d1f187/main.spi
00:09:23 verbose #49445 >
00:09:23 verbose #49446 > ╭─[ 255.25ms - stdout ]────────────────────────────────────────────────────────╮
00:09:23 verbose #49447 > │ () │
00:09:23 verbose #49448 > │ │
00:09:23 verbose #49449 > │ │
00:09:23 verbose #49450 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49451 >
00:09:23 verbose #49452 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:23 verbose #49453 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:23 verbose #49454 > │ ## new_tcp_listener │
00:09:23 verbose #49455 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49456 >
00:09:23 verbose #49457 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:23 verbose #49458 > inl new_tcp_listener (ip_address : ip_address) (port : i32) : tcp_listener =
00:09:23 verbose #49459 > $'new `tcp_listener (!ip_address, !port)'
00:09:23 verbose #49460 > 00:09:22 debug #729 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0fcd6112d80de935fbb8dac46f8c8d8f8a3d9e7cefbccbb35c7d46936f1add0b/main.spi
00:09:23 verbose #49461 >
00:09:23 verbose #49462 > ╭─[ 263.49ms - stdout ]────────────────────────────────────────────────────────╮
00:09:23 verbose #49463 > │ () │
00:09:23 verbose #49464 > │ │
00:09:23 verbose #49465 > │ │
00:09:23 verbose #49466 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49467 >
00:09:23 verbose #49468 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:23 verbose #49469 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:23 verbose #49470 > │ ## listener_start │
00:09:23 verbose #49471 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49472 >
00:09:23 verbose #49473 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:23 verbose #49474 > inl listener_start (listener : tcp_listener) : () =
00:09:23 verbose #49475 > $'!listener.Start' ()
00:09:23 verbose #49476 > 00:09:22 debug #730 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/dc4700e4faf595036735429428c5d2ba35ae00a47596651659420e5627c73cfc/main.spi
00:09:23 verbose #49477 >
00:09:23 verbose #49478 > ╭─[ 260.98ms - stdout ]────────────────────────────────────────────────────────╮
00:09:23 verbose #49479 > │ () │
00:09:23 verbose #49480 > │ │
00:09:23 verbose #49481 > │ │
00:09:23 verbose #49482 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49483 >
00:09:23 verbose #49484 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:23 verbose #49485 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:23 verbose #49486 > │ ## listener_stop │
00:09:23 verbose #49487 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49488 >
00:09:23 verbose #49489 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:23 verbose #49490 > inl listener_stop (listener : tcp_listener) : () =
00:09:23 verbose #49491 > $'!listener.Stop' ()
00:09:23 verbose #49492 > 00:09:23 debug #731 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bfe9ca6b6f97fa5461ae469b40c1151845808a55cc2c9bc122c6165d11e249d3/main.spi
00:09:23 verbose #49493 >
00:09:23 verbose #49494 > ╭─[ 267.55ms - stdout ]────────────────────────────────────────────────────────╮
00:09:23 verbose #49495 > │ () │
00:09:23 verbose #49496 > │ │
00:09:23 verbose #49497 > │ │
00:09:23 verbose #49498 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49499 >
00:09:23 verbose #49500 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:23 verbose #49501 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:23 verbose #49502 > │ ## client_connect_async │
00:09:23 verbose #49503 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #49504 >
00:09:23 verbose #49505 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:23 verbose #49506 > inl client_connect_async
00:09:23 verbose #49507 > (host : string)
00:09:23 verbose #49508 > (port : i32)
00:09:23 verbose #49509 > (ct : threading.cancellation_token)
00:09:23 verbose #49510 > (client : tcp_client)
00:09:23 verbose #49511 > : async.value_task
00:09:23 verbose #49512 > =
00:09:23 verbose #49513 > $'!client.ConnectAsync (!host, !port, !ct)'
00:09:24 verbose #49514 > 00:09:23 debug #732 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3811dcc45bd58135064ed633c28cf132dad73ab17efeb272d0a257a4daba1509/main.spi
00:09:24 verbose #49515 >
00:09:24 verbose #49516 > ╭─[ 244.25ms - stdout ]────────────────────────────────────────────────────────╮
00:09:24 verbose #49517 > │ () │
00:09:24 verbose #49518 > │ │
00:09:24 verbose #49519 > │ │
00:09:24 verbose #49520 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:24 verbose #49521 >
00:09:24 verbose #49522 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:24 verbose #49523 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:24 verbose #49524 > │ ## test_port_open │
00:09:24 verbose #49525 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:24 verbose #49526 >
00:09:24 verbose #49527 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:24 verbose #49528 > inl test_port_open port : _ bool = async.new_async fun () =>
00:09:24 verbose #49529 > inl ct = async.cancellation_token () |> async.let'
00:09:24 verbose #49530 > inl client = new_tcp_client () |> use
00:09:24 verbose #49531 > try_unit
00:09:24 verbose #49532 > fun () =>
00:09:24 verbose #49533 > client |> client_connect_async "127.0.0.1" port ct |>
00:09:24 verbose #49534 > async.await_value_task_unit |> async.do
00:09:24 verbose #49535 > return true
00:09:24 verbose #49536 > fun ex =>
00:09:24 verbose #49537 > inl ex = ex |> sm'.format_exception
00:09:24 verbose #49538 > trace Verbose (fun () => $'$"test_port_open / ex: {!ex}"') _locals
00:09:24 verbose #49539 > return false
00:09:24 verbose #49540 > 00:09:23 debug #733 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7c90269c9b6940484791f0c0bb53017bf28c96c347740378b11ee81e05d6ec04/main.spi
00:09:24 verbose #49541 >
00:09:24 verbose #49542 > ╭─[ 200.05ms - stdout ]────────────────────────────────────────────────────────╮
00:09:24 verbose #49543 > │ () │
00:09:24 verbose #49544 > │ │
00:09:24 verbose #49545 > │ │
00:09:24 verbose #49546 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:24 verbose #49547 >
00:09:24 verbose #49548 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:24 verbose #49549 > // // test
00:09:24 verbose #49550 >
00:09:24 verbose #49551 > test_port_open 65536
00:09:24 verbose #49552 > |> async.run_with_timeout 120
00:09:24 verbose #49553 > |> _assert_eq (Some false)
00:09:24 verbose #49554 > 00:09:23 debug #734 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/04bea90159805bb43c2212ffc78fb94fafadcc4beda4c7ee86d1a4a733d5ee00/main.spi
00:09:26 verbose #49555 >
00:09:26 verbose #49556 > ╭─[ 2.44s - stdout ]───────────────────────────────────────────────────────────╮
00:09:26 verbose #49557 > │ module State = let mutable trace_state = None │
00:09:26 verbose #49558 > │ type [<Struct>] US0 = │
00:09:26 verbose #49559 > │ | US0_0 │
00:09:26 verbose #49560 > │ | US0_1 │
00:09:26 verbose #49561 > │ | US0_2 │
00:09:26 verbose #49562 > │ | US0_3 │
00:09:26 verbose #49563 > │ | US0_4 │
00:09:26 verbose #49564 > │ and Mut0 = {mutable l0 : int64} │
00:09:26 verbose #49565 > │ and Mut1 = {mutable l0 : bool} │
00:09:26 verbose #49566 > │ and Mut2 = {mutable l0 : US0} │
00:09:26 verbose #49567 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:26 verbose #49568 > │ and [<Struct>] US1 = │
00:09:26 verbose #49569 > │ | US1_0 of f0_0 : int64 │
00:09:26 verbose #49570 > │ | US1_1 │
00:09:26 verbose #49571 > │ and [<Struct>] US2 = │
00:09:26 verbose #49572 > │ | US2_0 of f0_0 : int64 │
00:09:26 verbose #49573 > │ | US2_1 │
00:09:26 verbose #49574 > │ and [<Struct>] US3 = │
00:09:26 verbose #49575 > │ | US3_0 of f0_0 : bool │
00:09:26 verbose #49576 > │ | US3_1 │
00:09:26 verbose #49577 > │ and [<Struct>] US4 = │
00:09:26 verbose #49578 > │ | US4_0 of f0_0 : bool │
00:09:26 verbose #49579 > │ | US4_1 of f1_0 : exn │
00:09:26 verbose #49580 > │ and [<Struct>] US5 = │
00:09:26 verbose #49581 > │ | US5_0 of f0_0 : bool │
00:09:26 verbose #49582 > │ | US5_1 of f1_0 : exn │
00:09:26 verbose #49583 > │ let rec closure0 (v0 : string) () : string = │
00:09:26 verbose #49584 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:26 verbose #49585 > │ v1 │
00:09:26 verbose #49586 > │ and closure1 () () : string = │
00:09:26 verbose #49587 > │ let v0 : string = "" │
00:09:26 verbose #49588 > │ v0 │
00:09:26 verbose #49589 > │ and closure4 () (v0 : string) : unit = │
00:09:26 verbose #49590 > │ () │
00:09:26 verbose #49591 > │ and method2 (v0 : int64 option) : int64 option = │
00:09:26 verbose #49592 > │ v0 │
00:09:26 verbose #49593 > │ and method3 (v0 : int64 option) : int64 option = │
00:09:26 verbose #49594 > │ v0 │
00:09:26 verbose #49595 > │ and closure3 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:26 verbose #49596 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:26 verbose #49597 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:26 verbose #49598 > │ let v2 : US0 = US0_0 │
00:09:26 verbose #49599 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:26 verbose #49600 > │ let v4 : (string -> unit) = closure4() │
00:09:26 verbose #49601 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:26 verbose #49602 > │ let v6 : int64 option option = None │
00:09:26 verbose #49603 > │ let mutable _v6 = v6 │
00:09:26 verbose #49604 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:26 verbose #49605 > │ let v7 : string option = None │
00:09:26 verbose #49606 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:26 verbose #49607 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:26 verbose #49608 > │ let v9 : string = null |> unbox<string> │
00:09:26 verbose #49609 > │ v9 │
00:09:26 verbose #49610 > │ #endif │
00:09:26 verbose #49611 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:26 verbose #49612 > │ let v10 : string = null |> unbox<string> │
00:09:26 verbose #49613 > │ v10 │
00:09:26 verbose #49614 > │ #endif │
00:09:26 verbose #49615 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:26 verbose #49616 > │ let v11 : string = null |> unbox<string> │
00:09:26 verbose #49617 > │ v11 │
00:09:26 verbose #49618 > │ #endif │
00:09:26 verbose #49619 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:26 verbose #49620 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:26 verbose #49621 > │ let v12 : string = │
00:09:26 verbose #49622 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:26 verbose #49623 > │ v12 │
00:09:26 verbose #49624 > │ #endif │
00:09:26 verbose #49625 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:26 verbose #49626 > │ let v13 : string = null |> unbox<string> │
00:09:26 verbose #49627 > │ v13 │
00:09:26 verbose #49628 > │ #endif │
00:09:26 verbose #49629 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:26 verbose #49630 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:26 verbose #49631 > │ v14 │
00:09:26 verbose #49632 > │ #endif │
00:09:26 verbose #49633 > │ |> fun x -> _v7 <- Some x │
00:09:26 verbose #49634 > │ let v15 : string = _v7.Value │
00:09:26 verbose #49635 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:26 verbose #49636 > │ let v18 : bool = v17 <> true │
00:09:26 verbose #49637 > │ let v24 : US1 = │
00:09:26 verbose #49638 > │ if v18 then │
00:09:26 verbose #49639 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:26 verbose #49640 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:26 verbose #49641 > │ let v21 : int64 = v20 v19 │
00:09:26 verbose #49642 > │ US1_0(v21) │
00:09:26 verbose #49643 > │ else │
00:09:26 verbose #49644 > │ US1_1 │
00:09:26 verbose #49645 > │ let v29 : int64 option = │
00:09:26 verbose #49646 > │ match v24 with │
00:09:26 verbose #49647 > │ | US1_1 -> (* None *) │
00:09:26 verbose #49648 > │ let v27 : int64 option = None │
00:09:26 verbose #49649 > │ v27 │
00:09:26 verbose #49650 > │ | US1_0(v25) -> (* Some *) │
00:09:26 verbose #49651 > │ let v26 : int64 option = Some v25 │
00:09:26 verbose #49652 > │ v26 │
00:09:26 verbose #49653 > │ let v30 : int64 option = method2(v29) │
00:09:26 verbose #49654 > │ v30 │
00:09:26 verbose #49655 > │ #else │
00:09:26 verbose #49656 > │ let v31 : int64 option = None │
00:09:26 verbose #49657 > │ let v32 : int64 option = method3(v31) │
00:09:26 verbose #49658 > │ v32 │
00:09:26 verbose #49659 > │ #endif │
00:09:26 verbose #49660 > │ |> fun x -> _v6 <- Some x │
00:09:26 verbose #49661 > │ let v33 : int64 option = _v6.Value │
00:09:26 verbose #49662 > │ struct (v1, v0, v3, v33, v5) │
00:09:26 verbose #49663 > │ and closure5 () (v0 : int64) : US2 = │
00:09:26 verbose #49664 > │ US2_0(v0) │
00:09:26 verbose #49665 > │ and method4 () : (int64 -> US2) = │
00:09:26 verbose #49666 > │ closure5() │
00:09:26 verbose #49667 > │ and method5 () : string = │
00:09:26 verbose #49668 > │ let v0 : string = "" │
00:09:26 verbose #49669 > │ v0 │
00:09:26 verbose #49670 > │ and closure2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:26 verbose #49671 > │ string = │
00:09:26 verbose #49672 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:26 verbose #49673 > │ closure3() │
00:09:26 verbose #49674 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:26 verbose #49675 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:26 verbose #49676 > │ Mut3) = State.trace_state.Value │
00:09:26 verbose #49677 > │ let v9 : string option = None │
00:09:26 verbose #49678 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:26 verbose #49679 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:26 verbose #49680 > │ let v11 : (int64 -> US2) = method4() │
00:09:26 verbose #49681 > │ let v12 : US2 = US2_1 │
00:09:26 verbose #49682 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:26 verbose #49683 > │ let v31 : System.DateTime = │
00:09:26 verbose #49684 > │ match v13 with │
00:09:26 verbose #49685 > │ | US2_1 -> (* None *) │
00:09:26 verbose #49686 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:26 verbose #49687 > │ v29 │
00:09:26 verbose #49688 > │ | US2_0(v14) -> (* Some *) │
00:09:26 verbose #49689 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:26 verbose #49690 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:26 verbose #49691 > │ let v17 : int64 = v16 v15 │
00:09:26 verbose #49692 > │ let v18 : int64 = v17 - v14 │
00:09:26 verbose #49693 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:26 verbose #49694 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:26 verbose #49695 > │ let v21 : int32 = v20 v19 │
00:09:26 verbose #49696 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:26 verbose #49697 > │ let v23 : int32 = v22 v19 │
00:09:26 verbose #49698 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:26 verbose #49699 > │ let v25 : int32 = v24 v19 │
00:09:26 verbose #49700 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:26 verbose #49701 > │ let v27 : int32 = v26 v19 │
00:09:26 verbose #49702 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:26 verbose #49703 > │ v25, v27) │
00:09:26 verbose #49704 > │ v28 │
00:09:26 verbose #49705 > │ let v32 : string = "hh:mm:ss" │
00:09:26 verbose #49706 > │ let v33 : string = v31.ToString v32 │
00:09:26 verbose #49707 > │ v33 │
00:09:26 verbose #49708 > │ #endif │
00:09:26 verbose #49709 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:26 verbose #49710 > │ let v34 : string = method5() │
00:09:26 verbose #49711 > │ v34 │
00:09:26 verbose #49712 > │ #endif │
00:09:26 verbose #49713 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:26 verbose #49714 > │ let v35 : string = method5() │
00:09:26 verbose #49715 > │ v35 │
00:09:26 verbose #49716 > │ #endif │
00:09:26 verbose #49717 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:26 verbose #49718 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:26 verbose #49719 > │ let v36 : (int64 -> US2) = method4() │
00:09:26 verbose #49720 > │ let v37 : US2 = US2_1 │
00:09:26 verbose #49721 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:26 verbose #49722 > │ let v56 : System.DateTime = │
00:09:26 verbose #49723 > │ match v38 with │
00:09:26 verbose #49724 > │ | US2_1 -> (* None *) │
00:09:26 verbose #49725 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:26 verbose #49726 > │ v54 │
00:09:26 verbose #49727 > │ | US2_0(v39) -> (* Some *) │
00:09:26 verbose #49728 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:26 verbose #49729 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:26 verbose #49730 > │ let v42 : int64 = v41 v40 │
00:09:26 verbose #49731 > │ let v43 : int64 = v42 - v39 │
00:09:26 verbose #49732 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:26 verbose #49733 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:26 verbose #49734 > │ let v46 : int32 = v45 v44 │
00:09:26 verbose #49735 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:26 verbose #49736 > │ let v48 : int32 = v47 v44 │
00:09:26 verbose #49737 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:26 verbose #49738 > │ let v50 : int32 = v49 v44 │
00:09:26 verbose #49739 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:26 verbose #49740 > │ let v52 : int32 = v51 v44 │
00:09:26 verbose #49741 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:26 verbose #49742 > │ v50, v52) │
00:09:26 verbose #49743 > │ v53 │
00:09:26 verbose #49744 > │ let v57 : string = "HH:mm:ss" │
00:09:26 verbose #49745 > │ let v58 : string = v56.ToString v57 │
00:09:26 verbose #49746 > │ v58 │
00:09:26 verbose #49747 > │ #endif │
00:09:26 verbose #49748 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:26 verbose #49749 > │ let v59 : string = method5() │
00:09:26 verbose #49750 > │ v59 │
00:09:26 verbose #49751 > │ #endif │
00:09:26 verbose #49752 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:26 verbose #49753 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:26 verbose #49754 > │ v60 │
00:09:26 verbose #49755 > │ #endif │
00:09:26 verbose #49756 > │ |> fun x -> _v9 <- Some x │
00:09:26 verbose #49757 > │ let v61 : string = _v9.Value │
00:09:26 verbose #49758 > │ let v62 : int64 = v4.l0 │
00:09:26 verbose #49759 > │ let v72 : string = │
00:09:26 verbose #49760 > │ match v0 with │
00:09:26 verbose #49761 > │ | US0_4 -> (* Critical *) │
00:09:26 verbose #49762 > │ let v67 : string = "Critical" │
00:09:26 verbose #49763 > │ v67 │
00:09:26 verbose #49764 > │ | US0_1 -> (* Debug *) │
00:09:26 verbose #49765 > │ let v64 : string = "Debug" │
00:09:26 verbose #49766 > │ v64 │
00:09:26 verbose #49767 > │ | US0_2 -> (* Info *) │
00:09:26 verbose #49768 > │ let v65 : string = "Info" │
00:09:26 verbose #49769 > │ v65 │
00:09:26 verbose #49770 > │ | US0_0 -> (* Verbose *) │
00:09:26 verbose #49771 > │ let v63 : string = "Verbose" │
00:09:26 verbose #49772 > │ v63 │
00:09:26 verbose #49773 > │ | US0_3 -> (* Warning *) │
00:09:26 verbose #49774 > │ let v66 : string = "Warning" │
00:09:26 verbose #49775 > │ v66 │
00:09:26 verbose #49776 > │ let v73 : string = v72.ToLower () │
00:09:26 verbose #49777 > │ let v74 : string option = None │
00:09:26 verbose #49778 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:26 verbose #49779 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:26 verbose #49780 > │ let v90 : Ref<Str> = │
00:09:26 verbose #49781 > │ match v0 with │
00:09:26 verbose #49782 > │ | US0_4 -> (* Critical *) │
00:09:26 verbose #49783 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:26 verbose #49784 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:26 verbose #49785 > │ v85 │
00:09:26 verbose #49786 > │ | US0_1 -> (* Debug *) │
00:09:26 verbose #49787 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:26 verbose #49788 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:26 verbose #49789 > │ v79 │
00:09:26 verbose #49790 > │ | US0_2 -> (* Info *) │
00:09:26 verbose #49791 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:26 verbose #49792 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:26 verbose #49793 > │ v81 │
00:09:26 verbose #49794 > │ | US0_0 -> (* Verbose *) │
00:09:26 verbose #49795 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:26 verbose #49796 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:26 verbose #49797 > │ v77 │
00:09:26 verbose #49798 > │ | US0_3 -> (* Warning *) │
00:09:26 verbose #49799 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:26 verbose #49800 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:26 verbose #49801 > │ v83 │
00:09:26 verbose #49802 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:26 verbose #49803 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:26 verbose #49804 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:26 verbose #49805 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:26 verbose #49806 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:26 verbose #49807 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:26 verbose #49808 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:26 verbose #49809 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:26 verbose #49810 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:26 verbose #49811 > │ v99 │
00:09:26 verbose #49812 > │ #endif │
00:09:26 verbose #49813 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:26 verbose #49814 > │ let v114 : Ref<Str> = │
00:09:26 verbose #49815 > │ match v0 with │
00:09:26 verbose #49816 > │ | US0_4 -> (* Critical *) │
00:09:26 verbose #49817 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:26 verbose #49818 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:26 verbose #49819 > │ v108 │
00:09:26 verbose #49820 > │ v109 │
00:09:26 verbose #49821 > │ | US0_1 -> (* Debug *) │
00:09:26 verbose #49822 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:26 verbose #49823 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:26 verbose #49824 > │ v102 │
00:09:26 verbose #49825 > │ v103 │
00:09:26 verbose #49826 > │ | US0_2 -> (* Info *) │
00:09:26 verbose #49827 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:26 verbose #49828 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:26 verbose #49829 > │ v104 │
00:09:26 verbose #49830 > │ v105 │
00:09:26 verbose #49831 > │ | US0_0 -> (* Verbose *) │
00:09:26 verbose #49832 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:26 verbose #49833 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:26 verbose #49834 > │ v100 │
00:09:26 verbose #49835 > │ v101 │
00:09:27 verbose #49836 > │ | US0_3 -> (* Warning *) │
00:09:27 verbose #49837 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:27 verbose #49838 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49839 > │ v106 │
00:09:27 verbose #49840 > │ v107 │
00:09:27 verbose #49841 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:27 verbose #49842 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:27 verbose #49843 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:27 verbose #49844 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:27 verbose #49845 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:27 verbose #49846 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:27 verbose #49847 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49848 > │ v120 │
00:09:27 verbose #49849 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:27 verbose #49850 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:27 verbose #49851 > │ v123 │
00:09:27 verbose #49852 > │ #endif │
00:09:27 verbose #49853 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #49854 > │ let v138 : Ref<Str> = │
00:09:27 verbose #49855 > │ match v0 with │
00:09:27 verbose #49856 > │ | US0_4 -> (* Critical *) │
00:09:27 verbose #49857 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:27 verbose #49858 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49859 > │ v132 │
00:09:27 verbose #49860 > │ v133 │
00:09:27 verbose #49861 > │ | US0_1 -> (* Debug *) │
00:09:27 verbose #49862 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:27 verbose #49863 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49864 > │ v126 │
00:09:27 verbose #49865 > │ v127 │
00:09:27 verbose #49866 > │ | US0_2 -> (* Info *) │
00:09:27 verbose #49867 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:27 verbose #49868 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49869 > │ v128 │
00:09:27 verbose #49870 > │ v129 │
00:09:27 verbose #49871 > │ | US0_0 -> (* Verbose *) │
00:09:27 verbose #49872 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:27 verbose #49873 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49874 > │ v124 │
00:09:27 verbose #49875 > │ v125 │
00:09:27 verbose #49876 > │ | US0_3 -> (* Warning *) │
00:09:27 verbose #49877 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:27 verbose #49878 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49879 > │ v130 │
00:09:27 verbose #49880 > │ v131 │
00:09:27 verbose #49881 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:27 verbose #49882 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:27 verbose #49883 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:27 verbose #49884 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:27 verbose #49885 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:27 verbose #49886 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:27 verbose #49887 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:27 verbose #49888 > │ v144 │
00:09:27 verbose #49889 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:27 verbose #49890 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:27 verbose #49891 > │ v147 │
00:09:27 verbose #49892 > │ #endif │
00:09:27 verbose #49893 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #49894 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #49895 > │ v73 │
00:09:27 verbose #49896 > │ #endif │
00:09:27 verbose #49897 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #49898 > │ v73 │
00:09:27 verbose #49899 > │ #endif │
00:09:27 verbose #49900 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #49901 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:27 verbose #49902 > │ v148 │
00:09:27 verbose #49903 > │ #endif │
00:09:27 verbose #49904 > │ |> fun x -> _v74 <- Some x │
00:09:27 verbose #49905 > │ let v149 : string = _v74.Value │
00:09:27 verbose #49906 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:27 verbose #49907 > │ let v151 : (char []) = [||] │
00:09:27 verbose #49908 > │ let v152 : string = v150.TrimStart v151 │
00:09:27 verbose #49909 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:27 verbose #49910 > │ let v154 : string = v152.TrimEnd v153 │
00:09:27 verbose #49911 > │ v154 │
00:09:27 verbose #49912 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:27 verbose #49913 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:27 verbose #49914 > │ closure3() │
00:09:27 verbose #49915 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:27 verbose #49916 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:27 verbose #49917 > │ Mut3) = State.trace_state.Value │
00:09:27 verbose #49918 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:27 verbose #49919 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:27 verbose #49920 > │ Mut3) = State.trace_state.Value │
00:09:27 verbose #49921 > │ let v13 : US0 = v10.l0 │
00:09:27 verbose #49922 > │ let v14 : bool = v9.l0 │
00:09:27 verbose #49923 > │ let v15 : bool = v14 = false │
00:09:27 verbose #49924 > │ let v19 : bool = │
00:09:27 verbose #49925 > │ if v15 then │
00:09:27 verbose #49926 > │ false │
00:09:27 verbose #49927 > │ else │
00:09:27 verbose #49928 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:27 verbose #49929 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:27 verbose #49930 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:27 verbose #49931 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:27 verbose #49932 > │ let v18 : bool = v16 >= v17 │
00:09:27 verbose #49933 > │ v18 │
00:09:27 verbose #49934 > │ if v19 then │
00:09:27 verbose #49935 > │ let v20 : int64 = v3.l0 │
00:09:27 verbose #49936 > │ let v21 : int64 = v20 + 1L │
00:09:27 verbose #49937 > │ v3.l0 <- v21 │
00:09:27 verbose #49938 > │ let v22 : string = $"%s{v1 ()}" │
00:09:27 verbose #49939 > │ let v23 : unit option = None │
00:09:27 verbose #49940 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:27 verbose #49941 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #49942 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:27 verbose #49943 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:27 verbose #49944 > │ () │
00:09:27 verbose #49945 > │ #endif │
00:09:27 verbose #49946 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #49947 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:27 verbose #49948 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:27 verbose #49949 > │ () │
00:09:27 verbose #49950 > │ #endif │
00:09:27 verbose #49951 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #49952 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:27 verbose #49953 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:27 verbose #49954 > │ () │
00:09:27 verbose #49955 > │ #endif │
00:09:27 verbose #49956 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #49957 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #49958 > │ System.Console.WriteLine v22 │
00:09:27 verbose #49959 > │ () │
00:09:27 verbose #49960 > │ #endif │
00:09:27 verbose #49961 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #49962 > │ System.Console.WriteLine v22 │
00:09:27 verbose #49963 > │ () │
00:09:27 verbose #49964 > │ #endif │
00:09:27 verbose #49965 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:27 verbose #49966 > │ FABLE_COMPILER_DART │
00:09:27 verbose #49967 > │ Unchecked.defaultof<unit> │
00:09:27 verbose #49968 > │ () │
00:09:27 verbose #49969 > │ #endif │
00:09:27 verbose #49970 > │ |> fun x -> _v23 <- Some x │
00:09:27 verbose #49971 > │ _v23.Value │
00:09:27 verbose #49972 > │ let v28 : (string -> unit) = v7.l0 │
00:09:27 verbose #49973 > │ v28 v22 │
00:09:27 verbose #49974 > │ and method1 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:27 verbose #49975 > │ = │
00:09:27 verbose #49976 > │ let v3 : (unit -> string) = closure2(v0, v1, v2) │
00:09:27 verbose #49977 > │ method6(v0, v3) │
00:09:27 verbose #49978 > │ and closure6 () (v0 : bool) : US4 = │
00:09:27 verbose #49979 > │ US4_0(v0) │
00:09:27 verbose #49980 > │ and closure7 () (v0 : exn) : US4 = │
00:09:27 verbose #49981 > │ US4_1(v0) │
00:09:27 verbose #49982 > │ and closure8 () () : string = │
00:09:27 verbose #49983 > │ let v0 : string = "run_with_timeout_async" │
00:09:27 verbose #49984 > │ v0 │
00:09:27 verbose #49985 > │ and closure9 () () : string = │
00:09:27 verbose #49986 > │ let v0 : (unit -> string) = closure1() │
00:09:27 verbose #49987 > │ let v1 : string = $"timeout: {120} / {v0 ()}" │
00:09:27 verbose #49988 > │ v1 │
00:09:27 verbose #49989 > │ and closure10 (v0 : string) () : string = │
00:09:27 verbose #49990 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:27 verbose #49991 > │ v1 │
00:09:27 verbose #49992 > │ and method7 (v0 : bool) : bool = │
00:09:27 verbose #49993 > │ v0 │
00:09:27 verbose #49994 > │ and method0 () : unit = │
00:09:27 verbose #49995 > │ let v0 : Async<bool> option = None │
00:09:27 verbose #49996 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:27 verbose #49997 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #49998 > │ let v2 : Async<bool> = null |> unbox<Async<bool>> │
00:09:27 verbose #49999 > │ v2 │
00:09:27 verbose #50000 > │ #endif │
00:09:27 verbose #50001 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50002 > │ let v3 : Async<bool> = null |> unbox<Async<bool>> │
00:09:27 verbose #50003 > │ v3 │
00:09:27 verbose #50004 > │ #endif │
00:09:27 verbose #50005 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50006 > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:09:27 verbose #50007 > │ v4 │
00:09:27 verbose #50008 > │ #endif │
00:09:27 verbose #50009 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50010 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50011 > │ let v5 : Async<bool> option = None │
00:09:27 verbose #50012 > │ let mutable _v5 = v5 │
00:09:27 verbose #50013 > │ async { │
00:09:27 verbose #50014 > │ let v6 : Async<System.Threading.CancellationToken> = │
00:09:27 verbose #50015 > │ Async.CancellationToken │
00:09:27 verbose #50016 > │ let! v6 = v6 │
00:09:27 verbose #50017 > │ let v7 : System.Threading.CancellationToken = v6 │
00:09:27 verbose #50018 > │ let v8 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient │
00:09:27 verbose #50019 > │ () │
00:09:27 verbose #50020 > │ use v8 = v8 │
00:09:27 verbose #50021 > │ let v9 : System.Net.Sockets.TcpClient = v8 │
00:09:27 verbose #50022 > │ try │
00:09:27 verbose #50023 > │ let v10 : string = "127.0.0.1" │
00:09:27 verbose #50024 > │ let v11 : System.Threading.Tasks.ValueTask = v9.ConnectAsync (v10, │
00:09:27 verbose #50025 > │ 65536, v7) │
00:09:27 verbose #50026 > │ let v12 : (unit -> System.Threading.Tasks.Task) = v11.AsTask │
00:09:27 verbose #50027 > │ let v13 : System.Threading.Tasks.Task = v12 () │
00:09:27 verbose #50028 > │ let v14 : Async<unit> option = None │
00:09:27 verbose #50029 > │ let v15 : bool = true in let mutable _v14 = v14 │
00:09:27 verbose #50030 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50031 > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:09:27 verbose #50032 > │ v16 │
00:09:27 verbose #50033 > │ #endif │
00:09:27 verbose #50034 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50035 > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:09:27 verbose #50036 > │ v17 │
00:09:27 verbose #50037 > │ #endif │
00:09:27 verbose #50038 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50039 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:09:27 verbose #50040 > │ v18 │
00:09:27 verbose #50041 > │ #endif │
00:09:27 verbose #50042 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50043 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50044 > │ let v19 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:09:27 verbose #50045 > │ let v20 : Async<unit> = v19 v13 │
00:09:27 verbose #50046 > │ v20 │
00:09:27 verbose #50047 > │ #endif │
00:09:27 verbose #50048 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50049 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:09:27 verbose #50050 > │ v21 │
00:09:27 verbose #50051 > │ #endif │
00:09:27 verbose #50052 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50053 > │ let v22 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:27 verbose #50054 > │ v22 │
00:09:27 verbose #50055 > │ #endif │
00:09:27 verbose #50056 > │ |> fun x -> _v14 <- Some x │
00:09:27 verbose #50057 > │ let v23 : Async<unit> = _v14.Value │
00:09:27 verbose #50058 > │ do! v23 │
00:09:27 verbose #50059 > │ return true │
00:09:27 verbose #50060 > │ with ex -> │
00:09:27 verbose #50061 > │ let v24 : exn = ex │
00:09:27 verbose #50062 > │ let v25 : string option = None │
00:09:27 verbose #50063 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:27 verbose #50064 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50065 > │ let v27 : string = $"%A{v24}" │
00:09:27 verbose #50066 > │ v27 │
00:09:27 verbose #50067 > │ #endif │
00:09:27 verbose #50068 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50069 > │ let v28 : string = $"%A{v24}" │
00:09:27 verbose #50070 > │ v28 │
00:09:27 verbose #50071 > │ #endif │
00:09:27 verbose #50072 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50073 > │ let v29 : string = $"%A{v24}" │
00:09:27 verbose #50074 > │ v29 │
00:09:27 verbose #50075 > │ #endif │
00:09:27 verbose #50076 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50077 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50078 > │ let v30 : string = $"{v24.GetType ()}: {v24.Message}" │
00:09:27 verbose #50079 > │ v30 │
00:09:27 verbose #50080 > │ #endif │
00:09:27 verbose #50081 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50082 > │ let v31 : string = $"%A{v24}" │
00:09:27 verbose #50083 > │ v31 │
00:09:27 verbose #50084 > │ #endif │
00:09:27 verbose #50085 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50086 > │ let v32 : string = Unchecked.defaultof<string> │
00:09:27 verbose #50087 > │ v32 │
00:09:27 verbose #50088 > │ #endif │
00:09:27 verbose #50089 > │ |> fun x -> _v25 <- Some x │
00:09:27 verbose #50090 > │ let v33 : string = _v25.Value │
00:09:27 verbose #50091 > │ let v34 : US0 = US0_0 │
00:09:27 verbose #50092 > │ let v35 : (unit -> string) = closure0(v33) │
00:09:27 verbose #50093 > │ let v36 : (unit -> string) = closure1() │
00:09:27 verbose #50094 > │ method1(v34, v35, v36) │
00:09:27 verbose #50095 > │ return false │
00:09:27 verbose #50096 > │ (* │
00:09:27 verbose #50097 > │ let v37 : bool = *) │
00:09:27 verbose #50098 > │ } │
00:09:27 verbose #50099 > │ |> fun x -> _v5 <- Some x │
00:09:27 verbose #50100 > │ let v38 : Async<bool> = _v5 |> Option.get │
00:09:27 verbose #50101 > │ v38 │
00:09:27 verbose #50102 > │ #endif │
00:09:27 verbose #50103 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50104 > │ let v39 : Async<bool> = null |> unbox<Async<bool>> │
00:09:27 verbose #50105 > │ v39 │
00:09:27 verbose #50106 > │ #endif │
00:09:27 verbose #50107 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50108 > │ let v40 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:27 verbose #50109 > │ v40 │
00:09:27 verbose #50110 > │ #endif │
00:09:27 verbose #50111 > │ |> fun x -> _v0 <- Some x │
00:09:27 verbose #50112 > │ let v41 : Async<bool> = _v0.Value │
00:09:27 verbose #50113 > │ let v42 : Async<US3> option = None │
00:09:27 verbose #50114 > │ let v43 : bool = true in let mutable _v42 = v42 │
00:09:27 verbose #50115 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50116 > │ let v44 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50117 > │ v44 │
00:09:27 verbose #50118 > │ #endif │
00:09:27 verbose #50119 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50120 > │ let v45 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50121 > │ v45 │
00:09:27 verbose #50122 > │ #endif │
00:09:27 verbose #50123 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50124 > │ let v46 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50125 > │ v46 │
00:09:27 verbose #50126 > │ #endif │
00:09:27 verbose #50127 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50128 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50129 > │ let v47 : Async<US3> option = None │
00:09:27 verbose #50130 > │ let v48 : bool = true in let mutable _v47 = v47 │
00:09:27 verbose #50131 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50132 > │ let v49 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50133 > │ v49 │
00:09:27 verbose #50134 > │ #endif │
00:09:27 verbose #50135 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50136 > │ let v50 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50137 > │ v50 │
00:09:27 verbose #50138 > │ #endif │
00:09:27 verbose #50139 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50140 > │ let v51 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50141 > │ v51 │
00:09:27 verbose #50142 > │ #endif │
00:09:27 verbose #50143 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50144 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50145 > │ let v52 : Async<US3> option = None │
00:09:27 verbose #50146 > │ let mutable _v52 = v52 │
00:09:27 verbose #50147 > │ async { │
00:09:27 verbose #50148 > │ let v53 : Async<Async<bool>> option = None │
00:09:27 verbose #50149 > │ let v54 : bool = true in let mutable _v53 = v53 │
00:09:27 verbose #50150 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50151 > │ let v55 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:27 verbose #50152 > │ v55 │
00:09:27 verbose #50153 > │ #endif │
00:09:27 verbose #50154 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50155 > │ let v56 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:27 verbose #50156 > │ v56 │
00:09:27 verbose #50157 > │ #endif │
00:09:27 verbose #50158 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50159 > │ let v57 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:27 verbose #50160 > │ v57 │
00:09:27 verbose #50161 > │ #endif │
00:09:27 verbose #50162 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50163 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50164 > │ let v58 : Async<Async<bool>> = Async.StartChild (v41, 120) │
00:09:27 verbose #50165 > │ v58 │
00:09:27 verbose #50166 > │ #endif │
00:09:27 verbose #50167 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50168 > │ let v59 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:27 verbose #50169 > │ v59 │
00:09:27 verbose #50170 > │ #endif │
00:09:27 verbose #50171 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50172 > │ let v60 : Async<Async<bool>> = Unchecked.defaultof<Async<Async<bool>>> │
00:09:27 verbose #50173 > │ v60 │
00:09:27 verbose #50174 > │ #endif │
00:09:27 verbose #50175 > │ |> fun x -> _v53 <- Some x │
00:09:27 verbose #50176 > │ let v61 : Async<Async<bool>> = _v53.Value │
00:09:27 verbose #50177 > │ let! v61 = v61 │
00:09:27 verbose #50178 > │ let v62 : Async<bool> = v61 │
00:09:27 verbose #50179 > │ let v63 : Async<Choice<bool, exn>> option = None │
00:09:27 verbose #50180 > │ let v64 : bool = true in let mutable _v63 = v63 │
00:09:27 verbose #50181 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50182 > │ let v65 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:27 verbose #50183 > │ exn>>> │
00:09:27 verbose #50184 > │ v65 │
00:09:27 verbose #50185 > │ #endif │
00:09:27 verbose #50186 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50187 > │ let v66 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:27 verbose #50188 > │ exn>>> │
00:09:27 verbose #50189 > │ v66 │
00:09:27 verbose #50190 > │ #endif │
00:09:27 verbose #50191 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50192 > │ let v67 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:27 verbose #50193 > │ exn>>> │
00:09:27 verbose #50194 > │ v67 │
00:09:27 verbose #50195 > │ #endif │
00:09:27 verbose #50196 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50197 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50198 > │ let v68 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch │
00:09:27 verbose #50199 > │ let v69 : Async<Choice<bool, exn>> = v68 v62 │
00:09:27 verbose #50200 > │ v69 │
00:09:27 verbose #50201 > │ #endif │
00:09:27 verbose #50202 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50203 > │ let v70 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:27 verbose #50204 > │ exn>>> │
00:09:27 verbose #50205 > │ v70 │
00:09:27 verbose #50206 > │ #endif │
00:09:27 verbose #50207 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50208 > │ let v71 : Async<Choice<bool, exn>> = │
00:09:27 verbose #50209 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:27 verbose #50210 > │ v71 │
00:09:27 verbose #50211 > │ #endif │
00:09:27 verbose #50212 > │ |> fun x -> _v63 <- Some x │
00:09:27 verbose #50213 > │ let v72 : Async<Choice<bool, exn>> = _v63.Value │
00:09:27 verbose #50214 > │ let v73 : Async<US4> option = None │
00:09:27 verbose #50215 > │ let v74 : bool = true in let mutable _v73 = v73 │
00:09:27 verbose #50216 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50217 > │ let v75 : Async<US4> = null |> unbox<Async<US4>> │
00:09:27 verbose #50218 > │ v75 │
00:09:27 verbose #50219 > │ #endif │
00:09:27 verbose #50220 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50221 > │ let v76 : Async<US4> = null |> unbox<Async<US4>> │
00:09:27 verbose #50222 > │ v76 │
00:09:27 verbose #50223 > │ #endif │
00:09:27 verbose #50224 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50225 > │ let v77 : Async<US4> = null |> unbox<Async<US4>> │
00:09:27 verbose #50226 > │ v77 │
00:09:27 verbose #50227 > │ #endif │
00:09:27 verbose #50228 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50229 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50230 > │ let v78 : Async<US4> option = None │
00:09:27 verbose #50231 > │ let mutable _v78 = v78 │
00:09:27 verbose #50232 > │ async { │
00:09:27 verbose #50233 > │ let! v72 = v72 │
00:09:27 verbose #50234 > │ let v79 : Choice<bool, exn> = v72 │
00:09:27 verbose #50235 > │ let v80 : US4 option = None │
00:09:27 verbose #50236 > │ let v81 : bool = true in let mutable _v80 = v80 │
00:09:27 verbose #50237 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50238 > │ let v82 : US4 = null |> unbox<US4> │
00:09:27 verbose #50239 > │ v82 │
00:09:27 verbose #50240 > │ #endif │
00:09:27 verbose #50241 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50242 > │ let v83 : US4 = null |> unbox<US4> │
00:09:27 verbose #50243 > │ v83 │
00:09:27 verbose #50244 > │ #endif │
00:09:27 verbose #50245 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50246 > │ let v84 : US4 = null |> unbox<US4> │
00:09:27 verbose #50247 > │ v84 │
00:09:27 verbose #50248 > │ #endif │
00:09:27 verbose #50249 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50250 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50251 > │ let v85 : (bool -> US4) = closure6() │
00:09:27 verbose #50252 > │ let v86 : (exn -> US4) = closure7() │
00:09:27 verbose #50253 > │ let v87 : US4 = match v79 with Choice1Of2 x -> v85 x | Choice2Of2 x -> │
00:09:27 verbose #50254 > │ v86 x │
00:09:27 verbose #50255 > │ v87 │
00:09:27 verbose #50256 > │ #endif │
00:09:27 verbose #50257 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50258 > │ let v88 : US4 = null |> unbox<US4> │
00:09:27 verbose #50259 > │ v88 │
00:09:27 verbose #50260 > │ #endif │
00:09:27 verbose #50261 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50262 > │ let v89 : US4 = Unchecked.defaultof<US4> │
00:09:27 verbose #50263 > │ v89 │
00:09:27 verbose #50264 > │ #endif │
00:09:27 verbose #50265 > │ |> fun x -> _v80 <- Some x │
00:09:27 verbose #50266 > │ let v90 : US4 = _v80.Value │
00:09:27 verbose #50267 > │ return v90 │
00:09:27 verbose #50268 > │ } │
00:09:27 verbose #50269 > │ |> fun x -> _v78 <- Some x │
00:09:27 verbose #50270 > │ let v91 : Async<US4> = _v78 |> Option.get │
00:09:27 verbose #50271 > │ v91 │
00:09:27 verbose #50272 > │ #endif │
00:09:27 verbose #50273 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50274 > │ let v92 : Async<US4> = null |> unbox<Async<US4>> │
00:09:27 verbose #50275 > │ v92 │
00:09:27 verbose #50276 > │ #endif │
00:09:27 verbose #50277 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50278 > │ let v93 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:27 verbose #50279 > │ v93 │
00:09:27 verbose #50280 > │ #endif │
00:09:27 verbose #50281 > │ |> fun x -> _v73 <- Some x │
00:09:27 verbose #50282 > │ let v94 : Async<US4> = _v73.Value │
00:09:27 verbose #50283 > │ let v95 : Async<US5> option = None │
00:09:27 verbose #50284 > │ let v96 : bool = true in let mutable _v95 = v95 │
00:09:27 verbose #50285 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50286 > │ let v97 : Async<US5> = null |> unbox<Async<US5>> │
00:09:27 verbose #50287 > │ v97 │
00:09:27 verbose #50288 > │ #endif │
00:09:27 verbose #50289 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50290 > │ let v98 : Async<US5> = null |> unbox<Async<US5>> │
00:09:27 verbose #50291 > │ v98 │
00:09:27 verbose #50292 > │ #endif │
00:09:27 verbose #50293 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50294 > │ let v99 : Async<US5> = null |> unbox<Async<US5>> │
00:09:27 verbose #50295 > │ v99 │
00:09:27 verbose #50296 > │ #endif │
00:09:27 verbose #50297 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50298 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50299 > │ let v100 : Async<US5> option = None │
00:09:27 verbose #50300 > │ let mutable _v100 = v100 │
00:09:27 verbose #50301 > │ async { │
00:09:27 verbose #50302 > │ let! v94 = v94 │
00:09:27 verbose #50303 > │ let v101 : US4 = v94 │
00:09:27 verbose #50304 > │ let v107 : US5 = │
00:09:27 verbose #50305 > │ match v101 with │
00:09:27 verbose #50306 > │ | US4_0(v102) -> (* Choice1Of2 *) │
00:09:27 verbose #50307 > │ US5_0(v102) │
00:09:27 verbose #50308 > │ | US4_1(v104) -> (* Choice2Of2 *) │
00:09:27 verbose #50309 > │ US5_1(v104) │
00:09:27 verbose #50310 > │ return v107 │
00:09:27 verbose #50311 > │ } │
00:09:27 verbose #50312 > │ |> fun x -> _v100 <- Some x │
00:09:27 verbose #50313 > │ let v108 : Async<US5> = _v100 |> Option.get │
00:09:27 verbose #50314 > │ v108 │
00:09:27 verbose #50315 > │ #endif │
00:09:27 verbose #50316 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50317 > │ let v109 : Async<US5> = null |> unbox<Async<US5>> │
00:09:27 verbose #50318 > │ v109 │
00:09:27 verbose #50319 > │ #endif │
00:09:27 verbose #50320 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50321 > │ let v110 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:27 verbose #50322 > │ v110 │
00:09:27 verbose #50323 > │ #endif │
00:09:27 verbose #50324 > │ |> fun x -> _v95 <- Some x │
00:09:27 verbose #50325 > │ let v111 : Async<US5> = _v95.Value │
00:09:27 verbose #50326 > │ let v112 : Async<US3> option = None │
00:09:27 verbose #50327 > │ let v113 : bool = true in let mutable _v112 = v112 │
00:09:27 verbose #50328 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50329 > │ let v114 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50330 > │ v114 │
00:09:27 verbose #50331 > │ #endif │
00:09:27 verbose #50332 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50333 > │ let v115 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50334 > │ v115 │
00:09:27 verbose #50335 > │ #endif │
00:09:27 verbose #50336 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50337 > │ let v116 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50338 > │ v116 │
00:09:27 verbose #50339 > │ #endif │
00:09:27 verbose #50340 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50341 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50342 > │ let v117 : Async<US3> option = None │
00:09:27 verbose #50343 > │ let mutable _v117 = v117 │
00:09:27 verbose #50344 > │ async { │
00:09:27 verbose #50345 > │ let! v111 = v111 │
00:09:27 verbose #50346 > │ let v118 : US5 = v111 │
00:09:27 verbose #50347 > │ let v144 : US3 = │
00:09:27 verbose #50348 > │ match v118 with │
00:09:27 verbose #50349 > │ | US5_1(v121) -> (* Error *) │
00:09:27 verbose #50350 > │ let v122 : string = $"%A{v121}" │
00:09:27 verbose #50351 > │ let v123 : string = "System.TimeoutException" │
00:09:27 verbose #50352 > │ let v124 : bool = v122.Contains v123 │
00:09:27 verbose #50353 > │ if v124 then │
00:09:27 verbose #50354 > │ let v125 : US0 = US0_1 │
00:09:27 verbose #50355 > │ let v126 : (unit -> string) = closure8() │
00:09:27 verbose #50356 > │ let v127 : (unit -> string) = closure9() │
00:09:27 verbose #50357 > │ method1(v125, v126, v127) │
00:09:27 verbose #50358 > │ US3_1 │
00:09:27 verbose #50359 > │ else │
00:09:27 verbose #50360 > │ let v129 : string option = None │
00:09:27 verbose #50361 > │ let v130 : bool = true in let mutable _v129 = v129 │
00:09:27 verbose #50362 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50363 > │ let v131 : string = $"%A{v121}" │
00:09:27 verbose #50364 > │ v131 │
00:09:27 verbose #50365 > │ #endif │
00:09:27 verbose #50366 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50367 > │ let v132 : string = $"%A{v121}" │
00:09:27 verbose #50368 > │ v132 │
00:09:27 verbose #50369 > │ #endif │
00:09:27 verbose #50370 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50371 > │ let v133 : string = $"%A{v121}" │
00:09:27 verbose #50372 > │ v133 │
00:09:27 verbose #50373 > │ #endif │
00:09:27 verbose #50374 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50375 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50376 > │ let v134 : string = $"{v121.GetType ()}: {v121.Message}" │
00:09:27 verbose #50377 > │ v134 │
00:09:27 verbose #50378 > │ #endif │
00:09:27 verbose #50379 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50380 > │ let v135 : string = $"%A{v121}" │
00:09:27 verbose #50381 > │ v135 │
00:09:27 verbose #50382 > │ #endif │
00:09:27 verbose #50383 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:27 verbose #50384 > │ FABLE_COMPILER_DART │
00:09:27 verbose #50385 > │ let v136 : string = Unchecked.defaultof<string> │
00:09:27 verbose #50386 > │ v136 │
00:09:27 verbose #50387 > │ #endif │
00:09:27 verbose #50388 > │ |> fun x -> _v129 <- Some x │
00:09:27 verbose #50389 > │ let v137 : string = _v129.Value │
00:09:27 verbose #50390 > │ let v138 : US0 = US0_4 │
00:09:27 verbose #50391 > │ let v139 : (unit -> string) = closure10(v137) │
00:09:27 verbose #50392 > │ let v140 : (unit -> string) = closure9() │
00:09:27 verbose #50393 > │ method1(v138, v139, v140) │
00:09:27 verbose #50394 > │ US3_1 │
00:09:27 verbose #50395 > │ | US5_0(v119) -> (* Ok *) │
00:09:27 verbose #50396 > │ US3_0(v119) │
00:09:27 verbose #50397 > │ return v144 │
00:09:27 verbose #50398 > │ } │
00:09:27 verbose #50399 > │ |> fun x -> _v117 <- Some x │
00:09:27 verbose #50400 > │ let v145 : Async<US3> = _v117 |> Option.get │
00:09:27 verbose #50401 > │ v145 │
00:09:27 verbose #50402 > │ #endif │
00:09:27 verbose #50403 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50404 > │ let v146 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50405 > │ v146 │
00:09:27 verbose #50406 > │ #endif │
00:09:27 verbose #50407 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50408 > │ let v147 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:27 verbose #50409 > │ v147 │
00:09:27 verbose #50410 > │ #endif │
00:09:27 verbose #50411 > │ |> fun x -> _v112 <- Some x │
00:09:27 verbose #50412 > │ let v148 : Async<US3> = _v112.Value │
00:09:27 verbose #50413 > │ return! v148 │
00:09:27 verbose #50414 > │ } │
00:09:27 verbose #50415 > │ |> fun x -> _v52 <- Some x │
00:09:27 verbose #50416 > │ let v149 : Async<US3> = _v52 |> Option.get │
00:09:27 verbose #50417 > │ v149 │
00:09:27 verbose #50418 > │ #endif │
00:09:27 verbose #50419 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50420 > │ let v150 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50421 > │ v150 │
00:09:27 verbose #50422 > │ #endif │
00:09:27 verbose #50423 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50424 > │ let v151 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:27 verbose #50425 > │ v151 │
00:09:27 verbose #50426 > │ #endif │
00:09:27 verbose #50427 > │ |> fun x -> _v47 <- Some x │
00:09:27 verbose #50428 > │ let v152 : Async<US3> = _v47.Value │
00:09:27 verbose #50429 > │ v152 │
00:09:27 verbose #50430 > │ #endif │
00:09:27 verbose #50431 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50432 > │ let v153 : Async<US3> = null |> unbox<Async<US3>> │
00:09:27 verbose #50433 > │ v153 │
00:09:27 verbose #50434 > │ #endif │
00:09:27 verbose #50435 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50436 > │ let v154 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:27 verbose #50437 > │ v154 │
00:09:27 verbose #50438 > │ #endif │
00:09:27 verbose #50439 > │ |> fun x -> _v42 <- Some x │
00:09:27 verbose #50440 > │ let v155 : Async<US3> = _v42.Value │
00:09:27 verbose #50441 > │ let v156 : US3 option = None │
00:09:27 verbose #50442 > │ let v157 : bool = true in let mutable _v156 = v156 │
00:09:27 verbose #50443 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:27 verbose #50444 > │ let v158 : US3 = null |> unbox<US3> │
00:09:27 verbose #50445 > │ v158 │
00:09:27 verbose #50446 > │ #endif │
00:09:27 verbose #50447 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:27 verbose #50448 > │ let v159 : US3 = null |> unbox<US3> │
00:09:27 verbose #50449 > │ v159 │
00:09:27 verbose #50450 > │ #endif │
00:09:27 verbose #50451 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:27 verbose #50452 > │ let v160 : US3 = null |> unbox<US3> │
00:09:27 verbose #50453 > │ v160 │
00:09:27 verbose #50454 > │ #endif │
00:09:27 verbose #50455 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:27 verbose #50456 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:27 verbose #50457 > │ let v161 : (Async<US3> -> US3) = Async.RunSynchronously │
00:09:27 verbose #50458 > │ let v162 : US3 = v161 v155 │
00:09:27 verbose #50459 > │ v162 │
00:09:27 verbose #50460 > │ #endif │
00:09:27 verbose #50461 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:27 verbose #50462 > │ let v163 : US3 = null |> unbox<US3> │
00:09:27 verbose #50463 > │ v163 │
00:09:27 verbose #50464 > │ #endif │
00:09:27 verbose #50465 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:27 verbose #50466 > │ let v164 : US3 = Unchecked.defaultof<US3> │
00:09:27 verbose #50467 > │ v164 │
00:09:27 verbose #50468 > │ #endif │
00:09:27 verbose #50469 > │ |> fun x -> _v156 <- Some x │
00:09:27 verbose #50470 > │ let v165 : US3 = _v156.Value │
00:09:27 verbose #50471 > │ let v166 : string = $"%A{v165}" │
00:09:27 verbose #50472 > │ System.Console.WriteLine v166 │
00:09:27 verbose #50473 > │ let v170 : bool = │
00:09:27 verbose #50474 > │ match v165 with │
00:09:27 verbose #50475 > │ | US3_0(v168) -> (* Some *) │
00:09:27 verbose #50476 > │ let v169 : bool = v168 = false │
00:09:27 verbose #50477 > │ v169 │
00:09:27 verbose #50478 > │ | _ -> │
00:09:27 verbose #50479 > │ false │
00:09:27 verbose #50480 > │ let v172 : bool = │
00:09:27 verbose #50481 > │ if v170 then │
00:09:27 verbose #50482 > │ true │
00:09:27 verbose #50483 > │ else │
00:09:27 verbose #50484 > │ method7(v170) │
00:09:27 verbose #50485 > │ let v173 : US3 = US3_0(false) │
00:09:27 verbose #50486 > │ let v174 : string = $"__expect / actual: %A{v165} / expected: %A{v173}" │
00:09:27 verbose #50487 > │ let v175 : bool = v172 = false │
00:09:27 verbose #50488 > │ if v175 then │
00:09:27 verbose #50489 > │ failwith<unit> v174 │
00:09:27 verbose #50490 > │ method0() │
00:09:27 verbose #50491 > │ │
00:09:27 verbose #50492 > │ 00:00:00 verbose #1 test_port_open / ex: System.ArgumentOutOfRangeException: │
00:09:27 verbose #50493 > │ Specified argument was out of the range of valid values. (Parameter 'port') │
00:09:27 verbose #50494 > │ US3_0 false │
00:09:27 verbose #50495 > │ │
00:09:27 verbose #50496 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:27 verbose #50497 >
00:09:27 verbose #50498 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:27 verbose #50499 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:27 verbose #50500 > │ ## test_port_open_timeout │
00:09:27 verbose #50501 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:27 verbose #50502 >
00:09:27 verbose #50503 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:27 verbose #50504 > inl test_port_open_timeout timeout port : _ bool = async.new_async_unit fun ()
00:09:27 verbose #50505 > =>
00:09:27 verbose #50506 > inl result =
00:09:27 verbose #50507 > test_port_open port
00:09:27 verbose #50508 > |> async.run_with_timeout_async timeout
00:09:27 verbose #50509 > |> async.let'
00:09:27 verbose #50510 > match result with
00:09:27 verbose #50511 > | None => false
00:09:27 verbose #50512 > | Some result => result
00:09:27 verbose #50513 > |> return
00:09:27 verbose #50514 > 00:09:26 debug #735 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3589fa9f0b373fdc1978620b4536060925deb1206260d7c54fb57737247abead/main.spi
00:09:27 verbose #50515 >
00:09:27 verbose #50516 > ╭─[ 258.58ms - stdout ]────────────────────────────────────────────────────────╮
00:09:27 verbose #50517 > │ () │
00:09:27 verbose #50518 > │ │
00:09:27 verbose #50519 > │ │
00:09:27 verbose #50520 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:27 verbose #50521 >
00:09:27 verbose #50522 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:27 verbose #50523 > // // test
00:09:27 verbose #50524 >
00:09:27 verbose #50525 > test_port_open_timeout 120 65535
00:09:27 verbose #50526 > |> async.run_synchronously
00:09:27 verbose #50527 > |> _assert_eq false
00:09:27 verbose #50528 > 00:09:27 debug #736 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/61f8c7a3874104bee0720d59ed9d02c206488279c6d07e7e18709c06584f0190/main.spi
00:09:28 verbose #50529 >
00:09:28 verbose #50530 > ╭─[ 942.00ms - stdout ]────────────────────────────────────────────────────────╮
00:09:28 verbose #50531 > │ module State = let mutable trace_state = None │
00:09:28 verbose #50532 > │ type [<Struct>] US0 = │
00:09:28 verbose #50533 > │ | US0_0 │
00:09:28 verbose #50534 > │ | US0_1 │
00:09:28 verbose #50535 > │ | US0_2 │
00:09:28 verbose #50536 > │ | US0_3 │
00:09:28 verbose #50537 > │ | US0_4 │
00:09:28 verbose #50538 > │ and Mut0 = {mutable l0 : int64} │
00:09:28 verbose #50539 > │ and Mut1 = {mutable l0 : bool} │
00:09:28 verbose #50540 > │ and Mut2 = {mutable l0 : US0} │
00:09:28 verbose #50541 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:28 verbose #50542 > │ and [<Struct>] US1 = │
00:09:28 verbose #50543 > │ | US1_0 of f0_0 : int64 │
00:09:28 verbose #50544 > │ | US1_1 │
00:09:28 verbose #50545 > │ and [<Struct>] US2 = │
00:09:28 verbose #50546 > │ | US2_0 of f0_0 : int64 │
00:09:28 verbose #50547 > │ | US2_1 │
00:09:28 verbose #50548 > │ and [<Struct>] US3 = │
00:09:28 verbose #50549 > │ | US3_0 of f0_0 : bool │
00:09:28 verbose #50550 > │ | US3_1 │
00:09:28 verbose #50551 > │ and [<Struct>] US4 = │
00:09:28 verbose #50552 > │ | US4_0 of f0_0 : bool │
00:09:28 verbose #50553 > │ | US4_1 of f1_0 : exn │
00:09:28 verbose #50554 > │ and [<Struct>] US5 = │
00:09:28 verbose #50555 > │ | US5_0 of f0_0 : bool │
00:09:28 verbose #50556 > │ | US5_1 of f1_0 : exn │
00:09:28 verbose #50557 > │ let rec closure0 (v0 : string) () : string = │
00:09:28 verbose #50558 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:28 verbose #50559 > │ v1 │
00:09:28 verbose #50560 > │ and closure1 () () : string = │
00:09:28 verbose #50561 > │ let v0 : string = "" │
00:09:28 verbose #50562 > │ v0 │
00:09:28 verbose #50563 > │ and closure4 () (v0 : string) : unit = │
00:09:28 verbose #50564 > │ () │
00:09:28 verbose #50565 > │ and method2 (v0 : int64 option) : int64 option = │
00:09:28 verbose #50566 > │ v0 │
00:09:28 verbose #50567 > │ and method3 (v0 : int64 option) : int64 option = │
00:09:28 verbose #50568 > │ v0 │
00:09:28 verbose #50569 > │ and closure3 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:28 verbose #50570 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:28 verbose #50571 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:28 verbose #50572 > │ let v2 : US0 = US0_0 │
00:09:28 verbose #50573 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:28 verbose #50574 > │ let v4 : (string -> unit) = closure4() │
00:09:28 verbose #50575 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:28 verbose #50576 > │ let v6 : int64 option option = None │
00:09:28 verbose #50577 > │ let mutable _v6 = v6 │
00:09:28 verbose #50578 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:28 verbose #50579 > │ let v7 : string option = None │
00:09:28 verbose #50580 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:28 verbose #50581 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #50582 > │ let v9 : string = null |> unbox<string> │
00:09:28 verbose #50583 > │ v9 │
00:09:28 verbose #50584 > │ #endif │
00:09:28 verbose #50585 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #50586 > │ let v10 : string = null |> unbox<string> │
00:09:28 verbose #50587 > │ v10 │
00:09:28 verbose #50588 > │ #endif │
00:09:28 verbose #50589 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #50590 > │ let v11 : string = null |> unbox<string> │
00:09:28 verbose #50591 > │ v11 │
00:09:28 verbose #50592 > │ #endif │
00:09:28 verbose #50593 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #50594 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #50595 > │ let v12 : string = │
00:09:28 verbose #50596 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:28 verbose #50597 > │ v12 │
00:09:28 verbose #50598 > │ #endif │
00:09:28 verbose #50599 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #50600 > │ let v13 : string = null |> unbox<string> │
00:09:28 verbose #50601 > │ v13 │
00:09:28 verbose #50602 > │ #endif │
00:09:28 verbose #50603 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #50604 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:28 verbose #50605 > │ v14 │
00:09:28 verbose #50606 > │ #endif │
00:09:28 verbose #50607 > │ |> fun x -> _v7 <- Some x │
00:09:28 verbose #50608 > │ let v15 : string = _v7.Value │
00:09:28 verbose #50609 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:28 verbose #50610 > │ let v18 : bool = v17 <> true │
00:09:28 verbose #50611 > │ let v24 : US1 = │
00:09:28 verbose #50612 > │ if v18 then │
00:09:28 verbose #50613 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:28 verbose #50614 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:28 verbose #50615 > │ let v21 : int64 = v20 v19 │
00:09:28 verbose #50616 > │ US1_0(v21) │
00:09:28 verbose #50617 > │ else │
00:09:28 verbose #50618 > │ US1_1 │
00:09:28 verbose #50619 > │ let v29 : int64 option = │
00:09:28 verbose #50620 > │ match v24 with │
00:09:28 verbose #50621 > │ | US1_1 -> (* None *) │
00:09:28 verbose #50622 > │ let v27 : int64 option = None │
00:09:28 verbose #50623 > │ v27 │
00:09:28 verbose #50624 > │ | US1_0(v25) -> (* Some *) │
00:09:28 verbose #50625 > │ let v26 : int64 option = Some v25 │
00:09:28 verbose #50626 > │ v26 │
00:09:28 verbose #50627 > │ let v30 : int64 option = method2(v29) │
00:09:28 verbose #50628 > │ v30 │
00:09:28 verbose #50629 > │ #else │
00:09:28 verbose #50630 > │ let v31 : int64 option = None │
00:09:28 verbose #50631 > │ let v32 : int64 option = method3(v31) │
00:09:28 verbose #50632 > │ v32 │
00:09:28 verbose #50633 > │ #endif │
00:09:28 verbose #50634 > │ |> fun x -> _v6 <- Some x │
00:09:28 verbose #50635 > │ let v33 : int64 option = _v6.Value │
00:09:28 verbose #50636 > │ struct (v1, v0, v3, v33, v5) │
00:09:28 verbose #50637 > │ and closure5 () (v0 : int64) : US2 = │
00:09:28 verbose #50638 > │ US2_0(v0) │
00:09:28 verbose #50639 > │ and method4 () : (int64 -> US2) = │
00:09:28 verbose #50640 > │ closure5() │
00:09:28 verbose #50641 > │ and method5 () : string = │
00:09:28 verbose #50642 > │ let v0 : string = "" │
00:09:28 verbose #50643 > │ v0 │
00:09:28 verbose #50644 > │ and closure2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:28 verbose #50645 > │ string = │
00:09:28 verbose #50646 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:28 verbose #50647 > │ closure3() │
00:09:28 verbose #50648 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:28 verbose #50649 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:28 verbose #50650 > │ Mut3) = State.trace_state.Value │
00:09:28 verbose #50651 > │ let v9 : string option = None │
00:09:28 verbose #50652 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:28 verbose #50653 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #50654 > │ let v11 : (int64 -> US2) = method4() │
00:09:28 verbose #50655 > │ let v12 : US2 = US2_1 │
00:09:28 verbose #50656 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:28 verbose #50657 > │ let v31 : System.DateTime = │
00:09:28 verbose #50658 > │ match v13 with │
00:09:28 verbose #50659 > │ | US2_1 -> (* None *) │
00:09:28 verbose #50660 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:28 verbose #50661 > │ v29 │
00:09:28 verbose #50662 > │ | US2_0(v14) -> (* Some *) │
00:09:28 verbose #50663 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:28 verbose #50664 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:28 verbose #50665 > │ let v17 : int64 = v16 v15 │
00:09:28 verbose #50666 > │ let v18 : int64 = v17 - v14 │
00:09:28 verbose #50667 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:28 verbose #50668 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:28 verbose #50669 > │ let v21 : int32 = v20 v19 │
00:09:28 verbose #50670 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:28 verbose #50671 > │ let v23 : int32 = v22 v19 │
00:09:28 verbose #50672 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:28 verbose #50673 > │ let v25 : int32 = v24 v19 │
00:09:28 verbose #50674 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:28 verbose #50675 > │ let v27 : int32 = v26 v19 │
00:09:28 verbose #50676 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:28 verbose #50677 > │ v25, v27) │
00:09:28 verbose #50678 > │ v28 │
00:09:28 verbose #50679 > │ let v32 : string = "hh:mm:ss" │
00:09:28 verbose #50680 > │ let v33 : string = v31.ToString v32 │
00:09:28 verbose #50681 > │ v33 │
00:09:28 verbose #50682 > │ #endif │
00:09:28 verbose #50683 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #50684 > │ let v34 : string = method5() │
00:09:28 verbose #50685 > │ v34 │
00:09:28 verbose #50686 > │ #endif │
00:09:28 verbose #50687 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #50688 > │ let v35 : string = method5() │
00:09:28 verbose #50689 > │ v35 │
00:09:28 verbose #50690 > │ #endif │
00:09:28 verbose #50691 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #50692 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #50693 > │ let v36 : (int64 -> US2) = method4() │
00:09:28 verbose #50694 > │ let v37 : US2 = US2_1 │
00:09:28 verbose #50695 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:28 verbose #50696 > │ let v56 : System.DateTime = │
00:09:28 verbose #50697 > │ match v38 with │
00:09:28 verbose #50698 > │ | US2_1 -> (* None *) │
00:09:28 verbose #50699 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:28 verbose #50700 > │ v54 │
00:09:28 verbose #50701 > │ | US2_0(v39) -> (* Some *) │
00:09:28 verbose #50702 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:28 verbose #50703 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:28 verbose #50704 > │ let v42 : int64 = v41 v40 │
00:09:28 verbose #50705 > │ let v43 : int64 = v42 - v39 │
00:09:28 verbose #50706 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:28 verbose #50707 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:28 verbose #50708 > │ let v46 : int32 = v45 v44 │
00:09:28 verbose #50709 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:28 verbose #50710 > │ let v48 : int32 = v47 v44 │
00:09:28 verbose #50711 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:28 verbose #50712 > │ let v50 : int32 = v49 v44 │
00:09:28 verbose #50713 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:28 verbose #50714 > │ let v52 : int32 = v51 v44 │
00:09:28 verbose #50715 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:28 verbose #50716 > │ v50, v52) │
00:09:28 verbose #50717 > │ v53 │
00:09:28 verbose #50718 > │ let v57 : string = "HH:mm:ss" │
00:09:28 verbose #50719 > │ let v58 : string = v56.ToString v57 │
00:09:28 verbose #50720 > │ v58 │
00:09:28 verbose #50721 > │ #endif │
00:09:28 verbose #50722 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #50723 > │ let v59 : string = method5() │
00:09:28 verbose #50724 > │ v59 │
00:09:28 verbose #50725 > │ #endif │
00:09:28 verbose #50726 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #50727 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:28 verbose #50728 > │ v60 │
00:09:28 verbose #50729 > │ #endif │
00:09:28 verbose #50730 > │ |> fun x -> _v9 <- Some x │
00:09:28 verbose #50731 > │ let v61 : string = _v9.Value │
00:09:28 verbose #50732 > │ let v62 : int64 = v4.l0 │
00:09:28 verbose #50733 > │ let v72 : string = │
00:09:28 verbose #50734 > │ match v0 with │
00:09:28 verbose #50735 > │ | US0_4 -> (* Critical *) │
00:09:28 verbose #50736 > │ let v67 : string = "Critical" │
00:09:28 verbose #50737 > │ v67 │
00:09:28 verbose #50738 > │ | US0_1 -> (* Debug *) │
00:09:28 verbose #50739 > │ let v64 : string = "Debug" │
00:09:28 verbose #50740 > │ v64 │
00:09:28 verbose #50741 > │ | US0_2 -> (* Info *) │
00:09:28 verbose #50742 > │ let v65 : string = "Info" │
00:09:28 verbose #50743 > │ v65 │
00:09:28 verbose #50744 > │ | US0_0 -> (* Verbose *) │
00:09:28 verbose #50745 > │ let v63 : string = "Verbose" │
00:09:28 verbose #50746 > │ v63 │
00:09:28 verbose #50747 > │ | US0_3 -> (* Warning *) │
00:09:28 verbose #50748 > │ let v66 : string = "Warning" │
00:09:28 verbose #50749 > │ v66 │
00:09:28 verbose #50750 > │ let v73 : string = v72.ToLower () │
00:09:28 verbose #50751 > │ let v74 : string option = None │
00:09:28 verbose #50752 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:28 verbose #50753 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #50754 > │ let v90 : Ref<Str> = │
00:09:28 verbose #50755 > │ match v0 with │
00:09:28 verbose #50756 > │ | US0_4 -> (* Critical *) │
00:09:28 verbose #50757 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:28 verbose #50758 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:28 verbose #50759 > │ v85 │
00:09:28 verbose #50760 > │ | US0_1 -> (* Debug *) │
00:09:28 verbose #50761 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:28 verbose #50762 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:28 verbose #50763 > │ v79 │
00:09:28 verbose #50764 > │ | US0_2 -> (* Info *) │
00:09:28 verbose #50765 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:28 verbose #50766 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:28 verbose #50767 > │ v81 │
00:09:28 verbose #50768 > │ | US0_0 -> (* Verbose *) │
00:09:28 verbose #50769 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:28 verbose #50770 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:28 verbose #50771 > │ v77 │
00:09:28 verbose #50772 > │ | US0_3 -> (* Warning *) │
00:09:28 verbose #50773 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:28 verbose #50774 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:28 verbose #50775 > │ v83 │
00:09:28 verbose #50776 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:28 verbose #50777 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:28 verbose #50778 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:28 verbose #50779 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:28 verbose #50780 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:28 verbose #50781 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:28 verbose #50782 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:28 verbose #50783 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:28 verbose #50784 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:28 verbose #50785 > │ v99 │
00:09:28 verbose #50786 > │ #endif │
00:09:28 verbose #50787 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #50788 > │ let v114 : Ref<Str> = │
00:09:28 verbose #50789 > │ match v0 with │
00:09:28 verbose #50790 > │ | US0_4 -> (* Critical *) │
00:09:28 verbose #50791 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:28 verbose #50792 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50793 > │ v108 │
00:09:28 verbose #50794 > │ v109 │
00:09:28 verbose #50795 > │ | US0_1 -> (* Debug *) │
00:09:28 verbose #50796 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:28 verbose #50797 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50798 > │ v102 │
00:09:28 verbose #50799 > │ v103 │
00:09:28 verbose #50800 > │ | US0_2 -> (* Info *) │
00:09:28 verbose #50801 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:28 verbose #50802 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50803 > │ v104 │
00:09:28 verbose #50804 > │ v105 │
00:09:28 verbose #50805 > │ | US0_0 -> (* Verbose *) │
00:09:28 verbose #50806 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:28 verbose #50807 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50808 > │ v100 │
00:09:28 verbose #50809 > │ v101 │
00:09:28 verbose #50810 > │ | US0_3 -> (* Warning *) │
00:09:28 verbose #50811 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:28 verbose #50812 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50813 > │ v106 │
00:09:28 verbose #50814 > │ v107 │
00:09:28 verbose #50815 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:28 verbose #50816 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:28 verbose #50817 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:28 verbose #50818 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:28 verbose #50819 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:28 verbose #50820 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:28 verbose #50821 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50822 > │ v120 │
00:09:28 verbose #50823 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:28 verbose #50824 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:28 verbose #50825 > │ v123 │
00:09:28 verbose #50826 > │ #endif │
00:09:28 verbose #50827 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #50828 > │ let v138 : Ref<Str> = │
00:09:28 verbose #50829 > │ match v0 with │
00:09:28 verbose #50830 > │ | US0_4 -> (* Critical *) │
00:09:28 verbose #50831 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:28 verbose #50832 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50833 > │ v132 │
00:09:28 verbose #50834 > │ v133 │
00:09:28 verbose #50835 > │ | US0_1 -> (* Debug *) │
00:09:28 verbose #50836 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:28 verbose #50837 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50838 > │ v126 │
00:09:28 verbose #50839 > │ v127 │
00:09:28 verbose #50840 > │ | US0_2 -> (* Info *) │
00:09:28 verbose #50841 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:28 verbose #50842 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50843 > │ v128 │
00:09:28 verbose #50844 > │ v129 │
00:09:28 verbose #50845 > │ | US0_0 -> (* Verbose *) │
00:09:28 verbose #50846 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:28 verbose #50847 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50848 > │ v124 │
00:09:28 verbose #50849 > │ v125 │
00:09:28 verbose #50850 > │ | US0_3 -> (* Warning *) │
00:09:28 verbose #50851 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:28 verbose #50852 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50853 > │ v130 │
00:09:28 verbose #50854 > │ v131 │
00:09:28 verbose #50855 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:28 verbose #50856 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:28 verbose #50857 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:28 verbose #50858 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:28 verbose #50859 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:28 verbose #50860 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:28 verbose #50861 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:28 verbose #50862 > │ v144 │
00:09:28 verbose #50863 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:28 verbose #50864 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:28 verbose #50865 > │ v147 │
00:09:28 verbose #50866 > │ #endif │
00:09:28 verbose #50867 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #50868 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #50869 > │ v73 │
00:09:28 verbose #50870 > │ #endif │
00:09:28 verbose #50871 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #50872 > │ v73 │
00:09:28 verbose #50873 > │ #endif │
00:09:28 verbose #50874 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #50875 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:28 verbose #50876 > │ v148 │
00:09:28 verbose #50877 > │ #endif │
00:09:28 verbose #50878 > │ |> fun x -> _v74 <- Some x │
00:09:28 verbose #50879 > │ let v149 : string = _v74.Value │
00:09:28 verbose #50880 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:28 verbose #50881 > │ let v151 : (char []) = [||] │
00:09:28 verbose #50882 > │ let v152 : string = v150.TrimStart v151 │
00:09:28 verbose #50883 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:28 verbose #50884 > │ let v154 : string = v152.TrimEnd v153 │
00:09:28 verbose #50885 > │ v154 │
00:09:28 verbose #50886 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:28 verbose #50887 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:28 verbose #50888 > │ closure3() │
00:09:28 verbose #50889 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:28 verbose #50890 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:28 verbose #50891 > │ Mut3) = State.trace_state.Value │
00:09:28 verbose #50892 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:28 verbose #50893 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:28 verbose #50894 > │ Mut3) = State.trace_state.Value │
00:09:28 verbose #50895 > │ let v13 : US0 = v10.l0 │
00:09:28 verbose #50896 > │ let v14 : bool = v9.l0 │
00:09:28 verbose #50897 > │ let v15 : bool = v14 = false │
00:09:28 verbose #50898 > │ let v19 : bool = │
00:09:28 verbose #50899 > │ if v15 then │
00:09:28 verbose #50900 > │ false │
00:09:28 verbose #50901 > │ else │
00:09:28 verbose #50902 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:28 verbose #50903 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:28 verbose #50904 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:28 verbose #50905 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:28 verbose #50906 > │ let v18 : bool = v16 >= v17 │
00:09:28 verbose #50907 > │ v18 │
00:09:28 verbose #50908 > │ if v19 then │
00:09:28 verbose #50909 > │ let v20 : int64 = v3.l0 │
00:09:28 verbose #50910 > │ let v21 : int64 = v20 + 1L │
00:09:28 verbose #50911 > │ v3.l0 <- v21 │
00:09:28 verbose #50912 > │ let v22 : string = $"%s{v1 ()}" │
00:09:28 verbose #50913 > │ let v23 : unit option = None │
00:09:28 verbose #50914 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:28 verbose #50915 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #50916 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:28 verbose #50917 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:28 verbose #50918 > │ () │
00:09:28 verbose #50919 > │ #endif │
00:09:28 verbose #50920 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #50921 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:28 verbose #50922 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:28 verbose #50923 > │ () │
00:09:28 verbose #50924 > │ #endif │
00:09:28 verbose #50925 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #50926 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:28 verbose #50927 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:28 verbose #50928 > │ () │
00:09:28 verbose #50929 > │ #endif │
00:09:28 verbose #50930 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #50931 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #50932 > │ System.Console.WriteLine v22 │
00:09:28 verbose #50933 > │ () │
00:09:28 verbose #50934 > │ #endif │
00:09:28 verbose #50935 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #50936 > │ System.Console.WriteLine v22 │
00:09:28 verbose #50937 > │ () │
00:09:28 verbose #50938 > │ #endif │
00:09:28 verbose #50939 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:28 verbose #50940 > │ FABLE_COMPILER_DART │
00:09:28 verbose #50941 > │ Unchecked.defaultof<unit> │
00:09:28 verbose #50942 > │ () │
00:09:28 verbose #50943 > │ #endif │
00:09:28 verbose #50944 > │ |> fun x -> _v23 <- Some x │
00:09:28 verbose #50945 > │ _v23.Value │
00:09:28 verbose #50946 > │ let v28 : (string -> unit) = v7.l0 │
00:09:28 verbose #50947 > │ v28 v22 │
00:09:28 verbose #50948 > │ and method1 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:28 verbose #50949 > │ = │
00:09:28 verbose #50950 > │ let v3 : (unit -> string) = closure2(v0, v1, v2) │
00:09:28 verbose #50951 > │ method6(v0, v3) │
00:09:28 verbose #50952 > │ and closure6 () (v0 : bool) : US4 = │
00:09:28 verbose #50953 > │ US4_0(v0) │
00:09:28 verbose #50954 > │ and closure7 () (v0 : exn) : US4 = │
00:09:28 verbose #50955 > │ US4_1(v0) │
00:09:28 verbose #50956 > │ and closure8 () () : string = │
00:09:28 verbose #50957 > │ let v0 : string = "run_with_timeout_async" │
00:09:28 verbose #50958 > │ v0 │
00:09:28 verbose #50959 > │ and closure9 () () : string = │
00:09:28 verbose #50960 > │ let v0 : (unit -> string) = closure1() │
00:09:28 verbose #50961 > │ let v1 : string = $"timeout: {120} / {v0 ()}" │
00:09:28 verbose #50962 > │ v1 │
00:09:28 verbose #50963 > │ and closure10 (v0 : string) () : string = │
00:09:28 verbose #50964 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:28 verbose #50965 > │ v1 │
00:09:28 verbose #50966 > │ and method7 (v0 : bool) : bool = │
00:09:28 verbose #50967 > │ v0 │
00:09:28 verbose #50968 > │ and method0 () : unit = │
00:09:28 verbose #50969 > │ let v0 : Async<bool> option = None │
00:09:28 verbose #50970 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:28 verbose #50971 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #50972 > │ let v2 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #50973 > │ v2 │
00:09:28 verbose #50974 > │ #endif │
00:09:28 verbose #50975 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #50976 > │ let v3 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #50977 > │ v3 │
00:09:28 verbose #50978 > │ #endif │
00:09:28 verbose #50979 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #50980 > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #50981 > │ v4 │
00:09:28 verbose #50982 > │ #endif │
00:09:28 verbose #50983 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #50984 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #50985 > │ let v5 : Async<bool> option = None │
00:09:28 verbose #50986 > │ let mutable _v5 = v5 │
00:09:28 verbose #50987 > │ async { │
00:09:28 verbose #50988 > │ let v6 : Async<bool> option = None │
00:09:28 verbose #50989 > │ let v7 : bool = true in let mutable _v6 = v6 │
00:09:28 verbose #50990 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #50991 > │ let v8 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #50992 > │ v8 │
00:09:28 verbose #50993 > │ #endif │
00:09:28 verbose #50994 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #50995 > │ let v9 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #50996 > │ v9 │
00:09:28 verbose #50997 > │ #endif │
00:09:28 verbose #50998 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #50999 > │ let v10 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #51000 > │ v10 │
00:09:28 verbose #51001 > │ #endif │
00:09:28 verbose #51002 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51003 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51004 > │ let v11 : Async<bool> option = None │
00:09:28 verbose #51005 > │ let mutable _v11 = v11 │
00:09:28 verbose #51006 > │ async { │
00:09:28 verbose #51007 > │ let v12 : Async<System.Threading.CancellationToken> = │
00:09:28 verbose #51008 > │ Async.CancellationToken │
00:09:28 verbose #51009 > │ let! v12 = v12 │
00:09:28 verbose #51010 > │ let v13 : System.Threading.CancellationToken = v12 │
00:09:28 verbose #51011 > │ let v14 : System.Net.Sockets.TcpClient = new │
00:09:28 verbose #51012 > │ System.Net.Sockets.TcpClient () │
00:09:28 verbose #51013 > │ use v14 = v14 │
00:09:28 verbose #51014 > │ let v15 : System.Net.Sockets.TcpClient = v14 │
00:09:28 verbose #51015 > │ try │
00:09:28 verbose #51016 > │ let v16 : string = "127.0.0.1" │
00:09:28 verbose #51017 > │ let v17 : System.Threading.Tasks.ValueTask = v15.ConnectAsync (v16, │
00:09:28 verbose #51018 > │ 65535, v13) │
00:09:28 verbose #51019 > │ let v18 : (unit -> System.Threading.Tasks.Task) = v17.AsTask │
00:09:28 verbose #51020 > │ let v19 : System.Threading.Tasks.Task = v18 () │
00:09:28 verbose #51021 > │ let v20 : Async<unit> option = None │
00:09:28 verbose #51022 > │ let v21 : bool = true in let mutable _v20 = v20 │
00:09:28 verbose #51023 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51024 > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:09:28 verbose #51025 > │ v22 │
00:09:28 verbose #51026 > │ #endif │
00:09:28 verbose #51027 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51028 > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:09:28 verbose #51029 > │ v23 │
00:09:28 verbose #51030 > │ #endif │
00:09:28 verbose #51031 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51032 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:09:28 verbose #51033 > │ v24 │
00:09:28 verbose #51034 > │ #endif │
00:09:28 verbose #51035 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51036 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51037 > │ let v25 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:09:28 verbose #51038 > │ let v26 : Async<unit> = v25 v19 │
00:09:28 verbose #51039 > │ v26 │
00:09:28 verbose #51040 > │ #endif │
00:09:28 verbose #51041 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51042 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:28 verbose #51043 > │ v27 │
00:09:28 verbose #51044 > │ #endif │
00:09:28 verbose #51045 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51046 > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:28 verbose #51047 > │ v28 │
00:09:28 verbose #51048 > │ #endif │
00:09:28 verbose #51049 > │ |> fun x -> _v20 <- Some x │
00:09:28 verbose #51050 > │ let v29 : Async<unit> = _v20.Value │
00:09:28 verbose #51051 > │ do! v29 │
00:09:28 verbose #51052 > │ return true │
00:09:28 verbose #51053 > │ with ex -> │
00:09:28 verbose #51054 > │ let v30 : exn = ex │
00:09:28 verbose #51055 > │ let v31 : string option = None │
00:09:28 verbose #51056 > │ let v32 : bool = true in let mutable _v31 = v31 │
00:09:28 verbose #51057 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51058 > │ let v33 : string = $"%A{v30}" │
00:09:28 verbose #51059 > │ v33 │
00:09:28 verbose #51060 > │ #endif │
00:09:28 verbose #51061 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51062 > │ let v34 : string = $"%A{v30}" │
00:09:28 verbose #51063 > │ v34 │
00:09:28 verbose #51064 > │ #endif │
00:09:28 verbose #51065 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51066 > │ let v35 : string = $"%A{v30}" │
00:09:28 verbose #51067 > │ v35 │
00:09:28 verbose #51068 > │ #endif │
00:09:28 verbose #51069 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51070 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51071 > │ let v36 : string = $"{v30.GetType ()}: {v30.Message}" │
00:09:28 verbose #51072 > │ v36 │
00:09:28 verbose #51073 > │ #endif │
00:09:28 verbose #51074 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51075 > │ let v37 : string = $"%A{v30}" │
00:09:28 verbose #51076 > │ v37 │
00:09:28 verbose #51077 > │ #endif │
00:09:28 verbose #51078 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51079 > │ let v38 : string = Unchecked.defaultof<string> │
00:09:28 verbose #51080 > │ v38 │
00:09:28 verbose #51081 > │ #endif │
00:09:28 verbose #51082 > │ |> fun x -> _v31 <- Some x │
00:09:28 verbose #51083 > │ let v39 : string = _v31.Value │
00:09:28 verbose #51084 > │ let v40 : US0 = US0_0 │
00:09:28 verbose #51085 > │ let v41 : (unit -> string) = closure0(v39) │
00:09:28 verbose #51086 > │ let v42 : (unit -> string) = closure1() │
00:09:28 verbose #51087 > │ method1(v40, v41, v42) │
00:09:28 verbose #51088 > │ return false │
00:09:28 verbose #51089 > │ (* │
00:09:28 verbose #51090 > │ let v43 : bool = *) │
00:09:28 verbose #51091 > │ } │
00:09:28 verbose #51092 > │ |> fun x -> _v11 <- Some x │
00:09:28 verbose #51093 > │ let v44 : Async<bool> = _v11 |> Option.get │
00:09:28 verbose #51094 > │ v44 │
00:09:28 verbose #51095 > │ #endif │
00:09:28 verbose #51096 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51097 > │ let v45 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #51098 > │ v45 │
00:09:28 verbose #51099 > │ #endif │
00:09:28 verbose #51100 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51101 > │ let v46 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:28 verbose #51102 > │ v46 │
00:09:28 verbose #51103 > │ #endif │
00:09:28 verbose #51104 > │ |> fun x -> _v6 <- Some x │
00:09:28 verbose #51105 > │ let v47 : Async<bool> = _v6.Value │
00:09:28 verbose #51106 > │ let v48 : Async<US3> option = None │
00:09:28 verbose #51107 > │ let v49 : bool = true in let mutable _v48 = v48 │
00:09:28 verbose #51108 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51109 > │ let v50 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51110 > │ v50 │
00:09:28 verbose #51111 > │ #endif │
00:09:28 verbose #51112 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51113 > │ let v51 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51114 > │ v51 │
00:09:28 verbose #51115 > │ #endif │
00:09:28 verbose #51116 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51117 > │ let v52 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51118 > │ v52 │
00:09:28 verbose #51119 > │ #endif │
00:09:28 verbose #51120 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51121 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51122 > │ let v53 : Async<US3> option = None │
00:09:28 verbose #51123 > │ let v54 : bool = true in let mutable _v53 = v53 │
00:09:28 verbose #51124 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51125 > │ let v55 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51126 > │ v55 │
00:09:28 verbose #51127 > │ #endif │
00:09:28 verbose #51128 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51129 > │ let v56 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51130 > │ v56 │
00:09:28 verbose #51131 > │ #endif │
00:09:28 verbose #51132 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51133 > │ let v57 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51134 > │ v57 │
00:09:28 verbose #51135 > │ #endif │
00:09:28 verbose #51136 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51137 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51138 > │ let v58 : Async<US3> option = None │
00:09:28 verbose #51139 > │ let mutable _v58 = v58 │
00:09:28 verbose #51140 > │ async { │
00:09:28 verbose #51141 > │ let v59 : Async<Async<bool>> option = None │
00:09:28 verbose #51142 > │ let v60 : bool = true in let mutable _v59 = v59 │
00:09:28 verbose #51143 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51144 > │ let v61 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:28 verbose #51145 > │ v61 │
00:09:28 verbose #51146 > │ #endif │
00:09:28 verbose #51147 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51148 > │ let v62 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:28 verbose #51149 > │ v62 │
00:09:28 verbose #51150 > │ #endif │
00:09:28 verbose #51151 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51152 > │ let v63 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:28 verbose #51153 > │ v63 │
00:09:28 verbose #51154 > │ #endif │
00:09:28 verbose #51155 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51156 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51157 > │ let v64 : Async<Async<bool>> = Async.StartChild (v47, 120) │
00:09:28 verbose #51158 > │ v64 │
00:09:28 verbose #51159 > │ #endif │
00:09:28 verbose #51160 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51161 > │ let v65 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:28 verbose #51162 > │ v65 │
00:09:28 verbose #51163 > │ #endif │
00:09:28 verbose #51164 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51165 > │ let v66 : Async<Async<bool>> = Unchecked.defaultof<Async<Async<bool>>> │
00:09:28 verbose #51166 > │ v66 │
00:09:28 verbose #51167 > │ #endif │
00:09:28 verbose #51168 > │ |> fun x -> _v59 <- Some x │
00:09:28 verbose #51169 > │ let v67 : Async<Async<bool>> = _v59.Value │
00:09:28 verbose #51170 > │ let! v67 = v67 │
00:09:28 verbose #51171 > │ let v68 : Async<bool> = v67 │
00:09:28 verbose #51172 > │ let v69 : Async<Choice<bool, exn>> option = None │
00:09:28 verbose #51173 > │ let v70 : bool = true in let mutable _v69 = v69 │
00:09:28 verbose #51174 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51175 > │ let v71 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:28 verbose #51176 > │ exn>>> │
00:09:28 verbose #51177 > │ v71 │
00:09:28 verbose #51178 > │ #endif │
00:09:28 verbose #51179 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51180 > │ let v72 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:28 verbose #51181 > │ exn>>> │
00:09:28 verbose #51182 > │ v72 │
00:09:28 verbose #51183 > │ #endif │
00:09:28 verbose #51184 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51185 > │ let v73 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:28 verbose #51186 > │ exn>>> │
00:09:28 verbose #51187 > │ v73 │
00:09:28 verbose #51188 > │ #endif │
00:09:28 verbose #51189 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51190 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51191 > │ let v74 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch │
00:09:28 verbose #51192 > │ let v75 : Async<Choice<bool, exn>> = v74 v68 │
00:09:28 verbose #51193 > │ v75 │
00:09:28 verbose #51194 > │ #endif │
00:09:28 verbose #51195 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51196 > │ let v76 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:28 verbose #51197 > │ exn>>> │
00:09:28 verbose #51198 > │ v76 │
00:09:28 verbose #51199 > │ #endif │
00:09:28 verbose #51200 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51201 > │ let v77 : Async<Choice<bool, exn>> = │
00:09:28 verbose #51202 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:28 verbose #51203 > │ v77 │
00:09:28 verbose #51204 > │ #endif │
00:09:28 verbose #51205 > │ |> fun x -> _v69 <- Some x │
00:09:28 verbose #51206 > │ let v78 : Async<Choice<bool, exn>> = _v69.Value │
00:09:28 verbose #51207 > │ let v79 : Async<US4> option = None │
00:09:28 verbose #51208 > │ let v80 : bool = true in let mutable _v79 = v79 │
00:09:28 verbose #51209 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51210 > │ let v81 : Async<US4> = null |> unbox<Async<US4>> │
00:09:28 verbose #51211 > │ v81 │
00:09:28 verbose #51212 > │ #endif │
00:09:28 verbose #51213 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51214 > │ let v82 : Async<US4> = null |> unbox<Async<US4>> │
00:09:28 verbose #51215 > │ v82 │
00:09:28 verbose #51216 > │ #endif │
00:09:28 verbose #51217 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51218 > │ let v83 : Async<US4> = null |> unbox<Async<US4>> │
00:09:28 verbose #51219 > │ v83 │
00:09:28 verbose #51220 > │ #endif │
00:09:28 verbose #51221 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51222 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51223 > │ let v84 : Async<US4> option = None │
00:09:28 verbose #51224 > │ let mutable _v84 = v84 │
00:09:28 verbose #51225 > │ async { │
00:09:28 verbose #51226 > │ let! v78 = v78 │
00:09:28 verbose #51227 > │ let v85 : Choice<bool, exn> = v78 │
00:09:28 verbose #51228 > │ let v86 : US4 option = None │
00:09:28 verbose #51229 > │ let v87 : bool = true in let mutable _v86 = v86 │
00:09:28 verbose #51230 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51231 > │ let v88 : US4 = null |> unbox<US4> │
00:09:28 verbose #51232 > │ v88 │
00:09:28 verbose #51233 > │ #endif │
00:09:28 verbose #51234 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51235 > │ let v89 : US4 = null |> unbox<US4> │
00:09:28 verbose #51236 > │ v89 │
00:09:28 verbose #51237 > │ #endif │
00:09:28 verbose #51238 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51239 > │ let v90 : US4 = null |> unbox<US4> │
00:09:28 verbose #51240 > │ v90 │
00:09:28 verbose #51241 > │ #endif │
00:09:28 verbose #51242 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51243 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51244 > │ let v91 : (bool -> US4) = closure6() │
00:09:28 verbose #51245 > │ let v92 : (exn -> US4) = closure7() │
00:09:28 verbose #51246 > │ let v93 : US4 = match v85 with Choice1Of2 x -> v91 x | Choice2Of2 x -> │
00:09:28 verbose #51247 > │ v92 x │
00:09:28 verbose #51248 > │ v93 │
00:09:28 verbose #51249 > │ #endif │
00:09:28 verbose #51250 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51251 > │ let v94 : US4 = null |> unbox<US4> │
00:09:28 verbose #51252 > │ v94 │
00:09:28 verbose #51253 > │ #endif │
00:09:28 verbose #51254 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51255 > │ let v95 : US4 = Unchecked.defaultof<US4> │
00:09:28 verbose #51256 > │ v95 │
00:09:28 verbose #51257 > │ #endif │
00:09:28 verbose #51258 > │ |> fun x -> _v86 <- Some x │
00:09:28 verbose #51259 > │ let v96 : US4 = _v86.Value │
00:09:28 verbose #51260 > │ return v96 │
00:09:28 verbose #51261 > │ } │
00:09:28 verbose #51262 > │ |> fun x -> _v84 <- Some x │
00:09:28 verbose #51263 > │ let v97 : Async<US4> = _v84 |> Option.get │
00:09:28 verbose #51264 > │ v97 │
00:09:28 verbose #51265 > │ #endif │
00:09:28 verbose #51266 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51267 > │ let v98 : Async<US4> = null |> unbox<Async<US4>> │
00:09:28 verbose #51268 > │ v98 │
00:09:28 verbose #51269 > │ #endif │
00:09:28 verbose #51270 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51271 > │ let v99 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:28 verbose #51272 > │ v99 │
00:09:28 verbose #51273 > │ #endif │
00:09:28 verbose #51274 > │ |> fun x -> _v79 <- Some x │
00:09:28 verbose #51275 > │ let v100 : Async<US4> = _v79.Value │
00:09:28 verbose #51276 > │ let v101 : Async<US5> option = None │
00:09:28 verbose #51277 > │ let v102 : bool = true in let mutable _v101 = v101 │
00:09:28 verbose #51278 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51279 > │ let v103 : Async<US5> = null |> unbox<Async<US5>> │
00:09:28 verbose #51280 > │ v103 │
00:09:28 verbose #51281 > │ #endif │
00:09:28 verbose #51282 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51283 > │ let v104 : Async<US5> = null |> unbox<Async<US5>> │
00:09:28 verbose #51284 > │ v104 │
00:09:28 verbose #51285 > │ #endif │
00:09:28 verbose #51286 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51287 > │ let v105 : Async<US5> = null |> unbox<Async<US5>> │
00:09:28 verbose #51288 > │ v105 │
00:09:28 verbose #51289 > │ #endif │
00:09:28 verbose #51290 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51291 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51292 > │ let v106 : Async<US5> option = None │
00:09:28 verbose #51293 > │ let mutable _v106 = v106 │
00:09:28 verbose #51294 > │ async { │
00:09:28 verbose #51295 > │ let! v100 = v100 │
00:09:28 verbose #51296 > │ let v107 : US4 = v100 │
00:09:28 verbose #51297 > │ let v113 : US5 = │
00:09:28 verbose #51298 > │ match v107 with │
00:09:28 verbose #51299 > │ | US4_0(v108) -> (* Choice1Of2 *) │
00:09:28 verbose #51300 > │ US5_0(v108) │
00:09:28 verbose #51301 > │ | US4_1(v110) -> (* Choice2Of2 *) │
00:09:28 verbose #51302 > │ US5_1(v110) │
00:09:28 verbose #51303 > │ return v113 │
00:09:28 verbose #51304 > │ } │
00:09:28 verbose #51305 > │ |> fun x -> _v106 <- Some x │
00:09:28 verbose #51306 > │ let v114 : Async<US5> = _v106 |> Option.get │
00:09:28 verbose #51307 > │ v114 │
00:09:28 verbose #51308 > │ #endif │
00:09:28 verbose #51309 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51310 > │ let v115 : Async<US5> = null |> unbox<Async<US5>> │
00:09:28 verbose #51311 > │ v115 │
00:09:28 verbose #51312 > │ #endif │
00:09:28 verbose #51313 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51314 > │ let v116 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:28 verbose #51315 > │ v116 │
00:09:28 verbose #51316 > │ #endif │
00:09:28 verbose #51317 > │ |> fun x -> _v101 <- Some x │
00:09:28 verbose #51318 > │ let v117 : Async<US5> = _v101.Value │
00:09:28 verbose #51319 > │ let v118 : Async<US3> option = None │
00:09:28 verbose #51320 > │ let v119 : bool = true in let mutable _v118 = v118 │
00:09:28 verbose #51321 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51322 > │ let v120 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51323 > │ v120 │
00:09:28 verbose #51324 > │ #endif │
00:09:28 verbose #51325 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51326 > │ let v121 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51327 > │ v121 │
00:09:28 verbose #51328 > │ #endif │
00:09:28 verbose #51329 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51330 > │ let v122 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51331 > │ v122 │
00:09:28 verbose #51332 > │ #endif │
00:09:28 verbose #51333 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51334 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51335 > │ let v123 : Async<US3> option = None │
00:09:28 verbose #51336 > │ let mutable _v123 = v123 │
00:09:28 verbose #51337 > │ async { │
00:09:28 verbose #51338 > │ let! v117 = v117 │
00:09:28 verbose #51339 > │ let v124 : US5 = v117 │
00:09:28 verbose #51340 > │ let v150 : US3 = │
00:09:28 verbose #51341 > │ match v124 with │
00:09:28 verbose #51342 > │ | US5_1(v127) -> (* Error *) │
00:09:28 verbose #51343 > │ let v128 : string = $"%A{v127}" │
00:09:28 verbose #51344 > │ let v129 : string = "System.TimeoutException" │
00:09:28 verbose #51345 > │ let v130 : bool = v128.Contains v129 │
00:09:28 verbose #51346 > │ if v130 then │
00:09:28 verbose #51347 > │ let v131 : US0 = US0_1 │
00:09:28 verbose #51348 > │ let v132 : (unit -> string) = closure8() │
00:09:28 verbose #51349 > │ let v133 : (unit -> string) = closure9() │
00:09:28 verbose #51350 > │ method1(v131, v132, v133) │
00:09:28 verbose #51351 > │ US3_1 │
00:09:28 verbose #51352 > │ else │
00:09:28 verbose #51353 > │ let v135 : string option = None │
00:09:28 verbose #51354 > │ let v136 : bool = true in let mutable _v135 = v135 │
00:09:28 verbose #51355 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51356 > │ let v137 : string = $"%A{v127}" │
00:09:28 verbose #51357 > │ v137 │
00:09:28 verbose #51358 > │ #endif │
00:09:28 verbose #51359 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51360 > │ let v138 : string = $"%A{v127}" │
00:09:28 verbose #51361 > │ v138 │
00:09:28 verbose #51362 > │ #endif │
00:09:28 verbose #51363 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51364 > │ let v139 : string = $"%A{v127}" │
00:09:28 verbose #51365 > │ v139 │
00:09:28 verbose #51366 > │ #endif │
00:09:28 verbose #51367 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51368 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51369 > │ let v140 : string = $"{v127.GetType ()}: {v127.Message}" │
00:09:28 verbose #51370 > │ v140 │
00:09:28 verbose #51371 > │ #endif │
00:09:28 verbose #51372 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51373 > │ let v141 : string = $"%A{v127}" │
00:09:28 verbose #51374 > │ v141 │
00:09:28 verbose #51375 > │ #endif │
00:09:28 verbose #51376 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:28 verbose #51377 > │ FABLE_COMPILER_DART │
00:09:28 verbose #51378 > │ let v142 : string = Unchecked.defaultof<string> │
00:09:28 verbose #51379 > │ v142 │
00:09:28 verbose #51380 > │ #endif │
00:09:28 verbose #51381 > │ |> fun x -> _v135 <- Some x │
00:09:28 verbose #51382 > │ let v143 : string = _v135.Value │
00:09:28 verbose #51383 > │ let v144 : US0 = US0_4 │
00:09:28 verbose #51384 > │ let v145 : (unit -> string) = closure10(v143) │
00:09:28 verbose #51385 > │ let v146 : (unit -> string) = closure9() │
00:09:28 verbose #51386 > │ method1(v144, v145, v146) │
00:09:28 verbose #51387 > │ US3_1 │
00:09:28 verbose #51388 > │ | US5_0(v125) -> (* Ok *) │
00:09:28 verbose #51389 > │ US3_0(v125) │
00:09:28 verbose #51390 > │ return v150 │
00:09:28 verbose #51391 > │ } │
00:09:28 verbose #51392 > │ |> fun x -> _v123 <- Some x │
00:09:28 verbose #51393 > │ let v151 : Async<US3> = _v123 |> Option.get │
00:09:28 verbose #51394 > │ v151 │
00:09:28 verbose #51395 > │ #endif │
00:09:28 verbose #51396 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51397 > │ let v152 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51398 > │ v152 │
00:09:28 verbose #51399 > │ #endif │
00:09:28 verbose #51400 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51401 > │ let v153 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:28 verbose #51402 > │ v153 │
00:09:28 verbose #51403 > │ #endif │
00:09:28 verbose #51404 > │ |> fun x -> _v118 <- Some x │
00:09:28 verbose #51405 > │ let v154 : Async<US3> = _v118.Value │
00:09:28 verbose #51406 > │ return! v154 │
00:09:28 verbose #51407 > │ } │
00:09:28 verbose #51408 > │ |> fun x -> _v58 <- Some x │
00:09:28 verbose #51409 > │ let v155 : Async<US3> = _v58 |> Option.get │
00:09:28 verbose #51410 > │ v155 │
00:09:28 verbose #51411 > │ #endif │
00:09:28 verbose #51412 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51413 > │ let v156 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51414 > │ v156 │
00:09:28 verbose #51415 > │ #endif │
00:09:28 verbose #51416 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51417 > │ let v157 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:28 verbose #51418 > │ v157 │
00:09:28 verbose #51419 > │ #endif │
00:09:28 verbose #51420 > │ |> fun x -> _v53 <- Some x │
00:09:28 verbose #51421 > │ let v158 : Async<US3> = _v53.Value │
00:09:28 verbose #51422 > │ v158 │
00:09:28 verbose #51423 > │ #endif │
00:09:28 verbose #51424 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51425 > │ let v159 : Async<US3> = null |> unbox<Async<US3>> │
00:09:28 verbose #51426 > │ v159 │
00:09:28 verbose #51427 > │ #endif │
00:09:28 verbose #51428 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51429 > │ let v160 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:28 verbose #51430 > │ v160 │
00:09:28 verbose #51431 > │ #endif │
00:09:28 verbose #51432 > │ |> fun x -> _v48 <- Some x │
00:09:28 verbose #51433 > │ let v161 : Async<US3> = _v48.Value │
00:09:28 verbose #51434 > │ let! v161 = v161 │
00:09:28 verbose #51435 > │ let v162 : US3 = v161 │
00:09:28 verbose #51436 > │ let v165 : bool = │
00:09:28 verbose #51437 > │ match v162 with │
00:09:28 verbose #51438 > │ | US3_1 -> (* None *) │
00:09:28 verbose #51439 > │ false │
00:09:28 verbose #51440 > │ | US3_0(v163) -> (* Some *) │
00:09:28 verbose #51441 > │ v163 │
00:09:28 verbose #51442 > │ return v165 │
00:09:28 verbose #51443 > │ } │
00:09:28 verbose #51444 > │ |> fun x -> _v5 <- Some x │
00:09:28 verbose #51445 > │ let v166 : Async<bool> = _v5 |> Option.get │
00:09:28 verbose #51446 > │ v166 │
00:09:28 verbose #51447 > │ #endif │
00:09:28 verbose #51448 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51449 > │ let v167 : Async<bool> = null |> unbox<Async<bool>> │
00:09:28 verbose #51450 > │ v167 │
00:09:28 verbose #51451 > │ #endif │
00:09:28 verbose #51452 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51453 > │ let v168 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:28 verbose #51454 > │ v168 │
00:09:28 verbose #51455 > │ #endif │
00:09:28 verbose #51456 > │ |> fun x -> _v0 <- Some x │
00:09:28 verbose #51457 > │ let v169 : Async<bool> = _v0.Value │
00:09:28 verbose #51458 > │ let v170 : bool option = None │
00:09:28 verbose #51459 > │ let v171 : bool = true in let mutable _v170 = v170 │
00:09:28 verbose #51460 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:28 verbose #51461 > │ let v172 : bool = null |> unbox<bool> │
00:09:28 verbose #51462 > │ v172 │
00:09:28 verbose #51463 > │ #endif │
00:09:28 verbose #51464 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:28 verbose #51465 > │ let v173 : bool = null |> unbox<bool> │
00:09:28 verbose #51466 > │ v173 │
00:09:28 verbose #51467 > │ #endif │
00:09:28 verbose #51468 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:28 verbose #51469 > │ let v174 : bool = null |> unbox<bool> │
00:09:28 verbose #51470 > │ v174 │
00:09:28 verbose #51471 > │ #endif │
00:09:28 verbose #51472 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:28 verbose #51473 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:28 verbose #51474 > │ let v175 : (Async<bool> -> bool) = Async.RunSynchronously │
00:09:28 verbose #51475 > │ let v176 : bool = v175 v169 │
00:09:28 verbose #51476 > │ v176 │
00:09:28 verbose #51477 > │ #endif │
00:09:28 verbose #51478 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:28 verbose #51479 > │ let v177 : bool = null |> unbox<bool> │
00:09:28 verbose #51480 > │ v177 │
00:09:28 verbose #51481 > │ #endif │
00:09:28 verbose #51482 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:28 verbose #51483 > │ let v178 : bool = Unchecked.defaultof<bool> │
00:09:28 verbose #51484 > │ v178 │
00:09:28 verbose #51485 > │ #endif │
00:09:28 verbose #51486 > │ |> fun x -> _v170 <- Some x │
00:09:28 verbose #51487 > │ let v179 : bool = _v170.Value │
00:09:28 verbose #51488 > │ let v180 : string = $"%A{v179}" │
00:09:28 verbose #51489 > │ System.Console.WriteLine v180 │
00:09:28 verbose #51490 > │ let v181 : bool = v179 = false │
00:09:28 verbose #51491 > │ let v183 : bool = │
00:09:28 verbose #51492 > │ if v181 then │
00:09:28 verbose #51493 > │ true │
00:09:28 verbose #51494 > │ else │
00:09:28 verbose #51495 > │ method7(v181) │
00:09:28 verbose #51496 > │ let v184 : string = $"__expect / actual: %A{v179} / expected: %A{false}" │
00:09:28 verbose #51497 > │ let v185 : bool = v183 = false │
00:09:28 verbose #51498 > │ if v185 then │
00:09:28 verbose #51499 > │ failwith<unit> v184 │
00:09:28 verbose #51500 > │ method0() │
00:09:28 verbose #51501 > │ │
00:09:28 verbose #51502 > │ 00:00:00 debug #1 run_with_timeout_async / timeout: 120 │
00:09:28 verbose #51503 > │ false │
00:09:28 verbose #51504 > │ │
00:09:28 verbose #51505 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:28 verbose #51506 >
00:09:28 verbose #51507 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:28 verbose #51508 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:28 verbose #51509 > │ ## wait_for_port_access │
00:09:28 verbose #51510 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:28 verbose #51511 >
00:09:28 verbose #51512 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:28 verbose #51513 > inl wait_for_port_access timeout status port : _ i64 =
00:09:28 verbose #51514 > let rec loop retry : _ i64 = async.new_async_unit fun () =>
00:09:28 verbose #51515 > inl isPortOpen =
00:09:28 verbose #51516 > match timeout |> optionm'.unbox with
00:09:28 verbose #51517 > | None => test_port_open port
00:09:28 verbose #51518 > | Some timeout => test_port_open_timeout timeout port
00:09:28 verbose #51519 > |> async.let'
00:09:28 verbose #51520 > if isPortOpen = status
00:09:28 verbose #51521 > then retry |> return |> fun x => $'(*' : ()
00:09:28 verbose #51522 > else
00:09:28 verbose #51523 > $'*) else' : ()
00:09:28 verbose #51524 > if retry % 100 = 0 then
00:09:28 verbose #51525 > inl _locals () = $'$"port: {!port} / retry: {!retry} / {!_locals
00:09:28 verbose #51526 > ()}"'
00:09:28 verbose #51527 > trace Verbose (fun () => "wait_for_port_access") _locals
00:09:28 verbose #51528 > async.sleep 10 |> async.do
00:09:28 verbose #51529 > loop (retry + 1) |> async.return_await |> fun x => $'(*' : ()
00:09:28 verbose #51530 > |> fun x => $'*)' : ()
00:09:28 verbose #51531 > loop 0i64
00:09:29 verbose #51532 > 00:09:28 debug #737 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/53b92e440c3f414be899e2aac68bbc196a92cff08c247fd0754c7c3ca9dd090f/main.spi
00:09:29 verbose #51533 >
00:09:29 verbose #51534 > ╭─[ 201.94ms - stdout ]────────────────────────────────────────────────────────╮
00:09:29 verbose #51535 > │ () │
00:09:29 verbose #51536 > │ │
00:09:29 verbose #51537 > │ │
00:09:29 verbose #51538 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:29 verbose #51539 >
00:09:29 verbose #51540 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:29 verbose #51541 > // // test
00:09:29 verbose #51542 >
00:09:29 verbose #51543 > inl lock_port port = async.new_async fun () =>
00:09:29 verbose #51544 > trace Debug (fun () => "_1") _locals
00:09:29 verbose #51545 > async.sleep 5000 |> async.do
00:09:29 verbose #51546 > inl listener = new_tcp_listener ("127.0.0.1" |> ip_address_parse) port |>
00:09:29 verbose #51547 > use
00:09:29 verbose #51548 > trace Debug (fun () => "_2") _locals
00:09:29 verbose #51549 > listener |> listener_start
00:09:29 verbose #51550 > trace Debug (fun () => "_3") _locals
00:09:29 verbose #51551 > async.sleep 2000 |> async.do
00:09:29 verbose #51552 > trace Debug (fun () => "_4") _locals
00:09:29 verbose #51553 > $'!listener.Stop' ()
00:09:29 verbose #51554 > trace Debug (fun () => "_5") _locals
00:09:29 verbose #51555 >
00:09:29 verbose #51556 > inl port = 5555i32
00:09:29 verbose #51557 >
00:09:29 verbose #51558 > fun () =>
00:09:29 verbose #51559 > trace Debug (fun () => "1") _locals
00:09:29 verbose #51560 > inl child = lock_port port |> async.start_child |> async.let'
00:09:29 verbose #51561 > trace Debug (fun () => "2") _locals
00:09:29 verbose #51562 > async.sleep 1 |> async.do
00:09:29 verbose #51563 > trace Debug (fun () => "3") _locals
00:09:29 verbose #51564 > inl retries1 = wait_for_port_access (None |> optionm'.box) true port |>
00:09:29 verbose #51565 > async.let'
00:09:29 verbose #51566 > trace Debug (fun () => "4") _locals
00:09:29 verbose #51567 > inl retries2 = wait_for_port_access (None |> optionm'.box) false port |>
00:09:29 verbose #51568 > async.let'
00:09:29 verbose #51569 > trace Debug (fun () => "5") _locals
00:09:29 verbose #51570 > child |> async.do
00:09:29 verbose #51571 > trace Debug (fun () => "6") _locals
00:09:29 verbose #51572 > (retries1, retries2) |> return
00:09:29 verbose #51573 > |> async.new_async_unit
00:09:29 verbose #51574 > |> async.run_with_timeout 20000
00:09:29 verbose #51575 > |> function
00:09:29 verbose #51576 > | Some (retries1, retries2) =>
00:09:29 verbose #51577 > retries1
00:09:29 verbose #51578 > |> _assert_between
00:09:29 verbose #51579 > if runtime.is_windows () then 2i64 else 2
00:09:29 verbose #51580 > if runtime.is_windows () then 5 else 1500
00:09:29 verbose #51581 >
00:09:29 verbose #51582 > retries2
00:09:29 verbose #51583 > |> _assert_between
00:09:29 verbose #51584 > if runtime.is_windows () then 80i64 else 80
00:09:29 verbose #51585 > if runtime.is_windows () then 150 else 600
00:09:29 verbose #51586 >
00:09:29 verbose #51587 > true
00:09:29 verbose #51588 > | _ => false
00:09:29 verbose #51589 > |> _assert_eq true
00:09:29 verbose #51590 > 00:09:28 debug #738 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1a57b86323d7de962e59502ff2a956a23cc3f4b947777c269b29e94532e5818b/main.spi
00:09:40 verbose #51591 >
00:09:40 verbose #51592 > ╭─[ 10.85s - stdout ]──────────────────────────────────────────────────────────╮
00:09:40 verbose #51593 > │ module State = let mutable trace_state = None │
00:09:40 verbose #51594 > │ type [<Struct>] US0 = │
00:09:40 verbose #51595 > │ | US0_0 │
00:09:40 verbose #51596 > │ | US0_1 │
00:09:40 verbose #51597 > │ | US0_2 │
00:09:40 verbose #51598 > │ | US0_3 │
00:09:40 verbose #51599 > │ | US0_4 │
00:09:40 verbose #51600 > │ and Mut0 = {mutable l0 : int64} │
00:09:40 verbose #51601 > │ and Mut1 = {mutable l0 : bool} │
00:09:40 verbose #51602 > │ and Mut2 = {mutable l0 : US0} │
00:09:40 verbose #51603 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:40 verbose #51604 > │ and [<Struct>] US1 = │
00:09:40 verbose #51605 > │ | US1_0 of f0_0 : int64 │
00:09:40 verbose #51606 > │ | US1_1 │
00:09:40 verbose #51607 > │ and [<Struct>] US2 = │
00:09:40 verbose #51608 > │ | US2_0 of f0_0 : int64 │
00:09:40 verbose #51609 > │ | US2_1 │
00:09:40 verbose #51610 > │ and [<Struct>] US3 = │
00:09:40 verbose #51611 > │ | US3_0 of f0_0 : int32 │
00:09:40 verbose #51612 > │ | US3_1 │
00:09:40 verbose #51613 > │ and [<Struct>] US4 = │
00:09:40 verbose #51614 > │ | US4_0 of f0_0 : bool │
00:09:40 verbose #51615 > │ | US4_1 │
00:09:40 verbose #51616 > │ and [<Struct>] US5 = │
00:09:40 verbose #51617 > │ | US5_0 of f0_0 : bool │
00:09:40 verbose #51618 > │ | US5_1 of f1_0 : exn │
00:09:40 verbose #51619 > │ and [<Struct>] US6 = │
00:09:40 verbose #51620 > │ | US6_0 of f0_0 : bool │
00:09:40 verbose #51621 > │ | US6_1 of f1_0 : exn │
00:09:40 verbose #51622 > │ and [<Struct>] US7 = │
00:09:40 verbose #51623 > │ | US7_0 of f0_0 : int64 * f0_1 : int64 │
00:09:40 verbose #51624 > │ | US7_1 │
00:09:40 verbose #51625 > │ and [<Struct>] US8 = │
00:09:40 verbose #51626 > │ | US8_0 of f0_0 : int64 * f0_1 : int64 │
00:09:40 verbose #51627 > │ | US8_1 of f1_0 : exn │
00:09:40 verbose #51628 > │ and [<Struct>] US9 = │
00:09:40 verbose #51629 > │ | US9_0 of f0_0 : int64 * f0_1 : int64 │
00:09:40 verbose #51630 > │ | US9_1 of f1_0 : exn │
00:09:40 verbose #51631 > │ let rec closure0 () () : string = │
00:09:40 verbose #51632 > │ let v0 : string = "1" │
00:09:40 verbose #51633 > │ v0 │
00:09:40 verbose #51634 > │ and closure1 () () : string = │
00:09:40 verbose #51635 > │ let v0 : string = "" │
00:09:40 verbose #51636 > │ v0 │
00:09:40 verbose #51637 > │ and closure4 () (v0 : string) : unit = │
00:09:40 verbose #51638 > │ () │
00:09:40 verbose #51639 > │ and method2 (v0 : int64 option) : int64 option = │
00:09:40 verbose #51640 > │ v0 │
00:09:40 verbose #51641 > │ and method3 (v0 : int64 option) : int64 option = │
00:09:40 verbose #51642 > │ v0 │
00:09:40 verbose #51643 > │ and closure3 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:40 verbose #51644 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:40 verbose #51645 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:40 verbose #51646 > │ let v2 : US0 = US0_0 │
00:09:40 verbose #51647 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:40 verbose #51648 > │ let v4 : (string -> unit) = closure4() │
00:09:40 verbose #51649 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:40 verbose #51650 > │ let v6 : int64 option option = None │
00:09:40 verbose #51651 > │ let mutable _v6 = v6 │
00:09:40 verbose #51652 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:40 verbose #51653 > │ let v7 : string option = None │
00:09:40 verbose #51654 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:40 verbose #51655 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #51656 > │ let v9 : string = null |> unbox<string> │
00:09:40 verbose #51657 > │ v9 │
00:09:40 verbose #51658 > │ #endif │
00:09:40 verbose #51659 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #51660 > │ let v10 : string = null |> unbox<string> │
00:09:40 verbose #51661 > │ v10 │
00:09:40 verbose #51662 > │ #endif │
00:09:40 verbose #51663 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #51664 > │ let v11 : string = null |> unbox<string> │
00:09:40 verbose #51665 > │ v11 │
00:09:40 verbose #51666 > │ #endif │
00:09:40 verbose #51667 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #51668 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #51669 > │ let v12 : string = │
00:09:40 verbose #51670 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:40 verbose #51671 > │ v12 │
00:09:40 verbose #51672 > │ #endif │
00:09:40 verbose #51673 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #51674 > │ let v13 : string = null |> unbox<string> │
00:09:40 verbose #51675 > │ v13 │
00:09:40 verbose #51676 > │ #endif │
00:09:40 verbose #51677 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #51678 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:40 verbose #51679 > │ v14 │
00:09:40 verbose #51680 > │ #endif │
00:09:40 verbose #51681 > │ |> fun x -> _v7 <- Some x │
00:09:40 verbose #51682 > │ let v15 : string = _v7.Value │
00:09:40 verbose #51683 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:40 verbose #51684 > │ let v18 : bool = v17 <> true │
00:09:40 verbose #51685 > │ let v24 : US1 = │
00:09:40 verbose #51686 > │ if v18 then │
00:09:40 verbose #51687 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:40 verbose #51688 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:40 verbose #51689 > │ let v21 : int64 = v20 v19 │
00:09:40 verbose #51690 > │ US1_0(v21) │
00:09:40 verbose #51691 > │ else │
00:09:40 verbose #51692 > │ US1_1 │
00:09:40 verbose #51693 > │ let v29 : int64 option = │
00:09:40 verbose #51694 > │ match v24 with │
00:09:40 verbose #51695 > │ | US1_1 -> (* None *) │
00:09:40 verbose #51696 > │ let v27 : int64 option = None │
00:09:40 verbose #51697 > │ v27 │
00:09:40 verbose #51698 > │ | US1_0(v25) -> (* Some *) │
00:09:40 verbose #51699 > │ let v26 : int64 option = Some v25 │
00:09:40 verbose #51700 > │ v26 │
00:09:40 verbose #51701 > │ let v30 : int64 option = method2(v29) │
00:09:40 verbose #51702 > │ v30 │
00:09:40 verbose #51703 > │ #else │
00:09:40 verbose #51704 > │ let v31 : int64 option = None │
00:09:40 verbose #51705 > │ let v32 : int64 option = method3(v31) │
00:09:40 verbose #51706 > │ v32 │
00:09:40 verbose #51707 > │ #endif │
00:09:40 verbose #51708 > │ |> fun x -> _v6 <- Some x │
00:09:40 verbose #51709 > │ let v33 : int64 option = _v6.Value │
00:09:40 verbose #51710 > │ struct (v1, v0, v3, v33, v5) │
00:09:40 verbose #51711 > │ and closure5 () (v0 : int64) : US2 = │
00:09:40 verbose #51712 > │ US2_0(v0) │
00:09:40 verbose #51713 > │ and method4 () : (int64 -> US2) = │
00:09:40 verbose #51714 > │ closure5() │
00:09:40 verbose #51715 > │ and method5 () : string = │
00:09:40 verbose #51716 > │ let v0 : string = "" │
00:09:40 verbose #51717 > │ v0 │
00:09:40 verbose #51718 > │ and closure2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:40 verbose #51719 > │ string = │
00:09:40 verbose #51720 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:40 verbose #51721 > │ closure3() │
00:09:40 verbose #51722 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:40 verbose #51723 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:40 verbose #51724 > │ Mut3) = State.trace_state.Value │
00:09:40 verbose #51725 > │ let v9 : string option = None │
00:09:40 verbose #51726 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:40 verbose #51727 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #51728 > │ let v11 : (int64 -> US2) = method4() │
00:09:40 verbose #51729 > │ let v12 : US2 = US2_1 │
00:09:40 verbose #51730 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:40 verbose #51731 > │ let v31 : System.DateTime = │
00:09:40 verbose #51732 > │ match v13 with │
00:09:40 verbose #51733 > │ | US2_1 -> (* None *) │
00:09:40 verbose #51734 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:40 verbose #51735 > │ v29 │
00:09:40 verbose #51736 > │ | US2_0(v14) -> (* Some *) │
00:09:40 verbose #51737 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:40 verbose #51738 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:40 verbose #51739 > │ let v17 : int64 = v16 v15 │
00:09:40 verbose #51740 > │ let v18 : int64 = v17 - v14 │
00:09:40 verbose #51741 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:40 verbose #51742 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:40 verbose #51743 > │ let v21 : int32 = v20 v19 │
00:09:40 verbose #51744 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:40 verbose #51745 > │ let v23 : int32 = v22 v19 │
00:09:40 verbose #51746 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:40 verbose #51747 > │ let v25 : int32 = v24 v19 │
00:09:40 verbose #51748 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:40 verbose #51749 > │ let v27 : int32 = v26 v19 │
00:09:40 verbose #51750 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:40 verbose #51751 > │ v25, v27) │
00:09:40 verbose #51752 > │ v28 │
00:09:40 verbose #51753 > │ let v32 : string = "hh:mm:ss" │
00:09:40 verbose #51754 > │ let v33 : string = v31.ToString v32 │
00:09:40 verbose #51755 > │ v33 │
00:09:40 verbose #51756 > │ #endif │
00:09:40 verbose #51757 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #51758 > │ let v34 : string = method5() │
00:09:40 verbose #51759 > │ v34 │
00:09:40 verbose #51760 > │ #endif │
00:09:40 verbose #51761 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #51762 > │ let v35 : string = method5() │
00:09:40 verbose #51763 > │ v35 │
00:09:40 verbose #51764 > │ #endif │
00:09:40 verbose #51765 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #51766 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #51767 > │ let v36 : (int64 -> US2) = method4() │
00:09:40 verbose #51768 > │ let v37 : US2 = US2_1 │
00:09:40 verbose #51769 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:40 verbose #51770 > │ let v56 : System.DateTime = │
00:09:40 verbose #51771 > │ match v38 with │
00:09:40 verbose #51772 > │ | US2_1 -> (* None *) │
00:09:40 verbose #51773 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:40 verbose #51774 > │ v54 │
00:09:40 verbose #51775 > │ | US2_0(v39) -> (* Some *) │
00:09:40 verbose #51776 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:40 verbose #51777 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:40 verbose #51778 > │ let v42 : int64 = v41 v40 │
00:09:40 verbose #51779 > │ let v43 : int64 = v42 - v39 │
00:09:40 verbose #51780 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:40 verbose #51781 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:40 verbose #51782 > │ let v46 : int32 = v45 v44 │
00:09:40 verbose #51783 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:40 verbose #51784 > │ let v48 : int32 = v47 v44 │
00:09:40 verbose #51785 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:40 verbose #51786 > │ let v50 : int32 = v49 v44 │
00:09:40 verbose #51787 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:40 verbose #51788 > │ let v52 : int32 = v51 v44 │
00:09:40 verbose #51789 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:40 verbose #51790 > │ v50, v52) │
00:09:40 verbose #51791 > │ v53 │
00:09:40 verbose #51792 > │ let v57 : string = "HH:mm:ss" │
00:09:40 verbose #51793 > │ let v58 : string = v56.ToString v57 │
00:09:40 verbose #51794 > │ v58 │
00:09:40 verbose #51795 > │ #endif │
00:09:40 verbose #51796 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #51797 > │ let v59 : string = method5() │
00:09:40 verbose #51798 > │ v59 │
00:09:40 verbose #51799 > │ #endif │
00:09:40 verbose #51800 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #51801 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:40 verbose #51802 > │ v60 │
00:09:40 verbose #51803 > │ #endif │
00:09:40 verbose #51804 > │ |> fun x -> _v9 <- Some x │
00:09:40 verbose #51805 > │ let v61 : string = _v9.Value │
00:09:40 verbose #51806 > │ let v62 : int64 = v4.l0 │
00:09:40 verbose #51807 > │ let v72 : string = │
00:09:40 verbose #51808 > │ match v0 with │
00:09:40 verbose #51809 > │ | US0_4 -> (* Critical *) │
00:09:40 verbose #51810 > │ let v67 : string = "Critical" │
00:09:40 verbose #51811 > │ v67 │
00:09:40 verbose #51812 > │ | US0_1 -> (* Debug *) │
00:09:40 verbose #51813 > │ let v64 : string = "Debug" │
00:09:40 verbose #51814 > │ v64 │
00:09:40 verbose #51815 > │ | US0_2 -> (* Info *) │
00:09:40 verbose #51816 > │ let v65 : string = "Info" │
00:09:40 verbose #51817 > │ v65 │
00:09:40 verbose #51818 > │ | US0_0 -> (* Verbose *) │
00:09:40 verbose #51819 > │ let v63 : string = "Verbose" │
00:09:40 verbose #51820 > │ v63 │
00:09:40 verbose #51821 > │ | US0_3 -> (* Warning *) │
00:09:40 verbose #51822 > │ let v66 : string = "Warning" │
00:09:40 verbose #51823 > │ v66 │
00:09:40 verbose #51824 > │ let v73 : string = v72.ToLower () │
00:09:40 verbose #51825 > │ let v74 : string option = None │
00:09:40 verbose #51826 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:40 verbose #51827 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #51828 > │ let v90 : Ref<Str> = │
00:09:40 verbose #51829 > │ match v0 with │
00:09:40 verbose #51830 > │ | US0_4 -> (* Critical *) │
00:09:40 verbose #51831 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:40 verbose #51832 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:40 verbose #51833 > │ v85 │
00:09:40 verbose #51834 > │ | US0_1 -> (* Debug *) │
00:09:40 verbose #51835 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:40 verbose #51836 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:40 verbose #51837 > │ v79 │
00:09:40 verbose #51838 > │ | US0_2 -> (* Info *) │
00:09:40 verbose #51839 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:40 verbose #51840 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:40 verbose #51841 > │ v81 │
00:09:40 verbose #51842 > │ | US0_0 -> (* Verbose *) │
00:09:40 verbose #51843 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:40 verbose #51844 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:40 verbose #51845 > │ v77 │
00:09:40 verbose #51846 > │ | US0_3 -> (* Warning *) │
00:09:40 verbose #51847 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:40 verbose #51848 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:40 verbose #51849 > │ v83 │
00:09:40 verbose #51850 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:40 verbose #51851 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:40 verbose #51852 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:40 verbose #51853 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:40 verbose #51854 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:40 verbose #51855 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:40 verbose #51856 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:40 verbose #51857 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:40 verbose #51858 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:40 verbose #51859 > │ v99 │
00:09:40 verbose #51860 > │ #endif │
00:09:40 verbose #51861 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #51862 > │ let v114 : Ref<Str> = │
00:09:40 verbose #51863 > │ match v0 with │
00:09:40 verbose #51864 > │ | US0_4 -> (* Critical *) │
00:09:40 verbose #51865 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:40 verbose #51866 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51867 > │ v108 │
00:09:40 verbose #51868 > │ v109 │
00:09:40 verbose #51869 > │ | US0_1 -> (* Debug *) │
00:09:40 verbose #51870 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:40 verbose #51871 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51872 > │ v102 │
00:09:40 verbose #51873 > │ v103 │
00:09:40 verbose #51874 > │ | US0_2 -> (* Info *) │
00:09:40 verbose #51875 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:40 verbose #51876 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51877 > │ v104 │
00:09:40 verbose #51878 > │ v105 │
00:09:40 verbose #51879 > │ | US0_0 -> (* Verbose *) │
00:09:40 verbose #51880 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:40 verbose #51881 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51882 > │ v100 │
00:09:40 verbose #51883 > │ v101 │
00:09:40 verbose #51884 > │ | US0_3 -> (* Warning *) │
00:09:40 verbose #51885 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:40 verbose #51886 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51887 > │ v106 │
00:09:40 verbose #51888 > │ v107 │
00:09:40 verbose #51889 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:40 verbose #51890 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:40 verbose #51891 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:40 verbose #51892 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:40 verbose #51893 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:40 verbose #51894 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:40 verbose #51895 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51896 > │ v120 │
00:09:40 verbose #51897 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:40 verbose #51898 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:40 verbose #51899 > │ v123 │
00:09:40 verbose #51900 > │ #endif │
00:09:40 verbose #51901 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #51902 > │ let v138 : Ref<Str> = │
00:09:40 verbose #51903 > │ match v0 with │
00:09:40 verbose #51904 > │ | US0_4 -> (* Critical *) │
00:09:40 verbose #51905 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:40 verbose #51906 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51907 > │ v132 │
00:09:40 verbose #51908 > │ v133 │
00:09:40 verbose #51909 > │ | US0_1 -> (* Debug *) │
00:09:40 verbose #51910 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:40 verbose #51911 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51912 > │ v126 │
00:09:40 verbose #51913 > │ v127 │
00:09:40 verbose #51914 > │ | US0_2 -> (* Info *) │
00:09:40 verbose #51915 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:40 verbose #51916 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51917 > │ v128 │
00:09:40 verbose #51918 > │ v129 │
00:09:40 verbose #51919 > │ | US0_0 -> (* Verbose *) │
00:09:40 verbose #51920 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:40 verbose #51921 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51922 > │ v124 │
00:09:40 verbose #51923 > │ v125 │
00:09:40 verbose #51924 > │ | US0_3 -> (* Warning *) │
00:09:40 verbose #51925 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:40 verbose #51926 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51927 > │ v130 │
00:09:40 verbose #51928 > │ v131 │
00:09:40 verbose #51929 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:40 verbose #51930 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:40 verbose #51931 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:40 verbose #51932 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:40 verbose #51933 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:40 verbose #51934 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:40 verbose #51935 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:40 verbose #51936 > │ v144 │
00:09:40 verbose #51937 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:40 verbose #51938 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:40 verbose #51939 > │ v147 │
00:09:40 verbose #51940 > │ #endif │
00:09:40 verbose #51941 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #51942 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #51943 > │ v73 │
00:09:40 verbose #51944 > │ #endif │
00:09:40 verbose #51945 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #51946 > │ v73 │
00:09:40 verbose #51947 > │ #endif │
00:09:40 verbose #51948 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #51949 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:40 verbose #51950 > │ v148 │
00:09:40 verbose #51951 > │ #endif │
00:09:40 verbose #51952 > │ |> fun x -> _v74 <- Some x │
00:09:40 verbose #51953 > │ let v149 : string = _v74.Value │
00:09:40 verbose #51954 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:40 verbose #51955 > │ let v151 : (char []) = [||] │
00:09:40 verbose #51956 > │ let v152 : string = v150.TrimStart v151 │
00:09:40 verbose #51957 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:40 verbose #51958 > │ let v154 : string = v152.TrimEnd v153 │
00:09:40 verbose #51959 > │ v154 │
00:09:40 verbose #51960 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:40 verbose #51961 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:40 verbose #51962 > │ closure3() │
00:09:40 verbose #51963 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:40 verbose #51964 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:40 verbose #51965 > │ Mut3) = State.trace_state.Value │
00:09:40 verbose #51966 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:40 verbose #51967 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:40 verbose #51968 > │ Mut3) = State.trace_state.Value │
00:09:40 verbose #51969 > │ let v13 : US0 = v10.l0 │
00:09:40 verbose #51970 > │ let v14 : bool = v9.l0 │
00:09:40 verbose #51971 > │ let v15 : bool = v14 = false │
00:09:40 verbose #51972 > │ let v19 : bool = │
00:09:40 verbose #51973 > │ if v15 then │
00:09:40 verbose #51974 > │ false │
00:09:40 verbose #51975 > │ else │
00:09:40 verbose #51976 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:40 verbose #51977 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:40 verbose #51978 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:40 verbose #51979 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:40 verbose #51980 > │ let v18 : bool = v16 >= v17 │
00:09:40 verbose #51981 > │ v18 │
00:09:40 verbose #51982 > │ if v19 then │
00:09:40 verbose #51983 > │ let v20 : int64 = v3.l0 │
00:09:40 verbose #51984 > │ let v21 : int64 = v20 + 1L │
00:09:40 verbose #51985 > │ v3.l0 <- v21 │
00:09:40 verbose #51986 > │ let v22 : string = $"%s{v1 ()}" │
00:09:40 verbose #51987 > │ let v23 : unit option = None │
00:09:40 verbose #51988 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:40 verbose #51989 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #51990 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:40 verbose #51991 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:40 verbose #51992 > │ () │
00:09:40 verbose #51993 > │ #endif │
00:09:40 verbose #51994 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #51995 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:40 verbose #51996 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:40 verbose #51997 > │ () │
00:09:40 verbose #51998 > │ #endif │
00:09:40 verbose #51999 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52000 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:40 verbose #52001 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:40 verbose #52002 > │ () │
00:09:40 verbose #52003 > │ #endif │
00:09:40 verbose #52004 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52005 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52006 > │ System.Console.WriteLine v22 │
00:09:40 verbose #52007 > │ () │
00:09:40 verbose #52008 > │ #endif │
00:09:40 verbose #52009 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52010 > │ System.Console.WriteLine v22 │
00:09:40 verbose #52011 > │ () │
00:09:40 verbose #52012 > │ #endif │
00:09:40 verbose #52013 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52014 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52015 > │ Unchecked.defaultof<unit> │
00:09:40 verbose #52016 > │ () │
00:09:40 verbose #52017 > │ #endif │
00:09:40 verbose #52018 > │ |> fun x -> _v23 <- Some x │
00:09:40 verbose #52019 > │ _v23.Value │
00:09:40 verbose #52020 > │ let v28 : (string -> unit) = v7.l0 │
00:09:40 verbose #52021 > │ v28 v22 │
00:09:40 verbose #52022 > │ and method1 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:40 verbose #52023 > │ = │
00:09:40 verbose #52024 > │ let v3 : (unit -> string) = closure2(v0, v1, v2) │
00:09:40 verbose #52025 > │ method6(v0, v3) │
00:09:40 verbose #52026 > │ and closure6 () () : string = │
00:09:40 verbose #52027 > │ let v0 : string = "_1" │
00:09:40 verbose #52028 > │ v0 │
00:09:40 verbose #52029 > │ and closure7 () () : string = │
00:09:40 verbose #52030 > │ let v0 : string = "_2" │
00:09:40 verbose #52031 > │ v0 │
00:09:40 verbose #52032 > │ and closure8 () () : string = │
00:09:40 verbose #52033 > │ let v0 : string = "_3" │
00:09:40 verbose #52034 > │ v0 │
00:09:40 verbose #52035 > │ and closure9 () () : string = │
00:09:40 verbose #52036 > │ let v0 : string = "_4" │
00:09:40 verbose #52037 > │ v0 │
00:09:40 verbose #52038 > │ and closure10 () () : string = │
00:09:40 verbose #52039 > │ let v0 : string = "_5" │
00:09:40 verbose #52040 > │ v0 │
00:09:40 verbose #52041 > │ and closure11 () () : string = │
00:09:40 verbose #52042 > │ let v0 : string = "2" │
00:09:40 verbose #52043 > │ v0 │
00:09:40 verbose #52044 > │ and closure12 () () : string = │
00:09:40 verbose #52045 > │ let v0 : string = "3" │
00:09:40 verbose #52046 > │ v0 │
00:09:40 verbose #52047 > │ and closure13 () (v0 : int32) : US3 = │
00:09:40 verbose #52048 > │ US3_0(v0) │
00:09:40 verbose #52049 > │ and method8 () : (int32 -> US3) = │
00:09:40 verbose #52050 > │ closure13() │
00:09:40 verbose #52051 > │ and closure14 (v0 : string) () : string = │
00:09:40 verbose #52052 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:40 verbose #52053 > │ v1 │
00:09:40 verbose #52054 > │ and closure15 () (v0 : bool) : US5 = │
00:09:40 verbose #52055 > │ US5_0(v0) │
00:09:40 verbose #52056 > │ and closure16 () (v0 : exn) : US5 = │
00:09:40 verbose #52057 > │ US5_1(v0) │
00:09:40 verbose #52058 > │ and closure17 () () : string = │
00:09:40 verbose #52059 > │ let v0 : string = "run_with_timeout_async" │
00:09:40 verbose #52060 > │ v0 │
00:09:40 verbose #52061 > │ and closure18 (v0 : int32) () : string = │
00:09:40 verbose #52062 > │ let v1 : (unit -> string) = closure1() │
00:09:40 verbose #52063 > │ let v2 : string = $"timeout: {v0} / {v1 ()}" │
00:09:40 verbose #52064 > │ v2 │
00:09:40 verbose #52065 > │ and closure19 (v0 : string) () : string = │
00:09:40 verbose #52066 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:40 verbose #52067 > │ v1 │
00:09:40 verbose #52068 > │ and closure20 () () : string = │
00:09:40 verbose #52069 > │ let v0 : string = "wait_for_port_access" │
00:09:40 verbose #52070 > │ v0 │
00:09:40 verbose #52071 > │ and closure21 (v0 : int64) () : string = │
00:09:40 verbose #52072 > │ let v1 : (unit -> string) = closure1() │
00:09:40 verbose #52073 > │ let v2 : string = $"port: {5555} / retry: {v0} / {v1 ()}" │
00:09:40 verbose #52074 > │ v2 │
00:09:40 verbose #52075 > │ and method7 (v0 : int32 option, v1 : int64) : Async<int64> = │
00:09:40 verbose #52076 > │ let v2 : Async<int64> option = None │
00:09:40 verbose #52077 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:40 verbose #52078 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52079 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52080 > │ v4 │
00:09:40 verbose #52081 > │ #endif │
00:09:40 verbose #52082 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52083 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52084 > │ v5 │
00:09:40 verbose #52085 > │ #endif │
00:09:40 verbose #52086 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52087 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52088 > │ v6 │
00:09:40 verbose #52089 > │ #endif │
00:09:40 verbose #52090 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52091 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52092 > │ let v7 : Async<int64> option = None │
00:09:40 verbose #52093 > │ let mutable _v7 = v7 │
00:09:40 verbose #52094 > │ async { │
00:09:40 verbose #52095 > │ let v8 : (int32 -> US3) = method8() │
00:09:40 verbose #52096 > │ let v9 : US3 = US3_1 │
00:09:40 verbose #52097 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:40 verbose #52098 > │ let v225 : Async<bool> = │
00:09:40 verbose #52099 > │ match v10 with │
00:09:40 verbose #52100 > │ | US3_1 -> (* None *) │
00:09:40 verbose #52101 > │ let v11 : Async<bool> option = None │
00:09:40 verbose #52102 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:40 verbose #52103 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52104 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52105 > │ v13 │
00:09:40 verbose #52106 > │ #endif │
00:09:40 verbose #52107 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52108 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52109 > │ v14 │
00:09:40 verbose #52110 > │ #endif │
00:09:40 verbose #52111 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52112 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52113 > │ v15 │
00:09:40 verbose #52114 > │ #endif │
00:09:40 verbose #52115 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52116 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52117 > │ let v16 : Async<bool> option = None │
00:09:40 verbose #52118 > │ let mutable _v16 = v16 │
00:09:40 verbose #52119 > │ async { │
00:09:40 verbose #52120 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:40 verbose #52121 > │ Async.CancellationToken │
00:09:40 verbose #52122 > │ let! v17 = v17 │
00:09:40 verbose #52123 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:40 verbose #52124 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:40 verbose #52125 > │ System.Net.Sockets.TcpClient () │
00:09:40 verbose #52126 > │ use v19 = v19 │
00:09:40 verbose #52127 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:40 verbose #52128 > │ try │
00:09:40 verbose #52129 > │ let v21 : string = "127.0.0.1" │
00:09:40 verbose #52130 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:40 verbose #52131 > │ (v21, 5555, v18) │
00:09:40 verbose #52132 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:40 verbose #52133 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:40 verbose #52134 > │ let v25 : Async<unit> option = None │
00:09:40 verbose #52135 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:40 verbose #52136 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52137 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52138 > │ v27 │
00:09:40 verbose #52139 > │ #endif │
00:09:40 verbose #52140 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52141 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52142 > │ v28 │
00:09:40 verbose #52143 > │ #endif │
00:09:40 verbose #52144 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52145 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52146 > │ v29 │
00:09:40 verbose #52147 > │ #endif │
00:09:40 verbose #52148 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52149 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52150 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:40 verbose #52151 > │ Async.AwaitTask │
00:09:40 verbose #52152 > │ let v31 : Async<unit> = v30 v24 │
00:09:40 verbose #52153 > │ v31 │
00:09:40 verbose #52154 > │ #endif │
00:09:40 verbose #52155 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52156 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52157 > │ v32 │
00:09:40 verbose #52158 > │ #endif │
00:09:40 verbose #52159 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52160 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52161 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #52162 > │ v33 │
00:09:40 verbose #52163 > │ #endif │
00:09:40 verbose #52164 > │ |> fun x -> _v25 <- Some x │
00:09:40 verbose #52165 > │ let v34 : Async<unit> = _v25.Value │
00:09:40 verbose #52166 > │ do! v34 │
00:09:40 verbose #52167 > │ return true │
00:09:40 verbose #52168 > │ with ex -> │
00:09:40 verbose #52169 > │ let v35 : exn = ex │
00:09:40 verbose #52170 > │ let v36 : string option = None │
00:09:40 verbose #52171 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:40 verbose #52172 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52173 > │ let v38 : string = $"%A{v35}" │
00:09:40 verbose #52174 > │ v38 │
00:09:40 verbose #52175 > │ #endif │
00:09:40 verbose #52176 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52177 > │ let v39 : string = $"%A{v35}" │
00:09:40 verbose #52178 > │ v39 │
00:09:40 verbose #52179 > │ #endif │
00:09:40 verbose #52180 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52181 > │ let v40 : string = $"%A{v35}" │
00:09:40 verbose #52182 > │ v40 │
00:09:40 verbose #52183 > │ #endif │
00:09:40 verbose #52184 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52185 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52186 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:40 verbose #52187 > │ v41 │
00:09:40 verbose #52188 > │ #endif │
00:09:40 verbose #52189 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52190 > │ let v42 : string = $"%A{v35}" │
00:09:40 verbose #52191 > │ v42 │
00:09:40 verbose #52192 > │ #endif │
00:09:40 verbose #52193 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52194 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52195 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:40 verbose #52196 > │ v43 │
00:09:40 verbose #52197 > │ #endif │
00:09:40 verbose #52198 > │ |> fun x -> _v36 <- Some x │
00:09:40 verbose #52199 > │ let v44 : string = _v36.Value │
00:09:40 verbose #52200 > │ let v45 : US0 = US0_0 │
00:09:40 verbose #52201 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:40 verbose #52202 > │ let v47 : (unit -> string) = closure1() │
00:09:40 verbose #52203 > │ method1(v45, v46, v47) │
00:09:40 verbose #52204 > │ return false │
00:09:40 verbose #52205 > │ (* │
00:09:40 verbose #52206 > │ let v48 : bool = *) │
00:09:40 verbose #52207 > │ } │
00:09:40 verbose #52208 > │ |> fun x -> _v16 <- Some x │
00:09:40 verbose #52209 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:40 verbose #52210 > │ v49 │
00:09:40 verbose #52211 > │ #endif │
00:09:40 verbose #52212 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52213 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52214 > │ v50 │
00:09:40 verbose #52215 > │ #endif │
00:09:40 verbose #52216 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52217 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52218 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:40 verbose #52219 > │ v51 │
00:09:40 verbose #52220 > │ #endif │
00:09:40 verbose #52221 > │ |> fun x -> _v11 <- Some x │
00:09:40 verbose #52222 > │ let v52 : Async<bool> = _v11.Value │
00:09:40 verbose #52223 > │ v52 │
00:09:40 verbose #52224 > │ | US3_0(v53) -> (* Some *) │
00:09:40 verbose #52225 > │ let v54 : Async<bool> option = None │
00:09:40 verbose #52226 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:40 verbose #52227 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52228 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52229 > │ v56 │
00:09:40 verbose #52230 > │ #endif │
00:09:40 verbose #52231 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52232 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52233 > │ v57 │
00:09:40 verbose #52234 > │ #endif │
00:09:40 verbose #52235 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52236 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52237 > │ v58 │
00:09:40 verbose #52238 > │ #endif │
00:09:40 verbose #52239 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52240 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52241 > │ let v59 : Async<bool> option = None │
00:09:40 verbose #52242 > │ let mutable _v59 = v59 │
00:09:40 verbose #52243 > │ async { │
00:09:40 verbose #52244 > │ let v60 : Async<bool> option = None │
00:09:40 verbose #52245 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:40 verbose #52246 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52247 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52248 > │ v62 │
00:09:40 verbose #52249 > │ #endif │
00:09:40 verbose #52250 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52251 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52252 > │ v63 │
00:09:40 verbose #52253 > │ #endif │
00:09:40 verbose #52254 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52255 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52256 > │ v64 │
00:09:40 verbose #52257 > │ #endif │
00:09:40 verbose #52258 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52259 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52260 > │ let v65 : Async<bool> option = None │
00:09:40 verbose #52261 > │ let mutable _v65 = v65 │
00:09:40 verbose #52262 > │ async { │
00:09:40 verbose #52263 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:40 verbose #52264 > │ Async.CancellationToken │
00:09:40 verbose #52265 > │ let! v66 = v66 │
00:09:40 verbose #52266 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:40 verbose #52267 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:40 verbose #52268 > │ System.Net.Sockets.TcpClient () │
00:09:40 verbose #52269 > │ use v68 = v68 │
00:09:40 verbose #52270 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:40 verbose #52271 > │ try │
00:09:40 verbose #52272 > │ let v70 : string = "127.0.0.1" │
00:09:40 verbose #52273 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:40 verbose #52274 > │ (v70, 5555, v67) │
00:09:40 verbose #52275 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:40 verbose #52276 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:40 verbose #52277 > │ let v74 : Async<unit> option = None │
00:09:40 verbose #52278 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:40 verbose #52279 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52280 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52281 > │ v76 │
00:09:40 verbose #52282 > │ #endif │
00:09:40 verbose #52283 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52284 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52285 > │ v77 │
00:09:40 verbose #52286 > │ #endif │
00:09:40 verbose #52287 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52288 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52289 > │ v78 │
00:09:40 verbose #52290 > │ #endif │
00:09:40 verbose #52291 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52292 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52293 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:40 verbose #52294 > │ Async.AwaitTask │
00:09:40 verbose #52295 > │ let v80 : Async<unit> = v79 v73 │
00:09:40 verbose #52296 > │ v80 │
00:09:40 verbose #52297 > │ #endif │
00:09:40 verbose #52298 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52299 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52300 > │ v81 │
00:09:40 verbose #52301 > │ #endif │
00:09:40 verbose #52302 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52303 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52304 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #52305 > │ v82 │
00:09:40 verbose #52306 > │ #endif │
00:09:40 verbose #52307 > │ |> fun x -> _v74 <- Some x │
00:09:40 verbose #52308 > │ let v83 : Async<unit> = _v74.Value │
00:09:40 verbose #52309 > │ do! v83 │
00:09:40 verbose #52310 > │ return true │
00:09:40 verbose #52311 > │ with ex -> │
00:09:40 verbose #52312 > │ let v84 : exn = ex │
00:09:40 verbose #52313 > │ let v85 : string option = None │
00:09:40 verbose #52314 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:40 verbose #52315 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52316 > │ let v87 : string = $"%A{v84}" │
00:09:40 verbose #52317 > │ v87 │
00:09:40 verbose #52318 > │ #endif │
00:09:40 verbose #52319 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52320 > │ let v88 : string = $"%A{v84}" │
00:09:40 verbose #52321 > │ v88 │
00:09:40 verbose #52322 > │ #endif │
00:09:40 verbose #52323 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52324 > │ let v89 : string = $"%A{v84}" │
00:09:40 verbose #52325 > │ v89 │
00:09:40 verbose #52326 > │ #endif │
00:09:40 verbose #52327 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52328 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52329 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:40 verbose #52330 > │ v90 │
00:09:40 verbose #52331 > │ #endif │
00:09:40 verbose #52332 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52333 > │ let v91 : string = $"%A{v84}" │
00:09:40 verbose #52334 > │ v91 │
00:09:40 verbose #52335 > │ #endif │
00:09:40 verbose #52336 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52337 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52338 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:40 verbose #52339 > │ v92 │
00:09:40 verbose #52340 > │ #endif │
00:09:40 verbose #52341 > │ |> fun x -> _v85 <- Some x │
00:09:40 verbose #52342 > │ let v93 : string = _v85.Value │
00:09:40 verbose #52343 > │ let v94 : US0 = US0_0 │
00:09:40 verbose #52344 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:40 verbose #52345 > │ let v96 : (unit -> string) = closure1() │
00:09:40 verbose #52346 > │ method1(v94, v95, v96) │
00:09:40 verbose #52347 > │ return false │
00:09:40 verbose #52348 > │ (* │
00:09:40 verbose #52349 > │ let v97 : bool = *) │
00:09:40 verbose #52350 > │ } │
00:09:40 verbose #52351 > │ |> fun x -> _v65 <- Some x │
00:09:40 verbose #52352 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:40 verbose #52353 > │ v98 │
00:09:40 verbose #52354 > │ #endif │
00:09:40 verbose #52355 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52356 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52357 > │ v99 │
00:09:40 verbose #52358 > │ #endif │
00:09:40 verbose #52359 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52360 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52361 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:40 verbose #52362 > │ v100 │
00:09:40 verbose #52363 > │ #endif │
00:09:40 verbose #52364 > │ |> fun x -> _v60 <- Some x │
00:09:40 verbose #52365 > │ let v101 : Async<bool> = _v60.Value │
00:09:40 verbose #52366 > │ let v102 : Async<US4> option = None │
00:09:40 verbose #52367 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:40 verbose #52368 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52369 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52370 > │ v104 │
00:09:40 verbose #52371 > │ #endif │
00:09:40 verbose #52372 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52373 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52374 > │ v105 │
00:09:40 verbose #52375 > │ #endif │
00:09:40 verbose #52376 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52377 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52378 > │ v106 │
00:09:40 verbose #52379 > │ #endif │
00:09:40 verbose #52380 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52381 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52382 > │ let v107 : Async<US4> option = None │
00:09:40 verbose #52383 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:40 verbose #52384 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52385 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52386 > │ v109 │
00:09:40 verbose #52387 > │ #endif │
00:09:40 verbose #52388 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52389 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52390 > │ v110 │
00:09:40 verbose #52391 > │ #endif │
00:09:40 verbose #52392 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52393 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52394 > │ v111 │
00:09:40 verbose #52395 > │ #endif │
00:09:40 verbose #52396 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52397 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52398 > │ let v112 : Async<US4> option = None │
00:09:40 verbose #52399 > │ let mutable _v112 = v112 │
00:09:40 verbose #52400 > │ async { │
00:09:40 verbose #52401 > │ let v113 : Async<Async<bool>> option = None │
00:09:40 verbose #52402 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:40 verbose #52403 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52404 > │ let v115 : Async<Async<bool>> = null |> │
00:09:40 verbose #52405 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #52406 > │ v115 │
00:09:40 verbose #52407 > │ #endif │
00:09:40 verbose #52408 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52409 > │ let v116 : Async<Async<bool>> = null |> │
00:09:40 verbose #52410 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #52411 > │ v116 │
00:09:40 verbose #52412 > │ #endif │
00:09:40 verbose #52413 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52414 > │ let v117 : Async<Async<bool>> = null |> │
00:09:40 verbose #52415 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #52416 > │ v117 │
00:09:40 verbose #52417 > │ #endif │
00:09:40 verbose #52418 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52419 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52420 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:40 verbose #52421 > │ v118 │
00:09:40 verbose #52422 > │ #endif │
00:09:40 verbose #52423 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52424 > │ let v119 : Async<Async<bool>> = null |> │
00:09:40 verbose #52425 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #52426 > │ v119 │
00:09:40 verbose #52427 > │ #endif │
00:09:40 verbose #52428 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52429 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52430 > │ let v120 : Async<Async<bool>> = │
00:09:40 verbose #52431 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:40 verbose #52432 > │ v120 │
00:09:40 verbose #52433 > │ #endif │
00:09:40 verbose #52434 > │ |> fun x -> _v113 <- Some x │
00:09:40 verbose #52435 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:40 verbose #52436 > │ let! v121 = v121 │
00:09:40 verbose #52437 > │ let v122 : Async<bool> = v121 │
00:09:40 verbose #52438 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:40 verbose #52439 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:40 verbose #52440 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52441 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #52442 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #52443 > │ v125 │
00:09:40 verbose #52444 > │ #endif │
00:09:40 verbose #52445 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52446 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #52447 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #52448 > │ v126 │
00:09:40 verbose #52449 > │ #endif │
00:09:40 verbose #52450 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52451 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #52452 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #52453 > │ v127 │
00:09:40 verbose #52454 > │ #endif │
00:09:40 verbose #52455 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52456 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52457 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:40 verbose #52458 > │ Async.Catch │
00:09:40 verbose #52459 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:40 verbose #52460 > │ v129 │
00:09:40 verbose #52461 > │ #endif │
00:09:40 verbose #52462 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52463 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #52464 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #52465 > │ v130 │
00:09:40 verbose #52466 > │ #endif │
00:09:40 verbose #52467 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52468 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52469 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:40 verbose #52470 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:40 verbose #52471 > │ v131 │
00:09:40 verbose #52472 > │ #endif │
00:09:40 verbose #52473 > │ |> fun x -> _v123 <- Some x │
00:09:40 verbose #52474 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:40 verbose #52475 > │ let v133 : Async<US5> option = None │
00:09:40 verbose #52476 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:40 verbose #52477 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52478 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #52479 > │ v135 │
00:09:40 verbose #52480 > │ #endif │
00:09:40 verbose #52481 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52482 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #52483 > │ v136 │
00:09:40 verbose #52484 > │ #endif │
00:09:40 verbose #52485 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52486 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #52487 > │ v137 │
00:09:40 verbose #52488 > │ #endif │
00:09:40 verbose #52489 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52490 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52491 > │ let v138 : Async<US5> option = None │
00:09:40 verbose #52492 > │ let mutable _v138 = v138 │
00:09:40 verbose #52493 > │ async { │
00:09:40 verbose #52494 > │ let! v132 = v132 │
00:09:40 verbose #52495 > │ let v139 : Choice<bool, exn> = v132 │
00:09:40 verbose #52496 > │ let v140 : US5 option = None │
00:09:40 verbose #52497 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:40 verbose #52498 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52499 > │ let v142 : US5 = null |> unbox<US5> │
00:09:40 verbose #52500 > │ v142 │
00:09:40 verbose #52501 > │ #endif │
00:09:40 verbose #52502 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52503 > │ let v143 : US5 = null |> unbox<US5> │
00:09:40 verbose #52504 > │ v143 │
00:09:40 verbose #52505 > │ #endif │
00:09:40 verbose #52506 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52507 > │ let v144 : US5 = null |> unbox<US5> │
00:09:40 verbose #52508 > │ v144 │
00:09:40 verbose #52509 > │ #endif │
00:09:40 verbose #52510 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52511 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52512 > │ let v145 : (bool -> US5) = closure15() │
00:09:40 verbose #52513 > │ let v146 : (exn -> US5) = closure16() │
00:09:40 verbose #52514 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:40 verbose #52515 > │ Choice2Of2 x -> v146 x │
00:09:40 verbose #52516 > │ v147 │
00:09:40 verbose #52517 > │ #endif │
00:09:40 verbose #52518 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52519 > │ let v148 : US5 = null |> unbox<US5> │
00:09:40 verbose #52520 > │ v148 │
00:09:40 verbose #52521 > │ #endif │
00:09:40 verbose #52522 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52523 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52524 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:40 verbose #52525 > │ v149 │
00:09:40 verbose #52526 > │ #endif │
00:09:40 verbose #52527 > │ |> fun x -> _v140 <- Some x │
00:09:40 verbose #52528 > │ let v150 : US5 = _v140.Value │
00:09:40 verbose #52529 > │ return v150 │
00:09:40 verbose #52530 > │ } │
00:09:40 verbose #52531 > │ |> fun x -> _v138 <- Some x │
00:09:40 verbose #52532 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:40 verbose #52533 > │ v151 │
00:09:40 verbose #52534 > │ #endif │
00:09:40 verbose #52535 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52536 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #52537 > │ v152 │
00:09:40 verbose #52538 > │ #endif │
00:09:40 verbose #52539 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52540 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52541 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:40 verbose #52542 > │ v153 │
00:09:40 verbose #52543 > │ #endif │
00:09:40 verbose #52544 > │ |> fun x -> _v133 <- Some x │
00:09:40 verbose #52545 > │ let v154 : Async<US5> = _v133.Value │
00:09:40 verbose #52546 > │ let v155 : Async<US6> option = None │
00:09:40 verbose #52547 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:40 verbose #52548 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52549 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #52550 > │ v157 │
00:09:40 verbose #52551 > │ #endif │
00:09:40 verbose #52552 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52553 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #52554 > │ v158 │
00:09:40 verbose #52555 > │ #endif │
00:09:40 verbose #52556 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52557 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #52558 > │ v159 │
00:09:40 verbose #52559 > │ #endif │
00:09:40 verbose #52560 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52561 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52562 > │ let v160 : Async<US6> option = None │
00:09:40 verbose #52563 > │ let mutable _v160 = v160 │
00:09:40 verbose #52564 > │ async { │
00:09:40 verbose #52565 > │ let! v154 = v154 │
00:09:40 verbose #52566 > │ let v161 : US5 = v154 │
00:09:40 verbose #52567 > │ let v167 : US6 = │
00:09:40 verbose #52568 > │ match v161 with │
00:09:40 verbose #52569 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:40 verbose #52570 > │ US6_0(v162) │
00:09:40 verbose #52571 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:40 verbose #52572 > │ US6_1(v164) │
00:09:40 verbose #52573 > │ return v167 │
00:09:40 verbose #52574 > │ } │
00:09:40 verbose #52575 > │ |> fun x -> _v160 <- Some x │
00:09:40 verbose #52576 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:40 verbose #52577 > │ v168 │
00:09:40 verbose #52578 > │ #endif │
00:09:40 verbose #52579 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52580 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #52581 > │ v169 │
00:09:40 verbose #52582 > │ #endif │
00:09:40 verbose #52583 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52584 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52585 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:40 verbose #52586 > │ v170 │
00:09:40 verbose #52587 > │ #endif │
00:09:40 verbose #52588 > │ |> fun x -> _v155 <- Some x │
00:09:40 verbose #52589 > │ let v171 : Async<US6> = _v155.Value │
00:09:40 verbose #52590 > │ let v172 : Async<US4> option = None │
00:09:40 verbose #52591 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:40 verbose #52592 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52593 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52594 > │ v174 │
00:09:40 verbose #52595 > │ #endif │
00:09:40 verbose #52596 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52597 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52598 > │ v175 │
00:09:40 verbose #52599 > │ #endif │
00:09:40 verbose #52600 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52601 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52602 > │ v176 │
00:09:40 verbose #52603 > │ #endif │
00:09:40 verbose #52604 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52605 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52606 > │ let v177 : Async<US4> option = None │
00:09:40 verbose #52607 > │ let mutable _v177 = v177 │
00:09:40 verbose #52608 > │ async { │
00:09:40 verbose #52609 > │ let! v171 = v171 │
00:09:40 verbose #52610 > │ let v178 : US6 = v171 │
00:09:40 verbose #52611 > │ let v204 : US4 = │
00:09:40 verbose #52612 > │ match v178 with │
00:09:40 verbose #52613 > │ | US6_1(v181) -> (* Error *) │
00:09:40 verbose #52614 > │ let v182 : string = $"%A{v181}" │
00:09:40 verbose #52615 > │ let v183 : string = "System.TimeoutException" │
00:09:40 verbose #52616 > │ let v184 : bool = v182.Contains v183 │
00:09:40 verbose #52617 > │ if v184 then │
00:09:40 verbose #52618 > │ let v185 : US0 = US0_1 │
00:09:40 verbose #52619 > │ let v186 : (unit -> string) = closure17() │
00:09:40 verbose #52620 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:40 verbose #52621 > │ method1(v185, v186, v187) │
00:09:40 verbose #52622 > │ US4_1 │
00:09:40 verbose #52623 > │ else │
00:09:40 verbose #52624 > │ let v189 : string option = None │
00:09:40 verbose #52625 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:40 verbose #52626 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52627 > │ let v191 : string = $"%A{v181}" │
00:09:40 verbose #52628 > │ v191 │
00:09:40 verbose #52629 > │ #endif │
00:09:40 verbose #52630 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52631 > │ let v192 : string = $"%A{v181}" │
00:09:40 verbose #52632 > │ v192 │
00:09:40 verbose #52633 > │ #endif │
00:09:40 verbose #52634 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52635 > │ let v193 : string = $"%A{v181}" │
00:09:40 verbose #52636 > │ v193 │
00:09:40 verbose #52637 > │ #endif │
00:09:40 verbose #52638 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52639 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52640 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:40 verbose #52641 > │ {v181.Message}" │
00:09:40 verbose #52642 > │ v194 │
00:09:40 verbose #52643 > │ #endif │
00:09:40 verbose #52644 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52645 > │ let v195 : string = $"%A{v181}" │
00:09:40 verbose #52646 > │ v195 │
00:09:40 verbose #52647 > │ #endif │
00:09:40 verbose #52648 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52649 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52650 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:40 verbose #52651 > │ v196 │
00:09:40 verbose #52652 > │ #endif │
00:09:40 verbose #52653 > │ |> fun x -> _v189 <- Some x │
00:09:40 verbose #52654 > │ let v197 : string = _v189.Value │
00:09:40 verbose #52655 > │ let v198 : US0 = US0_4 │
00:09:40 verbose #52656 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:40 verbose #52657 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:40 verbose #52658 > │ method1(v198, v199, v200) │
00:09:40 verbose #52659 > │ US4_1 │
00:09:40 verbose #52660 > │ | US6_0(v179) -> (* Ok *) │
00:09:40 verbose #52661 > │ US4_0(v179) │
00:09:40 verbose #52662 > │ return v204 │
00:09:40 verbose #52663 > │ } │
00:09:40 verbose #52664 > │ |> fun x -> _v177 <- Some x │
00:09:40 verbose #52665 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:40 verbose #52666 > │ v205 │
00:09:40 verbose #52667 > │ #endif │
00:09:40 verbose #52668 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52669 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52670 > │ v206 │
00:09:40 verbose #52671 > │ #endif │
00:09:40 verbose #52672 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52673 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52674 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:40 verbose #52675 > │ v207 │
00:09:40 verbose #52676 > │ #endif │
00:09:40 verbose #52677 > │ |> fun x -> _v172 <- Some x │
00:09:40 verbose #52678 > │ let v208 : Async<US4> = _v172.Value │
00:09:40 verbose #52679 > │ return! v208 │
00:09:40 verbose #52680 > │ } │
00:09:40 verbose #52681 > │ |> fun x -> _v112 <- Some x │
00:09:40 verbose #52682 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:40 verbose #52683 > │ v209 │
00:09:40 verbose #52684 > │ #endif │
00:09:40 verbose #52685 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52686 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52687 > │ v210 │
00:09:40 verbose #52688 > │ #endif │
00:09:40 verbose #52689 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52690 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52691 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:40 verbose #52692 > │ v211 │
00:09:40 verbose #52693 > │ #endif │
00:09:40 verbose #52694 > │ |> fun x -> _v107 <- Some x │
00:09:40 verbose #52695 > │ let v212 : Async<US4> = _v107.Value │
00:09:40 verbose #52696 > │ v212 │
00:09:40 verbose #52697 > │ #endif │
00:09:40 verbose #52698 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52699 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #52700 > │ v213 │
00:09:40 verbose #52701 > │ #endif │
00:09:40 verbose #52702 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52703 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52704 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:40 verbose #52705 > │ v214 │
00:09:40 verbose #52706 > │ #endif │
00:09:40 verbose #52707 > │ |> fun x -> _v102 <- Some x │
00:09:40 verbose #52708 > │ let v215 : Async<US4> = _v102.Value │
00:09:40 verbose #52709 > │ let! v215 = v215 │
00:09:40 verbose #52710 > │ let v216 : US4 = v215 │
00:09:40 verbose #52711 > │ let v219 : bool = │
00:09:40 verbose #52712 > │ match v216 with │
00:09:40 verbose #52713 > │ | US4_1 -> (* None *) │
00:09:40 verbose #52714 > │ false │
00:09:40 verbose #52715 > │ | US4_0(v217) -> (* Some *) │
00:09:40 verbose #52716 > │ v217 │
00:09:40 verbose #52717 > │ return v219 │
00:09:40 verbose #52718 > │ } │
00:09:40 verbose #52719 > │ |> fun x -> _v59 <- Some x │
00:09:40 verbose #52720 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:40 verbose #52721 > │ v220 │
00:09:40 verbose #52722 > │ #endif │
00:09:40 verbose #52723 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52724 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52725 > │ v221 │
00:09:40 verbose #52726 > │ #endif │
00:09:40 verbose #52727 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52728 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52729 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:40 verbose #52730 > │ v222 │
00:09:40 verbose #52731 > │ #endif │
00:09:40 verbose #52732 > │ |> fun x -> _v54 <- Some x │
00:09:40 verbose #52733 > │ let v223 : Async<bool> = _v54.Value │
00:09:40 verbose #52734 > │ v223 │
00:09:40 verbose #52735 > │ let! v225 = v225 │
00:09:40 verbose #52736 > │ let v226 : bool = v225 │
00:09:40 verbose #52737 > │ if v226 then │
00:09:40 verbose #52738 > │ return v1 │
00:09:40 verbose #52739 > │ (* │
00:09:40 verbose #52740 > │ () │
00:09:40 verbose #52741 > │ else │
00:09:40 verbose #52742 > │ *) else │
00:09:40 verbose #52743 > │ let v227 : int64 = v1 % 100L │
00:09:40 verbose #52744 > │ let v228 : bool = v227 = 0L │
00:09:40 verbose #52745 > │ if v228 then │
00:09:40 verbose #52746 > │ let v229 : US0 = US0_0 │
00:09:40 verbose #52747 > │ let v230 : (unit -> string) = closure20() │
00:09:40 verbose #52748 > │ let v231 : (unit -> string) = closure21(v1) │
00:09:40 verbose #52749 > │ method1(v229, v230, v231) │
00:09:40 verbose #52750 > │ let v232 : Async<unit> option = None │
00:09:40 verbose #52751 > │ let v233 : bool = true in let mutable _v232 = v232 │
00:09:40 verbose #52752 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52753 > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52754 > │ v234 │
00:09:40 verbose #52755 > │ #endif │
00:09:40 verbose #52756 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52757 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52758 > │ v235 │
00:09:40 verbose #52759 > │ #endif │
00:09:40 verbose #52760 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52761 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52762 > │ v236 │
00:09:40 verbose #52763 > │ #endif │
00:09:40 verbose #52764 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52765 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52766 > │ let v237 : (int32 -> Async<unit>) = Async.Sleep │
00:09:40 verbose #52767 > │ let v238 : Async<unit> = v237 10 │
00:09:40 verbose #52768 > │ v238 │
00:09:40 verbose #52769 > │ #endif │
00:09:40 verbose #52770 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52771 > │ let v239 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52772 > │ v239 │
00:09:40 verbose #52773 > │ #endif │
00:09:40 verbose #52774 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52775 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52776 > │ let v240 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #52777 > │ v240 │
00:09:40 verbose #52778 > │ #endif │
00:09:40 verbose #52779 > │ |> fun x -> _v232 <- Some x │
00:09:40 verbose #52780 > │ let v241 : Async<unit> = _v232.Value │
00:09:40 verbose #52781 > │ do! v241 │
00:09:40 verbose #52782 > │ let v242 : int64 = v1 + 1L │
00:09:40 verbose #52783 > │ let v243 : Async<int64> = method7(v0, v242) │
00:09:40 verbose #52784 > │ return! v243 │
00:09:40 verbose #52785 > │ (* │
00:09:40 verbose #52786 > │ () │
00:09:40 verbose #52787 > │ *) │
00:09:40 verbose #52788 > │ } │
00:09:40 verbose #52789 > │ |> fun x -> _v7 <- Some x │
00:09:40 verbose #52790 > │ let v244 : Async<int64> = _v7 |> Option.get │
00:09:40 verbose #52791 > │ v244 │
00:09:40 verbose #52792 > │ #endif │
00:09:40 verbose #52793 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52794 > │ let v245 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52795 > │ v245 │
00:09:40 verbose #52796 > │ #endif │
00:09:40 verbose #52797 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #52798 > │ let v246 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:40 verbose #52799 > │ v246 │
00:09:40 verbose #52800 > │ #endif │
00:09:40 verbose #52801 > │ |> fun x -> _v2 <- Some x │
00:09:40 verbose #52802 > │ let v247 : Async<int64> = _v2.Value │
00:09:40 verbose #52803 > │ v247 │
00:09:40 verbose #52804 > │ and closure22 () () : string = │
00:09:40 verbose #52805 > │ let v0 : string = "4" │
00:09:40 verbose #52806 > │ v0 │
00:09:40 verbose #52807 > │ and method9 (v0 : int32 option, v1 : int64) : Async<int64> = │
00:09:40 verbose #52808 > │ let v2 : Async<int64> option = None │
00:09:40 verbose #52809 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:40 verbose #52810 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52811 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52812 > │ v4 │
00:09:40 verbose #52813 > │ #endif │
00:09:40 verbose #52814 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52815 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52816 > │ v5 │
00:09:40 verbose #52817 > │ #endif │
00:09:40 verbose #52818 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52819 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #52820 > │ v6 │
00:09:40 verbose #52821 > │ #endif │
00:09:40 verbose #52822 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52823 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52824 > │ let v7 : Async<int64> option = None │
00:09:40 verbose #52825 > │ let mutable _v7 = v7 │
00:09:40 verbose #52826 > │ async { │
00:09:40 verbose #52827 > │ let v8 : (int32 -> US3) = method8() │
00:09:40 verbose #52828 > │ let v9 : US3 = US3_1 │
00:09:40 verbose #52829 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:40 verbose #52830 > │ let v225 : Async<bool> = │
00:09:40 verbose #52831 > │ match v10 with │
00:09:40 verbose #52832 > │ | US3_1 -> (* None *) │
00:09:40 verbose #52833 > │ let v11 : Async<bool> option = None │
00:09:40 verbose #52834 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:40 verbose #52835 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52836 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52837 > │ v13 │
00:09:40 verbose #52838 > │ #endif │
00:09:40 verbose #52839 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52840 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52841 > │ v14 │
00:09:40 verbose #52842 > │ #endif │
00:09:40 verbose #52843 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52844 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52845 > │ v15 │
00:09:40 verbose #52846 > │ #endif │
00:09:40 verbose #52847 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52848 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52849 > │ let v16 : Async<bool> option = None │
00:09:40 verbose #52850 > │ let mutable _v16 = v16 │
00:09:40 verbose #52851 > │ async { │
00:09:40 verbose #52852 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:40 verbose #52853 > │ Async.CancellationToken │
00:09:40 verbose #52854 > │ let! v17 = v17 │
00:09:40 verbose #52855 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:40 verbose #52856 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:40 verbose #52857 > │ System.Net.Sockets.TcpClient () │
00:09:40 verbose #52858 > │ use v19 = v19 │
00:09:40 verbose #52859 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:40 verbose #52860 > │ try │
00:09:40 verbose #52861 > │ let v21 : string = "127.0.0.1" │
00:09:40 verbose #52862 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:40 verbose #52863 > │ (v21, 5555, v18) │
00:09:40 verbose #52864 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:40 verbose #52865 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:40 verbose #52866 > │ let v25 : Async<unit> option = None │
00:09:40 verbose #52867 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:40 verbose #52868 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52869 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52870 > │ v27 │
00:09:40 verbose #52871 > │ #endif │
00:09:40 verbose #52872 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52873 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52874 > │ v28 │
00:09:40 verbose #52875 > │ #endif │
00:09:40 verbose #52876 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52877 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52878 > │ v29 │
00:09:40 verbose #52879 > │ #endif │
00:09:40 verbose #52880 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52881 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52882 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:40 verbose #52883 > │ Async.AwaitTask │
00:09:40 verbose #52884 > │ let v31 : Async<unit> = v30 v24 │
00:09:40 verbose #52885 > │ v31 │
00:09:40 verbose #52886 > │ #endif │
00:09:40 verbose #52887 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52888 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #52889 > │ v32 │
00:09:40 verbose #52890 > │ #endif │
00:09:40 verbose #52891 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52892 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52893 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #52894 > │ v33 │
00:09:40 verbose #52895 > │ #endif │
00:09:40 verbose #52896 > │ |> fun x -> _v25 <- Some x │
00:09:40 verbose #52897 > │ let v34 : Async<unit> = _v25.Value │
00:09:40 verbose #52898 > │ do! v34 │
00:09:40 verbose #52899 > │ return true │
00:09:40 verbose #52900 > │ with ex -> │
00:09:40 verbose #52901 > │ let v35 : exn = ex │
00:09:40 verbose #52902 > │ let v36 : string option = None │
00:09:40 verbose #52903 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:40 verbose #52904 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52905 > │ let v38 : string = $"%A{v35}" │
00:09:40 verbose #52906 > │ v38 │
00:09:40 verbose #52907 > │ #endif │
00:09:40 verbose #52908 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52909 > │ let v39 : string = $"%A{v35}" │
00:09:40 verbose #52910 > │ v39 │
00:09:40 verbose #52911 > │ #endif │
00:09:40 verbose #52912 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52913 > │ let v40 : string = $"%A{v35}" │
00:09:40 verbose #52914 > │ v40 │
00:09:40 verbose #52915 > │ #endif │
00:09:40 verbose #52916 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52917 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52918 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:40 verbose #52919 > │ v41 │
00:09:40 verbose #52920 > │ #endif │
00:09:40 verbose #52921 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52922 > │ let v42 : string = $"%A{v35}" │
00:09:40 verbose #52923 > │ v42 │
00:09:40 verbose #52924 > │ #endif │
00:09:40 verbose #52925 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52926 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52927 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:40 verbose #52928 > │ v43 │
00:09:40 verbose #52929 > │ #endif │
00:09:40 verbose #52930 > │ |> fun x -> _v36 <- Some x │
00:09:40 verbose #52931 > │ let v44 : string = _v36.Value │
00:09:40 verbose #52932 > │ let v45 : US0 = US0_0 │
00:09:40 verbose #52933 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:40 verbose #52934 > │ let v47 : (unit -> string) = closure1() │
00:09:40 verbose #52935 > │ method1(v45, v46, v47) │
00:09:40 verbose #52936 > │ return false │
00:09:40 verbose #52937 > │ (* │
00:09:40 verbose #52938 > │ let v48 : bool = *) │
00:09:40 verbose #52939 > │ } │
00:09:40 verbose #52940 > │ |> fun x -> _v16 <- Some x │
00:09:40 verbose #52941 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:40 verbose #52942 > │ v49 │
00:09:40 verbose #52943 > │ #endif │
00:09:40 verbose #52944 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #52945 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52946 > │ v50 │
00:09:40 verbose #52947 > │ #endif │
00:09:40 verbose #52948 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #52949 > │ FABLE_COMPILER_DART │
00:09:40 verbose #52950 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:40 verbose #52951 > │ v51 │
00:09:40 verbose #52952 > │ #endif │
00:09:40 verbose #52953 > │ |> fun x -> _v11 <- Some x │
00:09:40 verbose #52954 > │ let v52 : Async<bool> = _v11.Value │
00:09:40 verbose #52955 > │ v52 │
00:09:40 verbose #52956 > │ | US3_0(v53) -> (* Some *) │
00:09:40 verbose #52957 > │ let v54 : Async<bool> option = None │
00:09:40 verbose #52958 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:40 verbose #52959 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52960 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52961 > │ v56 │
00:09:40 verbose #52962 > │ #endif │
00:09:40 verbose #52963 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52964 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52965 > │ v57 │
00:09:40 verbose #52966 > │ #endif │
00:09:40 verbose #52967 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52968 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52969 > │ v58 │
00:09:40 verbose #52970 > │ #endif │
00:09:40 verbose #52971 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52972 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52973 > │ let v59 : Async<bool> option = None │
00:09:40 verbose #52974 > │ let mutable _v59 = v59 │
00:09:40 verbose #52975 > │ async { │
00:09:40 verbose #52976 > │ let v60 : Async<bool> option = None │
00:09:40 verbose #52977 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:40 verbose #52978 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #52979 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52980 > │ v62 │
00:09:40 verbose #52981 > │ #endif │
00:09:40 verbose #52982 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #52983 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52984 > │ v63 │
00:09:40 verbose #52985 > │ #endif │
00:09:40 verbose #52986 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #52987 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #52988 > │ v64 │
00:09:40 verbose #52989 > │ #endif │
00:09:40 verbose #52990 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #52991 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #52992 > │ let v65 : Async<bool> option = None │
00:09:40 verbose #52993 > │ let mutable _v65 = v65 │
00:09:40 verbose #52994 > │ async { │
00:09:40 verbose #52995 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:40 verbose #52996 > │ Async.CancellationToken │
00:09:40 verbose #52997 > │ let! v66 = v66 │
00:09:40 verbose #52998 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:40 verbose #52999 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:40 verbose #53000 > │ System.Net.Sockets.TcpClient () │
00:09:40 verbose #53001 > │ use v68 = v68 │
00:09:40 verbose #53002 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:40 verbose #53003 > │ try │
00:09:40 verbose #53004 > │ let v70 : string = "127.0.0.1" │
00:09:40 verbose #53005 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:40 verbose #53006 > │ (v70, 5555, v67) │
00:09:40 verbose #53007 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:40 verbose #53008 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:40 verbose #53009 > │ let v74 : Async<unit> option = None │
00:09:40 verbose #53010 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:40 verbose #53011 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53012 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53013 > │ v76 │
00:09:40 verbose #53014 > │ #endif │
00:09:40 verbose #53015 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53016 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53017 > │ v77 │
00:09:40 verbose #53018 > │ #endif │
00:09:40 verbose #53019 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53020 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53021 > │ v78 │
00:09:40 verbose #53022 > │ #endif │
00:09:40 verbose #53023 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53024 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53025 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:40 verbose #53026 > │ Async.AwaitTask │
00:09:40 verbose #53027 > │ let v80 : Async<unit> = v79 v73 │
00:09:40 verbose #53028 > │ v80 │
00:09:40 verbose #53029 > │ #endif │
00:09:40 verbose #53030 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53031 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53032 > │ v81 │
00:09:40 verbose #53033 > │ #endif │
00:09:40 verbose #53034 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53035 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53036 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #53037 > │ v82 │
00:09:40 verbose #53038 > │ #endif │
00:09:40 verbose #53039 > │ |> fun x -> _v74 <- Some x │
00:09:40 verbose #53040 > │ let v83 : Async<unit> = _v74.Value │
00:09:40 verbose #53041 > │ do! v83 │
00:09:40 verbose #53042 > │ return true │
00:09:40 verbose #53043 > │ with ex -> │
00:09:40 verbose #53044 > │ let v84 : exn = ex │
00:09:40 verbose #53045 > │ let v85 : string option = None │
00:09:40 verbose #53046 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:40 verbose #53047 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53048 > │ let v87 : string = $"%A{v84}" │
00:09:40 verbose #53049 > │ v87 │
00:09:40 verbose #53050 > │ #endif │
00:09:40 verbose #53051 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53052 > │ let v88 : string = $"%A{v84}" │
00:09:40 verbose #53053 > │ v88 │
00:09:40 verbose #53054 > │ #endif │
00:09:40 verbose #53055 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53056 > │ let v89 : string = $"%A{v84}" │
00:09:40 verbose #53057 > │ v89 │
00:09:40 verbose #53058 > │ #endif │
00:09:40 verbose #53059 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53060 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53061 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:40 verbose #53062 > │ v90 │
00:09:40 verbose #53063 > │ #endif │
00:09:40 verbose #53064 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53065 > │ let v91 : string = $"%A{v84}" │
00:09:40 verbose #53066 > │ v91 │
00:09:40 verbose #53067 > │ #endif │
00:09:40 verbose #53068 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53069 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53070 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:40 verbose #53071 > │ v92 │
00:09:40 verbose #53072 > │ #endif │
00:09:40 verbose #53073 > │ |> fun x -> _v85 <- Some x │
00:09:40 verbose #53074 > │ let v93 : string = _v85.Value │
00:09:40 verbose #53075 > │ let v94 : US0 = US0_0 │
00:09:40 verbose #53076 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:40 verbose #53077 > │ let v96 : (unit -> string) = closure1() │
00:09:40 verbose #53078 > │ method1(v94, v95, v96) │
00:09:40 verbose #53079 > │ return false │
00:09:40 verbose #53080 > │ (* │
00:09:40 verbose #53081 > │ let v97 : bool = *) │
00:09:40 verbose #53082 > │ } │
00:09:40 verbose #53083 > │ |> fun x -> _v65 <- Some x │
00:09:40 verbose #53084 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:40 verbose #53085 > │ v98 │
00:09:40 verbose #53086 > │ #endif │
00:09:40 verbose #53087 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53088 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #53089 > │ v99 │
00:09:40 verbose #53090 > │ #endif │
00:09:40 verbose #53091 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53092 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53093 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:40 verbose #53094 > │ v100 │
00:09:40 verbose #53095 > │ #endif │
00:09:40 verbose #53096 > │ |> fun x -> _v60 <- Some x │
00:09:40 verbose #53097 > │ let v101 : Async<bool> = _v60.Value │
00:09:40 verbose #53098 > │ let v102 : Async<US4> option = None │
00:09:40 verbose #53099 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:40 verbose #53100 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53101 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53102 > │ v104 │
00:09:40 verbose #53103 > │ #endif │
00:09:40 verbose #53104 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53105 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53106 > │ v105 │
00:09:40 verbose #53107 > │ #endif │
00:09:40 verbose #53108 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53109 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53110 > │ v106 │
00:09:40 verbose #53111 > │ #endif │
00:09:40 verbose #53112 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53113 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53114 > │ let v107 : Async<US4> option = None │
00:09:40 verbose #53115 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:40 verbose #53116 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53117 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53118 > │ v109 │
00:09:40 verbose #53119 > │ #endif │
00:09:40 verbose #53120 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53121 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53122 > │ v110 │
00:09:40 verbose #53123 > │ #endif │
00:09:40 verbose #53124 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53125 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53126 > │ v111 │
00:09:40 verbose #53127 > │ #endif │
00:09:40 verbose #53128 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53129 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53130 > │ let v112 : Async<US4> option = None │
00:09:40 verbose #53131 > │ let mutable _v112 = v112 │
00:09:40 verbose #53132 > │ async { │
00:09:40 verbose #53133 > │ let v113 : Async<Async<bool>> option = None │
00:09:40 verbose #53134 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:40 verbose #53135 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53136 > │ let v115 : Async<Async<bool>> = null |> │
00:09:40 verbose #53137 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #53138 > │ v115 │
00:09:40 verbose #53139 > │ #endif │
00:09:40 verbose #53140 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53141 > │ let v116 : Async<Async<bool>> = null |> │
00:09:40 verbose #53142 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #53143 > │ v116 │
00:09:40 verbose #53144 > │ #endif │
00:09:40 verbose #53145 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53146 > │ let v117 : Async<Async<bool>> = null |> │
00:09:40 verbose #53147 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #53148 > │ v117 │
00:09:40 verbose #53149 > │ #endif │
00:09:40 verbose #53150 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53151 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53152 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:40 verbose #53153 > │ v118 │
00:09:40 verbose #53154 > │ #endif │
00:09:40 verbose #53155 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53156 > │ let v119 : Async<Async<bool>> = null |> │
00:09:40 verbose #53157 > │ unbox<Async<Async<bool>>> │
00:09:40 verbose #53158 > │ v119 │
00:09:40 verbose #53159 > │ #endif │
00:09:40 verbose #53160 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53161 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53162 > │ let v120 : Async<Async<bool>> = │
00:09:40 verbose #53163 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:40 verbose #53164 > │ v120 │
00:09:40 verbose #53165 > │ #endif │
00:09:40 verbose #53166 > │ |> fun x -> _v113 <- Some x │
00:09:40 verbose #53167 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:40 verbose #53168 > │ let! v121 = v121 │
00:09:40 verbose #53169 > │ let v122 : Async<bool> = v121 │
00:09:40 verbose #53170 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:40 verbose #53171 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:40 verbose #53172 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53173 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #53174 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #53175 > │ v125 │
00:09:40 verbose #53176 > │ #endif │
00:09:40 verbose #53177 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53178 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #53179 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #53180 > │ v126 │
00:09:40 verbose #53181 > │ #endif │
00:09:40 verbose #53182 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53183 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #53184 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #53185 > │ v127 │
00:09:40 verbose #53186 > │ #endif │
00:09:40 verbose #53187 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53188 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53189 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:40 verbose #53190 > │ Async.Catch │
00:09:40 verbose #53191 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:40 verbose #53192 > │ v129 │
00:09:40 verbose #53193 > │ #endif │
00:09:40 verbose #53194 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53195 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:40 verbose #53196 > │ unbox<Async<Choice<bool, exn>>> │
00:09:40 verbose #53197 > │ v130 │
00:09:40 verbose #53198 > │ #endif │
00:09:40 verbose #53199 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53200 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53201 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:40 verbose #53202 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:40 verbose #53203 > │ v131 │
00:09:40 verbose #53204 > │ #endif │
00:09:40 verbose #53205 > │ |> fun x -> _v123 <- Some x │
00:09:40 verbose #53206 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:40 verbose #53207 > │ let v133 : Async<US5> option = None │
00:09:40 verbose #53208 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:40 verbose #53209 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53210 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #53211 > │ v135 │
00:09:40 verbose #53212 > │ #endif │
00:09:40 verbose #53213 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53214 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #53215 > │ v136 │
00:09:40 verbose #53216 > │ #endif │
00:09:40 verbose #53217 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53218 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #53219 > │ v137 │
00:09:40 verbose #53220 > │ #endif │
00:09:40 verbose #53221 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53222 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53223 > │ let v138 : Async<US5> option = None │
00:09:40 verbose #53224 > │ let mutable _v138 = v138 │
00:09:40 verbose #53225 > │ async { │
00:09:40 verbose #53226 > │ let! v132 = v132 │
00:09:40 verbose #53227 > │ let v139 : Choice<bool, exn> = v132 │
00:09:40 verbose #53228 > │ let v140 : US5 option = None │
00:09:40 verbose #53229 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:40 verbose #53230 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53231 > │ let v142 : US5 = null |> unbox<US5> │
00:09:40 verbose #53232 > │ v142 │
00:09:40 verbose #53233 > │ #endif │
00:09:40 verbose #53234 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53235 > │ let v143 : US5 = null |> unbox<US5> │
00:09:40 verbose #53236 > │ v143 │
00:09:40 verbose #53237 > │ #endif │
00:09:40 verbose #53238 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53239 > │ let v144 : US5 = null |> unbox<US5> │
00:09:40 verbose #53240 > │ v144 │
00:09:40 verbose #53241 > │ #endif │
00:09:40 verbose #53242 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53243 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53244 > │ let v145 : (bool -> US5) = closure15() │
00:09:40 verbose #53245 > │ let v146 : (exn -> US5) = closure16() │
00:09:40 verbose #53246 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:40 verbose #53247 > │ Choice2Of2 x -> v146 x │
00:09:40 verbose #53248 > │ v147 │
00:09:40 verbose #53249 > │ #endif │
00:09:40 verbose #53250 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53251 > │ let v148 : US5 = null |> unbox<US5> │
00:09:40 verbose #53252 > │ v148 │
00:09:40 verbose #53253 > │ #endif │
00:09:40 verbose #53254 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53255 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53256 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:40 verbose #53257 > │ v149 │
00:09:40 verbose #53258 > │ #endif │
00:09:40 verbose #53259 > │ |> fun x -> _v140 <- Some x │
00:09:40 verbose #53260 > │ let v150 : US5 = _v140.Value │
00:09:40 verbose #53261 > │ return v150 │
00:09:40 verbose #53262 > │ } │
00:09:40 verbose #53263 > │ |> fun x -> _v138 <- Some x │
00:09:40 verbose #53264 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:40 verbose #53265 > │ v151 │
00:09:40 verbose #53266 > │ #endif │
00:09:40 verbose #53267 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53268 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:40 verbose #53269 > │ v152 │
00:09:40 verbose #53270 > │ #endif │
00:09:40 verbose #53271 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53272 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53273 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:40 verbose #53274 > │ v153 │
00:09:40 verbose #53275 > │ #endif │
00:09:40 verbose #53276 > │ |> fun x -> _v133 <- Some x │
00:09:40 verbose #53277 > │ let v154 : Async<US5> = _v133.Value │
00:09:40 verbose #53278 > │ let v155 : Async<US6> option = None │
00:09:40 verbose #53279 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:40 verbose #53280 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53281 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #53282 > │ v157 │
00:09:40 verbose #53283 > │ #endif │
00:09:40 verbose #53284 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53285 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #53286 > │ v158 │
00:09:40 verbose #53287 > │ #endif │
00:09:40 verbose #53288 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53289 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #53290 > │ v159 │
00:09:40 verbose #53291 > │ #endif │
00:09:40 verbose #53292 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53293 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53294 > │ let v160 : Async<US6> option = None │
00:09:40 verbose #53295 > │ let mutable _v160 = v160 │
00:09:40 verbose #53296 > │ async { │
00:09:40 verbose #53297 > │ let! v154 = v154 │
00:09:40 verbose #53298 > │ let v161 : US5 = v154 │
00:09:40 verbose #53299 > │ let v167 : US6 = │
00:09:40 verbose #53300 > │ match v161 with │
00:09:40 verbose #53301 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:40 verbose #53302 > │ US6_0(v162) │
00:09:40 verbose #53303 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:40 verbose #53304 > │ US6_1(v164) │
00:09:40 verbose #53305 > │ return v167 │
00:09:40 verbose #53306 > │ } │
00:09:40 verbose #53307 > │ |> fun x -> _v160 <- Some x │
00:09:40 verbose #53308 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:40 verbose #53309 > │ v168 │
00:09:40 verbose #53310 > │ #endif │
00:09:40 verbose #53311 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53312 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:40 verbose #53313 > │ v169 │
00:09:40 verbose #53314 > │ #endif │
00:09:40 verbose #53315 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53316 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53317 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:40 verbose #53318 > │ v170 │
00:09:40 verbose #53319 > │ #endif │
00:09:40 verbose #53320 > │ |> fun x -> _v155 <- Some x │
00:09:40 verbose #53321 > │ let v171 : Async<US6> = _v155.Value │
00:09:40 verbose #53322 > │ let v172 : Async<US4> option = None │
00:09:40 verbose #53323 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:40 verbose #53324 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53325 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53326 > │ v174 │
00:09:40 verbose #53327 > │ #endif │
00:09:40 verbose #53328 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53329 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53330 > │ v175 │
00:09:40 verbose #53331 > │ #endif │
00:09:40 verbose #53332 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53333 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53334 > │ v176 │
00:09:40 verbose #53335 > │ #endif │
00:09:40 verbose #53336 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53337 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53338 > │ let v177 : Async<US4> option = None │
00:09:40 verbose #53339 > │ let mutable _v177 = v177 │
00:09:40 verbose #53340 > │ async { │
00:09:40 verbose #53341 > │ let! v171 = v171 │
00:09:40 verbose #53342 > │ let v178 : US6 = v171 │
00:09:40 verbose #53343 > │ let v204 : US4 = │
00:09:40 verbose #53344 > │ match v178 with │
00:09:40 verbose #53345 > │ | US6_1(v181) -> (* Error *) │
00:09:40 verbose #53346 > │ let v182 : string = $"%A{v181}" │
00:09:40 verbose #53347 > │ let v183 : string = "System.TimeoutException" │
00:09:40 verbose #53348 > │ let v184 : bool = v182.Contains v183 │
00:09:40 verbose #53349 > │ if v184 then │
00:09:40 verbose #53350 > │ let v185 : US0 = US0_1 │
00:09:40 verbose #53351 > │ let v186 : (unit -> string) = closure17() │
00:09:40 verbose #53352 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:40 verbose #53353 > │ method1(v185, v186, v187) │
00:09:40 verbose #53354 > │ US4_1 │
00:09:40 verbose #53355 > │ else │
00:09:40 verbose #53356 > │ let v189 : string option = None │
00:09:40 verbose #53357 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:40 verbose #53358 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53359 > │ let v191 : string = $"%A{v181}" │
00:09:40 verbose #53360 > │ v191 │
00:09:40 verbose #53361 > │ #endif │
00:09:40 verbose #53362 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53363 > │ let v192 : string = $"%A{v181}" │
00:09:40 verbose #53364 > │ v192 │
00:09:40 verbose #53365 > │ #endif │
00:09:40 verbose #53366 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53367 > │ let v193 : string = $"%A{v181}" │
00:09:40 verbose #53368 > │ v193 │
00:09:40 verbose #53369 > │ #endif │
00:09:40 verbose #53370 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53371 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53372 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:40 verbose #53373 > │ {v181.Message}" │
00:09:40 verbose #53374 > │ v194 │
00:09:40 verbose #53375 > │ #endif │
00:09:40 verbose #53376 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53377 > │ let v195 : string = $"%A{v181}" │
00:09:40 verbose #53378 > │ v195 │
00:09:40 verbose #53379 > │ #endif │
00:09:40 verbose #53380 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53381 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53382 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:40 verbose #53383 > │ v196 │
00:09:40 verbose #53384 > │ #endif │
00:09:40 verbose #53385 > │ |> fun x -> _v189 <- Some x │
00:09:40 verbose #53386 > │ let v197 : string = _v189.Value │
00:09:40 verbose #53387 > │ let v198 : US0 = US0_4 │
00:09:40 verbose #53388 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:40 verbose #53389 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:40 verbose #53390 > │ method1(v198, v199, v200) │
00:09:40 verbose #53391 > │ US4_1 │
00:09:40 verbose #53392 > │ | US6_0(v179) -> (* Ok *) │
00:09:40 verbose #53393 > │ US4_0(v179) │
00:09:40 verbose #53394 > │ return v204 │
00:09:40 verbose #53395 > │ } │
00:09:40 verbose #53396 > │ |> fun x -> _v177 <- Some x │
00:09:40 verbose #53397 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:40 verbose #53398 > │ v205 │
00:09:40 verbose #53399 > │ #endif │
00:09:40 verbose #53400 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53401 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53402 > │ v206 │
00:09:40 verbose #53403 > │ #endif │
00:09:40 verbose #53404 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53405 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53406 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:40 verbose #53407 > │ v207 │
00:09:40 verbose #53408 > │ #endif │
00:09:40 verbose #53409 > │ |> fun x -> _v172 <- Some x │
00:09:40 verbose #53410 > │ let v208 : Async<US4> = _v172.Value │
00:09:40 verbose #53411 > │ return! v208 │
00:09:40 verbose #53412 > │ } │
00:09:40 verbose #53413 > │ |> fun x -> _v112 <- Some x │
00:09:40 verbose #53414 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:40 verbose #53415 > │ v209 │
00:09:40 verbose #53416 > │ #endif │
00:09:40 verbose #53417 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53418 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53419 > │ v210 │
00:09:40 verbose #53420 > │ #endif │
00:09:40 verbose #53421 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53422 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53423 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:40 verbose #53424 > │ v211 │
00:09:40 verbose #53425 > │ #endif │
00:09:40 verbose #53426 > │ |> fun x -> _v107 <- Some x │
00:09:40 verbose #53427 > │ let v212 : Async<US4> = _v107.Value │
00:09:40 verbose #53428 > │ v212 │
00:09:40 verbose #53429 > │ #endif │
00:09:40 verbose #53430 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53431 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:40 verbose #53432 > │ v213 │
00:09:40 verbose #53433 > │ #endif │
00:09:40 verbose #53434 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53435 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53436 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:40 verbose #53437 > │ v214 │
00:09:40 verbose #53438 > │ #endif │
00:09:40 verbose #53439 > │ |> fun x -> _v102 <- Some x │
00:09:40 verbose #53440 > │ let v215 : Async<US4> = _v102.Value │
00:09:40 verbose #53441 > │ let! v215 = v215 │
00:09:40 verbose #53442 > │ let v216 : US4 = v215 │
00:09:40 verbose #53443 > │ let v219 : bool = │
00:09:40 verbose #53444 > │ match v216 with │
00:09:40 verbose #53445 > │ | US4_1 -> (* None *) │
00:09:40 verbose #53446 > │ false │
00:09:40 verbose #53447 > │ | US4_0(v217) -> (* Some *) │
00:09:40 verbose #53448 > │ v217 │
00:09:40 verbose #53449 > │ return v219 │
00:09:40 verbose #53450 > │ } │
00:09:40 verbose #53451 > │ |> fun x -> _v59 <- Some x │
00:09:40 verbose #53452 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:40 verbose #53453 > │ v220 │
00:09:40 verbose #53454 > │ #endif │
00:09:40 verbose #53455 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53456 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:40 verbose #53457 > │ v221 │
00:09:40 verbose #53458 > │ #endif │
00:09:40 verbose #53459 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53460 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53461 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:40 verbose #53462 > │ v222 │
00:09:40 verbose #53463 > │ #endif │
00:09:40 verbose #53464 > │ |> fun x -> _v54 <- Some x │
00:09:40 verbose #53465 > │ let v223 : Async<bool> = _v54.Value │
00:09:40 verbose #53466 > │ v223 │
00:09:40 verbose #53467 > │ let! v225 = v225 │
00:09:40 verbose #53468 > │ let v226 : bool = v225 │
00:09:40 verbose #53469 > │ let v227 : bool = v226 = false │
00:09:40 verbose #53470 > │ if v227 then │
00:09:40 verbose #53471 > │ return v1 │
00:09:40 verbose #53472 > │ (* │
00:09:40 verbose #53473 > │ () │
00:09:40 verbose #53474 > │ else │
00:09:40 verbose #53475 > │ *) else │
00:09:40 verbose #53476 > │ let v228 : int64 = v1 % 100L │
00:09:40 verbose #53477 > │ let v229 : bool = v228 = 0L │
00:09:40 verbose #53478 > │ if v229 then │
00:09:40 verbose #53479 > │ let v230 : US0 = US0_0 │
00:09:40 verbose #53480 > │ let v231 : (unit -> string) = closure20() │
00:09:40 verbose #53481 > │ let v232 : (unit -> string) = closure21(v1) │
00:09:40 verbose #53482 > │ method1(v230, v231, v232) │
00:09:40 verbose #53483 > │ let v233 : Async<unit> option = None │
00:09:40 verbose #53484 > │ let v234 : bool = true in let mutable _v233 = v233 │
00:09:40 verbose #53485 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53486 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53487 > │ v235 │
00:09:40 verbose #53488 > │ #endif │
00:09:40 verbose #53489 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53490 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53491 > │ v236 │
00:09:40 verbose #53492 > │ #endif │
00:09:40 verbose #53493 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53494 > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53495 > │ v237 │
00:09:40 verbose #53496 > │ #endif │
00:09:40 verbose #53497 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53498 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53499 > │ let v238 : (int32 -> Async<unit>) = Async.Sleep │
00:09:40 verbose #53500 > │ let v239 : Async<unit> = v238 10 │
00:09:40 verbose #53501 > │ v239 │
00:09:40 verbose #53502 > │ #endif │
00:09:40 verbose #53503 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53504 > │ let v240 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53505 > │ v240 │
00:09:40 verbose #53506 > │ #endif │
00:09:40 verbose #53507 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #53508 > │ FABLE_COMPILER_DART │
00:09:40 verbose #53509 > │ let v241 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #53510 > │ v241 │
00:09:40 verbose #53511 > │ #endif │
00:09:40 verbose #53512 > │ |> fun x -> _v233 <- Some x │
00:09:40 verbose #53513 > │ let v242 : Async<unit> = _v233.Value │
00:09:40 verbose #53514 > │ do! v242 │
00:09:40 verbose #53515 > │ let v243 : int64 = v1 + 1L │
00:09:40 verbose #53516 > │ let v244 : Async<int64> = method9(v0, v243) │
00:09:40 verbose #53517 > │ return! v244 │
00:09:40 verbose #53518 > │ (* │
00:09:40 verbose #53519 > │ () │
00:09:40 verbose #53520 > │ *) │
00:09:40 verbose #53521 > │ } │
00:09:40 verbose #53522 > │ |> fun x -> _v7 <- Some x │
00:09:40 verbose #53523 > │ let v245 : Async<int64> = _v7 |> Option.get │
00:09:40 verbose #53524 > │ v245 │
00:09:40 verbose #53525 > │ #endif │
00:09:40 verbose #53526 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53527 > │ let v246 : Async<int64> = null |> unbox<Async<int64>> │
00:09:40 verbose #53528 > │ v246 │
00:09:40 verbose #53529 > │ #endif │
00:09:40 verbose #53530 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53531 > │ let v247 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:40 verbose #53532 > │ v247 │
00:09:40 verbose #53533 > │ #endif │
00:09:40 verbose #53534 > │ |> fun x -> _v2 <- Some x │
00:09:40 verbose #53535 > │ let v248 : Async<int64> = _v2.Value │
00:09:40 verbose #53536 > │ v248 │
00:09:40 verbose #53537 > │ and closure23 () () : string = │
00:09:40 verbose #53538 > │ let v0 : string = "5" │
00:09:40 verbose #53539 > │ v0 │
00:09:40 verbose #53540 > │ and closure24 () () : string = │
00:09:40 verbose #53541 > │ let v0 : string = "6" │
00:09:40 verbose #53542 > │ v0 │
00:09:40 verbose #53543 > │ and closure25 () struct (v0 : int64, v1 : int64) : US8 = │
00:09:40 verbose #53544 > │ US8_0(v0, v1) │
00:09:40 verbose #53545 > │ and closure26 () (v0 : exn) : US8 = │
00:09:40 verbose #53546 > │ US8_1(v0) │
00:09:40 verbose #53547 > │ and closure27 () () : string = │
00:09:40 verbose #53548 > │ let v0 : (unit -> string) = closure1() │
00:09:40 verbose #53549 > │ let v1 : string = $"timeout: {20000} / {v0 ()}" │
00:09:40 verbose #53550 > │ v1 │
00:09:40 verbose #53551 > │ and method10 (v0 : bool) : bool = │
00:09:40 verbose #53552 > │ v0 │
00:09:40 verbose #53553 > │ and method0 () : unit = │
00:09:40 verbose #53554 > │ let v0 : Async<struct (int64 * int64)> option = None │
00:09:40 verbose #53555 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:40 verbose #53556 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53557 > │ let v2 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:40 verbose #53558 > │ (int64 * int64)>> │
00:09:40 verbose #53559 > │ v2 │
00:09:40 verbose #53560 > │ #endif │
00:09:40 verbose #53561 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53562 > │ let v3 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:40 verbose #53563 > │ (int64 * int64)>> │
00:09:40 verbose #53564 > │ v3 │
00:09:40 verbose #53565 > │ #endif │
00:09:40 verbose #53566 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53567 > │ let v4 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:40 verbose #53568 > │ (int64 * int64)>> │
00:09:40 verbose #53569 > │ v4 │
00:09:40 verbose #53570 > │ #endif │
00:09:40 verbose #53571 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53572 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53573 > │ let v5 : Async<struct (int64 * int64)> option = None │
00:09:40 verbose #53574 > │ let mutable _v5 = v5 │
00:09:40 verbose #53575 > │ async { │
00:09:40 verbose #53576 > │ let v6 : US0 = US0_1 │
00:09:40 verbose #53577 > │ let v7 : (unit -> string) = closure0() │
00:09:40 verbose #53578 > │ let v8 : (unit -> string) = closure1() │
00:09:40 verbose #53579 > │ method1(v6, v7, v8) │
00:09:40 verbose #53580 > │ let v9 : Async<unit> option = None │
00:09:40 verbose #53581 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:40 verbose #53582 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53583 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53584 > │ v11 │
00:09:40 verbose #53585 > │ #endif │
00:09:40 verbose #53586 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53587 > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53588 > │ v12 │
00:09:40 verbose #53589 > │ #endif │
00:09:40 verbose #53590 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53591 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53592 > │ v13 │
00:09:40 verbose #53593 > │ #endif │
00:09:40 verbose #53594 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53595 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53596 > │ let v14 : Async<unit> option = None │
00:09:40 verbose #53597 > │ let mutable _v14 = v14 │
00:09:40 verbose #53598 > │ async { │
00:09:40 verbose #53599 > │ let v15 : US0 = US0_1 │
00:09:40 verbose #53600 > │ let v16 : (unit -> string) = closure6() │
00:09:40 verbose #53601 > │ method1(v15, v16, v8) │
00:09:40 verbose #53602 > │ let v17 : Async<unit> option = None │
00:09:40 verbose #53603 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:09:40 verbose #53604 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53605 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53606 > │ v19 │
00:09:40 verbose #53607 > │ #endif │
00:09:40 verbose #53608 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53609 > │ let v20 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53610 > │ v20 │
00:09:40 verbose #53611 > │ #endif │
00:09:40 verbose #53612 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53613 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53614 > │ v21 │
00:09:40 verbose #53615 > │ #endif │
00:09:40 verbose #53616 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53617 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53618 > │ let v22 : (int32 -> Async<unit>) = Async.Sleep │
00:09:40 verbose #53619 > │ let v23 : Async<unit> = v22 5000 │
00:09:40 verbose #53620 > │ v23 │
00:09:40 verbose #53621 > │ #endif │
00:09:40 verbose #53622 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53623 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53624 > │ v24 │
00:09:40 verbose #53625 > │ #endif │
00:09:40 verbose #53626 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53627 > │ let v25 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #53628 > │ v25 │
00:09:40 verbose #53629 > │ #endif │
00:09:40 verbose #53630 > │ |> fun x -> _v17 <- Some x │
00:09:40 verbose #53631 > │ let v26 : Async<unit> = _v17.Value │
00:09:40 verbose #53632 > │ do! v26 │
00:09:40 verbose #53633 > │ let v27 : (string -> System.Net.IPAddress) = System.Net.IPAddress.Parse │
00:09:40 verbose #53634 > │ let v28 : string = "127.0.0.1" │
00:09:40 verbose #53635 > │ let v29 : System.Net.IPAddress = v27 v28 │
00:09:40 verbose #53636 > │ let v30 : System.Net.Sockets.TcpListener = new │
00:09:40 verbose #53637 > │ System.Net.Sockets.TcpListener (v29, 5555) │
00:09:40 verbose #53638 > │ use v30 = v30 │
00:09:40 verbose #53639 > │ let v31 : System.Net.Sockets.TcpListener = v30 │
00:09:40 verbose #53640 > │ let v32 : US0 = US0_1 │
00:09:40 verbose #53641 > │ let v33 : (unit -> string) = closure7() │
00:09:40 verbose #53642 > │ method1(v32, v33, v8) │
00:09:40 verbose #53643 > │ let v34 : (unit -> unit) = v31.Start │
00:09:40 verbose #53644 > │ v34 () │
00:09:40 verbose #53645 > │ let v35 : US0 = US0_1 │
00:09:40 verbose #53646 > │ let v36 : (unit -> string) = closure8() │
00:09:40 verbose #53647 > │ method1(v35, v36, v8) │
00:09:40 verbose #53648 > │ let v37 : Async<unit> option = None │
00:09:40 verbose #53649 > │ let v38 : bool = true in let mutable _v37 = v37 │
00:09:40 verbose #53650 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53651 > │ let v39 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53652 > │ v39 │
00:09:40 verbose #53653 > │ #endif │
00:09:40 verbose #53654 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53655 > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53656 > │ v40 │
00:09:40 verbose #53657 > │ #endif │
00:09:40 verbose #53658 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53659 > │ let v41 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53660 > │ v41 │
00:09:40 verbose #53661 > │ #endif │
00:09:40 verbose #53662 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53663 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53664 > │ let v42 : (int32 -> Async<unit>) = Async.Sleep │
00:09:40 verbose #53665 > │ let v43 : Async<unit> = v42 2000 │
00:09:40 verbose #53666 > │ v43 │
00:09:40 verbose #53667 > │ #endif │
00:09:40 verbose #53668 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53669 > │ let v44 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53670 > │ v44 │
00:09:40 verbose #53671 > │ #endif │
00:09:40 verbose #53672 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53673 > │ let v45 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #53674 > │ v45 │
00:09:40 verbose #53675 > │ #endif │
00:09:40 verbose #53676 > │ |> fun x -> _v37 <- Some x │
00:09:40 verbose #53677 > │ let v46 : Async<unit> = _v37.Value │
00:09:40 verbose #53678 > │ do! v46 │
00:09:40 verbose #53679 > │ let v47 : US0 = US0_1 │
00:09:40 verbose #53680 > │ let v48 : (unit -> string) = closure9() │
00:09:40 verbose #53681 > │ method1(v47, v48, v8) │
00:09:40 verbose #53682 > │ let v49 : (unit -> unit) = v31.Stop │
00:09:40 verbose #53683 > │ v49 () │
00:09:40 verbose #53684 > │ let v50 : US0 = US0_1 │
00:09:40 verbose #53685 > │ let v51 : (unit -> string) = closure10() │
00:09:40 verbose #53686 > │ method1(v50, v51, v8) │
00:09:40 verbose #53687 > │ } │
00:09:40 verbose #53688 > │ |> fun x -> _v14 <- Some x │
00:09:40 verbose #53689 > │ let v52 : Async<unit> = _v14 |> Option.get │
00:09:40 verbose #53690 > │ v52 │
00:09:40 verbose #53691 > │ #endif │
00:09:40 verbose #53692 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53693 > │ let v53 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53694 > │ v53 │
00:09:40 verbose #53695 > │ #endif │
00:09:40 verbose #53696 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53697 > │ let v54 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #53698 > │ v54 │
00:09:40 verbose #53699 > │ #endif │
00:09:40 verbose #53700 > │ |> fun x -> _v9 <- Some x │
00:09:40 verbose #53701 > │ let v55 : Async<unit> = _v9.Value │
00:09:40 verbose #53702 > │ let v56 : Async<Async<unit>> option = None │
00:09:40 verbose #53703 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:09:40 verbose #53704 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53705 > │ let v58 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:40 verbose #53706 > │ v58 │
00:09:40 verbose #53707 > │ #endif │
00:09:40 verbose #53708 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53709 > │ let v59 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:40 verbose #53710 > │ v59 │
00:09:40 verbose #53711 > │ #endif │
00:09:40 verbose #53712 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53713 > │ let v60 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:40 verbose #53714 > │ v60 │
00:09:40 verbose #53715 > │ #endif │
00:09:40 verbose #53716 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53717 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53718 > │ let v61 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:09:40 verbose #53719 > │ let v62 : Async<Async<unit>> = v61 v55 │
00:09:40 verbose #53720 > │ v62 │
00:09:40 verbose #53721 > │ #endif │
00:09:40 verbose #53722 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53723 > │ let v63 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:40 verbose #53724 > │ v63 │
00:09:40 verbose #53725 > │ #endif │
00:09:40 verbose #53726 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53727 > │ let v64 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:09:40 verbose #53728 > │ v64 │
00:09:40 verbose #53729 > │ #endif │
00:09:40 verbose #53730 > │ |> fun x -> _v56 <- Some x │
00:09:40 verbose #53731 > │ let v65 : Async<Async<unit>> = _v56.Value │
00:09:40 verbose #53732 > │ let! v65 = v65 │
00:09:40 verbose #53733 > │ let v66 : Async<unit> = v65 │
00:09:40 verbose #53734 > │ let v67 : US0 = US0_1 │
00:09:40 verbose #53735 > │ let v68 : (unit -> string) = closure11() │
00:09:40 verbose #53736 > │ method1(v67, v68, v8) │
00:09:40 verbose #53737 > │ let v69 : Async<unit> option = None │
00:09:40 verbose #53738 > │ let v70 : bool = true in let mutable _v69 = v69 │
00:09:40 verbose #53739 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53740 > │ let v71 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53741 > │ v71 │
00:09:40 verbose #53742 > │ #endif │
00:09:40 verbose #53743 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53744 > │ let v72 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53745 > │ v72 │
00:09:40 verbose #53746 > │ #endif │
00:09:40 verbose #53747 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53748 > │ let v73 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53749 > │ v73 │
00:09:40 verbose #53750 > │ #endif │
00:09:40 verbose #53751 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53752 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53753 > │ let v74 : (int32 -> Async<unit>) = Async.Sleep │
00:09:40 verbose #53754 > │ let v75 : Async<unit> = v74 1 │
00:09:40 verbose #53755 > │ v75 │
00:09:40 verbose #53756 > │ #endif │
00:09:40 verbose #53757 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53758 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:40 verbose #53759 > │ v76 │
00:09:40 verbose #53760 > │ #endif │
00:09:40 verbose #53761 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53762 > │ let v77 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:40 verbose #53763 > │ v77 │
00:09:40 verbose #53764 > │ #endif │
00:09:40 verbose #53765 > │ |> fun x -> _v69 <- Some x │
00:09:40 verbose #53766 > │ let v78 : Async<unit> = _v69.Value │
00:09:40 verbose #53767 > │ do! v78 │
00:09:40 verbose #53768 > │ let v79 : US0 = US0_1 │
00:09:40 verbose #53769 > │ let v80 : (unit -> string) = closure12() │
00:09:40 verbose #53770 > │ method1(v79, v80, v8) │
00:09:40 verbose #53771 > │ let v81 : int32 option = None │
00:09:40 verbose #53772 > │ let v82 : int64 = 0L │
00:09:40 verbose #53773 > │ let v83 : Async<int64> = method7(v81, v82) │
00:09:40 verbose #53774 > │ let! v83 = v83 │
00:09:40 verbose #53775 > │ let v84 : int64 = v83 │
00:09:40 verbose #53776 > │ let v85 : US0 = US0_1 │
00:09:40 verbose #53777 > │ let v86 : (unit -> string) = closure22() │
00:09:40 verbose #53778 > │ method1(v85, v86, v8) │
00:09:40 verbose #53779 > │ let v87 : int32 option = None │
00:09:40 verbose #53780 > │ let v88 : int64 = 0L │
00:09:40 verbose #53781 > │ let v89 : Async<int64> = method9(v87, v88) │
00:09:40 verbose #53782 > │ let! v89 = v89 │
00:09:40 verbose #53783 > │ let v90 : int64 = v89 │
00:09:40 verbose #53784 > │ let v91 : US0 = US0_1 │
00:09:40 verbose #53785 > │ let v92 : (unit -> string) = closure23() │
00:09:40 verbose #53786 > │ method1(v91, v92, v8) │
00:09:40 verbose #53787 > │ do! v66 │
00:09:40 verbose #53788 > │ let v93 : US0 = US0_1 │
00:09:40 verbose #53789 > │ let v94 : (unit -> string) = closure24() │
00:09:40 verbose #53790 > │ method1(v93, v94, v8) │
00:09:40 verbose #53791 > │ return struct (v84, v90) │
00:09:40 verbose #53792 > │ } │
00:09:40 verbose #53793 > │ |> fun x -> _v5 <- Some x │
00:09:40 verbose #53794 > │ let v95 : Async<struct (int64 * int64)> = _v5 |> Option.get │
00:09:40 verbose #53795 > │ v95 │
00:09:40 verbose #53796 > │ #endif │
00:09:40 verbose #53797 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53798 > │ let v96 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:40 verbose #53799 > │ (int64 * int64)>> │
00:09:40 verbose #53800 > │ v96 │
00:09:40 verbose #53801 > │ #endif │
00:09:40 verbose #53802 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53803 > │ let v97 : Async<struct (int64 * int64)> = │
00:09:40 verbose #53804 > │ Unchecked.defaultof<Async<struct (int64 * int64)>> │
00:09:40 verbose #53805 > │ v97 │
00:09:40 verbose #53806 > │ #endif │
00:09:40 verbose #53807 > │ |> fun x -> _v0 <- Some x │
00:09:40 verbose #53808 > │ let v98 : Async<struct (int64 * int64)> = _v0.Value │
00:09:40 verbose #53809 > │ let v99 : Async<US7> option = None │
00:09:40 verbose #53810 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:09:40 verbose #53811 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53812 > │ let v101 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #53813 > │ v101 │
00:09:40 verbose #53814 > │ #endif │
00:09:40 verbose #53815 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53816 > │ let v102 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #53817 > │ v102 │
00:09:40 verbose #53818 > │ #endif │
00:09:40 verbose #53819 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53820 > │ let v103 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #53821 > │ v103 │
00:09:40 verbose #53822 > │ #endif │
00:09:40 verbose #53823 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53824 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53825 > │ let v104 : Async<US7> option = None │
00:09:40 verbose #53826 > │ let v105 : bool = true in let mutable _v104 = v104 │
00:09:40 verbose #53827 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53828 > │ let v106 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #53829 > │ v106 │
00:09:40 verbose #53830 > │ #endif │
00:09:40 verbose #53831 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53832 > │ let v107 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #53833 > │ v107 │
00:09:40 verbose #53834 > │ #endif │
00:09:40 verbose #53835 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53836 > │ let v108 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #53837 > │ v108 │
00:09:40 verbose #53838 > │ #endif │
00:09:40 verbose #53839 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53840 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53841 > │ let v109 : Async<US7> option = None │
00:09:40 verbose #53842 > │ let mutable _v109 = v109 │
00:09:40 verbose #53843 > │ async { │
00:09:40 verbose #53844 > │ let v110 : Async<Async<struct (int64 * int64)>> option = None │
00:09:40 verbose #53845 > │ let v111 : bool = true in let mutable _v110 = v110 │
00:09:40 verbose #53846 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53847 > │ let v112 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:40 verbose #53848 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:40 verbose #53849 > │ v112 │
00:09:40 verbose #53850 > │ #endif │
00:09:40 verbose #53851 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53852 > │ let v113 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:40 verbose #53853 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:40 verbose #53854 > │ v113 │
00:09:40 verbose #53855 > │ #endif │
00:09:40 verbose #53856 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53857 > │ let v114 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:40 verbose #53858 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:40 verbose #53859 > │ v114 │
00:09:40 verbose #53860 > │ #endif │
00:09:40 verbose #53861 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53862 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53863 > │ let v115 : Async<Async<struct (int64 * int64)>> = Async.StartChild (v98, │
00:09:40 verbose #53864 > │ 20000) │
00:09:40 verbose #53865 > │ v115 │
00:09:40 verbose #53866 > │ #endif │
00:09:40 verbose #53867 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53868 > │ let v116 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:40 verbose #53869 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:40 verbose #53870 > │ v116 │
00:09:40 verbose #53871 > │ #endif │
00:09:40 verbose #53872 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53873 > │ let v117 : Async<Async<struct (int64 * int64)>> = │
00:09:40 verbose #53874 > │ Unchecked.defaultof<Async<Async<struct (int64 * int64)>>> │
00:09:40 verbose #53875 > │ v117 │
00:09:40 verbose #53876 > │ #endif │
00:09:40 verbose #53877 > │ |> fun x -> _v110 <- Some x │
00:09:40 verbose #53878 > │ let v118 : Async<Async<struct (int64 * int64)>> = _v110.Value │
00:09:40 verbose #53879 > │ let! v118 = v118 │
00:09:40 verbose #53880 > │ let v119 : Async<struct (int64 * int64)> = v118 │
00:09:40 verbose #53881 > │ let v120 : Async<Choice<struct (int64 * int64), exn>> option = None │
00:09:40 verbose #53882 > │ let v121 : bool = true in let mutable _v120 = v120 │
00:09:40 verbose #53883 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53884 > │ let v122 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:40 verbose #53885 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:40 verbose #53886 > │ v122 │
00:09:40 verbose #53887 > │ #endif │
00:09:40 verbose #53888 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53889 > │ let v123 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:40 verbose #53890 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:40 verbose #53891 > │ v123 │
00:09:40 verbose #53892 > │ #endif │
00:09:40 verbose #53893 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53894 > │ let v124 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:40 verbose #53895 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:40 verbose #53896 > │ v124 │
00:09:40 verbose #53897 > │ #endif │
00:09:40 verbose #53898 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53899 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53900 > │ let v125 : (Async<struct (int64 * int64)> -> Async<Choice<struct (int64 │
00:09:40 verbose #53901 > │ * int64), exn>>) = Async.Catch │
00:09:40 verbose #53902 > │ let v126 : Async<Choice<struct (int64 * int64), exn>> = v125 v119 │
00:09:40 verbose #53903 > │ v126 │
00:09:40 verbose #53904 > │ #endif │
00:09:40 verbose #53905 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53906 > │ let v127 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:40 verbose #53907 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:40 verbose #53908 > │ v127 │
00:09:40 verbose #53909 > │ #endif │
00:09:40 verbose #53910 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53911 > │ let v128 : Async<Choice<struct (int64 * int64), exn>> = │
00:09:40 verbose #53912 > │ Unchecked.defaultof<Async<Choice<struct (int64 * int64), exn>>> │
00:09:40 verbose #53913 > │ v128 │
00:09:40 verbose #53914 > │ #endif │
00:09:40 verbose #53915 > │ |> fun x -> _v120 <- Some x │
00:09:40 verbose #53916 > │ let v129 : Async<Choice<struct (int64 * int64), exn>> = _v120.Value │
00:09:40 verbose #53917 > │ let v130 : Async<US8> option = None │
00:09:40 verbose #53918 > │ let v131 : bool = true in let mutable _v130 = v130 │
00:09:40 verbose #53919 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53920 > │ let v132 : Async<US8> = null |> unbox<Async<US8>> │
00:09:40 verbose #53921 > │ v132 │
00:09:40 verbose #53922 > │ #endif │
00:09:40 verbose #53923 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53924 > │ let v133 : Async<US8> = null |> unbox<Async<US8>> │
00:09:40 verbose #53925 > │ v133 │
00:09:40 verbose #53926 > │ #endif │
00:09:40 verbose #53927 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53928 > │ let v134 : Async<US8> = null |> unbox<Async<US8>> │
00:09:40 verbose #53929 > │ v134 │
00:09:40 verbose #53930 > │ #endif │
00:09:40 verbose #53931 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53932 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53933 > │ let v135 : Async<US8> option = None │
00:09:40 verbose #53934 > │ let mutable _v135 = v135 │
00:09:40 verbose #53935 > │ async { │
00:09:40 verbose #53936 > │ let! v129 = v129 │
00:09:40 verbose #53937 > │ let v136 : Choice<struct (int64 * int64), exn> = v129 │
00:09:40 verbose #53938 > │ let v137 : US8 option = None │
00:09:40 verbose #53939 > │ let v138 : bool = true in let mutable _v137 = v137 │
00:09:40 verbose #53940 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53941 > │ let v139 : US8 = null |> unbox<US8> │
00:09:40 verbose #53942 > │ v139 │
00:09:40 verbose #53943 > │ #endif │
00:09:40 verbose #53944 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53945 > │ let v140 : US8 = null |> unbox<US8> │
00:09:40 verbose #53946 > │ v140 │
00:09:40 verbose #53947 > │ #endif │
00:09:40 verbose #53948 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53949 > │ let v141 : US8 = null |> unbox<US8> │
00:09:40 verbose #53950 > │ v141 │
00:09:40 verbose #53951 > │ #endif │
00:09:40 verbose #53952 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #53953 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #53954 > │ let v142 : (struct (int64 * int64) -> US8) = closure25() │
00:09:40 verbose #53955 > │ let v143 : (exn -> US8) = closure26() │
00:09:40 verbose #53956 > │ let v144 : US8 = match v136 with Choice1Of2 x -> v142 x | Choice2Of2 x │
00:09:40 verbose #53957 > │ -> v143 x │
00:09:40 verbose #53958 > │ v144 │
00:09:40 verbose #53959 > │ #endif │
00:09:40 verbose #53960 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53961 > │ let v145 : US8 = null |> unbox<US8> │
00:09:40 verbose #53962 > │ v145 │
00:09:40 verbose #53963 > │ #endif │
00:09:40 verbose #53964 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53965 > │ let v146 : US8 = Unchecked.defaultof<US8> │
00:09:40 verbose #53966 > │ v146 │
00:09:40 verbose #53967 > │ #endif │
00:09:40 verbose #53968 > │ |> fun x -> _v137 <- Some x │
00:09:40 verbose #53969 > │ let v147 : US8 = _v137.Value │
00:09:40 verbose #53970 > │ return v147 │
00:09:40 verbose #53971 > │ } │
00:09:40 verbose #53972 > │ |> fun x -> _v135 <- Some x │
00:09:40 verbose #53973 > │ let v148 : Async<US8> = _v135 |> Option.get │
00:09:40 verbose #53974 > │ v148 │
00:09:40 verbose #53975 > │ #endif │
00:09:40 verbose #53976 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #53977 > │ let v149 : Async<US8> = null |> unbox<Async<US8>> │
00:09:40 verbose #53978 > │ v149 │
00:09:40 verbose #53979 > │ #endif │
00:09:40 verbose #53980 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #53981 > │ let v150 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:09:40 verbose #53982 > │ v150 │
00:09:40 verbose #53983 > │ #endif │
00:09:40 verbose #53984 > │ |> fun x -> _v130 <- Some x │
00:09:40 verbose #53985 > │ let v151 : Async<US8> = _v130.Value │
00:09:40 verbose #53986 > │ let v152 : Async<US9> option = None │
00:09:40 verbose #53987 > │ let v153 : bool = true in let mutable _v152 = v152 │
00:09:40 verbose #53988 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #53989 > │ let v154 : Async<US9> = null |> unbox<Async<US9>> │
00:09:40 verbose #53990 > │ v154 │
00:09:40 verbose #53991 > │ #endif │
00:09:40 verbose #53992 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #53993 > │ let v155 : Async<US9> = null |> unbox<Async<US9>> │
00:09:40 verbose #53994 > │ v155 │
00:09:40 verbose #53995 > │ #endif │
00:09:40 verbose #53996 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #53997 > │ let v156 : Async<US9> = null |> unbox<Async<US9>> │
00:09:40 verbose #53998 > │ v156 │
00:09:40 verbose #53999 > │ #endif │
00:09:40 verbose #54000 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #54001 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #54002 > │ let v157 : Async<US9> option = None │
00:09:40 verbose #54003 > │ let mutable _v157 = v157 │
00:09:40 verbose #54004 > │ async { │
00:09:40 verbose #54005 > │ let! v151 = v151 │
00:09:40 verbose #54006 > │ let v158 : US8 = v151 │
00:09:40 verbose #54007 > │ let v165 : US9 = │
00:09:40 verbose #54008 > │ match v158 with │
00:09:40 verbose #54009 > │ | US8_0(v159, v160) -> (* Choice1Of2 *) │
00:09:40 verbose #54010 > │ US9_0(v159, v160) │
00:09:40 verbose #54011 > │ | US8_1(v162) -> (* Choice2Of2 *) │
00:09:40 verbose #54012 > │ US9_1(v162) │
00:09:40 verbose #54013 > │ return v165 │
00:09:40 verbose #54014 > │ } │
00:09:40 verbose #54015 > │ |> fun x -> _v157 <- Some x │
00:09:40 verbose #54016 > │ let v166 : Async<US9> = _v157 |> Option.get │
00:09:40 verbose #54017 > │ v166 │
00:09:40 verbose #54018 > │ #endif │
00:09:40 verbose #54019 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #54020 > │ let v167 : Async<US9> = null |> unbox<Async<US9>> │
00:09:40 verbose #54021 > │ v167 │
00:09:40 verbose #54022 > │ #endif │
00:09:40 verbose #54023 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #54024 > │ let v168 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:09:40 verbose #54025 > │ v168 │
00:09:40 verbose #54026 > │ #endif │
00:09:40 verbose #54027 > │ |> fun x -> _v152 <- Some x │
00:09:40 verbose #54028 > │ let v169 : Async<US9> = _v152.Value │
00:09:40 verbose #54029 > │ let v170 : Async<US7> option = None │
00:09:40 verbose #54030 > │ let v171 : bool = true in let mutable _v170 = v170 │
00:09:40 verbose #54031 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #54032 > │ let v172 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #54033 > │ v172 │
00:09:40 verbose #54034 > │ #endif │
00:09:40 verbose #54035 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #54036 > │ let v173 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #54037 > │ v173 │
00:09:40 verbose #54038 > │ #endif │
00:09:40 verbose #54039 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #54040 > │ let v174 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #54041 > │ v174 │
00:09:40 verbose #54042 > │ #endif │
00:09:40 verbose #54043 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #54044 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #54045 > │ let v175 : Async<US7> option = None │
00:09:40 verbose #54046 > │ let mutable _v175 = v175 │
00:09:40 verbose #54047 > │ async { │
00:09:40 verbose #54048 > │ let! v169 = v169 │
00:09:40 verbose #54049 > │ let v176 : US9 = v169 │
00:09:40 verbose #54050 > │ let v203 : US7 = │
00:09:40 verbose #54051 > │ match v176 with │
00:09:40 verbose #54052 > │ | US9_1(v180) -> (* Error *) │
00:09:40 verbose #54053 > │ let v181 : string = $"%A{v180}" │
00:09:40 verbose #54054 > │ let v182 : string = "System.TimeoutException" │
00:09:40 verbose #54055 > │ let v183 : bool = v181.Contains v182 │
00:09:40 verbose #54056 > │ if v183 then │
00:09:40 verbose #54057 > │ let v184 : US0 = US0_1 │
00:09:40 verbose #54058 > │ let v185 : (unit -> string) = closure17() │
00:09:40 verbose #54059 > │ let v186 : (unit -> string) = closure27() │
00:09:40 verbose #54060 > │ method1(v184, v185, v186) │
00:09:40 verbose #54061 > │ US7_1 │
00:09:40 verbose #54062 > │ else │
00:09:40 verbose #54063 > │ let v188 : string option = None │
00:09:40 verbose #54064 > │ let v189 : bool = true in let mutable _v188 = v188 │
00:09:40 verbose #54065 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #54066 > │ let v190 : string = $"%A{v180}" │
00:09:40 verbose #54067 > │ v190 │
00:09:40 verbose #54068 > │ #endif │
00:09:40 verbose #54069 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #54070 > │ let v191 : string = $"%A{v180}" │
00:09:40 verbose #54071 > │ v191 │
00:09:40 verbose #54072 > │ #endif │
00:09:40 verbose #54073 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #54074 > │ let v192 : string = $"%A{v180}" │
00:09:40 verbose #54075 > │ v192 │
00:09:40 verbose #54076 > │ #endif │
00:09:40 verbose #54077 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #54078 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #54079 > │ let v193 : string = $"{v180.GetType ()}: {v180.Message}" │
00:09:40 verbose #54080 > │ v193 │
00:09:40 verbose #54081 > │ #endif │
00:09:40 verbose #54082 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #54083 > │ let v194 : string = $"%A{v180}" │
00:09:40 verbose #54084 > │ v194 │
00:09:40 verbose #54085 > │ #endif │
00:09:40 verbose #54086 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:40 verbose #54087 > │ FABLE_COMPILER_DART │
00:09:40 verbose #54088 > │ let v195 : string = Unchecked.defaultof<string> │
00:09:40 verbose #54089 > │ v195 │
00:09:40 verbose #54090 > │ #endif │
00:09:40 verbose #54091 > │ |> fun x -> _v188 <- Some x │
00:09:40 verbose #54092 > │ let v196 : string = _v188.Value │
00:09:40 verbose #54093 > │ let v197 : US0 = US0_4 │
00:09:40 verbose #54094 > │ let v198 : (unit -> string) = closure19(v196) │
00:09:40 verbose #54095 > │ let v199 : (unit -> string) = closure27() │
00:09:40 verbose #54096 > │ method1(v197, v198, v199) │
00:09:40 verbose #54097 > │ US7_1 │
00:09:40 verbose #54098 > │ | US9_0(v177, v178) -> (* Ok *) │
00:09:40 verbose #54099 > │ US7_0(v177, v178) │
00:09:40 verbose #54100 > │ return v203 │
00:09:40 verbose #54101 > │ } │
00:09:40 verbose #54102 > │ |> fun x -> _v175 <- Some x │
00:09:40 verbose #54103 > │ let v204 : Async<US7> = _v175 |> Option.get │
00:09:40 verbose #54104 > │ v204 │
00:09:40 verbose #54105 > │ #endif │
00:09:40 verbose #54106 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #54107 > │ let v205 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #54108 > │ v205 │
00:09:40 verbose #54109 > │ #endif │
00:09:40 verbose #54110 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #54111 > │ let v206 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:40 verbose #54112 > │ v206 │
00:09:40 verbose #54113 > │ #endif │
00:09:40 verbose #54114 > │ |> fun x -> _v170 <- Some x │
00:09:40 verbose #54115 > │ let v207 : Async<US7> = _v170.Value │
00:09:40 verbose #54116 > │ return! v207 │
00:09:40 verbose #54117 > │ } │
00:09:40 verbose #54118 > │ |> fun x -> _v109 <- Some x │
00:09:40 verbose #54119 > │ let v208 : Async<US7> = _v109 |> Option.get │
00:09:40 verbose #54120 > │ v208 │
00:09:40 verbose #54121 > │ #endif │
00:09:40 verbose #54122 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #54123 > │ let v209 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #54124 > │ v209 │
00:09:40 verbose #54125 > │ #endif │
00:09:40 verbose #54126 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #54127 > │ let v210 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:40 verbose #54128 > │ v210 │
00:09:40 verbose #54129 > │ #endif │
00:09:40 verbose #54130 > │ |> fun x -> _v104 <- Some x │
00:09:40 verbose #54131 > │ let v211 : Async<US7> = _v104.Value │
00:09:40 verbose #54132 > │ v211 │
00:09:40 verbose #54133 > │ #endif │
00:09:40 verbose #54134 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #54135 > │ let v212 : Async<US7> = null |> unbox<Async<US7>> │
00:09:40 verbose #54136 > │ v212 │
00:09:40 verbose #54137 > │ #endif │
00:09:40 verbose #54138 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #54139 > │ let v213 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:40 verbose #54140 > │ v213 │
00:09:40 verbose #54141 > │ #endif │
00:09:40 verbose #54142 > │ |> fun x -> _v99 <- Some x │
00:09:40 verbose #54143 > │ let v214 : Async<US7> = _v99.Value │
00:09:40 verbose #54144 > │ let v215 : US7 option = None │
00:09:40 verbose #54145 > │ let v216 : bool = true in let mutable _v215 = v215 │
00:09:40 verbose #54146 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #54147 > │ let v217 : US7 = null |> unbox<US7> │
00:09:40 verbose #54148 > │ v217 │
00:09:40 verbose #54149 > │ #endif │
00:09:40 verbose #54150 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #54151 > │ let v218 : US7 = null |> unbox<US7> │
00:09:40 verbose #54152 > │ v218 │
00:09:40 verbose #54153 > │ #endif │
00:09:40 verbose #54154 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:40 verbose #54155 > │ let v219 : US7 = null |> unbox<US7> │
00:09:40 verbose #54156 > │ v219 │
00:09:40 verbose #54157 > │ #endif │
00:09:40 verbose #54158 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:40 verbose #54159 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:40 verbose #54160 > │ let v220 : (Async<US7> -> US7) = Async.RunSynchronously │
00:09:40 verbose #54161 > │ let v221 : US7 = v220 v214 │
00:09:40 verbose #54162 > │ v221 │
00:09:40 verbose #54163 > │ #endif │
00:09:40 verbose #54164 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:40 verbose #54165 > │ let v222 : US7 = null |> unbox<US7> │
00:09:40 verbose #54166 > │ v222 │
00:09:40 verbose #54167 > │ #endif │
00:09:40 verbose #54168 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:40 verbose #54169 > │ let v223 : US7 = Unchecked.defaultof<US7> │
00:09:40 verbose #54170 > │ v223 │
00:09:40 verbose #54171 > │ #endif │
00:09:40 verbose #54172 > │ |> fun x -> _v215 <- Some x │
00:09:40 verbose #54173 > │ let v224 : US7 = _v215.Value │
00:09:40 verbose #54174 > │ let v301 : bool = │
00:09:40 verbose #54175 > │ match v224 with │
00:09:40 verbose #54176 > │ | US7_0(v225, v226) -> (* Some *) │
00:09:40 verbose #54177 > │ let v227 : bool option = None │
00:09:40 verbose #54178 > │ let v228 : bool = true in let mutable _v227 = v227 │
00:09:40 verbose #54179 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:40 verbose #54180 > │ let v229 : bool = null |> unbox<bool> │
00:09:40 verbose #54181 > │ v229 │
00:09:40 verbose #54182 > │ #endif │
00:09:40 verbose #54183 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:40 verbose #54184 > │ let v230 : bool = null |> unbox<bool> │
00:09:40 verbose #54185 > │ v230 │
00:09:40 verbose #54186 > │ #endif │
00:09:40 verbose #54187 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:41 verbose #54188 > │ let v231 : bool = null |> unbox<bool> │
00:09:41 verbose #54189 > │ v231 │
00:09:41 verbose #54190 > │ #endif │
00:09:41 verbose #54191 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:41 verbose #54192 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:41 verbose #54193 > │ let v232 : System.Runtime.InteropServices.OSPlatform = │
00:09:41 verbose #54194 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:41 verbose #54195 > │ let v233 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:41 verbose #54196 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:41 verbose #54197 > │ let v234 : bool = v233 v232 │
00:09:41 verbose #54198 > │ v234 │
00:09:41 verbose #54199 > │ #endif │
00:09:41 verbose #54200 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:41 verbose #54201 > │ let v235 : bool = null |> unbox<bool> │
00:09:41 verbose #54202 > │ v235 │
00:09:41 verbose #54203 > │ #endif │
00:09:41 verbose #54204 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:41 verbose #54205 > │ FABLE_COMPILER_DART │
00:09:41 verbose #54206 > │ let v236 : bool = Unchecked.defaultof<bool> │
00:09:41 verbose #54207 > │ v236 │
00:09:41 verbose #54208 > │ #endif │
00:09:41 verbose #54209 > │ |> fun x -> _v227 <- Some x │
00:09:41 verbose #54210 > │ let v237 : bool = _v227.Value │
00:09:41 verbose #54211 > │ let v238 : bool option = None │
00:09:41 verbose #54212 > │ let v239 : bool = true in let mutable _v238 = v238 │
00:09:41 verbose #54213 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:41 verbose #54214 > │ let v240 : bool = null |> unbox<bool> │
00:09:41 verbose #54215 > │ v240 │
00:09:41 verbose #54216 > │ #endif │
00:09:41 verbose #54217 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:41 verbose #54218 > │ let v241 : bool = null |> unbox<bool> │
00:09:41 verbose #54219 > │ v241 │
00:09:41 verbose #54220 > │ #endif │
00:09:41 verbose #54221 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:41 verbose #54222 > │ let v242 : bool = null |> unbox<bool> │
00:09:41 verbose #54223 > │ v242 │
00:09:41 verbose #54224 > │ #endif │
00:09:41 verbose #54225 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:41 verbose #54226 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:41 verbose #54227 > │ let v243 : System.Runtime.InteropServices.OSPlatform = │
00:09:41 verbose #54228 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:41 verbose #54229 > │ let v244 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:41 verbose #54230 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:41 verbose #54231 > │ let v245 : bool = v244 v243 │
00:09:41 verbose #54232 > │ v245 │
00:09:41 verbose #54233 > │ #endif │
00:09:41 verbose #54234 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:41 verbose #54235 > │ let v246 : bool = null |> unbox<bool> │
00:09:41 verbose #54236 > │ v246 │
00:09:41 verbose #54237 > │ #endif │
00:09:41 verbose #54238 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:41 verbose #54239 > │ FABLE_COMPILER_DART │
00:09:41 verbose #54240 > │ let v247 : bool = Unchecked.defaultof<bool> │
00:09:41 verbose #54241 > │ v247 │
00:09:41 verbose #54242 > │ #endif │
00:09:41 verbose #54243 > │ |> fun x -> _v238 <- Some x │
00:09:41 verbose #54244 > │ let v248 : bool = _v238.Value │
00:09:41 verbose #54245 > │ let v249 : int64 = │
00:09:41 verbose #54246 > │ if v248 then │
00:09:41 verbose #54247 > │ 5L │
00:09:41 verbose #54248 > │ else │
00:09:41 verbose #54249 > │ 1500L │
00:09:41 verbose #54250 > │ let v250 : string = $"%A{v225}" │
00:09:41 verbose #54251 > │ System.Console.WriteLine v250 │
00:09:41 verbose #54252 > │ let v251 : string = $"%A{v225}" │
00:09:41 verbose #54253 > │ System.Console.WriteLine v251 │
00:09:41 verbose #54254 > │ let v252 : bool = v225 >= 2L │
00:09:41 verbose #54255 > │ let v254 : bool = │
00:09:41 verbose #54256 > │ if v252 then │
00:09:41 verbose #54257 > │ true │
00:09:41 verbose #54258 > │ else │
00:09:41 verbose #54259 > │ method10(v252) │
00:09:41 verbose #54260 > │ let v255 : string = $"__expect / actual: %A{v225} / expected: │
00:09:41 verbose #54261 > │ %A{2L}" │
00:09:41 verbose #54262 > │ let v256 : bool = v254 = false │
00:09:41 verbose #54263 > │ if v256 then │
00:09:41 verbose #54264 > │ failwith<unit> v255 │
00:09:41 verbose #54265 > │ let v257 : string = $"%A{v225}" │
00:09:41 verbose #54266 > │ System.Console.WriteLine v257 │
00:09:41 verbose #54267 > │ let v258 : bool = v225 <= v249 │
00:09:41 verbose #54268 > │ let v260 : bool = │
00:09:41 verbose #54269 > │ if v258 then │
00:09:41 verbose #54270 > │ true │
00:09:41 verbose #54271 > │ else │
00:09:41 verbose #54272 > │ method10(v258) │
00:09:41 verbose #54273 > │ let v261 : string = $"__expect / actual: %A{v225} / expected: │
00:09:41 verbose #54274 > │ %A{v249}" │
00:09:41 verbose #54275 > │ let v262 : bool = v260 = false │
00:09:41 verbose #54276 > │ if v262 then │
00:09:41 verbose #54277 > │ failwith<unit> v261 │
00:09:41 verbose #54278 > │ let v263 : string = $"__expect / actual: %A{v225} / expected: │
00:09:41 verbose #54279 > │ %A{struct (2L, v249)}" │
00:09:41 verbose #54280 > │ let v264 : bool option = None │
00:09:41 verbose #54281 > │ let v265 : bool = true in let mutable _v264 = v264 │
00:09:41 verbose #54282 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:41 verbose #54283 > │ let v266 : bool = null |> unbox<bool> │
00:09:41 verbose #54284 > │ v266 │
00:09:41 verbose #54285 > │ #endif │
00:09:41 verbose #54286 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:41 verbose #54287 > │ let v267 : bool = null |> unbox<bool> │
00:09:41 verbose #54288 > │ v267 │
00:09:41 verbose #54289 > │ #endif │
00:09:41 verbose #54290 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:41 verbose #54291 > │ let v268 : bool = null |> unbox<bool> │
00:09:41 verbose #54292 > │ v268 │
00:09:41 verbose #54293 > │ #endif │
00:09:41 verbose #54294 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:41 verbose #54295 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:41 verbose #54296 > │ let v269 : System.Runtime.InteropServices.OSPlatform = │
00:09:41 verbose #54297 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:41 verbose #54298 > │ let v270 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:41 verbose #54299 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:41 verbose #54300 > │ let v271 : bool = v270 v269 │
00:09:41 verbose #54301 > │ v271 │
00:09:41 verbose #54302 > │ #endif │
00:09:41 verbose #54303 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:41 verbose #54304 > │ let v272 : bool = null |> unbox<bool> │
00:09:41 verbose #54305 > │ v272 │
00:09:41 verbose #54306 > │ #endif │
00:09:41 verbose #54307 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:41 verbose #54308 > │ FABLE_COMPILER_DART │
00:09:41 verbose #54309 > │ let v273 : bool = Unchecked.defaultof<bool> │
00:09:41 verbose #54310 > │ v273 │
00:09:41 verbose #54311 > │ #endif │
00:09:41 verbose #54312 > │ |> fun x -> _v264 <- Some x │
00:09:41 verbose #54313 > │ let v274 : bool = _v264.Value │
00:09:41 verbose #54314 > │ let v275 : bool option = None │
00:09:41 verbose #54315 > │ let v276 : bool = true in let mutable _v275 = v275 │
00:09:41 verbose #54316 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:41 verbose #54317 > │ let v277 : bool = null |> unbox<bool> │
00:09:41 verbose #54318 > │ v277 │
00:09:41 verbose #54319 > │ #endif │
00:09:41 verbose #54320 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:41 verbose #54321 > │ let v278 : bool = null |> unbox<bool> │
00:09:41 verbose #54322 > │ v278 │
00:09:41 verbose #54323 > │ #endif │
00:09:41 verbose #54324 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:41 verbose #54325 > │ let v279 : bool = null |> unbox<bool> │
00:09:41 verbose #54326 > │ v279 │
00:09:41 verbose #54327 > │ #endif │
00:09:41 verbose #54328 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:41 verbose #54329 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:41 verbose #54330 > │ let v280 : System.Runtime.InteropServices.OSPlatform = │
00:09:41 verbose #54331 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:41 verbose #54332 > │ let v281 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:41 verbose #54333 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:41 verbose #54334 > │ let v282 : bool = v281 v280 │
00:09:41 verbose #54335 > │ v282 │
00:09:41 verbose #54336 > │ #endif │
00:09:41 verbose #54337 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:41 verbose #54338 > │ let v283 : bool = null |> unbox<bool> │
00:09:41 verbose #54339 > │ v283 │
00:09:41 verbose #54340 > │ #endif │
00:09:41 verbose #54341 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:41 verbose #54342 > │ FABLE_COMPILER_DART │
00:09:41 verbose #54343 > │ let v284 : bool = Unchecked.defaultof<bool> │
00:09:41 verbose #54344 > │ v284 │
00:09:41 verbose #54345 > │ #endif │
00:09:41 verbose #54346 > │ |> fun x -> _v275 <- Some x │
00:09:41 verbose #54347 > │ let v285 : bool = _v275.Value │
00:09:41 verbose #54348 > │ let v286 : int64 = │
00:09:41 verbose #54349 > │ if v285 then │
00:09:41 verbose #54350 > │ 150L │
00:09:41 verbose #54351 > │ else │
00:09:41 verbose #54352 > │ 600L │
00:09:41 verbose #54353 > │ let v287 : string = $"%A{v226}" │
00:09:41 verbose #54354 > │ System.Console.WriteLine v287 │
00:09:41 verbose #54355 > │ let v288 : string = $"%A{v226}" │
00:09:41 verbose #54356 > │ System.Console.WriteLine v288 │
00:09:41 verbose #54357 > │ let v289 : bool = v226 >= 80L │
00:09:41 verbose #54358 > │ let v291 : bool = │
00:09:41 verbose #54359 > │ if v289 then │
00:09:41 verbose #54360 > │ true │
00:09:41 verbose #54361 > │ else │
00:09:41 verbose #54362 > │ method10(v289) │
00:09:41 verbose #54363 > │ let v292 : string = $"__expect / actual: %A{v226} / expected: │
00:09:41 verbose #54364 > │ %A{80L}" │
00:09:41 verbose #54365 > │ let v293 : bool = v291 = false │
00:09:41 verbose #54366 > │ if v293 then │
00:09:41 verbose #54367 > │ failwith<unit> v292 │
00:09:41 verbose #54368 > │ let v294 : string = $"%A{v226}" │
00:09:41 verbose #54369 > │ System.Console.WriteLine v294 │
00:09:41 verbose #54370 > │ let v295 : bool = v226 <= v286 │
00:09:41 verbose #54371 > │ let v297 : bool = │
00:09:41 verbose #54372 > │ if v295 then │
00:09:41 verbose #54373 > │ true │
00:09:41 verbose #54374 > │ else │
00:09:41 verbose #54375 > │ method10(v295) │
00:09:41 verbose #54376 > │ let v298 : string = $"__expect / actual: %A{v226} / expected: │
00:09:41 verbose #54377 > │ %A{v286}" │
00:09:41 verbose #54378 > │ let v299 : bool = v297 = false │
00:09:41 verbose #54379 > │ if v299 then │
00:09:41 verbose #54380 > │ failwith<unit> v298 │
00:09:41 verbose #54381 > │ let v300 : string = $"__expect / actual: %A{v226} / expected: │
00:09:41 verbose #54382 > │ %A{struct (80L, v286)}" │
00:09:41 verbose #54383 > │ true │
00:09:41 verbose #54384 > │ | _ -> │
00:09:41 verbose #54385 > │ false │
00:09:41 verbose #54386 > │ let v302 : string = $"%A{v301}" │
00:09:41 verbose #54387 > │ System.Console.WriteLine v302 │
00:09:41 verbose #54388 > │ let v304 : bool = │
00:09:41 verbose #54389 > │ if v301 then │
00:09:41 verbose #54390 > │ true │
00:09:41 verbose #54391 > │ else │
00:09:41 verbose #54392 > │ method10(v301) │
00:09:41 verbose #54393 > │ let v305 : string = $"__expect / actual: %A{v301} / expected: %A{true}" │
00:09:41 verbose #54394 > │ let v306 : bool = v304 = false │
00:09:41 verbose #54395 > │ if v306 then │
00:09:41 verbose #54396 > │ failwith<unit> v305 │
00:09:41 verbose #54397 > │ method0() │
00:09:41 verbose #54398 > │ │
00:09:41 verbose #54399 > │ 00:00:00 debug #1 1 │
00:09:41 verbose #54400 > │ 00:00:00 debug #2 _1 │
00:09:41 verbose #54401 > │ 00:00:00 debug #3 2 │
00:09:41 verbose #54402 > │ 00:00:00 debug #4 3 │
00:09:41 verbose #54403 > │ 00:00:02 verbose #5 test_port_open / ex: System.AggregateException: One or │
00:09:41 verbose #54404 > │ more errors occurred. (No connection could be made because the target │
00:09:41 verbose #54405 > │ machine actively refused it.) │
00:09:41 verbose #54406 > │ 00:00:02 verbose #6 wait_for_port_access / port: 5555 / retry: 0 │
00:09:41 verbose #54407 > │ 00:00:04 verbose #7 test_port_open / ex: System.AggregateException: One or │
00:09:41 verbose #54408 > │ more errors occurred. (No connection could be made because the target │
00:09:41 verbose #54409 > │ machine actively refused it.) │
00:09:41 verbose #54410 > │ 00:00:05 debug #8 _2 │
00:09:41 verbose #54411 > │ 00:00:05 debug #9 _3 │
00:09:41 verbose #54412 > │ 00:00:05 debug #10 4 │
00:09:41 verbose #54413 > │ 00:00:05 verbose #11 wait_for_port_access / port: 5555 / retry: 0 │
00:09:41 verbose #54414 > │ 00:00:06 verbose #12 wait_for_port_access / port: 5555 / retry: 100 │
00:09:41 verbose #54415 > │ 00:00:07 debug #13 _4 │
00:09:41 verbose #54416 > │ 00:00:07 debug #14 _5 │
00:09:41 verbose #54417 > │ 00:00:09 verbose #15 test_port_open / ex: System.AggregateException: One or │
00:09:41 verbose #54418 > │ more errors occurred. (No connection could be made because the target │
00:09:41 verbose #54419 > │ machine actively refused it.) │
00:09:41 verbose #54420 > │ 00:00:09 debug #16 5 │
00:09:41 verbose #54421 > │ 00:00:09 debug #17 6 │
00:09:41 verbose #54422 > │ 2L │
00:09:41 verbose #54423 > │ 2L │
00:09:41 verbose #54424 > │ 2L │
00:09:41 verbose #54425 > │ 123L │
00:09:41 verbose #54426 > │ 123L │
00:09:41 verbose #54427 > │ 123L │
00:09:41 verbose #54428 > │ true │
00:09:41 verbose #54429 > │ │
00:09:41 verbose #54430 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:41 verbose #54431 >
00:09:41 verbose #54432 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:41 verbose #54433 > // // test
00:09:41 verbose #54434 >
00:09:41 verbose #54435 >
00:09:41 verbose #54436 > inl lock_port port = async.new_async_unit fun () =>
00:09:41 verbose #54437 > trace Debug (fun () => "_1") _locals
00:09:41 verbose #54438 > async.sleep 500 |> async.do
00:09:41 verbose #54439 > inl listener = new_tcp_listener (ip_address_parse "127.0.0.1") port |> use
00:09:41 verbose #54440 > trace Debug (fun () => "_2") _locals
00:09:41 verbose #54441 > listener |> listener_start
00:09:41 verbose #54442 > trace Debug (fun () => "_3") _locals
00:09:41 verbose #54443 > async.sleep 200 |> async.do
00:09:41 verbose #54444 > trace Debug (fun () => "_4") _locals
00:09:41 verbose #54445 > listener |> listener_stop
00:09:41 verbose #54446 > trace Debug (fun () => "_5") _locals
00:09:41 verbose #54447 >
00:09:41 verbose #54448 > inl port = 5555
00:09:41 verbose #54449 >
00:09:41 verbose #54450 > fun () =>
00:09:41 verbose #54451 > trace Debug (fun () => "1") _locals
00:09:41 verbose #54452 > inl child = lock_port port |> async.start_child |> async.let'
00:09:41 verbose #54453 > trace Debug (fun () => "2") _locals
00:09:41 verbose #54454 > async.sleep 1 |> async.do
00:09:41 verbose #54455 > trace Debug (fun () => "3") _locals
00:09:41 verbose #54456 > inl retries1 = wait_for_port_access (Some 60 |> optionm'.box) true port |>
00:09:41 verbose #54457 > async.let'
00:09:41 verbose #54458 > trace Debug (fun () => "4") _locals
00:09:41 verbose #54459 > inl retries2 = wait_for_port_access (Some 60 |> optionm'.box) false port |>
00:09:41 verbose #54460 > async.let'
00:09:41 verbose #54461 > trace Debug (fun () => "5") _locals
00:09:41 verbose #54462 > child |> async.do
00:09:41 verbose #54463 > trace Debug (fun () => "6") _locals
00:09:41 verbose #54464 > (retries1, retries2) |> return
00:09:41 verbose #54465 > |> async.new_async_unit
00:09:41 verbose #54466 > |> async.run_with_timeout 2000
00:09:41 verbose #54467 > |> function
00:09:41 verbose #54468 > | Some (retries1, retries2) =>
00:09:41 verbose #54469 > retries1
00:09:41 verbose #54470 > |> _assert_between
00:09:41 verbose #54471 > if runtime.is_windows () then 4i64 else 2
00:09:41 verbose #54472 > if runtime.is_windows () then 15 else 150
00:09:41 verbose #54473 >
00:09:41 verbose #54474 > retries2
00:09:41 verbose #54475 > |> _assert_between
00:09:41 verbose #54476 > if runtime.is_windows () then 5i64 else 0
00:09:41 verbose #54477 > if runtime.is_windows () then 20 else 60
00:09:41 verbose #54478 >
00:09:41 verbose #54479 > true
00:09:41 verbose #54480 > | _ => false
00:09:41 verbose #54481 > |> _assert_eq true
00:09:41 verbose #54482 > 00:09:40 debug #739 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ceb25ec5ff7691c0b24cc1a5a9f4368a801d9bf205da6994a09cc8f83fbd472c/main.spi
00:09:43 verbose #54483 >
00:09:43 verbose #54484 > ╭─[ 2.31s - stdout ]───────────────────────────────────────────────────────────╮
00:09:43 verbose #54485 > │ module State = let mutable trace_state = None │
00:09:43 verbose #54486 > │ type [<Struct>] US0 = │
00:09:43 verbose #54487 > │ | US0_0 │
00:09:43 verbose #54488 > │ | US0_1 │
00:09:43 verbose #54489 > │ | US0_2 │
00:09:43 verbose #54490 > │ | US0_3 │
00:09:43 verbose #54491 > │ | US0_4 │
00:09:43 verbose #54492 > │ and Mut0 = {mutable l0 : int64} │
00:09:43 verbose #54493 > │ and Mut1 = {mutable l0 : bool} │
00:09:43 verbose #54494 > │ and Mut2 = {mutable l0 : US0} │
00:09:43 verbose #54495 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:43 verbose #54496 > │ and [<Struct>] US1 = │
00:09:43 verbose #54497 > │ | US1_0 of f0_0 : int64 │
00:09:43 verbose #54498 > │ | US1_1 │
00:09:43 verbose #54499 > │ and [<Struct>] US2 = │
00:09:43 verbose #54500 > │ | US2_0 of f0_0 : int64 │
00:09:43 verbose #54501 > │ | US2_1 │
00:09:43 verbose #54502 > │ and [<Struct>] US3 = │
00:09:43 verbose #54503 > │ | US3_0 of f0_0 : int32 │
00:09:43 verbose #54504 > │ | US3_1 │
00:09:43 verbose #54505 > │ and [<Struct>] US4 = │
00:09:43 verbose #54506 > │ | US4_0 of f0_0 : bool │
00:09:43 verbose #54507 > │ | US4_1 │
00:09:43 verbose #54508 > │ and [<Struct>] US5 = │
00:09:43 verbose #54509 > │ | US5_0 of f0_0 : bool │
00:09:43 verbose #54510 > │ | US5_1 of f1_0 : exn │
00:09:43 verbose #54511 > │ and [<Struct>] US6 = │
00:09:43 verbose #54512 > │ | US6_0 of f0_0 : bool │
00:09:43 verbose #54513 > │ | US6_1 of f1_0 : exn │
00:09:43 verbose #54514 > │ and [<Struct>] US7 = │
00:09:43 verbose #54515 > │ | US7_0 of f0_0 : int64 * f0_1 : int64 │
00:09:43 verbose #54516 > │ | US7_1 │
00:09:43 verbose #54517 > │ and [<Struct>] US8 = │
00:09:43 verbose #54518 > │ | US8_0 of f0_0 : int64 * f0_1 : int64 │
00:09:43 verbose #54519 > │ | US8_1 of f1_0 : exn │
00:09:43 verbose #54520 > │ and [<Struct>] US9 = │
00:09:43 verbose #54521 > │ | US9_0 of f0_0 : int64 * f0_1 : int64 │
00:09:43 verbose #54522 > │ | US9_1 of f1_0 : exn │
00:09:43 verbose #54523 > │ let rec closure0 () () : string = │
00:09:43 verbose #54524 > │ let v0 : string = "1" │
00:09:43 verbose #54525 > │ v0 │
00:09:43 verbose #54526 > │ and closure1 () () : string = │
00:09:43 verbose #54527 > │ let v0 : string = "" │
00:09:43 verbose #54528 > │ v0 │
00:09:43 verbose #54529 > │ and closure4 () (v0 : string) : unit = │
00:09:43 verbose #54530 > │ () │
00:09:43 verbose #54531 > │ and method2 (v0 : int64 option) : int64 option = │
00:09:43 verbose #54532 > │ v0 │
00:09:43 verbose #54533 > │ and method3 (v0 : int64 option) : int64 option = │
00:09:43 verbose #54534 > │ v0 │
00:09:43 verbose #54535 > │ and closure3 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:43 verbose #54536 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:43 verbose #54537 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:43 verbose #54538 > │ let v2 : US0 = US0_0 │
00:09:43 verbose #54539 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:43 verbose #54540 > │ let v4 : (string -> unit) = closure4() │
00:09:43 verbose #54541 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:43 verbose #54542 > │ let v6 : int64 option option = None │
00:09:43 verbose #54543 > │ let mutable _v6 = v6 │
00:09:43 verbose #54544 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:43 verbose #54545 > │ let v7 : string option = None │
00:09:43 verbose #54546 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:43 verbose #54547 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #54548 > │ let v9 : string = null |> unbox<string> │
00:09:43 verbose #54549 > │ v9 │
00:09:43 verbose #54550 > │ #endif │
00:09:43 verbose #54551 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #54552 > │ let v10 : string = null |> unbox<string> │
00:09:43 verbose #54553 > │ v10 │
00:09:43 verbose #54554 > │ #endif │
00:09:43 verbose #54555 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #54556 > │ let v11 : string = null |> unbox<string> │
00:09:43 verbose #54557 > │ v11 │
00:09:43 verbose #54558 > │ #endif │
00:09:43 verbose #54559 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #54560 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #54561 > │ let v12 : string = │
00:09:43 verbose #54562 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:43 verbose #54563 > │ v12 │
00:09:43 verbose #54564 > │ #endif │
00:09:43 verbose #54565 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #54566 > │ let v13 : string = null |> unbox<string> │
00:09:43 verbose #54567 > │ v13 │
00:09:43 verbose #54568 > │ #endif │
00:09:43 verbose #54569 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:43 verbose #54570 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:43 verbose #54571 > │ v14 │
00:09:43 verbose #54572 > │ #endif │
00:09:43 verbose #54573 > │ |> fun x -> _v7 <- Some x │
00:09:43 verbose #54574 > │ let v15 : string = _v7.Value │
00:09:43 verbose #54575 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:43 verbose #54576 > │ let v18 : bool = v17 <> true │
00:09:43 verbose #54577 > │ let v24 : US1 = │
00:09:43 verbose #54578 > │ if v18 then │
00:09:43 verbose #54579 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:43 verbose #54580 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:43 verbose #54581 > │ let v21 : int64 = v20 v19 │
00:09:43 verbose #54582 > │ US1_0(v21) │
00:09:43 verbose #54583 > │ else │
00:09:43 verbose #54584 > │ US1_1 │
00:09:43 verbose #54585 > │ let v29 : int64 option = │
00:09:43 verbose #54586 > │ match v24 with │
00:09:43 verbose #54587 > │ | US1_1 -> (* None *) │
00:09:43 verbose #54588 > │ let v27 : int64 option = None │
00:09:43 verbose #54589 > │ v27 │
00:09:43 verbose #54590 > │ | US1_0(v25) -> (* Some *) │
00:09:43 verbose #54591 > │ let v26 : int64 option = Some v25 │
00:09:43 verbose #54592 > │ v26 │
00:09:43 verbose #54593 > │ let v30 : int64 option = method2(v29) │
00:09:43 verbose #54594 > │ v30 │
00:09:43 verbose #54595 > │ #else │
00:09:43 verbose #54596 > │ let v31 : int64 option = None │
00:09:43 verbose #54597 > │ let v32 : int64 option = method3(v31) │
00:09:43 verbose #54598 > │ v32 │
00:09:43 verbose #54599 > │ #endif │
00:09:43 verbose #54600 > │ |> fun x -> _v6 <- Some x │
00:09:43 verbose #54601 > │ let v33 : int64 option = _v6.Value │
00:09:43 verbose #54602 > │ struct (v1, v0, v3, v33, v5) │
00:09:43 verbose #54603 > │ and closure5 () (v0 : int64) : US2 = │
00:09:43 verbose #54604 > │ US2_0(v0) │
00:09:43 verbose #54605 > │ and method4 () : (int64 -> US2) = │
00:09:43 verbose #54606 > │ closure5() │
00:09:43 verbose #54607 > │ and method5 () : string = │
00:09:43 verbose #54608 > │ let v0 : string = "" │
00:09:43 verbose #54609 > │ v0 │
00:09:43 verbose #54610 > │ and closure2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:43 verbose #54611 > │ string = │
00:09:43 verbose #54612 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:43 verbose #54613 > │ closure3() │
00:09:43 verbose #54614 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:43 verbose #54615 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:43 verbose #54616 > │ Mut3) = State.trace_state.Value │
00:09:43 verbose #54617 > │ let v9 : string option = None │
00:09:43 verbose #54618 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:43 verbose #54619 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #54620 > │ let v11 : (int64 -> US2) = method4() │
00:09:43 verbose #54621 > │ let v12 : US2 = US2_1 │
00:09:43 verbose #54622 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:43 verbose #54623 > │ let v31 : System.DateTime = │
00:09:43 verbose #54624 > │ match v13 with │
00:09:43 verbose #54625 > │ | US2_1 -> (* None *) │
00:09:43 verbose #54626 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:43 verbose #54627 > │ v29 │
00:09:43 verbose #54628 > │ | US2_0(v14) -> (* Some *) │
00:09:43 verbose #54629 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:43 verbose #54630 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:43 verbose #54631 > │ let v17 : int64 = v16 v15 │
00:09:43 verbose #54632 > │ let v18 : int64 = v17 - v14 │
00:09:43 verbose #54633 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:43 verbose #54634 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:43 verbose #54635 > │ let v21 : int32 = v20 v19 │
00:09:43 verbose #54636 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:43 verbose #54637 > │ let v23 : int32 = v22 v19 │
00:09:43 verbose #54638 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:43 verbose #54639 > │ let v25 : int32 = v24 v19 │
00:09:43 verbose #54640 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:43 verbose #54641 > │ let v27 : int32 = v26 v19 │
00:09:43 verbose #54642 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:43 verbose #54643 > │ v25, v27) │
00:09:43 verbose #54644 > │ v28 │
00:09:43 verbose #54645 > │ let v32 : string = "hh:mm:ss" │
00:09:43 verbose #54646 > │ let v33 : string = v31.ToString v32 │
00:09:43 verbose #54647 > │ v33 │
00:09:43 verbose #54648 > │ #endif │
00:09:43 verbose #54649 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #54650 > │ let v34 : string = method5() │
00:09:43 verbose #54651 > │ v34 │
00:09:43 verbose #54652 > │ #endif │
00:09:43 verbose #54653 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #54654 > │ let v35 : string = method5() │
00:09:43 verbose #54655 > │ v35 │
00:09:43 verbose #54656 > │ #endif │
00:09:43 verbose #54657 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #54658 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #54659 > │ let v36 : (int64 -> US2) = method4() │
00:09:43 verbose #54660 > │ let v37 : US2 = US2_1 │
00:09:43 verbose #54661 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:43 verbose #54662 > │ let v56 : System.DateTime = │
00:09:43 verbose #54663 > │ match v38 with │
00:09:43 verbose #54664 > │ | US2_1 -> (* None *) │
00:09:43 verbose #54665 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:43 verbose #54666 > │ v54 │
00:09:43 verbose #54667 > │ | US2_0(v39) -> (* Some *) │
00:09:43 verbose #54668 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:43 verbose #54669 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:43 verbose #54670 > │ let v42 : int64 = v41 v40 │
00:09:43 verbose #54671 > │ let v43 : int64 = v42 - v39 │
00:09:43 verbose #54672 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:43 verbose #54673 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:43 verbose #54674 > │ let v46 : int32 = v45 v44 │
00:09:43 verbose #54675 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:43 verbose #54676 > │ let v48 : int32 = v47 v44 │
00:09:43 verbose #54677 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:43 verbose #54678 > │ let v50 : int32 = v49 v44 │
00:09:43 verbose #54679 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:43 verbose #54680 > │ let v52 : int32 = v51 v44 │
00:09:43 verbose #54681 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:43 verbose #54682 > │ v50, v52) │
00:09:43 verbose #54683 > │ v53 │
00:09:43 verbose #54684 > │ let v57 : string = "HH:mm:ss" │
00:09:43 verbose #54685 > │ let v58 : string = v56.ToString v57 │
00:09:43 verbose #54686 > │ v58 │
00:09:43 verbose #54687 > │ #endif │
00:09:43 verbose #54688 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #54689 > │ let v59 : string = method5() │
00:09:43 verbose #54690 > │ v59 │
00:09:43 verbose #54691 > │ #endif │
00:09:43 verbose #54692 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:43 verbose #54693 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:43 verbose #54694 > │ v60 │
00:09:43 verbose #54695 > │ #endif │
00:09:43 verbose #54696 > │ |> fun x -> _v9 <- Some x │
00:09:43 verbose #54697 > │ let v61 : string = _v9.Value │
00:09:43 verbose #54698 > │ let v62 : int64 = v4.l0 │
00:09:43 verbose #54699 > │ let v72 : string = │
00:09:43 verbose #54700 > │ match v0 with │
00:09:43 verbose #54701 > │ | US0_4 -> (* Critical *) │
00:09:43 verbose #54702 > │ let v67 : string = "Critical" │
00:09:43 verbose #54703 > │ v67 │
00:09:43 verbose #54704 > │ | US0_1 -> (* Debug *) │
00:09:43 verbose #54705 > │ let v64 : string = "Debug" │
00:09:43 verbose #54706 > │ v64 │
00:09:43 verbose #54707 > │ | US0_2 -> (* Info *) │
00:09:43 verbose #54708 > │ let v65 : string = "Info" │
00:09:43 verbose #54709 > │ v65 │
00:09:43 verbose #54710 > │ | US0_0 -> (* Verbose *) │
00:09:43 verbose #54711 > │ let v63 : string = "Verbose" │
00:09:43 verbose #54712 > │ v63 │
00:09:43 verbose #54713 > │ | US0_3 -> (* Warning *) │
00:09:43 verbose #54714 > │ let v66 : string = "Warning" │
00:09:43 verbose #54715 > │ v66 │
00:09:43 verbose #54716 > │ let v73 : string = v72.ToLower () │
00:09:43 verbose #54717 > │ let v74 : string option = None │
00:09:43 verbose #54718 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:43 verbose #54719 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #54720 > │ let v90 : Ref<Str> = │
00:09:43 verbose #54721 > │ match v0 with │
00:09:43 verbose #54722 > │ | US0_4 -> (* Critical *) │
00:09:43 verbose #54723 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:43 verbose #54724 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:43 verbose #54725 > │ v85 │
00:09:43 verbose #54726 > │ | US0_1 -> (* Debug *) │
00:09:43 verbose #54727 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:43 verbose #54728 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:43 verbose #54729 > │ v79 │
00:09:43 verbose #54730 > │ | US0_2 -> (* Info *) │
00:09:43 verbose #54731 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:43 verbose #54732 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:43 verbose #54733 > │ v81 │
00:09:43 verbose #54734 > │ | US0_0 -> (* Verbose *) │
00:09:43 verbose #54735 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:43 verbose #54736 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:43 verbose #54737 > │ v77 │
00:09:43 verbose #54738 > │ | US0_3 -> (* Warning *) │
00:09:43 verbose #54739 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:43 verbose #54740 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:43 verbose #54741 > │ v83 │
00:09:43 verbose #54742 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:43 verbose #54743 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:43 verbose #54744 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:43 verbose #54745 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:43 verbose #54746 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:43 verbose #54747 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:43 verbose #54748 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:43 verbose #54749 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:43 verbose #54750 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:43 verbose #54751 > │ v99 │
00:09:43 verbose #54752 > │ #endif │
00:09:43 verbose #54753 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #54754 > │ let v114 : Ref<Str> = │
00:09:43 verbose #54755 > │ match v0 with │
00:09:43 verbose #54756 > │ | US0_4 -> (* Critical *) │
00:09:43 verbose #54757 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:43 verbose #54758 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54759 > │ v108 │
00:09:43 verbose #54760 > │ v109 │
00:09:43 verbose #54761 > │ | US0_1 -> (* Debug *) │
00:09:43 verbose #54762 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:43 verbose #54763 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54764 > │ v102 │
00:09:43 verbose #54765 > │ v103 │
00:09:43 verbose #54766 > │ | US0_2 -> (* Info *) │
00:09:43 verbose #54767 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:43 verbose #54768 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54769 > │ v104 │
00:09:43 verbose #54770 > │ v105 │
00:09:43 verbose #54771 > │ | US0_0 -> (* Verbose *) │
00:09:43 verbose #54772 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:43 verbose #54773 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54774 > │ v100 │
00:09:43 verbose #54775 > │ v101 │
00:09:43 verbose #54776 > │ | US0_3 -> (* Warning *) │
00:09:43 verbose #54777 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:43 verbose #54778 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54779 > │ v106 │
00:09:43 verbose #54780 > │ v107 │
00:09:43 verbose #54781 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:43 verbose #54782 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:43 verbose #54783 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:43 verbose #54784 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:43 verbose #54785 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:43 verbose #54786 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:43 verbose #54787 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54788 > │ v120 │
00:09:43 verbose #54789 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:43 verbose #54790 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:43 verbose #54791 > │ v123 │
00:09:43 verbose #54792 > │ #endif │
00:09:43 verbose #54793 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #54794 > │ let v138 : Ref<Str> = │
00:09:43 verbose #54795 > │ match v0 with │
00:09:43 verbose #54796 > │ | US0_4 -> (* Critical *) │
00:09:43 verbose #54797 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:43 verbose #54798 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54799 > │ v132 │
00:09:43 verbose #54800 > │ v133 │
00:09:43 verbose #54801 > │ | US0_1 -> (* Debug *) │
00:09:43 verbose #54802 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:43 verbose #54803 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54804 > │ v126 │
00:09:43 verbose #54805 > │ v127 │
00:09:43 verbose #54806 > │ | US0_2 -> (* Info *) │
00:09:43 verbose #54807 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:43 verbose #54808 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54809 > │ v128 │
00:09:43 verbose #54810 > │ v129 │
00:09:43 verbose #54811 > │ | US0_0 -> (* Verbose *) │
00:09:43 verbose #54812 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:43 verbose #54813 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54814 > │ v124 │
00:09:43 verbose #54815 > │ v125 │
00:09:43 verbose #54816 > │ | US0_3 -> (* Warning *) │
00:09:43 verbose #54817 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:43 verbose #54818 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54819 > │ v130 │
00:09:43 verbose #54820 > │ v131 │
00:09:43 verbose #54821 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:43 verbose #54822 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:43 verbose #54823 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:43 verbose #54824 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:43 verbose #54825 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:43 verbose #54826 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:43 verbose #54827 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:43 verbose #54828 > │ v144 │
00:09:43 verbose #54829 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:43 verbose #54830 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:43 verbose #54831 > │ v147 │
00:09:43 verbose #54832 > │ #endif │
00:09:43 verbose #54833 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #54834 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #54835 > │ v73 │
00:09:43 verbose #54836 > │ #endif │
00:09:43 verbose #54837 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #54838 > │ v73 │
00:09:43 verbose #54839 > │ #endif │
00:09:43 verbose #54840 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:43 verbose #54841 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:43 verbose #54842 > │ v148 │
00:09:43 verbose #54843 > │ #endif │
00:09:43 verbose #54844 > │ |> fun x -> _v74 <- Some x │
00:09:43 verbose #54845 > │ let v149 : string = _v74.Value │
00:09:43 verbose #54846 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:43 verbose #54847 > │ let v151 : (char []) = [||] │
00:09:43 verbose #54848 > │ let v152 : string = v150.TrimStart v151 │
00:09:43 verbose #54849 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:43 verbose #54850 > │ let v154 : string = v152.TrimEnd v153 │
00:09:43 verbose #54851 > │ v154 │
00:09:43 verbose #54852 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:43 verbose #54853 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:43 verbose #54854 > │ closure3() │
00:09:43 verbose #54855 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:43 verbose #54856 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:43 verbose #54857 > │ Mut3) = State.trace_state.Value │
00:09:43 verbose #54858 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:43 verbose #54859 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:43 verbose #54860 > │ Mut3) = State.trace_state.Value │
00:09:43 verbose #54861 > │ let v13 : US0 = v10.l0 │
00:09:43 verbose #54862 > │ let v14 : bool = v9.l0 │
00:09:43 verbose #54863 > │ let v15 : bool = v14 = false │
00:09:43 verbose #54864 > │ let v19 : bool = │
00:09:43 verbose #54865 > │ if v15 then │
00:09:43 verbose #54866 > │ false │
00:09:43 verbose #54867 > │ else │
00:09:43 verbose #54868 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:43 verbose #54869 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:43 verbose #54870 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:43 verbose #54871 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:43 verbose #54872 > │ let v18 : bool = v16 >= v17 │
00:09:43 verbose #54873 > │ v18 │
00:09:43 verbose #54874 > │ if v19 then │
00:09:43 verbose #54875 > │ let v20 : int64 = v3.l0 │
00:09:43 verbose #54876 > │ let v21 : int64 = v20 + 1L │
00:09:43 verbose #54877 > │ v3.l0 <- v21 │
00:09:43 verbose #54878 > │ let v22 : string = $"%s{v1 ()}" │
00:09:43 verbose #54879 > │ let v23 : unit option = None │
00:09:43 verbose #54880 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:43 verbose #54881 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #54882 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:43 verbose #54883 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:43 verbose #54884 > │ () │
00:09:43 verbose #54885 > │ #endif │
00:09:43 verbose #54886 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #54887 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:43 verbose #54888 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:43 verbose #54889 > │ () │
00:09:43 verbose #54890 > │ #endif │
00:09:43 verbose #54891 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #54892 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:43 verbose #54893 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:43 verbose #54894 > │ () │
00:09:43 verbose #54895 > │ #endif │
00:09:43 verbose #54896 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #54897 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #54898 > │ System.Console.WriteLine v22 │
00:09:43 verbose #54899 > │ () │
00:09:43 verbose #54900 > │ #endif │
00:09:43 verbose #54901 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #54902 > │ System.Console.WriteLine v22 │
00:09:43 verbose #54903 > │ () │
00:09:43 verbose #54904 > │ #endif │
00:09:43 verbose #54905 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #54906 > │ FABLE_COMPILER_DART │
00:09:43 verbose #54907 > │ Unchecked.defaultof<unit> │
00:09:43 verbose #54908 > │ () │
00:09:43 verbose #54909 > │ #endif │
00:09:43 verbose #54910 > │ |> fun x -> _v23 <- Some x │
00:09:43 verbose #54911 > │ _v23.Value │
00:09:43 verbose #54912 > │ let v28 : (string -> unit) = v7.l0 │
00:09:43 verbose #54913 > │ v28 v22 │
00:09:43 verbose #54914 > │ and method1 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:43 verbose #54915 > │ = │
00:09:43 verbose #54916 > │ let v3 : (unit -> string) = closure2(v0, v1, v2) │
00:09:43 verbose #54917 > │ method6(v0, v3) │
00:09:43 verbose #54918 > │ and closure6 () () : string = │
00:09:43 verbose #54919 > │ let v0 : string = "_1" │
00:09:43 verbose #54920 > │ v0 │
00:09:43 verbose #54921 > │ and closure7 () () : string = │
00:09:43 verbose #54922 > │ let v0 : string = "_2" │
00:09:43 verbose #54923 > │ v0 │
00:09:43 verbose #54924 > │ and closure8 () () : string = │
00:09:43 verbose #54925 > │ let v0 : string = "_3" │
00:09:43 verbose #54926 > │ v0 │
00:09:43 verbose #54927 > │ and closure9 () () : string = │
00:09:43 verbose #54928 > │ let v0 : string = "_4" │
00:09:43 verbose #54929 > │ v0 │
00:09:43 verbose #54930 > │ and closure10 () () : string = │
00:09:43 verbose #54931 > │ let v0 : string = "_5" │
00:09:43 verbose #54932 > │ v0 │
00:09:43 verbose #54933 > │ and closure11 () () : string = │
00:09:43 verbose #54934 > │ let v0 : string = "2" │
00:09:43 verbose #54935 > │ v0 │
00:09:43 verbose #54936 > │ and closure12 () () : string = │
00:09:43 verbose #54937 > │ let v0 : string = "3" │
00:09:43 verbose #54938 > │ v0 │
00:09:43 verbose #54939 > │ and closure13 () (v0 : int32) : US3 = │
00:09:43 verbose #54940 > │ US3_0(v0) │
00:09:43 verbose #54941 > │ and method8 () : (int32 -> US3) = │
00:09:43 verbose #54942 > │ closure13() │
00:09:43 verbose #54943 > │ and closure14 (v0 : string) () : string = │
00:09:43 verbose #54944 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:43 verbose #54945 > │ v1 │
00:09:43 verbose #54946 > │ and closure15 () (v0 : bool) : US5 = │
00:09:43 verbose #54947 > │ US5_0(v0) │
00:09:43 verbose #54948 > │ and closure16 () (v0 : exn) : US5 = │
00:09:43 verbose #54949 > │ US5_1(v0) │
00:09:43 verbose #54950 > │ and closure17 () () : string = │
00:09:43 verbose #54951 > │ let v0 : string = "run_with_timeout_async" │
00:09:43 verbose #54952 > │ v0 │
00:09:43 verbose #54953 > │ and closure18 (v0 : int32) () : string = │
00:09:43 verbose #54954 > │ let v1 : (unit -> string) = closure1() │
00:09:43 verbose #54955 > │ let v2 : string = $"timeout: {v0} / {v1 ()}" │
00:09:43 verbose #54956 > │ v2 │
00:09:43 verbose #54957 > │ and closure19 (v0 : string) () : string = │
00:09:43 verbose #54958 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:43 verbose #54959 > │ v1 │
00:09:43 verbose #54960 > │ and closure20 () () : string = │
00:09:43 verbose #54961 > │ let v0 : string = "wait_for_port_access" │
00:09:43 verbose #54962 > │ v0 │
00:09:43 verbose #54963 > │ and closure21 (v0 : int64) () : string = │
00:09:43 verbose #54964 > │ let v1 : (unit -> string) = closure1() │
00:09:43 verbose #54965 > │ let v2 : string = $"port: {5555} / retry: {v0} / {v1 ()}" │
00:09:43 verbose #54966 > │ v2 │
00:09:43 verbose #54967 > │ and method7 (v0 : int32 option, v1 : int64) : Async<int64> = │
00:09:43 verbose #54968 > │ let v2 : Async<int64> option = None │
00:09:43 verbose #54969 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:43 verbose #54970 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #54971 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #54972 > │ v4 │
00:09:43 verbose #54973 > │ #endif │
00:09:43 verbose #54974 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #54975 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #54976 > │ v5 │
00:09:43 verbose #54977 > │ #endif │
00:09:43 verbose #54978 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #54979 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #54980 > │ v6 │
00:09:43 verbose #54981 > │ #endif │
00:09:43 verbose #54982 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #54983 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #54984 > │ let v7 : Async<int64> option = None │
00:09:43 verbose #54985 > │ let mutable _v7 = v7 │
00:09:43 verbose #54986 > │ async { │
00:09:43 verbose #54987 > │ let v8 : (int32 -> US3) = method8() │
00:09:43 verbose #54988 > │ let v9 : US3 = US3_1 │
00:09:43 verbose #54989 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:43 verbose #54990 > │ let v225 : Async<bool> = │
00:09:43 verbose #54991 > │ match v10 with │
00:09:43 verbose #54992 > │ | US3_1 -> (* None *) │
00:09:43 verbose #54993 > │ let v11 : Async<bool> option = None │
00:09:43 verbose #54994 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:43 verbose #54995 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #54996 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #54997 > │ v13 │
00:09:43 verbose #54998 > │ #endif │
00:09:43 verbose #54999 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55000 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55001 > │ v14 │
00:09:43 verbose #55002 > │ #endif │
00:09:43 verbose #55003 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55004 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55005 > │ v15 │
00:09:43 verbose #55006 > │ #endif │
00:09:43 verbose #55007 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55008 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55009 > │ let v16 : Async<bool> option = None │
00:09:43 verbose #55010 > │ let mutable _v16 = v16 │
00:09:43 verbose #55011 > │ async { │
00:09:43 verbose #55012 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:43 verbose #55013 > │ Async.CancellationToken │
00:09:43 verbose #55014 > │ let! v17 = v17 │
00:09:43 verbose #55015 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:43 verbose #55016 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:43 verbose #55017 > │ System.Net.Sockets.TcpClient () │
00:09:43 verbose #55018 > │ use v19 = v19 │
00:09:43 verbose #55019 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:43 verbose #55020 > │ try │
00:09:43 verbose #55021 > │ let v21 : string = "127.0.0.1" │
00:09:43 verbose #55022 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:43 verbose #55023 > │ (v21, 5555, v18) │
00:09:43 verbose #55024 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:43 verbose #55025 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:43 verbose #55026 > │ let v25 : Async<unit> option = None │
00:09:43 verbose #55027 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:43 verbose #55028 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55029 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55030 > │ v27 │
00:09:43 verbose #55031 > │ #endif │
00:09:43 verbose #55032 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55033 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55034 > │ v28 │
00:09:43 verbose #55035 > │ #endif │
00:09:43 verbose #55036 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55037 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55038 > │ v29 │
00:09:43 verbose #55039 > │ #endif │
00:09:43 verbose #55040 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55041 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55042 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:43 verbose #55043 > │ Async.AwaitTask │
00:09:43 verbose #55044 > │ let v31 : Async<unit> = v30 v24 │
00:09:43 verbose #55045 > │ v31 │
00:09:43 verbose #55046 > │ #endif │
00:09:43 verbose #55047 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55048 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55049 > │ v32 │
00:09:43 verbose #55050 > │ #endif │
00:09:43 verbose #55051 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55052 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55053 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:43 verbose #55054 > │ v33 │
00:09:43 verbose #55055 > │ #endif │
00:09:43 verbose #55056 > │ |> fun x -> _v25 <- Some x │
00:09:43 verbose #55057 > │ let v34 : Async<unit> = _v25.Value │
00:09:43 verbose #55058 > │ do! v34 │
00:09:43 verbose #55059 > │ return true │
00:09:43 verbose #55060 > │ with ex -> │
00:09:43 verbose #55061 > │ let v35 : exn = ex │
00:09:43 verbose #55062 > │ let v36 : string option = None │
00:09:43 verbose #55063 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:43 verbose #55064 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55065 > │ let v38 : string = $"%A{v35}" │
00:09:43 verbose #55066 > │ v38 │
00:09:43 verbose #55067 > │ #endif │
00:09:43 verbose #55068 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55069 > │ let v39 : string = $"%A{v35}" │
00:09:43 verbose #55070 > │ v39 │
00:09:43 verbose #55071 > │ #endif │
00:09:43 verbose #55072 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55073 > │ let v40 : string = $"%A{v35}" │
00:09:43 verbose #55074 > │ v40 │
00:09:43 verbose #55075 > │ #endif │
00:09:43 verbose #55076 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55077 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55078 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:43 verbose #55079 > │ v41 │
00:09:43 verbose #55080 > │ #endif │
00:09:43 verbose #55081 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55082 > │ let v42 : string = $"%A{v35}" │
00:09:43 verbose #55083 > │ v42 │
00:09:43 verbose #55084 > │ #endif │
00:09:43 verbose #55085 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55086 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55087 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:43 verbose #55088 > │ v43 │
00:09:43 verbose #55089 > │ #endif │
00:09:43 verbose #55090 > │ |> fun x -> _v36 <- Some x │
00:09:43 verbose #55091 > │ let v44 : string = _v36.Value │
00:09:43 verbose #55092 > │ let v45 : US0 = US0_0 │
00:09:43 verbose #55093 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:43 verbose #55094 > │ let v47 : (unit -> string) = closure1() │
00:09:43 verbose #55095 > │ method1(v45, v46, v47) │
00:09:43 verbose #55096 > │ return false │
00:09:43 verbose #55097 > │ (* │
00:09:43 verbose #55098 > │ let v48 : bool = *) │
00:09:43 verbose #55099 > │ } │
00:09:43 verbose #55100 > │ |> fun x -> _v16 <- Some x │
00:09:43 verbose #55101 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:43 verbose #55102 > │ v49 │
00:09:43 verbose #55103 > │ #endif │
00:09:43 verbose #55104 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55105 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55106 > │ v50 │
00:09:43 verbose #55107 > │ #endif │
00:09:43 verbose #55108 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55109 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55110 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:43 verbose #55111 > │ v51 │
00:09:43 verbose #55112 > │ #endif │
00:09:43 verbose #55113 > │ |> fun x -> _v11 <- Some x │
00:09:43 verbose #55114 > │ let v52 : Async<bool> = _v11.Value │
00:09:43 verbose #55115 > │ v52 │
00:09:43 verbose #55116 > │ | US3_0(v53) -> (* Some *) │
00:09:43 verbose #55117 > │ let v54 : Async<bool> option = None │
00:09:43 verbose #55118 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:43 verbose #55119 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55120 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55121 > │ v56 │
00:09:43 verbose #55122 > │ #endif │
00:09:43 verbose #55123 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55124 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55125 > │ v57 │
00:09:43 verbose #55126 > │ #endif │
00:09:43 verbose #55127 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55128 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55129 > │ v58 │
00:09:43 verbose #55130 > │ #endif │
00:09:43 verbose #55131 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55132 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55133 > │ let v59 : Async<bool> option = None │
00:09:43 verbose #55134 > │ let mutable _v59 = v59 │
00:09:43 verbose #55135 > │ async { │
00:09:43 verbose #55136 > │ let v60 : Async<bool> option = None │
00:09:43 verbose #55137 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:43 verbose #55138 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55139 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55140 > │ v62 │
00:09:43 verbose #55141 > │ #endif │
00:09:43 verbose #55142 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55143 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55144 > │ v63 │
00:09:43 verbose #55145 > │ #endif │
00:09:43 verbose #55146 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55147 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55148 > │ v64 │
00:09:43 verbose #55149 > │ #endif │
00:09:43 verbose #55150 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55151 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55152 > │ let v65 : Async<bool> option = None │
00:09:43 verbose #55153 > │ let mutable _v65 = v65 │
00:09:43 verbose #55154 > │ async { │
00:09:43 verbose #55155 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:43 verbose #55156 > │ Async.CancellationToken │
00:09:43 verbose #55157 > │ let! v66 = v66 │
00:09:43 verbose #55158 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:43 verbose #55159 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:43 verbose #55160 > │ System.Net.Sockets.TcpClient () │
00:09:43 verbose #55161 > │ use v68 = v68 │
00:09:43 verbose #55162 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:43 verbose #55163 > │ try │
00:09:43 verbose #55164 > │ let v70 : string = "127.0.0.1" │
00:09:43 verbose #55165 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:43 verbose #55166 > │ (v70, 5555, v67) │
00:09:43 verbose #55167 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:43 verbose #55168 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:43 verbose #55169 > │ let v74 : Async<unit> option = None │
00:09:43 verbose #55170 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:43 verbose #55171 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55172 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55173 > │ v76 │
00:09:43 verbose #55174 > │ #endif │
00:09:43 verbose #55175 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55176 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55177 > │ v77 │
00:09:43 verbose #55178 > │ #endif │
00:09:43 verbose #55179 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55180 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55181 > │ v78 │
00:09:43 verbose #55182 > │ #endif │
00:09:43 verbose #55183 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55184 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55185 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:43 verbose #55186 > │ Async.AwaitTask │
00:09:43 verbose #55187 > │ let v80 : Async<unit> = v79 v73 │
00:09:43 verbose #55188 > │ v80 │
00:09:43 verbose #55189 > │ #endif │
00:09:43 verbose #55190 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55191 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55192 > │ v81 │
00:09:43 verbose #55193 > │ #endif │
00:09:43 verbose #55194 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55195 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55196 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:43 verbose #55197 > │ v82 │
00:09:43 verbose #55198 > │ #endif │
00:09:43 verbose #55199 > │ |> fun x -> _v74 <- Some x │
00:09:43 verbose #55200 > │ let v83 : Async<unit> = _v74.Value │
00:09:43 verbose #55201 > │ do! v83 │
00:09:43 verbose #55202 > │ return true │
00:09:43 verbose #55203 > │ with ex -> │
00:09:43 verbose #55204 > │ let v84 : exn = ex │
00:09:43 verbose #55205 > │ let v85 : string option = None │
00:09:43 verbose #55206 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:43 verbose #55207 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55208 > │ let v87 : string = $"%A{v84}" │
00:09:43 verbose #55209 > │ v87 │
00:09:43 verbose #55210 > │ #endif │
00:09:43 verbose #55211 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55212 > │ let v88 : string = $"%A{v84}" │
00:09:43 verbose #55213 > │ v88 │
00:09:43 verbose #55214 > │ #endif │
00:09:43 verbose #55215 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55216 > │ let v89 : string = $"%A{v84}" │
00:09:43 verbose #55217 > │ v89 │
00:09:43 verbose #55218 > │ #endif │
00:09:43 verbose #55219 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55220 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55221 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:43 verbose #55222 > │ v90 │
00:09:43 verbose #55223 > │ #endif │
00:09:43 verbose #55224 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55225 > │ let v91 : string = $"%A{v84}" │
00:09:43 verbose #55226 > │ v91 │
00:09:43 verbose #55227 > │ #endif │
00:09:43 verbose #55228 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55229 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55230 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:43 verbose #55231 > │ v92 │
00:09:43 verbose #55232 > │ #endif │
00:09:43 verbose #55233 > │ |> fun x -> _v85 <- Some x │
00:09:43 verbose #55234 > │ let v93 : string = _v85.Value │
00:09:43 verbose #55235 > │ let v94 : US0 = US0_0 │
00:09:43 verbose #55236 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:43 verbose #55237 > │ let v96 : (unit -> string) = closure1() │
00:09:43 verbose #55238 > │ method1(v94, v95, v96) │
00:09:43 verbose #55239 > │ return false │
00:09:43 verbose #55240 > │ (* │
00:09:43 verbose #55241 > │ let v97 : bool = *) │
00:09:43 verbose #55242 > │ } │
00:09:43 verbose #55243 > │ |> fun x -> _v65 <- Some x │
00:09:43 verbose #55244 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:43 verbose #55245 > │ v98 │
00:09:43 verbose #55246 > │ #endif │
00:09:43 verbose #55247 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55248 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55249 > │ v99 │
00:09:43 verbose #55250 > │ #endif │
00:09:43 verbose #55251 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55252 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55253 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:43 verbose #55254 > │ v100 │
00:09:43 verbose #55255 > │ #endif │
00:09:43 verbose #55256 > │ |> fun x -> _v60 <- Some x │
00:09:43 verbose #55257 > │ let v101 : Async<bool> = _v60.Value │
00:09:43 verbose #55258 > │ let v102 : Async<US4> option = None │
00:09:43 verbose #55259 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:43 verbose #55260 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55261 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55262 > │ v104 │
00:09:43 verbose #55263 > │ #endif │
00:09:43 verbose #55264 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55265 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55266 > │ v105 │
00:09:43 verbose #55267 > │ #endif │
00:09:43 verbose #55268 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55269 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55270 > │ v106 │
00:09:43 verbose #55271 > │ #endif │
00:09:43 verbose #55272 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55273 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55274 > │ let v107 : Async<US4> option = None │
00:09:43 verbose #55275 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:43 verbose #55276 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55277 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55278 > │ v109 │
00:09:43 verbose #55279 > │ #endif │
00:09:43 verbose #55280 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55281 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55282 > │ v110 │
00:09:43 verbose #55283 > │ #endif │
00:09:43 verbose #55284 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55285 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55286 > │ v111 │
00:09:43 verbose #55287 > │ #endif │
00:09:43 verbose #55288 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55289 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55290 > │ let v112 : Async<US4> option = None │
00:09:43 verbose #55291 > │ let mutable _v112 = v112 │
00:09:43 verbose #55292 > │ async { │
00:09:43 verbose #55293 > │ let v113 : Async<Async<bool>> option = None │
00:09:43 verbose #55294 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:43 verbose #55295 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55296 > │ let v115 : Async<Async<bool>> = null |> │
00:09:43 verbose #55297 > │ unbox<Async<Async<bool>>> │
00:09:43 verbose #55298 > │ v115 │
00:09:43 verbose #55299 > │ #endif │
00:09:43 verbose #55300 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55301 > │ let v116 : Async<Async<bool>> = null |> │
00:09:43 verbose #55302 > │ unbox<Async<Async<bool>>> │
00:09:43 verbose #55303 > │ v116 │
00:09:43 verbose #55304 > │ #endif │
00:09:43 verbose #55305 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55306 > │ let v117 : Async<Async<bool>> = null |> │
00:09:43 verbose #55307 > │ unbox<Async<Async<bool>>> │
00:09:43 verbose #55308 > │ v117 │
00:09:43 verbose #55309 > │ #endif │
00:09:43 verbose #55310 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55311 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55312 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:43 verbose #55313 > │ v118 │
00:09:43 verbose #55314 > │ #endif │
00:09:43 verbose #55315 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55316 > │ let v119 : Async<Async<bool>> = null |> │
00:09:43 verbose #55317 > │ unbox<Async<Async<bool>>> │
00:09:43 verbose #55318 > │ v119 │
00:09:43 verbose #55319 > │ #endif │
00:09:43 verbose #55320 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55321 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55322 > │ let v120 : Async<Async<bool>> = │
00:09:43 verbose #55323 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:43 verbose #55324 > │ v120 │
00:09:43 verbose #55325 > │ #endif │
00:09:43 verbose #55326 > │ |> fun x -> _v113 <- Some x │
00:09:43 verbose #55327 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:43 verbose #55328 > │ let! v121 = v121 │
00:09:43 verbose #55329 > │ let v122 : Async<bool> = v121 │
00:09:43 verbose #55330 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:43 verbose #55331 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:43 verbose #55332 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55333 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:43 verbose #55334 > │ unbox<Async<Choice<bool, exn>>> │
00:09:43 verbose #55335 > │ v125 │
00:09:43 verbose #55336 > │ #endif │
00:09:43 verbose #55337 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55338 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:43 verbose #55339 > │ unbox<Async<Choice<bool, exn>>> │
00:09:43 verbose #55340 > │ v126 │
00:09:43 verbose #55341 > │ #endif │
00:09:43 verbose #55342 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55343 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:43 verbose #55344 > │ unbox<Async<Choice<bool, exn>>> │
00:09:43 verbose #55345 > │ v127 │
00:09:43 verbose #55346 > │ #endif │
00:09:43 verbose #55347 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55348 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55349 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:43 verbose #55350 > │ Async.Catch │
00:09:43 verbose #55351 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:43 verbose #55352 > │ v129 │
00:09:43 verbose #55353 > │ #endif │
00:09:43 verbose #55354 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55355 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:43 verbose #55356 > │ unbox<Async<Choice<bool, exn>>> │
00:09:43 verbose #55357 > │ v130 │
00:09:43 verbose #55358 > │ #endif │
00:09:43 verbose #55359 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55360 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55361 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:43 verbose #55362 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:43 verbose #55363 > │ v131 │
00:09:43 verbose #55364 > │ #endif │
00:09:43 verbose #55365 > │ |> fun x -> _v123 <- Some x │
00:09:43 verbose #55366 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:43 verbose #55367 > │ let v133 : Async<US5> option = None │
00:09:43 verbose #55368 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:43 verbose #55369 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55370 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:43 verbose #55371 > │ v135 │
00:09:43 verbose #55372 > │ #endif │
00:09:43 verbose #55373 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55374 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:43 verbose #55375 > │ v136 │
00:09:43 verbose #55376 > │ #endif │
00:09:43 verbose #55377 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55378 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:43 verbose #55379 > │ v137 │
00:09:43 verbose #55380 > │ #endif │
00:09:43 verbose #55381 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55382 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55383 > │ let v138 : Async<US5> option = None │
00:09:43 verbose #55384 > │ let mutable _v138 = v138 │
00:09:43 verbose #55385 > │ async { │
00:09:43 verbose #55386 > │ let! v132 = v132 │
00:09:43 verbose #55387 > │ let v139 : Choice<bool, exn> = v132 │
00:09:43 verbose #55388 > │ let v140 : US5 option = None │
00:09:43 verbose #55389 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:43 verbose #55390 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55391 > │ let v142 : US5 = null |> unbox<US5> │
00:09:43 verbose #55392 > │ v142 │
00:09:43 verbose #55393 > │ #endif │
00:09:43 verbose #55394 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55395 > │ let v143 : US5 = null |> unbox<US5> │
00:09:43 verbose #55396 > │ v143 │
00:09:43 verbose #55397 > │ #endif │
00:09:43 verbose #55398 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55399 > │ let v144 : US5 = null |> unbox<US5> │
00:09:43 verbose #55400 > │ v144 │
00:09:43 verbose #55401 > │ #endif │
00:09:43 verbose #55402 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55403 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55404 > │ let v145 : (bool -> US5) = closure15() │
00:09:43 verbose #55405 > │ let v146 : (exn -> US5) = closure16() │
00:09:43 verbose #55406 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:43 verbose #55407 > │ Choice2Of2 x -> v146 x │
00:09:43 verbose #55408 > │ v147 │
00:09:43 verbose #55409 > │ #endif │
00:09:43 verbose #55410 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55411 > │ let v148 : US5 = null |> unbox<US5> │
00:09:43 verbose #55412 > │ v148 │
00:09:43 verbose #55413 > │ #endif │
00:09:43 verbose #55414 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55415 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55416 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:43 verbose #55417 > │ v149 │
00:09:43 verbose #55418 > │ #endif │
00:09:43 verbose #55419 > │ |> fun x -> _v140 <- Some x │
00:09:43 verbose #55420 > │ let v150 : US5 = _v140.Value │
00:09:43 verbose #55421 > │ return v150 │
00:09:43 verbose #55422 > │ } │
00:09:43 verbose #55423 > │ |> fun x -> _v138 <- Some x │
00:09:43 verbose #55424 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:43 verbose #55425 > │ v151 │
00:09:43 verbose #55426 > │ #endif │
00:09:43 verbose #55427 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55428 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:43 verbose #55429 > │ v152 │
00:09:43 verbose #55430 > │ #endif │
00:09:43 verbose #55431 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55432 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55433 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:43 verbose #55434 > │ v153 │
00:09:43 verbose #55435 > │ #endif │
00:09:43 verbose #55436 > │ |> fun x -> _v133 <- Some x │
00:09:43 verbose #55437 > │ let v154 : Async<US5> = _v133.Value │
00:09:43 verbose #55438 > │ let v155 : Async<US6> option = None │
00:09:43 verbose #55439 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:43 verbose #55440 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55441 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:43 verbose #55442 > │ v157 │
00:09:43 verbose #55443 > │ #endif │
00:09:43 verbose #55444 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55445 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:43 verbose #55446 > │ v158 │
00:09:43 verbose #55447 > │ #endif │
00:09:43 verbose #55448 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55449 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:43 verbose #55450 > │ v159 │
00:09:43 verbose #55451 > │ #endif │
00:09:43 verbose #55452 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55453 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55454 > │ let v160 : Async<US6> option = None │
00:09:43 verbose #55455 > │ let mutable _v160 = v160 │
00:09:43 verbose #55456 > │ async { │
00:09:43 verbose #55457 > │ let! v154 = v154 │
00:09:43 verbose #55458 > │ let v161 : US5 = v154 │
00:09:43 verbose #55459 > │ let v167 : US6 = │
00:09:43 verbose #55460 > │ match v161 with │
00:09:43 verbose #55461 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:43 verbose #55462 > │ US6_0(v162) │
00:09:43 verbose #55463 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:43 verbose #55464 > │ US6_1(v164) │
00:09:43 verbose #55465 > │ return v167 │
00:09:43 verbose #55466 > │ } │
00:09:43 verbose #55467 > │ |> fun x -> _v160 <- Some x │
00:09:43 verbose #55468 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:43 verbose #55469 > │ v168 │
00:09:43 verbose #55470 > │ #endif │
00:09:43 verbose #55471 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55472 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:43 verbose #55473 > │ v169 │
00:09:43 verbose #55474 > │ #endif │
00:09:43 verbose #55475 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55476 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55477 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:43 verbose #55478 > │ v170 │
00:09:43 verbose #55479 > │ #endif │
00:09:43 verbose #55480 > │ |> fun x -> _v155 <- Some x │
00:09:43 verbose #55481 > │ let v171 : Async<US6> = _v155.Value │
00:09:43 verbose #55482 > │ let v172 : Async<US4> option = None │
00:09:43 verbose #55483 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:43 verbose #55484 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55485 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55486 > │ v174 │
00:09:43 verbose #55487 > │ #endif │
00:09:43 verbose #55488 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55489 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55490 > │ v175 │
00:09:43 verbose #55491 > │ #endif │
00:09:43 verbose #55492 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55493 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55494 > │ v176 │
00:09:43 verbose #55495 > │ #endif │
00:09:43 verbose #55496 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55497 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55498 > │ let v177 : Async<US4> option = None │
00:09:43 verbose #55499 > │ let mutable _v177 = v177 │
00:09:43 verbose #55500 > │ async { │
00:09:43 verbose #55501 > │ let! v171 = v171 │
00:09:43 verbose #55502 > │ let v178 : US6 = v171 │
00:09:43 verbose #55503 > │ let v204 : US4 = │
00:09:43 verbose #55504 > │ match v178 with │
00:09:43 verbose #55505 > │ | US6_1(v181) -> (* Error *) │
00:09:43 verbose #55506 > │ let v182 : string = $"%A{v181}" │
00:09:43 verbose #55507 > │ let v183 : string = "System.TimeoutException" │
00:09:43 verbose #55508 > │ let v184 : bool = v182.Contains v183 │
00:09:43 verbose #55509 > │ if v184 then │
00:09:43 verbose #55510 > │ let v185 : US0 = US0_1 │
00:09:43 verbose #55511 > │ let v186 : (unit -> string) = closure17() │
00:09:43 verbose #55512 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:43 verbose #55513 > │ method1(v185, v186, v187) │
00:09:43 verbose #55514 > │ US4_1 │
00:09:43 verbose #55515 > │ else │
00:09:43 verbose #55516 > │ let v189 : string option = None │
00:09:43 verbose #55517 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:43 verbose #55518 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55519 > │ let v191 : string = $"%A{v181}" │
00:09:43 verbose #55520 > │ v191 │
00:09:43 verbose #55521 > │ #endif │
00:09:43 verbose #55522 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55523 > │ let v192 : string = $"%A{v181}" │
00:09:43 verbose #55524 > │ v192 │
00:09:43 verbose #55525 > │ #endif │
00:09:43 verbose #55526 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55527 > │ let v193 : string = $"%A{v181}" │
00:09:43 verbose #55528 > │ v193 │
00:09:43 verbose #55529 > │ #endif │
00:09:43 verbose #55530 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55531 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55532 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:43 verbose #55533 > │ {v181.Message}" │
00:09:43 verbose #55534 > │ v194 │
00:09:43 verbose #55535 > │ #endif │
00:09:43 verbose #55536 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55537 > │ let v195 : string = $"%A{v181}" │
00:09:43 verbose #55538 > │ v195 │
00:09:43 verbose #55539 > │ #endif │
00:09:43 verbose #55540 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55541 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55542 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:43 verbose #55543 > │ v196 │
00:09:43 verbose #55544 > │ #endif │
00:09:43 verbose #55545 > │ |> fun x -> _v189 <- Some x │
00:09:43 verbose #55546 > │ let v197 : string = _v189.Value │
00:09:43 verbose #55547 > │ let v198 : US0 = US0_4 │
00:09:43 verbose #55548 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:43 verbose #55549 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:43 verbose #55550 > │ method1(v198, v199, v200) │
00:09:43 verbose #55551 > │ US4_1 │
00:09:43 verbose #55552 > │ | US6_0(v179) -> (* Ok *) │
00:09:43 verbose #55553 > │ US4_0(v179) │
00:09:43 verbose #55554 > │ return v204 │
00:09:43 verbose #55555 > │ } │
00:09:43 verbose #55556 > │ |> fun x -> _v177 <- Some x │
00:09:43 verbose #55557 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:43 verbose #55558 > │ v205 │
00:09:43 verbose #55559 > │ #endif │
00:09:43 verbose #55560 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55561 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55562 > │ v206 │
00:09:43 verbose #55563 > │ #endif │
00:09:43 verbose #55564 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55565 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55566 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:43 verbose #55567 > │ v207 │
00:09:43 verbose #55568 > │ #endif │
00:09:43 verbose #55569 > │ |> fun x -> _v172 <- Some x │
00:09:43 verbose #55570 > │ let v208 : Async<US4> = _v172.Value │
00:09:43 verbose #55571 > │ return! v208 │
00:09:43 verbose #55572 > │ } │
00:09:43 verbose #55573 > │ |> fun x -> _v112 <- Some x │
00:09:43 verbose #55574 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:43 verbose #55575 > │ v209 │
00:09:43 verbose #55576 > │ #endif │
00:09:43 verbose #55577 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55578 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55579 > │ v210 │
00:09:43 verbose #55580 > │ #endif │
00:09:43 verbose #55581 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55582 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55583 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:43 verbose #55584 > │ v211 │
00:09:43 verbose #55585 > │ #endif │
00:09:43 verbose #55586 > │ |> fun x -> _v107 <- Some x │
00:09:43 verbose #55587 > │ let v212 : Async<US4> = _v107.Value │
00:09:43 verbose #55588 > │ v212 │
00:09:43 verbose #55589 > │ #endif │
00:09:43 verbose #55590 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55591 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:43 verbose #55592 > │ v213 │
00:09:43 verbose #55593 > │ #endif │
00:09:43 verbose #55594 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55595 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55596 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:43 verbose #55597 > │ v214 │
00:09:43 verbose #55598 > │ #endif │
00:09:43 verbose #55599 > │ |> fun x -> _v102 <- Some x │
00:09:43 verbose #55600 > │ let v215 : Async<US4> = _v102.Value │
00:09:43 verbose #55601 > │ let! v215 = v215 │
00:09:43 verbose #55602 > │ let v216 : US4 = v215 │
00:09:43 verbose #55603 > │ let v219 : bool = │
00:09:43 verbose #55604 > │ match v216 with │
00:09:43 verbose #55605 > │ | US4_1 -> (* None *) │
00:09:43 verbose #55606 > │ false │
00:09:43 verbose #55607 > │ | US4_0(v217) -> (* Some *) │
00:09:43 verbose #55608 > │ v217 │
00:09:43 verbose #55609 > │ return v219 │
00:09:43 verbose #55610 > │ } │
00:09:43 verbose #55611 > │ |> fun x -> _v59 <- Some x │
00:09:43 verbose #55612 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:43 verbose #55613 > │ v220 │
00:09:43 verbose #55614 > │ #endif │
00:09:43 verbose #55615 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55616 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55617 > │ v221 │
00:09:43 verbose #55618 > │ #endif │
00:09:43 verbose #55619 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55620 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55621 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:43 verbose #55622 > │ v222 │
00:09:43 verbose #55623 > │ #endif │
00:09:43 verbose #55624 > │ |> fun x -> _v54 <- Some x │
00:09:43 verbose #55625 > │ let v223 : Async<bool> = _v54.Value │
00:09:43 verbose #55626 > │ v223 │
00:09:43 verbose #55627 > │ let! v225 = v225 │
00:09:43 verbose #55628 > │ let v226 : bool = v225 │
00:09:43 verbose #55629 > │ if v226 then │
00:09:43 verbose #55630 > │ return v1 │
00:09:43 verbose #55631 > │ (* │
00:09:43 verbose #55632 > │ () │
00:09:43 verbose #55633 > │ else │
00:09:43 verbose #55634 > │ *) else │
00:09:43 verbose #55635 > │ let v227 : int64 = v1 % 100L │
00:09:43 verbose #55636 > │ let v228 : bool = v227 = 0L │
00:09:43 verbose #55637 > │ if v228 then │
00:09:43 verbose #55638 > │ let v229 : US0 = US0_0 │
00:09:43 verbose #55639 > │ let v230 : (unit -> string) = closure20() │
00:09:43 verbose #55640 > │ let v231 : (unit -> string) = closure21(v1) │
00:09:43 verbose #55641 > │ method1(v229, v230, v231) │
00:09:43 verbose #55642 > │ let v232 : Async<unit> option = None │
00:09:43 verbose #55643 > │ let v233 : bool = true in let mutable _v232 = v232 │
00:09:43 verbose #55644 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55645 > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55646 > │ v234 │
00:09:43 verbose #55647 > │ #endif │
00:09:43 verbose #55648 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55649 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55650 > │ v235 │
00:09:43 verbose #55651 > │ #endif │
00:09:43 verbose #55652 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55653 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55654 > │ v236 │
00:09:43 verbose #55655 > │ #endif │
00:09:43 verbose #55656 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55657 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55658 > │ let v237 : (int32 -> Async<unit>) = Async.Sleep │
00:09:43 verbose #55659 > │ let v238 : Async<unit> = v237 10 │
00:09:43 verbose #55660 > │ v238 │
00:09:43 verbose #55661 > │ #endif │
00:09:43 verbose #55662 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55663 > │ let v239 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55664 > │ v239 │
00:09:43 verbose #55665 > │ #endif │
00:09:43 verbose #55666 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55667 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55668 > │ let v240 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:43 verbose #55669 > │ v240 │
00:09:43 verbose #55670 > │ #endif │
00:09:43 verbose #55671 > │ |> fun x -> _v232 <- Some x │
00:09:43 verbose #55672 > │ let v241 : Async<unit> = _v232.Value │
00:09:43 verbose #55673 > │ do! v241 │
00:09:43 verbose #55674 > │ let v242 : int64 = v1 + 1L │
00:09:43 verbose #55675 > │ let v243 : Async<int64> = method7(v0, v242) │
00:09:43 verbose #55676 > │ return! v243 │
00:09:43 verbose #55677 > │ (* │
00:09:43 verbose #55678 > │ () │
00:09:43 verbose #55679 > │ *) │
00:09:43 verbose #55680 > │ } │
00:09:43 verbose #55681 > │ |> fun x -> _v7 <- Some x │
00:09:43 verbose #55682 > │ let v244 : Async<int64> = _v7 |> Option.get │
00:09:43 verbose #55683 > │ v244 │
00:09:43 verbose #55684 > │ #endif │
00:09:43 verbose #55685 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55686 > │ let v245 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #55687 > │ v245 │
00:09:43 verbose #55688 > │ #endif │
00:09:43 verbose #55689 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:43 verbose #55690 > │ let v246 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:43 verbose #55691 > │ v246 │
00:09:43 verbose #55692 > │ #endif │
00:09:43 verbose #55693 > │ |> fun x -> _v2 <- Some x │
00:09:43 verbose #55694 > │ let v247 : Async<int64> = _v2.Value │
00:09:43 verbose #55695 > │ v247 │
00:09:43 verbose #55696 > │ and closure22 () () : string = │
00:09:43 verbose #55697 > │ let v0 : string = "4" │
00:09:43 verbose #55698 > │ v0 │
00:09:43 verbose #55699 > │ and method9 (v0 : int32 option, v1 : int64) : Async<int64> = │
00:09:43 verbose #55700 > │ let v2 : Async<int64> option = None │
00:09:43 verbose #55701 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:43 verbose #55702 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55703 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #55704 > │ v4 │
00:09:43 verbose #55705 > │ #endif │
00:09:43 verbose #55706 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55707 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #55708 > │ v5 │
00:09:43 verbose #55709 > │ #endif │
00:09:43 verbose #55710 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55711 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:43 verbose #55712 > │ v6 │
00:09:43 verbose #55713 > │ #endif │
00:09:43 verbose #55714 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55715 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55716 > │ let v7 : Async<int64> option = None │
00:09:43 verbose #55717 > │ let mutable _v7 = v7 │
00:09:43 verbose #55718 > │ async { │
00:09:43 verbose #55719 > │ let v8 : (int32 -> US3) = method8() │
00:09:43 verbose #55720 > │ let v9 : US3 = US3_1 │
00:09:43 verbose #55721 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:43 verbose #55722 > │ let v225 : Async<bool> = │
00:09:43 verbose #55723 > │ match v10 with │
00:09:43 verbose #55724 > │ | US3_1 -> (* None *) │
00:09:43 verbose #55725 > │ let v11 : Async<bool> option = None │
00:09:43 verbose #55726 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:43 verbose #55727 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55728 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55729 > │ v13 │
00:09:43 verbose #55730 > │ #endif │
00:09:43 verbose #55731 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55732 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55733 > │ v14 │
00:09:43 verbose #55734 > │ #endif │
00:09:43 verbose #55735 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55736 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55737 > │ v15 │
00:09:43 verbose #55738 > │ #endif │
00:09:43 verbose #55739 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55740 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55741 > │ let v16 : Async<bool> option = None │
00:09:43 verbose #55742 > │ let mutable _v16 = v16 │
00:09:43 verbose #55743 > │ async { │
00:09:43 verbose #55744 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:43 verbose #55745 > │ Async.CancellationToken │
00:09:43 verbose #55746 > │ let! v17 = v17 │
00:09:43 verbose #55747 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:43 verbose #55748 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:43 verbose #55749 > │ System.Net.Sockets.TcpClient () │
00:09:43 verbose #55750 > │ use v19 = v19 │
00:09:43 verbose #55751 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:43 verbose #55752 > │ try │
00:09:43 verbose #55753 > │ let v21 : string = "127.0.0.1" │
00:09:43 verbose #55754 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:43 verbose #55755 > │ (v21, 5555, v18) │
00:09:43 verbose #55756 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:43 verbose #55757 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:43 verbose #55758 > │ let v25 : Async<unit> option = None │
00:09:43 verbose #55759 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:43 verbose #55760 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55761 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55762 > │ v27 │
00:09:43 verbose #55763 > │ #endif │
00:09:43 verbose #55764 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55765 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55766 > │ v28 │
00:09:43 verbose #55767 > │ #endif │
00:09:43 verbose #55768 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55769 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55770 > │ v29 │
00:09:43 verbose #55771 > │ #endif │
00:09:43 verbose #55772 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55773 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55774 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:43 verbose #55775 > │ Async.AwaitTask │
00:09:43 verbose #55776 > │ let v31 : Async<unit> = v30 v24 │
00:09:43 verbose #55777 > │ v31 │
00:09:43 verbose #55778 > │ #endif │
00:09:43 verbose #55779 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55780 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:43 verbose #55781 > │ v32 │
00:09:43 verbose #55782 > │ #endif │
00:09:43 verbose #55783 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55784 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55785 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:43 verbose #55786 > │ v33 │
00:09:43 verbose #55787 > │ #endif │
00:09:43 verbose #55788 > │ |> fun x -> _v25 <- Some x │
00:09:43 verbose #55789 > │ let v34 : Async<unit> = _v25.Value │
00:09:43 verbose #55790 > │ do! v34 │
00:09:43 verbose #55791 > │ return true │
00:09:43 verbose #55792 > │ with ex -> │
00:09:43 verbose #55793 > │ let v35 : exn = ex │
00:09:43 verbose #55794 > │ let v36 : string option = None │
00:09:43 verbose #55795 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:43 verbose #55796 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55797 > │ let v38 : string = $"%A{v35}" │
00:09:43 verbose #55798 > │ v38 │
00:09:43 verbose #55799 > │ #endif │
00:09:43 verbose #55800 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55801 > │ let v39 : string = $"%A{v35}" │
00:09:43 verbose #55802 > │ v39 │
00:09:43 verbose #55803 > │ #endif │
00:09:43 verbose #55804 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55805 > │ let v40 : string = $"%A{v35}" │
00:09:43 verbose #55806 > │ v40 │
00:09:43 verbose #55807 > │ #endif │
00:09:43 verbose #55808 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55809 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55810 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:43 verbose #55811 > │ v41 │
00:09:43 verbose #55812 > │ #endif │
00:09:43 verbose #55813 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55814 > │ let v42 : string = $"%A{v35}" │
00:09:43 verbose #55815 > │ v42 │
00:09:43 verbose #55816 > │ #endif │
00:09:43 verbose #55817 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55818 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55819 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:43 verbose #55820 > │ v43 │
00:09:43 verbose #55821 > │ #endif │
00:09:43 verbose #55822 > │ |> fun x -> _v36 <- Some x │
00:09:43 verbose #55823 > │ let v44 : string = _v36.Value │
00:09:43 verbose #55824 > │ let v45 : US0 = US0_0 │
00:09:43 verbose #55825 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:43 verbose #55826 > │ let v47 : (unit -> string) = closure1() │
00:09:43 verbose #55827 > │ method1(v45, v46, v47) │
00:09:43 verbose #55828 > │ return false │
00:09:43 verbose #55829 > │ (* │
00:09:43 verbose #55830 > │ let v48 : bool = *) │
00:09:43 verbose #55831 > │ } │
00:09:43 verbose #55832 > │ |> fun x -> _v16 <- Some x │
00:09:43 verbose #55833 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:43 verbose #55834 > │ v49 │
00:09:43 verbose #55835 > │ #endif │
00:09:43 verbose #55836 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:43 verbose #55837 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55838 > │ v50 │
00:09:43 verbose #55839 > │ #endif │
00:09:43 verbose #55840 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:43 verbose #55841 > │ FABLE_COMPILER_DART │
00:09:43 verbose #55842 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:43 verbose #55843 > │ v51 │
00:09:43 verbose #55844 > │ #endif │
00:09:43 verbose #55845 > │ |> fun x -> _v11 <- Some x │
00:09:43 verbose #55846 > │ let v52 : Async<bool> = _v11.Value │
00:09:43 verbose #55847 > │ v52 │
00:09:43 verbose #55848 > │ | US3_0(v53) -> (* Some *) │
00:09:43 verbose #55849 > │ let v54 : Async<bool> option = None │
00:09:43 verbose #55850 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:43 verbose #55851 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55852 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55853 > │ v56 │
00:09:43 verbose #55854 > │ #endif │
00:09:43 verbose #55855 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55856 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55857 > │ v57 │
00:09:43 verbose #55858 > │ #endif │
00:09:43 verbose #55859 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55860 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55861 > │ v58 │
00:09:43 verbose #55862 > │ #endif │
00:09:43 verbose #55863 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55864 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55865 > │ let v59 : Async<bool> option = None │
00:09:43 verbose #55866 > │ let mutable _v59 = v59 │
00:09:43 verbose #55867 > │ async { │
00:09:43 verbose #55868 > │ let v60 : Async<bool> option = None │
00:09:43 verbose #55869 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:43 verbose #55870 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:43 verbose #55871 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55872 > │ v62 │
00:09:43 verbose #55873 > │ #endif │
00:09:43 verbose #55874 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:43 verbose #55875 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55876 > │ v63 │
00:09:43 verbose #55877 > │ #endif │
00:09:43 verbose #55878 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:43 verbose #55879 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:43 verbose #55880 > │ v64 │
00:09:43 verbose #55881 > │ #endif │
00:09:43 verbose #55882 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:43 verbose #55883 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:43 verbose #55884 > │ let v65 : Async<bool> option = None │
00:09:43 verbose #55885 > │ let mutable _v65 = v65 │
00:09:43 verbose #55886 > │ async { │
00:09:43 verbose #55887 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:43 verbose #55888 > │ Async.CancellationToken │
00:09:44 verbose #55889 > │ let! v66 = v66 │
00:09:44 verbose #55890 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:44 verbose #55891 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:44 verbose #55892 > │ System.Net.Sockets.TcpClient () │
00:09:44 verbose #55893 > │ use v68 = v68 │
00:09:44 verbose #55894 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:44 verbose #55895 > │ try │
00:09:44 verbose #55896 > │ let v70 : string = "127.0.0.1" │
00:09:44 verbose #55897 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:44 verbose #55898 > │ (v70, 5555, v67) │
00:09:44 verbose #55899 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:44 verbose #55900 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:44 verbose #55901 > │ let v74 : Async<unit> option = None │
00:09:44 verbose #55902 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:44 verbose #55903 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #55904 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #55905 > │ v76 │
00:09:44 verbose #55906 > │ #endif │
00:09:44 verbose #55907 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #55908 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #55909 > │ v77 │
00:09:44 verbose #55910 > │ #endif │
00:09:44 verbose #55911 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #55912 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #55913 > │ v78 │
00:09:44 verbose #55914 > │ #endif │
00:09:44 verbose #55915 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #55916 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #55917 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:44 verbose #55918 > │ Async.AwaitTask │
00:09:44 verbose #55919 > │ let v80 : Async<unit> = v79 v73 │
00:09:44 verbose #55920 > │ v80 │
00:09:44 verbose #55921 > │ #endif │
00:09:44 verbose #55922 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #55923 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #55924 > │ v81 │
00:09:44 verbose #55925 > │ #endif │
00:09:44 verbose #55926 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #55927 > │ FABLE_COMPILER_DART │
00:09:44 verbose #55928 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:44 verbose #55929 > │ v82 │
00:09:44 verbose #55930 > │ #endif │
00:09:44 verbose #55931 > │ |> fun x -> _v74 <- Some x │
00:09:44 verbose #55932 > │ let v83 : Async<unit> = _v74.Value │
00:09:44 verbose #55933 > │ do! v83 │
00:09:44 verbose #55934 > │ return true │
00:09:44 verbose #55935 > │ with ex -> │
00:09:44 verbose #55936 > │ let v84 : exn = ex │
00:09:44 verbose #55937 > │ let v85 : string option = None │
00:09:44 verbose #55938 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:44 verbose #55939 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #55940 > │ let v87 : string = $"%A{v84}" │
00:09:44 verbose #55941 > │ v87 │
00:09:44 verbose #55942 > │ #endif │
00:09:44 verbose #55943 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #55944 > │ let v88 : string = $"%A{v84}" │
00:09:44 verbose #55945 > │ v88 │
00:09:44 verbose #55946 > │ #endif │
00:09:44 verbose #55947 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #55948 > │ let v89 : string = $"%A{v84}" │
00:09:44 verbose #55949 > │ v89 │
00:09:44 verbose #55950 > │ #endif │
00:09:44 verbose #55951 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #55952 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #55953 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:44 verbose #55954 > │ v90 │
00:09:44 verbose #55955 > │ #endif │
00:09:44 verbose #55956 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #55957 > │ let v91 : string = $"%A{v84}" │
00:09:44 verbose #55958 > │ v91 │
00:09:44 verbose #55959 > │ #endif │
00:09:44 verbose #55960 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #55961 > │ FABLE_COMPILER_DART │
00:09:44 verbose #55962 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:44 verbose #55963 > │ v92 │
00:09:44 verbose #55964 > │ #endif │
00:09:44 verbose #55965 > │ |> fun x -> _v85 <- Some x │
00:09:44 verbose #55966 > │ let v93 : string = _v85.Value │
00:09:44 verbose #55967 > │ let v94 : US0 = US0_0 │
00:09:44 verbose #55968 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:44 verbose #55969 > │ let v96 : (unit -> string) = closure1() │
00:09:44 verbose #55970 > │ method1(v94, v95, v96) │
00:09:44 verbose #55971 > │ return false │
00:09:44 verbose #55972 > │ (* │
00:09:44 verbose #55973 > │ let v97 : bool = *) │
00:09:44 verbose #55974 > │ } │
00:09:44 verbose #55975 > │ |> fun x -> _v65 <- Some x │
00:09:44 verbose #55976 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:44 verbose #55977 > │ v98 │
00:09:44 verbose #55978 > │ #endif │
00:09:44 verbose #55979 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #55980 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:44 verbose #55981 > │ v99 │
00:09:44 verbose #55982 > │ #endif │
00:09:44 verbose #55983 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #55984 > │ FABLE_COMPILER_DART │
00:09:44 verbose #55985 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:44 verbose #55986 > │ v100 │
00:09:44 verbose #55987 > │ #endif │
00:09:44 verbose #55988 > │ |> fun x -> _v60 <- Some x │
00:09:44 verbose #55989 > │ let v101 : Async<bool> = _v60.Value │
00:09:44 verbose #55990 > │ let v102 : Async<US4> option = None │
00:09:44 verbose #55991 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:44 verbose #55992 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #55993 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #55994 > │ v104 │
00:09:44 verbose #55995 > │ #endif │
00:09:44 verbose #55996 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #55997 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #55998 > │ v105 │
00:09:44 verbose #55999 > │ #endif │
00:09:44 verbose #56000 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56001 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56002 > │ v106 │
00:09:44 verbose #56003 > │ #endif │
00:09:44 verbose #56004 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56005 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56006 > │ let v107 : Async<US4> option = None │
00:09:44 verbose #56007 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:44 verbose #56008 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56009 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56010 > │ v109 │
00:09:44 verbose #56011 > │ #endif │
00:09:44 verbose #56012 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56013 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56014 > │ v110 │
00:09:44 verbose #56015 > │ #endif │
00:09:44 verbose #56016 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56017 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56018 > │ v111 │
00:09:44 verbose #56019 > │ #endif │
00:09:44 verbose #56020 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56021 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56022 > │ let v112 : Async<US4> option = None │
00:09:44 verbose #56023 > │ let mutable _v112 = v112 │
00:09:44 verbose #56024 > │ async { │
00:09:44 verbose #56025 > │ let v113 : Async<Async<bool>> option = None │
00:09:44 verbose #56026 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:44 verbose #56027 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56028 > │ let v115 : Async<Async<bool>> = null |> │
00:09:44 verbose #56029 > │ unbox<Async<Async<bool>>> │
00:09:44 verbose #56030 > │ v115 │
00:09:44 verbose #56031 > │ #endif │
00:09:44 verbose #56032 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56033 > │ let v116 : Async<Async<bool>> = null |> │
00:09:44 verbose #56034 > │ unbox<Async<Async<bool>>> │
00:09:44 verbose #56035 > │ v116 │
00:09:44 verbose #56036 > │ #endif │
00:09:44 verbose #56037 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56038 > │ let v117 : Async<Async<bool>> = null |> │
00:09:44 verbose #56039 > │ unbox<Async<Async<bool>>> │
00:09:44 verbose #56040 > │ v117 │
00:09:44 verbose #56041 > │ #endif │
00:09:44 verbose #56042 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56043 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56044 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:44 verbose #56045 > │ v118 │
00:09:44 verbose #56046 > │ #endif │
00:09:44 verbose #56047 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56048 > │ let v119 : Async<Async<bool>> = null |> │
00:09:44 verbose #56049 > │ unbox<Async<Async<bool>>> │
00:09:44 verbose #56050 > │ v119 │
00:09:44 verbose #56051 > │ #endif │
00:09:44 verbose #56052 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56053 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56054 > │ let v120 : Async<Async<bool>> = │
00:09:44 verbose #56055 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:44 verbose #56056 > │ v120 │
00:09:44 verbose #56057 > │ #endif │
00:09:44 verbose #56058 > │ |> fun x -> _v113 <- Some x │
00:09:44 verbose #56059 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:44 verbose #56060 > │ let! v121 = v121 │
00:09:44 verbose #56061 > │ let v122 : Async<bool> = v121 │
00:09:44 verbose #56062 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:44 verbose #56063 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:44 verbose #56064 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56065 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:44 verbose #56066 > │ unbox<Async<Choice<bool, exn>>> │
00:09:44 verbose #56067 > │ v125 │
00:09:44 verbose #56068 > │ #endif │
00:09:44 verbose #56069 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56070 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:44 verbose #56071 > │ unbox<Async<Choice<bool, exn>>> │
00:09:44 verbose #56072 > │ v126 │
00:09:44 verbose #56073 > │ #endif │
00:09:44 verbose #56074 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56075 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:44 verbose #56076 > │ unbox<Async<Choice<bool, exn>>> │
00:09:44 verbose #56077 > │ v127 │
00:09:44 verbose #56078 > │ #endif │
00:09:44 verbose #56079 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56080 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56081 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:44 verbose #56082 > │ Async.Catch │
00:09:44 verbose #56083 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:44 verbose #56084 > │ v129 │
00:09:44 verbose #56085 > │ #endif │
00:09:44 verbose #56086 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56087 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:44 verbose #56088 > │ unbox<Async<Choice<bool, exn>>> │
00:09:44 verbose #56089 > │ v130 │
00:09:44 verbose #56090 > │ #endif │
00:09:44 verbose #56091 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56092 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56093 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:44 verbose #56094 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:44 verbose #56095 > │ v131 │
00:09:44 verbose #56096 > │ #endif │
00:09:44 verbose #56097 > │ |> fun x -> _v123 <- Some x │
00:09:44 verbose #56098 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:44 verbose #56099 > │ let v133 : Async<US5> option = None │
00:09:44 verbose #56100 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:44 verbose #56101 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56102 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:44 verbose #56103 > │ v135 │
00:09:44 verbose #56104 > │ #endif │
00:09:44 verbose #56105 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56106 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:44 verbose #56107 > │ v136 │
00:09:44 verbose #56108 > │ #endif │
00:09:44 verbose #56109 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56110 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:44 verbose #56111 > │ v137 │
00:09:44 verbose #56112 > │ #endif │
00:09:44 verbose #56113 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56114 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56115 > │ let v138 : Async<US5> option = None │
00:09:44 verbose #56116 > │ let mutable _v138 = v138 │
00:09:44 verbose #56117 > │ async { │
00:09:44 verbose #56118 > │ let! v132 = v132 │
00:09:44 verbose #56119 > │ let v139 : Choice<bool, exn> = v132 │
00:09:44 verbose #56120 > │ let v140 : US5 option = None │
00:09:44 verbose #56121 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:44 verbose #56122 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56123 > │ let v142 : US5 = null |> unbox<US5> │
00:09:44 verbose #56124 > │ v142 │
00:09:44 verbose #56125 > │ #endif │
00:09:44 verbose #56126 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56127 > │ let v143 : US5 = null |> unbox<US5> │
00:09:44 verbose #56128 > │ v143 │
00:09:44 verbose #56129 > │ #endif │
00:09:44 verbose #56130 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56131 > │ let v144 : US5 = null |> unbox<US5> │
00:09:44 verbose #56132 > │ v144 │
00:09:44 verbose #56133 > │ #endif │
00:09:44 verbose #56134 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56135 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56136 > │ let v145 : (bool -> US5) = closure15() │
00:09:44 verbose #56137 > │ let v146 : (exn -> US5) = closure16() │
00:09:44 verbose #56138 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:44 verbose #56139 > │ Choice2Of2 x -> v146 x │
00:09:44 verbose #56140 > │ v147 │
00:09:44 verbose #56141 > │ #endif │
00:09:44 verbose #56142 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56143 > │ let v148 : US5 = null |> unbox<US5> │
00:09:44 verbose #56144 > │ v148 │
00:09:44 verbose #56145 > │ #endif │
00:09:44 verbose #56146 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56147 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56148 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:44 verbose #56149 > │ v149 │
00:09:44 verbose #56150 > │ #endif │
00:09:44 verbose #56151 > │ |> fun x -> _v140 <- Some x │
00:09:44 verbose #56152 > │ let v150 : US5 = _v140.Value │
00:09:44 verbose #56153 > │ return v150 │
00:09:44 verbose #56154 > │ } │
00:09:44 verbose #56155 > │ |> fun x -> _v138 <- Some x │
00:09:44 verbose #56156 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:44 verbose #56157 > │ v151 │
00:09:44 verbose #56158 > │ #endif │
00:09:44 verbose #56159 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56160 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:44 verbose #56161 > │ v152 │
00:09:44 verbose #56162 > │ #endif │
00:09:44 verbose #56163 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56164 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56165 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:44 verbose #56166 > │ v153 │
00:09:44 verbose #56167 > │ #endif │
00:09:44 verbose #56168 > │ |> fun x -> _v133 <- Some x │
00:09:44 verbose #56169 > │ let v154 : Async<US5> = _v133.Value │
00:09:44 verbose #56170 > │ let v155 : Async<US6> option = None │
00:09:44 verbose #56171 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:44 verbose #56172 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56173 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:44 verbose #56174 > │ v157 │
00:09:44 verbose #56175 > │ #endif │
00:09:44 verbose #56176 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56177 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:44 verbose #56178 > │ v158 │
00:09:44 verbose #56179 > │ #endif │
00:09:44 verbose #56180 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56181 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:44 verbose #56182 > │ v159 │
00:09:44 verbose #56183 > │ #endif │
00:09:44 verbose #56184 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56185 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56186 > │ let v160 : Async<US6> option = None │
00:09:44 verbose #56187 > │ let mutable _v160 = v160 │
00:09:44 verbose #56188 > │ async { │
00:09:44 verbose #56189 > │ let! v154 = v154 │
00:09:44 verbose #56190 > │ let v161 : US5 = v154 │
00:09:44 verbose #56191 > │ let v167 : US6 = │
00:09:44 verbose #56192 > │ match v161 with │
00:09:44 verbose #56193 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:44 verbose #56194 > │ US6_0(v162) │
00:09:44 verbose #56195 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:44 verbose #56196 > │ US6_1(v164) │
00:09:44 verbose #56197 > │ return v167 │
00:09:44 verbose #56198 > │ } │
00:09:44 verbose #56199 > │ |> fun x -> _v160 <- Some x │
00:09:44 verbose #56200 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:44 verbose #56201 > │ v168 │
00:09:44 verbose #56202 > │ #endif │
00:09:44 verbose #56203 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56204 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:44 verbose #56205 > │ v169 │
00:09:44 verbose #56206 > │ #endif │
00:09:44 verbose #56207 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56208 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56209 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:44 verbose #56210 > │ v170 │
00:09:44 verbose #56211 > │ #endif │
00:09:44 verbose #56212 > │ |> fun x -> _v155 <- Some x │
00:09:44 verbose #56213 > │ let v171 : Async<US6> = _v155.Value │
00:09:44 verbose #56214 > │ let v172 : Async<US4> option = None │
00:09:44 verbose #56215 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:44 verbose #56216 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56217 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56218 > │ v174 │
00:09:44 verbose #56219 > │ #endif │
00:09:44 verbose #56220 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56221 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56222 > │ v175 │
00:09:44 verbose #56223 > │ #endif │
00:09:44 verbose #56224 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56225 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56226 > │ v176 │
00:09:44 verbose #56227 > │ #endif │
00:09:44 verbose #56228 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56229 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56230 > │ let v177 : Async<US4> option = None │
00:09:44 verbose #56231 > │ let mutable _v177 = v177 │
00:09:44 verbose #56232 > │ async { │
00:09:44 verbose #56233 > │ let! v171 = v171 │
00:09:44 verbose #56234 > │ let v178 : US6 = v171 │
00:09:44 verbose #56235 > │ let v204 : US4 = │
00:09:44 verbose #56236 > │ match v178 with │
00:09:44 verbose #56237 > │ | US6_1(v181) -> (* Error *) │
00:09:44 verbose #56238 > │ let v182 : string = $"%A{v181}" │
00:09:44 verbose #56239 > │ let v183 : string = "System.TimeoutException" │
00:09:44 verbose #56240 > │ let v184 : bool = v182.Contains v183 │
00:09:44 verbose #56241 > │ if v184 then │
00:09:44 verbose #56242 > │ let v185 : US0 = US0_1 │
00:09:44 verbose #56243 > │ let v186 : (unit -> string) = closure17() │
00:09:44 verbose #56244 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:44 verbose #56245 > │ method1(v185, v186, v187) │
00:09:44 verbose #56246 > │ US4_1 │
00:09:44 verbose #56247 > │ else │
00:09:44 verbose #56248 > │ let v189 : string option = None │
00:09:44 verbose #56249 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:44 verbose #56250 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56251 > │ let v191 : string = $"%A{v181}" │
00:09:44 verbose #56252 > │ v191 │
00:09:44 verbose #56253 > │ #endif │
00:09:44 verbose #56254 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56255 > │ let v192 : string = $"%A{v181}" │
00:09:44 verbose #56256 > │ v192 │
00:09:44 verbose #56257 > │ #endif │
00:09:44 verbose #56258 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56259 > │ let v193 : string = $"%A{v181}" │
00:09:44 verbose #56260 > │ v193 │
00:09:44 verbose #56261 > │ #endif │
00:09:44 verbose #56262 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56263 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56264 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:44 verbose #56265 > │ {v181.Message}" │
00:09:44 verbose #56266 > │ v194 │
00:09:44 verbose #56267 > │ #endif │
00:09:44 verbose #56268 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56269 > │ let v195 : string = $"%A{v181}" │
00:09:44 verbose #56270 > │ v195 │
00:09:44 verbose #56271 > │ #endif │
00:09:44 verbose #56272 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56273 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56274 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:44 verbose #56275 > │ v196 │
00:09:44 verbose #56276 > │ #endif │
00:09:44 verbose #56277 > │ |> fun x -> _v189 <- Some x │
00:09:44 verbose #56278 > │ let v197 : string = _v189.Value │
00:09:44 verbose #56279 > │ let v198 : US0 = US0_4 │
00:09:44 verbose #56280 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:44 verbose #56281 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:44 verbose #56282 > │ method1(v198, v199, v200) │
00:09:44 verbose #56283 > │ US4_1 │
00:09:44 verbose #56284 > │ | US6_0(v179) -> (* Ok *) │
00:09:44 verbose #56285 > │ US4_0(v179) │
00:09:44 verbose #56286 > │ return v204 │
00:09:44 verbose #56287 > │ } │
00:09:44 verbose #56288 > │ |> fun x -> _v177 <- Some x │
00:09:44 verbose #56289 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:44 verbose #56290 > │ v205 │
00:09:44 verbose #56291 > │ #endif │
00:09:44 verbose #56292 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56293 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56294 > │ v206 │
00:09:44 verbose #56295 > │ #endif │
00:09:44 verbose #56296 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56297 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56298 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:44 verbose #56299 > │ v207 │
00:09:44 verbose #56300 > │ #endif │
00:09:44 verbose #56301 > │ |> fun x -> _v172 <- Some x │
00:09:44 verbose #56302 > │ let v208 : Async<US4> = _v172.Value │
00:09:44 verbose #56303 > │ return! v208 │
00:09:44 verbose #56304 > │ } │
00:09:44 verbose #56305 > │ |> fun x -> _v112 <- Some x │
00:09:44 verbose #56306 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:44 verbose #56307 > │ v209 │
00:09:44 verbose #56308 > │ #endif │
00:09:44 verbose #56309 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56310 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56311 > │ v210 │
00:09:44 verbose #56312 > │ #endif │
00:09:44 verbose #56313 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56314 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56315 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:44 verbose #56316 > │ v211 │
00:09:44 verbose #56317 > │ #endif │
00:09:44 verbose #56318 > │ |> fun x -> _v107 <- Some x │
00:09:44 verbose #56319 > │ let v212 : Async<US4> = _v107.Value │
00:09:44 verbose #56320 > │ v212 │
00:09:44 verbose #56321 > │ #endif │
00:09:44 verbose #56322 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56323 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:44 verbose #56324 > │ v213 │
00:09:44 verbose #56325 > │ #endif │
00:09:44 verbose #56326 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56327 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56328 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:44 verbose #56329 > │ v214 │
00:09:44 verbose #56330 > │ #endif │
00:09:44 verbose #56331 > │ |> fun x -> _v102 <- Some x │
00:09:44 verbose #56332 > │ let v215 : Async<US4> = _v102.Value │
00:09:44 verbose #56333 > │ let! v215 = v215 │
00:09:44 verbose #56334 > │ let v216 : US4 = v215 │
00:09:44 verbose #56335 > │ let v219 : bool = │
00:09:44 verbose #56336 > │ match v216 with │
00:09:44 verbose #56337 > │ | US4_1 -> (* None *) │
00:09:44 verbose #56338 > │ false │
00:09:44 verbose #56339 > │ | US4_0(v217) -> (* Some *) │
00:09:44 verbose #56340 > │ v217 │
00:09:44 verbose #56341 > │ return v219 │
00:09:44 verbose #56342 > │ } │
00:09:44 verbose #56343 > │ |> fun x -> _v59 <- Some x │
00:09:44 verbose #56344 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:44 verbose #56345 > │ v220 │
00:09:44 verbose #56346 > │ #endif │
00:09:44 verbose #56347 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56348 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:44 verbose #56349 > │ v221 │
00:09:44 verbose #56350 > │ #endif │
00:09:44 verbose #56351 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56352 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56353 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:44 verbose #56354 > │ v222 │
00:09:44 verbose #56355 > │ #endif │
00:09:44 verbose #56356 > │ |> fun x -> _v54 <- Some x │
00:09:44 verbose #56357 > │ let v223 : Async<bool> = _v54.Value │
00:09:44 verbose #56358 > │ v223 │
00:09:44 verbose #56359 > │ let! v225 = v225 │
00:09:44 verbose #56360 > │ let v226 : bool = v225 │
00:09:44 verbose #56361 > │ let v227 : bool = v226 = false │
00:09:44 verbose #56362 > │ if v227 then │
00:09:44 verbose #56363 > │ return v1 │
00:09:44 verbose #56364 > │ (* │
00:09:44 verbose #56365 > │ () │
00:09:44 verbose #56366 > │ else │
00:09:44 verbose #56367 > │ *) else │
00:09:44 verbose #56368 > │ let v228 : int64 = v1 % 100L │
00:09:44 verbose #56369 > │ let v229 : bool = v228 = 0L │
00:09:44 verbose #56370 > │ if v229 then │
00:09:44 verbose #56371 > │ let v230 : US0 = US0_0 │
00:09:44 verbose #56372 > │ let v231 : (unit -> string) = closure20() │
00:09:44 verbose #56373 > │ let v232 : (unit -> string) = closure21(v1) │
00:09:44 verbose #56374 > │ method1(v230, v231, v232) │
00:09:44 verbose #56375 > │ let v233 : Async<unit> option = None │
00:09:44 verbose #56376 > │ let v234 : bool = true in let mutable _v233 = v233 │
00:09:44 verbose #56377 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56378 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56379 > │ v235 │
00:09:44 verbose #56380 > │ #endif │
00:09:44 verbose #56381 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56382 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56383 > │ v236 │
00:09:44 verbose #56384 > │ #endif │
00:09:44 verbose #56385 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56386 > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56387 > │ v237 │
00:09:44 verbose #56388 > │ #endif │
00:09:44 verbose #56389 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56390 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56391 > │ let v238 : (int32 -> Async<unit>) = Async.Sleep │
00:09:44 verbose #56392 > │ let v239 : Async<unit> = v238 10 │
00:09:44 verbose #56393 > │ v239 │
00:09:44 verbose #56394 > │ #endif │
00:09:44 verbose #56395 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56396 > │ let v240 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56397 > │ v240 │
00:09:44 verbose #56398 > │ #endif │
00:09:44 verbose #56399 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56400 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56401 > │ let v241 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:44 verbose #56402 > │ v241 │
00:09:44 verbose #56403 > │ #endif │
00:09:44 verbose #56404 > │ |> fun x -> _v233 <- Some x │
00:09:44 verbose #56405 > │ let v242 : Async<unit> = _v233.Value │
00:09:44 verbose #56406 > │ do! v242 │
00:09:44 verbose #56407 > │ let v243 : int64 = v1 + 1L │
00:09:44 verbose #56408 > │ let v244 : Async<int64> = method9(v0, v243) │
00:09:44 verbose #56409 > │ return! v244 │
00:09:44 verbose #56410 > │ (* │
00:09:44 verbose #56411 > │ () │
00:09:44 verbose #56412 > │ *) │
00:09:44 verbose #56413 > │ } │
00:09:44 verbose #56414 > │ |> fun x -> _v7 <- Some x │
00:09:44 verbose #56415 > │ let v245 : Async<int64> = _v7 |> Option.get │
00:09:44 verbose #56416 > │ v245 │
00:09:44 verbose #56417 > │ #endif │
00:09:44 verbose #56418 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56419 > │ let v246 : Async<int64> = null |> unbox<Async<int64>> │
00:09:44 verbose #56420 > │ v246 │
00:09:44 verbose #56421 > │ #endif │
00:09:44 verbose #56422 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56423 > │ let v247 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:44 verbose #56424 > │ v247 │
00:09:44 verbose #56425 > │ #endif │
00:09:44 verbose #56426 > │ |> fun x -> _v2 <- Some x │
00:09:44 verbose #56427 > │ let v248 : Async<int64> = _v2.Value │
00:09:44 verbose #56428 > │ v248 │
00:09:44 verbose #56429 > │ and closure23 () () : string = │
00:09:44 verbose #56430 > │ let v0 : string = "5" │
00:09:44 verbose #56431 > │ v0 │
00:09:44 verbose #56432 > │ and closure24 () () : string = │
00:09:44 verbose #56433 > │ let v0 : string = "6" │
00:09:44 verbose #56434 > │ v0 │
00:09:44 verbose #56435 > │ and closure25 () struct (v0 : int64, v1 : int64) : US8 = │
00:09:44 verbose #56436 > │ US8_0(v0, v1) │
00:09:44 verbose #56437 > │ and closure26 () (v0 : exn) : US8 = │
00:09:44 verbose #56438 > │ US8_1(v0) │
00:09:44 verbose #56439 > │ and closure27 () () : string = │
00:09:44 verbose #56440 > │ let v0 : (unit -> string) = closure1() │
00:09:44 verbose #56441 > │ let v1 : string = $"timeout: {2000} / {v0 ()}" │
00:09:44 verbose #56442 > │ v1 │
00:09:44 verbose #56443 > │ and method10 (v0 : bool) : bool = │
00:09:44 verbose #56444 > │ v0 │
00:09:44 verbose #56445 > │ and method0 () : unit = │
00:09:44 verbose #56446 > │ let v0 : Async<struct (int64 * int64)> option = None │
00:09:44 verbose #56447 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:44 verbose #56448 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56449 > │ let v2 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:44 verbose #56450 > │ (int64 * int64)>> │
00:09:44 verbose #56451 > │ v2 │
00:09:44 verbose #56452 > │ #endif │
00:09:44 verbose #56453 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56454 > │ let v3 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:44 verbose #56455 > │ (int64 * int64)>> │
00:09:44 verbose #56456 > │ v3 │
00:09:44 verbose #56457 > │ #endif │
00:09:44 verbose #56458 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56459 > │ let v4 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:44 verbose #56460 > │ (int64 * int64)>> │
00:09:44 verbose #56461 > │ v4 │
00:09:44 verbose #56462 > │ #endif │
00:09:44 verbose #56463 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56464 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56465 > │ let v5 : Async<struct (int64 * int64)> option = None │
00:09:44 verbose #56466 > │ let mutable _v5 = v5 │
00:09:44 verbose #56467 > │ async { │
00:09:44 verbose #56468 > │ let v6 : US0 = US0_1 │
00:09:44 verbose #56469 > │ let v7 : (unit -> string) = closure0() │
00:09:44 verbose #56470 > │ let v8 : (unit -> string) = closure1() │
00:09:44 verbose #56471 > │ method1(v6, v7, v8) │
00:09:44 verbose #56472 > │ let v9 : Async<unit> option = None │
00:09:44 verbose #56473 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:44 verbose #56474 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56475 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56476 > │ v11 │
00:09:44 verbose #56477 > │ #endif │
00:09:44 verbose #56478 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56479 > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56480 > │ v12 │
00:09:44 verbose #56481 > │ #endif │
00:09:44 verbose #56482 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56483 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56484 > │ v13 │
00:09:44 verbose #56485 > │ #endif │
00:09:44 verbose #56486 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56487 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56488 > │ let v14 : Async<unit> option = None │
00:09:44 verbose #56489 > │ let mutable _v14 = v14 │
00:09:44 verbose #56490 > │ async { │
00:09:44 verbose #56491 > │ let v15 : US0 = US0_1 │
00:09:44 verbose #56492 > │ let v16 : (unit -> string) = closure6() │
00:09:44 verbose #56493 > │ method1(v15, v16, v8) │
00:09:44 verbose #56494 > │ let v17 : Async<unit> option = None │
00:09:44 verbose #56495 > │ let v18 : bool = true in let mutable _v17 = v17 │
00:09:44 verbose #56496 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56497 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56498 > │ v19 │
00:09:44 verbose #56499 > │ #endif │
00:09:44 verbose #56500 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56501 > │ let v20 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56502 > │ v20 │
00:09:44 verbose #56503 > │ #endif │
00:09:44 verbose #56504 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56505 > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56506 > │ v21 │
00:09:44 verbose #56507 > │ #endif │
00:09:44 verbose #56508 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56509 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56510 > │ let v22 : (int32 -> Async<unit>) = Async.Sleep │
00:09:44 verbose #56511 > │ let v23 : Async<unit> = v22 500 │
00:09:44 verbose #56512 > │ v23 │
00:09:44 verbose #56513 > │ #endif │
00:09:44 verbose #56514 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56515 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56516 > │ v24 │
00:09:44 verbose #56517 > │ #endif │
00:09:44 verbose #56518 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56519 > │ let v25 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:44 verbose #56520 > │ v25 │
00:09:44 verbose #56521 > │ #endif │
00:09:44 verbose #56522 > │ |> fun x -> _v17 <- Some x │
00:09:44 verbose #56523 > │ let v26 : Async<unit> = _v17.Value │
00:09:44 verbose #56524 > │ do! v26 │
00:09:44 verbose #56525 > │ let v27 : (string -> System.Net.IPAddress) = System.Net.IPAddress.Parse │
00:09:44 verbose #56526 > │ let v28 : string = "127.0.0.1" │
00:09:44 verbose #56527 > │ let v29 : System.Net.IPAddress = v27 v28 │
00:09:44 verbose #56528 > │ let v30 : System.Net.Sockets.TcpListener = new │
00:09:44 verbose #56529 > │ System.Net.Sockets.TcpListener (v29, 5555) │
00:09:44 verbose #56530 > │ use v30 = v30 │
00:09:44 verbose #56531 > │ let v31 : System.Net.Sockets.TcpListener = v30 │
00:09:44 verbose #56532 > │ let v32 : US0 = US0_1 │
00:09:44 verbose #56533 > │ let v33 : (unit -> string) = closure7() │
00:09:44 verbose #56534 > │ method1(v32, v33, v8) │
00:09:44 verbose #56535 > │ let v34 : (unit -> unit) = v31.Start │
00:09:44 verbose #56536 > │ v34 () │
00:09:44 verbose #56537 > │ let v35 : US0 = US0_1 │
00:09:44 verbose #56538 > │ let v36 : (unit -> string) = closure8() │
00:09:44 verbose #56539 > │ method1(v35, v36, v8) │
00:09:44 verbose #56540 > │ let v37 : Async<unit> option = None │
00:09:44 verbose #56541 > │ let v38 : bool = true in let mutable _v37 = v37 │
00:09:44 verbose #56542 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56543 > │ let v39 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56544 > │ v39 │
00:09:44 verbose #56545 > │ #endif │
00:09:44 verbose #56546 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56547 > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56548 > │ v40 │
00:09:44 verbose #56549 > │ #endif │
00:09:44 verbose #56550 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56551 > │ let v41 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56552 > │ v41 │
00:09:44 verbose #56553 > │ #endif │
00:09:44 verbose #56554 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56555 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56556 > │ let v42 : (int32 -> Async<unit>) = Async.Sleep │
00:09:44 verbose #56557 > │ let v43 : Async<unit> = v42 200 │
00:09:44 verbose #56558 > │ v43 │
00:09:44 verbose #56559 > │ #endif │
00:09:44 verbose #56560 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56561 > │ let v44 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56562 > │ v44 │
00:09:44 verbose #56563 > │ #endif │
00:09:44 verbose #56564 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56565 > │ let v45 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:44 verbose #56566 > │ v45 │
00:09:44 verbose #56567 > │ #endif │
00:09:44 verbose #56568 > │ |> fun x -> _v37 <- Some x │
00:09:44 verbose #56569 > │ let v46 : Async<unit> = _v37.Value │
00:09:44 verbose #56570 > │ do! v46 │
00:09:44 verbose #56571 > │ let v47 : US0 = US0_1 │
00:09:44 verbose #56572 > │ let v48 : (unit -> string) = closure9() │
00:09:44 verbose #56573 > │ method1(v47, v48, v8) │
00:09:44 verbose #56574 > │ let v49 : (unit -> unit) = v31.Stop │
00:09:44 verbose #56575 > │ v49 () │
00:09:44 verbose #56576 > │ let v50 : US0 = US0_1 │
00:09:44 verbose #56577 > │ let v51 : (unit -> string) = closure10() │
00:09:44 verbose #56578 > │ method1(v50, v51, v8) │
00:09:44 verbose #56579 > │ } │
00:09:44 verbose #56580 > │ |> fun x -> _v14 <- Some x │
00:09:44 verbose #56581 > │ let v52 : Async<unit> = _v14 |> Option.get │
00:09:44 verbose #56582 > │ v52 │
00:09:44 verbose #56583 > │ #endif │
00:09:44 verbose #56584 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56585 > │ let v53 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56586 > │ v53 │
00:09:44 verbose #56587 > │ #endif │
00:09:44 verbose #56588 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56589 > │ let v54 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:44 verbose #56590 > │ v54 │
00:09:44 verbose #56591 > │ #endif │
00:09:44 verbose #56592 > │ |> fun x -> _v9 <- Some x │
00:09:44 verbose #56593 > │ let v55 : Async<unit> = _v9.Value │
00:09:44 verbose #56594 > │ let v56 : Async<Async<unit>> option = None │
00:09:44 verbose #56595 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:09:44 verbose #56596 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56597 > │ let v58 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:44 verbose #56598 > │ v58 │
00:09:44 verbose #56599 > │ #endif │
00:09:44 verbose #56600 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56601 > │ let v59 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:44 verbose #56602 > │ v59 │
00:09:44 verbose #56603 > │ #endif │
00:09:44 verbose #56604 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56605 > │ let v60 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:44 verbose #56606 > │ v60 │
00:09:44 verbose #56607 > │ #endif │
00:09:44 verbose #56608 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56609 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56610 > │ let v61 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:09:44 verbose #56611 > │ let v62 : Async<Async<unit>> = v61 v55 │
00:09:44 verbose #56612 > │ v62 │
00:09:44 verbose #56613 > │ #endif │
00:09:44 verbose #56614 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56615 > │ let v63 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:44 verbose #56616 > │ v63 │
00:09:44 verbose #56617 > │ #endif │
00:09:44 verbose #56618 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56619 > │ let v64 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:09:44 verbose #56620 > │ v64 │
00:09:44 verbose #56621 > │ #endif │
00:09:44 verbose #56622 > │ |> fun x -> _v56 <- Some x │
00:09:44 verbose #56623 > │ let v65 : Async<Async<unit>> = _v56.Value │
00:09:44 verbose #56624 > │ let! v65 = v65 │
00:09:44 verbose #56625 > │ let v66 : Async<unit> = v65 │
00:09:44 verbose #56626 > │ let v67 : US0 = US0_1 │
00:09:44 verbose #56627 > │ let v68 : (unit -> string) = closure11() │
00:09:44 verbose #56628 > │ method1(v67, v68, v8) │
00:09:44 verbose #56629 > │ let v69 : Async<unit> option = None │
00:09:44 verbose #56630 > │ let v70 : bool = true in let mutable _v69 = v69 │
00:09:44 verbose #56631 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56632 > │ let v71 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56633 > │ v71 │
00:09:44 verbose #56634 > │ #endif │
00:09:44 verbose #56635 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56636 > │ let v72 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56637 > │ v72 │
00:09:44 verbose #56638 > │ #endif │
00:09:44 verbose #56639 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56640 > │ let v73 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56641 > │ v73 │
00:09:44 verbose #56642 > │ #endif │
00:09:44 verbose #56643 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56644 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56645 > │ let v74 : (int32 -> Async<unit>) = Async.Sleep │
00:09:44 verbose #56646 > │ let v75 : Async<unit> = v74 1 │
00:09:44 verbose #56647 > │ v75 │
00:09:44 verbose #56648 > │ #endif │
00:09:44 verbose #56649 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56650 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:44 verbose #56651 > │ v76 │
00:09:44 verbose #56652 > │ #endif │
00:09:44 verbose #56653 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56654 > │ let v77 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:44 verbose #56655 > │ v77 │
00:09:44 verbose #56656 > │ #endif │
00:09:44 verbose #56657 > │ |> fun x -> _v69 <- Some x │
00:09:44 verbose #56658 > │ let v78 : Async<unit> = _v69.Value │
00:09:44 verbose #56659 > │ do! v78 │
00:09:44 verbose #56660 > │ let v79 : US0 = US0_1 │
00:09:44 verbose #56661 > │ let v80 : (unit -> string) = closure12() │
00:09:44 verbose #56662 > │ method1(v79, v80, v8) │
00:09:44 verbose #56663 > │ let v81 : int32 option = Some 60 │
00:09:44 verbose #56664 > │ let v82 : int64 = 0L │
00:09:44 verbose #56665 > │ let v83 : Async<int64> = method7(v81, v82) │
00:09:44 verbose #56666 > │ let! v83 = v83 │
00:09:44 verbose #56667 > │ let v84 : int64 = v83 │
00:09:44 verbose #56668 > │ let v85 : US0 = US0_1 │
00:09:44 verbose #56669 > │ let v86 : (unit -> string) = closure22() │
00:09:44 verbose #56670 > │ method1(v85, v86, v8) │
00:09:44 verbose #56671 > │ let v87 : int32 option = Some 60 │
00:09:44 verbose #56672 > │ let v88 : int64 = 0L │
00:09:44 verbose #56673 > │ let v89 : Async<int64> = method9(v87, v88) │
00:09:44 verbose #56674 > │ let! v89 = v89 │
00:09:44 verbose #56675 > │ let v90 : int64 = v89 │
00:09:44 verbose #56676 > │ let v91 : US0 = US0_1 │
00:09:44 verbose #56677 > │ let v92 : (unit -> string) = closure23() │
00:09:44 verbose #56678 > │ method1(v91, v92, v8) │
00:09:44 verbose #56679 > │ do! v66 │
00:09:44 verbose #56680 > │ let v93 : US0 = US0_1 │
00:09:44 verbose #56681 > │ let v94 : (unit -> string) = closure24() │
00:09:44 verbose #56682 > │ method1(v93, v94, v8) │
00:09:44 verbose #56683 > │ return struct (v84, v90) │
00:09:44 verbose #56684 > │ } │
00:09:44 verbose #56685 > │ |> fun x -> _v5 <- Some x │
00:09:44 verbose #56686 > │ let v95 : Async<struct (int64 * int64)> = _v5 |> Option.get │
00:09:44 verbose #56687 > │ v95 │
00:09:44 verbose #56688 > │ #endif │
00:09:44 verbose #56689 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56690 > │ let v96 : Async<struct (int64 * int64)> = null |> unbox<Async<struct │
00:09:44 verbose #56691 > │ (int64 * int64)>> │
00:09:44 verbose #56692 > │ v96 │
00:09:44 verbose #56693 > │ #endif │
00:09:44 verbose #56694 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56695 > │ let v97 : Async<struct (int64 * int64)> = │
00:09:44 verbose #56696 > │ Unchecked.defaultof<Async<struct (int64 * int64)>> │
00:09:44 verbose #56697 > │ v97 │
00:09:44 verbose #56698 > │ #endif │
00:09:44 verbose #56699 > │ |> fun x -> _v0 <- Some x │
00:09:44 verbose #56700 > │ let v98 : Async<struct (int64 * int64)> = _v0.Value │
00:09:44 verbose #56701 > │ let v99 : Async<US7> option = None │
00:09:44 verbose #56702 > │ let v100 : bool = true in let mutable _v99 = v99 │
00:09:44 verbose #56703 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56704 > │ let v101 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56705 > │ v101 │
00:09:44 verbose #56706 > │ #endif │
00:09:44 verbose #56707 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56708 > │ let v102 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56709 > │ v102 │
00:09:44 verbose #56710 > │ #endif │
00:09:44 verbose #56711 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56712 > │ let v103 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56713 > │ v103 │
00:09:44 verbose #56714 > │ #endif │
00:09:44 verbose #56715 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56716 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56717 > │ let v104 : Async<US7> option = None │
00:09:44 verbose #56718 > │ let v105 : bool = true in let mutable _v104 = v104 │
00:09:44 verbose #56719 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56720 > │ let v106 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56721 > │ v106 │
00:09:44 verbose #56722 > │ #endif │
00:09:44 verbose #56723 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56724 > │ let v107 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56725 > │ v107 │
00:09:44 verbose #56726 > │ #endif │
00:09:44 verbose #56727 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56728 > │ let v108 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56729 > │ v108 │
00:09:44 verbose #56730 > │ #endif │
00:09:44 verbose #56731 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56732 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56733 > │ let v109 : Async<US7> option = None │
00:09:44 verbose #56734 > │ let mutable _v109 = v109 │
00:09:44 verbose #56735 > │ async { │
00:09:44 verbose #56736 > │ let v110 : Async<Async<struct (int64 * int64)>> option = None │
00:09:44 verbose #56737 > │ let v111 : bool = true in let mutable _v110 = v110 │
00:09:44 verbose #56738 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56739 > │ let v112 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:44 verbose #56740 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:44 verbose #56741 > │ v112 │
00:09:44 verbose #56742 > │ #endif │
00:09:44 verbose #56743 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56744 > │ let v113 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:44 verbose #56745 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:44 verbose #56746 > │ v113 │
00:09:44 verbose #56747 > │ #endif │
00:09:44 verbose #56748 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56749 > │ let v114 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:44 verbose #56750 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:44 verbose #56751 > │ v114 │
00:09:44 verbose #56752 > │ #endif │
00:09:44 verbose #56753 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56754 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56755 > │ let v115 : Async<Async<struct (int64 * int64)>> = Async.StartChild (v98, │
00:09:44 verbose #56756 > │ 2000) │
00:09:44 verbose #56757 > │ v115 │
00:09:44 verbose #56758 > │ #endif │
00:09:44 verbose #56759 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56760 > │ let v116 : Async<Async<struct (int64 * int64)>> = null |> │
00:09:44 verbose #56761 > │ unbox<Async<Async<struct (int64 * int64)>>> │
00:09:44 verbose #56762 > │ v116 │
00:09:44 verbose #56763 > │ #endif │
00:09:44 verbose #56764 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56765 > │ let v117 : Async<Async<struct (int64 * int64)>> = │
00:09:44 verbose #56766 > │ Unchecked.defaultof<Async<Async<struct (int64 * int64)>>> │
00:09:44 verbose #56767 > │ v117 │
00:09:44 verbose #56768 > │ #endif │
00:09:44 verbose #56769 > │ |> fun x -> _v110 <- Some x │
00:09:44 verbose #56770 > │ let v118 : Async<Async<struct (int64 * int64)>> = _v110.Value │
00:09:44 verbose #56771 > │ let! v118 = v118 │
00:09:44 verbose #56772 > │ let v119 : Async<struct (int64 * int64)> = v118 │
00:09:44 verbose #56773 > │ let v120 : Async<Choice<struct (int64 * int64), exn>> option = None │
00:09:44 verbose #56774 > │ let v121 : bool = true in let mutable _v120 = v120 │
00:09:44 verbose #56775 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56776 > │ let v122 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:44 verbose #56777 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:44 verbose #56778 > │ v122 │
00:09:44 verbose #56779 > │ #endif │
00:09:44 verbose #56780 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56781 > │ let v123 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:44 verbose #56782 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:44 verbose #56783 > │ v123 │
00:09:44 verbose #56784 > │ #endif │
00:09:44 verbose #56785 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56786 > │ let v124 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:44 verbose #56787 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:44 verbose #56788 > │ v124 │
00:09:44 verbose #56789 > │ #endif │
00:09:44 verbose #56790 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56791 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56792 > │ let v125 : (Async<struct (int64 * int64)> -> Async<Choice<struct (int64 │
00:09:44 verbose #56793 > │ * int64), exn>>) = Async.Catch │
00:09:44 verbose #56794 > │ let v126 : Async<Choice<struct (int64 * int64), exn>> = v125 v119 │
00:09:44 verbose #56795 > │ v126 │
00:09:44 verbose #56796 > │ #endif │
00:09:44 verbose #56797 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56798 > │ let v127 : Async<Choice<struct (int64 * int64), exn>> = null |> │
00:09:44 verbose #56799 > │ unbox<Async<Choice<struct (int64 * int64), exn>>> │
00:09:44 verbose #56800 > │ v127 │
00:09:44 verbose #56801 > │ #endif │
00:09:44 verbose #56802 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56803 > │ let v128 : Async<Choice<struct (int64 * int64), exn>> = │
00:09:44 verbose #56804 > │ Unchecked.defaultof<Async<Choice<struct (int64 * int64), exn>>> │
00:09:44 verbose #56805 > │ v128 │
00:09:44 verbose #56806 > │ #endif │
00:09:44 verbose #56807 > │ |> fun x -> _v120 <- Some x │
00:09:44 verbose #56808 > │ let v129 : Async<Choice<struct (int64 * int64), exn>> = _v120.Value │
00:09:44 verbose #56809 > │ let v130 : Async<US8> option = None │
00:09:44 verbose #56810 > │ let v131 : bool = true in let mutable _v130 = v130 │
00:09:44 verbose #56811 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56812 > │ let v132 : Async<US8> = null |> unbox<Async<US8>> │
00:09:44 verbose #56813 > │ v132 │
00:09:44 verbose #56814 > │ #endif │
00:09:44 verbose #56815 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56816 > │ let v133 : Async<US8> = null |> unbox<Async<US8>> │
00:09:44 verbose #56817 > │ v133 │
00:09:44 verbose #56818 > │ #endif │
00:09:44 verbose #56819 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56820 > │ let v134 : Async<US8> = null |> unbox<Async<US8>> │
00:09:44 verbose #56821 > │ v134 │
00:09:44 verbose #56822 > │ #endif │
00:09:44 verbose #56823 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56824 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56825 > │ let v135 : Async<US8> option = None │
00:09:44 verbose #56826 > │ let mutable _v135 = v135 │
00:09:44 verbose #56827 > │ async { │
00:09:44 verbose #56828 > │ let! v129 = v129 │
00:09:44 verbose #56829 > │ let v136 : Choice<struct (int64 * int64), exn> = v129 │
00:09:44 verbose #56830 > │ let v137 : US8 option = None │
00:09:44 verbose #56831 > │ let v138 : bool = true in let mutable _v137 = v137 │
00:09:44 verbose #56832 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56833 > │ let v139 : US8 = null |> unbox<US8> │
00:09:44 verbose #56834 > │ v139 │
00:09:44 verbose #56835 > │ #endif │
00:09:44 verbose #56836 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56837 > │ let v140 : US8 = null |> unbox<US8> │
00:09:44 verbose #56838 > │ v140 │
00:09:44 verbose #56839 > │ #endif │
00:09:44 verbose #56840 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56841 > │ let v141 : US8 = null |> unbox<US8> │
00:09:44 verbose #56842 > │ v141 │
00:09:44 verbose #56843 > │ #endif │
00:09:44 verbose #56844 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56845 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56846 > │ let v142 : (struct (int64 * int64) -> US8) = closure25() │
00:09:44 verbose #56847 > │ let v143 : (exn -> US8) = closure26() │
00:09:44 verbose #56848 > │ let v144 : US8 = match v136 with Choice1Of2 x -> v142 x | Choice2Of2 x │
00:09:44 verbose #56849 > │ -> v143 x │
00:09:44 verbose #56850 > │ v144 │
00:09:44 verbose #56851 > │ #endif │
00:09:44 verbose #56852 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56853 > │ let v145 : US8 = null |> unbox<US8> │
00:09:44 verbose #56854 > │ v145 │
00:09:44 verbose #56855 > │ #endif │
00:09:44 verbose #56856 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56857 > │ let v146 : US8 = Unchecked.defaultof<US8> │
00:09:44 verbose #56858 > │ v146 │
00:09:44 verbose #56859 > │ #endif │
00:09:44 verbose #56860 > │ |> fun x -> _v137 <- Some x │
00:09:44 verbose #56861 > │ let v147 : US8 = _v137.Value │
00:09:44 verbose #56862 > │ return v147 │
00:09:44 verbose #56863 > │ } │
00:09:44 verbose #56864 > │ |> fun x -> _v135 <- Some x │
00:09:44 verbose #56865 > │ let v148 : Async<US8> = _v135 |> Option.get │
00:09:44 verbose #56866 > │ v148 │
00:09:44 verbose #56867 > │ #endif │
00:09:44 verbose #56868 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56869 > │ let v149 : Async<US8> = null |> unbox<Async<US8>> │
00:09:44 verbose #56870 > │ v149 │
00:09:44 verbose #56871 > │ #endif │
00:09:44 verbose #56872 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56873 > │ let v150 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:09:44 verbose #56874 > │ v150 │
00:09:44 verbose #56875 > │ #endif │
00:09:44 verbose #56876 > │ |> fun x -> _v130 <- Some x │
00:09:44 verbose #56877 > │ let v151 : Async<US8> = _v130.Value │
00:09:44 verbose #56878 > │ let v152 : Async<US9> option = None │
00:09:44 verbose #56879 > │ let v153 : bool = true in let mutable _v152 = v152 │
00:09:44 verbose #56880 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56881 > │ let v154 : Async<US9> = null |> unbox<Async<US9>> │
00:09:44 verbose #56882 > │ v154 │
00:09:44 verbose #56883 > │ #endif │
00:09:44 verbose #56884 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56885 > │ let v155 : Async<US9> = null |> unbox<Async<US9>> │
00:09:44 verbose #56886 > │ v155 │
00:09:44 verbose #56887 > │ #endif │
00:09:44 verbose #56888 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56889 > │ let v156 : Async<US9> = null |> unbox<Async<US9>> │
00:09:44 verbose #56890 > │ v156 │
00:09:44 verbose #56891 > │ #endif │
00:09:44 verbose #56892 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56893 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56894 > │ let v157 : Async<US9> option = None │
00:09:44 verbose #56895 > │ let mutable _v157 = v157 │
00:09:44 verbose #56896 > │ async { │
00:09:44 verbose #56897 > │ let! v151 = v151 │
00:09:44 verbose #56898 > │ let v158 : US8 = v151 │
00:09:44 verbose #56899 > │ let v165 : US9 = │
00:09:44 verbose #56900 > │ match v158 with │
00:09:44 verbose #56901 > │ | US8_0(v159, v160) -> (* Choice1Of2 *) │
00:09:44 verbose #56902 > │ US9_0(v159, v160) │
00:09:44 verbose #56903 > │ | US8_1(v162) -> (* Choice2Of2 *) │
00:09:44 verbose #56904 > │ US9_1(v162) │
00:09:44 verbose #56905 > │ return v165 │
00:09:44 verbose #56906 > │ } │
00:09:44 verbose #56907 > │ |> fun x -> _v157 <- Some x │
00:09:44 verbose #56908 > │ let v166 : Async<US9> = _v157 |> Option.get │
00:09:44 verbose #56909 > │ v166 │
00:09:44 verbose #56910 > │ #endif │
00:09:44 verbose #56911 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56912 > │ let v167 : Async<US9> = null |> unbox<Async<US9>> │
00:09:44 verbose #56913 > │ v167 │
00:09:44 verbose #56914 > │ #endif │
00:09:44 verbose #56915 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #56916 > │ let v168 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:09:44 verbose #56917 > │ v168 │
00:09:44 verbose #56918 > │ #endif │
00:09:44 verbose #56919 > │ |> fun x -> _v152 <- Some x │
00:09:44 verbose #56920 > │ let v169 : Async<US9> = _v152.Value │
00:09:44 verbose #56921 > │ let v170 : Async<US7> option = None │
00:09:44 verbose #56922 > │ let v171 : bool = true in let mutable _v170 = v170 │
00:09:44 verbose #56923 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56924 > │ let v172 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56925 > │ v172 │
00:09:44 verbose #56926 > │ #endif │
00:09:44 verbose #56927 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56928 > │ let v173 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56929 > │ v173 │
00:09:44 verbose #56930 > │ #endif │
00:09:44 verbose #56931 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56932 > │ let v174 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #56933 > │ v174 │
00:09:44 verbose #56934 > │ #endif │
00:09:44 verbose #56935 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56936 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56937 > │ let v175 : Async<US7> option = None │
00:09:44 verbose #56938 > │ let mutable _v175 = v175 │
00:09:44 verbose #56939 > │ async { │
00:09:44 verbose #56940 > │ let! v169 = v169 │
00:09:44 verbose #56941 > │ let v176 : US9 = v169 │
00:09:44 verbose #56942 > │ let v203 : US7 = │
00:09:44 verbose #56943 > │ match v176 with │
00:09:44 verbose #56944 > │ | US9_1(v180) -> (* Error *) │
00:09:44 verbose #56945 > │ let v181 : string = $"%A{v180}" │
00:09:44 verbose #56946 > │ let v182 : string = "System.TimeoutException" │
00:09:44 verbose #56947 > │ let v183 : bool = v181.Contains v182 │
00:09:44 verbose #56948 > │ if v183 then │
00:09:44 verbose #56949 > │ let v184 : US0 = US0_1 │
00:09:44 verbose #56950 > │ let v185 : (unit -> string) = closure17() │
00:09:44 verbose #56951 > │ let v186 : (unit -> string) = closure27() │
00:09:44 verbose #56952 > │ method1(v184, v185, v186) │
00:09:44 verbose #56953 > │ US7_1 │
00:09:44 verbose #56954 > │ else │
00:09:44 verbose #56955 > │ let v188 : string option = None │
00:09:44 verbose #56956 > │ let v189 : bool = true in let mutable _v188 = v188 │
00:09:44 verbose #56957 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #56958 > │ let v190 : string = $"%A{v180}" │
00:09:44 verbose #56959 > │ v190 │
00:09:44 verbose #56960 > │ #endif │
00:09:44 verbose #56961 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #56962 > │ let v191 : string = $"%A{v180}" │
00:09:44 verbose #56963 > │ v191 │
00:09:44 verbose #56964 > │ #endif │
00:09:44 verbose #56965 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #56966 > │ let v192 : string = $"%A{v180}" │
00:09:44 verbose #56967 > │ v192 │
00:09:44 verbose #56968 > │ #endif │
00:09:44 verbose #56969 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #56970 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #56971 > │ let v193 : string = $"{v180.GetType ()}: {v180.Message}" │
00:09:44 verbose #56972 > │ v193 │
00:09:44 verbose #56973 > │ #endif │
00:09:44 verbose #56974 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56975 > │ let v194 : string = $"%A{v180}" │
00:09:44 verbose #56976 > │ v194 │
00:09:44 verbose #56977 > │ #endif │
00:09:44 verbose #56978 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #56979 > │ FABLE_COMPILER_DART │
00:09:44 verbose #56980 > │ let v195 : string = Unchecked.defaultof<string> │
00:09:44 verbose #56981 > │ v195 │
00:09:44 verbose #56982 > │ #endif │
00:09:44 verbose #56983 > │ |> fun x -> _v188 <- Some x │
00:09:44 verbose #56984 > │ let v196 : string = _v188.Value │
00:09:44 verbose #56985 > │ let v197 : US0 = US0_4 │
00:09:44 verbose #56986 > │ let v198 : (unit -> string) = closure19(v196) │
00:09:44 verbose #56987 > │ let v199 : (unit -> string) = closure27() │
00:09:44 verbose #56988 > │ method1(v197, v198, v199) │
00:09:44 verbose #56989 > │ US7_1 │
00:09:44 verbose #56990 > │ | US9_0(v177, v178) -> (* Ok *) │
00:09:44 verbose #56991 > │ US7_0(v177, v178) │
00:09:44 verbose #56992 > │ return v203 │
00:09:44 verbose #56993 > │ } │
00:09:44 verbose #56994 > │ |> fun x -> _v175 <- Some x │
00:09:44 verbose #56995 > │ let v204 : Async<US7> = _v175 |> Option.get │
00:09:44 verbose #56996 > │ v204 │
00:09:44 verbose #56997 > │ #endif │
00:09:44 verbose #56998 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #56999 > │ let v205 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #57000 > │ v205 │
00:09:44 verbose #57001 > │ #endif │
00:09:44 verbose #57002 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #57003 > │ let v206 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:44 verbose #57004 > │ v206 │
00:09:44 verbose #57005 > │ #endif │
00:09:44 verbose #57006 > │ |> fun x -> _v170 <- Some x │
00:09:44 verbose #57007 > │ let v207 : Async<US7> = _v170.Value │
00:09:44 verbose #57008 > │ return! v207 │
00:09:44 verbose #57009 > │ } │
00:09:44 verbose #57010 > │ |> fun x -> _v109 <- Some x │
00:09:44 verbose #57011 > │ let v208 : Async<US7> = _v109 |> Option.get │
00:09:44 verbose #57012 > │ v208 │
00:09:44 verbose #57013 > │ #endif │
00:09:44 verbose #57014 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57015 > │ let v209 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #57016 > │ v209 │
00:09:44 verbose #57017 > │ #endif │
00:09:44 verbose #57018 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #57019 > │ let v210 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:44 verbose #57020 > │ v210 │
00:09:44 verbose #57021 > │ #endif │
00:09:44 verbose #57022 > │ |> fun x -> _v104 <- Some x │
00:09:44 verbose #57023 > │ let v211 : Async<US7> = _v104.Value │
00:09:44 verbose #57024 > │ v211 │
00:09:44 verbose #57025 > │ #endif │
00:09:44 verbose #57026 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57027 > │ let v212 : Async<US7> = null |> unbox<Async<US7>> │
00:09:44 verbose #57028 > │ v212 │
00:09:44 verbose #57029 > │ #endif │
00:09:44 verbose #57030 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #57031 > │ let v213 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:44 verbose #57032 > │ v213 │
00:09:44 verbose #57033 > │ #endif │
00:09:44 verbose #57034 > │ |> fun x -> _v99 <- Some x │
00:09:44 verbose #57035 > │ let v214 : Async<US7> = _v99.Value │
00:09:44 verbose #57036 > │ let v215 : US7 option = None │
00:09:44 verbose #57037 > │ let v216 : bool = true in let mutable _v215 = v215 │
00:09:44 verbose #57038 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #57039 > │ let v217 : US7 = null |> unbox<US7> │
00:09:44 verbose #57040 > │ v217 │
00:09:44 verbose #57041 > │ #endif │
00:09:44 verbose #57042 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #57043 > │ let v218 : US7 = null |> unbox<US7> │
00:09:44 verbose #57044 > │ v218 │
00:09:44 verbose #57045 > │ #endif │
00:09:44 verbose #57046 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #57047 > │ let v219 : US7 = null |> unbox<US7> │
00:09:44 verbose #57048 > │ v219 │
00:09:44 verbose #57049 > │ #endif │
00:09:44 verbose #57050 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #57051 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #57052 > │ let v220 : (Async<US7> -> US7) = Async.RunSynchronously │
00:09:44 verbose #57053 > │ let v221 : US7 = v220 v214 │
00:09:44 verbose #57054 > │ v221 │
00:09:44 verbose #57055 > │ #endif │
00:09:44 verbose #57056 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57057 > │ let v222 : US7 = null |> unbox<US7> │
00:09:44 verbose #57058 > │ v222 │
00:09:44 verbose #57059 > │ #endif │
00:09:44 verbose #57060 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:44 verbose #57061 > │ let v223 : US7 = Unchecked.defaultof<US7> │
00:09:44 verbose #57062 > │ v223 │
00:09:44 verbose #57063 > │ #endif │
00:09:44 verbose #57064 > │ |> fun x -> _v215 <- Some x │
00:09:44 verbose #57065 > │ let v224 : US7 = _v215.Value │
00:09:44 verbose #57066 > │ let v303 : bool = │
00:09:44 verbose #57067 > │ match v224 with │
00:09:44 verbose #57068 > │ | US7_0(v225, v226) -> (* Some *) │
00:09:44 verbose #57069 > │ let v227 : bool option = None │
00:09:44 verbose #57070 > │ let v228 : bool = true in let mutable _v227 = v227 │
00:09:44 verbose #57071 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #57072 > │ let v229 : bool = null |> unbox<bool> │
00:09:44 verbose #57073 > │ v229 │
00:09:44 verbose #57074 > │ #endif │
00:09:44 verbose #57075 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #57076 > │ let v230 : bool = null |> unbox<bool> │
00:09:44 verbose #57077 > │ v230 │
00:09:44 verbose #57078 > │ #endif │
00:09:44 verbose #57079 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #57080 > │ let v231 : bool = null |> unbox<bool> │
00:09:44 verbose #57081 > │ v231 │
00:09:44 verbose #57082 > │ #endif │
00:09:44 verbose #57083 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #57084 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #57085 > │ let v232 : System.Runtime.InteropServices.OSPlatform = │
00:09:44 verbose #57086 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:44 verbose #57087 > │ let v233 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:44 verbose #57088 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:44 verbose #57089 > │ let v234 : bool = v233 v232 │
00:09:44 verbose #57090 > │ v234 │
00:09:44 verbose #57091 > │ #endif │
00:09:44 verbose #57092 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57093 > │ let v235 : bool = null |> unbox<bool> │
00:09:44 verbose #57094 > │ v235 │
00:09:44 verbose #57095 > │ #endif │
00:09:44 verbose #57096 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #57097 > │ FABLE_COMPILER_DART │
00:09:44 verbose #57098 > │ let v236 : bool = Unchecked.defaultof<bool> │
00:09:44 verbose #57099 > │ v236 │
00:09:44 verbose #57100 > │ #endif │
00:09:44 verbose #57101 > │ |> fun x -> _v227 <- Some x │
00:09:44 verbose #57102 > │ let v237 : bool = _v227.Value │
00:09:44 verbose #57103 > │ let v238 : int64 = │
00:09:44 verbose #57104 > │ if v237 then │
00:09:44 verbose #57105 > │ 4L │
00:09:44 verbose #57106 > │ else │
00:09:44 verbose #57107 > │ 2L │
00:09:44 verbose #57108 > │ let v239 : bool option = None │
00:09:44 verbose #57109 > │ let v240 : bool = true in let mutable _v239 = v239 │
00:09:44 verbose #57110 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #57111 > │ let v241 : bool = null |> unbox<bool> │
00:09:44 verbose #57112 > │ v241 │
00:09:44 verbose #57113 > │ #endif │
00:09:44 verbose #57114 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #57115 > │ let v242 : bool = null |> unbox<bool> │
00:09:44 verbose #57116 > │ v242 │
00:09:44 verbose #57117 > │ #endif │
00:09:44 verbose #57118 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #57119 > │ let v243 : bool = null |> unbox<bool> │
00:09:44 verbose #57120 > │ v243 │
00:09:44 verbose #57121 > │ #endif │
00:09:44 verbose #57122 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #57123 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #57124 > │ let v244 : System.Runtime.InteropServices.OSPlatform = │
00:09:44 verbose #57125 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:44 verbose #57126 > │ let v245 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:44 verbose #57127 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:44 verbose #57128 > │ let v246 : bool = v245 v244 │
00:09:44 verbose #57129 > │ v246 │
00:09:44 verbose #57130 > │ #endif │
00:09:44 verbose #57131 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57132 > │ let v247 : bool = null |> unbox<bool> │
00:09:44 verbose #57133 > │ v247 │
00:09:44 verbose #57134 > │ #endif │
00:09:44 verbose #57135 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #57136 > │ FABLE_COMPILER_DART │
00:09:44 verbose #57137 > │ let v248 : bool = Unchecked.defaultof<bool> │
00:09:44 verbose #57138 > │ v248 │
00:09:44 verbose #57139 > │ #endif │
00:09:44 verbose #57140 > │ |> fun x -> _v239 <- Some x │
00:09:44 verbose #57141 > │ let v249 : bool = _v239.Value │
00:09:44 verbose #57142 > │ let v250 : int64 = │
00:09:44 verbose #57143 > │ if v249 then │
00:09:44 verbose #57144 > │ 15L │
00:09:44 verbose #57145 > │ else │
00:09:44 verbose #57146 > │ 150L │
00:09:44 verbose #57147 > │ let v251 : string = $"%A{v225}" │
00:09:44 verbose #57148 > │ System.Console.WriteLine v251 │
00:09:44 verbose #57149 > │ let v252 : string = $"%A{v225}" │
00:09:44 verbose #57150 > │ System.Console.WriteLine v252 │
00:09:44 verbose #57151 > │ let v253 : bool = v225 >= v238 │
00:09:44 verbose #57152 > │ let v255 : bool = │
00:09:44 verbose #57153 > │ if v253 then │
00:09:44 verbose #57154 > │ true │
00:09:44 verbose #57155 > │ else │
00:09:44 verbose #57156 > │ method10(v253) │
00:09:44 verbose #57157 > │ let v256 : string = $"__expect / actual: %A{v225} / expected: │
00:09:44 verbose #57158 > │ %A{v238}" │
00:09:44 verbose #57159 > │ let v257 : bool = v255 = false │
00:09:44 verbose #57160 > │ if v257 then │
00:09:44 verbose #57161 > │ failwith<unit> v256 │
00:09:44 verbose #57162 > │ let v258 : string = $"%A{v225}" │
00:09:44 verbose #57163 > │ System.Console.WriteLine v258 │
00:09:44 verbose #57164 > │ let v259 : bool = v225 <= v250 │
00:09:44 verbose #57165 > │ let v261 : bool = │
00:09:44 verbose #57166 > │ if v259 then │
00:09:44 verbose #57167 > │ true │
00:09:44 verbose #57168 > │ else │
00:09:44 verbose #57169 > │ method10(v259) │
00:09:44 verbose #57170 > │ let v262 : string = $"__expect / actual: %A{v225} / expected: │
00:09:44 verbose #57171 > │ %A{v250}" │
00:09:44 verbose #57172 > │ let v263 : bool = v261 = false │
00:09:44 verbose #57173 > │ if v263 then │
00:09:44 verbose #57174 > │ failwith<unit> v262 │
00:09:44 verbose #57175 > │ let v264 : string = $"__expect / actual: %A{v225} / expected: │
00:09:44 verbose #57176 > │ %A{struct (v238, v250)}" │
00:09:44 verbose #57177 > │ let v265 : bool option = None │
00:09:44 verbose #57178 > │ let v266 : bool = true in let mutable _v265 = v265 │
00:09:44 verbose #57179 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #57180 > │ let v267 : bool = null |> unbox<bool> │
00:09:44 verbose #57181 > │ v267 │
00:09:44 verbose #57182 > │ #endif │
00:09:44 verbose #57183 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #57184 > │ let v268 : bool = null |> unbox<bool> │
00:09:44 verbose #57185 > │ v268 │
00:09:44 verbose #57186 > │ #endif │
00:09:44 verbose #57187 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #57188 > │ let v269 : bool = null |> unbox<bool> │
00:09:44 verbose #57189 > │ v269 │
00:09:44 verbose #57190 > │ #endif │
00:09:44 verbose #57191 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #57192 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #57193 > │ let v270 : System.Runtime.InteropServices.OSPlatform = │
00:09:44 verbose #57194 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:44 verbose #57195 > │ let v271 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:44 verbose #57196 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:44 verbose #57197 > │ let v272 : bool = v271 v270 │
00:09:44 verbose #57198 > │ v272 │
00:09:44 verbose #57199 > │ #endif │
00:09:44 verbose #57200 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57201 > │ let v273 : bool = null |> unbox<bool> │
00:09:44 verbose #57202 > │ v273 │
00:09:44 verbose #57203 > │ #endif │
00:09:44 verbose #57204 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #57205 > │ FABLE_COMPILER_DART │
00:09:44 verbose #57206 > │ let v274 : bool = Unchecked.defaultof<bool> │
00:09:44 verbose #57207 > │ v274 │
00:09:44 verbose #57208 > │ #endif │
00:09:44 verbose #57209 > │ |> fun x -> _v265 <- Some x │
00:09:44 verbose #57210 > │ let v275 : bool = _v265.Value │
00:09:44 verbose #57211 > │ let v276 : int64 = │
00:09:44 verbose #57212 > │ if v275 then │
00:09:44 verbose #57213 > │ 5L │
00:09:44 verbose #57214 > │ else │
00:09:44 verbose #57215 > │ 0L │
00:09:44 verbose #57216 > │ let v277 : bool option = None │
00:09:44 verbose #57217 > │ let v278 : bool = true in let mutable _v277 = v277 │
00:09:44 verbose #57218 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:44 verbose #57219 > │ let v279 : bool = null |> unbox<bool> │
00:09:44 verbose #57220 > │ v279 │
00:09:44 verbose #57221 > │ #endif │
00:09:44 verbose #57222 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:44 verbose #57223 > │ let v280 : bool = null |> unbox<bool> │
00:09:44 verbose #57224 > │ v280 │
00:09:44 verbose #57225 > │ #endif │
00:09:44 verbose #57226 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:44 verbose #57227 > │ let v281 : bool = null |> unbox<bool> │
00:09:44 verbose #57228 > │ v281 │
00:09:44 verbose #57229 > │ #endif │
00:09:44 verbose #57230 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:44 verbose #57231 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:44 verbose #57232 > │ let v282 : System.Runtime.InteropServices.OSPlatform = │
00:09:44 verbose #57233 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:44 verbose #57234 > │ let v283 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:44 verbose #57235 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:44 verbose #57236 > │ let v284 : bool = v283 v282 │
00:09:44 verbose #57237 > │ v284 │
00:09:44 verbose #57238 > │ #endif │
00:09:44 verbose #57239 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:44 verbose #57240 > │ let v285 : bool = null |> unbox<bool> │
00:09:44 verbose #57241 > │ v285 │
00:09:44 verbose #57242 > │ #endif │
00:09:44 verbose #57243 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:44 verbose #57244 > │ FABLE_COMPILER_DART │
00:09:44 verbose #57245 > │ let v286 : bool = Unchecked.defaultof<bool> │
00:09:44 verbose #57246 > │ v286 │
00:09:44 verbose #57247 > │ #endif │
00:09:44 verbose #57248 > │ |> fun x -> _v277 <- Some x │
00:09:44 verbose #57249 > │ let v287 : bool = _v277.Value │
00:09:44 verbose #57250 > │ let v288 : int64 = │
00:09:44 verbose #57251 > │ if v287 then │
00:09:44 verbose #57252 > │ 20L │
00:09:44 verbose #57253 > │ else │
00:09:44 verbose #57254 > │ 60L │
00:09:44 verbose #57255 > │ let v289 : string = $"%A{v226}" │
00:09:44 verbose #57256 > │ System.Console.WriteLine v289 │
00:09:44 verbose #57257 > │ let v290 : string = $"%A{v226}" │
00:09:44 verbose #57258 > │ System.Console.WriteLine v290 │
00:09:44 verbose #57259 > │ let v291 : bool = v226 >= v276 │
00:09:44 verbose #57260 > │ let v293 : bool = │
00:09:44 verbose #57261 > │ if v291 then │
00:09:44 verbose #57262 > │ true │
00:09:44 verbose #57263 > │ else │
00:09:44 verbose #57264 > │ method10(v291) │
00:09:44 verbose #57265 > │ let v294 : string = $"__expect / actual: %A{v226} / expected: │
00:09:44 verbose #57266 > │ %A{v276}" │
00:09:44 verbose #57267 > │ let v295 : bool = v293 = false │
00:09:44 verbose #57268 > │ if v295 then │
00:09:44 verbose #57269 > │ failwith<unit> v294 │
00:09:44 verbose #57270 > │ let v296 : string = $"%A{v226}" │
00:09:44 verbose #57271 > │ System.Console.WriteLine v296 │
00:09:44 verbose #57272 > │ let v297 : bool = v226 <= v288 │
00:09:44 verbose #57273 > │ let v299 : bool = │
00:09:44 verbose #57274 > │ if v297 then │
00:09:44 verbose #57275 > │ true │
00:09:44 verbose #57276 > │ else │
00:09:44 verbose #57277 > │ method10(v297) │
00:09:44 verbose #57278 > │ let v300 : string = $"__expect / actual: %A{v226} / expected: │
00:09:44 verbose #57279 > │ %A{v288}" │
00:09:44 verbose #57280 > │ let v301 : bool = v299 = false │
00:09:44 verbose #57281 > │ if v301 then │
00:09:44 verbose #57282 > │ failwith<unit> v300 │
00:09:44 verbose #57283 > │ let v302 : string = $"__expect / actual: %A{v226} / expected: │
00:09:44 verbose #57284 > │ %A{struct (v276, v288)}" │
00:09:44 verbose #57285 > │ true │
00:09:44 verbose #57286 > │ | _ -> │
00:09:44 verbose #57287 > │ false │
00:09:44 verbose #57288 > │ let v304 : string = $"%A{v303}" │
00:09:44 verbose #57289 > │ System.Console.WriteLine v304 │
00:09:44 verbose #57290 > │ let v306 : bool = │
00:09:44 verbose #57291 > │ if v303 then │
00:09:44 verbose #57292 > │ true │
00:09:44 verbose #57293 > │ else │
00:09:44 verbose #57294 > │ method10(v303) │
00:09:44 verbose #57295 > │ let v307 : string = $"__expect / actual: %A{v303} / expected: %A{true}" │
00:09:44 verbose #57296 > │ let v308 : bool = v306 = false │
00:09:44 verbose #57297 > │ if v308 then │
00:09:44 verbose #57298 > │ failwith<unit> v307 │
00:09:44 verbose #57299 > │ method0() │
00:09:44 verbose #57300 > │ │
00:09:44 verbose #57301 > │ 00:00:00 debug #1 1 │
00:09:44 verbose #57302 > │ 00:00:00 debug #2 2 │
00:09:44 verbose #57303 > │ 00:00:00 debug #3 _1 │
00:09:44 verbose #57304 > │ 00:00:00 debug #4 3 │
00:09:44 verbose #57305 > │ 00:00:00 debug #5 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57306 > │ 00:00:00 verbose #6 wait_for_port_access / port: 5555 / retry: 0 │
00:09:44 verbose #57307 > │ 00:00:00 debug #7 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57308 > │ 00:00:00 debug #8 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57309 > │ 00:00:00 debug #9 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57310 > │ 00:00:00 debug #10 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57311 > │ 00:00:00 debug #11 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57312 > │ 00:00:00 debug #12 _2 │
00:09:44 verbose #57313 > │ 00:00:00 debug #13 _3 │
00:09:44 verbose #57314 > │ 00:00:00 debug #14 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57315 > │ 00:00:00 debug #15 4 │
00:09:44 verbose #57316 > │ 00:00:00 verbose #16 wait_for_port_access / port: 5555 / retry: 0 │
00:09:44 verbose #57317 > │ 00:00:00 debug #17 _4 │
00:09:44 verbose #57318 > │ 00:00:00 debug #18 _5 │
00:09:44 verbose #57319 > │ 00:00:00 debug #19 run_with_timeout_async / timeout: 60 │
00:09:44 verbose #57320 > │ 00:00:00 debug #20 5 │
00:09:44 verbose #57321 > │ 00:00:00 debug #21 6 │
00:09:44 verbose #57322 > │ 7L │
00:09:44 verbose #57323 > │ 7L │
00:09:44 verbose #57324 > │ 7L │
00:09:44 verbose #57325 > │ 7L │
00:09:44 verbose #57326 > │ 7L │
00:09:44 verbose #57327 > │ 7L │
00:09:44 verbose #57328 > │ true │
00:09:44 verbose #57329 > │ │
00:09:44 verbose #57330 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:44 verbose #57331 >
00:09:44 verbose #57332 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:44 verbose #57333 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:44 verbose #57334 > │ ## get_available_port │
00:09:44 verbose #57335 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:44 verbose #57336 >
00:09:44 verbose #57337 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:44 verbose #57338 > inl get_available_port timeout initial_port : _ i32 =
00:09:44 verbose #57339 > let rec loop port = async.new_async_unit fun () =>
00:09:44 verbose #57340 > inl is_port_open =
00:09:44 verbose #57341 > match timeout |> optionm'.unbox with
00:09:44 verbose #57342 > | None => test_port_open port
00:09:44 verbose #57343 > | Some timeout => test_port_open_timeout timeout port
00:09:44 verbose #57344 > |> async.let'
00:09:44 verbose #57345 > if not is_port_open
00:09:44 verbose #57346 > then port |> return |> fun x => $'(*' : ()
00:09:44 verbose #57347 > else
00:09:44 verbose #57348 > $'*) else' : ()
00:09:44 verbose #57349 > loop (port + 1) |> async.return_await |> fun x => $'(*' : ()
00:09:44 verbose #57350 > |> fun x => $'*)' : ()
00:09:44 verbose #57351 > loop initial_port
00:09:44 verbose #57352 > 00:09:44 debug #740 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6e38d8e629800d20098152cfb07952464762d3cf1679eff91ebc63f77a17c6a6/main.spi
00:09:44 verbose #57353 >
00:09:44 verbose #57354 > ╭─[ 216.06ms - stdout ]────────────────────────────────────────────────────────╮
00:09:44 verbose #57355 > │ () │
00:09:44 verbose #57356 > │ │
00:09:44 verbose #57357 > │ │
00:09:44 verbose #57358 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:44 verbose #57359 >
00:09:44 verbose #57360 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:44 verbose #57361 > // // test
00:09:44 verbose #57362 >
00:09:44 verbose #57363 > inl lock_ports port = async.new_async_unit fun () =>
00:09:44 verbose #57364 > trace Debug (fun () => "_1") _locals
00:09:44 verbose #57365 > inl listener1 = new_tcp_listener (ip_address_parse "127.0.0.1") port |> use
00:09:44 verbose #57366 > inl listener2 = new_tcp_listener (ip_address_parse "127.0.0.1") (port + 1)
00:09:44 verbose #57367 > |> use
00:09:44 verbose #57368 > trace Debug (fun () => "_2") _locals
00:09:44 verbose #57369 > listener1 |> listener_start
00:09:44 verbose #57370 > listener2 |> listener_start
00:09:44 verbose #57371 > trace Debug (fun () => "_3") _locals
00:09:44 verbose #57372 > async.sleep 4000 |> async.do
00:09:44 verbose #57373 > trace Debug (fun () => "_4") _locals
00:09:44 verbose #57374 > listener1 |> listener_stop
00:09:44 verbose #57375 > listener2 |> listener_stop
00:09:44 verbose #57376 > trace Debug (fun () => "_5") _locals
00:09:44 verbose #57377 >
00:09:44 verbose #57378 > inl port = 5555
00:09:44 verbose #57379 >
00:09:44 verbose #57380 > fun () =>
00:09:44 verbose #57381 > trace Debug (fun () => "1") _locals
00:09:44 verbose #57382 > inl child = lock_ports port |> async.start_child |> async.let'
00:09:44 verbose #57383 > trace Debug (fun () => "2") _locals
00:09:44 verbose #57384 > async.sleep 240 |> async.do
00:09:44 verbose #57385 > trace Debug (fun () => "3") _locals
00:09:44 verbose #57386 > inl available_port = get_available_port (None |> optionm'.box) port |>
00:09:44 verbose #57387 > async.let'
00:09:44 verbose #57388 > trace Debug (fun () => "4") _locals
00:09:44 verbose #57389 > inl retries = wait_for_port_access (None |> optionm'.box) false port |>
00:09:44 verbose #57390 > async.let'
00:09:44 verbose #57391 > trace Debug (fun () => "5") _locals
00:09:44 verbose #57392 > child |> async.do
00:09:44 verbose #57393 > trace Debug (fun () => "6") _locals
00:09:44 verbose #57394 > (available_port, retries) |> return
00:09:44 verbose #57395 > |> async.new_async_unit
00:09:44 verbose #57396 > |> async.run_with_timeout 15000
00:09:44 verbose #57397 > |> function
00:09:44 verbose #57398 > | Some (available_port, retries) =>
00:09:44 verbose #57399 > available_port |> _assert_eq (port + 2)
00:09:44 verbose #57400 >
00:09:44 verbose #57401 > retries
00:09:44 verbose #57402 > |> _assert_between
00:09:44 verbose #57403 > if runtime.is_windows () then 100i64 else 100
00:09:44 verbose #57404 > if runtime.is_windows () then 150 else 1200
00:09:44 verbose #57405 >
00:09:44 verbose #57406 > true
00:09:44 verbose #57407 > | _ => false
00:09:44 verbose #57408 > |> _assert_eq true
00:09:44 verbose #57409 > 00:09:44 debug #741 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/e7a163db4291ef501473b00a8579ddd74119d80fb29284a7dc4d5ec3001ead71/main.spi
00:09:52 verbose #57410 >
00:09:52 verbose #57411 > ╭─[ 7.36s - stdout ]───────────────────────────────────────────────────────────╮
00:09:52 verbose #57412 > │ module State = let mutable trace_state = None │
00:09:52 verbose #57413 > │ type [<Struct>] US0 = │
00:09:52 verbose #57414 > │ | US0_0 │
00:09:52 verbose #57415 > │ | US0_1 │
00:09:52 verbose #57416 > │ | US0_2 │
00:09:52 verbose #57417 > │ | US0_3 │
00:09:52 verbose #57418 > │ | US0_4 │
00:09:52 verbose #57419 > │ and Mut0 = {mutable l0 : int64} │
00:09:52 verbose #57420 > │ and Mut1 = {mutable l0 : bool} │
00:09:52 verbose #57421 > │ and Mut2 = {mutable l0 : US0} │
00:09:52 verbose #57422 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:52 verbose #57423 > │ and [<Struct>] US1 = │
00:09:52 verbose #57424 > │ | US1_0 of f0_0 : int64 │
00:09:52 verbose #57425 > │ | US1_1 │
00:09:52 verbose #57426 > │ and [<Struct>] US2 = │
00:09:52 verbose #57427 > │ | US2_0 of f0_0 : int64 │
00:09:52 verbose #57428 > │ | US2_1 │
00:09:52 verbose #57429 > │ and [<Struct>] US3 = │
00:09:52 verbose #57430 > │ | US3_0 of f0_0 : int32 │
00:09:52 verbose #57431 > │ | US3_1 │
00:09:52 verbose #57432 > │ and [<Struct>] US4 = │
00:09:52 verbose #57433 > │ | US4_0 of f0_0 : bool │
00:09:52 verbose #57434 > │ | US4_1 │
00:09:52 verbose #57435 > │ and [<Struct>] US5 = │
00:09:52 verbose #57436 > │ | US5_0 of f0_0 : bool │
00:09:52 verbose #57437 > │ | US5_1 of f1_0 : exn │
00:09:52 verbose #57438 > │ and [<Struct>] US6 = │
00:09:52 verbose #57439 > │ | US6_0 of f0_0 : bool │
00:09:52 verbose #57440 > │ | US6_1 of f1_0 : exn │
00:09:52 verbose #57441 > │ and [<Struct>] US7 = │
00:09:52 verbose #57442 > │ | US7_0 of f0_0 : int32 * f0_1 : int64 │
00:09:52 verbose #57443 > │ | US7_1 │
00:09:52 verbose #57444 > │ and [<Struct>] US8 = │
00:09:52 verbose #57445 > │ | US8_0 of f0_0 : int32 * f0_1 : int64 │
00:09:52 verbose #57446 > │ | US8_1 of f1_0 : exn │
00:09:52 verbose #57447 > │ and [<Struct>] US9 = │
00:09:52 verbose #57448 > │ | US9_0 of f0_0 : int32 * f0_1 : int64 │
00:09:52 verbose #57449 > │ | US9_1 of f1_0 : exn │
00:09:52 verbose #57450 > │ let rec closure0 () () : string = │
00:09:52 verbose #57451 > │ let v0 : string = "1" │
00:09:52 verbose #57452 > │ v0 │
00:09:52 verbose #57453 > │ and closure1 () () : string = │
00:09:52 verbose #57454 > │ let v0 : string = "" │
00:09:52 verbose #57455 > │ v0 │
00:09:52 verbose #57456 > │ and closure4 () (v0 : string) : unit = │
00:09:52 verbose #57457 > │ () │
00:09:52 verbose #57458 > │ and method2 (v0 : int64 option) : int64 option = │
00:09:52 verbose #57459 > │ v0 │
00:09:52 verbose #57460 > │ and method3 (v0 : int64 option) : int64 option = │
00:09:52 verbose #57461 > │ v0 │
00:09:52 verbose #57462 > │ and closure3 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:52 verbose #57463 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:52 verbose #57464 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:52 verbose #57465 > │ let v2 : US0 = US0_0 │
00:09:52 verbose #57466 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:52 verbose #57467 > │ let v4 : (string -> unit) = closure4() │
00:09:52 verbose #57468 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:52 verbose #57469 > │ let v6 : int64 option option = None │
00:09:52 verbose #57470 > │ let mutable _v6 = v6 │
00:09:52 verbose #57471 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:52 verbose #57472 > │ let v7 : string option = None │
00:09:52 verbose #57473 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:52 verbose #57474 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57475 > │ let v9 : string = null |> unbox<string> │
00:09:52 verbose #57476 > │ v9 │
00:09:52 verbose #57477 > │ #endif │
00:09:52 verbose #57478 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57479 > │ let v10 : string = null |> unbox<string> │
00:09:52 verbose #57480 > │ v10 │
00:09:52 verbose #57481 > │ #endif │
00:09:52 verbose #57482 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57483 > │ let v11 : string = null |> unbox<string> │
00:09:52 verbose #57484 > │ v11 │
00:09:52 verbose #57485 > │ #endif │
00:09:52 verbose #57486 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57487 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57488 > │ let v12 : string = │
00:09:52 verbose #57489 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:52 verbose #57490 > │ v12 │
00:09:52 verbose #57491 > │ #endif │
00:09:52 verbose #57492 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #57493 > │ let v13 : string = null |> unbox<string> │
00:09:52 verbose #57494 > │ v13 │
00:09:52 verbose #57495 > │ #endif │
00:09:52 verbose #57496 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #57497 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:52 verbose #57498 > │ v14 │
00:09:52 verbose #57499 > │ #endif │
00:09:52 verbose #57500 > │ |> fun x -> _v7 <- Some x │
00:09:52 verbose #57501 > │ let v15 : string = _v7.Value │
00:09:52 verbose #57502 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:52 verbose #57503 > │ let v18 : bool = v17 <> true │
00:09:52 verbose #57504 > │ let v24 : US1 = │
00:09:52 verbose #57505 > │ if v18 then │
00:09:52 verbose #57506 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:52 verbose #57507 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:52 verbose #57508 > │ let v21 : int64 = v20 v19 │
00:09:52 verbose #57509 > │ US1_0(v21) │
00:09:52 verbose #57510 > │ else │
00:09:52 verbose #57511 > │ US1_1 │
00:09:52 verbose #57512 > │ let v29 : int64 option = │
00:09:52 verbose #57513 > │ match v24 with │
00:09:52 verbose #57514 > │ | US1_1 -> (* None *) │
00:09:52 verbose #57515 > │ let v27 : int64 option = None │
00:09:52 verbose #57516 > │ v27 │
00:09:52 verbose #57517 > │ | US1_0(v25) -> (* Some *) │
00:09:52 verbose #57518 > │ let v26 : int64 option = Some v25 │
00:09:52 verbose #57519 > │ v26 │
00:09:52 verbose #57520 > │ let v30 : int64 option = method2(v29) │
00:09:52 verbose #57521 > │ v30 │
00:09:52 verbose #57522 > │ #else │
00:09:52 verbose #57523 > │ let v31 : int64 option = None │
00:09:52 verbose #57524 > │ let v32 : int64 option = method3(v31) │
00:09:52 verbose #57525 > │ v32 │
00:09:52 verbose #57526 > │ #endif │
00:09:52 verbose #57527 > │ |> fun x -> _v6 <- Some x │
00:09:52 verbose #57528 > │ let v33 : int64 option = _v6.Value │
00:09:52 verbose #57529 > │ struct (v1, v0, v3, v33, v5) │
00:09:52 verbose #57530 > │ and closure5 () (v0 : int64) : US2 = │
00:09:52 verbose #57531 > │ US2_0(v0) │
00:09:52 verbose #57532 > │ and method4 () : (int64 -> US2) = │
00:09:52 verbose #57533 > │ closure5() │
00:09:52 verbose #57534 > │ and method5 () : string = │
00:09:52 verbose #57535 > │ let v0 : string = "" │
00:09:52 verbose #57536 > │ v0 │
00:09:52 verbose #57537 > │ and closure2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:52 verbose #57538 > │ string = │
00:09:52 verbose #57539 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:52 verbose #57540 > │ closure3() │
00:09:52 verbose #57541 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:52 verbose #57542 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:52 verbose #57543 > │ Mut3) = State.trace_state.Value │
00:09:52 verbose #57544 > │ let v9 : string option = None │
00:09:52 verbose #57545 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:52 verbose #57546 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57547 > │ let v11 : (int64 -> US2) = method4() │
00:09:52 verbose #57548 > │ let v12 : US2 = US2_1 │
00:09:52 verbose #57549 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:52 verbose #57550 > │ let v31 : System.DateTime = │
00:09:52 verbose #57551 > │ match v13 with │
00:09:52 verbose #57552 > │ | US2_1 -> (* None *) │
00:09:52 verbose #57553 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:52 verbose #57554 > │ v29 │
00:09:52 verbose #57555 > │ | US2_0(v14) -> (* Some *) │
00:09:52 verbose #57556 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:52 verbose #57557 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:52 verbose #57558 > │ let v17 : int64 = v16 v15 │
00:09:52 verbose #57559 > │ let v18 : int64 = v17 - v14 │
00:09:52 verbose #57560 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:52 verbose #57561 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:52 verbose #57562 > │ let v21 : int32 = v20 v19 │
00:09:52 verbose #57563 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:52 verbose #57564 > │ let v23 : int32 = v22 v19 │
00:09:52 verbose #57565 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:52 verbose #57566 > │ let v25 : int32 = v24 v19 │
00:09:52 verbose #57567 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:52 verbose #57568 > │ let v27 : int32 = v26 v19 │
00:09:52 verbose #57569 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:52 verbose #57570 > │ v25, v27) │
00:09:52 verbose #57571 > │ v28 │
00:09:52 verbose #57572 > │ let v32 : string = "hh:mm:ss" │
00:09:52 verbose #57573 > │ let v33 : string = v31.ToString v32 │
00:09:52 verbose #57574 > │ v33 │
00:09:52 verbose #57575 > │ #endif │
00:09:52 verbose #57576 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57577 > │ let v34 : string = method5() │
00:09:52 verbose #57578 > │ v34 │
00:09:52 verbose #57579 > │ #endif │
00:09:52 verbose #57580 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57581 > │ let v35 : string = method5() │
00:09:52 verbose #57582 > │ v35 │
00:09:52 verbose #57583 > │ #endif │
00:09:52 verbose #57584 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57585 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57586 > │ let v36 : (int64 -> US2) = method4() │
00:09:52 verbose #57587 > │ let v37 : US2 = US2_1 │
00:09:52 verbose #57588 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:52 verbose #57589 > │ let v56 : System.DateTime = │
00:09:52 verbose #57590 > │ match v38 with │
00:09:52 verbose #57591 > │ | US2_1 -> (* None *) │
00:09:52 verbose #57592 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:52 verbose #57593 > │ v54 │
00:09:52 verbose #57594 > │ | US2_0(v39) -> (* Some *) │
00:09:52 verbose #57595 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:52 verbose #57596 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:52 verbose #57597 > │ let v42 : int64 = v41 v40 │
00:09:52 verbose #57598 > │ let v43 : int64 = v42 - v39 │
00:09:52 verbose #57599 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:52 verbose #57600 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:52 verbose #57601 > │ let v46 : int32 = v45 v44 │
00:09:52 verbose #57602 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:52 verbose #57603 > │ let v48 : int32 = v47 v44 │
00:09:52 verbose #57604 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:52 verbose #57605 > │ let v50 : int32 = v49 v44 │
00:09:52 verbose #57606 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:52 verbose #57607 > │ let v52 : int32 = v51 v44 │
00:09:52 verbose #57608 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:52 verbose #57609 > │ v50, v52) │
00:09:52 verbose #57610 > │ v53 │
00:09:52 verbose #57611 > │ let v57 : string = "HH:mm:ss" │
00:09:52 verbose #57612 > │ let v58 : string = v56.ToString v57 │
00:09:52 verbose #57613 > │ v58 │
00:09:52 verbose #57614 > │ #endif │
00:09:52 verbose #57615 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #57616 > │ let v59 : string = method5() │
00:09:52 verbose #57617 > │ v59 │
00:09:52 verbose #57618 > │ #endif │
00:09:52 verbose #57619 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #57620 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:52 verbose #57621 > │ v60 │
00:09:52 verbose #57622 > │ #endif │
00:09:52 verbose #57623 > │ |> fun x -> _v9 <- Some x │
00:09:52 verbose #57624 > │ let v61 : string = _v9.Value │
00:09:52 verbose #57625 > │ let v62 : int64 = v4.l0 │
00:09:52 verbose #57626 > │ let v72 : string = │
00:09:52 verbose #57627 > │ match v0 with │
00:09:52 verbose #57628 > │ | US0_4 -> (* Critical *) │
00:09:52 verbose #57629 > │ let v67 : string = "Critical" │
00:09:52 verbose #57630 > │ v67 │
00:09:52 verbose #57631 > │ | US0_1 -> (* Debug *) │
00:09:52 verbose #57632 > │ let v64 : string = "Debug" │
00:09:52 verbose #57633 > │ v64 │
00:09:52 verbose #57634 > │ | US0_2 -> (* Info *) │
00:09:52 verbose #57635 > │ let v65 : string = "Info" │
00:09:52 verbose #57636 > │ v65 │
00:09:52 verbose #57637 > │ | US0_0 -> (* Verbose *) │
00:09:52 verbose #57638 > │ let v63 : string = "Verbose" │
00:09:52 verbose #57639 > │ v63 │
00:09:52 verbose #57640 > │ | US0_3 -> (* Warning *) │
00:09:52 verbose #57641 > │ let v66 : string = "Warning" │
00:09:52 verbose #57642 > │ v66 │
00:09:52 verbose #57643 > │ let v73 : string = v72.ToLower () │
00:09:52 verbose #57644 > │ let v74 : string option = None │
00:09:52 verbose #57645 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:52 verbose #57646 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57647 > │ let v90 : Ref<Str> = │
00:09:52 verbose #57648 > │ match v0 with │
00:09:52 verbose #57649 > │ | US0_4 -> (* Critical *) │
00:09:52 verbose #57650 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:52 verbose #57651 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:52 verbose #57652 > │ v85 │
00:09:52 verbose #57653 > │ | US0_1 -> (* Debug *) │
00:09:52 verbose #57654 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:52 verbose #57655 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:52 verbose #57656 > │ v79 │
00:09:52 verbose #57657 > │ | US0_2 -> (* Info *) │
00:09:52 verbose #57658 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:52 verbose #57659 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:52 verbose #57660 > │ v81 │
00:09:52 verbose #57661 > │ | US0_0 -> (* Verbose *) │
00:09:52 verbose #57662 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:52 verbose #57663 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:52 verbose #57664 > │ v77 │
00:09:52 verbose #57665 > │ | US0_3 -> (* Warning *) │
00:09:52 verbose #57666 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:52 verbose #57667 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:52 verbose #57668 > │ v83 │
00:09:52 verbose #57669 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:52 verbose #57670 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:52 verbose #57671 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:52 verbose #57672 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:52 verbose #57673 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:52 verbose #57674 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:52 verbose #57675 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:52 verbose #57676 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:52 verbose #57677 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:52 verbose #57678 > │ v99 │
00:09:52 verbose #57679 > │ #endif │
00:09:52 verbose #57680 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57681 > │ let v114 : Ref<Str> = │
00:09:52 verbose #57682 > │ match v0 with │
00:09:52 verbose #57683 > │ | US0_4 -> (* Critical *) │
00:09:52 verbose #57684 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:52 verbose #57685 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57686 > │ v108 │
00:09:52 verbose #57687 > │ v109 │
00:09:52 verbose #57688 > │ | US0_1 -> (* Debug *) │
00:09:52 verbose #57689 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:52 verbose #57690 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57691 > │ v102 │
00:09:52 verbose #57692 > │ v103 │
00:09:52 verbose #57693 > │ | US0_2 -> (* Info *) │
00:09:52 verbose #57694 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:52 verbose #57695 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57696 > │ v104 │
00:09:52 verbose #57697 > │ v105 │
00:09:52 verbose #57698 > │ | US0_0 -> (* Verbose *) │
00:09:52 verbose #57699 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:52 verbose #57700 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57701 > │ v100 │
00:09:52 verbose #57702 > │ v101 │
00:09:52 verbose #57703 > │ | US0_3 -> (* Warning *) │
00:09:52 verbose #57704 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:52 verbose #57705 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57706 > │ v106 │
00:09:52 verbose #57707 > │ v107 │
00:09:52 verbose #57708 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:52 verbose #57709 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:52 verbose #57710 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:52 verbose #57711 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:52 verbose #57712 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:52 verbose #57713 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:52 verbose #57714 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57715 > │ v120 │
00:09:52 verbose #57716 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:52 verbose #57717 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:52 verbose #57718 > │ v123 │
00:09:52 verbose #57719 > │ #endif │
00:09:52 verbose #57720 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57721 > │ let v138 : Ref<Str> = │
00:09:52 verbose #57722 > │ match v0 with │
00:09:52 verbose #57723 > │ | US0_4 -> (* Critical *) │
00:09:52 verbose #57724 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:52 verbose #57725 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57726 > │ v132 │
00:09:52 verbose #57727 > │ v133 │
00:09:52 verbose #57728 > │ | US0_1 -> (* Debug *) │
00:09:52 verbose #57729 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:52 verbose #57730 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57731 > │ v126 │
00:09:52 verbose #57732 > │ v127 │
00:09:52 verbose #57733 > │ | US0_2 -> (* Info *) │
00:09:52 verbose #57734 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:52 verbose #57735 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57736 > │ v128 │
00:09:52 verbose #57737 > │ v129 │
00:09:52 verbose #57738 > │ | US0_0 -> (* Verbose *) │
00:09:52 verbose #57739 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:52 verbose #57740 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57741 > │ v124 │
00:09:52 verbose #57742 > │ v125 │
00:09:52 verbose #57743 > │ | US0_3 -> (* Warning *) │
00:09:52 verbose #57744 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:52 verbose #57745 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57746 > │ v130 │
00:09:52 verbose #57747 > │ v131 │
00:09:52 verbose #57748 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:52 verbose #57749 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:52 verbose #57750 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:52 verbose #57751 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:52 verbose #57752 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:52 verbose #57753 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:52 verbose #57754 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:52 verbose #57755 > │ v144 │
00:09:52 verbose #57756 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:52 verbose #57757 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:52 verbose #57758 > │ v147 │
00:09:52 verbose #57759 > │ #endif │
00:09:52 verbose #57760 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57761 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57762 > │ v73 │
00:09:52 verbose #57763 > │ #endif │
00:09:52 verbose #57764 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #57765 > │ v73 │
00:09:52 verbose #57766 > │ #endif │
00:09:52 verbose #57767 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #57768 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:52 verbose #57769 > │ v148 │
00:09:52 verbose #57770 > │ #endif │
00:09:52 verbose #57771 > │ |> fun x -> _v74 <- Some x │
00:09:52 verbose #57772 > │ let v149 : string = _v74.Value │
00:09:52 verbose #57773 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:52 verbose #57774 > │ let v151 : (char []) = [||] │
00:09:52 verbose #57775 > │ let v152 : string = v150.TrimStart v151 │
00:09:52 verbose #57776 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:52 verbose #57777 > │ let v154 : string = v152.TrimEnd v153 │
00:09:52 verbose #57778 > │ v154 │
00:09:52 verbose #57779 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:52 verbose #57780 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:52 verbose #57781 > │ closure3() │
00:09:52 verbose #57782 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:52 verbose #57783 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:52 verbose #57784 > │ Mut3) = State.trace_state.Value │
00:09:52 verbose #57785 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:52 verbose #57786 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:52 verbose #57787 > │ Mut3) = State.trace_state.Value │
00:09:52 verbose #57788 > │ let v13 : US0 = v10.l0 │
00:09:52 verbose #57789 > │ let v14 : bool = v9.l0 │
00:09:52 verbose #57790 > │ let v15 : bool = v14 = false │
00:09:52 verbose #57791 > │ let v19 : bool = │
00:09:52 verbose #57792 > │ if v15 then │
00:09:52 verbose #57793 > │ false │
00:09:52 verbose #57794 > │ else │
00:09:52 verbose #57795 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:52 verbose #57796 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:52 verbose #57797 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:52 verbose #57798 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:52 verbose #57799 > │ let v18 : bool = v16 >= v17 │
00:09:52 verbose #57800 > │ v18 │
00:09:52 verbose #57801 > │ if v19 then │
00:09:52 verbose #57802 > │ let v20 : int64 = v3.l0 │
00:09:52 verbose #57803 > │ let v21 : int64 = v20 + 1L │
00:09:52 verbose #57804 > │ v3.l0 <- v21 │
00:09:52 verbose #57805 > │ let v22 : string = $"%s{v1 ()}" │
00:09:52 verbose #57806 > │ let v23 : unit option = None │
00:09:52 verbose #57807 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:52 verbose #57808 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57809 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:52 verbose #57810 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:52 verbose #57811 > │ () │
00:09:52 verbose #57812 > │ #endif │
00:09:52 verbose #57813 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57814 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:52 verbose #57815 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:52 verbose #57816 > │ () │
00:09:52 verbose #57817 > │ #endif │
00:09:52 verbose #57818 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57819 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:52 verbose #57820 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:52 verbose #57821 > │ () │
00:09:52 verbose #57822 > │ #endif │
00:09:52 verbose #57823 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57824 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57825 > │ System.Console.WriteLine v22 │
00:09:52 verbose #57826 > │ () │
00:09:52 verbose #57827 > │ #endif │
00:09:52 verbose #57828 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #57829 > │ System.Console.WriteLine v22 │
00:09:52 verbose #57830 > │ () │
00:09:52 verbose #57831 > │ #endif │
00:09:52 verbose #57832 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #57833 > │ FABLE_COMPILER_DART │
00:09:52 verbose #57834 > │ Unchecked.defaultof<unit> │
00:09:52 verbose #57835 > │ () │
00:09:52 verbose #57836 > │ #endif │
00:09:52 verbose #57837 > │ |> fun x -> _v23 <- Some x │
00:09:52 verbose #57838 > │ _v23.Value │
00:09:52 verbose #57839 > │ let v28 : (string -> unit) = v7.l0 │
00:09:52 verbose #57840 > │ v28 v22 │
00:09:52 verbose #57841 > │ and method1 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:52 verbose #57842 > │ = │
00:09:52 verbose #57843 > │ let v3 : (unit -> string) = closure2(v0, v1, v2) │
00:09:52 verbose #57844 > │ method6(v0, v3) │
00:09:52 verbose #57845 > │ and closure6 () () : string = │
00:09:52 verbose #57846 > │ let v0 : string = "_1" │
00:09:52 verbose #57847 > │ v0 │
00:09:52 verbose #57848 > │ and closure7 () () : string = │
00:09:52 verbose #57849 > │ let v0 : string = "_2" │
00:09:52 verbose #57850 > │ v0 │
00:09:52 verbose #57851 > │ and closure8 () () : string = │
00:09:52 verbose #57852 > │ let v0 : string = "_3" │
00:09:52 verbose #57853 > │ v0 │
00:09:52 verbose #57854 > │ and closure9 () () : string = │
00:09:52 verbose #57855 > │ let v0 : string = "_4" │
00:09:52 verbose #57856 > │ v0 │
00:09:52 verbose #57857 > │ and closure10 () () : string = │
00:09:52 verbose #57858 > │ let v0 : string = "_5" │
00:09:52 verbose #57859 > │ v0 │
00:09:52 verbose #57860 > │ and closure11 () () : string = │
00:09:52 verbose #57861 > │ let v0 : string = "2" │
00:09:52 verbose #57862 > │ v0 │
00:09:52 verbose #57863 > │ and closure12 () () : string = │
00:09:52 verbose #57864 > │ let v0 : string = "3" │
00:09:52 verbose #57865 > │ v0 │
00:09:52 verbose #57866 > │ and closure13 () (v0 : int32) : US3 = │
00:09:52 verbose #57867 > │ US3_0(v0) │
00:09:52 verbose #57868 > │ and method8 () : (int32 -> US3) = │
00:09:52 verbose #57869 > │ closure13() │
00:09:52 verbose #57870 > │ and closure14 (v0 : string) () : string = │
00:09:52 verbose #57871 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:52 verbose #57872 > │ v1 │
00:09:52 verbose #57873 > │ and closure15 () (v0 : bool) : US5 = │
00:09:52 verbose #57874 > │ US5_0(v0) │
00:09:52 verbose #57875 > │ and closure16 () (v0 : exn) : US5 = │
00:09:52 verbose #57876 > │ US5_1(v0) │
00:09:52 verbose #57877 > │ and closure17 () () : string = │
00:09:52 verbose #57878 > │ let v0 : string = "run_with_timeout_async" │
00:09:52 verbose #57879 > │ v0 │
00:09:52 verbose #57880 > │ and closure18 (v0 : int32) () : string = │
00:09:52 verbose #57881 > │ let v1 : (unit -> string) = closure1() │
00:09:52 verbose #57882 > │ let v2 : string = $"timeout: {v0} / {v1 ()}" │
00:09:52 verbose #57883 > │ v2 │
00:09:52 verbose #57884 > │ and closure19 (v0 : string) () : string = │
00:09:52 verbose #57885 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:52 verbose #57886 > │ v1 │
00:09:52 verbose #57887 > │ and method7 (v0 : int32 option, v1 : int32) : Async<int32> = │
00:09:52 verbose #57888 > │ let v2 : Async<int32> option = None │
00:09:52 verbose #57889 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:52 verbose #57890 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57891 > │ let v4 : Async<int32> = null |> unbox<Async<int32>> │
00:09:52 verbose #57892 > │ v4 │
00:09:52 verbose #57893 > │ #endif │
00:09:52 verbose #57894 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57895 > │ let v5 : Async<int32> = null |> unbox<Async<int32>> │
00:09:52 verbose #57896 > │ v5 │
00:09:52 verbose #57897 > │ #endif │
00:09:52 verbose #57898 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57899 > │ let v6 : Async<int32> = null |> unbox<Async<int32>> │
00:09:52 verbose #57900 > │ v6 │
00:09:52 verbose #57901 > │ #endif │
00:09:52 verbose #57902 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57903 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57904 > │ let v7 : Async<int32> option = None │
00:09:52 verbose #57905 > │ let mutable _v7 = v7 │
00:09:52 verbose #57906 > │ async { │
00:09:52 verbose #57907 > │ let v8 : (int32 -> US3) = method8() │
00:09:52 verbose #57908 > │ let v9 : US3 = US3_1 │
00:09:52 verbose #57909 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:52 verbose #57910 > │ let v225 : Async<bool> = │
00:09:52 verbose #57911 > │ match v10 with │
00:09:52 verbose #57912 > │ | US3_1 -> (* None *) │
00:09:52 verbose #57913 > │ let v11 : Async<bool> option = None │
00:09:52 verbose #57914 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:52 verbose #57915 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57916 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #57917 > │ v13 │
00:09:52 verbose #57918 > │ #endif │
00:09:52 verbose #57919 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57920 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #57921 > │ v14 │
00:09:52 verbose #57922 > │ #endif │
00:09:52 verbose #57923 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57924 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #57925 > │ v15 │
00:09:52 verbose #57926 > │ #endif │
00:09:52 verbose #57927 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57928 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57929 > │ let v16 : Async<bool> option = None │
00:09:52 verbose #57930 > │ let mutable _v16 = v16 │
00:09:52 verbose #57931 > │ async { │
00:09:52 verbose #57932 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:52 verbose #57933 > │ Async.CancellationToken │
00:09:52 verbose #57934 > │ let! v17 = v17 │
00:09:52 verbose #57935 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:52 verbose #57936 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:52 verbose #57937 > │ System.Net.Sockets.TcpClient () │
00:09:52 verbose #57938 > │ use v19 = v19 │
00:09:52 verbose #57939 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:52 verbose #57940 > │ try │
00:09:52 verbose #57941 > │ let v21 : string = "127.0.0.1" │
00:09:52 verbose #57942 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:52 verbose #57943 > │ (v21, v1, v18) │
00:09:52 verbose #57944 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:52 verbose #57945 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:52 verbose #57946 > │ let v25 : Async<unit> option = None │
00:09:52 verbose #57947 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:52 verbose #57948 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57949 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #57950 > │ v27 │
00:09:52 verbose #57951 > │ #endif │
00:09:52 verbose #57952 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57953 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #57954 > │ v28 │
00:09:52 verbose #57955 > │ #endif │
00:09:52 verbose #57956 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57957 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #57958 > │ v29 │
00:09:52 verbose #57959 > │ #endif │
00:09:52 verbose #57960 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57961 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57962 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:52 verbose #57963 > │ Async.AwaitTask │
00:09:52 verbose #57964 > │ let v31 : Async<unit> = v30 v24 │
00:09:52 verbose #57965 > │ v31 │
00:09:52 verbose #57966 > │ #endif │
00:09:52 verbose #57967 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #57968 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #57969 > │ v32 │
00:09:52 verbose #57970 > │ #endif │
00:09:52 verbose #57971 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #57972 > │ FABLE_COMPILER_DART │
00:09:52 verbose #57973 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #57974 > │ v33 │
00:09:52 verbose #57975 > │ #endif │
00:09:52 verbose #57976 > │ |> fun x -> _v25 <- Some x │
00:09:52 verbose #57977 > │ let v34 : Async<unit> = _v25.Value │
00:09:52 verbose #57978 > │ do! v34 │
00:09:52 verbose #57979 > │ return true │
00:09:52 verbose #57980 > │ with ex -> │
00:09:52 verbose #57981 > │ let v35 : exn = ex │
00:09:52 verbose #57982 > │ let v36 : string option = None │
00:09:52 verbose #57983 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:52 verbose #57984 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #57985 > │ let v38 : string = $"%A{v35}" │
00:09:52 verbose #57986 > │ v38 │
00:09:52 verbose #57987 > │ #endif │
00:09:52 verbose #57988 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #57989 > │ let v39 : string = $"%A{v35}" │
00:09:52 verbose #57990 > │ v39 │
00:09:52 verbose #57991 > │ #endif │
00:09:52 verbose #57992 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #57993 > │ let v40 : string = $"%A{v35}" │
00:09:52 verbose #57994 > │ v40 │
00:09:52 verbose #57995 > │ #endif │
00:09:52 verbose #57996 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #57997 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #57998 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:52 verbose #57999 > │ v41 │
00:09:52 verbose #58000 > │ #endif │
00:09:52 verbose #58001 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58002 > │ let v42 : string = $"%A{v35}" │
00:09:52 verbose #58003 > │ v42 │
00:09:52 verbose #58004 > │ #endif │
00:09:52 verbose #58005 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58006 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58007 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:52 verbose #58008 > │ v43 │
00:09:52 verbose #58009 > │ #endif │
00:09:52 verbose #58010 > │ |> fun x -> _v36 <- Some x │
00:09:52 verbose #58011 > │ let v44 : string = _v36.Value │
00:09:52 verbose #58012 > │ let v45 : US0 = US0_0 │
00:09:52 verbose #58013 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:52 verbose #58014 > │ let v47 : (unit -> string) = closure1() │
00:09:52 verbose #58015 > │ method1(v45, v46, v47) │
00:09:52 verbose #58016 > │ return false │
00:09:52 verbose #58017 > │ (* │
00:09:52 verbose #58018 > │ let v48 : bool = *) │
00:09:52 verbose #58019 > │ } │
00:09:52 verbose #58020 > │ |> fun x -> _v16 <- Some x │
00:09:52 verbose #58021 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:52 verbose #58022 > │ v49 │
00:09:52 verbose #58023 > │ #endif │
00:09:52 verbose #58024 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58025 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58026 > │ v50 │
00:09:52 verbose #58027 > │ #endif │
00:09:52 verbose #58028 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58029 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58030 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:52 verbose #58031 > │ v51 │
00:09:52 verbose #58032 > │ #endif │
00:09:52 verbose #58033 > │ |> fun x -> _v11 <- Some x │
00:09:52 verbose #58034 > │ let v52 : Async<bool> = _v11.Value │
00:09:52 verbose #58035 > │ v52 │
00:09:52 verbose #58036 > │ | US3_0(v53) -> (* Some *) │
00:09:52 verbose #58037 > │ let v54 : Async<bool> option = None │
00:09:52 verbose #58038 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:52 verbose #58039 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58040 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58041 > │ v56 │
00:09:52 verbose #58042 > │ #endif │
00:09:52 verbose #58043 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58044 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58045 > │ v57 │
00:09:52 verbose #58046 > │ #endif │
00:09:52 verbose #58047 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58048 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58049 > │ v58 │
00:09:52 verbose #58050 > │ #endif │
00:09:52 verbose #58051 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58052 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58053 > │ let v59 : Async<bool> option = None │
00:09:52 verbose #58054 > │ let mutable _v59 = v59 │
00:09:52 verbose #58055 > │ async { │
00:09:52 verbose #58056 > │ let v60 : Async<bool> option = None │
00:09:52 verbose #58057 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:52 verbose #58058 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58059 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58060 > │ v62 │
00:09:52 verbose #58061 > │ #endif │
00:09:52 verbose #58062 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58063 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58064 > │ v63 │
00:09:52 verbose #58065 > │ #endif │
00:09:52 verbose #58066 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58067 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58068 > │ v64 │
00:09:52 verbose #58069 > │ #endif │
00:09:52 verbose #58070 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58071 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58072 > │ let v65 : Async<bool> option = None │
00:09:52 verbose #58073 > │ let mutable _v65 = v65 │
00:09:52 verbose #58074 > │ async { │
00:09:52 verbose #58075 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:52 verbose #58076 > │ Async.CancellationToken │
00:09:52 verbose #58077 > │ let! v66 = v66 │
00:09:52 verbose #58078 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:52 verbose #58079 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:52 verbose #58080 > │ System.Net.Sockets.TcpClient () │
00:09:52 verbose #58081 > │ use v68 = v68 │
00:09:52 verbose #58082 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:52 verbose #58083 > │ try │
00:09:52 verbose #58084 > │ let v70 : string = "127.0.0.1" │
00:09:52 verbose #58085 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:52 verbose #58086 > │ (v70, v1, v67) │
00:09:52 verbose #58087 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:52 verbose #58088 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:52 verbose #58089 > │ let v74 : Async<unit> option = None │
00:09:52 verbose #58090 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:52 verbose #58091 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58092 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58093 > │ v76 │
00:09:52 verbose #58094 > │ #endif │
00:09:52 verbose #58095 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58096 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58097 > │ v77 │
00:09:52 verbose #58098 > │ #endif │
00:09:52 verbose #58099 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58100 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58101 > │ v78 │
00:09:52 verbose #58102 > │ #endif │
00:09:52 verbose #58103 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58104 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58105 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:52 verbose #58106 > │ Async.AwaitTask │
00:09:52 verbose #58107 > │ let v80 : Async<unit> = v79 v73 │
00:09:52 verbose #58108 > │ v80 │
00:09:52 verbose #58109 > │ #endif │
00:09:52 verbose #58110 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58111 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58112 > │ v81 │
00:09:52 verbose #58113 > │ #endif │
00:09:52 verbose #58114 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58115 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58116 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #58117 > │ v82 │
00:09:52 verbose #58118 > │ #endif │
00:09:52 verbose #58119 > │ |> fun x -> _v74 <- Some x │
00:09:52 verbose #58120 > │ let v83 : Async<unit> = _v74.Value │
00:09:52 verbose #58121 > │ do! v83 │
00:09:52 verbose #58122 > │ return true │
00:09:52 verbose #58123 > │ with ex -> │
00:09:52 verbose #58124 > │ let v84 : exn = ex │
00:09:52 verbose #58125 > │ let v85 : string option = None │
00:09:52 verbose #58126 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:52 verbose #58127 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58128 > │ let v87 : string = $"%A{v84}" │
00:09:52 verbose #58129 > │ v87 │
00:09:52 verbose #58130 > │ #endif │
00:09:52 verbose #58131 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58132 > │ let v88 : string = $"%A{v84}" │
00:09:52 verbose #58133 > │ v88 │
00:09:52 verbose #58134 > │ #endif │
00:09:52 verbose #58135 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58136 > │ let v89 : string = $"%A{v84}" │
00:09:52 verbose #58137 > │ v89 │
00:09:52 verbose #58138 > │ #endif │
00:09:52 verbose #58139 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58140 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58141 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:52 verbose #58142 > │ v90 │
00:09:52 verbose #58143 > │ #endif │
00:09:52 verbose #58144 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58145 > │ let v91 : string = $"%A{v84}" │
00:09:52 verbose #58146 > │ v91 │
00:09:52 verbose #58147 > │ #endif │
00:09:52 verbose #58148 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58149 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58150 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:52 verbose #58151 > │ v92 │
00:09:52 verbose #58152 > │ #endif │
00:09:52 verbose #58153 > │ |> fun x -> _v85 <- Some x │
00:09:52 verbose #58154 > │ let v93 : string = _v85.Value │
00:09:52 verbose #58155 > │ let v94 : US0 = US0_0 │
00:09:52 verbose #58156 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:52 verbose #58157 > │ let v96 : (unit -> string) = closure1() │
00:09:52 verbose #58158 > │ method1(v94, v95, v96) │
00:09:52 verbose #58159 > │ return false │
00:09:52 verbose #58160 > │ (* │
00:09:52 verbose #58161 > │ let v97 : bool = *) │
00:09:52 verbose #58162 > │ } │
00:09:52 verbose #58163 > │ |> fun x -> _v65 <- Some x │
00:09:52 verbose #58164 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:52 verbose #58165 > │ v98 │
00:09:52 verbose #58166 > │ #endif │
00:09:52 verbose #58167 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58168 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58169 > │ v99 │
00:09:52 verbose #58170 > │ #endif │
00:09:52 verbose #58171 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58172 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58173 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:52 verbose #58174 > │ v100 │
00:09:52 verbose #58175 > │ #endif │
00:09:52 verbose #58176 > │ |> fun x -> _v60 <- Some x │
00:09:52 verbose #58177 > │ let v101 : Async<bool> = _v60.Value │
00:09:52 verbose #58178 > │ let v102 : Async<US4> option = None │
00:09:52 verbose #58179 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:52 verbose #58180 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58181 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58182 > │ v104 │
00:09:52 verbose #58183 > │ #endif │
00:09:52 verbose #58184 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58185 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58186 > │ v105 │
00:09:52 verbose #58187 > │ #endif │
00:09:52 verbose #58188 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58189 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58190 > │ v106 │
00:09:52 verbose #58191 > │ #endif │
00:09:52 verbose #58192 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58193 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58194 > │ let v107 : Async<US4> option = None │
00:09:52 verbose #58195 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:52 verbose #58196 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58197 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58198 > │ v109 │
00:09:52 verbose #58199 > │ #endif │
00:09:52 verbose #58200 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58201 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58202 > │ v110 │
00:09:52 verbose #58203 > │ #endif │
00:09:52 verbose #58204 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58205 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58206 > │ v111 │
00:09:52 verbose #58207 > │ #endif │
00:09:52 verbose #58208 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58209 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58210 > │ let v112 : Async<US4> option = None │
00:09:52 verbose #58211 > │ let mutable _v112 = v112 │
00:09:52 verbose #58212 > │ async { │
00:09:52 verbose #58213 > │ let v113 : Async<Async<bool>> option = None │
00:09:52 verbose #58214 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:52 verbose #58215 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58216 > │ let v115 : Async<Async<bool>> = null |> │
00:09:52 verbose #58217 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58218 > │ v115 │
00:09:52 verbose #58219 > │ #endif │
00:09:52 verbose #58220 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58221 > │ let v116 : Async<Async<bool>> = null |> │
00:09:52 verbose #58222 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58223 > │ v116 │
00:09:52 verbose #58224 > │ #endif │
00:09:52 verbose #58225 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58226 > │ let v117 : Async<Async<bool>> = null |> │
00:09:52 verbose #58227 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58228 > │ v117 │
00:09:52 verbose #58229 > │ #endif │
00:09:52 verbose #58230 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58231 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58232 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:52 verbose #58233 > │ v118 │
00:09:52 verbose #58234 > │ #endif │
00:09:52 verbose #58235 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58236 > │ let v119 : Async<Async<bool>> = null |> │
00:09:52 verbose #58237 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58238 > │ v119 │
00:09:52 verbose #58239 > │ #endif │
00:09:52 verbose #58240 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58241 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58242 > │ let v120 : Async<Async<bool>> = │
00:09:52 verbose #58243 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:52 verbose #58244 > │ v120 │
00:09:52 verbose #58245 > │ #endif │
00:09:52 verbose #58246 > │ |> fun x -> _v113 <- Some x │
00:09:52 verbose #58247 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:52 verbose #58248 > │ let! v121 = v121 │
00:09:52 verbose #58249 > │ let v122 : Async<bool> = v121 │
00:09:52 verbose #58250 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:52 verbose #58251 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:52 verbose #58252 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58253 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58254 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58255 > │ v125 │
00:09:52 verbose #58256 > │ #endif │
00:09:52 verbose #58257 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58258 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58259 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58260 > │ v126 │
00:09:52 verbose #58261 > │ #endif │
00:09:52 verbose #58262 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58263 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58264 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58265 > │ v127 │
00:09:52 verbose #58266 > │ #endif │
00:09:52 verbose #58267 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58268 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58269 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:52 verbose #58270 > │ Async.Catch │
00:09:52 verbose #58271 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:52 verbose #58272 > │ v129 │
00:09:52 verbose #58273 > │ #endif │
00:09:52 verbose #58274 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58275 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58276 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58277 > │ v130 │
00:09:52 verbose #58278 > │ #endif │
00:09:52 verbose #58279 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58280 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58281 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:52 verbose #58282 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:52 verbose #58283 > │ v131 │
00:09:52 verbose #58284 > │ #endif │
00:09:52 verbose #58285 > │ |> fun x -> _v123 <- Some x │
00:09:52 verbose #58286 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:52 verbose #58287 > │ let v133 : Async<US5> option = None │
00:09:52 verbose #58288 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:52 verbose #58289 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58290 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #58291 > │ v135 │
00:09:52 verbose #58292 > │ #endif │
00:09:52 verbose #58293 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58294 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #58295 > │ v136 │
00:09:52 verbose #58296 > │ #endif │
00:09:52 verbose #58297 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58298 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #58299 > │ v137 │
00:09:52 verbose #58300 > │ #endif │
00:09:52 verbose #58301 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58302 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58303 > │ let v138 : Async<US5> option = None │
00:09:52 verbose #58304 > │ let mutable _v138 = v138 │
00:09:52 verbose #58305 > │ async { │
00:09:52 verbose #58306 > │ let! v132 = v132 │
00:09:52 verbose #58307 > │ let v139 : Choice<bool, exn> = v132 │
00:09:52 verbose #58308 > │ let v140 : US5 option = None │
00:09:52 verbose #58309 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:52 verbose #58310 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58311 > │ let v142 : US5 = null |> unbox<US5> │
00:09:52 verbose #58312 > │ v142 │
00:09:52 verbose #58313 > │ #endif │
00:09:52 verbose #58314 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58315 > │ let v143 : US5 = null |> unbox<US5> │
00:09:52 verbose #58316 > │ v143 │
00:09:52 verbose #58317 > │ #endif │
00:09:52 verbose #58318 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58319 > │ let v144 : US5 = null |> unbox<US5> │
00:09:52 verbose #58320 > │ v144 │
00:09:52 verbose #58321 > │ #endif │
00:09:52 verbose #58322 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58323 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58324 > │ let v145 : (bool -> US5) = closure15() │
00:09:52 verbose #58325 > │ let v146 : (exn -> US5) = closure16() │
00:09:52 verbose #58326 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:52 verbose #58327 > │ Choice2Of2 x -> v146 x │
00:09:52 verbose #58328 > │ v147 │
00:09:52 verbose #58329 > │ #endif │
00:09:52 verbose #58330 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58331 > │ let v148 : US5 = null |> unbox<US5> │
00:09:52 verbose #58332 > │ v148 │
00:09:52 verbose #58333 > │ #endif │
00:09:52 verbose #58334 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58335 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58336 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:52 verbose #58337 > │ v149 │
00:09:52 verbose #58338 > │ #endif │
00:09:52 verbose #58339 > │ |> fun x -> _v140 <- Some x │
00:09:52 verbose #58340 > │ let v150 : US5 = _v140.Value │
00:09:52 verbose #58341 > │ return v150 │
00:09:52 verbose #58342 > │ } │
00:09:52 verbose #58343 > │ |> fun x -> _v138 <- Some x │
00:09:52 verbose #58344 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:52 verbose #58345 > │ v151 │
00:09:52 verbose #58346 > │ #endif │
00:09:52 verbose #58347 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58348 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #58349 > │ v152 │
00:09:52 verbose #58350 > │ #endif │
00:09:52 verbose #58351 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58352 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58353 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:52 verbose #58354 > │ v153 │
00:09:52 verbose #58355 > │ #endif │
00:09:52 verbose #58356 > │ |> fun x -> _v133 <- Some x │
00:09:52 verbose #58357 > │ let v154 : Async<US5> = _v133.Value │
00:09:52 verbose #58358 > │ let v155 : Async<US6> option = None │
00:09:52 verbose #58359 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:52 verbose #58360 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58361 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #58362 > │ v157 │
00:09:52 verbose #58363 > │ #endif │
00:09:52 verbose #58364 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58365 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #58366 > │ v158 │
00:09:52 verbose #58367 > │ #endif │
00:09:52 verbose #58368 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58369 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #58370 > │ v159 │
00:09:52 verbose #58371 > │ #endif │
00:09:52 verbose #58372 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58373 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58374 > │ let v160 : Async<US6> option = None │
00:09:52 verbose #58375 > │ let mutable _v160 = v160 │
00:09:52 verbose #58376 > │ async { │
00:09:52 verbose #58377 > │ let! v154 = v154 │
00:09:52 verbose #58378 > │ let v161 : US5 = v154 │
00:09:52 verbose #58379 > │ let v167 : US6 = │
00:09:52 verbose #58380 > │ match v161 with │
00:09:52 verbose #58381 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:52 verbose #58382 > │ US6_0(v162) │
00:09:52 verbose #58383 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:52 verbose #58384 > │ US6_1(v164) │
00:09:52 verbose #58385 > │ return v167 │
00:09:52 verbose #58386 > │ } │
00:09:52 verbose #58387 > │ |> fun x -> _v160 <- Some x │
00:09:52 verbose #58388 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:52 verbose #58389 > │ v168 │
00:09:52 verbose #58390 > │ #endif │
00:09:52 verbose #58391 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58392 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #58393 > │ v169 │
00:09:52 verbose #58394 > │ #endif │
00:09:52 verbose #58395 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58396 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58397 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:52 verbose #58398 > │ v170 │
00:09:52 verbose #58399 > │ #endif │
00:09:52 verbose #58400 > │ |> fun x -> _v155 <- Some x │
00:09:52 verbose #58401 > │ let v171 : Async<US6> = _v155.Value │
00:09:52 verbose #58402 > │ let v172 : Async<US4> option = None │
00:09:52 verbose #58403 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:52 verbose #58404 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58405 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58406 > │ v174 │
00:09:52 verbose #58407 > │ #endif │
00:09:52 verbose #58408 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58409 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58410 > │ v175 │
00:09:52 verbose #58411 > │ #endif │
00:09:52 verbose #58412 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58413 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58414 > │ v176 │
00:09:52 verbose #58415 > │ #endif │
00:09:52 verbose #58416 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58417 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58418 > │ let v177 : Async<US4> option = None │
00:09:52 verbose #58419 > │ let mutable _v177 = v177 │
00:09:52 verbose #58420 > │ async { │
00:09:52 verbose #58421 > │ let! v171 = v171 │
00:09:52 verbose #58422 > │ let v178 : US6 = v171 │
00:09:52 verbose #58423 > │ let v204 : US4 = │
00:09:52 verbose #58424 > │ match v178 with │
00:09:52 verbose #58425 > │ | US6_1(v181) -> (* Error *) │
00:09:52 verbose #58426 > │ let v182 : string = $"%A{v181}" │
00:09:52 verbose #58427 > │ let v183 : string = "System.TimeoutException" │
00:09:52 verbose #58428 > │ let v184 : bool = v182.Contains v183 │
00:09:52 verbose #58429 > │ if v184 then │
00:09:52 verbose #58430 > │ let v185 : US0 = US0_1 │
00:09:52 verbose #58431 > │ let v186 : (unit -> string) = closure17() │
00:09:52 verbose #58432 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:52 verbose #58433 > │ method1(v185, v186, v187) │
00:09:52 verbose #58434 > │ US4_1 │
00:09:52 verbose #58435 > │ else │
00:09:52 verbose #58436 > │ let v189 : string option = None │
00:09:52 verbose #58437 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:52 verbose #58438 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58439 > │ let v191 : string = $"%A{v181}" │
00:09:52 verbose #58440 > │ v191 │
00:09:52 verbose #58441 > │ #endif │
00:09:52 verbose #58442 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58443 > │ let v192 : string = $"%A{v181}" │
00:09:52 verbose #58444 > │ v192 │
00:09:52 verbose #58445 > │ #endif │
00:09:52 verbose #58446 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58447 > │ let v193 : string = $"%A{v181}" │
00:09:52 verbose #58448 > │ v193 │
00:09:52 verbose #58449 > │ #endif │
00:09:52 verbose #58450 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58451 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58452 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:52 verbose #58453 > │ {v181.Message}" │
00:09:52 verbose #58454 > │ v194 │
00:09:52 verbose #58455 > │ #endif │
00:09:52 verbose #58456 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58457 > │ let v195 : string = $"%A{v181}" │
00:09:52 verbose #58458 > │ v195 │
00:09:52 verbose #58459 > │ #endif │
00:09:52 verbose #58460 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58461 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58462 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:52 verbose #58463 > │ v196 │
00:09:52 verbose #58464 > │ #endif │
00:09:52 verbose #58465 > │ |> fun x -> _v189 <- Some x │
00:09:52 verbose #58466 > │ let v197 : string = _v189.Value │
00:09:52 verbose #58467 > │ let v198 : US0 = US0_4 │
00:09:52 verbose #58468 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:52 verbose #58469 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:52 verbose #58470 > │ method1(v198, v199, v200) │
00:09:52 verbose #58471 > │ US4_1 │
00:09:52 verbose #58472 > │ | US6_0(v179) -> (* Ok *) │
00:09:52 verbose #58473 > │ US4_0(v179) │
00:09:52 verbose #58474 > │ return v204 │
00:09:52 verbose #58475 > │ } │
00:09:52 verbose #58476 > │ |> fun x -> _v177 <- Some x │
00:09:52 verbose #58477 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:52 verbose #58478 > │ v205 │
00:09:52 verbose #58479 > │ #endif │
00:09:52 verbose #58480 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58481 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58482 > │ v206 │
00:09:52 verbose #58483 > │ #endif │
00:09:52 verbose #58484 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58485 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58486 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:52 verbose #58487 > │ v207 │
00:09:52 verbose #58488 > │ #endif │
00:09:52 verbose #58489 > │ |> fun x -> _v172 <- Some x │
00:09:52 verbose #58490 > │ let v208 : Async<US4> = _v172.Value │
00:09:52 verbose #58491 > │ return! v208 │
00:09:52 verbose #58492 > │ } │
00:09:52 verbose #58493 > │ |> fun x -> _v112 <- Some x │
00:09:52 verbose #58494 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:52 verbose #58495 > │ v209 │
00:09:52 verbose #58496 > │ #endif │
00:09:52 verbose #58497 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58498 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58499 > │ v210 │
00:09:52 verbose #58500 > │ #endif │
00:09:52 verbose #58501 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58502 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58503 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:52 verbose #58504 > │ v211 │
00:09:52 verbose #58505 > │ #endif │
00:09:52 verbose #58506 > │ |> fun x -> _v107 <- Some x │
00:09:52 verbose #58507 > │ let v212 : Async<US4> = _v107.Value │
00:09:52 verbose #58508 > │ v212 │
00:09:52 verbose #58509 > │ #endif │
00:09:52 verbose #58510 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58511 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58512 > │ v213 │
00:09:52 verbose #58513 > │ #endif │
00:09:52 verbose #58514 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58515 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58516 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:52 verbose #58517 > │ v214 │
00:09:52 verbose #58518 > │ #endif │
00:09:52 verbose #58519 > │ |> fun x -> _v102 <- Some x │
00:09:52 verbose #58520 > │ let v215 : Async<US4> = _v102.Value │
00:09:52 verbose #58521 > │ let! v215 = v215 │
00:09:52 verbose #58522 > │ let v216 : US4 = v215 │
00:09:52 verbose #58523 > │ let v219 : bool = │
00:09:52 verbose #58524 > │ match v216 with │
00:09:52 verbose #58525 > │ | US4_1 -> (* None *) │
00:09:52 verbose #58526 > │ false │
00:09:52 verbose #58527 > │ | US4_0(v217) -> (* Some *) │
00:09:52 verbose #58528 > │ v217 │
00:09:52 verbose #58529 > │ return v219 │
00:09:52 verbose #58530 > │ } │
00:09:52 verbose #58531 > │ |> fun x -> _v59 <- Some x │
00:09:52 verbose #58532 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:52 verbose #58533 > │ v220 │
00:09:52 verbose #58534 > │ #endif │
00:09:52 verbose #58535 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58536 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58537 > │ v221 │
00:09:52 verbose #58538 > │ #endif │
00:09:52 verbose #58539 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58540 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58541 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:52 verbose #58542 > │ v222 │
00:09:52 verbose #58543 > │ #endif │
00:09:52 verbose #58544 > │ |> fun x -> _v54 <- Some x │
00:09:52 verbose #58545 > │ let v223 : Async<bool> = _v54.Value │
00:09:52 verbose #58546 > │ v223 │
00:09:52 verbose #58547 > │ let! v225 = v225 │
00:09:52 verbose #58548 > │ let v226 : bool = v225 │
00:09:52 verbose #58549 > │ let v227 : bool = v226 = false │
00:09:52 verbose #58550 > │ if v227 then │
00:09:52 verbose #58551 > │ return v1 │
00:09:52 verbose #58552 > │ (* │
00:09:52 verbose #58553 > │ () │
00:09:52 verbose #58554 > │ else │
00:09:52 verbose #58555 > │ *) else │
00:09:52 verbose #58556 > │ let v228 : int32 = v1 + 1 │
00:09:52 verbose #58557 > │ let v229 : Async<int32> = method7(v0, v228) │
00:09:52 verbose #58558 > │ return! v229 │
00:09:52 verbose #58559 > │ (* │
00:09:52 verbose #58560 > │ () │
00:09:52 verbose #58561 > │ *) │
00:09:52 verbose #58562 > │ } │
00:09:52 verbose #58563 > │ |> fun x -> _v7 <- Some x │
00:09:52 verbose #58564 > │ let v230 : Async<int32> = _v7 |> Option.get │
00:09:52 verbose #58565 > │ v230 │
00:09:52 verbose #58566 > │ #endif │
00:09:52 verbose #58567 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58568 > │ let v231 : Async<int32> = null |> unbox<Async<int32>> │
00:09:52 verbose #58569 > │ v231 │
00:09:52 verbose #58570 > │ #endif │
00:09:52 verbose #58571 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #58572 > │ let v232 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:09:52 verbose #58573 > │ v232 │
00:09:52 verbose #58574 > │ #endif │
00:09:52 verbose #58575 > │ |> fun x -> _v2 <- Some x │
00:09:52 verbose #58576 > │ let v233 : Async<int32> = _v2.Value │
00:09:52 verbose #58577 > │ v233 │
00:09:52 verbose #58578 > │ and closure20 () () : string = │
00:09:52 verbose #58579 > │ let v0 : string = "4" │
00:09:52 verbose #58580 > │ v0 │
00:09:52 verbose #58581 > │ and closure21 () () : string = │
00:09:52 verbose #58582 > │ let v0 : string = "wait_for_port_access" │
00:09:52 verbose #58583 > │ v0 │
00:09:52 verbose #58584 > │ and closure22 (v0 : int64) () : string = │
00:09:52 verbose #58585 > │ let v1 : (unit -> string) = closure1() │
00:09:52 verbose #58586 > │ let v2 : string = $"port: {5555} / retry: {v0} / {v1 ()}" │
00:09:52 verbose #58587 > │ v2 │
00:09:52 verbose #58588 > │ and method9 (v0 : int32 option, v1 : int64) : Async<int64> = │
00:09:52 verbose #58589 > │ let v2 : Async<int64> option = None │
00:09:52 verbose #58590 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:52 verbose #58591 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58592 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:09:52 verbose #58593 > │ v4 │
00:09:52 verbose #58594 > │ #endif │
00:09:52 verbose #58595 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58596 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:09:52 verbose #58597 > │ v5 │
00:09:52 verbose #58598 > │ #endif │
00:09:52 verbose #58599 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58600 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:52 verbose #58601 > │ v6 │
00:09:52 verbose #58602 > │ #endif │
00:09:52 verbose #58603 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58604 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58605 > │ let v7 : Async<int64> option = None │
00:09:52 verbose #58606 > │ let mutable _v7 = v7 │
00:09:52 verbose #58607 > │ async { │
00:09:52 verbose #58608 > │ let v8 : (int32 -> US3) = method8() │
00:09:52 verbose #58609 > │ let v9 : US3 = US3_1 │
00:09:52 verbose #58610 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:52 verbose #58611 > │ let v225 : Async<bool> = │
00:09:52 verbose #58612 > │ match v10 with │
00:09:52 verbose #58613 > │ | US3_1 -> (* None *) │
00:09:52 verbose #58614 > │ let v11 : Async<bool> option = None │
00:09:52 verbose #58615 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:52 verbose #58616 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58617 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58618 > │ v13 │
00:09:52 verbose #58619 > │ #endif │
00:09:52 verbose #58620 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58621 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58622 > │ v14 │
00:09:52 verbose #58623 > │ #endif │
00:09:52 verbose #58624 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58625 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58626 > │ v15 │
00:09:52 verbose #58627 > │ #endif │
00:09:52 verbose #58628 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58629 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58630 > │ let v16 : Async<bool> option = None │
00:09:52 verbose #58631 > │ let mutable _v16 = v16 │
00:09:52 verbose #58632 > │ async { │
00:09:52 verbose #58633 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:52 verbose #58634 > │ Async.CancellationToken │
00:09:52 verbose #58635 > │ let! v17 = v17 │
00:09:52 verbose #58636 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:52 verbose #58637 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:52 verbose #58638 > │ System.Net.Sockets.TcpClient () │
00:09:52 verbose #58639 > │ use v19 = v19 │
00:09:52 verbose #58640 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:52 verbose #58641 > │ try │
00:09:52 verbose #58642 > │ let v21 : string = "127.0.0.1" │
00:09:52 verbose #58643 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:52 verbose #58644 > │ (v21, 5555, v18) │
00:09:52 verbose #58645 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:52 verbose #58646 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:52 verbose #58647 > │ let v25 : Async<unit> option = None │
00:09:52 verbose #58648 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:52 verbose #58649 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58650 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58651 > │ v27 │
00:09:52 verbose #58652 > │ #endif │
00:09:52 verbose #58653 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58654 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58655 > │ v28 │
00:09:52 verbose #58656 > │ #endif │
00:09:52 verbose #58657 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58658 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58659 > │ v29 │
00:09:52 verbose #58660 > │ #endif │
00:09:52 verbose #58661 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58662 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58663 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:52 verbose #58664 > │ Async.AwaitTask │
00:09:52 verbose #58665 > │ let v31 : Async<unit> = v30 v24 │
00:09:52 verbose #58666 > │ v31 │
00:09:52 verbose #58667 > │ #endif │
00:09:52 verbose #58668 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58669 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58670 > │ v32 │
00:09:52 verbose #58671 > │ #endif │
00:09:52 verbose #58672 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58673 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58674 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #58675 > │ v33 │
00:09:52 verbose #58676 > │ #endif │
00:09:52 verbose #58677 > │ |> fun x -> _v25 <- Some x │
00:09:52 verbose #58678 > │ let v34 : Async<unit> = _v25.Value │
00:09:52 verbose #58679 > │ do! v34 │
00:09:52 verbose #58680 > │ return true │
00:09:52 verbose #58681 > │ with ex -> │
00:09:52 verbose #58682 > │ let v35 : exn = ex │
00:09:52 verbose #58683 > │ let v36 : string option = None │
00:09:52 verbose #58684 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:52 verbose #58685 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58686 > │ let v38 : string = $"%A{v35}" │
00:09:52 verbose #58687 > │ v38 │
00:09:52 verbose #58688 > │ #endif │
00:09:52 verbose #58689 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58690 > │ let v39 : string = $"%A{v35}" │
00:09:52 verbose #58691 > │ v39 │
00:09:52 verbose #58692 > │ #endif │
00:09:52 verbose #58693 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58694 > │ let v40 : string = $"%A{v35}" │
00:09:52 verbose #58695 > │ v40 │
00:09:52 verbose #58696 > │ #endif │
00:09:52 verbose #58697 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58698 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58699 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:52 verbose #58700 > │ v41 │
00:09:52 verbose #58701 > │ #endif │
00:09:52 verbose #58702 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58703 > │ let v42 : string = $"%A{v35}" │
00:09:52 verbose #58704 > │ v42 │
00:09:52 verbose #58705 > │ #endif │
00:09:52 verbose #58706 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58707 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58708 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:52 verbose #58709 > │ v43 │
00:09:52 verbose #58710 > │ #endif │
00:09:52 verbose #58711 > │ |> fun x -> _v36 <- Some x │
00:09:52 verbose #58712 > │ let v44 : string = _v36.Value │
00:09:52 verbose #58713 > │ let v45 : US0 = US0_0 │
00:09:52 verbose #58714 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:52 verbose #58715 > │ let v47 : (unit -> string) = closure1() │
00:09:52 verbose #58716 > │ method1(v45, v46, v47) │
00:09:52 verbose #58717 > │ return false │
00:09:52 verbose #58718 > │ (* │
00:09:52 verbose #58719 > │ let v48 : bool = *) │
00:09:52 verbose #58720 > │ } │
00:09:52 verbose #58721 > │ |> fun x -> _v16 <- Some x │
00:09:52 verbose #58722 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:52 verbose #58723 > │ v49 │
00:09:52 verbose #58724 > │ #endif │
00:09:52 verbose #58725 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58726 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58727 > │ v50 │
00:09:52 verbose #58728 > │ #endif │
00:09:52 verbose #58729 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58730 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58731 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:52 verbose #58732 > │ v51 │
00:09:52 verbose #58733 > │ #endif │
00:09:52 verbose #58734 > │ |> fun x -> _v11 <- Some x │
00:09:52 verbose #58735 > │ let v52 : Async<bool> = _v11.Value │
00:09:52 verbose #58736 > │ v52 │
00:09:52 verbose #58737 > │ | US3_0(v53) -> (* Some *) │
00:09:52 verbose #58738 > │ let v54 : Async<bool> option = None │
00:09:52 verbose #58739 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:52 verbose #58740 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58741 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58742 > │ v56 │
00:09:52 verbose #58743 > │ #endif │
00:09:52 verbose #58744 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58745 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58746 > │ v57 │
00:09:52 verbose #58747 > │ #endif │
00:09:52 verbose #58748 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58749 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58750 > │ v58 │
00:09:52 verbose #58751 > │ #endif │
00:09:52 verbose #58752 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58753 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58754 > │ let v59 : Async<bool> option = None │
00:09:52 verbose #58755 > │ let mutable _v59 = v59 │
00:09:52 verbose #58756 > │ async { │
00:09:52 verbose #58757 > │ let v60 : Async<bool> option = None │
00:09:52 verbose #58758 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:52 verbose #58759 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58760 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58761 > │ v62 │
00:09:52 verbose #58762 > │ #endif │
00:09:52 verbose #58763 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58764 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58765 > │ v63 │
00:09:52 verbose #58766 > │ #endif │
00:09:52 verbose #58767 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58768 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58769 > │ v64 │
00:09:52 verbose #58770 > │ #endif │
00:09:52 verbose #58771 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58772 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58773 > │ let v65 : Async<bool> option = None │
00:09:52 verbose #58774 > │ let mutable _v65 = v65 │
00:09:52 verbose #58775 > │ async { │
00:09:52 verbose #58776 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:52 verbose #58777 > │ Async.CancellationToken │
00:09:52 verbose #58778 > │ let! v66 = v66 │
00:09:52 verbose #58779 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:52 verbose #58780 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:52 verbose #58781 > │ System.Net.Sockets.TcpClient () │
00:09:52 verbose #58782 > │ use v68 = v68 │
00:09:52 verbose #58783 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:52 verbose #58784 > │ try │
00:09:52 verbose #58785 > │ let v70 : string = "127.0.0.1" │
00:09:52 verbose #58786 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:52 verbose #58787 > │ (v70, 5555, v67) │
00:09:52 verbose #58788 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:52 verbose #58789 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:52 verbose #58790 > │ let v74 : Async<unit> option = None │
00:09:52 verbose #58791 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:52 verbose #58792 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58793 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58794 > │ v76 │
00:09:52 verbose #58795 > │ #endif │
00:09:52 verbose #58796 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58797 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58798 > │ v77 │
00:09:52 verbose #58799 > │ #endif │
00:09:52 verbose #58800 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58801 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58802 > │ v78 │
00:09:52 verbose #58803 > │ #endif │
00:09:52 verbose #58804 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58805 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58806 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:52 verbose #58807 > │ Async.AwaitTask │
00:09:52 verbose #58808 > │ let v80 : Async<unit> = v79 v73 │
00:09:52 verbose #58809 > │ v80 │
00:09:52 verbose #58810 > │ #endif │
00:09:52 verbose #58811 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58812 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #58813 > │ v81 │
00:09:52 verbose #58814 > │ #endif │
00:09:52 verbose #58815 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58816 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58817 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #58818 > │ v82 │
00:09:52 verbose #58819 > │ #endif │
00:09:52 verbose #58820 > │ |> fun x -> _v74 <- Some x │
00:09:52 verbose #58821 > │ let v83 : Async<unit> = _v74.Value │
00:09:52 verbose #58822 > │ do! v83 │
00:09:52 verbose #58823 > │ return true │
00:09:52 verbose #58824 > │ with ex -> │
00:09:52 verbose #58825 > │ let v84 : exn = ex │
00:09:52 verbose #58826 > │ let v85 : string option = None │
00:09:52 verbose #58827 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:52 verbose #58828 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58829 > │ let v87 : string = $"%A{v84}" │
00:09:52 verbose #58830 > │ v87 │
00:09:52 verbose #58831 > │ #endif │
00:09:52 verbose #58832 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58833 > │ let v88 : string = $"%A{v84}" │
00:09:52 verbose #58834 > │ v88 │
00:09:52 verbose #58835 > │ #endif │
00:09:52 verbose #58836 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58837 > │ let v89 : string = $"%A{v84}" │
00:09:52 verbose #58838 > │ v89 │
00:09:52 verbose #58839 > │ #endif │
00:09:52 verbose #58840 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58841 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58842 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:52 verbose #58843 > │ v90 │
00:09:52 verbose #58844 > │ #endif │
00:09:52 verbose #58845 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58846 > │ let v91 : string = $"%A{v84}" │
00:09:52 verbose #58847 > │ v91 │
00:09:52 verbose #58848 > │ #endif │
00:09:52 verbose #58849 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58850 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58851 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:52 verbose #58852 > │ v92 │
00:09:52 verbose #58853 > │ #endif │
00:09:52 verbose #58854 > │ |> fun x -> _v85 <- Some x │
00:09:52 verbose #58855 > │ let v93 : string = _v85.Value │
00:09:52 verbose #58856 > │ let v94 : US0 = US0_0 │
00:09:52 verbose #58857 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:52 verbose #58858 > │ let v96 : (unit -> string) = closure1() │
00:09:52 verbose #58859 > │ method1(v94, v95, v96) │
00:09:52 verbose #58860 > │ return false │
00:09:52 verbose #58861 > │ (* │
00:09:52 verbose #58862 > │ let v97 : bool = *) │
00:09:52 verbose #58863 > │ } │
00:09:52 verbose #58864 > │ |> fun x -> _v65 <- Some x │
00:09:52 verbose #58865 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:52 verbose #58866 > │ v98 │
00:09:52 verbose #58867 > │ #endif │
00:09:52 verbose #58868 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58869 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #58870 > │ v99 │
00:09:52 verbose #58871 > │ #endif │
00:09:52 verbose #58872 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58873 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58874 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:52 verbose #58875 > │ v100 │
00:09:52 verbose #58876 > │ #endif │
00:09:52 verbose #58877 > │ |> fun x -> _v60 <- Some x │
00:09:52 verbose #58878 > │ let v101 : Async<bool> = _v60.Value │
00:09:52 verbose #58879 > │ let v102 : Async<US4> option = None │
00:09:52 verbose #58880 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:52 verbose #58881 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58882 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58883 > │ v104 │
00:09:52 verbose #58884 > │ #endif │
00:09:52 verbose #58885 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58886 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58887 > │ v105 │
00:09:52 verbose #58888 > │ #endif │
00:09:52 verbose #58889 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58890 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58891 > │ v106 │
00:09:52 verbose #58892 > │ #endif │
00:09:52 verbose #58893 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58894 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58895 > │ let v107 : Async<US4> option = None │
00:09:52 verbose #58896 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:52 verbose #58897 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58898 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58899 > │ v109 │
00:09:52 verbose #58900 > │ #endif │
00:09:52 verbose #58901 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58902 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58903 > │ v110 │
00:09:52 verbose #58904 > │ #endif │
00:09:52 verbose #58905 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58906 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #58907 > │ v111 │
00:09:52 verbose #58908 > │ #endif │
00:09:52 verbose #58909 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58910 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58911 > │ let v112 : Async<US4> option = None │
00:09:52 verbose #58912 > │ let mutable _v112 = v112 │
00:09:52 verbose #58913 > │ async { │
00:09:52 verbose #58914 > │ let v113 : Async<Async<bool>> option = None │
00:09:52 verbose #58915 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:52 verbose #58916 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58917 > │ let v115 : Async<Async<bool>> = null |> │
00:09:52 verbose #58918 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58919 > │ v115 │
00:09:52 verbose #58920 > │ #endif │
00:09:52 verbose #58921 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58922 > │ let v116 : Async<Async<bool>> = null |> │
00:09:52 verbose #58923 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58924 > │ v116 │
00:09:52 verbose #58925 > │ #endif │
00:09:52 verbose #58926 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58927 > │ let v117 : Async<Async<bool>> = null |> │
00:09:52 verbose #58928 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58929 > │ v117 │
00:09:52 verbose #58930 > │ #endif │
00:09:52 verbose #58931 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58932 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58933 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:52 verbose #58934 > │ v118 │
00:09:52 verbose #58935 > │ #endif │
00:09:52 verbose #58936 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58937 > │ let v119 : Async<Async<bool>> = null |> │
00:09:52 verbose #58938 > │ unbox<Async<Async<bool>>> │
00:09:52 verbose #58939 > │ v119 │
00:09:52 verbose #58940 > │ #endif │
00:09:52 verbose #58941 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58942 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58943 > │ let v120 : Async<Async<bool>> = │
00:09:52 verbose #58944 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:52 verbose #58945 > │ v120 │
00:09:52 verbose #58946 > │ #endif │
00:09:52 verbose #58947 > │ |> fun x -> _v113 <- Some x │
00:09:52 verbose #58948 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:52 verbose #58949 > │ let! v121 = v121 │
00:09:52 verbose #58950 > │ let v122 : Async<bool> = v121 │
00:09:52 verbose #58951 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:52 verbose #58952 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:52 verbose #58953 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58954 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58955 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58956 > │ v125 │
00:09:52 verbose #58957 > │ #endif │
00:09:52 verbose #58958 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58959 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58960 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58961 > │ v126 │
00:09:52 verbose #58962 > │ #endif │
00:09:52 verbose #58963 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58964 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58965 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58966 > │ v127 │
00:09:52 verbose #58967 > │ #endif │
00:09:52 verbose #58968 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #58969 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #58970 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:52 verbose #58971 > │ Async.Catch │
00:09:52 verbose #58972 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:52 verbose #58973 > │ v129 │
00:09:52 verbose #58974 > │ #endif │
00:09:52 verbose #58975 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #58976 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:52 verbose #58977 > │ unbox<Async<Choice<bool, exn>>> │
00:09:52 verbose #58978 > │ v130 │
00:09:52 verbose #58979 > │ #endif │
00:09:52 verbose #58980 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #58981 > │ FABLE_COMPILER_DART │
00:09:52 verbose #58982 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:52 verbose #58983 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:52 verbose #58984 > │ v131 │
00:09:52 verbose #58985 > │ #endif │
00:09:52 verbose #58986 > │ |> fun x -> _v123 <- Some x │
00:09:52 verbose #58987 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:52 verbose #58988 > │ let v133 : Async<US5> option = None │
00:09:52 verbose #58989 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:52 verbose #58990 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #58991 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #58992 > │ v135 │
00:09:52 verbose #58993 > │ #endif │
00:09:52 verbose #58994 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #58995 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #58996 > │ v136 │
00:09:52 verbose #58997 > │ #endif │
00:09:52 verbose #58998 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #58999 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #59000 > │ v137 │
00:09:52 verbose #59001 > │ #endif │
00:09:52 verbose #59002 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59003 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59004 > │ let v138 : Async<US5> option = None │
00:09:52 verbose #59005 > │ let mutable _v138 = v138 │
00:09:52 verbose #59006 > │ async { │
00:09:52 verbose #59007 > │ let! v132 = v132 │
00:09:52 verbose #59008 > │ let v139 : Choice<bool, exn> = v132 │
00:09:52 verbose #59009 > │ let v140 : US5 option = None │
00:09:52 verbose #59010 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:52 verbose #59011 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59012 > │ let v142 : US5 = null |> unbox<US5> │
00:09:52 verbose #59013 > │ v142 │
00:09:52 verbose #59014 > │ #endif │
00:09:52 verbose #59015 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59016 > │ let v143 : US5 = null |> unbox<US5> │
00:09:52 verbose #59017 > │ v143 │
00:09:52 verbose #59018 > │ #endif │
00:09:52 verbose #59019 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59020 > │ let v144 : US5 = null |> unbox<US5> │
00:09:52 verbose #59021 > │ v144 │
00:09:52 verbose #59022 > │ #endif │
00:09:52 verbose #59023 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59024 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59025 > │ let v145 : (bool -> US5) = closure15() │
00:09:52 verbose #59026 > │ let v146 : (exn -> US5) = closure16() │
00:09:52 verbose #59027 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:52 verbose #59028 > │ Choice2Of2 x -> v146 x │
00:09:52 verbose #59029 > │ v147 │
00:09:52 verbose #59030 > │ #endif │
00:09:52 verbose #59031 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59032 > │ let v148 : US5 = null |> unbox<US5> │
00:09:52 verbose #59033 > │ v148 │
00:09:52 verbose #59034 > │ #endif │
00:09:52 verbose #59035 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59036 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59037 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:52 verbose #59038 > │ v149 │
00:09:52 verbose #59039 > │ #endif │
00:09:52 verbose #59040 > │ |> fun x -> _v140 <- Some x │
00:09:52 verbose #59041 > │ let v150 : US5 = _v140.Value │
00:09:52 verbose #59042 > │ return v150 │
00:09:52 verbose #59043 > │ } │
00:09:52 verbose #59044 > │ |> fun x -> _v138 <- Some x │
00:09:52 verbose #59045 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:52 verbose #59046 > │ v151 │
00:09:52 verbose #59047 > │ #endif │
00:09:52 verbose #59048 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59049 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:52 verbose #59050 > │ v152 │
00:09:52 verbose #59051 > │ #endif │
00:09:52 verbose #59052 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59053 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59054 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:52 verbose #59055 > │ v153 │
00:09:52 verbose #59056 > │ #endif │
00:09:52 verbose #59057 > │ |> fun x -> _v133 <- Some x │
00:09:52 verbose #59058 > │ let v154 : Async<US5> = _v133.Value │
00:09:52 verbose #59059 > │ let v155 : Async<US6> option = None │
00:09:52 verbose #59060 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:52 verbose #59061 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59062 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #59063 > │ v157 │
00:09:52 verbose #59064 > │ #endif │
00:09:52 verbose #59065 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59066 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #59067 > │ v158 │
00:09:52 verbose #59068 > │ #endif │
00:09:52 verbose #59069 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59070 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #59071 > │ v159 │
00:09:52 verbose #59072 > │ #endif │
00:09:52 verbose #59073 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59074 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59075 > │ let v160 : Async<US6> option = None │
00:09:52 verbose #59076 > │ let mutable _v160 = v160 │
00:09:52 verbose #59077 > │ async { │
00:09:52 verbose #59078 > │ let! v154 = v154 │
00:09:52 verbose #59079 > │ let v161 : US5 = v154 │
00:09:52 verbose #59080 > │ let v167 : US6 = │
00:09:52 verbose #59081 > │ match v161 with │
00:09:52 verbose #59082 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:52 verbose #59083 > │ US6_0(v162) │
00:09:52 verbose #59084 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:52 verbose #59085 > │ US6_1(v164) │
00:09:52 verbose #59086 > │ return v167 │
00:09:52 verbose #59087 > │ } │
00:09:52 verbose #59088 > │ |> fun x -> _v160 <- Some x │
00:09:52 verbose #59089 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:52 verbose #59090 > │ v168 │
00:09:52 verbose #59091 > │ #endif │
00:09:52 verbose #59092 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59093 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:52 verbose #59094 > │ v169 │
00:09:52 verbose #59095 > │ #endif │
00:09:52 verbose #59096 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59097 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59098 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:52 verbose #59099 > │ v170 │
00:09:52 verbose #59100 > │ #endif │
00:09:52 verbose #59101 > │ |> fun x -> _v155 <- Some x │
00:09:52 verbose #59102 > │ let v171 : Async<US6> = _v155.Value │
00:09:52 verbose #59103 > │ let v172 : Async<US4> option = None │
00:09:52 verbose #59104 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:52 verbose #59105 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59106 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #59107 > │ v174 │
00:09:52 verbose #59108 > │ #endif │
00:09:52 verbose #59109 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59110 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #59111 > │ v175 │
00:09:52 verbose #59112 > │ #endif │
00:09:52 verbose #59113 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59114 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #59115 > │ v176 │
00:09:52 verbose #59116 > │ #endif │
00:09:52 verbose #59117 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59118 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59119 > │ let v177 : Async<US4> option = None │
00:09:52 verbose #59120 > │ let mutable _v177 = v177 │
00:09:52 verbose #59121 > │ async { │
00:09:52 verbose #59122 > │ let! v171 = v171 │
00:09:52 verbose #59123 > │ let v178 : US6 = v171 │
00:09:52 verbose #59124 > │ let v204 : US4 = │
00:09:52 verbose #59125 > │ match v178 with │
00:09:52 verbose #59126 > │ | US6_1(v181) -> (* Error *) │
00:09:52 verbose #59127 > │ let v182 : string = $"%A{v181}" │
00:09:52 verbose #59128 > │ let v183 : string = "System.TimeoutException" │
00:09:52 verbose #59129 > │ let v184 : bool = v182.Contains v183 │
00:09:52 verbose #59130 > │ if v184 then │
00:09:52 verbose #59131 > │ let v185 : US0 = US0_1 │
00:09:52 verbose #59132 > │ let v186 : (unit -> string) = closure17() │
00:09:52 verbose #59133 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:52 verbose #59134 > │ method1(v185, v186, v187) │
00:09:52 verbose #59135 > │ US4_1 │
00:09:52 verbose #59136 > │ else │
00:09:52 verbose #59137 > │ let v189 : string option = None │
00:09:52 verbose #59138 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:52 verbose #59139 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59140 > │ let v191 : string = $"%A{v181}" │
00:09:52 verbose #59141 > │ v191 │
00:09:52 verbose #59142 > │ #endif │
00:09:52 verbose #59143 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59144 > │ let v192 : string = $"%A{v181}" │
00:09:52 verbose #59145 > │ v192 │
00:09:52 verbose #59146 > │ #endif │
00:09:52 verbose #59147 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59148 > │ let v193 : string = $"%A{v181}" │
00:09:52 verbose #59149 > │ v193 │
00:09:52 verbose #59150 > │ #endif │
00:09:52 verbose #59151 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59152 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59153 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:52 verbose #59154 > │ {v181.Message}" │
00:09:52 verbose #59155 > │ v194 │
00:09:52 verbose #59156 > │ #endif │
00:09:52 verbose #59157 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59158 > │ let v195 : string = $"%A{v181}" │
00:09:52 verbose #59159 > │ v195 │
00:09:52 verbose #59160 > │ #endif │
00:09:52 verbose #59161 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59162 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59163 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:52 verbose #59164 > │ v196 │
00:09:52 verbose #59165 > │ #endif │
00:09:52 verbose #59166 > │ |> fun x -> _v189 <- Some x │
00:09:52 verbose #59167 > │ let v197 : string = _v189.Value │
00:09:52 verbose #59168 > │ let v198 : US0 = US0_4 │
00:09:52 verbose #59169 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:52 verbose #59170 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:52 verbose #59171 > │ method1(v198, v199, v200) │
00:09:52 verbose #59172 > │ US4_1 │
00:09:52 verbose #59173 > │ | US6_0(v179) -> (* Ok *) │
00:09:52 verbose #59174 > │ US4_0(v179) │
00:09:52 verbose #59175 > │ return v204 │
00:09:52 verbose #59176 > │ } │
00:09:52 verbose #59177 > │ |> fun x -> _v177 <- Some x │
00:09:52 verbose #59178 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:52 verbose #59179 > │ v205 │
00:09:52 verbose #59180 > │ #endif │
00:09:52 verbose #59181 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59182 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #59183 > │ v206 │
00:09:52 verbose #59184 > │ #endif │
00:09:52 verbose #59185 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59186 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59187 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:52 verbose #59188 > │ v207 │
00:09:52 verbose #59189 > │ #endif │
00:09:52 verbose #59190 > │ |> fun x -> _v172 <- Some x │
00:09:52 verbose #59191 > │ let v208 : Async<US4> = _v172.Value │
00:09:52 verbose #59192 > │ return! v208 │
00:09:52 verbose #59193 > │ } │
00:09:52 verbose #59194 > │ |> fun x -> _v112 <- Some x │
00:09:52 verbose #59195 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:52 verbose #59196 > │ v209 │
00:09:52 verbose #59197 > │ #endif │
00:09:52 verbose #59198 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59199 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #59200 > │ v210 │
00:09:52 verbose #59201 > │ #endif │
00:09:52 verbose #59202 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59203 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59204 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:52 verbose #59205 > │ v211 │
00:09:52 verbose #59206 > │ #endif │
00:09:52 verbose #59207 > │ |> fun x -> _v107 <- Some x │
00:09:52 verbose #59208 > │ let v212 : Async<US4> = _v107.Value │
00:09:52 verbose #59209 > │ v212 │
00:09:52 verbose #59210 > │ #endif │
00:09:52 verbose #59211 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59212 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:52 verbose #59213 > │ v213 │
00:09:52 verbose #59214 > │ #endif │
00:09:52 verbose #59215 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59216 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59217 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:52 verbose #59218 > │ v214 │
00:09:52 verbose #59219 > │ #endif │
00:09:52 verbose #59220 > │ |> fun x -> _v102 <- Some x │
00:09:52 verbose #59221 > │ let v215 : Async<US4> = _v102.Value │
00:09:52 verbose #59222 > │ let! v215 = v215 │
00:09:52 verbose #59223 > │ let v216 : US4 = v215 │
00:09:52 verbose #59224 > │ let v219 : bool = │
00:09:52 verbose #59225 > │ match v216 with │
00:09:52 verbose #59226 > │ | US4_1 -> (* None *) │
00:09:52 verbose #59227 > │ false │
00:09:52 verbose #59228 > │ | US4_0(v217) -> (* Some *) │
00:09:52 verbose #59229 > │ v217 │
00:09:52 verbose #59230 > │ return v219 │
00:09:52 verbose #59231 > │ } │
00:09:52 verbose #59232 > │ |> fun x -> _v59 <- Some x │
00:09:52 verbose #59233 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:52 verbose #59234 > │ v220 │
00:09:52 verbose #59235 > │ #endif │
00:09:52 verbose #59236 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59237 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:52 verbose #59238 > │ v221 │
00:09:52 verbose #59239 > │ #endif │
00:09:52 verbose #59240 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59241 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59242 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:52 verbose #59243 > │ v222 │
00:09:52 verbose #59244 > │ #endif │
00:09:52 verbose #59245 > │ |> fun x -> _v54 <- Some x │
00:09:52 verbose #59246 > │ let v223 : Async<bool> = _v54.Value │
00:09:52 verbose #59247 > │ v223 │
00:09:52 verbose #59248 > │ let! v225 = v225 │
00:09:52 verbose #59249 > │ let v226 : bool = v225 │
00:09:52 verbose #59250 > │ let v227 : bool = v226 = false │
00:09:52 verbose #59251 > │ if v227 then │
00:09:52 verbose #59252 > │ return v1 │
00:09:52 verbose #59253 > │ (* │
00:09:52 verbose #59254 > │ () │
00:09:52 verbose #59255 > │ else │
00:09:52 verbose #59256 > │ *) else │
00:09:52 verbose #59257 > │ let v228 : int64 = v1 % 100L │
00:09:52 verbose #59258 > │ let v229 : bool = v228 = 0L │
00:09:52 verbose #59259 > │ if v229 then │
00:09:52 verbose #59260 > │ let v230 : US0 = US0_0 │
00:09:52 verbose #59261 > │ let v231 : (unit -> string) = closure21() │
00:09:52 verbose #59262 > │ let v232 : (unit -> string) = closure22(v1) │
00:09:52 verbose #59263 > │ method1(v230, v231, v232) │
00:09:52 verbose #59264 > │ let v233 : Async<unit> option = None │
00:09:52 verbose #59265 > │ let v234 : bool = true in let mutable _v233 = v233 │
00:09:52 verbose #59266 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59267 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59268 > │ v235 │
00:09:52 verbose #59269 > │ #endif │
00:09:52 verbose #59270 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59271 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59272 > │ v236 │
00:09:52 verbose #59273 > │ #endif │
00:09:52 verbose #59274 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59275 > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59276 > │ v237 │
00:09:52 verbose #59277 > │ #endif │
00:09:52 verbose #59278 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59279 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59280 > │ let v238 : (int32 -> Async<unit>) = Async.Sleep │
00:09:52 verbose #59281 > │ let v239 : Async<unit> = v238 10 │
00:09:52 verbose #59282 > │ v239 │
00:09:52 verbose #59283 > │ #endif │
00:09:52 verbose #59284 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59285 > │ let v240 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59286 > │ v240 │
00:09:52 verbose #59287 > │ #endif │
00:09:52 verbose #59288 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59289 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59290 > │ let v241 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #59291 > │ v241 │
00:09:52 verbose #59292 > │ #endif │
00:09:52 verbose #59293 > │ |> fun x -> _v233 <- Some x │
00:09:52 verbose #59294 > │ let v242 : Async<unit> = _v233.Value │
00:09:52 verbose #59295 > │ do! v242 │
00:09:52 verbose #59296 > │ let v243 : int64 = v1 + 1L │
00:09:52 verbose #59297 > │ let v244 : Async<int64> = method9(v0, v243) │
00:09:52 verbose #59298 > │ return! v244 │
00:09:52 verbose #59299 > │ (* │
00:09:52 verbose #59300 > │ () │
00:09:52 verbose #59301 > │ *) │
00:09:52 verbose #59302 > │ } │
00:09:52 verbose #59303 > │ |> fun x -> _v7 <- Some x │
00:09:52 verbose #59304 > │ let v245 : Async<int64> = _v7 |> Option.get │
00:09:52 verbose #59305 > │ v245 │
00:09:52 verbose #59306 > │ #endif │
00:09:52 verbose #59307 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59308 > │ let v246 : Async<int64> = null |> unbox<Async<int64>> │
00:09:52 verbose #59309 > │ v246 │
00:09:52 verbose #59310 > │ #endif │
00:09:52 verbose #59311 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59312 > │ let v247 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:52 verbose #59313 > │ v247 │
00:09:52 verbose #59314 > │ #endif │
00:09:52 verbose #59315 > │ |> fun x -> _v2 <- Some x │
00:09:52 verbose #59316 > │ let v248 : Async<int64> = _v2.Value │
00:09:52 verbose #59317 > │ v248 │
00:09:52 verbose #59318 > │ and closure23 () () : string = │
00:09:52 verbose #59319 > │ let v0 : string = "5" │
00:09:52 verbose #59320 > │ v0 │
00:09:52 verbose #59321 > │ and closure24 () () : string = │
00:09:52 verbose #59322 > │ let v0 : string = "6" │
00:09:52 verbose #59323 > │ v0 │
00:09:52 verbose #59324 > │ and closure25 () struct (v0 : int32, v1 : int64) : US8 = │
00:09:52 verbose #59325 > │ US8_0(v0, v1) │
00:09:52 verbose #59326 > │ and closure26 () (v0 : exn) : US8 = │
00:09:52 verbose #59327 > │ US8_1(v0) │
00:09:52 verbose #59328 > │ and closure27 () () : string = │
00:09:52 verbose #59329 > │ let v0 : (unit -> string) = closure1() │
00:09:52 verbose #59330 > │ let v1 : string = $"timeout: {15000} / {v0 ()}" │
00:09:52 verbose #59331 > │ v1 │
00:09:52 verbose #59332 > │ and method10 (v0 : bool) : bool = │
00:09:52 verbose #59333 > │ v0 │
00:09:52 verbose #59334 > │ and method0 () : unit = │
00:09:52 verbose #59335 > │ let v0 : Async<struct (int32 * int64)> option = None │
00:09:52 verbose #59336 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:52 verbose #59337 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59338 > │ let v2 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:52 verbose #59339 > │ (int32 * int64)>> │
00:09:52 verbose #59340 > │ v2 │
00:09:52 verbose #59341 > │ #endif │
00:09:52 verbose #59342 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59343 > │ let v3 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:52 verbose #59344 > │ (int32 * int64)>> │
00:09:52 verbose #59345 > │ v3 │
00:09:52 verbose #59346 > │ #endif │
00:09:52 verbose #59347 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59348 > │ let v4 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:52 verbose #59349 > │ (int32 * int64)>> │
00:09:52 verbose #59350 > │ v4 │
00:09:52 verbose #59351 > │ #endif │
00:09:52 verbose #59352 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59353 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59354 > │ let v5 : Async<struct (int32 * int64)> option = None │
00:09:52 verbose #59355 > │ let mutable _v5 = v5 │
00:09:52 verbose #59356 > │ async { │
00:09:52 verbose #59357 > │ let v6 : US0 = US0_1 │
00:09:52 verbose #59358 > │ let v7 : (unit -> string) = closure0() │
00:09:52 verbose #59359 > │ let v8 : (unit -> string) = closure1() │
00:09:52 verbose #59360 > │ method1(v6, v7, v8) │
00:09:52 verbose #59361 > │ let v9 : Async<unit> option = None │
00:09:52 verbose #59362 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:52 verbose #59363 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59364 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59365 > │ v11 │
00:09:52 verbose #59366 > │ #endif │
00:09:52 verbose #59367 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59368 > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59369 > │ v12 │
00:09:52 verbose #59370 > │ #endif │
00:09:52 verbose #59371 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59372 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59373 > │ v13 │
00:09:52 verbose #59374 > │ #endif │
00:09:52 verbose #59375 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59376 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59377 > │ let v14 : Async<unit> option = None │
00:09:52 verbose #59378 > │ let mutable _v14 = v14 │
00:09:52 verbose #59379 > │ async { │
00:09:52 verbose #59380 > │ let v15 : US0 = US0_1 │
00:09:52 verbose #59381 > │ let v16 : (unit -> string) = closure6() │
00:09:52 verbose #59382 > │ method1(v15, v16, v8) │
00:09:52 verbose #59383 > │ let v17 : (string -> System.Net.IPAddress) = System.Net.IPAddress.Parse │
00:09:52 verbose #59384 > │ let v18 : string = "127.0.0.1" │
00:09:52 verbose #59385 > │ let v19 : System.Net.IPAddress = v17 v18 │
00:09:52 verbose #59386 > │ let v20 : System.Net.Sockets.TcpListener = new │
00:09:52 verbose #59387 > │ System.Net.Sockets.TcpListener (v19, 5555) │
00:09:52 verbose #59388 > │ use v20 = v20 │
00:09:52 verbose #59389 > │ let v21 : System.Net.Sockets.TcpListener = v20 │
00:09:52 verbose #59390 > │ let v22 : (string -> System.Net.IPAddress) = System.Net.IPAddress.Parse │
00:09:52 verbose #59391 > │ let v23 : System.Net.IPAddress = v22 v18 │
00:09:52 verbose #59392 > │ let v24 : System.Net.Sockets.TcpListener = new │
00:09:52 verbose #59393 > │ System.Net.Sockets.TcpListener (v23, 5556) │
00:09:52 verbose #59394 > │ use v24 = v24 │
00:09:52 verbose #59395 > │ let v25 : System.Net.Sockets.TcpListener = v24 │
00:09:52 verbose #59396 > │ let v26 : US0 = US0_1 │
00:09:52 verbose #59397 > │ let v27 : (unit -> string) = closure7() │
00:09:52 verbose #59398 > │ method1(v26, v27, v8) │
00:09:52 verbose #59399 > │ let v28 : (unit -> unit) = v21.Start │
00:09:52 verbose #59400 > │ v28 () │
00:09:52 verbose #59401 > │ let v29 : (unit -> unit) = v25.Start │
00:09:52 verbose #59402 > │ v29 () │
00:09:52 verbose #59403 > │ let v30 : US0 = US0_1 │
00:09:52 verbose #59404 > │ let v31 : (unit -> string) = closure8() │
00:09:52 verbose #59405 > │ method1(v30, v31, v8) │
00:09:52 verbose #59406 > │ let v32 : Async<unit> option = None │
00:09:52 verbose #59407 > │ let v33 : bool = true in let mutable _v32 = v32 │
00:09:52 verbose #59408 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59409 > │ let v34 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59410 > │ v34 │
00:09:52 verbose #59411 > │ #endif │
00:09:52 verbose #59412 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59413 > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59414 > │ v35 │
00:09:52 verbose #59415 > │ #endif │
00:09:52 verbose #59416 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59417 > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59418 > │ v36 │
00:09:52 verbose #59419 > │ #endif │
00:09:52 verbose #59420 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59421 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59422 > │ let v37 : (int32 -> Async<unit>) = Async.Sleep │
00:09:52 verbose #59423 > │ let v38 : Async<unit> = v37 4000 │
00:09:52 verbose #59424 > │ v38 │
00:09:52 verbose #59425 > │ #endif │
00:09:52 verbose #59426 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59427 > │ let v39 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59428 > │ v39 │
00:09:52 verbose #59429 > │ #endif │
00:09:52 verbose #59430 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59431 > │ let v40 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #59432 > │ v40 │
00:09:52 verbose #59433 > │ #endif │
00:09:52 verbose #59434 > │ |> fun x -> _v32 <- Some x │
00:09:52 verbose #59435 > │ let v41 : Async<unit> = _v32.Value │
00:09:52 verbose #59436 > │ do! v41 │
00:09:52 verbose #59437 > │ let v42 : US0 = US0_1 │
00:09:52 verbose #59438 > │ let v43 : (unit -> string) = closure9() │
00:09:52 verbose #59439 > │ method1(v42, v43, v8) │
00:09:52 verbose #59440 > │ let v44 : (unit -> unit) = v21.Stop │
00:09:52 verbose #59441 > │ v44 () │
00:09:52 verbose #59442 > │ let v45 : (unit -> unit) = v25.Stop │
00:09:52 verbose #59443 > │ v45 () │
00:09:52 verbose #59444 > │ let v46 : US0 = US0_1 │
00:09:52 verbose #59445 > │ let v47 : (unit -> string) = closure10() │
00:09:52 verbose #59446 > │ method1(v46, v47, v8) │
00:09:52 verbose #59447 > │ } │
00:09:52 verbose #59448 > │ |> fun x -> _v14 <- Some x │
00:09:52 verbose #59449 > │ let v48 : Async<unit> = _v14 |> Option.get │
00:09:52 verbose #59450 > │ v48 │
00:09:52 verbose #59451 > │ #endif │
00:09:52 verbose #59452 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59453 > │ let v49 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59454 > │ v49 │
00:09:52 verbose #59455 > │ #endif │
00:09:52 verbose #59456 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59457 > │ let v50 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #59458 > │ v50 │
00:09:52 verbose #59459 > │ #endif │
00:09:52 verbose #59460 > │ |> fun x -> _v9 <- Some x │
00:09:52 verbose #59461 > │ let v51 : Async<unit> = _v9.Value │
00:09:52 verbose #59462 > │ let v52 : Async<Async<unit>> option = None │
00:09:52 verbose #59463 > │ let v53 : bool = true in let mutable _v52 = v52 │
00:09:52 verbose #59464 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59465 > │ let v54 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:52 verbose #59466 > │ v54 │
00:09:52 verbose #59467 > │ #endif │
00:09:52 verbose #59468 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59469 > │ let v55 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:52 verbose #59470 > │ v55 │
00:09:52 verbose #59471 > │ #endif │
00:09:52 verbose #59472 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59473 > │ let v56 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:52 verbose #59474 > │ v56 │
00:09:52 verbose #59475 > │ #endif │
00:09:52 verbose #59476 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59477 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59478 > │ let v57 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:09:52 verbose #59479 > │ let v58 : Async<Async<unit>> = v57 v51 │
00:09:52 verbose #59480 > │ v58 │
00:09:52 verbose #59481 > │ #endif │
00:09:52 verbose #59482 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59483 > │ let v59 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:52 verbose #59484 > │ v59 │
00:09:52 verbose #59485 > │ #endif │
00:09:52 verbose #59486 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59487 > │ let v60 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:09:52 verbose #59488 > │ v60 │
00:09:52 verbose #59489 > │ #endif │
00:09:52 verbose #59490 > │ |> fun x -> _v52 <- Some x │
00:09:52 verbose #59491 > │ let v61 : Async<Async<unit>> = _v52.Value │
00:09:52 verbose #59492 > │ let! v61 = v61 │
00:09:52 verbose #59493 > │ let v62 : Async<unit> = v61 │
00:09:52 verbose #59494 > │ let v63 : US0 = US0_1 │
00:09:52 verbose #59495 > │ let v64 : (unit -> string) = closure11() │
00:09:52 verbose #59496 > │ method1(v63, v64, v8) │
00:09:52 verbose #59497 > │ let v65 : Async<unit> option = None │
00:09:52 verbose #59498 > │ let v66 : bool = true in let mutable _v65 = v65 │
00:09:52 verbose #59499 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59500 > │ let v67 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59501 > │ v67 │
00:09:52 verbose #59502 > │ #endif │
00:09:52 verbose #59503 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59504 > │ let v68 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59505 > │ v68 │
00:09:52 verbose #59506 > │ #endif │
00:09:52 verbose #59507 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59508 > │ let v69 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59509 > │ v69 │
00:09:52 verbose #59510 > │ #endif │
00:09:52 verbose #59511 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59512 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59513 > │ let v70 : (int32 -> Async<unit>) = Async.Sleep │
00:09:52 verbose #59514 > │ let v71 : Async<unit> = v70 240 │
00:09:52 verbose #59515 > │ v71 │
00:09:52 verbose #59516 > │ #endif │
00:09:52 verbose #59517 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59518 > │ let v72 : Async<unit> = null |> unbox<Async<unit>> │
00:09:52 verbose #59519 > │ v72 │
00:09:52 verbose #59520 > │ #endif │
00:09:52 verbose #59521 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59522 > │ let v73 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:52 verbose #59523 > │ v73 │
00:09:52 verbose #59524 > │ #endif │
00:09:52 verbose #59525 > │ |> fun x -> _v65 <- Some x │
00:09:52 verbose #59526 > │ let v74 : Async<unit> = _v65.Value │
00:09:52 verbose #59527 > │ do! v74 │
00:09:52 verbose #59528 > │ let v75 : US0 = US0_1 │
00:09:52 verbose #59529 > │ let v76 : (unit -> string) = closure12() │
00:09:52 verbose #59530 > │ method1(v75, v76, v8) │
00:09:52 verbose #59531 > │ let v77 : int32 option = None │
00:09:52 verbose #59532 > │ let v78 : int32 = 5555 │
00:09:52 verbose #59533 > │ let v79 : Async<int32> = method7(v77, v78) │
00:09:52 verbose #59534 > │ let! v79 = v79 │
00:09:52 verbose #59535 > │ let v80 : int32 = v79 │
00:09:52 verbose #59536 > │ let v81 : US0 = US0_1 │
00:09:52 verbose #59537 > │ let v82 : (unit -> string) = closure20() │
00:09:52 verbose #59538 > │ method1(v81, v82, v8) │
00:09:52 verbose #59539 > │ let v83 : int32 option = None │
00:09:52 verbose #59540 > │ let v84 : int64 = 0L │
00:09:52 verbose #59541 > │ let v85 : Async<int64> = method9(v83, v84) │
00:09:52 verbose #59542 > │ let! v85 = v85 │
00:09:52 verbose #59543 > │ let v86 : int64 = v85 │
00:09:52 verbose #59544 > │ let v87 : US0 = US0_1 │
00:09:52 verbose #59545 > │ let v88 : (unit -> string) = closure23() │
00:09:52 verbose #59546 > │ method1(v87, v88, v8) │
00:09:52 verbose #59547 > │ do! v62 │
00:09:52 verbose #59548 > │ let v89 : US0 = US0_1 │
00:09:52 verbose #59549 > │ let v90 : (unit -> string) = closure24() │
00:09:52 verbose #59550 > │ method1(v89, v90, v8) │
00:09:52 verbose #59551 > │ return struct (v80, v86) │
00:09:52 verbose #59552 > │ } │
00:09:52 verbose #59553 > │ |> fun x -> _v5 <- Some x │
00:09:52 verbose #59554 > │ let v91 : Async<struct (int32 * int64)> = _v5 |> Option.get │
00:09:52 verbose #59555 > │ v91 │
00:09:52 verbose #59556 > │ #endif │
00:09:52 verbose #59557 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59558 > │ let v92 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:52 verbose #59559 > │ (int32 * int64)>> │
00:09:52 verbose #59560 > │ v92 │
00:09:52 verbose #59561 > │ #endif │
00:09:52 verbose #59562 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59563 > │ let v93 : Async<struct (int32 * int64)> = │
00:09:52 verbose #59564 > │ Unchecked.defaultof<Async<struct (int32 * int64)>> │
00:09:52 verbose #59565 > │ v93 │
00:09:52 verbose #59566 > │ #endif │
00:09:52 verbose #59567 > │ |> fun x -> _v0 <- Some x │
00:09:52 verbose #59568 > │ let v94 : Async<struct (int32 * int64)> = _v0.Value │
00:09:52 verbose #59569 > │ let v95 : Async<US7> option = None │
00:09:52 verbose #59570 > │ let v96 : bool = true in let mutable _v95 = v95 │
00:09:52 verbose #59571 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59572 > │ let v97 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59573 > │ v97 │
00:09:52 verbose #59574 > │ #endif │
00:09:52 verbose #59575 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59576 > │ let v98 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59577 > │ v98 │
00:09:52 verbose #59578 > │ #endif │
00:09:52 verbose #59579 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59580 > │ let v99 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59581 > │ v99 │
00:09:52 verbose #59582 > │ #endif │
00:09:52 verbose #59583 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59584 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59585 > │ let v100 : Async<US7> option = None │
00:09:52 verbose #59586 > │ let v101 : bool = true in let mutable _v100 = v100 │
00:09:52 verbose #59587 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59588 > │ let v102 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59589 > │ v102 │
00:09:52 verbose #59590 > │ #endif │
00:09:52 verbose #59591 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59592 > │ let v103 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59593 > │ v103 │
00:09:52 verbose #59594 > │ #endif │
00:09:52 verbose #59595 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59596 > │ let v104 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59597 > │ v104 │
00:09:52 verbose #59598 > │ #endif │
00:09:52 verbose #59599 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59600 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59601 > │ let v105 : Async<US7> option = None │
00:09:52 verbose #59602 > │ let mutable _v105 = v105 │
00:09:52 verbose #59603 > │ async { │
00:09:52 verbose #59604 > │ let v106 : Async<Async<struct (int32 * int64)>> option = None │
00:09:52 verbose #59605 > │ let v107 : bool = true in let mutable _v106 = v106 │
00:09:52 verbose #59606 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59607 > │ let v108 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:52 verbose #59608 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:52 verbose #59609 > │ v108 │
00:09:52 verbose #59610 > │ #endif │
00:09:52 verbose #59611 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59612 > │ let v109 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:52 verbose #59613 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:52 verbose #59614 > │ v109 │
00:09:52 verbose #59615 > │ #endif │
00:09:52 verbose #59616 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59617 > │ let v110 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:52 verbose #59618 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:52 verbose #59619 > │ v110 │
00:09:52 verbose #59620 > │ #endif │
00:09:52 verbose #59621 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59622 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59623 > │ let v111 : Async<Async<struct (int32 * int64)>> = Async.StartChild (v94, │
00:09:52 verbose #59624 > │ 15000) │
00:09:52 verbose #59625 > │ v111 │
00:09:52 verbose #59626 > │ #endif │
00:09:52 verbose #59627 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59628 > │ let v112 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:52 verbose #59629 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:52 verbose #59630 > │ v112 │
00:09:52 verbose #59631 > │ #endif │
00:09:52 verbose #59632 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59633 > │ let v113 : Async<Async<struct (int32 * int64)>> = │
00:09:52 verbose #59634 > │ Unchecked.defaultof<Async<Async<struct (int32 * int64)>>> │
00:09:52 verbose #59635 > │ v113 │
00:09:52 verbose #59636 > │ #endif │
00:09:52 verbose #59637 > │ |> fun x -> _v106 <- Some x │
00:09:52 verbose #59638 > │ let v114 : Async<Async<struct (int32 * int64)>> = _v106.Value │
00:09:52 verbose #59639 > │ let! v114 = v114 │
00:09:52 verbose #59640 > │ let v115 : Async<struct (int32 * int64)> = v114 │
00:09:52 verbose #59641 > │ let v116 : Async<Choice<struct (int32 * int64), exn>> option = None │
00:09:52 verbose #59642 > │ let v117 : bool = true in let mutable _v116 = v116 │
00:09:52 verbose #59643 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59644 > │ let v118 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:52 verbose #59645 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:52 verbose #59646 > │ v118 │
00:09:52 verbose #59647 > │ #endif │
00:09:52 verbose #59648 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59649 > │ let v119 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:52 verbose #59650 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:52 verbose #59651 > │ v119 │
00:09:52 verbose #59652 > │ #endif │
00:09:52 verbose #59653 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59654 > │ let v120 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:52 verbose #59655 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:52 verbose #59656 > │ v120 │
00:09:52 verbose #59657 > │ #endif │
00:09:52 verbose #59658 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59659 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59660 > │ let v121 : (Async<struct (int32 * int64)> -> Async<Choice<struct (int32 │
00:09:52 verbose #59661 > │ * int64), exn>>) = Async.Catch │
00:09:52 verbose #59662 > │ let v122 : Async<Choice<struct (int32 * int64), exn>> = v121 v115 │
00:09:52 verbose #59663 > │ v122 │
00:09:52 verbose #59664 > │ #endif │
00:09:52 verbose #59665 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59666 > │ let v123 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:52 verbose #59667 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:52 verbose #59668 > │ v123 │
00:09:52 verbose #59669 > │ #endif │
00:09:52 verbose #59670 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59671 > │ let v124 : Async<Choice<struct (int32 * int64), exn>> = │
00:09:52 verbose #59672 > │ Unchecked.defaultof<Async<Choice<struct (int32 * int64), exn>>> │
00:09:52 verbose #59673 > │ v124 │
00:09:52 verbose #59674 > │ #endif │
00:09:52 verbose #59675 > │ |> fun x -> _v116 <- Some x │
00:09:52 verbose #59676 > │ let v125 : Async<Choice<struct (int32 * int64), exn>> = _v116.Value │
00:09:52 verbose #59677 > │ let v126 : Async<US8> option = None │
00:09:52 verbose #59678 > │ let v127 : bool = true in let mutable _v126 = v126 │
00:09:52 verbose #59679 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59680 > │ let v128 : Async<US8> = null |> unbox<Async<US8>> │
00:09:52 verbose #59681 > │ v128 │
00:09:52 verbose #59682 > │ #endif │
00:09:52 verbose #59683 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59684 > │ let v129 : Async<US8> = null |> unbox<Async<US8>> │
00:09:52 verbose #59685 > │ v129 │
00:09:52 verbose #59686 > │ #endif │
00:09:52 verbose #59687 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59688 > │ let v130 : Async<US8> = null |> unbox<Async<US8>> │
00:09:52 verbose #59689 > │ v130 │
00:09:52 verbose #59690 > │ #endif │
00:09:52 verbose #59691 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59692 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59693 > │ let v131 : Async<US8> option = None │
00:09:52 verbose #59694 > │ let mutable _v131 = v131 │
00:09:52 verbose #59695 > │ async { │
00:09:52 verbose #59696 > │ let! v125 = v125 │
00:09:52 verbose #59697 > │ let v132 : Choice<struct (int32 * int64), exn> = v125 │
00:09:52 verbose #59698 > │ let v133 : US8 option = None │
00:09:52 verbose #59699 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:52 verbose #59700 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59701 > │ let v135 : US8 = null |> unbox<US8> │
00:09:52 verbose #59702 > │ v135 │
00:09:52 verbose #59703 > │ #endif │
00:09:52 verbose #59704 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59705 > │ let v136 : US8 = null |> unbox<US8> │
00:09:52 verbose #59706 > │ v136 │
00:09:52 verbose #59707 > │ #endif │
00:09:52 verbose #59708 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59709 > │ let v137 : US8 = null |> unbox<US8> │
00:09:52 verbose #59710 > │ v137 │
00:09:52 verbose #59711 > │ #endif │
00:09:52 verbose #59712 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59713 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59714 > │ let v138 : (struct (int32 * int64) -> US8) = closure25() │
00:09:52 verbose #59715 > │ let v139 : (exn -> US8) = closure26() │
00:09:52 verbose #59716 > │ let v140 : US8 = match v132 with Choice1Of2 x -> v138 x | Choice2Of2 x │
00:09:52 verbose #59717 > │ -> v139 x │
00:09:52 verbose #59718 > │ v140 │
00:09:52 verbose #59719 > │ #endif │
00:09:52 verbose #59720 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59721 > │ let v141 : US8 = null |> unbox<US8> │
00:09:52 verbose #59722 > │ v141 │
00:09:52 verbose #59723 > │ #endif │
00:09:52 verbose #59724 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59725 > │ let v142 : US8 = Unchecked.defaultof<US8> │
00:09:52 verbose #59726 > │ v142 │
00:09:52 verbose #59727 > │ #endif │
00:09:52 verbose #59728 > │ |> fun x -> _v133 <- Some x │
00:09:52 verbose #59729 > │ let v143 : US8 = _v133.Value │
00:09:52 verbose #59730 > │ return v143 │
00:09:52 verbose #59731 > │ } │
00:09:52 verbose #59732 > │ |> fun x -> _v131 <- Some x │
00:09:52 verbose #59733 > │ let v144 : Async<US8> = _v131 |> Option.get │
00:09:52 verbose #59734 > │ v144 │
00:09:52 verbose #59735 > │ #endif │
00:09:52 verbose #59736 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59737 > │ let v145 : Async<US8> = null |> unbox<Async<US8>> │
00:09:52 verbose #59738 > │ v145 │
00:09:52 verbose #59739 > │ #endif │
00:09:52 verbose #59740 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59741 > │ let v146 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:09:52 verbose #59742 > │ v146 │
00:09:52 verbose #59743 > │ #endif │
00:09:52 verbose #59744 > │ |> fun x -> _v126 <- Some x │
00:09:52 verbose #59745 > │ let v147 : Async<US8> = _v126.Value │
00:09:52 verbose #59746 > │ let v148 : Async<US9> option = None │
00:09:52 verbose #59747 > │ let v149 : bool = true in let mutable _v148 = v148 │
00:09:52 verbose #59748 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59749 > │ let v150 : Async<US9> = null |> unbox<Async<US9>> │
00:09:52 verbose #59750 > │ v150 │
00:09:52 verbose #59751 > │ #endif │
00:09:52 verbose #59752 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59753 > │ let v151 : Async<US9> = null |> unbox<Async<US9>> │
00:09:52 verbose #59754 > │ v151 │
00:09:52 verbose #59755 > │ #endif │
00:09:52 verbose #59756 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59757 > │ let v152 : Async<US9> = null |> unbox<Async<US9>> │
00:09:52 verbose #59758 > │ v152 │
00:09:52 verbose #59759 > │ #endif │
00:09:52 verbose #59760 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59761 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59762 > │ let v153 : Async<US9> option = None │
00:09:52 verbose #59763 > │ let mutable _v153 = v153 │
00:09:52 verbose #59764 > │ async { │
00:09:52 verbose #59765 > │ let! v147 = v147 │
00:09:52 verbose #59766 > │ let v154 : US8 = v147 │
00:09:52 verbose #59767 > │ let v161 : US9 = │
00:09:52 verbose #59768 > │ match v154 with │
00:09:52 verbose #59769 > │ | US8_0(v155, v156) -> (* Choice1Of2 *) │
00:09:52 verbose #59770 > │ US9_0(v155, v156) │
00:09:52 verbose #59771 > │ | US8_1(v158) -> (* Choice2Of2 *) │
00:09:52 verbose #59772 > │ US9_1(v158) │
00:09:52 verbose #59773 > │ return v161 │
00:09:52 verbose #59774 > │ } │
00:09:52 verbose #59775 > │ |> fun x -> _v153 <- Some x │
00:09:52 verbose #59776 > │ let v162 : Async<US9> = _v153 |> Option.get │
00:09:52 verbose #59777 > │ v162 │
00:09:52 verbose #59778 > │ #endif │
00:09:52 verbose #59779 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59780 > │ let v163 : Async<US9> = null |> unbox<Async<US9>> │
00:09:52 verbose #59781 > │ v163 │
00:09:52 verbose #59782 > │ #endif │
00:09:52 verbose #59783 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59784 > │ let v164 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:09:52 verbose #59785 > │ v164 │
00:09:52 verbose #59786 > │ #endif │
00:09:52 verbose #59787 > │ |> fun x -> _v148 <- Some x │
00:09:52 verbose #59788 > │ let v165 : Async<US9> = _v148.Value │
00:09:52 verbose #59789 > │ let v166 : Async<US7> option = None │
00:09:52 verbose #59790 > │ let v167 : bool = true in let mutable _v166 = v166 │
00:09:52 verbose #59791 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59792 > │ let v168 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59793 > │ v168 │
00:09:52 verbose #59794 > │ #endif │
00:09:52 verbose #59795 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59796 > │ let v169 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59797 > │ v169 │
00:09:52 verbose #59798 > │ #endif │
00:09:52 verbose #59799 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59800 > │ let v170 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59801 > │ v170 │
00:09:52 verbose #59802 > │ #endif │
00:09:52 verbose #59803 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59804 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59805 > │ let v171 : Async<US7> option = None │
00:09:52 verbose #59806 > │ let mutable _v171 = v171 │
00:09:52 verbose #59807 > │ async { │
00:09:52 verbose #59808 > │ let! v165 = v165 │
00:09:52 verbose #59809 > │ let v172 : US9 = v165 │
00:09:52 verbose #59810 > │ let v199 : US7 = │
00:09:52 verbose #59811 > │ match v172 with │
00:09:52 verbose #59812 > │ | US9_1(v176) -> (* Error *) │
00:09:52 verbose #59813 > │ let v177 : string = $"%A{v176}" │
00:09:52 verbose #59814 > │ let v178 : string = "System.TimeoutException" │
00:09:52 verbose #59815 > │ let v179 : bool = v177.Contains v178 │
00:09:52 verbose #59816 > │ if v179 then │
00:09:52 verbose #59817 > │ let v180 : US0 = US0_1 │
00:09:52 verbose #59818 > │ let v181 : (unit -> string) = closure17() │
00:09:52 verbose #59819 > │ let v182 : (unit -> string) = closure27() │
00:09:52 verbose #59820 > │ method1(v180, v181, v182) │
00:09:52 verbose #59821 > │ US7_1 │
00:09:52 verbose #59822 > │ else │
00:09:52 verbose #59823 > │ let v184 : string option = None │
00:09:52 verbose #59824 > │ let v185 : bool = true in let mutable _v184 = v184 │
00:09:52 verbose #59825 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59826 > │ let v186 : string = $"%A{v176}" │
00:09:52 verbose #59827 > │ v186 │
00:09:52 verbose #59828 > │ #endif │
00:09:52 verbose #59829 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59830 > │ let v187 : string = $"%A{v176}" │
00:09:52 verbose #59831 > │ v187 │
00:09:52 verbose #59832 > │ #endif │
00:09:52 verbose #59833 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59834 > │ let v188 : string = $"%A{v176}" │
00:09:52 verbose #59835 > │ v188 │
00:09:52 verbose #59836 > │ #endif │
00:09:52 verbose #59837 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59838 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59839 > │ let v189 : string = $"{v176.GetType ()}: {v176.Message}" │
00:09:52 verbose #59840 > │ v189 │
00:09:52 verbose #59841 > │ #endif │
00:09:52 verbose #59842 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59843 > │ let v190 : string = $"%A{v176}" │
00:09:52 verbose #59844 > │ v190 │
00:09:52 verbose #59845 > │ #endif │
00:09:52 verbose #59846 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:52 verbose #59847 > │ FABLE_COMPILER_DART │
00:09:52 verbose #59848 > │ let v191 : string = Unchecked.defaultof<string> │
00:09:52 verbose #59849 > │ v191 │
00:09:52 verbose #59850 > │ #endif │
00:09:52 verbose #59851 > │ |> fun x -> _v184 <- Some x │
00:09:52 verbose #59852 > │ let v192 : string = _v184.Value │
00:09:52 verbose #59853 > │ let v193 : US0 = US0_4 │
00:09:52 verbose #59854 > │ let v194 : (unit -> string) = closure19(v192) │
00:09:52 verbose #59855 > │ let v195 : (unit -> string) = closure27() │
00:09:52 verbose #59856 > │ method1(v193, v194, v195) │
00:09:52 verbose #59857 > │ US7_1 │
00:09:52 verbose #59858 > │ | US9_0(v173, v174) -> (* Ok *) │
00:09:52 verbose #59859 > │ US7_0(v173, v174) │
00:09:52 verbose #59860 > │ return v199 │
00:09:52 verbose #59861 > │ } │
00:09:52 verbose #59862 > │ |> fun x -> _v171 <- Some x │
00:09:52 verbose #59863 > │ let v200 : Async<US7> = _v171 |> Option.get │
00:09:52 verbose #59864 > │ v200 │
00:09:52 verbose #59865 > │ #endif │
00:09:52 verbose #59866 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59867 > │ let v201 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59868 > │ v201 │
00:09:52 verbose #59869 > │ #endif │
00:09:52 verbose #59870 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59871 > │ let v202 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:52 verbose #59872 > │ v202 │
00:09:52 verbose #59873 > │ #endif │
00:09:52 verbose #59874 > │ |> fun x -> _v166 <- Some x │
00:09:52 verbose #59875 > │ let v203 : Async<US7> = _v166.Value │
00:09:52 verbose #59876 > │ return! v203 │
00:09:52 verbose #59877 > │ } │
00:09:52 verbose #59878 > │ |> fun x -> _v105 <- Some x │
00:09:52 verbose #59879 > │ let v204 : Async<US7> = _v105 |> Option.get │
00:09:52 verbose #59880 > │ v204 │
00:09:52 verbose #59881 > │ #endif │
00:09:52 verbose #59882 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59883 > │ let v205 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59884 > │ v205 │
00:09:52 verbose #59885 > │ #endif │
00:09:52 verbose #59886 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59887 > │ let v206 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:52 verbose #59888 > │ v206 │
00:09:52 verbose #59889 > │ #endif │
00:09:52 verbose #59890 > │ |> fun x -> _v100 <- Some x │
00:09:52 verbose #59891 > │ let v207 : Async<US7> = _v100.Value │
00:09:52 verbose #59892 > │ v207 │
00:09:52 verbose #59893 > │ #endif │
00:09:52 verbose #59894 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59895 > │ let v208 : Async<US7> = null |> unbox<Async<US7>> │
00:09:52 verbose #59896 > │ v208 │
00:09:52 verbose #59897 > │ #endif │
00:09:52 verbose #59898 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59899 > │ let v209 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:52 verbose #59900 > │ v209 │
00:09:52 verbose #59901 > │ #endif │
00:09:52 verbose #59902 > │ |> fun x -> _v95 <- Some x │
00:09:52 verbose #59903 > │ let v210 : Async<US7> = _v95.Value │
00:09:52 verbose #59904 > │ let v211 : US7 option = None │
00:09:52 verbose #59905 > │ let v212 : bool = true in let mutable _v211 = v211 │
00:09:52 verbose #59906 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:52 verbose #59907 > │ let v213 : US7 = null |> unbox<US7> │
00:09:52 verbose #59908 > │ v213 │
00:09:52 verbose #59909 > │ #endif │
00:09:52 verbose #59910 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:52 verbose #59911 > │ let v214 : US7 = null |> unbox<US7> │
00:09:52 verbose #59912 > │ v214 │
00:09:52 verbose #59913 > │ #endif │
00:09:52 verbose #59914 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:52 verbose #59915 > │ let v215 : US7 = null |> unbox<US7> │
00:09:52 verbose #59916 > │ v215 │
00:09:52 verbose #59917 > │ #endif │
00:09:52 verbose #59918 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:52 verbose #59919 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:52 verbose #59920 > │ let v216 : (Async<US7> -> US7) = Async.RunSynchronously │
00:09:52 verbose #59921 > │ let v217 : US7 = v216 v210 │
00:09:52 verbose #59922 > │ v217 │
00:09:52 verbose #59923 > │ #endif │
00:09:52 verbose #59924 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:52 verbose #59925 > │ let v218 : US7 = null |> unbox<US7> │
00:09:52 verbose #59926 > │ v218 │
00:09:52 verbose #59927 > │ #endif │
00:09:52 verbose #59928 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:52 verbose #59929 > │ let v219 : US7 = Unchecked.defaultof<US7> │
00:09:52 verbose #59930 > │ v219 │
00:09:52 verbose #59931 > │ #endif │
00:09:52 verbose #59932 > │ |> fun x -> _v211 <- Some x │
00:09:52 verbose #59933 > │ let v220 : US7 = _v211.Value │
00:09:52 verbose #59934 > │ let v266 : bool = │
00:09:52 verbose #59935 > │ match v220 with │
00:09:52 verbose #59936 > │ | US7_0(v221, v222) -> (* Some *) │
00:09:52 verbose #59937 > │ let v223 : string = $"%A{v221}" │
00:09:52 verbose #59938 > │ System.Console.WriteLine v223 │
00:09:52 verbose #59939 > │ let v224 : bool = v221 = 5557 │
00:09:52 verbose #59940 > │ let v226 : bool = │
00:09:53 verbose #59941 > │ if v224 then │
00:09:53 verbose #59942 > │ true │
00:09:53 verbose #59943 > │ else │
00:09:53 verbose #59944 > │ method10(v224) │
00:09:53 verbose #59945 > │ let v227 : string = $"__expect / actual: %A{v221} / expected: │
00:09:53 verbose #59946 > │ %A{5557}" │
00:09:53 verbose #59947 > │ let v228 : bool = v226 = false │
00:09:53 verbose #59948 > │ if v228 then │
00:09:53 verbose #59949 > │ failwith<unit> v227 │
00:09:53 verbose #59950 > │ let v229 : bool option = None │
00:09:53 verbose #59951 > │ let v230 : bool = true in let mutable _v229 = v229 │
00:09:53 verbose #59952 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:53 verbose #59953 > │ let v231 : bool = null |> unbox<bool> │
00:09:53 verbose #59954 > │ v231 │
00:09:53 verbose #59955 > │ #endif │
00:09:53 verbose #59956 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:53 verbose #59957 > │ let v232 : bool = null |> unbox<bool> │
00:09:53 verbose #59958 > │ v232 │
00:09:53 verbose #59959 > │ #endif │
00:09:53 verbose #59960 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:53 verbose #59961 > │ let v233 : bool = null |> unbox<bool> │
00:09:53 verbose #59962 > │ v233 │
00:09:53 verbose #59963 > │ #endif │
00:09:53 verbose #59964 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:53 verbose #59965 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:53 verbose #59966 > │ let v234 : System.Runtime.InteropServices.OSPlatform = │
00:09:53 verbose #59967 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:53 verbose #59968 > │ let v235 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:53 verbose #59969 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:53 verbose #59970 > │ let v236 : bool = v235 v234 │
00:09:53 verbose #59971 > │ v236 │
00:09:53 verbose #59972 > │ #endif │
00:09:53 verbose #59973 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:53 verbose #59974 > │ let v237 : bool = null |> unbox<bool> │
00:09:53 verbose #59975 > │ v237 │
00:09:53 verbose #59976 > │ #endif │
00:09:53 verbose #59977 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:53 verbose #59978 > │ FABLE_COMPILER_DART │
00:09:53 verbose #59979 > │ let v238 : bool = Unchecked.defaultof<bool> │
00:09:53 verbose #59980 > │ v238 │
00:09:53 verbose #59981 > │ #endif │
00:09:53 verbose #59982 > │ |> fun x -> _v229 <- Some x │
00:09:53 verbose #59983 > │ let v239 : bool = _v229.Value │
00:09:53 verbose #59984 > │ let v240 : bool option = None │
00:09:53 verbose #59985 > │ let v241 : bool = true in let mutable _v240 = v240 │
00:09:53 verbose #59986 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:53 verbose #59987 > │ let v242 : bool = null |> unbox<bool> │
00:09:53 verbose #59988 > │ v242 │
00:09:53 verbose #59989 > │ #endif │
00:09:53 verbose #59990 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:53 verbose #59991 > │ let v243 : bool = null |> unbox<bool> │
00:09:53 verbose #59992 > │ v243 │
00:09:53 verbose #59993 > │ #endif │
00:09:53 verbose #59994 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:53 verbose #59995 > │ let v244 : bool = null |> unbox<bool> │
00:09:53 verbose #59996 > │ v244 │
00:09:53 verbose #59997 > │ #endif │
00:09:53 verbose #59998 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:53 verbose #59999 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:53 verbose #60000 > │ let v245 : System.Runtime.InteropServices.OSPlatform = │
00:09:53 verbose #60001 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:53 verbose #60002 > │ let v246 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:53 verbose #60003 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:53 verbose #60004 > │ let v247 : bool = v246 v245 │
00:09:53 verbose #60005 > │ v247 │
00:09:53 verbose #60006 > │ #endif │
00:09:53 verbose #60007 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:53 verbose #60008 > │ let v248 : bool = null |> unbox<bool> │
00:09:53 verbose #60009 > │ v248 │
00:09:53 verbose #60010 > │ #endif │
00:09:53 verbose #60011 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:53 verbose #60012 > │ FABLE_COMPILER_DART │
00:09:53 verbose #60013 > │ let v249 : bool = Unchecked.defaultof<bool> │
00:09:53 verbose #60014 > │ v249 │
00:09:53 verbose #60015 > │ #endif │
00:09:53 verbose #60016 > │ |> fun x -> _v240 <- Some x │
00:09:53 verbose #60017 > │ let v250 : bool = _v240.Value │
00:09:53 verbose #60018 > │ let v251 : int64 = │
00:09:53 verbose #60019 > │ if v250 then │
00:09:53 verbose #60020 > │ 150L │
00:09:53 verbose #60021 > │ else │
00:09:53 verbose #60022 > │ 1200L │
00:09:53 verbose #60023 > │ let v252 : string = $"%A{v222}" │
00:09:53 verbose #60024 > │ System.Console.WriteLine v252 │
00:09:53 verbose #60025 > │ let v253 : string = $"%A{v222}" │
00:09:53 verbose #60026 > │ System.Console.WriteLine v253 │
00:09:53 verbose #60027 > │ let v254 : bool = v222 >= 100L │
00:09:53 verbose #60028 > │ let v256 : bool = │
00:09:53 verbose #60029 > │ if v254 then │
00:09:53 verbose #60030 > │ true │
00:09:53 verbose #60031 > │ else │
00:09:53 verbose #60032 > │ method10(v254) │
00:09:53 verbose #60033 > │ let v257 : string = $"__expect / actual: %A{v222} / expected: │
00:09:53 verbose #60034 > │ %A{100L}" │
00:09:53 verbose #60035 > │ let v258 : bool = v256 = false │
00:09:53 verbose #60036 > │ if v258 then │
00:09:53 verbose #60037 > │ failwith<unit> v257 │
00:09:53 verbose #60038 > │ let v259 : string = $"%A{v222}" │
00:09:53 verbose #60039 > │ System.Console.WriteLine v259 │
00:09:53 verbose #60040 > │ let v260 : bool = v222 <= v251 │
00:09:53 verbose #60041 > │ let v262 : bool = │
00:09:53 verbose #60042 > │ if v260 then │
00:09:53 verbose #60043 > │ true │
00:09:53 verbose #60044 > │ else │
00:09:53 verbose #60045 > │ method10(v260) │
00:09:53 verbose #60046 > │ let v263 : string = $"__expect / actual: %A{v222} / expected: │
00:09:53 verbose #60047 > │ %A{v251}" │
00:09:53 verbose #60048 > │ let v264 : bool = v262 = false │
00:09:53 verbose #60049 > │ if v264 then │
00:09:53 verbose #60050 > │ failwith<unit> v263 │
00:09:53 verbose #60051 > │ let v265 : string = $"__expect / actual: %A{v222} / expected: │
00:09:53 verbose #60052 > │ %A{struct (100L, v251)}" │
00:09:53 verbose #60053 > │ true │
00:09:53 verbose #60054 > │ | _ -> │
00:09:53 verbose #60055 > │ false │
00:09:53 verbose #60056 > │ let v267 : string = $"%A{v266}" │
00:09:53 verbose #60057 > │ System.Console.WriteLine v267 │
00:09:53 verbose #60058 > │ let v269 : bool = │
00:09:53 verbose #60059 > │ if v266 then │
00:09:53 verbose #60060 > │ true │
00:09:53 verbose #60061 > │ else │
00:09:53 verbose #60062 > │ method10(v266) │
00:09:53 verbose #60063 > │ let v270 : string = $"__expect / actual: %A{v266} / expected: %A{true}" │
00:09:53 verbose #60064 > │ let v271 : bool = v269 = false │
00:09:53 verbose #60065 > │ if v271 then │
00:09:53 verbose #60066 > │ failwith<unit> v270 │
00:09:53 verbose #60067 > │ method0() │
00:09:53 verbose #60068 > │ │
00:09:53 verbose #60069 > │ 00:00:00 debug #1 1 │
00:09:53 verbose #60070 > │ 00:00:00 debug #2 _1 │
00:09:53 verbose #60071 > │ 00:00:00 debug #3 2 │
00:09:53 verbose #60072 > │ 00:00:00 debug #4 _2 │
00:09:53 verbose #60073 > │ 00:00:00 debug #5 _3 │
00:09:53 verbose #60074 > │ 00:00:00 debug #6 3 │
00:09:53 verbose #60075 > │ 00:00:02 verbose #7 test_port_open / ex: System.AggregateException: One or │
00:09:53 verbose #60076 > │ more errors occurred. (No connection could be made because the target │
00:09:53 verbose #60077 > │ machine actively refused it.) │
00:09:53 verbose #60078 > │ 00:00:02 debug #8 4 │
00:09:53 verbose #60079 > │ 00:00:02 verbose #9 wait_for_port_access / port: 5555 / retry: 0 │
00:09:53 verbose #60080 > │ 00:00:03 verbose #10 wait_for_port_access / port: 5555 / retry: 100 │
00:09:53 verbose #60081 > │ 00:00:04 debug #11 _4 │
00:09:53 verbose #60082 > │ 00:00:04 debug #12 _5 │
00:09:53 verbose #60083 > │ 00:00:06 verbose #13 test_port_open / ex: System.AggregateException: One or │
00:09:53 verbose #60084 > │ more errors occurred. (No connection could be made because the target │
00:09:53 verbose #60085 > │ machine actively refused it.) │
00:09:53 verbose #60086 > │ 00:00:06 debug #14 5 │
00:09:53 verbose #60087 > │ 00:00:06 debug #15 6 │
00:09:53 verbose #60088 > │ 5557 │
00:09:53 verbose #60089 > │ 110L │
00:09:53 verbose #60090 > │ 110L │
00:09:53 verbose #60091 > │ 110L │
00:09:53 verbose #60092 > │ true │
00:09:53 verbose #60093 > │ │
00:09:53 verbose #60094 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:53 verbose #60095 >
00:09:53 verbose #60096 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:53 verbose #60097 > // // test
00:09:53 verbose #60098 >
00:09:53 verbose #60099 > inl lock_ports port = async.new_async_unit fun () =>
00:09:53 verbose #60100 > trace Debug (fun () => "_1") _locals
00:09:53 verbose #60101 > inl listener1 = new_tcp_listener (ip_address_parse "127.0.0.1") port |> use
00:09:53 verbose #60102 > inl listener2 = new_tcp_listener (ip_address_parse "127.0.0.1") (port + 1)
00:09:53 verbose #60103 > |> use
00:09:53 verbose #60104 > trace Debug (fun () => "_2") _locals
00:09:53 verbose #60105 > listener1 |> listener_start
00:09:53 verbose #60106 > listener2 |> listener_start
00:09:53 verbose #60107 > trace Debug (fun () => "_3") _locals
00:09:53 verbose #60108 > async.sleep 400 |> async.do
00:09:53 verbose #60109 > trace Debug (fun () => "_4") _locals
00:09:53 verbose #60110 > listener1 |> listener_stop
00:09:53 verbose #60111 > listener2 |> listener_stop
00:09:53 verbose #60112 > trace Debug (fun () => "_5") _locals
00:09:53 verbose #60113 >
00:09:53 verbose #60114 > inl port = 5555
00:09:53 verbose #60115 >
00:09:53 verbose #60116 > fun () =>
00:09:53 verbose #60117 > trace Debug (fun () => "1") _locals
00:09:53 verbose #60118 > inl child = lock_ports port |> async.start_child |> async.let'
00:09:53 verbose #60119 > trace Debug (fun () => "2") _locals
00:09:53 verbose #60120 > async.sleep 240 |> async.do
00:09:53 verbose #60121 > trace Debug (fun () => "3") _locals
00:09:53 verbose #60122 > inl availablePort = get_available_port (Some 60 |> optionm'.box) port |>
00:09:53 verbose #60123 > async.let'
00:09:53 verbose #60124 > trace Debug (fun () => "4") _locals
00:09:53 verbose #60125 > inl retries = wait_for_port_access (Some 60 |> optionm'.box) false port |>
00:09:53 verbose #60126 > async.let'
00:09:53 verbose #60127 > trace Debug (fun () => "5") _locals
00:09:53 verbose #60128 > child |> async.do
00:09:53 verbose #60129 > trace Debug (fun () => "6") _locals
00:09:53 verbose #60130 > (availablePort, retries) |> return
00:09:53 verbose #60131 > |> async.new_async_unit
00:09:53 verbose #60132 > |> async.run_with_timeout 1500
00:09:53 verbose #60133 > |> function
00:09:53 verbose #60134 > | Some (available_port, retries) =>
00:09:53 verbose #60135 > available_port |> _assert_eq (port + 2)
00:09:53 verbose #60136 >
00:09:53 verbose #60137 > retries
00:09:53 verbose #60138 > |> _assert_between
00:09:53 verbose #60139 > (if runtime.is_windows () then 2i64 else 1)
00:09:53 verbose #60140 > (if runtime.is_windows () then 10 else 120)
00:09:53 verbose #60141 >
00:09:53 verbose #60142 > true
00:09:53 verbose #60143 > | _ => false
00:09:53 verbose #60144 > |> _assert_eq true
00:09:53 verbose #60145 > 00:09:52 debug #742 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f64971cd013c291cacf419e2ede684e48e67e0ef13a1cbd18aadd784ccbe790f/main.spi
00:09:54 verbose #60146 >
00:09:54 verbose #60147 > ╭─[ 1.74s - stdout ]───────────────────────────────────────────────────────────╮
00:09:54 verbose #60148 > │ module State = let mutable trace_state = None │
00:09:54 verbose #60149 > │ type [<Struct>] US0 = │
00:09:54 verbose #60150 > │ | US0_0 │
00:09:54 verbose #60151 > │ | US0_1 │
00:09:54 verbose #60152 > │ | US0_2 │
00:09:54 verbose #60153 > │ | US0_3 │
00:09:54 verbose #60154 > │ | US0_4 │
00:09:54 verbose #60155 > │ and Mut0 = {mutable l0 : int64} │
00:09:54 verbose #60156 > │ and Mut1 = {mutable l0 : bool} │
00:09:54 verbose #60157 > │ and Mut2 = {mutable l0 : US0} │
00:09:54 verbose #60158 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:54 verbose #60159 > │ and [<Struct>] US1 = │
00:09:54 verbose #60160 > │ | US1_0 of f0_0 : int64 │
00:09:54 verbose #60161 > │ | US1_1 │
00:09:54 verbose #60162 > │ and [<Struct>] US2 = │
00:09:54 verbose #60163 > │ | US2_0 of f0_0 : int64 │
00:09:54 verbose #60164 > │ | US2_1 │
00:09:54 verbose #60165 > │ and [<Struct>] US3 = │
00:09:54 verbose #60166 > │ | US3_0 of f0_0 : int32 │
00:09:54 verbose #60167 > │ | US3_1 │
00:09:54 verbose #60168 > │ and [<Struct>] US4 = │
00:09:54 verbose #60169 > │ | US4_0 of f0_0 : bool │
00:09:54 verbose #60170 > │ | US4_1 │
00:09:54 verbose #60171 > │ and [<Struct>] US5 = │
00:09:54 verbose #60172 > │ | US5_0 of f0_0 : bool │
00:09:54 verbose #60173 > │ | US5_1 of f1_0 : exn │
00:09:54 verbose #60174 > │ and [<Struct>] US6 = │
00:09:54 verbose #60175 > │ | US6_0 of f0_0 : bool │
00:09:54 verbose #60176 > │ | US6_1 of f1_0 : exn │
00:09:54 verbose #60177 > │ and [<Struct>] US7 = │
00:09:54 verbose #60178 > │ | US7_0 of f0_0 : int32 * f0_1 : int64 │
00:09:54 verbose #60179 > │ | US7_1 │
00:09:54 verbose #60180 > │ and [<Struct>] US8 = │
00:09:54 verbose #60181 > │ | US8_0 of f0_0 : int32 * f0_1 : int64 │
00:09:54 verbose #60182 > │ | US8_1 of f1_0 : exn │
00:09:54 verbose #60183 > │ and [<Struct>] US9 = │
00:09:54 verbose #60184 > │ | US9_0 of f0_0 : int32 * f0_1 : int64 │
00:09:54 verbose #60185 > │ | US9_1 of f1_0 : exn │
00:09:54 verbose #60186 > │ let rec closure0 () () : string = │
00:09:54 verbose #60187 > │ let v0 : string = "1" │
00:09:54 verbose #60188 > │ v0 │
00:09:54 verbose #60189 > │ and closure1 () () : string = │
00:09:54 verbose #60190 > │ let v0 : string = "" │
00:09:54 verbose #60191 > │ v0 │
00:09:54 verbose #60192 > │ and closure4 () (v0 : string) : unit = │
00:09:54 verbose #60193 > │ () │
00:09:54 verbose #60194 > │ and method2 (v0 : int64 option) : int64 option = │
00:09:54 verbose #60195 > │ v0 │
00:09:54 verbose #60196 > │ and method3 (v0 : int64 option) : int64 option = │
00:09:54 verbose #60197 > │ v0 │
00:09:54 verbose #60198 > │ and closure3 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:54 verbose #60199 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:54 verbose #60200 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:54 verbose #60201 > │ let v2 : US0 = US0_0 │
00:09:54 verbose #60202 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:54 verbose #60203 > │ let v4 : (string -> unit) = closure4() │
00:09:54 verbose #60204 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:54 verbose #60205 > │ let v6 : int64 option option = None │
00:09:54 verbose #60206 > │ let mutable _v6 = v6 │
00:09:54 verbose #60207 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:54 verbose #60208 > │ let v7 : string option = None │
00:09:54 verbose #60209 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:54 verbose #60210 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:54 verbose #60211 > │ let v9 : string = null |> unbox<string> │
00:09:54 verbose #60212 > │ v9 │
00:09:54 verbose #60213 > │ #endif │
00:09:54 verbose #60214 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:54 verbose #60215 > │ let v10 : string = null |> unbox<string> │
00:09:54 verbose #60216 > │ v10 │
00:09:54 verbose #60217 > │ #endif │
00:09:54 verbose #60218 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:54 verbose #60219 > │ let v11 : string = null |> unbox<string> │
00:09:54 verbose #60220 > │ v11 │
00:09:54 verbose #60221 > │ #endif │
00:09:54 verbose #60222 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:54 verbose #60223 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:54 verbose #60224 > │ let v12 : string = │
00:09:54 verbose #60225 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:54 verbose #60226 > │ v12 │
00:09:54 verbose #60227 > │ #endif │
00:09:54 verbose #60228 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:54 verbose #60229 > │ let v13 : string = null |> unbox<string> │
00:09:54 verbose #60230 > │ v13 │
00:09:54 verbose #60231 > │ #endif │
00:09:54 verbose #60232 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:54 verbose #60233 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:54 verbose #60234 > │ v14 │
00:09:54 verbose #60235 > │ #endif │
00:09:54 verbose #60236 > │ |> fun x -> _v7 <- Some x │
00:09:54 verbose #60237 > │ let v15 : string = _v7.Value │
00:09:54 verbose #60238 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:54 verbose #60239 > │ let v18 : bool = v17 <> true │
00:09:54 verbose #60240 > │ let v24 : US1 = │
00:09:54 verbose #60241 > │ if v18 then │
00:09:54 verbose #60242 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:54 verbose #60243 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:54 verbose #60244 > │ let v21 : int64 = v20 v19 │
00:09:54 verbose #60245 > │ US1_0(v21) │
00:09:54 verbose #60246 > │ else │
00:09:54 verbose #60247 > │ US1_1 │
00:09:54 verbose #60248 > │ let v29 : int64 option = │
00:09:54 verbose #60249 > │ match v24 with │
00:09:54 verbose #60250 > │ | US1_1 -> (* None *) │
00:09:54 verbose #60251 > │ let v27 : int64 option = None │
00:09:54 verbose #60252 > │ v27 │
00:09:54 verbose #60253 > │ | US1_0(v25) -> (* Some *) │
00:09:54 verbose #60254 > │ let v26 : int64 option = Some v25 │
00:09:54 verbose #60255 > │ v26 │
00:09:54 verbose #60256 > │ let v30 : int64 option = method2(v29) │
00:09:54 verbose #60257 > │ v30 │
00:09:54 verbose #60258 > │ #else │
00:09:54 verbose #60259 > │ let v31 : int64 option = None │
00:09:54 verbose #60260 > │ let v32 : int64 option = method3(v31) │
00:09:54 verbose #60261 > │ v32 │
00:09:54 verbose #60262 > │ #endif │
00:09:54 verbose #60263 > │ |> fun x -> _v6 <- Some x │
00:09:54 verbose #60264 > │ let v33 : int64 option = _v6.Value │
00:09:54 verbose #60265 > │ struct (v1, v0, v3, v33, v5) │
00:09:54 verbose #60266 > │ and closure5 () (v0 : int64) : US2 = │
00:09:54 verbose #60267 > │ US2_0(v0) │
00:09:54 verbose #60268 > │ and method4 () : (int64 -> US2) = │
00:09:54 verbose #60269 > │ closure5() │
00:09:54 verbose #60270 > │ and method5 () : string = │
00:09:54 verbose #60271 > │ let v0 : string = "" │
00:09:54 verbose #60272 > │ v0 │
00:09:54 verbose #60273 > │ and closure2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:54 verbose #60274 > │ string = │
00:09:54 verbose #60275 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:54 verbose #60276 > │ closure3() │
00:09:54 verbose #60277 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:54 verbose #60278 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:54 verbose #60279 > │ Mut3) = State.trace_state.Value │
00:09:54 verbose #60280 > │ let v9 : string option = None │
00:09:54 verbose #60281 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:54 verbose #60282 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:54 verbose #60283 > │ let v11 : (int64 -> US2) = method4() │
00:09:54 verbose #60284 > │ let v12 : US2 = US2_1 │
00:09:54 verbose #60285 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:54 verbose #60286 > │ let v31 : System.DateTime = │
00:09:54 verbose #60287 > │ match v13 with │
00:09:54 verbose #60288 > │ | US2_1 -> (* None *) │
00:09:54 verbose #60289 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:54 verbose #60290 > │ v29 │
00:09:54 verbose #60291 > │ | US2_0(v14) -> (* Some *) │
00:09:54 verbose #60292 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:54 verbose #60293 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:54 verbose #60294 > │ let v17 : int64 = v16 v15 │
00:09:54 verbose #60295 > │ let v18 : int64 = v17 - v14 │
00:09:54 verbose #60296 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:54 verbose #60297 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:54 verbose #60298 > │ let v21 : int32 = v20 v19 │
00:09:54 verbose #60299 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:54 verbose #60300 > │ let v23 : int32 = v22 v19 │
00:09:54 verbose #60301 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:54 verbose #60302 > │ let v25 : int32 = v24 v19 │
00:09:54 verbose #60303 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:54 verbose #60304 > │ let v27 : int32 = v26 v19 │
00:09:54 verbose #60305 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:54 verbose #60306 > │ v25, v27) │
00:09:54 verbose #60307 > │ v28 │
00:09:54 verbose #60308 > │ let v32 : string = "hh:mm:ss" │
00:09:54 verbose #60309 > │ let v33 : string = v31.ToString v32 │
00:09:54 verbose #60310 > │ v33 │
00:09:54 verbose #60311 > │ #endif │
00:09:54 verbose #60312 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:54 verbose #60313 > │ let v34 : string = method5() │
00:09:54 verbose #60314 > │ v34 │
00:09:54 verbose #60315 > │ #endif │
00:09:54 verbose #60316 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:54 verbose #60317 > │ let v35 : string = method5() │
00:09:54 verbose #60318 > │ v35 │
00:09:54 verbose #60319 > │ #endif │
00:09:54 verbose #60320 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:54 verbose #60321 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:54 verbose #60322 > │ let v36 : (int64 -> US2) = method4() │
00:09:54 verbose #60323 > │ let v37 : US2 = US2_1 │
00:09:54 verbose #60324 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:54 verbose #60325 > │ let v56 : System.DateTime = │
00:09:54 verbose #60326 > │ match v38 with │
00:09:54 verbose #60327 > │ | US2_1 -> (* None *) │
00:09:54 verbose #60328 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:54 verbose #60329 > │ v54 │
00:09:54 verbose #60330 > │ | US2_0(v39) -> (* Some *) │
00:09:54 verbose #60331 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:54 verbose #60332 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:54 verbose #60333 > │ let v42 : int64 = v41 v40 │
00:09:54 verbose #60334 > │ let v43 : int64 = v42 - v39 │
00:09:54 verbose #60335 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:54 verbose #60336 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:54 verbose #60337 > │ let v46 : int32 = v45 v44 │
00:09:54 verbose #60338 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:54 verbose #60339 > │ let v48 : int32 = v47 v44 │
00:09:54 verbose #60340 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:54 verbose #60341 > │ let v50 : int32 = v49 v44 │
00:09:54 verbose #60342 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:54 verbose #60343 > │ let v52 : int32 = v51 v44 │
00:09:54 verbose #60344 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:54 verbose #60345 > │ v50, v52) │
00:09:54 verbose #60346 > │ v53 │
00:09:54 verbose #60347 > │ let v57 : string = "HH:mm:ss" │
00:09:54 verbose #60348 > │ let v58 : string = v56.ToString v57 │
00:09:54 verbose #60349 > │ v58 │
00:09:54 verbose #60350 > │ #endif │
00:09:54 verbose #60351 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:54 verbose #60352 > │ let v59 : string = method5() │
00:09:54 verbose #60353 > │ v59 │
00:09:54 verbose #60354 > │ #endif │
00:09:54 verbose #60355 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:54 verbose #60356 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:54 verbose #60357 > │ v60 │
00:09:54 verbose #60358 > │ #endif │
00:09:54 verbose #60359 > │ |> fun x -> _v9 <- Some x │
00:09:54 verbose #60360 > │ let v61 : string = _v9.Value │
00:09:54 verbose #60361 > │ let v62 : int64 = v4.l0 │
00:09:54 verbose #60362 > │ let v72 : string = │
00:09:54 verbose #60363 > │ match v0 with │
00:09:54 verbose #60364 > │ | US0_4 -> (* Critical *) │
00:09:54 verbose #60365 > │ let v67 : string = "Critical" │
00:09:54 verbose #60366 > │ v67 │
00:09:54 verbose #60367 > │ | US0_1 -> (* Debug *) │
00:09:54 verbose #60368 > │ let v64 : string = "Debug" │
00:09:54 verbose #60369 > │ v64 │
00:09:54 verbose #60370 > │ | US0_2 -> (* Info *) │
00:09:54 verbose #60371 > │ let v65 : string = "Info" │
00:09:54 verbose #60372 > │ v65 │
00:09:54 verbose #60373 > │ | US0_0 -> (* Verbose *) │
00:09:54 verbose #60374 > │ let v63 : string = "Verbose" │
00:09:54 verbose #60375 > │ v63 │
00:09:54 verbose #60376 > │ | US0_3 -> (* Warning *) │
00:09:54 verbose #60377 > │ let v66 : string = "Warning" │
00:09:54 verbose #60378 > │ v66 │
00:09:54 verbose #60379 > │ let v73 : string = v72.ToLower () │
00:09:54 verbose #60380 > │ let v74 : string option = None │
00:09:54 verbose #60381 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:54 verbose #60382 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:54 verbose #60383 > │ let v90 : Ref<Str> = │
00:09:54 verbose #60384 > │ match v0 with │
00:09:54 verbose #60385 > │ | US0_4 -> (* Critical *) │
00:09:54 verbose #60386 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:54 verbose #60387 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:54 verbose #60388 > │ v85 │
00:09:54 verbose #60389 > │ | US0_1 -> (* Debug *) │
00:09:54 verbose #60390 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:54 verbose #60391 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:54 verbose #60392 > │ v79 │
00:09:54 verbose #60393 > │ | US0_2 -> (* Info *) │
00:09:54 verbose #60394 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:54 verbose #60395 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:54 verbose #60396 > │ v81 │
00:09:54 verbose #60397 > │ | US0_0 -> (* Verbose *) │
00:09:54 verbose #60398 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:54 verbose #60399 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:54 verbose #60400 > │ v77 │
00:09:54 verbose #60401 > │ | US0_3 -> (* Warning *) │
00:09:54 verbose #60402 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:54 verbose #60403 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:54 verbose #60404 > │ v83 │
00:09:54 verbose #60405 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:54 verbose #60406 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:54 verbose #60407 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:54 verbose #60408 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:54 verbose #60409 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:54 verbose #60410 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:54 verbose #60411 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:54 verbose #60412 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:54 verbose #60413 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:54 verbose #60414 > │ v99 │
00:09:54 verbose #60415 > │ #endif │
00:09:54 verbose #60416 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:54 verbose #60417 > │ let v114 : Ref<Str> = │
00:09:54 verbose #60418 > │ match v0 with │
00:09:54 verbose #60419 > │ | US0_4 -> (* Critical *) │
00:09:54 verbose #60420 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:54 verbose #60421 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60422 > │ v108 │
00:09:54 verbose #60423 > │ v109 │
00:09:54 verbose #60424 > │ | US0_1 -> (* Debug *) │
00:09:54 verbose #60425 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:54 verbose #60426 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60427 > │ v102 │
00:09:54 verbose #60428 > │ v103 │
00:09:54 verbose #60429 > │ | US0_2 -> (* Info *) │
00:09:54 verbose #60430 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:54 verbose #60431 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60432 > │ v104 │
00:09:54 verbose #60433 > │ v105 │
00:09:54 verbose #60434 > │ | US0_0 -> (* Verbose *) │
00:09:54 verbose #60435 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:54 verbose #60436 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60437 > │ v100 │
00:09:54 verbose #60438 > │ v101 │
00:09:54 verbose #60439 > │ | US0_3 -> (* Warning *) │
00:09:54 verbose #60440 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:54 verbose #60441 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60442 > │ v106 │
00:09:54 verbose #60443 > │ v107 │
00:09:54 verbose #60444 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:54 verbose #60445 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:54 verbose #60446 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:54 verbose #60447 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:54 verbose #60448 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:54 verbose #60449 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:54 verbose #60450 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60451 > │ v120 │
00:09:54 verbose #60452 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:54 verbose #60453 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:54 verbose #60454 > │ v123 │
00:09:54 verbose #60455 > │ #endif │
00:09:54 verbose #60456 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:54 verbose #60457 > │ let v138 : Ref<Str> = │
00:09:54 verbose #60458 > │ match v0 with │
00:09:54 verbose #60459 > │ | US0_4 -> (* Critical *) │
00:09:54 verbose #60460 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:54 verbose #60461 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60462 > │ v132 │
00:09:54 verbose #60463 > │ v133 │
00:09:54 verbose #60464 > │ | US0_1 -> (* Debug *) │
00:09:54 verbose #60465 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:54 verbose #60466 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60467 > │ v126 │
00:09:54 verbose #60468 > │ v127 │
00:09:54 verbose #60469 > │ | US0_2 -> (* Info *) │
00:09:54 verbose #60470 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:54 verbose #60471 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60472 > │ v128 │
00:09:54 verbose #60473 > │ v129 │
00:09:54 verbose #60474 > │ | US0_0 -> (* Verbose *) │
00:09:54 verbose #60475 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:54 verbose #60476 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60477 > │ v124 │
00:09:54 verbose #60478 > │ v125 │
00:09:54 verbose #60479 > │ | US0_3 -> (* Warning *) │
00:09:54 verbose #60480 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:54 verbose #60481 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60482 > │ v130 │
00:09:54 verbose #60483 > │ v131 │
00:09:54 verbose #60484 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:54 verbose #60485 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:54 verbose #60486 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:54 verbose #60487 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:54 verbose #60488 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:54 verbose #60489 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:54 verbose #60490 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:54 verbose #60491 > │ v144 │
00:09:54 verbose #60492 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:54 verbose #60493 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:54 verbose #60494 > │ v147 │
00:09:54 verbose #60495 > │ #endif │
00:09:54 verbose #60496 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:54 verbose #60497 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:54 verbose #60498 > │ v73 │
00:09:54 verbose #60499 > │ #endif │
00:09:54 verbose #60500 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:54 verbose #60501 > │ v73 │
00:09:54 verbose #60502 > │ #endif │
00:09:54 verbose #60503 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:54 verbose #60504 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:54 verbose #60505 > │ v148 │
00:09:54 verbose #60506 > │ #endif │
00:09:54 verbose #60507 > │ |> fun x -> _v74 <- Some x │
00:09:54 verbose #60508 > │ let v149 : string = _v74.Value │
00:09:54 verbose #60509 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:54 verbose #60510 > │ let v151 : (char []) = [||] │
00:09:54 verbose #60511 > │ let v152 : string = v150.TrimStart v151 │
00:09:54 verbose #60512 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:54 verbose #60513 > │ let v154 : string = v152.TrimEnd v153 │
00:09:54 verbose #60514 > │ v154 │
00:09:54 verbose #60515 > │ and method6 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:54 verbose #60516 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:54 verbose #60517 > │ closure3() │
00:09:54 verbose #60518 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:54 verbose #60519 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:54 verbose #60520 > │ Mut3) = State.trace_state.Value │
00:09:54 verbose #60521 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:54 verbose #60522 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:54 verbose #60523 > │ Mut3) = State.trace_state.Value │
00:09:54 verbose #60524 > │ let v13 : US0 = v10.l0 │
00:09:54 verbose #60525 > │ let v14 : bool = v9.l0 │
00:09:54 verbose #60526 > │ let v15 : bool = v14 = false │
00:09:54 verbose #60527 > │ let v19 : bool = │
00:09:54 verbose #60528 > │ if v15 then │
00:09:54 verbose #60529 > │ false │
00:09:54 verbose #60530 > │ else │
00:09:54 verbose #60531 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:54 verbose #60532 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:54 verbose #60533 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:54 verbose #60534 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:54 verbose #60535 > │ let v18 : bool = v16 >= v17 │
00:09:54 verbose #60536 > │ v18 │
00:09:54 verbose #60537 > │ if v19 then │
00:09:54 verbose #60538 > │ let v20 : int64 = v3.l0 │
00:09:54 verbose #60539 > │ let v21 : int64 = v20 + 1L │
00:09:54 verbose #60540 > │ v3.l0 <- v21 │
00:09:54 verbose #60541 > │ let v22 : string = $"%s{v1 ()}" │
00:09:54 verbose #60542 > │ let v23 : unit option = None │
00:09:54 verbose #60543 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:54 verbose #60544 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:54 verbose #60545 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:54 verbose #60546 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:54 verbose #60547 > │ () │
00:09:54 verbose #60548 > │ #endif │
00:09:54 verbose #60549 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:54 verbose #60550 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:54 verbose #60551 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:54 verbose #60552 > │ () │
00:09:54 verbose #60553 > │ #endif │
00:09:54 verbose #60554 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:54 verbose #60555 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:54 verbose #60556 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:54 verbose #60557 > │ () │
00:09:54 verbose #60558 > │ #endif │
00:09:54 verbose #60559 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:54 verbose #60560 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:54 verbose #60561 > │ System.Console.WriteLine v22 │
00:09:54 verbose #60562 > │ () │
00:09:54 verbose #60563 > │ #endif │
00:09:54 verbose #60564 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:54 verbose #60565 > │ System.Console.WriteLine v22 │
00:09:54 verbose #60566 > │ () │
00:09:54 verbose #60567 > │ #endif │
00:09:54 verbose #60568 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:54 verbose #60569 > │ FABLE_COMPILER_DART │
00:09:54 verbose #60570 > │ Unchecked.defaultof<unit> │
00:09:54 verbose #60571 > │ () │
00:09:54 verbose #60572 > │ #endif │
00:09:54 verbose #60573 > │ |> fun x -> _v23 <- Some x │
00:09:54 verbose #60574 > │ _v23.Value │
00:09:54 verbose #60575 > │ let v28 : (string -> unit) = v7.l0 │
00:09:54 verbose #60576 > │ v28 v22 │
00:09:54 verbose #60577 > │ and method1 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:54 verbose #60578 > │ = │
00:09:54 verbose #60579 > │ let v3 : (unit -> string) = closure2(v0, v1, v2) │
00:09:54 verbose #60580 > │ method6(v0, v3) │
00:09:54 verbose #60581 > │ and closure6 () () : string = │
00:09:54 verbose #60582 > │ let v0 : string = "_1" │
00:09:54 verbose #60583 > │ v0 │
00:09:54 verbose #60584 > │ and closure7 () () : string = │
00:09:54 verbose #60585 > │ let v0 : string = "_2" │
00:09:54 verbose #60586 > │ v0 │
00:09:54 verbose #60587 > │ and closure8 () () : string = │
00:09:54 verbose #60588 > │ let v0 : string = "_3" │
00:09:54 verbose #60589 > │ v0 │
00:09:54 verbose #60590 > │ and closure9 () () : string = │
00:09:54 verbose #60591 > │ let v0 : string = "_4" │
00:09:54 verbose #60592 > │ v0 │
00:09:54 verbose #60593 > │ and closure10 () () : string = │
00:09:54 verbose #60594 > │ let v0 : string = "_5" │
00:09:54 verbose #60595 > │ v0 │
00:09:54 verbose #60596 > │ and closure11 () () : string = │
00:09:54 verbose #60597 > │ let v0 : string = "2" │
00:09:54 verbose #60598 > │ v0 │
00:09:54 verbose #60599 > │ and closure12 () () : string = │
00:09:54 verbose #60600 > │ let v0 : string = "3" │
00:09:54 verbose #60601 > │ v0 │
00:09:54 verbose #60602 > │ and closure13 () (v0 : int32) : US3 = │
00:09:54 verbose #60603 > │ US3_0(v0) │
00:09:54 verbose #60604 > │ and method8 () : (int32 -> US3) = │
00:09:54 verbose #60605 > │ closure13() │
00:09:54 verbose #60606 > │ and closure14 (v0 : string) () : string = │
00:09:54 verbose #60607 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:54 verbose #60608 > │ v1 │
00:09:54 verbose #60609 > │ and closure15 () (v0 : bool) : US5 = │
00:09:54 verbose #60610 > │ US5_0(v0) │
00:09:54 verbose #60611 > │ and closure16 () (v0 : exn) : US5 = │
00:09:54 verbose #60612 > │ US5_1(v0) │
00:09:54 verbose #60613 > │ and closure17 () () : string = │
00:09:54 verbose #60614 > │ let v0 : string = "run_with_timeout_async" │
00:09:54 verbose #60615 > │ v0 │
00:09:54 verbose #60616 > │ and closure18 (v0 : int32) () : string = │
00:09:54 verbose #60617 > │ let v1 : (unit -> string) = closure1() │
00:09:54 verbose #60618 > │ let v2 : string = $"timeout: {v0} / {v1 ()}" │
00:09:54 verbose #60619 > │ v2 │
00:09:54 verbose #60620 > │ and closure19 (v0 : string) () : string = │
00:09:54 verbose #60621 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:54 verbose #60622 > │ v1 │
00:09:54 verbose #60623 > │ and method7 (v0 : int32 option, v1 : int32) : Async<int32> = │
00:09:54 verbose #60624 > │ let v2 : Async<int32> option = None │
00:09:54 verbose #60625 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:54 verbose #60626 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:54 verbose #60627 > │ let v4 : Async<int32> = null |> unbox<Async<int32>> │
00:09:54 verbose #60628 > │ v4 │
00:09:54 verbose #60629 > │ #endif │
00:09:54 verbose #60630 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:54 verbose #60631 > │ let v5 : Async<int32> = null |> unbox<Async<int32>> │
00:09:54 verbose #60632 > │ v5 │
00:09:54 verbose #60633 > │ #endif │
00:09:54 verbose #60634 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:54 verbose #60635 > │ let v6 : Async<int32> = null |> unbox<Async<int32>> │
00:09:54 verbose #60636 > │ v6 │
00:09:54 verbose #60637 > │ #endif │
00:09:54 verbose #60638 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60639 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60640 > │ let v7 : Async<int32> option = None │
00:09:55 verbose #60641 > │ let mutable _v7 = v7 │
00:09:55 verbose #60642 > │ async { │
00:09:55 verbose #60643 > │ let v8 : (int32 -> US3) = method8() │
00:09:55 verbose #60644 > │ let v9 : US3 = US3_1 │
00:09:55 verbose #60645 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:55 verbose #60646 > │ let v225 : Async<bool> = │
00:09:55 verbose #60647 > │ match v10 with │
00:09:55 verbose #60648 > │ | US3_1 -> (* None *) │
00:09:55 verbose #60649 > │ let v11 : Async<bool> option = None │
00:09:55 verbose #60650 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:55 verbose #60651 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60652 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60653 > │ v13 │
00:09:55 verbose #60654 > │ #endif │
00:09:55 verbose #60655 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60656 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60657 > │ v14 │
00:09:55 verbose #60658 > │ #endif │
00:09:55 verbose #60659 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60660 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60661 > │ v15 │
00:09:55 verbose #60662 > │ #endif │
00:09:55 verbose #60663 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60664 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60665 > │ let v16 : Async<bool> option = None │
00:09:55 verbose #60666 > │ let mutable _v16 = v16 │
00:09:55 verbose #60667 > │ async { │
00:09:55 verbose #60668 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:55 verbose #60669 > │ Async.CancellationToken │
00:09:55 verbose #60670 > │ let! v17 = v17 │
00:09:55 verbose #60671 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:55 verbose #60672 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:55 verbose #60673 > │ System.Net.Sockets.TcpClient () │
00:09:55 verbose #60674 > │ use v19 = v19 │
00:09:55 verbose #60675 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:55 verbose #60676 > │ try │
00:09:55 verbose #60677 > │ let v21 : string = "127.0.0.1" │
00:09:55 verbose #60678 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:55 verbose #60679 > │ (v21, v1, v18) │
00:09:55 verbose #60680 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:55 verbose #60681 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:55 verbose #60682 > │ let v25 : Async<unit> option = None │
00:09:55 verbose #60683 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:55 verbose #60684 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60685 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60686 > │ v27 │
00:09:55 verbose #60687 > │ #endif │
00:09:55 verbose #60688 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60689 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60690 > │ v28 │
00:09:55 verbose #60691 > │ #endif │
00:09:55 verbose #60692 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60693 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60694 > │ v29 │
00:09:55 verbose #60695 > │ #endif │
00:09:55 verbose #60696 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60697 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60698 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:55 verbose #60699 > │ Async.AwaitTask │
00:09:55 verbose #60700 > │ let v31 : Async<unit> = v30 v24 │
00:09:55 verbose #60701 > │ v31 │
00:09:55 verbose #60702 > │ #endif │
00:09:55 verbose #60703 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60704 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60705 > │ v32 │
00:09:55 verbose #60706 > │ #endif │
00:09:55 verbose #60707 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60708 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60709 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #60710 > │ v33 │
00:09:55 verbose #60711 > │ #endif │
00:09:55 verbose #60712 > │ |> fun x -> _v25 <- Some x │
00:09:55 verbose #60713 > │ let v34 : Async<unit> = _v25.Value │
00:09:55 verbose #60714 > │ do! v34 │
00:09:55 verbose #60715 > │ return true │
00:09:55 verbose #60716 > │ with ex -> │
00:09:55 verbose #60717 > │ let v35 : exn = ex │
00:09:55 verbose #60718 > │ let v36 : string option = None │
00:09:55 verbose #60719 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:55 verbose #60720 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60721 > │ let v38 : string = $"%A{v35}" │
00:09:55 verbose #60722 > │ v38 │
00:09:55 verbose #60723 > │ #endif │
00:09:55 verbose #60724 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60725 > │ let v39 : string = $"%A{v35}" │
00:09:55 verbose #60726 > │ v39 │
00:09:55 verbose #60727 > │ #endif │
00:09:55 verbose #60728 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60729 > │ let v40 : string = $"%A{v35}" │
00:09:55 verbose #60730 > │ v40 │
00:09:55 verbose #60731 > │ #endif │
00:09:55 verbose #60732 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60733 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60734 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:55 verbose #60735 > │ v41 │
00:09:55 verbose #60736 > │ #endif │
00:09:55 verbose #60737 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60738 > │ let v42 : string = $"%A{v35}" │
00:09:55 verbose #60739 > │ v42 │
00:09:55 verbose #60740 > │ #endif │
00:09:55 verbose #60741 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60742 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60743 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:55 verbose #60744 > │ v43 │
00:09:55 verbose #60745 > │ #endif │
00:09:55 verbose #60746 > │ |> fun x -> _v36 <- Some x │
00:09:55 verbose #60747 > │ let v44 : string = _v36.Value │
00:09:55 verbose #60748 > │ let v45 : US0 = US0_0 │
00:09:55 verbose #60749 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:55 verbose #60750 > │ let v47 : (unit -> string) = closure1() │
00:09:55 verbose #60751 > │ method1(v45, v46, v47) │
00:09:55 verbose #60752 > │ return false │
00:09:55 verbose #60753 > │ (* │
00:09:55 verbose #60754 > │ let v48 : bool = *) │
00:09:55 verbose #60755 > │ } │
00:09:55 verbose #60756 > │ |> fun x -> _v16 <- Some x │
00:09:55 verbose #60757 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:55 verbose #60758 > │ v49 │
00:09:55 verbose #60759 > │ #endif │
00:09:55 verbose #60760 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60761 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60762 > │ v50 │
00:09:55 verbose #60763 > │ #endif │
00:09:55 verbose #60764 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60765 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60766 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:55 verbose #60767 > │ v51 │
00:09:55 verbose #60768 > │ #endif │
00:09:55 verbose #60769 > │ |> fun x -> _v11 <- Some x │
00:09:55 verbose #60770 > │ let v52 : Async<bool> = _v11.Value │
00:09:55 verbose #60771 > │ v52 │
00:09:55 verbose #60772 > │ | US3_0(v53) -> (* Some *) │
00:09:55 verbose #60773 > │ let v54 : Async<bool> option = None │
00:09:55 verbose #60774 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:55 verbose #60775 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60776 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60777 > │ v56 │
00:09:55 verbose #60778 > │ #endif │
00:09:55 verbose #60779 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60780 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60781 > │ v57 │
00:09:55 verbose #60782 > │ #endif │
00:09:55 verbose #60783 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60784 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60785 > │ v58 │
00:09:55 verbose #60786 > │ #endif │
00:09:55 verbose #60787 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60788 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60789 > │ let v59 : Async<bool> option = None │
00:09:55 verbose #60790 > │ let mutable _v59 = v59 │
00:09:55 verbose #60791 > │ async { │
00:09:55 verbose #60792 > │ let v60 : Async<bool> option = None │
00:09:55 verbose #60793 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:55 verbose #60794 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60795 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60796 > │ v62 │
00:09:55 verbose #60797 > │ #endif │
00:09:55 verbose #60798 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60799 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60800 > │ v63 │
00:09:55 verbose #60801 > │ #endif │
00:09:55 verbose #60802 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60803 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60804 > │ v64 │
00:09:55 verbose #60805 > │ #endif │
00:09:55 verbose #60806 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60807 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60808 > │ let v65 : Async<bool> option = None │
00:09:55 verbose #60809 > │ let mutable _v65 = v65 │
00:09:55 verbose #60810 > │ async { │
00:09:55 verbose #60811 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:55 verbose #60812 > │ Async.CancellationToken │
00:09:55 verbose #60813 > │ let! v66 = v66 │
00:09:55 verbose #60814 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:55 verbose #60815 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:55 verbose #60816 > │ System.Net.Sockets.TcpClient () │
00:09:55 verbose #60817 > │ use v68 = v68 │
00:09:55 verbose #60818 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:55 verbose #60819 > │ try │
00:09:55 verbose #60820 > │ let v70 : string = "127.0.0.1" │
00:09:55 verbose #60821 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:55 verbose #60822 > │ (v70, v1, v67) │
00:09:55 verbose #60823 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:55 verbose #60824 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:55 verbose #60825 > │ let v74 : Async<unit> option = None │
00:09:55 verbose #60826 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:55 verbose #60827 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60828 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60829 > │ v76 │
00:09:55 verbose #60830 > │ #endif │
00:09:55 verbose #60831 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60832 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60833 > │ v77 │
00:09:55 verbose #60834 > │ #endif │
00:09:55 verbose #60835 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60836 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60837 > │ v78 │
00:09:55 verbose #60838 > │ #endif │
00:09:55 verbose #60839 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60840 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60841 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:55 verbose #60842 > │ Async.AwaitTask │
00:09:55 verbose #60843 > │ let v80 : Async<unit> = v79 v73 │
00:09:55 verbose #60844 > │ v80 │
00:09:55 verbose #60845 > │ #endif │
00:09:55 verbose #60846 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60847 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #60848 > │ v81 │
00:09:55 verbose #60849 > │ #endif │
00:09:55 verbose #60850 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60851 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60852 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #60853 > │ v82 │
00:09:55 verbose #60854 > │ #endif │
00:09:55 verbose #60855 > │ |> fun x -> _v74 <- Some x │
00:09:55 verbose #60856 > │ let v83 : Async<unit> = _v74.Value │
00:09:55 verbose #60857 > │ do! v83 │
00:09:55 verbose #60858 > │ return true │
00:09:55 verbose #60859 > │ with ex -> │
00:09:55 verbose #60860 > │ let v84 : exn = ex │
00:09:55 verbose #60861 > │ let v85 : string option = None │
00:09:55 verbose #60862 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:55 verbose #60863 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60864 > │ let v87 : string = $"%A{v84}" │
00:09:55 verbose #60865 > │ v87 │
00:09:55 verbose #60866 > │ #endif │
00:09:55 verbose #60867 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60868 > │ let v88 : string = $"%A{v84}" │
00:09:55 verbose #60869 > │ v88 │
00:09:55 verbose #60870 > │ #endif │
00:09:55 verbose #60871 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60872 > │ let v89 : string = $"%A{v84}" │
00:09:55 verbose #60873 > │ v89 │
00:09:55 verbose #60874 > │ #endif │
00:09:55 verbose #60875 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60876 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60877 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:55 verbose #60878 > │ v90 │
00:09:55 verbose #60879 > │ #endif │
00:09:55 verbose #60880 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60881 > │ let v91 : string = $"%A{v84}" │
00:09:55 verbose #60882 > │ v91 │
00:09:55 verbose #60883 > │ #endif │
00:09:55 verbose #60884 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60885 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60886 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:55 verbose #60887 > │ v92 │
00:09:55 verbose #60888 > │ #endif │
00:09:55 verbose #60889 > │ |> fun x -> _v85 <- Some x │
00:09:55 verbose #60890 > │ let v93 : string = _v85.Value │
00:09:55 verbose #60891 > │ let v94 : US0 = US0_0 │
00:09:55 verbose #60892 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:55 verbose #60893 > │ let v96 : (unit -> string) = closure1() │
00:09:55 verbose #60894 > │ method1(v94, v95, v96) │
00:09:55 verbose #60895 > │ return false │
00:09:55 verbose #60896 > │ (* │
00:09:55 verbose #60897 > │ let v97 : bool = *) │
00:09:55 verbose #60898 > │ } │
00:09:55 verbose #60899 > │ |> fun x -> _v65 <- Some x │
00:09:55 verbose #60900 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:55 verbose #60901 > │ v98 │
00:09:55 verbose #60902 > │ #endif │
00:09:55 verbose #60903 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60904 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #60905 > │ v99 │
00:09:55 verbose #60906 > │ #endif │
00:09:55 verbose #60907 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60908 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60909 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:55 verbose #60910 > │ v100 │
00:09:55 verbose #60911 > │ #endif │
00:09:55 verbose #60912 > │ |> fun x -> _v60 <- Some x │
00:09:55 verbose #60913 > │ let v101 : Async<bool> = _v60.Value │
00:09:55 verbose #60914 > │ let v102 : Async<US4> option = None │
00:09:55 verbose #60915 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:55 verbose #60916 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60917 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #60918 > │ v104 │
00:09:55 verbose #60919 > │ #endif │
00:09:55 verbose #60920 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60921 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #60922 > │ v105 │
00:09:55 verbose #60923 > │ #endif │
00:09:55 verbose #60924 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60925 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #60926 > │ v106 │
00:09:55 verbose #60927 > │ #endif │
00:09:55 verbose #60928 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60929 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60930 > │ let v107 : Async<US4> option = None │
00:09:55 verbose #60931 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:55 verbose #60932 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60933 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #60934 > │ v109 │
00:09:55 verbose #60935 > │ #endif │
00:09:55 verbose #60936 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60937 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #60938 > │ v110 │
00:09:55 verbose #60939 > │ #endif │
00:09:55 verbose #60940 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60941 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #60942 > │ v111 │
00:09:55 verbose #60943 > │ #endif │
00:09:55 verbose #60944 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60945 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60946 > │ let v112 : Async<US4> option = None │
00:09:55 verbose #60947 > │ let mutable _v112 = v112 │
00:09:55 verbose #60948 > │ async { │
00:09:55 verbose #60949 > │ let v113 : Async<Async<bool>> option = None │
00:09:55 verbose #60950 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:55 verbose #60951 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60952 > │ let v115 : Async<Async<bool>> = null |> │
00:09:55 verbose #60953 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #60954 > │ v115 │
00:09:55 verbose #60955 > │ #endif │
00:09:55 verbose #60956 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60957 > │ let v116 : Async<Async<bool>> = null |> │
00:09:55 verbose #60958 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #60959 > │ v116 │
00:09:55 verbose #60960 > │ #endif │
00:09:55 verbose #60961 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60962 > │ let v117 : Async<Async<bool>> = null |> │
00:09:55 verbose #60963 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #60964 > │ v117 │
00:09:55 verbose #60965 > │ #endif │
00:09:55 verbose #60966 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #60967 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #60968 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:55 verbose #60969 > │ v118 │
00:09:55 verbose #60970 > │ #endif │
00:09:55 verbose #60971 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #60972 > │ let v119 : Async<Async<bool>> = null |> │
00:09:55 verbose #60973 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #60974 > │ v119 │
00:09:55 verbose #60975 > │ #endif │
00:09:55 verbose #60976 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #60977 > │ FABLE_COMPILER_DART │
00:09:55 verbose #60978 > │ let v120 : Async<Async<bool>> = │
00:09:55 verbose #60979 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:55 verbose #60980 > │ v120 │
00:09:55 verbose #60981 > │ #endif │
00:09:55 verbose #60982 > │ |> fun x -> _v113 <- Some x │
00:09:55 verbose #60983 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:55 verbose #60984 > │ let! v121 = v121 │
00:09:55 verbose #60985 > │ let v122 : Async<bool> = v121 │
00:09:55 verbose #60986 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:55 verbose #60987 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:55 verbose #60988 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #60989 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #60990 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #60991 > │ v125 │
00:09:55 verbose #60992 > │ #endif │
00:09:55 verbose #60993 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #60994 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #60995 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #60996 > │ v126 │
00:09:55 verbose #60997 > │ #endif │
00:09:55 verbose #60998 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #60999 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #61000 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #61001 > │ v127 │
00:09:55 verbose #61002 > │ #endif │
00:09:55 verbose #61003 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61004 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61005 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:55 verbose #61006 > │ Async.Catch │
00:09:55 verbose #61007 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:55 verbose #61008 > │ v129 │
00:09:55 verbose #61009 > │ #endif │
00:09:55 verbose #61010 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61011 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #61012 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #61013 > │ v130 │
00:09:55 verbose #61014 > │ #endif │
00:09:55 verbose #61015 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61016 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61017 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:55 verbose #61018 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:55 verbose #61019 > │ v131 │
00:09:55 verbose #61020 > │ #endif │
00:09:55 verbose #61021 > │ |> fun x -> _v123 <- Some x │
00:09:55 verbose #61022 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:55 verbose #61023 > │ let v133 : Async<US5> option = None │
00:09:55 verbose #61024 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:55 verbose #61025 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61026 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61027 > │ v135 │
00:09:55 verbose #61028 > │ #endif │
00:09:55 verbose #61029 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61030 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61031 > │ v136 │
00:09:55 verbose #61032 > │ #endif │
00:09:55 verbose #61033 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61034 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61035 > │ v137 │
00:09:55 verbose #61036 > │ #endif │
00:09:55 verbose #61037 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61038 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61039 > │ let v138 : Async<US5> option = None │
00:09:55 verbose #61040 > │ let mutable _v138 = v138 │
00:09:55 verbose #61041 > │ async { │
00:09:55 verbose #61042 > │ let! v132 = v132 │
00:09:55 verbose #61043 > │ let v139 : Choice<bool, exn> = v132 │
00:09:55 verbose #61044 > │ let v140 : US5 option = None │
00:09:55 verbose #61045 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:55 verbose #61046 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61047 > │ let v142 : US5 = null |> unbox<US5> │
00:09:55 verbose #61048 > │ v142 │
00:09:55 verbose #61049 > │ #endif │
00:09:55 verbose #61050 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61051 > │ let v143 : US5 = null |> unbox<US5> │
00:09:55 verbose #61052 > │ v143 │
00:09:55 verbose #61053 > │ #endif │
00:09:55 verbose #61054 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61055 > │ let v144 : US5 = null |> unbox<US5> │
00:09:55 verbose #61056 > │ v144 │
00:09:55 verbose #61057 > │ #endif │
00:09:55 verbose #61058 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61059 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61060 > │ let v145 : (bool -> US5) = closure15() │
00:09:55 verbose #61061 > │ let v146 : (exn -> US5) = closure16() │
00:09:55 verbose #61062 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:55 verbose #61063 > │ Choice2Of2 x -> v146 x │
00:09:55 verbose #61064 > │ v147 │
00:09:55 verbose #61065 > │ #endif │
00:09:55 verbose #61066 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61067 > │ let v148 : US5 = null |> unbox<US5> │
00:09:55 verbose #61068 > │ v148 │
00:09:55 verbose #61069 > │ #endif │
00:09:55 verbose #61070 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61071 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61072 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:55 verbose #61073 > │ v149 │
00:09:55 verbose #61074 > │ #endif │
00:09:55 verbose #61075 > │ |> fun x -> _v140 <- Some x │
00:09:55 verbose #61076 > │ let v150 : US5 = _v140.Value │
00:09:55 verbose #61077 > │ return v150 │
00:09:55 verbose #61078 > │ } │
00:09:55 verbose #61079 > │ |> fun x -> _v138 <- Some x │
00:09:55 verbose #61080 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:55 verbose #61081 > │ v151 │
00:09:55 verbose #61082 > │ #endif │
00:09:55 verbose #61083 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61084 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61085 > │ v152 │
00:09:55 verbose #61086 > │ #endif │
00:09:55 verbose #61087 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61088 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61089 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:55 verbose #61090 > │ v153 │
00:09:55 verbose #61091 > │ #endif │
00:09:55 verbose #61092 > │ |> fun x -> _v133 <- Some x │
00:09:55 verbose #61093 > │ let v154 : Async<US5> = _v133.Value │
00:09:55 verbose #61094 > │ let v155 : Async<US6> option = None │
00:09:55 verbose #61095 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:55 verbose #61096 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61097 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61098 > │ v157 │
00:09:55 verbose #61099 > │ #endif │
00:09:55 verbose #61100 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61101 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61102 > │ v158 │
00:09:55 verbose #61103 > │ #endif │
00:09:55 verbose #61104 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61105 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61106 > │ v159 │
00:09:55 verbose #61107 > │ #endif │
00:09:55 verbose #61108 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61109 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61110 > │ let v160 : Async<US6> option = None │
00:09:55 verbose #61111 > │ let mutable _v160 = v160 │
00:09:55 verbose #61112 > │ async { │
00:09:55 verbose #61113 > │ let! v154 = v154 │
00:09:55 verbose #61114 > │ let v161 : US5 = v154 │
00:09:55 verbose #61115 > │ let v167 : US6 = │
00:09:55 verbose #61116 > │ match v161 with │
00:09:55 verbose #61117 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:55 verbose #61118 > │ US6_0(v162) │
00:09:55 verbose #61119 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:55 verbose #61120 > │ US6_1(v164) │
00:09:55 verbose #61121 > │ return v167 │
00:09:55 verbose #61122 > │ } │
00:09:55 verbose #61123 > │ |> fun x -> _v160 <- Some x │
00:09:55 verbose #61124 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:55 verbose #61125 > │ v168 │
00:09:55 verbose #61126 > │ #endif │
00:09:55 verbose #61127 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61128 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61129 > │ v169 │
00:09:55 verbose #61130 > │ #endif │
00:09:55 verbose #61131 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61132 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61133 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:55 verbose #61134 > │ v170 │
00:09:55 verbose #61135 > │ #endif │
00:09:55 verbose #61136 > │ |> fun x -> _v155 <- Some x │
00:09:55 verbose #61137 > │ let v171 : Async<US6> = _v155.Value │
00:09:55 verbose #61138 > │ let v172 : Async<US4> option = None │
00:09:55 verbose #61139 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:55 verbose #61140 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61141 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61142 > │ v174 │
00:09:55 verbose #61143 > │ #endif │
00:09:55 verbose #61144 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61145 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61146 > │ v175 │
00:09:55 verbose #61147 > │ #endif │
00:09:55 verbose #61148 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61149 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61150 > │ v176 │
00:09:55 verbose #61151 > │ #endif │
00:09:55 verbose #61152 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61153 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61154 > │ let v177 : Async<US4> option = None │
00:09:55 verbose #61155 > │ let mutable _v177 = v177 │
00:09:55 verbose #61156 > │ async { │
00:09:55 verbose #61157 > │ let! v171 = v171 │
00:09:55 verbose #61158 > │ let v178 : US6 = v171 │
00:09:55 verbose #61159 > │ let v204 : US4 = │
00:09:55 verbose #61160 > │ match v178 with │
00:09:55 verbose #61161 > │ | US6_1(v181) -> (* Error *) │
00:09:55 verbose #61162 > │ let v182 : string = $"%A{v181}" │
00:09:55 verbose #61163 > │ let v183 : string = "System.TimeoutException" │
00:09:55 verbose #61164 > │ let v184 : bool = v182.Contains v183 │
00:09:55 verbose #61165 > │ if v184 then │
00:09:55 verbose #61166 > │ let v185 : US0 = US0_1 │
00:09:55 verbose #61167 > │ let v186 : (unit -> string) = closure17() │
00:09:55 verbose #61168 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:55 verbose #61169 > │ method1(v185, v186, v187) │
00:09:55 verbose #61170 > │ US4_1 │
00:09:55 verbose #61171 > │ else │
00:09:55 verbose #61172 > │ let v189 : string option = None │
00:09:55 verbose #61173 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:55 verbose #61174 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61175 > │ let v191 : string = $"%A{v181}" │
00:09:55 verbose #61176 > │ v191 │
00:09:55 verbose #61177 > │ #endif │
00:09:55 verbose #61178 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61179 > │ let v192 : string = $"%A{v181}" │
00:09:55 verbose #61180 > │ v192 │
00:09:55 verbose #61181 > │ #endif │
00:09:55 verbose #61182 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61183 > │ let v193 : string = $"%A{v181}" │
00:09:55 verbose #61184 > │ v193 │
00:09:55 verbose #61185 > │ #endif │
00:09:55 verbose #61186 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61187 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61188 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:55 verbose #61189 > │ {v181.Message}" │
00:09:55 verbose #61190 > │ v194 │
00:09:55 verbose #61191 > │ #endif │
00:09:55 verbose #61192 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61193 > │ let v195 : string = $"%A{v181}" │
00:09:55 verbose #61194 > │ v195 │
00:09:55 verbose #61195 > │ #endif │
00:09:55 verbose #61196 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61197 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61198 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:55 verbose #61199 > │ v196 │
00:09:55 verbose #61200 > │ #endif │
00:09:55 verbose #61201 > │ |> fun x -> _v189 <- Some x │
00:09:55 verbose #61202 > │ let v197 : string = _v189.Value │
00:09:55 verbose #61203 > │ let v198 : US0 = US0_4 │
00:09:55 verbose #61204 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:55 verbose #61205 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:55 verbose #61206 > │ method1(v198, v199, v200) │
00:09:55 verbose #61207 > │ US4_1 │
00:09:55 verbose #61208 > │ | US6_0(v179) -> (* Ok *) │
00:09:55 verbose #61209 > │ US4_0(v179) │
00:09:55 verbose #61210 > │ return v204 │
00:09:55 verbose #61211 > │ } │
00:09:55 verbose #61212 > │ |> fun x -> _v177 <- Some x │
00:09:55 verbose #61213 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:55 verbose #61214 > │ v205 │
00:09:55 verbose #61215 > │ #endif │
00:09:55 verbose #61216 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61217 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61218 > │ v206 │
00:09:55 verbose #61219 > │ #endif │
00:09:55 verbose #61220 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61221 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61222 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:55 verbose #61223 > │ v207 │
00:09:55 verbose #61224 > │ #endif │
00:09:55 verbose #61225 > │ |> fun x -> _v172 <- Some x │
00:09:55 verbose #61226 > │ let v208 : Async<US4> = _v172.Value │
00:09:55 verbose #61227 > │ return! v208 │
00:09:55 verbose #61228 > │ } │
00:09:55 verbose #61229 > │ |> fun x -> _v112 <- Some x │
00:09:55 verbose #61230 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:55 verbose #61231 > │ v209 │
00:09:55 verbose #61232 > │ #endif │
00:09:55 verbose #61233 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61234 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61235 > │ v210 │
00:09:55 verbose #61236 > │ #endif │
00:09:55 verbose #61237 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61238 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61239 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:55 verbose #61240 > │ v211 │
00:09:55 verbose #61241 > │ #endif │
00:09:55 verbose #61242 > │ |> fun x -> _v107 <- Some x │
00:09:55 verbose #61243 > │ let v212 : Async<US4> = _v107.Value │
00:09:55 verbose #61244 > │ v212 │
00:09:55 verbose #61245 > │ #endif │
00:09:55 verbose #61246 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61247 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61248 > │ v213 │
00:09:55 verbose #61249 > │ #endif │
00:09:55 verbose #61250 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61251 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61252 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:55 verbose #61253 > │ v214 │
00:09:55 verbose #61254 > │ #endif │
00:09:55 verbose #61255 > │ |> fun x -> _v102 <- Some x │
00:09:55 verbose #61256 > │ let v215 : Async<US4> = _v102.Value │
00:09:55 verbose #61257 > │ let! v215 = v215 │
00:09:55 verbose #61258 > │ let v216 : US4 = v215 │
00:09:55 verbose #61259 > │ let v219 : bool = │
00:09:55 verbose #61260 > │ match v216 with │
00:09:55 verbose #61261 > │ | US4_1 -> (* None *) │
00:09:55 verbose #61262 > │ false │
00:09:55 verbose #61263 > │ | US4_0(v217) -> (* Some *) │
00:09:55 verbose #61264 > │ v217 │
00:09:55 verbose #61265 > │ return v219 │
00:09:55 verbose #61266 > │ } │
00:09:55 verbose #61267 > │ |> fun x -> _v59 <- Some x │
00:09:55 verbose #61268 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:55 verbose #61269 > │ v220 │
00:09:55 verbose #61270 > │ #endif │
00:09:55 verbose #61271 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61272 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61273 > │ v221 │
00:09:55 verbose #61274 > │ #endif │
00:09:55 verbose #61275 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61276 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61277 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:55 verbose #61278 > │ v222 │
00:09:55 verbose #61279 > │ #endif │
00:09:55 verbose #61280 > │ |> fun x -> _v54 <- Some x │
00:09:55 verbose #61281 > │ let v223 : Async<bool> = _v54.Value │
00:09:55 verbose #61282 > │ v223 │
00:09:55 verbose #61283 > │ let! v225 = v225 │
00:09:55 verbose #61284 > │ let v226 : bool = v225 │
00:09:55 verbose #61285 > │ let v227 : bool = v226 = false │
00:09:55 verbose #61286 > │ if v227 then │
00:09:55 verbose #61287 > │ return v1 │
00:09:55 verbose #61288 > │ (* │
00:09:55 verbose #61289 > │ () │
00:09:55 verbose #61290 > │ else │
00:09:55 verbose #61291 > │ *) else │
00:09:55 verbose #61292 > │ let v228 : int32 = v1 + 1 │
00:09:55 verbose #61293 > │ let v229 : Async<int32> = method7(v0, v228) │
00:09:55 verbose #61294 > │ return! v229 │
00:09:55 verbose #61295 > │ (* │
00:09:55 verbose #61296 > │ () │
00:09:55 verbose #61297 > │ *) │
00:09:55 verbose #61298 > │ } │
00:09:55 verbose #61299 > │ |> fun x -> _v7 <- Some x │
00:09:55 verbose #61300 > │ let v230 : Async<int32> = _v7 |> Option.get │
00:09:55 verbose #61301 > │ v230 │
00:09:55 verbose #61302 > │ #endif │
00:09:55 verbose #61303 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61304 > │ let v231 : Async<int32> = null |> unbox<Async<int32>> │
00:09:55 verbose #61305 > │ v231 │
00:09:55 verbose #61306 > │ #endif │
00:09:55 verbose #61307 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #61308 > │ let v232 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:09:55 verbose #61309 > │ v232 │
00:09:55 verbose #61310 > │ #endif │
00:09:55 verbose #61311 > │ |> fun x -> _v2 <- Some x │
00:09:55 verbose #61312 > │ let v233 : Async<int32> = _v2.Value │
00:09:55 verbose #61313 > │ v233 │
00:09:55 verbose #61314 > │ and closure20 () () : string = │
00:09:55 verbose #61315 > │ let v0 : string = "4" │
00:09:55 verbose #61316 > │ v0 │
00:09:55 verbose #61317 > │ and closure21 () () : string = │
00:09:55 verbose #61318 > │ let v0 : string = "wait_for_port_access" │
00:09:55 verbose #61319 > │ v0 │
00:09:55 verbose #61320 > │ and closure22 (v0 : int64) () : string = │
00:09:55 verbose #61321 > │ let v1 : (unit -> string) = closure1() │
00:09:55 verbose #61322 > │ let v2 : string = $"port: {5555} / retry: {v0} / {v1 ()}" │
00:09:55 verbose #61323 > │ v2 │
00:09:55 verbose #61324 > │ and method9 (v0 : int32 option, v1 : int64) : Async<int64> = │
00:09:55 verbose #61325 > │ let v2 : Async<int64> option = None │
00:09:55 verbose #61326 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:55 verbose #61327 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61328 > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:09:55 verbose #61329 > │ v4 │
00:09:55 verbose #61330 > │ #endif │
00:09:55 verbose #61331 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61332 > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:09:55 verbose #61333 > │ v5 │
00:09:55 verbose #61334 > │ #endif │
00:09:55 verbose #61335 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61336 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:55 verbose #61337 > │ v6 │
00:09:55 verbose #61338 > │ #endif │
00:09:55 verbose #61339 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61340 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61341 > │ let v7 : Async<int64> option = None │
00:09:55 verbose #61342 > │ let mutable _v7 = v7 │
00:09:55 verbose #61343 > │ async { │
00:09:55 verbose #61344 > │ let v8 : (int32 -> US3) = method8() │
00:09:55 verbose #61345 > │ let v9 : US3 = US3_1 │
00:09:55 verbose #61346 > │ let v10 : US3 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:55 verbose #61347 > │ let v225 : Async<bool> = │
00:09:55 verbose #61348 > │ match v10 with │
00:09:55 verbose #61349 > │ | US3_1 -> (* None *) │
00:09:55 verbose #61350 > │ let v11 : Async<bool> option = None │
00:09:55 verbose #61351 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:55 verbose #61352 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61353 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61354 > │ v13 │
00:09:55 verbose #61355 > │ #endif │
00:09:55 verbose #61356 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61357 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61358 > │ v14 │
00:09:55 verbose #61359 > │ #endif │
00:09:55 verbose #61360 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61361 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61362 > │ v15 │
00:09:55 verbose #61363 > │ #endif │
00:09:55 verbose #61364 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61365 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61366 > │ let v16 : Async<bool> option = None │
00:09:55 verbose #61367 > │ let mutable _v16 = v16 │
00:09:55 verbose #61368 > │ async { │
00:09:55 verbose #61369 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:55 verbose #61370 > │ Async.CancellationToken │
00:09:55 verbose #61371 > │ let! v17 = v17 │
00:09:55 verbose #61372 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:55 verbose #61373 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:55 verbose #61374 > │ System.Net.Sockets.TcpClient () │
00:09:55 verbose #61375 > │ use v19 = v19 │
00:09:55 verbose #61376 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:55 verbose #61377 > │ try │
00:09:55 verbose #61378 > │ let v21 : string = "127.0.0.1" │
00:09:55 verbose #61379 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:55 verbose #61380 > │ (v21, 5555, v18) │
00:09:55 verbose #61381 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:55 verbose #61382 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:55 verbose #61383 > │ let v25 : Async<unit> option = None │
00:09:55 verbose #61384 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:55 verbose #61385 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61386 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61387 > │ v27 │
00:09:55 verbose #61388 > │ #endif │
00:09:55 verbose #61389 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61390 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61391 > │ v28 │
00:09:55 verbose #61392 > │ #endif │
00:09:55 verbose #61393 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61394 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61395 > │ v29 │
00:09:55 verbose #61396 > │ #endif │
00:09:55 verbose #61397 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61398 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61399 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:55 verbose #61400 > │ Async.AwaitTask │
00:09:55 verbose #61401 > │ let v31 : Async<unit> = v30 v24 │
00:09:55 verbose #61402 > │ v31 │
00:09:55 verbose #61403 > │ #endif │
00:09:55 verbose #61404 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61405 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61406 > │ v32 │
00:09:55 verbose #61407 > │ #endif │
00:09:55 verbose #61408 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61409 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61410 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #61411 > │ v33 │
00:09:55 verbose #61412 > │ #endif │
00:09:55 verbose #61413 > │ |> fun x -> _v25 <- Some x │
00:09:55 verbose #61414 > │ let v34 : Async<unit> = _v25.Value │
00:09:55 verbose #61415 > │ do! v34 │
00:09:55 verbose #61416 > │ return true │
00:09:55 verbose #61417 > │ with ex -> │
00:09:55 verbose #61418 > │ let v35 : exn = ex │
00:09:55 verbose #61419 > │ let v36 : string option = None │
00:09:55 verbose #61420 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:55 verbose #61421 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61422 > │ let v38 : string = $"%A{v35}" │
00:09:55 verbose #61423 > │ v38 │
00:09:55 verbose #61424 > │ #endif │
00:09:55 verbose #61425 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61426 > │ let v39 : string = $"%A{v35}" │
00:09:55 verbose #61427 > │ v39 │
00:09:55 verbose #61428 > │ #endif │
00:09:55 verbose #61429 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61430 > │ let v40 : string = $"%A{v35}" │
00:09:55 verbose #61431 > │ v40 │
00:09:55 verbose #61432 > │ #endif │
00:09:55 verbose #61433 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61434 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61435 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:55 verbose #61436 > │ v41 │
00:09:55 verbose #61437 > │ #endif │
00:09:55 verbose #61438 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61439 > │ let v42 : string = $"%A{v35}" │
00:09:55 verbose #61440 > │ v42 │
00:09:55 verbose #61441 > │ #endif │
00:09:55 verbose #61442 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61443 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61444 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:55 verbose #61445 > │ v43 │
00:09:55 verbose #61446 > │ #endif │
00:09:55 verbose #61447 > │ |> fun x -> _v36 <- Some x │
00:09:55 verbose #61448 > │ let v44 : string = _v36.Value │
00:09:55 verbose #61449 > │ let v45 : US0 = US0_0 │
00:09:55 verbose #61450 > │ let v46 : (unit -> string) = closure14(v44) │
00:09:55 verbose #61451 > │ let v47 : (unit -> string) = closure1() │
00:09:55 verbose #61452 > │ method1(v45, v46, v47) │
00:09:55 verbose #61453 > │ return false │
00:09:55 verbose #61454 > │ (* │
00:09:55 verbose #61455 > │ let v48 : bool = *) │
00:09:55 verbose #61456 > │ } │
00:09:55 verbose #61457 > │ |> fun x -> _v16 <- Some x │
00:09:55 verbose #61458 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:55 verbose #61459 > │ v49 │
00:09:55 verbose #61460 > │ #endif │
00:09:55 verbose #61461 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61462 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61463 > │ v50 │
00:09:55 verbose #61464 > │ #endif │
00:09:55 verbose #61465 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61466 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61467 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:55 verbose #61468 > │ v51 │
00:09:55 verbose #61469 > │ #endif │
00:09:55 verbose #61470 > │ |> fun x -> _v11 <- Some x │
00:09:55 verbose #61471 > │ let v52 : Async<bool> = _v11.Value │
00:09:55 verbose #61472 > │ v52 │
00:09:55 verbose #61473 > │ | US3_0(v53) -> (* Some *) │
00:09:55 verbose #61474 > │ let v54 : Async<bool> option = None │
00:09:55 verbose #61475 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:55 verbose #61476 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61477 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61478 > │ v56 │
00:09:55 verbose #61479 > │ #endif │
00:09:55 verbose #61480 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61481 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61482 > │ v57 │
00:09:55 verbose #61483 > │ #endif │
00:09:55 verbose #61484 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61485 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61486 > │ v58 │
00:09:55 verbose #61487 > │ #endif │
00:09:55 verbose #61488 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61489 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61490 > │ let v59 : Async<bool> option = None │
00:09:55 verbose #61491 > │ let mutable _v59 = v59 │
00:09:55 verbose #61492 > │ async { │
00:09:55 verbose #61493 > │ let v60 : Async<bool> option = None │
00:09:55 verbose #61494 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:55 verbose #61495 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61496 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61497 > │ v62 │
00:09:55 verbose #61498 > │ #endif │
00:09:55 verbose #61499 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61500 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61501 > │ v63 │
00:09:55 verbose #61502 > │ #endif │
00:09:55 verbose #61503 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61504 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61505 > │ v64 │
00:09:55 verbose #61506 > │ #endif │
00:09:55 verbose #61507 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61508 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61509 > │ let v65 : Async<bool> option = None │
00:09:55 verbose #61510 > │ let mutable _v65 = v65 │
00:09:55 verbose #61511 > │ async { │
00:09:55 verbose #61512 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:55 verbose #61513 > │ Async.CancellationToken │
00:09:55 verbose #61514 > │ let! v66 = v66 │
00:09:55 verbose #61515 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:55 verbose #61516 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:55 verbose #61517 > │ System.Net.Sockets.TcpClient () │
00:09:55 verbose #61518 > │ use v68 = v68 │
00:09:55 verbose #61519 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:55 verbose #61520 > │ try │
00:09:55 verbose #61521 > │ let v70 : string = "127.0.0.1" │
00:09:55 verbose #61522 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:55 verbose #61523 > │ (v70, 5555, v67) │
00:09:55 verbose #61524 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:55 verbose #61525 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:55 verbose #61526 > │ let v74 : Async<unit> option = None │
00:09:55 verbose #61527 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:55 verbose #61528 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61529 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61530 > │ v76 │
00:09:55 verbose #61531 > │ #endif │
00:09:55 verbose #61532 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61533 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61534 > │ v77 │
00:09:55 verbose #61535 > │ #endif │
00:09:55 verbose #61536 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61537 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61538 > │ v78 │
00:09:55 verbose #61539 > │ #endif │
00:09:55 verbose #61540 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61541 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61542 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:55 verbose #61543 > │ Async.AwaitTask │
00:09:55 verbose #61544 > │ let v80 : Async<unit> = v79 v73 │
00:09:55 verbose #61545 > │ v80 │
00:09:55 verbose #61546 > │ #endif │
00:09:55 verbose #61547 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61548 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #61549 > │ v81 │
00:09:55 verbose #61550 > │ #endif │
00:09:55 verbose #61551 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61552 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61553 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #61554 > │ v82 │
00:09:55 verbose #61555 > │ #endif │
00:09:55 verbose #61556 > │ |> fun x -> _v74 <- Some x │
00:09:55 verbose #61557 > │ let v83 : Async<unit> = _v74.Value │
00:09:55 verbose #61558 > │ do! v83 │
00:09:55 verbose #61559 > │ return true │
00:09:55 verbose #61560 > │ with ex -> │
00:09:55 verbose #61561 > │ let v84 : exn = ex │
00:09:55 verbose #61562 > │ let v85 : string option = None │
00:09:55 verbose #61563 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:55 verbose #61564 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61565 > │ let v87 : string = $"%A{v84}" │
00:09:55 verbose #61566 > │ v87 │
00:09:55 verbose #61567 > │ #endif │
00:09:55 verbose #61568 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61569 > │ let v88 : string = $"%A{v84}" │
00:09:55 verbose #61570 > │ v88 │
00:09:55 verbose #61571 > │ #endif │
00:09:55 verbose #61572 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61573 > │ let v89 : string = $"%A{v84}" │
00:09:55 verbose #61574 > │ v89 │
00:09:55 verbose #61575 > │ #endif │
00:09:55 verbose #61576 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61577 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61578 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:55 verbose #61579 > │ v90 │
00:09:55 verbose #61580 > │ #endif │
00:09:55 verbose #61581 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61582 > │ let v91 : string = $"%A{v84}" │
00:09:55 verbose #61583 > │ v91 │
00:09:55 verbose #61584 > │ #endif │
00:09:55 verbose #61585 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61586 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61587 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:55 verbose #61588 > │ v92 │
00:09:55 verbose #61589 > │ #endif │
00:09:55 verbose #61590 > │ |> fun x -> _v85 <- Some x │
00:09:55 verbose #61591 > │ let v93 : string = _v85.Value │
00:09:55 verbose #61592 > │ let v94 : US0 = US0_0 │
00:09:55 verbose #61593 > │ let v95 : (unit -> string) = closure14(v93) │
00:09:55 verbose #61594 > │ let v96 : (unit -> string) = closure1() │
00:09:55 verbose #61595 > │ method1(v94, v95, v96) │
00:09:55 verbose #61596 > │ return false │
00:09:55 verbose #61597 > │ (* │
00:09:55 verbose #61598 > │ let v97 : bool = *) │
00:09:55 verbose #61599 > │ } │
00:09:55 verbose #61600 > │ |> fun x -> _v65 <- Some x │
00:09:55 verbose #61601 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:55 verbose #61602 > │ v98 │
00:09:55 verbose #61603 > │ #endif │
00:09:55 verbose #61604 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61605 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61606 > │ v99 │
00:09:55 verbose #61607 > │ #endif │
00:09:55 verbose #61608 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61609 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61610 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:55 verbose #61611 > │ v100 │
00:09:55 verbose #61612 > │ #endif │
00:09:55 verbose #61613 > │ |> fun x -> _v60 <- Some x │
00:09:55 verbose #61614 > │ let v101 : Async<bool> = _v60.Value │
00:09:55 verbose #61615 > │ let v102 : Async<US4> option = None │
00:09:55 verbose #61616 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:55 verbose #61617 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61618 > │ let v104 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61619 > │ v104 │
00:09:55 verbose #61620 > │ #endif │
00:09:55 verbose #61621 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61622 > │ let v105 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61623 > │ v105 │
00:09:55 verbose #61624 > │ #endif │
00:09:55 verbose #61625 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61626 > │ let v106 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61627 > │ v106 │
00:09:55 verbose #61628 > │ #endif │
00:09:55 verbose #61629 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61630 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61631 > │ let v107 : Async<US4> option = None │
00:09:55 verbose #61632 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:55 verbose #61633 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61634 > │ let v109 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61635 > │ v109 │
00:09:55 verbose #61636 > │ #endif │
00:09:55 verbose #61637 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61638 > │ let v110 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61639 > │ v110 │
00:09:55 verbose #61640 > │ #endif │
00:09:55 verbose #61641 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61642 > │ let v111 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61643 > │ v111 │
00:09:55 verbose #61644 > │ #endif │
00:09:55 verbose #61645 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61646 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61647 > │ let v112 : Async<US4> option = None │
00:09:55 verbose #61648 > │ let mutable _v112 = v112 │
00:09:55 verbose #61649 > │ async { │
00:09:55 verbose #61650 > │ let v113 : Async<Async<bool>> option = None │
00:09:55 verbose #61651 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:55 verbose #61652 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61653 > │ let v115 : Async<Async<bool>> = null |> │
00:09:55 verbose #61654 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #61655 > │ v115 │
00:09:55 verbose #61656 > │ #endif │
00:09:55 verbose #61657 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61658 > │ let v116 : Async<Async<bool>> = null |> │
00:09:55 verbose #61659 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #61660 > │ v116 │
00:09:55 verbose #61661 > │ #endif │
00:09:55 verbose #61662 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61663 > │ let v117 : Async<Async<bool>> = null |> │
00:09:55 verbose #61664 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #61665 > │ v117 │
00:09:55 verbose #61666 > │ #endif │
00:09:55 verbose #61667 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61668 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61669 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:55 verbose #61670 > │ v118 │
00:09:55 verbose #61671 > │ #endif │
00:09:55 verbose #61672 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61673 > │ let v119 : Async<Async<bool>> = null |> │
00:09:55 verbose #61674 > │ unbox<Async<Async<bool>>> │
00:09:55 verbose #61675 > │ v119 │
00:09:55 verbose #61676 > │ #endif │
00:09:55 verbose #61677 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61678 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61679 > │ let v120 : Async<Async<bool>> = │
00:09:55 verbose #61680 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:55 verbose #61681 > │ v120 │
00:09:55 verbose #61682 > │ #endif │
00:09:55 verbose #61683 > │ |> fun x -> _v113 <- Some x │
00:09:55 verbose #61684 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:55 verbose #61685 > │ let! v121 = v121 │
00:09:55 verbose #61686 > │ let v122 : Async<bool> = v121 │
00:09:55 verbose #61687 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:55 verbose #61688 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:55 verbose #61689 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61690 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #61691 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #61692 > │ v125 │
00:09:55 verbose #61693 > │ #endif │
00:09:55 verbose #61694 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61695 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #61696 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #61697 > │ v126 │
00:09:55 verbose #61698 > │ #endif │
00:09:55 verbose #61699 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61700 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #61701 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #61702 > │ v127 │
00:09:55 verbose #61703 > │ #endif │
00:09:55 verbose #61704 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61705 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61706 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:55 verbose #61707 > │ Async.Catch │
00:09:55 verbose #61708 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:55 verbose #61709 > │ v129 │
00:09:55 verbose #61710 > │ #endif │
00:09:55 verbose #61711 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61712 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:55 verbose #61713 > │ unbox<Async<Choice<bool, exn>>> │
00:09:55 verbose #61714 > │ v130 │
00:09:55 verbose #61715 > │ #endif │
00:09:55 verbose #61716 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61717 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61718 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:55 verbose #61719 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:55 verbose #61720 > │ v131 │
00:09:55 verbose #61721 > │ #endif │
00:09:55 verbose #61722 > │ |> fun x -> _v123 <- Some x │
00:09:55 verbose #61723 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:55 verbose #61724 > │ let v133 : Async<US5> option = None │
00:09:55 verbose #61725 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:55 verbose #61726 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61727 > │ let v135 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61728 > │ v135 │
00:09:55 verbose #61729 > │ #endif │
00:09:55 verbose #61730 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61731 > │ let v136 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61732 > │ v136 │
00:09:55 verbose #61733 > │ #endif │
00:09:55 verbose #61734 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61735 > │ let v137 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61736 > │ v137 │
00:09:55 verbose #61737 > │ #endif │
00:09:55 verbose #61738 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61739 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61740 > │ let v138 : Async<US5> option = None │
00:09:55 verbose #61741 > │ let mutable _v138 = v138 │
00:09:55 verbose #61742 > │ async { │
00:09:55 verbose #61743 > │ let! v132 = v132 │
00:09:55 verbose #61744 > │ let v139 : Choice<bool, exn> = v132 │
00:09:55 verbose #61745 > │ let v140 : US5 option = None │
00:09:55 verbose #61746 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:55 verbose #61747 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61748 > │ let v142 : US5 = null |> unbox<US5> │
00:09:55 verbose #61749 > │ v142 │
00:09:55 verbose #61750 > │ #endif │
00:09:55 verbose #61751 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61752 > │ let v143 : US5 = null |> unbox<US5> │
00:09:55 verbose #61753 > │ v143 │
00:09:55 verbose #61754 > │ #endif │
00:09:55 verbose #61755 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61756 > │ let v144 : US5 = null |> unbox<US5> │
00:09:55 verbose #61757 > │ v144 │
00:09:55 verbose #61758 > │ #endif │
00:09:55 verbose #61759 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61760 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61761 > │ let v145 : (bool -> US5) = closure15() │
00:09:55 verbose #61762 > │ let v146 : (exn -> US5) = closure16() │
00:09:55 verbose #61763 > │ let v147 : US5 = match v139 with Choice1Of2 x -> v145 x | │
00:09:55 verbose #61764 > │ Choice2Of2 x -> v146 x │
00:09:55 verbose #61765 > │ v147 │
00:09:55 verbose #61766 > │ #endif │
00:09:55 verbose #61767 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61768 > │ let v148 : US5 = null |> unbox<US5> │
00:09:55 verbose #61769 > │ v148 │
00:09:55 verbose #61770 > │ #endif │
00:09:55 verbose #61771 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61772 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61773 > │ let v149 : US5 = Unchecked.defaultof<US5> │
00:09:55 verbose #61774 > │ v149 │
00:09:55 verbose #61775 > │ #endif │
00:09:55 verbose #61776 > │ |> fun x -> _v140 <- Some x │
00:09:55 verbose #61777 > │ let v150 : US5 = _v140.Value │
00:09:55 verbose #61778 > │ return v150 │
00:09:55 verbose #61779 > │ } │
00:09:55 verbose #61780 > │ |> fun x -> _v138 <- Some x │
00:09:55 verbose #61781 > │ let v151 : Async<US5> = _v138 |> Option.get │
00:09:55 verbose #61782 > │ v151 │
00:09:55 verbose #61783 > │ #endif │
00:09:55 verbose #61784 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61785 > │ let v152 : Async<US5> = null |> unbox<Async<US5>> │
00:09:55 verbose #61786 > │ v152 │
00:09:55 verbose #61787 > │ #endif │
00:09:55 verbose #61788 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61789 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61790 > │ let v153 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:55 verbose #61791 > │ v153 │
00:09:55 verbose #61792 > │ #endif │
00:09:55 verbose #61793 > │ |> fun x -> _v133 <- Some x │
00:09:55 verbose #61794 > │ let v154 : Async<US5> = _v133.Value │
00:09:55 verbose #61795 > │ let v155 : Async<US6> option = None │
00:09:55 verbose #61796 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:55 verbose #61797 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61798 > │ let v157 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61799 > │ v157 │
00:09:55 verbose #61800 > │ #endif │
00:09:55 verbose #61801 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61802 > │ let v158 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61803 > │ v158 │
00:09:55 verbose #61804 > │ #endif │
00:09:55 verbose #61805 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61806 > │ let v159 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61807 > │ v159 │
00:09:55 verbose #61808 > │ #endif │
00:09:55 verbose #61809 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61810 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61811 > │ let v160 : Async<US6> option = None │
00:09:55 verbose #61812 > │ let mutable _v160 = v160 │
00:09:55 verbose #61813 > │ async { │
00:09:55 verbose #61814 > │ let! v154 = v154 │
00:09:55 verbose #61815 > │ let v161 : US5 = v154 │
00:09:55 verbose #61816 > │ let v167 : US6 = │
00:09:55 verbose #61817 > │ match v161 with │
00:09:55 verbose #61818 > │ | US5_0(v162) -> (* Choice1Of2 *) │
00:09:55 verbose #61819 > │ US6_0(v162) │
00:09:55 verbose #61820 > │ | US5_1(v164) -> (* Choice2Of2 *) │
00:09:55 verbose #61821 > │ US6_1(v164) │
00:09:55 verbose #61822 > │ return v167 │
00:09:55 verbose #61823 > │ } │
00:09:55 verbose #61824 > │ |> fun x -> _v160 <- Some x │
00:09:55 verbose #61825 > │ let v168 : Async<US6> = _v160 |> Option.get │
00:09:55 verbose #61826 > │ v168 │
00:09:55 verbose #61827 > │ #endif │
00:09:55 verbose #61828 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61829 > │ let v169 : Async<US6> = null |> unbox<Async<US6>> │
00:09:55 verbose #61830 > │ v169 │
00:09:55 verbose #61831 > │ #endif │
00:09:55 verbose #61832 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61833 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61834 > │ let v170 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:09:55 verbose #61835 > │ v170 │
00:09:55 verbose #61836 > │ #endif │
00:09:55 verbose #61837 > │ |> fun x -> _v155 <- Some x │
00:09:55 verbose #61838 > │ let v171 : Async<US6> = _v155.Value │
00:09:55 verbose #61839 > │ let v172 : Async<US4> option = None │
00:09:55 verbose #61840 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:55 verbose #61841 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61842 > │ let v174 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61843 > │ v174 │
00:09:55 verbose #61844 > │ #endif │
00:09:55 verbose #61845 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61846 > │ let v175 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61847 > │ v175 │
00:09:55 verbose #61848 > │ #endif │
00:09:55 verbose #61849 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61850 > │ let v176 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61851 > │ v176 │
00:09:55 verbose #61852 > │ #endif │
00:09:55 verbose #61853 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61854 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61855 > │ let v177 : Async<US4> option = None │
00:09:55 verbose #61856 > │ let mutable _v177 = v177 │
00:09:55 verbose #61857 > │ async { │
00:09:55 verbose #61858 > │ let! v171 = v171 │
00:09:55 verbose #61859 > │ let v178 : US6 = v171 │
00:09:55 verbose #61860 > │ let v204 : US4 = │
00:09:55 verbose #61861 > │ match v178 with │
00:09:55 verbose #61862 > │ | US6_1(v181) -> (* Error *) │
00:09:55 verbose #61863 > │ let v182 : string = $"%A{v181}" │
00:09:55 verbose #61864 > │ let v183 : string = "System.TimeoutException" │
00:09:55 verbose #61865 > │ let v184 : bool = v182.Contains v183 │
00:09:55 verbose #61866 > │ if v184 then │
00:09:55 verbose #61867 > │ let v185 : US0 = US0_1 │
00:09:55 verbose #61868 > │ let v186 : (unit -> string) = closure17() │
00:09:55 verbose #61869 > │ let v187 : (unit -> string) = closure18(v53) │
00:09:55 verbose #61870 > │ method1(v185, v186, v187) │
00:09:55 verbose #61871 > │ US4_1 │
00:09:55 verbose #61872 > │ else │
00:09:55 verbose #61873 > │ let v189 : string option = None │
00:09:55 verbose #61874 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:55 verbose #61875 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #61876 > │ let v191 : string = $"%A{v181}" │
00:09:55 verbose #61877 > │ v191 │
00:09:55 verbose #61878 > │ #endif │
00:09:55 verbose #61879 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #61880 > │ let v192 : string = $"%A{v181}" │
00:09:55 verbose #61881 > │ v192 │
00:09:55 verbose #61882 > │ #endif │
00:09:55 verbose #61883 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #61884 > │ let v193 : string = $"%A{v181}" │
00:09:55 verbose #61885 > │ v193 │
00:09:55 verbose #61886 > │ #endif │
00:09:55 verbose #61887 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #61888 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #61889 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:55 verbose #61890 > │ {v181.Message}" │
00:09:55 verbose #61891 > │ v194 │
00:09:55 verbose #61892 > │ #endif │
00:09:55 verbose #61893 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61894 > │ let v195 : string = $"%A{v181}" │
00:09:55 verbose #61895 > │ v195 │
00:09:55 verbose #61896 > │ #endif │
00:09:55 verbose #61897 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61898 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61899 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:55 verbose #61900 > │ v196 │
00:09:55 verbose #61901 > │ #endif │
00:09:55 verbose #61902 > │ |> fun x -> _v189 <- Some x │
00:09:55 verbose #61903 > │ let v197 : string = _v189.Value │
00:09:55 verbose #61904 > │ let v198 : US0 = US0_4 │
00:09:55 verbose #61905 > │ let v199 : (unit -> string) = closure19(v197) │
00:09:55 verbose #61906 > │ let v200 : (unit -> string) = closure18(v53) │
00:09:55 verbose #61907 > │ method1(v198, v199, v200) │
00:09:55 verbose #61908 > │ US4_1 │
00:09:55 verbose #61909 > │ | US6_0(v179) -> (* Ok *) │
00:09:55 verbose #61910 > │ US4_0(v179) │
00:09:55 verbose #61911 > │ return v204 │
00:09:55 verbose #61912 > │ } │
00:09:55 verbose #61913 > │ |> fun x -> _v177 <- Some x │
00:09:55 verbose #61914 > │ let v205 : Async<US4> = _v177 |> Option.get │
00:09:55 verbose #61915 > │ v205 │
00:09:55 verbose #61916 > │ #endif │
00:09:55 verbose #61917 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61918 > │ let v206 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61919 > │ v206 │
00:09:55 verbose #61920 > │ #endif │
00:09:55 verbose #61921 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61922 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61923 > │ let v207 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:55 verbose #61924 > │ v207 │
00:09:55 verbose #61925 > │ #endif │
00:09:55 verbose #61926 > │ |> fun x -> _v172 <- Some x │
00:09:55 verbose #61927 > │ let v208 : Async<US4> = _v172.Value │
00:09:55 verbose #61928 > │ return! v208 │
00:09:55 verbose #61929 > │ } │
00:09:55 verbose #61930 > │ |> fun x -> _v112 <- Some x │
00:09:55 verbose #61931 > │ let v209 : Async<US4> = _v112 |> Option.get │
00:09:55 verbose #61932 > │ v209 │
00:09:55 verbose #61933 > │ #endif │
00:09:55 verbose #61934 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61935 > │ let v210 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61936 > │ v210 │
00:09:55 verbose #61937 > │ #endif │
00:09:55 verbose #61938 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61939 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61940 > │ let v211 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:55 verbose #61941 > │ v211 │
00:09:55 verbose #61942 > │ #endif │
00:09:55 verbose #61943 > │ |> fun x -> _v107 <- Some x │
00:09:55 verbose #61944 > │ let v212 : Async<US4> = _v107.Value │
00:09:55 verbose #61945 > │ v212 │
00:09:55 verbose #61946 > │ #endif │
00:09:55 verbose #61947 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61948 > │ let v213 : Async<US4> = null |> unbox<Async<US4>> │
00:09:55 verbose #61949 > │ v213 │
00:09:55 verbose #61950 > │ #endif │
00:09:55 verbose #61951 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61952 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61953 > │ let v214 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:55 verbose #61954 > │ v214 │
00:09:55 verbose #61955 > │ #endif │
00:09:55 verbose #61956 > │ |> fun x -> _v102 <- Some x │
00:09:55 verbose #61957 > │ let v215 : Async<US4> = _v102.Value │
00:09:55 verbose #61958 > │ let! v215 = v215 │
00:09:55 verbose #61959 > │ let v216 : US4 = v215 │
00:09:55 verbose #61960 > │ let v219 : bool = │
00:09:55 verbose #61961 > │ match v216 with │
00:09:55 verbose #61962 > │ | US4_1 -> (* None *) │
00:09:55 verbose #61963 > │ false │
00:09:55 verbose #61964 > │ | US4_0(v217) -> (* Some *) │
00:09:55 verbose #61965 > │ v217 │
00:09:55 verbose #61966 > │ return v219 │
00:09:55 verbose #61967 > │ } │
00:09:55 verbose #61968 > │ |> fun x -> _v59 <- Some x │
00:09:55 verbose #61969 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:55 verbose #61970 > │ v220 │
00:09:55 verbose #61971 > │ #endif │
00:09:55 verbose #61972 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #61973 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:55 verbose #61974 > │ v221 │
00:09:55 verbose #61975 > │ #endif │
00:09:55 verbose #61976 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #61977 > │ FABLE_COMPILER_DART │
00:09:55 verbose #61978 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:55 verbose #61979 > │ v222 │
00:09:55 verbose #61980 > │ #endif │
00:09:55 verbose #61981 > │ |> fun x -> _v54 <- Some x │
00:09:55 verbose #61982 > │ let v223 : Async<bool> = _v54.Value │
00:09:55 verbose #61983 > │ v223 │
00:09:55 verbose #61984 > │ let! v225 = v225 │
00:09:55 verbose #61985 > │ let v226 : bool = v225 │
00:09:55 verbose #61986 > │ let v227 : bool = v226 = false │
00:09:55 verbose #61987 > │ if v227 then │
00:09:55 verbose #61988 > │ return v1 │
00:09:55 verbose #61989 > │ (* │
00:09:55 verbose #61990 > │ () │
00:09:55 verbose #61991 > │ else │
00:09:55 verbose #61992 > │ *) else │
00:09:55 verbose #61993 > │ let v228 : int64 = v1 % 100L │
00:09:55 verbose #61994 > │ let v229 : bool = v228 = 0L │
00:09:55 verbose #61995 > │ if v229 then │
00:09:55 verbose #61996 > │ let v230 : US0 = US0_0 │
00:09:55 verbose #61997 > │ let v231 : (unit -> string) = closure21() │
00:09:55 verbose #61998 > │ let v232 : (unit -> string) = closure22(v1) │
00:09:55 verbose #61999 > │ method1(v230, v231, v232) │
00:09:55 verbose #62000 > │ let v233 : Async<unit> option = None │
00:09:55 verbose #62001 > │ let v234 : bool = true in let mutable _v233 = v233 │
00:09:55 verbose #62002 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62003 > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62004 > │ v235 │
00:09:55 verbose #62005 > │ #endif │
00:09:55 verbose #62006 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62007 > │ let v236 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62008 > │ v236 │
00:09:55 verbose #62009 > │ #endif │
00:09:55 verbose #62010 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62011 > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62012 > │ v237 │
00:09:55 verbose #62013 > │ #endif │
00:09:55 verbose #62014 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62015 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62016 > │ let v238 : (int32 -> Async<unit>) = Async.Sleep │
00:09:55 verbose #62017 > │ let v239 : Async<unit> = v238 10 │
00:09:55 verbose #62018 > │ v239 │
00:09:55 verbose #62019 > │ #endif │
00:09:55 verbose #62020 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62021 > │ let v240 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62022 > │ v240 │
00:09:55 verbose #62023 > │ #endif │
00:09:55 verbose #62024 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #62025 > │ FABLE_COMPILER_DART │
00:09:55 verbose #62026 > │ let v241 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #62027 > │ v241 │
00:09:55 verbose #62028 > │ #endif │
00:09:55 verbose #62029 > │ |> fun x -> _v233 <- Some x │
00:09:55 verbose #62030 > │ let v242 : Async<unit> = _v233.Value │
00:09:55 verbose #62031 > │ do! v242 │
00:09:55 verbose #62032 > │ let v243 : int64 = v1 + 1L │
00:09:55 verbose #62033 > │ let v244 : Async<int64> = method9(v0, v243) │
00:09:55 verbose #62034 > │ return! v244 │
00:09:55 verbose #62035 > │ (* │
00:09:55 verbose #62036 > │ () │
00:09:55 verbose #62037 > │ *) │
00:09:55 verbose #62038 > │ } │
00:09:55 verbose #62039 > │ |> fun x -> _v7 <- Some x │
00:09:55 verbose #62040 > │ let v245 : Async<int64> = _v7 |> Option.get │
00:09:55 verbose #62041 > │ v245 │
00:09:55 verbose #62042 > │ #endif │
00:09:55 verbose #62043 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62044 > │ let v246 : Async<int64> = null |> unbox<Async<int64>> │
00:09:55 verbose #62045 > │ v246 │
00:09:55 verbose #62046 > │ #endif │
00:09:55 verbose #62047 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62048 > │ let v247 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:55 verbose #62049 > │ v247 │
00:09:55 verbose #62050 > │ #endif │
00:09:55 verbose #62051 > │ |> fun x -> _v2 <- Some x │
00:09:55 verbose #62052 > │ let v248 : Async<int64> = _v2.Value │
00:09:55 verbose #62053 > │ v248 │
00:09:55 verbose #62054 > │ and closure23 () () : string = │
00:09:55 verbose #62055 > │ let v0 : string = "5" │
00:09:55 verbose #62056 > │ v0 │
00:09:55 verbose #62057 > │ and closure24 () () : string = │
00:09:55 verbose #62058 > │ let v0 : string = "6" │
00:09:55 verbose #62059 > │ v0 │
00:09:55 verbose #62060 > │ and closure25 () struct (v0 : int32, v1 : int64) : US8 = │
00:09:55 verbose #62061 > │ US8_0(v0, v1) │
00:09:55 verbose #62062 > │ and closure26 () (v0 : exn) : US8 = │
00:09:55 verbose #62063 > │ US8_1(v0) │
00:09:55 verbose #62064 > │ and closure27 () () : string = │
00:09:55 verbose #62065 > │ let v0 : (unit -> string) = closure1() │
00:09:55 verbose #62066 > │ let v1 : string = $"timeout: {1500} / {v0 ()}" │
00:09:55 verbose #62067 > │ v1 │
00:09:55 verbose #62068 > │ and method10 (v0 : bool) : bool = │
00:09:55 verbose #62069 > │ v0 │
00:09:55 verbose #62070 > │ and method0 () : unit = │
00:09:55 verbose #62071 > │ let v0 : Async<struct (int32 * int64)> option = None │
00:09:55 verbose #62072 > │ let v1 : bool = true in let mutable _v0 = v0 │
00:09:55 verbose #62073 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62074 > │ let v2 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:55 verbose #62075 > │ (int32 * int64)>> │
00:09:55 verbose #62076 > │ v2 │
00:09:55 verbose #62077 > │ #endif │
00:09:55 verbose #62078 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62079 > │ let v3 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:55 verbose #62080 > │ (int32 * int64)>> │
00:09:55 verbose #62081 > │ v3 │
00:09:55 verbose #62082 > │ #endif │
00:09:55 verbose #62083 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62084 > │ let v4 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:55 verbose #62085 > │ (int32 * int64)>> │
00:09:55 verbose #62086 > │ v4 │
00:09:55 verbose #62087 > │ #endif │
00:09:55 verbose #62088 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62089 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62090 > │ let v5 : Async<struct (int32 * int64)> option = None │
00:09:55 verbose #62091 > │ let mutable _v5 = v5 │
00:09:55 verbose #62092 > │ async { │
00:09:55 verbose #62093 > │ let v6 : US0 = US0_1 │
00:09:55 verbose #62094 > │ let v7 : (unit -> string) = closure0() │
00:09:55 verbose #62095 > │ let v8 : (unit -> string) = closure1() │
00:09:55 verbose #62096 > │ method1(v6, v7, v8) │
00:09:55 verbose #62097 > │ let v9 : Async<unit> option = None │
00:09:55 verbose #62098 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:55 verbose #62099 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62100 > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62101 > │ v11 │
00:09:55 verbose #62102 > │ #endif │
00:09:55 verbose #62103 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62104 > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62105 > │ v12 │
00:09:55 verbose #62106 > │ #endif │
00:09:55 verbose #62107 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62108 > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62109 > │ v13 │
00:09:55 verbose #62110 > │ #endif │
00:09:55 verbose #62111 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62112 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62113 > │ let v14 : Async<unit> option = None │
00:09:55 verbose #62114 > │ let mutable _v14 = v14 │
00:09:55 verbose #62115 > │ async { │
00:09:55 verbose #62116 > │ let v15 : US0 = US0_1 │
00:09:55 verbose #62117 > │ let v16 : (unit -> string) = closure6() │
00:09:55 verbose #62118 > │ method1(v15, v16, v8) │
00:09:55 verbose #62119 > │ let v17 : (string -> System.Net.IPAddress) = System.Net.IPAddress.Parse │
00:09:55 verbose #62120 > │ let v18 : string = "127.0.0.1" │
00:09:55 verbose #62121 > │ let v19 : System.Net.IPAddress = v17 v18 │
00:09:55 verbose #62122 > │ let v20 : System.Net.Sockets.TcpListener = new │
00:09:55 verbose #62123 > │ System.Net.Sockets.TcpListener (v19, 5555) │
00:09:55 verbose #62124 > │ use v20 = v20 │
00:09:55 verbose #62125 > │ let v21 : System.Net.Sockets.TcpListener = v20 │
00:09:55 verbose #62126 > │ let v22 : (string -> System.Net.IPAddress) = System.Net.IPAddress.Parse │
00:09:55 verbose #62127 > │ let v23 : System.Net.IPAddress = v22 v18 │
00:09:55 verbose #62128 > │ let v24 : System.Net.Sockets.TcpListener = new │
00:09:55 verbose #62129 > │ System.Net.Sockets.TcpListener (v23, 5556) │
00:09:55 verbose #62130 > │ use v24 = v24 │
00:09:55 verbose #62131 > │ let v25 : System.Net.Sockets.TcpListener = v24 │
00:09:55 verbose #62132 > │ let v26 : US0 = US0_1 │
00:09:55 verbose #62133 > │ let v27 : (unit -> string) = closure7() │
00:09:55 verbose #62134 > │ method1(v26, v27, v8) │
00:09:55 verbose #62135 > │ let v28 : (unit -> unit) = v21.Start │
00:09:55 verbose #62136 > │ v28 () │
00:09:55 verbose #62137 > │ let v29 : (unit -> unit) = v25.Start │
00:09:55 verbose #62138 > │ v29 () │
00:09:55 verbose #62139 > │ let v30 : US0 = US0_1 │
00:09:55 verbose #62140 > │ let v31 : (unit -> string) = closure8() │
00:09:55 verbose #62141 > │ method1(v30, v31, v8) │
00:09:55 verbose #62142 > │ let v32 : Async<unit> option = None │
00:09:55 verbose #62143 > │ let v33 : bool = true in let mutable _v32 = v32 │
00:09:55 verbose #62144 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62145 > │ let v34 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62146 > │ v34 │
00:09:55 verbose #62147 > │ #endif │
00:09:55 verbose #62148 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62149 > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62150 > │ v35 │
00:09:55 verbose #62151 > │ #endif │
00:09:55 verbose #62152 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62153 > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62154 > │ v36 │
00:09:55 verbose #62155 > │ #endif │
00:09:55 verbose #62156 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62157 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62158 > │ let v37 : (int32 -> Async<unit>) = Async.Sleep │
00:09:55 verbose #62159 > │ let v38 : Async<unit> = v37 400 │
00:09:55 verbose #62160 > │ v38 │
00:09:55 verbose #62161 > │ #endif │
00:09:55 verbose #62162 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62163 > │ let v39 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62164 > │ v39 │
00:09:55 verbose #62165 > │ #endif │
00:09:55 verbose #62166 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62167 > │ let v40 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #62168 > │ v40 │
00:09:55 verbose #62169 > │ #endif │
00:09:55 verbose #62170 > │ |> fun x -> _v32 <- Some x │
00:09:55 verbose #62171 > │ let v41 : Async<unit> = _v32.Value │
00:09:55 verbose #62172 > │ do! v41 │
00:09:55 verbose #62173 > │ let v42 : US0 = US0_1 │
00:09:55 verbose #62174 > │ let v43 : (unit -> string) = closure9() │
00:09:55 verbose #62175 > │ method1(v42, v43, v8) │
00:09:55 verbose #62176 > │ let v44 : (unit -> unit) = v21.Stop │
00:09:55 verbose #62177 > │ v44 () │
00:09:55 verbose #62178 > │ let v45 : (unit -> unit) = v25.Stop │
00:09:55 verbose #62179 > │ v45 () │
00:09:55 verbose #62180 > │ let v46 : US0 = US0_1 │
00:09:55 verbose #62181 > │ let v47 : (unit -> string) = closure10() │
00:09:55 verbose #62182 > │ method1(v46, v47, v8) │
00:09:55 verbose #62183 > │ } │
00:09:55 verbose #62184 > │ |> fun x -> _v14 <- Some x │
00:09:55 verbose #62185 > │ let v48 : Async<unit> = _v14 |> Option.get │
00:09:55 verbose #62186 > │ v48 │
00:09:55 verbose #62187 > │ #endif │
00:09:55 verbose #62188 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62189 > │ let v49 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62190 > │ v49 │
00:09:55 verbose #62191 > │ #endif │
00:09:55 verbose #62192 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62193 > │ let v50 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #62194 > │ v50 │
00:09:55 verbose #62195 > │ #endif │
00:09:55 verbose #62196 > │ |> fun x -> _v9 <- Some x │
00:09:55 verbose #62197 > │ let v51 : Async<unit> = _v9.Value │
00:09:55 verbose #62198 > │ let v52 : Async<Async<unit>> option = None │
00:09:55 verbose #62199 > │ let v53 : bool = true in let mutable _v52 = v52 │
00:09:55 verbose #62200 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62201 > │ let v54 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:55 verbose #62202 > │ v54 │
00:09:55 verbose #62203 > │ #endif │
00:09:55 verbose #62204 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62205 > │ let v55 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:55 verbose #62206 > │ v55 │
00:09:55 verbose #62207 > │ #endif │
00:09:55 verbose #62208 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62209 > │ let v56 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:55 verbose #62210 > │ v56 │
00:09:55 verbose #62211 > │ #endif │
00:09:55 verbose #62212 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62213 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62214 > │ let v57 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:09:55 verbose #62215 > │ let v58 : Async<Async<unit>> = v57 v51 │
00:09:55 verbose #62216 > │ v58 │
00:09:55 verbose #62217 > │ #endif │
00:09:55 verbose #62218 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62219 > │ let v59 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:09:55 verbose #62220 > │ v59 │
00:09:55 verbose #62221 > │ #endif │
00:09:55 verbose #62222 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62223 > │ let v60 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:09:55 verbose #62224 > │ v60 │
00:09:55 verbose #62225 > │ #endif │
00:09:55 verbose #62226 > │ |> fun x -> _v52 <- Some x │
00:09:55 verbose #62227 > │ let v61 : Async<Async<unit>> = _v52.Value │
00:09:55 verbose #62228 > │ let! v61 = v61 │
00:09:55 verbose #62229 > │ let v62 : Async<unit> = v61 │
00:09:55 verbose #62230 > │ let v63 : US0 = US0_1 │
00:09:55 verbose #62231 > │ let v64 : (unit -> string) = closure11() │
00:09:55 verbose #62232 > │ method1(v63, v64, v8) │
00:09:55 verbose #62233 > │ let v65 : Async<unit> option = None │
00:09:55 verbose #62234 > │ let v66 : bool = true in let mutable _v65 = v65 │
00:09:55 verbose #62235 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62236 > │ let v67 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62237 > │ v67 │
00:09:55 verbose #62238 > │ #endif │
00:09:55 verbose #62239 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62240 > │ let v68 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62241 > │ v68 │
00:09:55 verbose #62242 > │ #endif │
00:09:55 verbose #62243 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62244 > │ let v69 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62245 > │ v69 │
00:09:55 verbose #62246 > │ #endif │
00:09:55 verbose #62247 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62248 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62249 > │ let v70 : (int32 -> Async<unit>) = Async.Sleep │
00:09:55 verbose #62250 > │ let v71 : Async<unit> = v70 240 │
00:09:55 verbose #62251 > │ v71 │
00:09:55 verbose #62252 > │ #endif │
00:09:55 verbose #62253 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62254 > │ let v72 : Async<unit> = null |> unbox<Async<unit>> │
00:09:55 verbose #62255 > │ v72 │
00:09:55 verbose #62256 > │ #endif │
00:09:55 verbose #62257 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62258 > │ let v73 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:55 verbose #62259 > │ v73 │
00:09:55 verbose #62260 > │ #endif │
00:09:55 verbose #62261 > │ |> fun x -> _v65 <- Some x │
00:09:55 verbose #62262 > │ let v74 : Async<unit> = _v65.Value │
00:09:55 verbose #62263 > │ do! v74 │
00:09:55 verbose #62264 > │ let v75 : US0 = US0_1 │
00:09:55 verbose #62265 > │ let v76 : (unit -> string) = closure12() │
00:09:55 verbose #62266 > │ method1(v75, v76, v8) │
00:09:55 verbose #62267 > │ let v77 : int32 option = Some 60 │
00:09:55 verbose #62268 > │ let v78 : int32 = 5555 │
00:09:55 verbose #62269 > │ let v79 : Async<int32> = method7(v77, v78) │
00:09:55 verbose #62270 > │ let! v79 = v79 │
00:09:55 verbose #62271 > │ let v80 : int32 = v79 │
00:09:55 verbose #62272 > │ let v81 : US0 = US0_1 │
00:09:55 verbose #62273 > │ let v82 : (unit -> string) = closure20() │
00:09:55 verbose #62274 > │ method1(v81, v82, v8) │
00:09:55 verbose #62275 > │ let v83 : int32 option = Some 60 │
00:09:55 verbose #62276 > │ let v84 : int64 = 0L │
00:09:55 verbose #62277 > │ let v85 : Async<int64> = method9(v83, v84) │
00:09:55 verbose #62278 > │ let! v85 = v85 │
00:09:55 verbose #62279 > │ let v86 : int64 = v85 │
00:09:55 verbose #62280 > │ let v87 : US0 = US0_1 │
00:09:55 verbose #62281 > │ let v88 : (unit -> string) = closure23() │
00:09:55 verbose #62282 > │ method1(v87, v88, v8) │
00:09:55 verbose #62283 > │ do! v62 │
00:09:55 verbose #62284 > │ let v89 : US0 = US0_1 │
00:09:55 verbose #62285 > │ let v90 : (unit -> string) = closure24() │
00:09:55 verbose #62286 > │ method1(v89, v90, v8) │
00:09:55 verbose #62287 > │ return struct (v80, v86) │
00:09:55 verbose #62288 > │ } │
00:09:55 verbose #62289 > │ |> fun x -> _v5 <- Some x │
00:09:55 verbose #62290 > │ let v91 : Async<struct (int32 * int64)> = _v5 |> Option.get │
00:09:55 verbose #62291 > │ v91 │
00:09:55 verbose #62292 > │ #endif │
00:09:55 verbose #62293 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62294 > │ let v92 : Async<struct (int32 * int64)> = null |> unbox<Async<struct │
00:09:55 verbose #62295 > │ (int32 * int64)>> │
00:09:55 verbose #62296 > │ v92 │
00:09:55 verbose #62297 > │ #endif │
00:09:55 verbose #62298 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62299 > │ let v93 : Async<struct (int32 * int64)> = │
00:09:55 verbose #62300 > │ Unchecked.defaultof<Async<struct (int32 * int64)>> │
00:09:55 verbose #62301 > │ v93 │
00:09:55 verbose #62302 > │ #endif │
00:09:55 verbose #62303 > │ |> fun x -> _v0 <- Some x │
00:09:55 verbose #62304 > │ let v94 : Async<struct (int32 * int64)> = _v0.Value │
00:09:55 verbose #62305 > │ let v95 : Async<US7> option = None │
00:09:55 verbose #62306 > │ let v96 : bool = true in let mutable _v95 = v95 │
00:09:55 verbose #62307 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62308 > │ let v97 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62309 > │ v97 │
00:09:55 verbose #62310 > │ #endif │
00:09:55 verbose #62311 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62312 > │ let v98 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62313 > │ v98 │
00:09:55 verbose #62314 > │ #endif │
00:09:55 verbose #62315 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62316 > │ let v99 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62317 > │ v99 │
00:09:55 verbose #62318 > │ #endif │
00:09:55 verbose #62319 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62320 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62321 > │ let v100 : Async<US7> option = None │
00:09:55 verbose #62322 > │ let v101 : bool = true in let mutable _v100 = v100 │
00:09:55 verbose #62323 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62324 > │ let v102 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62325 > │ v102 │
00:09:55 verbose #62326 > │ #endif │
00:09:55 verbose #62327 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62328 > │ let v103 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62329 > │ v103 │
00:09:55 verbose #62330 > │ #endif │
00:09:55 verbose #62331 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62332 > │ let v104 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62333 > │ v104 │
00:09:55 verbose #62334 > │ #endif │
00:09:55 verbose #62335 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62336 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62337 > │ let v105 : Async<US7> option = None │
00:09:55 verbose #62338 > │ let mutable _v105 = v105 │
00:09:55 verbose #62339 > │ async { │
00:09:55 verbose #62340 > │ let v106 : Async<Async<struct (int32 * int64)>> option = None │
00:09:55 verbose #62341 > │ let v107 : bool = true in let mutable _v106 = v106 │
00:09:55 verbose #62342 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62343 > │ let v108 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:55 verbose #62344 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:55 verbose #62345 > │ v108 │
00:09:55 verbose #62346 > │ #endif │
00:09:55 verbose #62347 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62348 > │ let v109 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:55 verbose #62349 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:55 verbose #62350 > │ v109 │
00:09:55 verbose #62351 > │ #endif │
00:09:55 verbose #62352 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62353 > │ let v110 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:55 verbose #62354 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:55 verbose #62355 > │ v110 │
00:09:55 verbose #62356 > │ #endif │
00:09:55 verbose #62357 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62358 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62359 > │ let v111 : Async<Async<struct (int32 * int64)>> = Async.StartChild (v94, │
00:09:55 verbose #62360 > │ 1500) │
00:09:55 verbose #62361 > │ v111 │
00:09:55 verbose #62362 > │ #endif │
00:09:55 verbose #62363 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62364 > │ let v112 : Async<Async<struct (int32 * int64)>> = null |> │
00:09:55 verbose #62365 > │ unbox<Async<Async<struct (int32 * int64)>>> │
00:09:55 verbose #62366 > │ v112 │
00:09:55 verbose #62367 > │ #endif │
00:09:55 verbose #62368 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62369 > │ let v113 : Async<Async<struct (int32 * int64)>> = │
00:09:55 verbose #62370 > │ Unchecked.defaultof<Async<Async<struct (int32 * int64)>>> │
00:09:55 verbose #62371 > │ v113 │
00:09:55 verbose #62372 > │ #endif │
00:09:55 verbose #62373 > │ |> fun x -> _v106 <- Some x │
00:09:55 verbose #62374 > │ let v114 : Async<Async<struct (int32 * int64)>> = _v106.Value │
00:09:55 verbose #62375 > │ let! v114 = v114 │
00:09:55 verbose #62376 > │ let v115 : Async<struct (int32 * int64)> = v114 │
00:09:55 verbose #62377 > │ let v116 : Async<Choice<struct (int32 * int64), exn>> option = None │
00:09:55 verbose #62378 > │ let v117 : bool = true in let mutable _v116 = v116 │
00:09:55 verbose #62379 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62380 > │ let v118 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:55 verbose #62381 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:55 verbose #62382 > │ v118 │
00:09:55 verbose #62383 > │ #endif │
00:09:55 verbose #62384 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62385 > │ let v119 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:55 verbose #62386 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:55 verbose #62387 > │ v119 │
00:09:55 verbose #62388 > │ #endif │
00:09:55 verbose #62389 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62390 > │ let v120 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:55 verbose #62391 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:55 verbose #62392 > │ v120 │
00:09:55 verbose #62393 > │ #endif │
00:09:55 verbose #62394 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62395 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62396 > │ let v121 : (Async<struct (int32 * int64)> -> Async<Choice<struct (int32 │
00:09:55 verbose #62397 > │ * int64), exn>>) = Async.Catch │
00:09:55 verbose #62398 > │ let v122 : Async<Choice<struct (int32 * int64), exn>> = v121 v115 │
00:09:55 verbose #62399 > │ v122 │
00:09:55 verbose #62400 > │ #endif │
00:09:55 verbose #62401 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62402 > │ let v123 : Async<Choice<struct (int32 * int64), exn>> = null |> │
00:09:55 verbose #62403 > │ unbox<Async<Choice<struct (int32 * int64), exn>>> │
00:09:55 verbose #62404 > │ v123 │
00:09:55 verbose #62405 > │ #endif │
00:09:55 verbose #62406 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62407 > │ let v124 : Async<Choice<struct (int32 * int64), exn>> = │
00:09:55 verbose #62408 > │ Unchecked.defaultof<Async<Choice<struct (int32 * int64), exn>>> │
00:09:55 verbose #62409 > │ v124 │
00:09:55 verbose #62410 > │ #endif │
00:09:55 verbose #62411 > │ |> fun x -> _v116 <- Some x │
00:09:55 verbose #62412 > │ let v125 : Async<Choice<struct (int32 * int64), exn>> = _v116.Value │
00:09:55 verbose #62413 > │ let v126 : Async<US8> option = None │
00:09:55 verbose #62414 > │ let v127 : bool = true in let mutable _v126 = v126 │
00:09:55 verbose #62415 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62416 > │ let v128 : Async<US8> = null |> unbox<Async<US8>> │
00:09:55 verbose #62417 > │ v128 │
00:09:55 verbose #62418 > │ #endif │
00:09:55 verbose #62419 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62420 > │ let v129 : Async<US8> = null |> unbox<Async<US8>> │
00:09:55 verbose #62421 > │ v129 │
00:09:55 verbose #62422 > │ #endif │
00:09:55 verbose #62423 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62424 > │ let v130 : Async<US8> = null |> unbox<Async<US8>> │
00:09:55 verbose #62425 > │ v130 │
00:09:55 verbose #62426 > │ #endif │
00:09:55 verbose #62427 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62428 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62429 > │ let v131 : Async<US8> option = None │
00:09:55 verbose #62430 > │ let mutable _v131 = v131 │
00:09:55 verbose #62431 > │ async { │
00:09:55 verbose #62432 > │ let! v125 = v125 │
00:09:55 verbose #62433 > │ let v132 : Choice<struct (int32 * int64), exn> = v125 │
00:09:55 verbose #62434 > │ let v133 : US8 option = None │
00:09:55 verbose #62435 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:55 verbose #62436 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62437 > │ let v135 : US8 = null |> unbox<US8> │
00:09:55 verbose #62438 > │ v135 │
00:09:55 verbose #62439 > │ #endif │
00:09:55 verbose #62440 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62441 > │ let v136 : US8 = null |> unbox<US8> │
00:09:55 verbose #62442 > │ v136 │
00:09:55 verbose #62443 > │ #endif │
00:09:55 verbose #62444 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62445 > │ let v137 : US8 = null |> unbox<US8> │
00:09:55 verbose #62446 > │ v137 │
00:09:55 verbose #62447 > │ #endif │
00:09:55 verbose #62448 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62449 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62450 > │ let v138 : (struct (int32 * int64) -> US8) = closure25() │
00:09:55 verbose #62451 > │ let v139 : (exn -> US8) = closure26() │
00:09:55 verbose #62452 > │ let v140 : US8 = match v132 with Choice1Of2 x -> v138 x | Choice2Of2 x │
00:09:55 verbose #62453 > │ -> v139 x │
00:09:55 verbose #62454 > │ v140 │
00:09:55 verbose #62455 > │ #endif │
00:09:55 verbose #62456 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62457 > │ let v141 : US8 = null |> unbox<US8> │
00:09:55 verbose #62458 > │ v141 │
00:09:55 verbose #62459 > │ #endif │
00:09:55 verbose #62460 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62461 > │ let v142 : US8 = Unchecked.defaultof<US8> │
00:09:55 verbose #62462 > │ v142 │
00:09:55 verbose #62463 > │ #endif │
00:09:55 verbose #62464 > │ |> fun x -> _v133 <- Some x │
00:09:55 verbose #62465 > │ let v143 : US8 = _v133.Value │
00:09:55 verbose #62466 > │ return v143 │
00:09:55 verbose #62467 > │ } │
00:09:55 verbose #62468 > │ |> fun x -> _v131 <- Some x │
00:09:55 verbose #62469 > │ let v144 : Async<US8> = _v131 |> Option.get │
00:09:55 verbose #62470 > │ v144 │
00:09:55 verbose #62471 > │ #endif │
00:09:55 verbose #62472 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62473 > │ let v145 : Async<US8> = null |> unbox<Async<US8>> │
00:09:55 verbose #62474 > │ v145 │
00:09:55 verbose #62475 > │ #endif │
00:09:55 verbose #62476 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62477 > │ let v146 : Async<US8> = Unchecked.defaultof<Async<US8>> │
00:09:55 verbose #62478 > │ v146 │
00:09:55 verbose #62479 > │ #endif │
00:09:55 verbose #62480 > │ |> fun x -> _v126 <- Some x │
00:09:55 verbose #62481 > │ let v147 : Async<US8> = _v126.Value │
00:09:55 verbose #62482 > │ let v148 : Async<US9> option = None │
00:09:55 verbose #62483 > │ let v149 : bool = true in let mutable _v148 = v148 │
00:09:55 verbose #62484 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62485 > │ let v150 : Async<US9> = null |> unbox<Async<US9>> │
00:09:55 verbose #62486 > │ v150 │
00:09:55 verbose #62487 > │ #endif │
00:09:55 verbose #62488 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62489 > │ let v151 : Async<US9> = null |> unbox<Async<US9>> │
00:09:55 verbose #62490 > │ v151 │
00:09:55 verbose #62491 > │ #endif │
00:09:55 verbose #62492 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62493 > │ let v152 : Async<US9> = null |> unbox<Async<US9>> │
00:09:55 verbose #62494 > │ v152 │
00:09:55 verbose #62495 > │ #endif │
00:09:55 verbose #62496 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62497 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62498 > │ let v153 : Async<US9> option = None │
00:09:55 verbose #62499 > │ let mutable _v153 = v153 │
00:09:55 verbose #62500 > │ async { │
00:09:55 verbose #62501 > │ let! v147 = v147 │
00:09:55 verbose #62502 > │ let v154 : US8 = v147 │
00:09:55 verbose #62503 > │ let v161 : US9 = │
00:09:55 verbose #62504 > │ match v154 with │
00:09:55 verbose #62505 > │ | US8_0(v155, v156) -> (* Choice1Of2 *) │
00:09:55 verbose #62506 > │ US9_0(v155, v156) │
00:09:55 verbose #62507 > │ | US8_1(v158) -> (* Choice2Of2 *) │
00:09:55 verbose #62508 > │ US9_1(v158) │
00:09:55 verbose #62509 > │ return v161 │
00:09:55 verbose #62510 > │ } │
00:09:55 verbose #62511 > │ |> fun x -> _v153 <- Some x │
00:09:55 verbose #62512 > │ let v162 : Async<US9> = _v153 |> Option.get │
00:09:55 verbose #62513 > │ v162 │
00:09:55 verbose #62514 > │ #endif │
00:09:55 verbose #62515 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62516 > │ let v163 : Async<US9> = null |> unbox<Async<US9>> │
00:09:55 verbose #62517 > │ v163 │
00:09:55 verbose #62518 > │ #endif │
00:09:55 verbose #62519 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62520 > │ let v164 : Async<US9> = Unchecked.defaultof<Async<US9>> │
00:09:55 verbose #62521 > │ v164 │
00:09:55 verbose #62522 > │ #endif │
00:09:55 verbose #62523 > │ |> fun x -> _v148 <- Some x │
00:09:55 verbose #62524 > │ let v165 : Async<US9> = _v148.Value │
00:09:55 verbose #62525 > │ let v166 : Async<US7> option = None │
00:09:55 verbose #62526 > │ let v167 : bool = true in let mutable _v166 = v166 │
00:09:55 verbose #62527 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62528 > │ let v168 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62529 > │ v168 │
00:09:55 verbose #62530 > │ #endif │
00:09:55 verbose #62531 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62532 > │ let v169 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62533 > │ v169 │
00:09:55 verbose #62534 > │ #endif │
00:09:55 verbose #62535 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62536 > │ let v170 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62537 > │ v170 │
00:09:55 verbose #62538 > │ #endif │
00:09:55 verbose #62539 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62540 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62541 > │ let v171 : Async<US7> option = None │
00:09:55 verbose #62542 > │ let mutable _v171 = v171 │
00:09:55 verbose #62543 > │ async { │
00:09:55 verbose #62544 > │ let! v165 = v165 │
00:09:55 verbose #62545 > │ let v172 : US9 = v165 │
00:09:55 verbose #62546 > │ let v199 : US7 = │
00:09:55 verbose #62547 > │ match v172 with │
00:09:55 verbose #62548 > │ | US9_1(v176) -> (* Error *) │
00:09:55 verbose #62549 > │ let v177 : string = $"%A{v176}" │
00:09:55 verbose #62550 > │ let v178 : string = "System.TimeoutException" │
00:09:55 verbose #62551 > │ let v179 : bool = v177.Contains v178 │
00:09:55 verbose #62552 > │ if v179 then │
00:09:55 verbose #62553 > │ let v180 : US0 = US0_1 │
00:09:55 verbose #62554 > │ let v181 : (unit -> string) = closure17() │
00:09:55 verbose #62555 > │ let v182 : (unit -> string) = closure27() │
00:09:55 verbose #62556 > │ method1(v180, v181, v182) │
00:09:55 verbose #62557 > │ US7_1 │
00:09:55 verbose #62558 > │ else │
00:09:55 verbose #62559 > │ let v184 : string option = None │
00:09:55 verbose #62560 > │ let v185 : bool = true in let mutable _v184 = v184 │
00:09:55 verbose #62561 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62562 > │ let v186 : string = $"%A{v176}" │
00:09:55 verbose #62563 > │ v186 │
00:09:55 verbose #62564 > │ #endif │
00:09:55 verbose #62565 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62566 > │ let v187 : string = $"%A{v176}" │
00:09:55 verbose #62567 > │ v187 │
00:09:55 verbose #62568 > │ #endif │
00:09:55 verbose #62569 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62570 > │ let v188 : string = $"%A{v176}" │
00:09:55 verbose #62571 > │ v188 │
00:09:55 verbose #62572 > │ #endif │
00:09:55 verbose #62573 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62574 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62575 > │ let v189 : string = $"{v176.GetType ()}: {v176.Message}" │
00:09:55 verbose #62576 > │ v189 │
00:09:55 verbose #62577 > │ #endif │
00:09:55 verbose #62578 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62579 > │ let v190 : string = $"%A{v176}" │
00:09:55 verbose #62580 > │ v190 │
00:09:55 verbose #62581 > │ #endif │
00:09:55 verbose #62582 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #62583 > │ FABLE_COMPILER_DART │
00:09:55 verbose #62584 > │ let v191 : string = Unchecked.defaultof<string> │
00:09:55 verbose #62585 > │ v191 │
00:09:55 verbose #62586 > │ #endif │
00:09:55 verbose #62587 > │ |> fun x -> _v184 <- Some x │
00:09:55 verbose #62588 > │ let v192 : string = _v184.Value │
00:09:55 verbose #62589 > │ let v193 : US0 = US0_4 │
00:09:55 verbose #62590 > │ let v194 : (unit -> string) = closure19(v192) │
00:09:55 verbose #62591 > │ let v195 : (unit -> string) = closure27() │
00:09:55 verbose #62592 > │ method1(v193, v194, v195) │
00:09:55 verbose #62593 > │ US7_1 │
00:09:55 verbose #62594 > │ | US9_0(v173, v174) -> (* Ok *) │
00:09:55 verbose #62595 > │ US7_0(v173, v174) │
00:09:55 verbose #62596 > │ return v199 │
00:09:55 verbose #62597 > │ } │
00:09:55 verbose #62598 > │ |> fun x -> _v171 <- Some x │
00:09:55 verbose #62599 > │ let v200 : Async<US7> = _v171 |> Option.get │
00:09:55 verbose #62600 > │ v200 │
00:09:55 verbose #62601 > │ #endif │
00:09:55 verbose #62602 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62603 > │ let v201 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62604 > │ v201 │
00:09:55 verbose #62605 > │ #endif │
00:09:55 verbose #62606 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62607 > │ let v202 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:55 verbose #62608 > │ v202 │
00:09:55 verbose #62609 > │ #endif │
00:09:55 verbose #62610 > │ |> fun x -> _v166 <- Some x │
00:09:55 verbose #62611 > │ let v203 : Async<US7> = _v166.Value │
00:09:55 verbose #62612 > │ return! v203 │
00:09:55 verbose #62613 > │ } │
00:09:55 verbose #62614 > │ |> fun x -> _v105 <- Some x │
00:09:55 verbose #62615 > │ let v204 : Async<US7> = _v105 |> Option.get │
00:09:55 verbose #62616 > │ v204 │
00:09:55 verbose #62617 > │ #endif │
00:09:55 verbose #62618 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62619 > │ let v205 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62620 > │ v205 │
00:09:55 verbose #62621 > │ #endif │
00:09:55 verbose #62622 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62623 > │ let v206 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:55 verbose #62624 > │ v206 │
00:09:55 verbose #62625 > │ #endif │
00:09:55 verbose #62626 > │ |> fun x -> _v100 <- Some x │
00:09:55 verbose #62627 > │ let v207 : Async<US7> = _v100.Value │
00:09:55 verbose #62628 > │ v207 │
00:09:55 verbose #62629 > │ #endif │
00:09:55 verbose #62630 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62631 > │ let v208 : Async<US7> = null |> unbox<Async<US7>> │
00:09:55 verbose #62632 > │ v208 │
00:09:55 verbose #62633 > │ #endif │
00:09:55 verbose #62634 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62635 > │ let v209 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:09:55 verbose #62636 > │ v209 │
00:09:55 verbose #62637 > │ #endif │
00:09:55 verbose #62638 > │ |> fun x -> _v95 <- Some x │
00:09:55 verbose #62639 > │ let v210 : Async<US7> = _v95.Value │
00:09:55 verbose #62640 > │ let v211 : US7 option = None │
00:09:55 verbose #62641 > │ let v212 : bool = true in let mutable _v211 = v211 │
00:09:55 verbose #62642 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62643 > │ let v213 : US7 = null |> unbox<US7> │
00:09:55 verbose #62644 > │ v213 │
00:09:55 verbose #62645 > │ #endif │
00:09:55 verbose #62646 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62647 > │ let v214 : US7 = null |> unbox<US7> │
00:09:55 verbose #62648 > │ v214 │
00:09:55 verbose #62649 > │ #endif │
00:09:55 verbose #62650 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62651 > │ let v215 : US7 = null |> unbox<US7> │
00:09:55 verbose #62652 > │ v215 │
00:09:55 verbose #62653 > │ #endif │
00:09:55 verbose #62654 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62655 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62656 > │ let v216 : (Async<US7> -> US7) = Async.RunSynchronously │
00:09:55 verbose #62657 > │ let v217 : US7 = v216 v210 │
00:09:55 verbose #62658 > │ v217 │
00:09:55 verbose #62659 > │ #endif │
00:09:55 verbose #62660 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62661 > │ let v218 : US7 = null |> unbox<US7> │
00:09:55 verbose #62662 > │ v218 │
00:09:55 verbose #62663 > │ #endif │
00:09:55 verbose #62664 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:55 verbose #62665 > │ let v219 : US7 = Unchecked.defaultof<US7> │
00:09:55 verbose #62666 > │ v219 │
00:09:55 verbose #62667 > │ #endif │
00:09:55 verbose #62668 > │ |> fun x -> _v211 <- Some x │
00:09:55 verbose #62669 > │ let v220 : US7 = _v211.Value │
00:09:55 verbose #62670 > │ let v267 : bool = │
00:09:55 verbose #62671 > │ match v220 with │
00:09:55 verbose #62672 > │ | US7_0(v221, v222) -> (* Some *) │
00:09:55 verbose #62673 > │ let v223 : string = $"%A{v221}" │
00:09:55 verbose #62674 > │ System.Console.WriteLine v223 │
00:09:55 verbose #62675 > │ let v224 : bool = v221 = 5557 │
00:09:55 verbose #62676 > │ let v226 : bool = │
00:09:55 verbose #62677 > │ if v224 then │
00:09:55 verbose #62678 > │ true │
00:09:55 verbose #62679 > │ else │
00:09:55 verbose #62680 > │ method10(v224) │
00:09:55 verbose #62681 > │ let v227 : string = $"__expect / actual: %A{v221} / expected: │
00:09:55 verbose #62682 > │ %A{5557}" │
00:09:55 verbose #62683 > │ let v228 : bool = v226 = false │
00:09:55 verbose #62684 > │ if v228 then │
00:09:55 verbose #62685 > │ failwith<unit> v227 │
00:09:55 verbose #62686 > │ let v229 : bool option = None │
00:09:55 verbose #62687 > │ let v230 : bool = true in let mutable _v229 = v229 │
00:09:55 verbose #62688 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62689 > │ let v231 : bool = null |> unbox<bool> │
00:09:55 verbose #62690 > │ v231 │
00:09:55 verbose #62691 > │ #endif │
00:09:55 verbose #62692 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62693 > │ let v232 : bool = null |> unbox<bool> │
00:09:55 verbose #62694 > │ v232 │
00:09:55 verbose #62695 > │ #endif │
00:09:55 verbose #62696 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62697 > │ let v233 : bool = null |> unbox<bool> │
00:09:55 verbose #62698 > │ v233 │
00:09:55 verbose #62699 > │ #endif │
00:09:55 verbose #62700 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62701 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62702 > │ let v234 : System.Runtime.InteropServices.OSPlatform = │
00:09:55 verbose #62703 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:55 verbose #62704 > │ let v235 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:55 verbose #62705 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:55 verbose #62706 > │ let v236 : bool = v235 v234 │
00:09:55 verbose #62707 > │ v236 │
00:09:55 verbose #62708 > │ #endif │
00:09:55 verbose #62709 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62710 > │ let v237 : bool = null |> unbox<bool> │
00:09:55 verbose #62711 > │ v237 │
00:09:55 verbose #62712 > │ #endif │
00:09:55 verbose #62713 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #62714 > │ FABLE_COMPILER_DART │
00:09:55 verbose #62715 > │ let v238 : bool = Unchecked.defaultof<bool> │
00:09:55 verbose #62716 > │ v238 │
00:09:55 verbose #62717 > │ #endif │
00:09:55 verbose #62718 > │ |> fun x -> _v229 <- Some x │
00:09:55 verbose #62719 > │ let v239 : bool = _v229.Value │
00:09:55 verbose #62720 > │ let v240 : int64 = │
00:09:55 verbose #62721 > │ if v239 then │
00:09:55 verbose #62722 > │ 2L │
00:09:55 verbose #62723 > │ else │
00:09:55 verbose #62724 > │ 1L │
00:09:55 verbose #62725 > │ let v241 : bool option = None │
00:09:55 verbose #62726 > │ let v242 : bool = true in let mutable _v241 = v241 │
00:09:55 verbose #62727 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:55 verbose #62728 > │ let v243 : bool = null |> unbox<bool> │
00:09:55 verbose #62729 > │ v243 │
00:09:55 verbose #62730 > │ #endif │
00:09:55 verbose #62731 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:55 verbose #62732 > │ let v244 : bool = null |> unbox<bool> │
00:09:55 verbose #62733 > │ v244 │
00:09:55 verbose #62734 > │ #endif │
00:09:55 verbose #62735 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:55 verbose #62736 > │ let v245 : bool = null |> unbox<bool> │
00:09:55 verbose #62737 > │ v245 │
00:09:55 verbose #62738 > │ #endif │
00:09:55 verbose #62739 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:55 verbose #62740 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:55 verbose #62741 > │ let v246 : System.Runtime.InteropServices.OSPlatform = │
00:09:55 verbose #62742 > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:09:55 verbose #62743 > │ let v247 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:09:55 verbose #62744 > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:09:55 verbose #62745 > │ let v248 : bool = v247 v246 │
00:09:55 verbose #62746 > │ v248 │
00:09:55 verbose #62747 > │ #endif │
00:09:55 verbose #62748 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:55 verbose #62749 > │ let v249 : bool = null |> unbox<bool> │
00:09:55 verbose #62750 > │ v249 │
00:09:55 verbose #62751 > │ #endif │
00:09:55 verbose #62752 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:55 verbose #62753 > │ FABLE_COMPILER_DART │
00:09:55 verbose #62754 > │ let v250 : bool = Unchecked.defaultof<bool> │
00:09:55 verbose #62755 > │ v250 │
00:09:55 verbose #62756 > │ #endif │
00:09:55 verbose #62757 > │ |> fun x -> _v241 <- Some x │
00:09:55 verbose #62758 > │ let v251 : bool = _v241.Value │
00:09:55 verbose #62759 > │ let v252 : int64 = │
00:09:55 verbose #62760 > │ if v251 then │
00:09:55 verbose #62761 > │ 10L │
00:09:55 verbose #62762 > │ else │
00:09:55 verbose #62763 > │ 120L │
00:09:55 verbose #62764 > │ let v253 : string = $"%A{v222}" │
00:09:55 verbose #62765 > │ System.Console.WriteLine v253 │
00:09:55 verbose #62766 > │ let v254 : string = $"%A{v222}" │
00:09:55 verbose #62767 > │ System.Console.WriteLine v254 │
00:09:55 verbose #62768 > │ let v255 : bool = v222 >= v240 │
00:09:55 verbose #62769 > │ let v257 : bool = │
00:09:55 verbose #62770 > │ if v255 then │
00:09:55 verbose #62771 > │ true │
00:09:55 verbose #62772 > │ else │
00:09:55 verbose #62773 > │ method10(v255) │
00:09:55 verbose #62774 > │ let v258 : string = $"__expect / actual: %A{v222} / expected: │
00:09:55 verbose #62775 > │ %A{v240}" │
00:09:55 verbose #62776 > │ let v259 : bool = v257 = false │
00:09:55 verbose #62777 > │ if v259 then │
00:09:55 verbose #62778 > │ failwith<unit> v258 │
00:09:55 verbose #62779 > │ let v260 : string = $"%A{v222}" │
00:09:55 verbose #62780 > │ System.Console.WriteLine v260 │
00:09:55 verbose #62781 > │ let v261 : bool = v222 <= v252 │
00:09:55 verbose #62782 > │ let v263 : bool = │
00:09:55 verbose #62783 > │ if v261 then │
00:09:55 verbose #62784 > │ true │
00:09:55 verbose #62785 > │ else │
00:09:55 verbose #62786 > │ method10(v261) │
00:09:55 verbose #62787 > │ let v264 : string = $"__expect / actual: %A{v222} / expected: │
00:09:55 verbose #62788 > │ %A{v252}" │
00:09:55 verbose #62789 > │ let v265 : bool = v263 = false │
00:09:55 verbose #62790 > │ if v265 then │
00:09:55 verbose #62791 > │ failwith<unit> v264 │
00:09:55 verbose #62792 > │ let v266 : string = $"__expect / actual: %A{v222} / expected: │
00:09:55 verbose #62793 > │ %A{struct (v240, v252)}" │
00:09:55 verbose #62794 > │ true │
00:09:55 verbose #62795 > │ | _ -> │
00:09:55 verbose #62796 > │ false │
00:09:55 verbose #62797 > │ let v268 : string = $"%A{v267}" │
00:09:55 verbose #62798 > │ System.Console.WriteLine v268 │
00:09:55 verbose #62799 > │ let v270 : bool = │
00:09:55 verbose #62800 > │ if v267 then │
00:09:55 verbose #62801 > │ true │
00:09:55 verbose #62802 > │ else │
00:09:55 verbose #62803 > │ method10(v267) │
00:09:55 verbose #62804 > │ let v271 : string = $"__expect / actual: %A{v267} / expected: %A{true}" │
00:09:55 verbose #62805 > │ let v272 : bool = v270 = false │
00:09:55 verbose #62806 > │ if v272 then │
00:09:55 verbose #62807 > │ failwith<unit> v271 │
00:09:55 verbose #62808 > │ method0() │
00:09:55 verbose #62809 > │ │
00:09:55 verbose #62810 > │ 00:00:00 debug #1 1 │
00:09:55 verbose #62811 > │ 00:00:00 debug #3 2 │
00:09:55 verbose #62812 > │ 00:00:00 debug #3 _1 │
00:09:55 verbose #62813 > │ 00:00:00 debug #4 _2 │
00:09:55 verbose #62814 > │ 00:00:00 debug #5 _3 │
00:09:55 verbose #62815 > │ 00:00:00 debug #6 3 │
00:09:55 verbose #62816 > │ 00:00:00 debug #7 run_with_timeout_async / timeout: 60 │
00:09:55 verbose #62817 > │ 00:00:00 debug #8 4 │
00:09:55 verbose #62818 > │ 00:00:00 verbose #9 wait_for_port_access / port: 5555 / retry: 0 │
00:09:55 verbose #62819 > │ 00:00:00 debug #10 _4 │
00:09:55 verbose #62820 > │ 00:00:00 debug #11 _5 │
00:09:55 verbose #62821 > │ 00:00:00 debug #12 run_with_timeout_async / timeout: 60 │
00:09:55 verbose #62822 > │ 00:00:00 debug #13 5 │
00:09:55 verbose #62823 > │ 00:00:00 debug #14 6 │
00:09:55 verbose #62824 > │ 5557 │
00:09:55 verbose #62825 > │ 4L │
00:09:55 verbose #62826 > │ 4L │
00:09:55 verbose #62827 > │ 4L │
00:09:55 verbose #62828 > │ true │
00:09:55 verbose #62829 > │ │
00:09:55 verbose #62830 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:55 verbose #62831 >
00:09:55 verbose #62832 > ── markdown ────────────────────────────────────────────────────────────────────
00:09:55 verbose #62833 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:55 verbose #62834 > │ ## main │
00:09:55 verbose #62835 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:55 verbose #62836 >
00:09:55 verbose #62837 > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:55 verbose #62838 > inl main () =
00:09:55 verbose #62839 > types ()
00:09:55 verbose #62840 > init_trace_state ()
00:09:55 verbose #62841 > $"let test_port_open x = !test_port_open x" : ()
00:09:55 verbose #62842 > $"let test_port_open_timeout x = !test_port_open_timeout x" : ()
00:09:55 verbose #62843 > $"let wait_for_port_access x = !wait_for_port_access x" : ()
00:09:55 verbose #62844 > $"let get_available_port x = !get_available_port x" : ()
00:09:55 verbose #62845 > 00:09:55 debug #743 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4ac5db398542c675875fe73f756fe3e5da867c7801c633488d7ff70fdf3ea8a1/main.spi
00:09:56 verbose #62846 >
00:09:56 verbose #62847 > ╭─[ 1.17s - stdout ]───────────────────────────────────────────────────────────╮
00:09:56 verbose #62848 > │ #if FABLE_COMPILER // networking.types │
00:09:56 verbose #62849 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:09:56 verbose #62850 > │ end │
00:09:56 verbose #62851 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:09:56 verbose #62852 > │ class end │
00:09:56 verbose #62853 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:09:56 verbose #62854 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:09:56 verbose #62855 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:09:56 verbose #62856 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:09:56 verbose #62857 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:09:56 verbose #62858 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:09:56 verbose #62859 > │ class end │
00:09:56 verbose #62860 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:09:56 verbose #62861 > │ end │
00:09:56 verbose #62862 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:09:56 verbose #62863 > │ class end │
00:09:57 verbose #62864 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:09:57 verbose #62865 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:09:57 verbose #62866 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:09:57 verbose #62867 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:09:57 verbose #62868 > │ class end │
00:09:57 verbose #62869 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:09:57 verbose #62870 > │ class end │
00:09:57 verbose #62871 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:09:57 verbose #62872 > │ class end │
00:09:57 verbose #62873 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:09:57 verbose #62874 > │ std_cell_RefCell<'T> = class end │
00:09:57 verbose #62875 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:09:57 verbose #62876 > │ std_pin_Pin<'T> = class end │
00:09:57 verbose #62877 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:09:57 verbose #62878 > │ = class end │
00:09:57 verbose #62879 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:09:57 verbose #62880 > │ std_rc_Weak<'T> = class end │
00:09:57 verbose #62881 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:09:57 verbose #62882 > │ std_sync_Arc<'T> = class end │
00:09:57 verbose #62883 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:09:57 verbose #62884 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:09:57 verbose #62885 > │ base64_DecodeError = class end │
00:09:57 verbose #62886 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:09:57 verbose #62887 > │ borsh_io_Error = class end │
00:09:57 verbose #62888 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:09:57 verbose #62889 > │ js_sys_JsString = class end │
00:09:57 verbose #62890 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:09:57 verbose #62891 > │ serde_json_Error = class end │
00:09:57 verbose #62892 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:09:57 verbose #62893 > │ serde_json_Value = class end │
00:09:57 verbose #62894 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:09:57 verbose #62895 > │ serde_wasm_bindgen_Error = class end │
00:09:57 verbose #62896 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:09:57 verbose #62897 > │ = class end │
00:09:57 verbose #62898 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:09:57 verbose #62899 > │ std_ffi_OsString = class end │
00:09:57 verbose #62900 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:09:57 verbose #62901 > │ std_str_Utf8Error = class end │
00:09:57 verbose #62902 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:09:57 verbose #62903 > │ std_string_String = class end │
00:09:57 verbose #62904 > │ [<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>] type │
00:09:57 verbose #62905 > │ reqwest_Error = class end │
00:09:57 verbose #62906 > │ [<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>] type │
00:09:57 verbose #62907 > │ reqwest_RequestBuilder = class end │
00:09:57 verbose #62908 > │ [<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>] type │
00:09:57 verbose #62909 > │ reqwest_Response = class end │
00:09:57 verbose #62910 > │ #endif // networking.types │
00:09:57 verbose #62911 > │ module State = let mutable trace_state = None │
00:09:57 verbose #62912 > │ type Mut0 = {mutable l0 : int64} │
00:09:57 verbose #62913 > │ and Mut1 = {mutable l0 : bool} │
00:09:57 verbose #62914 > │ and [<Struct>] US0 = │
00:09:57 verbose #62915 > │ | US0_0 │
00:09:57 verbose #62916 > │ | US0_1 │
00:09:57 verbose #62917 > │ | US0_2 │
00:09:57 verbose #62918 > │ | US0_3 │
00:09:57 verbose #62919 > │ | US0_4 │
00:09:57 verbose #62920 > │ and Mut2 = {mutable l0 : US0} │
00:09:57 verbose #62921 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:09:57 verbose #62922 > │ and [<Struct>] US1 = │
00:09:57 verbose #62923 > │ | US1_0 of f0_0 : int64 │
00:09:57 verbose #62924 > │ | US1_1 │
00:09:57 verbose #62925 > │ and [<Struct>] US2 = │
00:09:57 verbose #62926 > │ | US2_0 of f0_0 : int64 │
00:09:57 verbose #62927 > │ | US2_1 │
00:09:57 verbose #62928 > │ and [<Struct>] US3 = │
00:09:57 verbose #62929 > │ | US3_0 of f0_0 : bool │
00:09:57 verbose #62930 > │ | US3_1 │
00:09:57 verbose #62931 > │ and [<Struct>] US4 = │
00:09:57 verbose #62932 > │ | US4_0 of f0_0 : bool │
00:09:57 verbose #62933 > │ | US4_1 of f1_0 : exn │
00:09:57 verbose #62934 > │ and [<Struct>] US5 = │
00:09:57 verbose #62935 > │ | US5_0 of f0_0 : bool │
00:09:57 verbose #62936 > │ | US5_1 of f1_0 : exn │
00:09:57 verbose #62937 > │ and [<Struct>] US6 = │
00:09:57 verbose #62938 > │ | US6_0 of f0_0 : int32 │
00:09:57 verbose #62939 > │ | US6_1 │
00:09:57 verbose #62940 > │ let rec closure1 () (v0 : string) : unit = │
00:09:57 verbose #62941 > │ () │
00:09:57 verbose #62942 > │ and method0 (v0 : int64 option) : int64 option = │
00:09:57 verbose #62943 > │ v0 │
00:09:57 verbose #62944 > │ and method1 (v0 : int64 option) : int64 option = │
00:09:57 verbose #62945 > │ v0 │
00:09:57 verbose #62946 > │ and closure0 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:09:57 verbose #62947 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:09:57 verbose #62948 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:09:57 verbose #62949 > │ let v2 : US0 = US0_0 │
00:09:57 verbose #62950 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:09:57 verbose #62951 > │ let v4 : (string -> unit) = closure1() │
00:09:57 verbose #62952 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:09:57 verbose #62953 > │ let v6 : int64 option option = None │
00:09:57 verbose #62954 > │ let mutable _v6 = v6 │
00:09:57 verbose #62955 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:09:57 verbose #62956 > │ let v7 : string option = None │
00:09:57 verbose #62957 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:09:57 verbose #62958 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #62959 > │ let v9 : string = null |> unbox<string> │
00:09:57 verbose #62960 > │ v9 │
00:09:57 verbose #62961 > │ #endif │
00:09:57 verbose #62962 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #62963 > │ let v10 : string = null |> unbox<string> │
00:09:57 verbose #62964 > │ v10 │
00:09:57 verbose #62965 > │ #endif │
00:09:57 verbose #62966 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #62967 > │ let v11 : string = null |> unbox<string> │
00:09:57 verbose #62968 > │ v11 │
00:09:57 verbose #62969 > │ #endif │
00:09:57 verbose #62970 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #62971 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #62972 > │ let v12 : string = │
00:09:57 verbose #62973 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:09:57 verbose #62974 > │ v12 │
00:09:57 verbose #62975 > │ #endif │
00:09:57 verbose #62976 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #62977 > │ let v13 : string = null |> unbox<string> │
00:09:57 verbose #62978 > │ v13 │
00:09:57 verbose #62979 > │ #endif │
00:09:57 verbose #62980 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #62981 > │ let v14 : string = Unchecked.defaultof<string> │
00:09:57 verbose #62982 > │ v14 │
00:09:57 verbose #62983 > │ #endif │
00:09:57 verbose #62984 > │ |> fun x -> _v7 <- Some x │
00:09:57 verbose #62985 > │ let v15 : string = _v7.Value │
00:09:57 verbose #62986 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:09:57 verbose #62987 > │ let v18 : bool = v17 <> true │
00:09:57 verbose #62988 > │ let v24 : US1 = │
00:09:57 verbose #62989 > │ if v18 then │
00:09:57 verbose #62990 > │ let v19 : System.DateTime = System.DateTime.Now │
00:09:57 verbose #62991 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:09:57 verbose #62992 > │ let v21 : int64 = v20 v19 │
00:09:57 verbose #62993 > │ US1_0(v21) │
00:09:57 verbose #62994 > │ else │
00:09:57 verbose #62995 > │ US1_1 │
00:09:57 verbose #62996 > │ let v29 : int64 option = │
00:09:57 verbose #62997 > │ match v24 with │
00:09:57 verbose #62998 > │ | US1_1 -> (* None *) │
00:09:57 verbose #62999 > │ let v27 : int64 option = None │
00:09:57 verbose #63000 > │ v27 │
00:09:57 verbose #63001 > │ | US1_0(v25) -> (* Some *) │
00:09:57 verbose #63002 > │ let v26 : int64 option = Some v25 │
00:09:57 verbose #63003 > │ v26 │
00:09:57 verbose #63004 > │ let v30 : int64 option = method0(v29) │
00:09:57 verbose #63005 > │ v30 │
00:09:57 verbose #63006 > │ #else │
00:09:57 verbose #63007 > │ let v31 : int64 option = None │
00:09:57 verbose #63008 > │ let v32 : int64 option = method1(v31) │
00:09:57 verbose #63009 > │ v32 │
00:09:57 verbose #63010 > │ #endif │
00:09:57 verbose #63011 > │ |> fun x -> _v6 <- Some x │
00:09:57 verbose #63012 > │ let v33 : int64 option = _v6.Value │
00:09:57 verbose #63013 > │ struct (v1, v0, v3, v33, v5) │
00:09:57 verbose #63014 > │ and closure3 (v0 : string) () : string = │
00:09:57 verbose #63015 > │ let v1 : string = $"test_port_open / ex: {v0}" │
00:09:57 verbose #63016 > │ v1 │
00:09:57 verbose #63017 > │ and closure4 () () : string = │
00:09:57 verbose #63018 > │ let v0 : string = "" │
00:09:57 verbose #63019 > │ v0 │
00:09:57 verbose #63020 > │ and closure6 () (v0 : int64) : US2 = │
00:09:57 verbose #63021 > │ US2_0(v0) │
00:09:57 verbose #63022 > │ and method3 () : (int64 -> US2) = │
00:09:57 verbose #63023 > │ closure6() │
00:09:57 verbose #63024 > │ and method4 () : string = │
00:09:57 verbose #63025 > │ let v0 : string = "" │
00:09:57 verbose #63026 > │ v0 │
00:09:57 verbose #63027 > │ and closure5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:09:57 verbose #63028 > │ string = │
00:09:57 verbose #63029 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:57 verbose #63030 > │ closure0() │
00:09:57 verbose #63031 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:09:57 verbose #63032 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:09:57 verbose #63033 > │ Mut3) = State.trace_state.Value │
00:09:57 verbose #63034 > │ let v9 : string option = None │
00:09:57 verbose #63035 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:09:57 verbose #63036 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63037 > │ let v11 : (int64 -> US2) = method3() │
00:09:57 verbose #63038 > │ let v12 : US2 = US2_1 │
00:09:57 verbose #63039 > │ let v13 : US2 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:09:57 verbose #63040 > │ let v31 : System.DateTime = │
00:09:57 verbose #63041 > │ match v13 with │
00:09:57 verbose #63042 > │ | US2_1 -> (* None *) │
00:09:57 verbose #63043 > │ let v29 : System.DateTime = System.DateTime.Now │
00:09:57 verbose #63044 > │ v29 │
00:09:57 verbose #63045 > │ | US2_0(v14) -> (* Some *) │
00:09:57 verbose #63046 > │ let v15 : System.DateTime = System.DateTime.Now │
00:09:57 verbose #63047 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:09:57 verbose #63048 > │ let v17 : int64 = v16 v15 │
00:09:57 verbose #63049 > │ let v18 : int64 = v17 - v14 │
00:09:57 verbose #63050 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:09:57 verbose #63051 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:09:57 verbose #63052 > │ let v21 : int32 = v20 v19 │
00:09:57 verbose #63053 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:09:57 verbose #63054 > │ let v23 : int32 = v22 v19 │
00:09:57 verbose #63055 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:09:57 verbose #63056 > │ let v25 : int32 = v24 v19 │
00:09:57 verbose #63057 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:57 verbose #63058 > │ let v27 : int32 = v26 v19 │
00:09:57 verbose #63059 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:09:57 verbose #63060 > │ v25, v27) │
00:09:57 verbose #63061 > │ v28 │
00:09:57 verbose #63062 > │ let v32 : string = "hh:mm:ss" │
00:09:57 verbose #63063 > │ let v33 : string = v31.ToString v32 │
00:09:57 verbose #63064 > │ v33 │
00:09:57 verbose #63065 > │ #endif │
00:09:57 verbose #63066 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63067 > │ let v34 : string = method4() │
00:09:57 verbose #63068 > │ v34 │
00:09:57 verbose #63069 > │ #endif │
00:09:57 verbose #63070 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63071 > │ let v35 : string = method4() │
00:09:57 verbose #63072 > │ v35 │
00:09:57 verbose #63073 > │ #endif │
00:09:57 verbose #63074 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63075 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63076 > │ let v36 : (int64 -> US2) = method3() │
00:09:57 verbose #63077 > │ let v37 : US2 = US2_1 │
00:09:57 verbose #63078 > │ let v38 : US2 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:09:57 verbose #63079 > │ let v56 : System.DateTime = │
00:09:57 verbose #63080 > │ match v38 with │
00:09:57 verbose #63081 > │ | US2_1 -> (* None *) │
00:09:57 verbose #63082 > │ let v54 : System.DateTime = System.DateTime.Now │
00:09:57 verbose #63083 > │ v54 │
00:09:57 verbose #63084 > │ | US2_0(v39) -> (* Some *) │
00:09:57 verbose #63085 > │ let v40 : System.DateTime = System.DateTime.Now │
00:09:57 verbose #63086 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:09:57 verbose #63087 > │ let v42 : int64 = v41 v40 │
00:09:57 verbose #63088 > │ let v43 : int64 = v42 - v39 │
00:09:57 verbose #63089 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:09:57 verbose #63090 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:09:57 verbose #63091 > │ let v46 : int32 = v45 v44 │
00:09:57 verbose #63092 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:09:57 verbose #63093 > │ let v48 : int32 = v47 v44 │
00:09:57 verbose #63094 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:09:57 verbose #63095 > │ let v50 : int32 = v49 v44 │
00:09:57 verbose #63096 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:09:57 verbose #63097 > │ let v52 : int32 = v51 v44 │
00:09:57 verbose #63098 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:09:57 verbose #63099 > │ v50, v52) │
00:09:57 verbose #63100 > │ v53 │
00:09:57 verbose #63101 > │ let v57 : string = "HH:mm:ss" │
00:09:57 verbose #63102 > │ let v58 : string = v56.ToString v57 │
00:09:57 verbose #63103 > │ v58 │
00:09:57 verbose #63104 > │ #endif │
00:09:57 verbose #63105 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63106 > │ let v59 : string = method4() │
00:09:57 verbose #63107 > │ v59 │
00:09:57 verbose #63108 > │ #endif │
00:09:57 verbose #63109 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63110 > │ let v60 : string = Unchecked.defaultof<string> │
00:09:57 verbose #63111 > │ v60 │
00:09:57 verbose #63112 > │ #endif │
00:09:57 verbose #63113 > │ |> fun x -> _v9 <- Some x │
00:09:57 verbose #63114 > │ let v61 : string = _v9.Value │
00:09:57 verbose #63115 > │ let v62 : int64 = v4.l0 │
00:09:57 verbose #63116 > │ let v72 : string = │
00:09:57 verbose #63117 > │ match v0 with │
00:09:57 verbose #63118 > │ | US0_4 -> (* Critical *) │
00:09:57 verbose #63119 > │ let v67 : string = "Critical" │
00:09:57 verbose #63120 > │ v67 │
00:09:57 verbose #63121 > │ | US0_1 -> (* Debug *) │
00:09:57 verbose #63122 > │ let v64 : string = "Debug" │
00:09:57 verbose #63123 > │ v64 │
00:09:57 verbose #63124 > │ | US0_2 -> (* Info *) │
00:09:57 verbose #63125 > │ let v65 : string = "Info" │
00:09:57 verbose #63126 > │ v65 │
00:09:57 verbose #63127 > │ | US0_0 -> (* Verbose *) │
00:09:57 verbose #63128 > │ let v63 : string = "Verbose" │
00:09:57 verbose #63129 > │ v63 │
00:09:57 verbose #63130 > │ | US0_3 -> (* Warning *) │
00:09:57 verbose #63131 > │ let v66 : string = "Warning" │
00:09:57 verbose #63132 > │ v66 │
00:09:57 verbose #63133 > │ let v73 : string = v72.ToLower () │
00:09:57 verbose #63134 > │ let v74 : string option = None │
00:09:57 verbose #63135 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:57 verbose #63136 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63137 > │ let v90 : Ref<Str> = │
00:09:57 verbose #63138 > │ match v0 with │
00:09:57 verbose #63139 > │ | US0_4 -> (* Critical *) │
00:09:57 verbose #63140 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:09:57 verbose #63141 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:09:57 verbose #63142 > │ v85 │
00:09:57 verbose #63143 > │ | US0_1 -> (* Debug *) │
00:09:57 verbose #63144 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:09:57 verbose #63145 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:09:57 verbose #63146 > │ v79 │
00:09:57 verbose #63147 > │ | US0_2 -> (* Info *) │
00:09:57 verbose #63148 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:09:57 verbose #63149 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:09:57 verbose #63150 > │ v81 │
00:09:57 verbose #63151 > │ | US0_0 -> (* Verbose *) │
00:09:57 verbose #63152 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:09:57 verbose #63153 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:09:57 verbose #63154 > │ v77 │
00:09:57 verbose #63155 > │ | US0_3 -> (* Warning *) │
00:09:57 verbose #63156 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:09:57 verbose #63157 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:09:57 verbose #63158 > │ v83 │
00:09:57 verbose #63159 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:57 verbose #63160 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:09:57 verbose #63161 > │ let v93 : string = "inline_colorization::color_reset" │
00:09:57 verbose #63162 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:09:57 verbose #63163 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:09:57 verbose #63164 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:09:57 verbose #63165 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:09:57 verbose #63166 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:09:57 verbose #63167 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:09:57 verbose #63168 > │ v99 │
00:09:57 verbose #63169 > │ #endif │
00:09:57 verbose #63170 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63171 > │ let v114 : Ref<Str> = │
00:09:57 verbose #63172 > │ match v0 with │
00:09:57 verbose #63173 > │ | US0_4 -> (* Critical *) │
00:09:57 verbose #63174 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:09:57 verbose #63175 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63176 > │ v108 │
00:09:57 verbose #63177 > │ v109 │
00:09:57 verbose #63178 > │ | US0_1 -> (* Debug *) │
00:09:57 verbose #63179 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:09:57 verbose #63180 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63181 > │ v102 │
00:09:57 verbose #63182 > │ v103 │
00:09:57 verbose #63183 > │ | US0_2 -> (* Info *) │
00:09:57 verbose #63184 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:09:57 verbose #63185 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63186 > │ v104 │
00:09:57 verbose #63187 > │ v105 │
00:09:57 verbose #63188 > │ | US0_0 -> (* Verbose *) │
00:09:57 verbose #63189 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:09:57 verbose #63190 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63191 > │ v100 │
00:09:57 verbose #63192 > │ v101 │
00:09:57 verbose #63193 > │ | US0_3 -> (* Warning *) │
00:09:57 verbose #63194 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:09:57 verbose #63195 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63196 > │ v106 │
00:09:57 verbose #63197 > │ v107 │
00:09:57 verbose #63198 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:57 verbose #63199 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:09:57 verbose #63200 > │ let v117 : string = "inline_colorization::color_reset" │
00:09:57 verbose #63201 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:09:57 verbose #63202 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:09:57 verbose #63203 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:09:57 verbose #63204 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63205 > │ v120 │
00:09:57 verbose #63206 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:09:57 verbose #63207 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:09:57 verbose #63208 > │ v123 │
00:09:57 verbose #63209 > │ #endif │
00:09:57 verbose #63210 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63211 > │ let v138 : Ref<Str> = │
00:09:57 verbose #63212 > │ match v0 with │
00:09:57 verbose #63213 > │ | US0_4 -> (* Critical *) │
00:09:57 verbose #63214 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:09:57 verbose #63215 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63216 > │ v132 │
00:09:57 verbose #63217 > │ v133 │
00:09:57 verbose #63218 > │ | US0_1 -> (* Debug *) │
00:09:57 verbose #63219 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:09:57 verbose #63220 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63221 > │ v126 │
00:09:57 verbose #63222 > │ v127 │
00:09:57 verbose #63223 > │ | US0_2 -> (* Info *) │
00:09:57 verbose #63224 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:09:57 verbose #63225 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63226 > │ v128 │
00:09:57 verbose #63227 > │ v129 │
00:09:57 verbose #63228 > │ | US0_0 -> (* Verbose *) │
00:09:57 verbose #63229 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:09:57 verbose #63230 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63231 > │ v124 │
00:09:57 verbose #63232 > │ v125 │
00:09:57 verbose #63233 > │ | US0_3 -> (* Warning *) │
00:09:57 verbose #63234 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:09:57 verbose #63235 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63236 > │ v130 │
00:09:57 verbose #63237 > │ v131 │
00:09:57 verbose #63238 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:09:57 verbose #63239 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:09:57 verbose #63240 > │ let v141 : string = "inline_colorization::color_reset" │
00:09:57 verbose #63241 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:09:57 verbose #63242 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:09:57 verbose #63243 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:09:57 verbose #63244 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:09:57 verbose #63245 > │ v144 │
00:09:57 verbose #63246 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:09:57 verbose #63247 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:09:57 verbose #63248 > │ v147 │
00:09:57 verbose #63249 > │ #endif │
00:09:57 verbose #63250 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63251 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63252 > │ v73 │
00:09:57 verbose #63253 > │ #endif │
00:09:57 verbose #63254 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63255 > │ v73 │
00:09:57 verbose #63256 > │ #endif │
00:09:57 verbose #63257 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63258 > │ let v148 : string = Unchecked.defaultof<string> │
00:09:57 verbose #63259 > │ v148 │
00:09:57 verbose #63260 > │ #endif │
00:09:57 verbose #63261 > │ |> fun x -> _v74 <- Some x │
00:09:57 verbose #63262 > │ let v149 : string = _v74.Value │
00:09:57 verbose #63263 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:09:57 verbose #63264 > │ let v151 : (char []) = [||] │
00:09:57 verbose #63265 > │ let v152 : string = v150.TrimStart v151 │
00:09:57 verbose #63266 > │ let v153 : (char []) = [|' '; '/'|] │
00:09:57 verbose #63267 > │ let v154 : string = v152.TrimEnd v153 │
00:09:57 verbose #63268 > │ v154 │
00:09:57 verbose #63269 > │ and method5 (v0 : US0, v1 : (unit -> string)) : unit = │
00:09:57 verbose #63270 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:57 verbose #63271 > │ closure0() │
00:09:57 verbose #63272 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:57 verbose #63273 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:09:57 verbose #63274 > │ Mut3) = State.trace_state.Value │
00:09:57 verbose #63275 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:09:57 verbose #63276 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:09:57 verbose #63277 > │ Mut3) = State.trace_state.Value │
00:09:57 verbose #63278 > │ let v13 : US0 = v10.l0 │
00:09:57 verbose #63279 > │ let v14 : bool = v9.l0 │
00:09:57 verbose #63280 > │ let v15 : bool = v14 = false │
00:09:57 verbose #63281 > │ let v19 : bool = │
00:09:57 verbose #63282 > │ if v15 then │
00:09:57 verbose #63283 > │ false │
00:09:57 verbose #63284 > │ else │
00:09:57 verbose #63285 > │ let v16 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:57 verbose #63286 > │ US0_4, 4 ] |> Map |> Map.find v0 │
00:09:57 verbose #63287 > │ let v17 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; │
00:09:57 verbose #63288 > │ US0_4, 4 ] |> Map |> Map.find v13 │
00:09:57 verbose #63289 > │ let v18 : bool = v16 >= v17 │
00:09:57 verbose #63290 > │ v18 │
00:09:57 verbose #63291 > │ if v19 then │
00:09:57 verbose #63292 > │ let v20 : int64 = v3.l0 │
00:09:57 verbose #63293 > │ let v21 : int64 = v20 + 1L │
00:09:57 verbose #63294 > │ v3.l0 <- v21 │
00:09:57 verbose #63295 > │ let v22 : string = $"%s{v1 ()}" │
00:09:57 verbose #63296 > │ let v23 : unit option = None │
00:09:57 verbose #63297 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:09:57 verbose #63298 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63299 > │ let v25 : string = @"println!(""{}"", $0)" │
00:09:57 verbose #63300 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:09:57 verbose #63301 > │ () │
00:09:57 verbose #63302 > │ #endif │
00:09:57 verbose #63303 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63304 > │ let v26 : string = @"println!(""{}"", $0)" │
00:09:57 verbose #63305 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:09:57 verbose #63306 > │ () │
00:09:57 verbose #63307 > │ #endif │
00:09:57 verbose #63308 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63309 > │ let v27 : string = @"println!(""{}"", $0)" │
00:09:57 verbose #63310 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:09:57 verbose #63311 > │ () │
00:09:57 verbose #63312 > │ #endif │
00:09:57 verbose #63313 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63314 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63315 > │ System.Console.WriteLine v22 │
00:09:57 verbose #63316 > │ () │
00:09:57 verbose #63317 > │ #endif │
00:09:57 verbose #63318 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63319 > │ System.Console.WriteLine v22 │
00:09:57 verbose #63320 > │ () │
00:09:57 verbose #63321 > │ #endif │
00:09:57 verbose #63322 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #63323 > │ FABLE_COMPILER_DART │
00:09:57 verbose #63324 > │ Unchecked.defaultof<unit> │
00:09:57 verbose #63325 > │ () │
00:09:57 verbose #63326 > │ #endif │
00:09:57 verbose #63327 > │ |> fun x -> _v23 <- Some x │
00:09:57 verbose #63328 > │ _v23.Value │
00:09:57 verbose #63329 > │ let v28 : (string -> unit) = v7.l0 │
00:09:57 verbose #63330 > │ v28 v22 │
00:09:57 verbose #63331 > │ and method2 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:09:57 verbose #63332 > │ = │
00:09:57 verbose #63333 > │ let v3 : (unit -> string) = closure5(v0, v1, v2) │
00:09:57 verbose #63334 > │ method5(v0, v3) │
00:09:57 verbose #63335 > │ and closure2 () (v0 : int32) : Async<bool> = │
00:09:57 verbose #63336 > │ let v1 : Async<bool> option = None │
00:09:57 verbose #63337 > │ let v2 : bool = true in let mutable _v1 = v1 │
00:09:57 verbose #63338 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63339 > │ let v3 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63340 > │ v3 │
00:09:57 verbose #63341 > │ #endif │
00:09:57 verbose #63342 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63343 > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63344 > │ v4 │
00:09:57 verbose #63345 > │ #endif │
00:09:57 verbose #63346 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63347 > │ let v5 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63348 > │ v5 │
00:09:57 verbose #63349 > │ #endif │
00:09:57 verbose #63350 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63351 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63352 > │ let v6 : Async<bool> option = None │
00:09:57 verbose #63353 > │ let mutable _v6 = v6 │
00:09:57 verbose #63354 > │ async { │
00:09:57 verbose #63355 > │ let v7 : Async<System.Threading.CancellationToken> = │
00:09:57 verbose #63356 > │ Async.CancellationToken │
00:09:57 verbose #63357 > │ let! v7 = v7 │
00:09:57 verbose #63358 > │ let v8 : System.Threading.CancellationToken = v7 │
00:09:57 verbose #63359 > │ let v9 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient │
00:09:57 verbose #63360 > │ () │
00:09:57 verbose #63361 > │ use v9 = v9 │
00:09:57 verbose #63362 > │ let v10 : System.Net.Sockets.TcpClient = v9 │
00:09:57 verbose #63363 > │ try │
00:09:57 verbose #63364 > │ let v11 : string = "127.0.0.1" │
00:09:57 verbose #63365 > │ let v12 : System.Threading.Tasks.ValueTask = v10.ConnectAsync (v11, v0, │
00:09:57 verbose #63366 > │ v8) │
00:09:57 verbose #63367 > │ let v13 : (unit -> System.Threading.Tasks.Task) = v12.AsTask │
00:09:57 verbose #63368 > │ let v14 : System.Threading.Tasks.Task = v13 () │
00:09:57 verbose #63369 > │ let v15 : Async<unit> option = None │
00:09:57 verbose #63370 > │ let v16 : bool = true in let mutable _v15 = v15 │
00:09:57 verbose #63371 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63372 > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63373 > │ v17 │
00:09:57 verbose #63374 > │ #endif │
00:09:57 verbose #63375 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63376 > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63377 > │ v18 │
00:09:57 verbose #63378 > │ #endif │
00:09:57 verbose #63379 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63380 > │ let v19 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63381 > │ v19 │
00:09:57 verbose #63382 > │ #endif │
00:09:57 verbose #63383 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63384 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63385 > │ let v20 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:09:57 verbose #63386 > │ let v21 : Async<unit> = v20 v14 │
00:09:57 verbose #63387 > │ v21 │
00:09:57 verbose #63388 > │ #endif │
00:09:57 verbose #63389 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63390 > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63391 > │ v22 │
00:09:57 verbose #63392 > │ #endif │
00:09:57 verbose #63393 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63394 > │ let v23 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #63395 > │ v23 │
00:09:57 verbose #63396 > │ #endif │
00:09:57 verbose #63397 > │ |> fun x -> _v15 <- Some x │
00:09:57 verbose #63398 > │ let v24 : Async<unit> = _v15.Value │
00:09:57 verbose #63399 > │ do! v24 │
00:09:57 verbose #63400 > │ return true │
00:09:57 verbose #63401 > │ with ex -> │
00:09:57 verbose #63402 > │ let v25 : exn = ex │
00:09:57 verbose #63403 > │ let v26 : string option = None │
00:09:57 verbose #63404 > │ let v27 : bool = true in let mutable _v26 = v26 │
00:09:57 verbose #63405 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63406 > │ let v28 : string = $"%A{v25}" │
00:09:57 verbose #63407 > │ v28 │
00:09:57 verbose #63408 > │ #endif │
00:09:57 verbose #63409 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63410 > │ let v29 : string = $"%A{v25}" │
00:09:57 verbose #63411 > │ v29 │
00:09:57 verbose #63412 > │ #endif │
00:09:57 verbose #63413 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63414 > │ let v30 : string = $"%A{v25}" │
00:09:57 verbose #63415 > │ v30 │
00:09:57 verbose #63416 > │ #endif │
00:09:57 verbose #63417 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63418 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63419 > │ let v31 : string = $"{v25.GetType ()}: {v25.Message}" │
00:09:57 verbose #63420 > │ v31 │
00:09:57 verbose #63421 > │ #endif │
00:09:57 verbose #63422 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63423 > │ let v32 : string = $"%A{v25}" │
00:09:57 verbose #63424 > │ v32 │
00:09:57 verbose #63425 > │ #endif │
00:09:57 verbose #63426 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63427 > │ let v33 : string = Unchecked.defaultof<string> │
00:09:57 verbose #63428 > │ v33 │
00:09:57 verbose #63429 > │ #endif │
00:09:57 verbose #63430 > │ |> fun x -> _v26 <- Some x │
00:09:57 verbose #63431 > │ let v34 : string = _v26.Value │
00:09:57 verbose #63432 > │ let v35 : US0 = US0_0 │
00:09:57 verbose #63433 > │ let v36 : (unit -> string) = closure3(v34) │
00:09:57 verbose #63434 > │ let v37 : (unit -> string) = closure4() │
00:09:57 verbose #63435 > │ method2(v35, v36, v37) │
00:09:57 verbose #63436 > │ return false │
00:09:57 verbose #63437 > │ (* │
00:09:57 verbose #63438 > │ let v38 : bool = *) │
00:09:57 verbose #63439 > │ } │
00:09:57 verbose #63440 > │ |> fun x -> _v6 <- Some x │
00:09:57 verbose #63441 > │ let v39 : Async<bool> = _v6 |> Option.get │
00:09:57 verbose #63442 > │ v39 │
00:09:57 verbose #63443 > │ #endif │
00:09:57 verbose #63444 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63445 > │ let v40 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63446 > │ v40 │
00:09:57 verbose #63447 > │ #endif │
00:09:57 verbose #63448 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63449 > │ let v41 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #63450 > │ v41 │
00:09:57 verbose #63451 > │ #endif │
00:09:57 verbose #63452 > │ |> fun x -> _v1 <- Some x │
00:09:57 verbose #63453 > │ let v42 : Async<bool> = _v1.Value │
00:09:57 verbose #63454 > │ v42 │
00:09:57 verbose #63455 > │ and closure9 () (v0 : bool) : US4 = │
00:09:57 verbose #63456 > │ US4_0(v0) │
00:09:57 verbose #63457 > │ and closure10 () (v0 : exn) : US4 = │
00:09:57 verbose #63458 > │ US4_1(v0) │
00:09:57 verbose #63459 > │ and closure11 () () : string = │
00:09:57 verbose #63460 > │ let v0 : string = "run_with_timeout_async" │
00:09:57 verbose #63461 > │ v0 │
00:09:57 verbose #63462 > │ and closure12 (v0 : int32) () : string = │
00:09:57 verbose #63463 > │ let v1 : (unit -> string) = closure4() │
00:09:57 verbose #63464 > │ let v2 : string = $"timeout: {v0} / {v1 ()}" │
00:09:57 verbose #63465 > │ v2 │
00:09:57 verbose #63466 > │ and closure13 (v0 : string) () : string = │
00:09:57 verbose #63467 > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:09:57 verbose #63468 > │ v1 │
00:09:57 verbose #63469 > │ and closure8 (v0 : int32) (v1 : int32) : Async<bool> = │
00:09:57 verbose #63470 > │ let v2 : Async<bool> option = None │
00:09:57 verbose #63471 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:57 verbose #63472 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63473 > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63474 > │ v4 │
00:09:57 verbose #63475 > │ #endif │
00:09:57 verbose #63476 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63477 > │ let v5 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63478 > │ v5 │
00:09:57 verbose #63479 > │ #endif │
00:09:57 verbose #63480 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63481 > │ let v6 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63482 > │ v6 │
00:09:57 verbose #63483 > │ #endif │
00:09:57 verbose #63484 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63485 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63486 > │ let v7 : Async<bool> option = None │
00:09:57 verbose #63487 > │ let mutable _v7 = v7 │
00:09:57 verbose #63488 > │ async { │
00:09:57 verbose #63489 > │ let v8 : Async<bool> option = None │
00:09:57 verbose #63490 > │ let v9 : bool = true in let mutable _v8 = v8 │
00:09:57 verbose #63491 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63492 > │ let v10 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63493 > │ v10 │
00:09:57 verbose #63494 > │ #endif │
00:09:57 verbose #63495 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63496 > │ let v11 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63497 > │ v11 │
00:09:57 verbose #63498 > │ #endif │
00:09:57 verbose #63499 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63500 > │ let v12 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63501 > │ v12 │
00:09:57 verbose #63502 > │ #endif │
00:09:57 verbose #63503 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63504 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63505 > │ let v13 : Async<bool> option = None │
00:09:57 verbose #63506 > │ let mutable _v13 = v13 │
00:09:57 verbose #63507 > │ async { │
00:09:57 verbose #63508 > │ let v14 : Async<System.Threading.CancellationToken> = │
00:09:57 verbose #63509 > │ Async.CancellationToken │
00:09:57 verbose #63510 > │ let! v14 = v14 │
00:09:57 verbose #63511 > │ let v15 : System.Threading.CancellationToken = v14 │
00:09:57 verbose #63512 > │ let v16 : System.Net.Sockets.TcpClient = new │
00:09:57 verbose #63513 > │ System.Net.Sockets.TcpClient () │
00:09:57 verbose #63514 > │ use v16 = v16 │
00:09:57 verbose #63515 > │ let v17 : System.Net.Sockets.TcpClient = v16 │
00:09:57 verbose #63516 > │ try │
00:09:57 verbose #63517 > │ let v18 : string = "127.0.0.1" │
00:09:57 verbose #63518 > │ let v19 : System.Threading.Tasks.ValueTask = v17.ConnectAsync (v18, v1, │
00:09:57 verbose #63519 > │ v15) │
00:09:57 verbose #63520 > │ let v20 : (unit -> System.Threading.Tasks.Task) = v19.AsTask │
00:09:57 verbose #63521 > │ let v21 : System.Threading.Tasks.Task = v20 () │
00:09:57 verbose #63522 > │ let v22 : Async<unit> option = None │
00:09:57 verbose #63523 > │ let v23 : bool = true in let mutable _v22 = v22 │
00:09:57 verbose #63524 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63525 > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63526 > │ v24 │
00:09:57 verbose #63527 > │ #endif │
00:09:57 verbose #63528 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63529 > │ let v25 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63530 > │ v25 │
00:09:57 verbose #63531 > │ #endif │
00:09:57 verbose #63532 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63533 > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63534 > │ v26 │
00:09:57 verbose #63535 > │ #endif │
00:09:57 verbose #63536 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63537 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63538 > │ let v27 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:09:57 verbose #63539 > │ let v28 : Async<unit> = v27 v21 │
00:09:57 verbose #63540 > │ v28 │
00:09:57 verbose #63541 > │ #endif │
00:09:57 verbose #63542 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63543 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #63544 > │ v29 │
00:09:57 verbose #63545 > │ #endif │
00:09:57 verbose #63546 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63547 > │ let v30 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #63548 > │ v30 │
00:09:57 verbose #63549 > │ #endif │
00:09:57 verbose #63550 > │ |> fun x -> _v22 <- Some x │
00:09:57 verbose #63551 > │ let v31 : Async<unit> = _v22.Value │
00:09:57 verbose #63552 > │ do! v31 │
00:09:57 verbose #63553 > │ return true │
00:09:57 verbose #63554 > │ with ex -> │
00:09:57 verbose #63555 > │ let v32 : exn = ex │
00:09:57 verbose #63556 > │ let v33 : string option = None │
00:09:57 verbose #63557 > │ let v34 : bool = true in let mutable _v33 = v33 │
00:09:57 verbose #63558 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63559 > │ let v35 : string = $"%A{v32}" │
00:09:57 verbose #63560 > │ v35 │
00:09:57 verbose #63561 > │ #endif │
00:09:57 verbose #63562 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63563 > │ let v36 : string = $"%A{v32}" │
00:09:57 verbose #63564 > │ v36 │
00:09:57 verbose #63565 > │ #endif │
00:09:57 verbose #63566 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63567 > │ let v37 : string = $"%A{v32}" │
00:09:57 verbose #63568 > │ v37 │
00:09:57 verbose #63569 > │ #endif │
00:09:57 verbose #63570 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63571 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63572 > │ let v38 : string = $"{v32.GetType ()}: {v32.Message}" │
00:09:57 verbose #63573 > │ v38 │
00:09:57 verbose #63574 > │ #endif │
00:09:57 verbose #63575 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63576 > │ let v39 : string = $"%A{v32}" │
00:09:57 verbose #63577 > │ v39 │
00:09:57 verbose #63578 > │ #endif │
00:09:57 verbose #63579 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63580 > │ let v40 : string = Unchecked.defaultof<string> │
00:09:57 verbose #63581 > │ v40 │
00:09:57 verbose #63582 > │ #endif │
00:09:57 verbose #63583 > │ |> fun x -> _v33 <- Some x │
00:09:57 verbose #63584 > │ let v41 : string = _v33.Value │
00:09:57 verbose #63585 > │ let v42 : US0 = US0_0 │
00:09:57 verbose #63586 > │ let v43 : (unit -> string) = closure3(v41) │
00:09:57 verbose #63587 > │ let v44 : (unit -> string) = closure4() │
00:09:57 verbose #63588 > │ method2(v42, v43, v44) │
00:09:57 verbose #63589 > │ return false │
00:09:57 verbose #63590 > │ (* │
00:09:57 verbose #63591 > │ let v45 : bool = *) │
00:09:57 verbose #63592 > │ } │
00:09:57 verbose #63593 > │ |> fun x -> _v13 <- Some x │
00:09:57 verbose #63594 > │ let v46 : Async<bool> = _v13 |> Option.get │
00:09:57 verbose #63595 > │ v46 │
00:09:57 verbose #63596 > │ #endif │
00:09:57 verbose #63597 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63598 > │ let v47 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63599 > │ v47 │
00:09:57 verbose #63600 > │ #endif │
00:09:57 verbose #63601 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63602 > │ let v48 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #63603 > │ v48 │
00:09:57 verbose #63604 > │ #endif │
00:09:57 verbose #63605 > │ |> fun x -> _v8 <- Some x │
00:09:57 verbose #63606 > │ let v49 : Async<bool> = _v8.Value │
00:09:57 verbose #63607 > │ let v50 : Async<US3> option = None │
00:09:57 verbose #63608 > │ let v51 : bool = true in let mutable _v50 = v50 │
00:09:57 verbose #63609 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63610 > │ let v52 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63611 > │ v52 │
00:09:57 verbose #63612 > │ #endif │
00:09:57 verbose #63613 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63614 > │ let v53 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63615 > │ v53 │
00:09:57 verbose #63616 > │ #endif │
00:09:57 verbose #63617 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63618 > │ let v54 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63619 > │ v54 │
00:09:57 verbose #63620 > │ #endif │
00:09:57 verbose #63621 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63622 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63623 > │ let v55 : Async<US3> option = None │
00:09:57 verbose #63624 > │ let v56 : bool = true in let mutable _v55 = v55 │
00:09:57 verbose #63625 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63626 > │ let v57 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63627 > │ v57 │
00:09:57 verbose #63628 > │ #endif │
00:09:57 verbose #63629 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63630 > │ let v58 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63631 > │ v58 │
00:09:57 verbose #63632 > │ #endif │
00:09:57 verbose #63633 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63634 > │ let v59 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63635 > │ v59 │
00:09:57 verbose #63636 > │ #endif │
00:09:57 verbose #63637 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63638 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63639 > │ let v60 : Async<US3> option = None │
00:09:57 verbose #63640 > │ let mutable _v60 = v60 │
00:09:57 verbose #63641 > │ async { │
00:09:57 verbose #63642 > │ let v61 : Async<Async<bool>> option = None │
00:09:57 verbose #63643 > │ let v62 : bool = true in let mutable _v61 = v61 │
00:09:57 verbose #63644 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63645 > │ let v63 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:57 verbose #63646 > │ v63 │
00:09:57 verbose #63647 > │ #endif │
00:09:57 verbose #63648 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63649 > │ let v64 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:57 verbose #63650 > │ v64 │
00:09:57 verbose #63651 > │ #endif │
00:09:57 verbose #63652 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63653 > │ let v65 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:57 verbose #63654 > │ v65 │
00:09:57 verbose #63655 > │ #endif │
00:09:57 verbose #63656 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63657 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63658 > │ let v66 : Async<Async<bool>> = Async.StartChild (v49, v0) │
00:09:57 verbose #63659 > │ v66 │
00:09:57 verbose #63660 > │ #endif │
00:09:57 verbose #63661 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63662 > │ let v67 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>> │
00:09:57 verbose #63663 > │ v67 │
00:09:57 verbose #63664 > │ #endif │
00:09:57 verbose #63665 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63666 > │ let v68 : Async<Async<bool>> = Unchecked.defaultof<Async<Async<bool>>> │
00:09:57 verbose #63667 > │ v68 │
00:09:57 verbose #63668 > │ #endif │
00:09:57 verbose #63669 > │ |> fun x -> _v61 <- Some x │
00:09:57 verbose #63670 > │ let v69 : Async<Async<bool>> = _v61.Value │
00:09:57 verbose #63671 > │ let! v69 = v69 │
00:09:57 verbose #63672 > │ let v70 : Async<bool> = v69 │
00:09:57 verbose #63673 > │ let v71 : Async<Choice<bool, exn>> option = None │
00:09:57 verbose #63674 > │ let v72 : bool = true in let mutable _v71 = v71 │
00:09:57 verbose #63675 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63676 > │ let v73 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:57 verbose #63677 > │ exn>>> │
00:09:57 verbose #63678 > │ v73 │
00:09:57 verbose #63679 > │ #endif │
00:09:57 verbose #63680 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63681 > │ let v74 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:57 verbose #63682 > │ exn>>> │
00:09:57 verbose #63683 > │ v74 │
00:09:57 verbose #63684 > │ #endif │
00:09:57 verbose #63685 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63686 > │ let v75 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:57 verbose #63687 > │ exn>>> │
00:09:57 verbose #63688 > │ v75 │
00:09:57 verbose #63689 > │ #endif │
00:09:57 verbose #63690 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63691 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63692 > │ let v76 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch │
00:09:57 verbose #63693 > │ let v77 : Async<Choice<bool, exn>> = v76 v70 │
00:09:57 verbose #63694 > │ v77 │
00:09:57 verbose #63695 > │ #endif │
00:09:57 verbose #63696 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63697 > │ let v78 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, │
00:09:57 verbose #63698 > │ exn>>> │
00:09:57 verbose #63699 > │ v78 │
00:09:57 verbose #63700 > │ #endif │
00:09:57 verbose #63701 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63702 > │ let v79 : Async<Choice<bool, exn>> = │
00:09:57 verbose #63703 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:57 verbose #63704 > │ v79 │
00:09:57 verbose #63705 > │ #endif │
00:09:57 verbose #63706 > │ |> fun x -> _v71 <- Some x │
00:09:57 verbose #63707 > │ let v80 : Async<Choice<bool, exn>> = _v71.Value │
00:09:57 verbose #63708 > │ let v81 : Async<US4> option = None │
00:09:57 verbose #63709 > │ let v82 : bool = true in let mutable _v81 = v81 │
00:09:57 verbose #63710 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63711 > │ let v83 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #63712 > │ v83 │
00:09:57 verbose #63713 > │ #endif │
00:09:57 verbose #63714 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63715 > │ let v84 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #63716 > │ v84 │
00:09:57 verbose #63717 > │ #endif │
00:09:57 verbose #63718 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63719 > │ let v85 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #63720 > │ v85 │
00:09:57 verbose #63721 > │ #endif │
00:09:57 verbose #63722 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63723 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63724 > │ let v86 : Async<US4> option = None │
00:09:57 verbose #63725 > │ let mutable _v86 = v86 │
00:09:57 verbose #63726 > │ async { │
00:09:57 verbose #63727 > │ let! v80 = v80 │
00:09:57 verbose #63728 > │ let v87 : Choice<bool, exn> = v80 │
00:09:57 verbose #63729 > │ let v88 : US4 option = None │
00:09:57 verbose #63730 > │ let v89 : bool = true in let mutable _v88 = v88 │
00:09:57 verbose #63731 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63732 > │ let v90 : US4 = null |> unbox<US4> │
00:09:57 verbose #63733 > │ v90 │
00:09:57 verbose #63734 > │ #endif │
00:09:57 verbose #63735 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63736 > │ let v91 : US4 = null |> unbox<US4> │
00:09:57 verbose #63737 > │ v91 │
00:09:57 verbose #63738 > │ #endif │
00:09:57 verbose #63739 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63740 > │ let v92 : US4 = null |> unbox<US4> │
00:09:57 verbose #63741 > │ v92 │
00:09:57 verbose #63742 > │ #endif │
00:09:57 verbose #63743 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63744 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63745 > │ let v93 : (bool -> US4) = closure9() │
00:09:57 verbose #63746 > │ let v94 : (exn -> US4) = closure10() │
00:09:57 verbose #63747 > │ let v95 : US4 = match v87 with Choice1Of2 x -> v93 x | Choice2Of2 x -> │
00:09:57 verbose #63748 > │ v94 x │
00:09:57 verbose #63749 > │ v95 │
00:09:57 verbose #63750 > │ #endif │
00:09:57 verbose #63751 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63752 > │ let v96 : US4 = null |> unbox<US4> │
00:09:57 verbose #63753 > │ v96 │
00:09:57 verbose #63754 > │ #endif │
00:09:57 verbose #63755 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63756 > │ let v97 : US4 = Unchecked.defaultof<US4> │
00:09:57 verbose #63757 > │ v97 │
00:09:57 verbose #63758 > │ #endif │
00:09:57 verbose #63759 > │ |> fun x -> _v88 <- Some x │
00:09:57 verbose #63760 > │ let v98 : US4 = _v88.Value │
00:09:57 verbose #63761 > │ return v98 │
00:09:57 verbose #63762 > │ } │
00:09:57 verbose #63763 > │ |> fun x -> _v86 <- Some x │
00:09:57 verbose #63764 > │ let v99 : Async<US4> = _v86 |> Option.get │
00:09:57 verbose #63765 > │ v99 │
00:09:57 verbose #63766 > │ #endif │
00:09:57 verbose #63767 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63768 > │ let v100 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #63769 > │ v100 │
00:09:57 verbose #63770 > │ #endif │
00:09:57 verbose #63771 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63772 > │ let v101 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:57 verbose #63773 > │ v101 │
00:09:57 verbose #63774 > │ #endif │
00:09:57 verbose #63775 > │ |> fun x -> _v81 <- Some x │
00:09:57 verbose #63776 > │ let v102 : Async<US4> = _v81.Value │
00:09:57 verbose #63777 > │ let v103 : Async<US5> option = None │
00:09:57 verbose #63778 > │ let v104 : bool = true in let mutable _v103 = v103 │
00:09:57 verbose #63779 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63780 > │ let v105 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #63781 > │ v105 │
00:09:57 verbose #63782 > │ #endif │
00:09:57 verbose #63783 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63784 > │ let v106 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #63785 > │ v106 │
00:09:57 verbose #63786 > │ #endif │
00:09:57 verbose #63787 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63788 > │ let v107 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #63789 > │ v107 │
00:09:57 verbose #63790 > │ #endif │
00:09:57 verbose #63791 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63792 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63793 > │ let v108 : Async<US5> option = None │
00:09:57 verbose #63794 > │ let mutable _v108 = v108 │
00:09:57 verbose #63795 > │ async { │
00:09:57 verbose #63796 > │ let! v102 = v102 │
00:09:57 verbose #63797 > │ let v109 : US4 = v102 │
00:09:57 verbose #63798 > │ let v115 : US5 = │
00:09:57 verbose #63799 > │ match v109 with │
00:09:57 verbose #63800 > │ | US4_0(v110) -> (* Choice1Of2 *) │
00:09:57 verbose #63801 > │ US5_0(v110) │
00:09:57 verbose #63802 > │ | US4_1(v112) -> (* Choice2Of2 *) │
00:09:57 verbose #63803 > │ US5_1(v112) │
00:09:57 verbose #63804 > │ return v115 │
00:09:57 verbose #63805 > │ } │
00:09:57 verbose #63806 > │ |> fun x -> _v108 <- Some x │
00:09:57 verbose #63807 > │ let v116 : Async<US5> = _v108 |> Option.get │
00:09:57 verbose #63808 > │ v116 │
00:09:57 verbose #63809 > │ #endif │
00:09:57 verbose #63810 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63811 > │ let v117 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #63812 > │ v117 │
00:09:57 verbose #63813 > │ #endif │
00:09:57 verbose #63814 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63815 > │ let v118 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:57 verbose #63816 > │ v118 │
00:09:57 verbose #63817 > │ #endif │
00:09:57 verbose #63818 > │ |> fun x -> _v103 <- Some x │
00:09:57 verbose #63819 > │ let v119 : Async<US5> = _v103.Value │
00:09:57 verbose #63820 > │ let v120 : Async<US3> option = None │
00:09:57 verbose #63821 > │ let v121 : bool = true in let mutable _v120 = v120 │
00:09:57 verbose #63822 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63823 > │ let v122 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63824 > │ v122 │
00:09:57 verbose #63825 > │ #endif │
00:09:57 verbose #63826 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63827 > │ let v123 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63828 > │ v123 │
00:09:57 verbose #63829 > │ #endif │
00:09:57 verbose #63830 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63831 > │ let v124 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63832 > │ v124 │
00:09:57 verbose #63833 > │ #endif │
00:09:57 verbose #63834 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63835 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63836 > │ let v125 : Async<US3> option = None │
00:09:57 verbose #63837 > │ let mutable _v125 = v125 │
00:09:57 verbose #63838 > │ async { │
00:09:57 verbose #63839 > │ let! v119 = v119 │
00:09:57 verbose #63840 > │ let v126 : US5 = v119 │
00:09:57 verbose #63841 > │ let v152 : US3 = │
00:09:57 verbose #63842 > │ match v126 with │
00:09:57 verbose #63843 > │ | US5_1(v129) -> (* Error *) │
00:09:57 verbose #63844 > │ let v130 : string = $"%A{v129}" │
00:09:57 verbose #63845 > │ let v131 : string = "System.TimeoutException" │
00:09:57 verbose #63846 > │ let v132 : bool = v130.Contains v131 │
00:09:57 verbose #63847 > │ if v132 then │
00:09:57 verbose #63848 > │ let v133 : US0 = US0_1 │
00:09:57 verbose #63849 > │ let v134 : (unit -> string) = closure11() │
00:09:57 verbose #63850 > │ let v135 : (unit -> string) = closure12(v0) │
00:09:57 verbose #63851 > │ method2(v133, v134, v135) │
00:09:57 verbose #63852 > │ US3_1 │
00:09:57 verbose #63853 > │ else │
00:09:57 verbose #63854 > │ let v137 : string option = None │
00:09:57 verbose #63855 > │ let v138 : bool = true in let mutable _v137 = v137 │
00:09:57 verbose #63856 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63857 > │ let v139 : string = $"%A{v129}" │
00:09:57 verbose #63858 > │ v139 │
00:09:57 verbose #63859 > │ #endif │
00:09:57 verbose #63860 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63861 > │ let v140 : string = $"%A{v129}" │
00:09:57 verbose #63862 > │ v140 │
00:09:57 verbose #63863 > │ #endif │
00:09:57 verbose #63864 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63865 > │ let v141 : string = $"%A{v129}" │
00:09:57 verbose #63866 > │ v141 │
00:09:57 verbose #63867 > │ #endif │
00:09:57 verbose #63868 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63869 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63870 > │ let v142 : string = $"{v129.GetType ()}: {v129.Message}" │
00:09:57 verbose #63871 > │ v142 │
00:09:57 verbose #63872 > │ #endif │
00:09:57 verbose #63873 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63874 > │ let v143 : string = $"%A{v129}" │
00:09:57 verbose #63875 > │ v143 │
00:09:57 verbose #63876 > │ #endif │
00:09:57 verbose #63877 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #63878 > │ FABLE_COMPILER_DART │
00:09:57 verbose #63879 > │ let v144 : string = Unchecked.defaultof<string> │
00:09:57 verbose #63880 > │ v144 │
00:09:57 verbose #63881 > │ #endif │
00:09:57 verbose #63882 > │ |> fun x -> _v137 <- Some x │
00:09:57 verbose #63883 > │ let v145 : string = _v137.Value │
00:09:57 verbose #63884 > │ let v146 : US0 = US0_4 │
00:09:57 verbose #63885 > │ let v147 : (unit -> string) = closure13(v145) │
00:09:57 verbose #63886 > │ let v148 : (unit -> string) = closure12(v0) │
00:09:57 verbose #63887 > │ method2(v146, v147, v148) │
00:09:57 verbose #63888 > │ US3_1 │
00:09:57 verbose #63889 > │ | US5_0(v127) -> (* Ok *) │
00:09:57 verbose #63890 > │ US3_0(v127) │
00:09:57 verbose #63891 > │ return v152 │
00:09:57 verbose #63892 > │ } │
00:09:57 verbose #63893 > │ |> fun x -> _v125 <- Some x │
00:09:57 verbose #63894 > │ let v153 : Async<US3> = _v125 |> Option.get │
00:09:57 verbose #63895 > │ v153 │
00:09:57 verbose #63896 > │ #endif │
00:09:57 verbose #63897 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63898 > │ let v154 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63899 > │ v154 │
00:09:57 verbose #63900 > │ #endif │
00:09:57 verbose #63901 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63902 > │ let v155 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #63903 > │ v155 │
00:09:57 verbose #63904 > │ #endif │
00:09:57 verbose #63905 > │ |> fun x -> _v120 <- Some x │
00:09:57 verbose #63906 > │ let v156 : Async<US3> = _v120.Value │
00:09:57 verbose #63907 > │ return! v156 │
00:09:57 verbose #63908 > │ } │
00:09:57 verbose #63909 > │ |> fun x -> _v60 <- Some x │
00:09:57 verbose #63910 > │ let v157 : Async<US3> = _v60 |> Option.get │
00:09:57 verbose #63911 > │ v157 │
00:09:57 verbose #63912 > │ #endif │
00:09:57 verbose #63913 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63914 > │ let v158 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63915 > │ v158 │
00:09:57 verbose #63916 > │ #endif │
00:09:57 verbose #63917 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63918 > │ let v159 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #63919 > │ v159 │
00:09:57 verbose #63920 > │ #endif │
00:09:57 verbose #63921 > │ |> fun x -> _v55 <- Some x │
00:09:57 verbose #63922 > │ let v160 : Async<US3> = _v55.Value │
00:09:57 verbose #63923 > │ v160 │
00:09:57 verbose #63924 > │ #endif │
00:09:57 verbose #63925 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63926 > │ let v161 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #63927 > │ v161 │
00:09:57 verbose #63928 > │ #endif │
00:09:57 verbose #63929 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63930 > │ let v162 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #63931 > │ v162 │
00:09:57 verbose #63932 > │ #endif │
00:09:57 verbose #63933 > │ |> fun x -> _v50 <- Some x │
00:09:57 verbose #63934 > │ let v163 : Async<US3> = _v50.Value │
00:09:57 verbose #63935 > │ let! v163 = v163 │
00:09:57 verbose #63936 > │ let v164 : US3 = v163 │
00:09:57 verbose #63937 > │ let v167 : bool = │
00:09:57 verbose #63938 > │ match v164 with │
00:09:57 verbose #63939 > │ | US3_1 -> (* None *) │
00:09:57 verbose #63940 > │ false │
00:09:57 verbose #63941 > │ | US3_0(v165) -> (* Some *) │
00:09:57 verbose #63942 > │ v165 │
00:09:57 verbose #63943 > │ return v167 │
00:09:57 verbose #63944 > │ } │
00:09:57 verbose #63945 > │ |> fun x -> _v7 <- Some x │
00:09:57 verbose #63946 > │ let v168 : Async<bool> = _v7 |> Option.get │
00:09:57 verbose #63947 > │ v168 │
00:09:57 verbose #63948 > │ #endif │
00:09:57 verbose #63949 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #63950 > │ let v169 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #63951 > │ v169 │
00:09:57 verbose #63952 > │ #endif │
00:09:57 verbose #63953 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #63954 > │ let v170 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #63955 > │ v170 │
00:09:57 verbose #63956 > │ #endif │
00:09:57 verbose #63957 > │ |> fun x -> _v2 <- Some x │
00:09:57 verbose #63958 > │ let v171 : Async<bool> = _v2.Value │
00:09:57 verbose #63959 > │ v171 │
00:09:57 verbose #63960 > │ and closure7 () (v0 : int32) : (int32 -> Async<bool>) = │
00:09:57 verbose #63961 > │ closure8(v0) │
00:09:57 verbose #63962 > │ and closure17 () (v0 : int32) : US6 = │
00:09:57 verbose #63963 > │ US6_0(v0) │
00:09:57 verbose #63964 > │ and method7 () : (int32 -> US6) = │
00:09:57 verbose #63965 > │ closure17() │
00:09:57 verbose #63966 > │ and closure18 () () : string = │
00:09:57 verbose #63967 > │ let v0 : string = "wait_for_port_access" │
00:09:57 verbose #63968 > │ v0 │
00:09:57 verbose #63969 > │ and closure19 (v0 : int32, v1 : int64) () : string = │
00:09:57 verbose #63970 > │ let v2 : (unit -> string) = closure4() │
00:09:57 verbose #63971 > │ let v3 : string = $"port: {v0} / retry: {v1} / {v2 ()}" │
00:09:57 verbose #63972 > │ v3 │
00:09:57 verbose #63973 > │ and method6 (v0 : int32 option, v1 : bool, v2 : int32, v3 : int64) : │
00:09:57 verbose #63974 > │ Async<int64> = │
00:09:57 verbose #63975 > │ let v4 : Async<int64> option = None │
00:09:57 verbose #63976 > │ let v5 : bool = true in let mutable _v4 = v4 │
00:09:57 verbose #63977 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #63978 > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:09:57 verbose #63979 > │ v6 │
00:09:57 verbose #63980 > │ #endif │
00:09:57 verbose #63981 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #63982 > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:09:57 verbose #63983 > │ v7 │
00:09:57 verbose #63984 > │ #endif │
00:09:57 verbose #63985 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #63986 > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:09:57 verbose #63987 > │ v8 │
00:09:57 verbose #63988 > │ #endif │
00:09:57 verbose #63989 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #63990 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #63991 > │ let v9 : Async<int64> option = None │
00:09:57 verbose #63992 > │ let mutable _v9 = v9 │
00:09:57 verbose #63993 > │ async { │
00:09:57 verbose #63994 > │ let v10 : (int32 -> US6) = method7() │
00:09:57 verbose #63995 > │ let v11 : US6 = US6_1 │
00:09:57 verbose #63996 > │ let v12 : US6 = v0 |> Option.map v10 |> Option.defaultValue v11 │
00:09:57 verbose #63997 > │ let v227 : Async<bool> = │
00:09:57 verbose #63998 > │ match v12 with │
00:09:57 verbose #63999 > │ | US6_1 -> (* None *) │
00:09:57 verbose #64000 > │ let v13 : Async<bool> option = None │
00:09:57 verbose #64001 > │ let v14 : bool = true in let mutable _v13 = v13 │
00:09:57 verbose #64002 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64003 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64004 > │ v15 │
00:09:57 verbose #64005 > │ #endif │
00:09:57 verbose #64006 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64007 > │ let v16 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64008 > │ v16 │
00:09:57 verbose #64009 > │ #endif │
00:09:57 verbose #64010 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64011 > │ let v17 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64012 > │ v17 │
00:09:57 verbose #64013 > │ #endif │
00:09:57 verbose #64014 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64015 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64016 > │ let v18 : Async<bool> option = None │
00:09:57 verbose #64017 > │ let mutable _v18 = v18 │
00:09:57 verbose #64018 > │ async { │
00:09:57 verbose #64019 > │ let v19 : Async<System.Threading.CancellationToken> = │
00:09:57 verbose #64020 > │ Async.CancellationToken │
00:09:57 verbose #64021 > │ let! v19 = v19 │
00:09:57 verbose #64022 > │ let v20 : System.Threading.CancellationToken = v19 │
00:09:57 verbose #64023 > │ let v21 : System.Net.Sockets.TcpClient = new │
00:09:57 verbose #64024 > │ System.Net.Sockets.TcpClient () │
00:09:57 verbose #64025 > │ use v21 = v21 │
00:09:57 verbose #64026 > │ let v22 : System.Net.Sockets.TcpClient = v21 │
00:09:57 verbose #64027 > │ try │
00:09:57 verbose #64028 > │ let v23 : string = "127.0.0.1" │
00:09:57 verbose #64029 > │ let v24 : System.Threading.Tasks.ValueTask = v22.ConnectAsync │
00:09:57 verbose #64030 > │ (v23, v2, v20) │
00:09:57 verbose #64031 > │ let v25 : (unit -> System.Threading.Tasks.Task) = v24.AsTask │
00:09:57 verbose #64032 > │ let v26 : System.Threading.Tasks.Task = v25 () │
00:09:57 verbose #64033 > │ let v27 : Async<unit> option = None │
00:09:57 verbose #64034 > │ let v28 : bool = true in let mutable _v27 = v27 │
00:09:57 verbose #64035 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64036 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64037 > │ v29 │
00:09:57 verbose #64038 > │ #endif │
00:09:57 verbose #64039 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64040 > │ let v30 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64041 > │ v30 │
00:09:57 verbose #64042 > │ #endif │
00:09:57 verbose #64043 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64044 > │ let v31 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64045 > │ v31 │
00:09:57 verbose #64046 > │ #endif │
00:09:57 verbose #64047 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64048 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64049 > │ let v32 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:57 verbose #64050 > │ Async.AwaitTask │
00:09:57 verbose #64051 > │ let v33 : Async<unit> = v32 v26 │
00:09:57 verbose #64052 > │ v33 │
00:09:57 verbose #64053 > │ #endif │
00:09:57 verbose #64054 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64055 > │ let v34 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64056 > │ v34 │
00:09:57 verbose #64057 > │ #endif │
00:09:57 verbose #64058 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64059 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64060 > │ let v35 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #64061 > │ v35 │
00:09:57 verbose #64062 > │ #endif │
00:09:57 verbose #64063 > │ |> fun x -> _v27 <- Some x │
00:09:57 verbose #64064 > │ let v36 : Async<unit> = _v27.Value │
00:09:57 verbose #64065 > │ do! v36 │
00:09:57 verbose #64066 > │ return true │
00:09:57 verbose #64067 > │ with ex -> │
00:09:57 verbose #64068 > │ let v37 : exn = ex │
00:09:57 verbose #64069 > │ let v38 : string option = None │
00:09:57 verbose #64070 > │ let v39 : bool = true in let mutable _v38 = v38 │
00:09:57 verbose #64071 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64072 > │ let v40 : string = $"%A{v37}" │
00:09:57 verbose #64073 > │ v40 │
00:09:57 verbose #64074 > │ #endif │
00:09:57 verbose #64075 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64076 > │ let v41 : string = $"%A{v37}" │
00:09:57 verbose #64077 > │ v41 │
00:09:57 verbose #64078 > │ #endif │
00:09:57 verbose #64079 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64080 > │ let v42 : string = $"%A{v37}" │
00:09:57 verbose #64081 > │ v42 │
00:09:57 verbose #64082 > │ #endif │
00:09:57 verbose #64083 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64084 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64085 > │ let v43 : string = $"{v37.GetType ()}: {v37.Message}" │
00:09:57 verbose #64086 > │ v43 │
00:09:57 verbose #64087 > │ #endif │
00:09:57 verbose #64088 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64089 > │ let v44 : string = $"%A{v37}" │
00:09:57 verbose #64090 > │ v44 │
00:09:57 verbose #64091 > │ #endif │
00:09:57 verbose #64092 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64093 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64094 > │ let v45 : string = Unchecked.defaultof<string> │
00:09:57 verbose #64095 > │ v45 │
00:09:57 verbose #64096 > │ #endif │
00:09:57 verbose #64097 > │ |> fun x -> _v38 <- Some x │
00:09:57 verbose #64098 > │ let v46 : string = _v38.Value │
00:09:57 verbose #64099 > │ let v47 : US0 = US0_0 │
00:09:57 verbose #64100 > │ let v48 : (unit -> string) = closure3(v46) │
00:09:57 verbose #64101 > │ let v49 : (unit -> string) = closure4() │
00:09:57 verbose #64102 > │ method2(v47, v48, v49) │
00:09:57 verbose #64103 > │ return false │
00:09:57 verbose #64104 > │ (* │
00:09:57 verbose #64105 > │ let v50 : bool = *) │
00:09:57 verbose #64106 > │ } │
00:09:57 verbose #64107 > │ |> fun x -> _v18 <- Some x │
00:09:57 verbose #64108 > │ let v51 : Async<bool> = _v18 |> Option.get │
00:09:57 verbose #64109 > │ v51 │
00:09:57 verbose #64110 > │ #endif │
00:09:57 verbose #64111 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64112 > │ let v52 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64113 > │ v52 │
00:09:57 verbose #64114 > │ #endif │
00:09:57 verbose #64115 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64116 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64117 > │ let v53 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #64118 > │ v53 │
00:09:57 verbose #64119 > │ #endif │
00:09:57 verbose #64120 > │ |> fun x -> _v13 <- Some x │
00:09:57 verbose #64121 > │ let v54 : Async<bool> = _v13.Value │
00:09:57 verbose #64122 > │ v54 │
00:09:57 verbose #64123 > │ | US6_0(v55) -> (* Some *) │
00:09:57 verbose #64124 > │ let v56 : Async<bool> option = None │
00:09:57 verbose #64125 > │ let v57 : bool = true in let mutable _v56 = v56 │
00:09:57 verbose #64126 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64127 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64128 > │ v58 │
00:09:57 verbose #64129 > │ #endif │
00:09:57 verbose #64130 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64131 > │ let v59 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64132 > │ v59 │
00:09:57 verbose #64133 > │ #endif │
00:09:57 verbose #64134 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64135 > │ let v60 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64136 > │ v60 │
00:09:57 verbose #64137 > │ #endif │
00:09:57 verbose #64138 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64139 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64140 > │ let v61 : Async<bool> option = None │
00:09:57 verbose #64141 > │ let mutable _v61 = v61 │
00:09:57 verbose #64142 > │ async { │
00:09:57 verbose #64143 > │ let v62 : Async<bool> option = None │
00:09:57 verbose #64144 > │ let v63 : bool = true in let mutable _v62 = v62 │
00:09:57 verbose #64145 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64146 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64147 > │ v64 │
00:09:57 verbose #64148 > │ #endif │
00:09:57 verbose #64149 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64150 > │ let v65 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64151 > │ v65 │
00:09:57 verbose #64152 > │ #endif │
00:09:57 verbose #64153 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64154 > │ let v66 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64155 > │ v66 │
00:09:57 verbose #64156 > │ #endif │
00:09:57 verbose #64157 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64158 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64159 > │ let v67 : Async<bool> option = None │
00:09:57 verbose #64160 > │ let mutable _v67 = v67 │
00:09:57 verbose #64161 > │ async { │
00:09:57 verbose #64162 > │ let v68 : Async<System.Threading.CancellationToken> = │
00:09:57 verbose #64163 > │ Async.CancellationToken │
00:09:57 verbose #64164 > │ let! v68 = v68 │
00:09:57 verbose #64165 > │ let v69 : System.Threading.CancellationToken = v68 │
00:09:57 verbose #64166 > │ let v70 : System.Net.Sockets.TcpClient = new │
00:09:57 verbose #64167 > │ System.Net.Sockets.TcpClient () │
00:09:57 verbose #64168 > │ use v70 = v70 │
00:09:57 verbose #64169 > │ let v71 : System.Net.Sockets.TcpClient = v70 │
00:09:57 verbose #64170 > │ try │
00:09:57 verbose #64171 > │ let v72 : string = "127.0.0.1" │
00:09:57 verbose #64172 > │ let v73 : System.Threading.Tasks.ValueTask = v71.ConnectAsync │
00:09:57 verbose #64173 > │ (v72, v2, v69) │
00:09:57 verbose #64174 > │ let v74 : (unit -> System.Threading.Tasks.Task) = v73.AsTask │
00:09:57 verbose #64175 > │ let v75 : System.Threading.Tasks.Task = v74 () │
00:09:57 verbose #64176 > │ let v76 : Async<unit> option = None │
00:09:57 verbose #64177 > │ let v77 : bool = true in let mutable _v76 = v76 │
00:09:57 verbose #64178 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64179 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64180 > │ v78 │
00:09:57 verbose #64181 > │ #endif │
00:09:57 verbose #64182 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64183 > │ let v79 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64184 > │ v79 │
00:09:57 verbose #64185 > │ #endif │
00:09:57 verbose #64186 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64187 > │ let v80 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64188 > │ v80 │
00:09:57 verbose #64189 > │ #endif │
00:09:57 verbose #64190 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64191 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64192 > │ let v81 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:57 verbose #64193 > │ Async.AwaitTask │
00:09:57 verbose #64194 > │ let v82 : Async<unit> = v81 v75 │
00:09:57 verbose #64195 > │ v82 │
00:09:57 verbose #64196 > │ #endif │
00:09:57 verbose #64197 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64198 > │ let v83 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64199 > │ v83 │
00:09:57 verbose #64200 > │ #endif │
00:09:57 verbose #64201 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64202 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64203 > │ let v84 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #64204 > │ v84 │
00:09:57 verbose #64205 > │ #endif │
00:09:57 verbose #64206 > │ |> fun x -> _v76 <- Some x │
00:09:57 verbose #64207 > │ let v85 : Async<unit> = _v76.Value │
00:09:57 verbose #64208 > │ do! v85 │
00:09:57 verbose #64209 > │ return true │
00:09:57 verbose #64210 > │ with ex -> │
00:09:57 verbose #64211 > │ let v86 : exn = ex │
00:09:57 verbose #64212 > │ let v87 : string option = None │
00:09:57 verbose #64213 > │ let v88 : bool = true in let mutable _v87 = v87 │
00:09:57 verbose #64214 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64215 > │ let v89 : string = $"%A{v86}" │
00:09:57 verbose #64216 > │ v89 │
00:09:57 verbose #64217 > │ #endif │
00:09:57 verbose #64218 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64219 > │ let v90 : string = $"%A{v86}" │
00:09:57 verbose #64220 > │ v90 │
00:09:57 verbose #64221 > │ #endif │
00:09:57 verbose #64222 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64223 > │ let v91 : string = $"%A{v86}" │
00:09:57 verbose #64224 > │ v91 │
00:09:57 verbose #64225 > │ #endif │
00:09:57 verbose #64226 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64227 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64228 > │ let v92 : string = $"{v86.GetType ()}: {v86.Message}" │
00:09:57 verbose #64229 > │ v92 │
00:09:57 verbose #64230 > │ #endif │
00:09:57 verbose #64231 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64232 > │ let v93 : string = $"%A{v86}" │
00:09:57 verbose #64233 > │ v93 │
00:09:57 verbose #64234 > │ #endif │
00:09:57 verbose #64235 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64236 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64237 > │ let v94 : string = Unchecked.defaultof<string> │
00:09:57 verbose #64238 > │ v94 │
00:09:57 verbose #64239 > │ #endif │
00:09:57 verbose #64240 > │ |> fun x -> _v87 <- Some x │
00:09:57 verbose #64241 > │ let v95 : string = _v87.Value │
00:09:57 verbose #64242 > │ let v96 : US0 = US0_0 │
00:09:57 verbose #64243 > │ let v97 : (unit -> string) = closure3(v95) │
00:09:57 verbose #64244 > │ let v98 : (unit -> string) = closure4() │
00:09:57 verbose #64245 > │ method2(v96, v97, v98) │
00:09:57 verbose #64246 > │ return false │
00:09:57 verbose #64247 > │ (* │
00:09:57 verbose #64248 > │ let v99 : bool = *) │
00:09:57 verbose #64249 > │ } │
00:09:57 verbose #64250 > │ |> fun x -> _v67 <- Some x │
00:09:57 verbose #64251 > │ let v100 : Async<bool> = _v67 |> Option.get │
00:09:57 verbose #64252 > │ v100 │
00:09:57 verbose #64253 > │ #endif │
00:09:57 verbose #64254 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64255 > │ let v101 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64256 > │ v101 │
00:09:57 verbose #64257 > │ #endif │
00:09:57 verbose #64258 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64259 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64260 > │ let v102 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #64261 > │ v102 │
00:09:57 verbose #64262 > │ #endif │
00:09:57 verbose #64263 > │ |> fun x -> _v62 <- Some x │
00:09:57 verbose #64264 > │ let v103 : Async<bool> = _v62.Value │
00:09:57 verbose #64265 > │ let v104 : Async<US3> option = None │
00:09:57 verbose #64266 > │ let v105 : bool = true in let mutable _v104 = v104 │
00:09:57 verbose #64267 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64268 > │ let v106 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64269 > │ v106 │
00:09:57 verbose #64270 > │ #endif │
00:09:57 verbose #64271 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64272 > │ let v107 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64273 > │ v107 │
00:09:57 verbose #64274 > │ #endif │
00:09:57 verbose #64275 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64276 > │ let v108 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64277 > │ v108 │
00:09:57 verbose #64278 > │ #endif │
00:09:57 verbose #64279 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64280 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64281 > │ let v109 : Async<US3> option = None │
00:09:57 verbose #64282 > │ let v110 : bool = true in let mutable _v109 = v109 │
00:09:57 verbose #64283 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64284 > │ let v111 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64285 > │ v111 │
00:09:57 verbose #64286 > │ #endif │
00:09:57 verbose #64287 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64288 > │ let v112 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64289 > │ v112 │
00:09:57 verbose #64290 > │ #endif │
00:09:57 verbose #64291 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64292 > │ let v113 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64293 > │ v113 │
00:09:57 verbose #64294 > │ #endif │
00:09:57 verbose #64295 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64296 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64297 > │ let v114 : Async<US3> option = None │
00:09:57 verbose #64298 > │ let mutable _v114 = v114 │
00:09:57 verbose #64299 > │ async { │
00:09:57 verbose #64300 > │ let v115 : Async<Async<bool>> option = None │
00:09:57 verbose #64301 > │ let v116 : bool = true in let mutable _v115 = v115 │
00:09:57 verbose #64302 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64303 > │ let v117 : Async<Async<bool>> = null |> │
00:09:57 verbose #64304 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #64305 > │ v117 │
00:09:57 verbose #64306 > │ #endif │
00:09:57 verbose #64307 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64308 > │ let v118 : Async<Async<bool>> = null |> │
00:09:57 verbose #64309 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #64310 > │ v118 │
00:09:57 verbose #64311 > │ #endif │
00:09:57 verbose #64312 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64313 > │ let v119 : Async<Async<bool>> = null |> │
00:09:57 verbose #64314 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #64315 > │ v119 │
00:09:57 verbose #64316 > │ #endif │
00:09:57 verbose #64317 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64318 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64319 > │ let v120 : Async<Async<bool>> = Async.StartChild (v103, v55) │
00:09:57 verbose #64320 > │ v120 │
00:09:57 verbose #64321 > │ #endif │
00:09:57 verbose #64322 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64323 > │ let v121 : Async<Async<bool>> = null |> │
00:09:57 verbose #64324 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #64325 > │ v121 │
00:09:57 verbose #64326 > │ #endif │
00:09:57 verbose #64327 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64328 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64329 > │ let v122 : Async<Async<bool>> = │
00:09:57 verbose #64330 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:57 verbose #64331 > │ v122 │
00:09:57 verbose #64332 > │ #endif │
00:09:57 verbose #64333 > │ |> fun x -> _v115 <- Some x │
00:09:57 verbose #64334 > │ let v123 : Async<Async<bool>> = _v115.Value │
00:09:57 verbose #64335 > │ let! v123 = v123 │
00:09:57 verbose #64336 > │ let v124 : Async<bool> = v123 │
00:09:57 verbose #64337 > │ let v125 : Async<Choice<bool, exn>> option = None │
00:09:57 verbose #64338 > │ let v126 : bool = true in let mutable _v125 = v125 │
00:09:57 verbose #64339 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64340 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #64341 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #64342 > │ v127 │
00:09:57 verbose #64343 > │ #endif │
00:09:57 verbose #64344 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64345 > │ let v128 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #64346 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #64347 > │ v128 │
00:09:57 verbose #64348 > │ #endif │
00:09:57 verbose #64349 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64350 > │ let v129 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #64351 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #64352 > │ v129 │
00:09:57 verbose #64353 > │ #endif │
00:09:57 verbose #64354 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64355 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64356 > │ let v130 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:57 verbose #64357 > │ Async.Catch │
00:09:57 verbose #64358 > │ let v131 : Async<Choice<bool, exn>> = v130 v124 │
00:09:57 verbose #64359 > │ v131 │
00:09:57 verbose #64360 > │ #endif │
00:09:57 verbose #64361 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64362 > │ let v132 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #64363 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #64364 > │ v132 │
00:09:57 verbose #64365 > │ #endif │
00:09:57 verbose #64366 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64367 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64368 > │ let v133 : Async<Choice<bool, exn>> = │
00:09:57 verbose #64369 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:57 verbose #64370 > │ v133 │
00:09:57 verbose #64371 > │ #endif │
00:09:57 verbose #64372 > │ |> fun x -> _v125 <- Some x │
00:09:57 verbose #64373 > │ let v134 : Async<Choice<bool, exn>> = _v125.Value │
00:09:57 verbose #64374 > │ let v135 : Async<US4> option = None │
00:09:57 verbose #64375 > │ let v136 : bool = true in let mutable _v135 = v135 │
00:09:57 verbose #64376 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64377 > │ let v137 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #64378 > │ v137 │
00:09:57 verbose #64379 > │ #endif │
00:09:57 verbose #64380 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64381 > │ let v138 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #64382 > │ v138 │
00:09:57 verbose #64383 > │ #endif │
00:09:57 verbose #64384 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64385 > │ let v139 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #64386 > │ v139 │
00:09:57 verbose #64387 > │ #endif │
00:09:57 verbose #64388 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64389 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64390 > │ let v140 : Async<US4> option = None │
00:09:57 verbose #64391 > │ let mutable _v140 = v140 │
00:09:57 verbose #64392 > │ async { │
00:09:57 verbose #64393 > │ let! v134 = v134 │
00:09:57 verbose #64394 > │ let v141 : Choice<bool, exn> = v134 │
00:09:57 verbose #64395 > │ let v142 : US4 option = None │
00:09:57 verbose #64396 > │ let v143 : bool = true in let mutable _v142 = v142 │
00:09:57 verbose #64397 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64398 > │ let v144 : US4 = null |> unbox<US4> │
00:09:57 verbose #64399 > │ v144 │
00:09:57 verbose #64400 > │ #endif │
00:09:57 verbose #64401 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64402 > │ let v145 : US4 = null |> unbox<US4> │
00:09:57 verbose #64403 > │ v145 │
00:09:57 verbose #64404 > │ #endif │
00:09:57 verbose #64405 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64406 > │ let v146 : US4 = null |> unbox<US4> │
00:09:57 verbose #64407 > │ v146 │
00:09:57 verbose #64408 > │ #endif │
00:09:57 verbose #64409 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64410 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64411 > │ let v147 : (bool -> US4) = closure9() │
00:09:57 verbose #64412 > │ let v148 : (exn -> US4) = closure10() │
00:09:57 verbose #64413 > │ let v149 : US4 = match v141 with Choice1Of2 x -> v147 x | │
00:09:57 verbose #64414 > │ Choice2Of2 x -> v148 x │
00:09:57 verbose #64415 > │ v149 │
00:09:57 verbose #64416 > │ #endif │
00:09:57 verbose #64417 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64418 > │ let v150 : US4 = null |> unbox<US4> │
00:09:57 verbose #64419 > │ v150 │
00:09:57 verbose #64420 > │ #endif │
00:09:57 verbose #64421 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64422 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64423 > │ let v151 : US4 = Unchecked.defaultof<US4> │
00:09:57 verbose #64424 > │ v151 │
00:09:57 verbose #64425 > │ #endif │
00:09:57 verbose #64426 > │ |> fun x -> _v142 <- Some x │
00:09:57 verbose #64427 > │ let v152 : US4 = _v142.Value │
00:09:57 verbose #64428 > │ return v152 │
00:09:57 verbose #64429 > │ } │
00:09:57 verbose #64430 > │ |> fun x -> _v140 <- Some x │
00:09:57 verbose #64431 > │ let v153 : Async<US4> = _v140 |> Option.get │
00:09:57 verbose #64432 > │ v153 │
00:09:57 verbose #64433 > │ #endif │
00:09:57 verbose #64434 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64435 > │ let v154 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #64436 > │ v154 │
00:09:57 verbose #64437 > │ #endif │
00:09:57 verbose #64438 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64439 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64440 > │ let v155 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:57 verbose #64441 > │ v155 │
00:09:57 verbose #64442 > │ #endif │
00:09:57 verbose #64443 > │ |> fun x -> _v135 <- Some x │
00:09:57 verbose #64444 > │ let v156 : Async<US4> = _v135.Value │
00:09:57 verbose #64445 > │ let v157 : Async<US5> option = None │
00:09:57 verbose #64446 > │ let v158 : bool = true in let mutable _v157 = v157 │
00:09:57 verbose #64447 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64448 > │ let v159 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #64449 > │ v159 │
00:09:57 verbose #64450 > │ #endif │
00:09:57 verbose #64451 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64452 > │ let v160 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #64453 > │ v160 │
00:09:57 verbose #64454 > │ #endif │
00:09:57 verbose #64455 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64456 > │ let v161 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #64457 > │ v161 │
00:09:57 verbose #64458 > │ #endif │
00:09:57 verbose #64459 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64460 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64461 > │ let v162 : Async<US5> option = None │
00:09:57 verbose #64462 > │ let mutable _v162 = v162 │
00:09:57 verbose #64463 > │ async { │
00:09:57 verbose #64464 > │ let! v156 = v156 │
00:09:57 verbose #64465 > │ let v163 : US4 = v156 │
00:09:57 verbose #64466 > │ let v169 : US5 = │
00:09:57 verbose #64467 > │ match v163 with │
00:09:57 verbose #64468 > │ | US4_0(v164) -> (* Choice1Of2 *) │
00:09:57 verbose #64469 > │ US5_0(v164) │
00:09:57 verbose #64470 > │ | US4_1(v166) -> (* Choice2Of2 *) │
00:09:57 verbose #64471 > │ US5_1(v166) │
00:09:57 verbose #64472 > │ return v169 │
00:09:57 verbose #64473 > │ } │
00:09:57 verbose #64474 > │ |> fun x -> _v162 <- Some x │
00:09:57 verbose #64475 > │ let v170 : Async<US5> = _v162 |> Option.get │
00:09:57 verbose #64476 > │ v170 │
00:09:57 verbose #64477 > │ #endif │
00:09:57 verbose #64478 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64479 > │ let v171 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #64480 > │ v171 │
00:09:57 verbose #64481 > │ #endif │
00:09:57 verbose #64482 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64483 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64484 > │ let v172 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:57 verbose #64485 > │ v172 │
00:09:57 verbose #64486 > │ #endif │
00:09:57 verbose #64487 > │ |> fun x -> _v157 <- Some x │
00:09:57 verbose #64488 > │ let v173 : Async<US5> = _v157.Value │
00:09:57 verbose #64489 > │ let v174 : Async<US3> option = None │
00:09:57 verbose #64490 > │ let v175 : bool = true in let mutable _v174 = v174 │
00:09:57 verbose #64491 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64492 > │ let v176 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64493 > │ v176 │
00:09:57 verbose #64494 > │ #endif │
00:09:57 verbose #64495 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64496 > │ let v177 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64497 > │ v177 │
00:09:57 verbose #64498 > │ #endif │
00:09:57 verbose #64499 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64500 > │ let v178 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64501 > │ v178 │
00:09:57 verbose #64502 > │ #endif │
00:09:57 verbose #64503 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64504 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64505 > │ let v179 : Async<US3> option = None │
00:09:57 verbose #64506 > │ let mutable _v179 = v179 │
00:09:57 verbose #64507 > │ async { │
00:09:57 verbose #64508 > │ let! v173 = v173 │
00:09:57 verbose #64509 > │ let v180 : US5 = v173 │
00:09:57 verbose #64510 > │ let v206 : US3 = │
00:09:57 verbose #64511 > │ match v180 with │
00:09:57 verbose #64512 > │ | US5_1(v183) -> (* Error *) │
00:09:57 verbose #64513 > │ let v184 : string = $"%A{v183}" │
00:09:57 verbose #64514 > │ let v185 : string = "System.TimeoutException" │
00:09:57 verbose #64515 > │ let v186 : bool = v184.Contains v185 │
00:09:57 verbose #64516 > │ if v186 then │
00:09:57 verbose #64517 > │ let v187 : US0 = US0_1 │
00:09:57 verbose #64518 > │ let v188 : (unit -> string) = closure11() │
00:09:57 verbose #64519 > │ let v189 : (unit -> string) = closure12(v55) │
00:09:57 verbose #64520 > │ method2(v187, v188, v189) │
00:09:57 verbose #64521 > │ US3_1 │
00:09:57 verbose #64522 > │ else │
00:09:57 verbose #64523 > │ let v191 : string option = None │
00:09:57 verbose #64524 > │ let v192 : bool = true in let mutable _v191 = v191 │
00:09:57 verbose #64525 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64526 > │ let v193 : string = $"%A{v183}" │
00:09:57 verbose #64527 > │ v193 │
00:09:57 verbose #64528 > │ #endif │
00:09:57 verbose #64529 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64530 > │ let v194 : string = $"%A{v183}" │
00:09:57 verbose #64531 > │ v194 │
00:09:57 verbose #64532 > │ #endif │
00:09:57 verbose #64533 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64534 > │ let v195 : string = $"%A{v183}" │
00:09:57 verbose #64535 > │ v195 │
00:09:57 verbose #64536 > │ #endif │
00:09:57 verbose #64537 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64538 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64539 > │ let v196 : string = $"{v183.GetType ()}: │
00:09:57 verbose #64540 > │ {v183.Message}" │
00:09:57 verbose #64541 > │ v196 │
00:09:57 verbose #64542 > │ #endif │
00:09:57 verbose #64543 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64544 > │ let v197 : string = $"%A{v183}" │
00:09:57 verbose #64545 > │ v197 │
00:09:57 verbose #64546 > │ #endif │
00:09:57 verbose #64547 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64548 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64549 > │ let v198 : string = Unchecked.defaultof<string> │
00:09:57 verbose #64550 > │ v198 │
00:09:57 verbose #64551 > │ #endif │
00:09:57 verbose #64552 > │ |> fun x -> _v191 <- Some x │
00:09:57 verbose #64553 > │ let v199 : string = _v191.Value │
00:09:57 verbose #64554 > │ let v200 : US0 = US0_4 │
00:09:57 verbose #64555 > │ let v201 : (unit -> string) = closure13(v199) │
00:09:57 verbose #64556 > │ let v202 : (unit -> string) = closure12(v55) │
00:09:57 verbose #64557 > │ method2(v200, v201, v202) │
00:09:57 verbose #64558 > │ US3_1 │
00:09:57 verbose #64559 > │ | US5_0(v181) -> (* Ok *) │
00:09:57 verbose #64560 > │ US3_0(v181) │
00:09:57 verbose #64561 > │ return v206 │
00:09:57 verbose #64562 > │ } │
00:09:57 verbose #64563 > │ |> fun x -> _v179 <- Some x │
00:09:57 verbose #64564 > │ let v207 : Async<US3> = _v179 |> Option.get │
00:09:57 verbose #64565 > │ v207 │
00:09:57 verbose #64566 > │ #endif │
00:09:57 verbose #64567 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64568 > │ let v208 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64569 > │ v208 │
00:09:57 verbose #64570 > │ #endif │
00:09:57 verbose #64571 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64572 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64573 > │ let v209 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #64574 > │ v209 │
00:09:57 verbose #64575 > │ #endif │
00:09:57 verbose #64576 > │ |> fun x -> _v174 <- Some x │
00:09:57 verbose #64577 > │ let v210 : Async<US3> = _v174.Value │
00:09:57 verbose #64578 > │ return! v210 │
00:09:57 verbose #64579 > │ } │
00:09:57 verbose #64580 > │ |> fun x -> _v114 <- Some x │
00:09:57 verbose #64581 > │ let v211 : Async<US3> = _v114 |> Option.get │
00:09:57 verbose #64582 > │ v211 │
00:09:57 verbose #64583 > │ #endif │
00:09:57 verbose #64584 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64585 > │ let v212 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64586 > │ v212 │
00:09:57 verbose #64587 > │ #endif │
00:09:57 verbose #64588 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64589 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64590 > │ let v213 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #64591 > │ v213 │
00:09:57 verbose #64592 > │ #endif │
00:09:57 verbose #64593 > │ |> fun x -> _v109 <- Some x │
00:09:57 verbose #64594 > │ let v214 : Async<US3> = _v109.Value │
00:09:57 verbose #64595 > │ v214 │
00:09:57 verbose #64596 > │ #endif │
00:09:57 verbose #64597 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64598 > │ let v215 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #64599 > │ v215 │
00:09:57 verbose #64600 > │ #endif │
00:09:57 verbose #64601 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64602 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64603 > │ let v216 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #64604 > │ v216 │
00:09:57 verbose #64605 > │ #endif │
00:09:57 verbose #64606 > │ |> fun x -> _v104 <- Some x │
00:09:57 verbose #64607 > │ let v217 : Async<US3> = _v104.Value │
00:09:57 verbose #64608 > │ let! v217 = v217 │
00:09:57 verbose #64609 > │ let v218 : US3 = v217 │
00:09:57 verbose #64610 > │ let v221 : bool = │
00:09:57 verbose #64611 > │ match v218 with │
00:09:57 verbose #64612 > │ | US3_1 -> (* None *) │
00:09:57 verbose #64613 > │ false │
00:09:57 verbose #64614 > │ | US3_0(v219) -> (* Some *) │
00:09:57 verbose #64615 > │ v219 │
00:09:57 verbose #64616 > │ return v221 │
00:09:57 verbose #64617 > │ } │
00:09:57 verbose #64618 > │ |> fun x -> _v61 <- Some x │
00:09:57 verbose #64619 > │ let v222 : Async<bool> = _v61 |> Option.get │
00:09:57 verbose #64620 > │ v222 │
00:09:57 verbose #64621 > │ #endif │
00:09:57 verbose #64622 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64623 > │ let v223 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64624 > │ v223 │
00:09:57 verbose #64625 > │ #endif │
00:09:57 verbose #64626 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64627 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64628 > │ let v224 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #64629 > │ v224 │
00:09:57 verbose #64630 > │ #endif │
00:09:57 verbose #64631 > │ |> fun x -> _v56 <- Some x │
00:09:57 verbose #64632 > │ let v225 : Async<bool> = _v56.Value │
00:09:57 verbose #64633 > │ v225 │
00:09:57 verbose #64634 > │ let! v227 = v227 │
00:09:57 verbose #64635 > │ let v228 : bool = v227 │
00:09:57 verbose #64636 > │ let v229 : bool = v228 = v1 │
00:09:57 verbose #64637 > │ if v229 then │
00:09:57 verbose #64638 > │ return v3 │
00:09:57 verbose #64639 > │ (* │
00:09:57 verbose #64640 > │ () │
00:09:57 verbose #64641 > │ else │
00:09:57 verbose #64642 > │ *) else │
00:09:57 verbose #64643 > │ let v230 : int64 = v3 % 100L │
00:09:57 verbose #64644 > │ let v231 : bool = v230 = 0L │
00:09:57 verbose #64645 > │ if v231 then │
00:09:57 verbose #64646 > │ let v232 : US0 = US0_0 │
00:09:57 verbose #64647 > │ let v233 : (unit -> string) = closure18() │
00:09:57 verbose #64648 > │ let v234 : (unit -> string) = closure19(v2, v3) │
00:09:57 verbose #64649 > │ method2(v232, v233, v234) │
00:09:57 verbose #64650 > │ let v235 : Async<unit> option = None │
00:09:57 verbose #64651 > │ let v236 : bool = true in let mutable _v235 = v235 │
00:09:57 verbose #64652 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64653 > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64654 > │ v237 │
00:09:57 verbose #64655 > │ #endif │
00:09:57 verbose #64656 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64657 > │ let v238 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64658 > │ v238 │
00:09:57 verbose #64659 > │ #endif │
00:09:57 verbose #64660 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64661 > │ let v239 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64662 > │ v239 │
00:09:57 verbose #64663 > │ #endif │
00:09:57 verbose #64664 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64665 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64666 > │ let v240 : (int32 -> Async<unit>) = Async.Sleep │
00:09:57 verbose #64667 > │ let v241 : Async<unit> = v240 10 │
00:09:57 verbose #64668 > │ v241 │
00:09:57 verbose #64669 > │ #endif │
00:09:57 verbose #64670 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64671 > │ let v242 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64672 > │ v242 │
00:09:57 verbose #64673 > │ #endif │
00:09:57 verbose #64674 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64675 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64676 > │ let v243 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #64677 > │ v243 │
00:09:57 verbose #64678 > │ #endif │
00:09:57 verbose #64679 > │ |> fun x -> _v235 <- Some x │
00:09:57 verbose #64680 > │ let v244 : Async<unit> = _v235.Value │
00:09:57 verbose #64681 > │ do! v244 │
00:09:57 verbose #64682 > │ let v245 : int64 = v3 + 1L │
00:09:57 verbose #64683 > │ let v246 : Async<int64> = method6(v0, v1, v2, v245) │
00:09:57 verbose #64684 > │ return! v246 │
00:09:57 verbose #64685 > │ (* │
00:09:57 verbose #64686 > │ () │
00:09:57 verbose #64687 > │ *) │
00:09:57 verbose #64688 > │ } │
00:09:57 verbose #64689 > │ |> fun x -> _v9 <- Some x │
00:09:57 verbose #64690 > │ let v247 : Async<int64> = _v9 |> Option.get │
00:09:57 verbose #64691 > │ v247 │
00:09:57 verbose #64692 > │ #endif │
00:09:57 verbose #64693 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64694 > │ let v248 : Async<int64> = null |> unbox<Async<int64>> │
00:09:57 verbose #64695 > │ v248 │
00:09:57 verbose #64696 > │ #endif │
00:09:57 verbose #64697 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #64698 > │ let v249 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:09:57 verbose #64699 > │ v249 │
00:09:57 verbose #64700 > │ #endif │
00:09:57 verbose #64701 > │ |> fun x -> _v4 <- Some x │
00:09:57 verbose #64702 > │ let v250 : Async<int64> = _v4.Value │
00:09:57 verbose #64703 > │ v250 │
00:09:57 verbose #64704 > │ and closure16 (v0 : int32 option, v1 : bool) (v2 : int32) : Async<int64> = │
00:09:57 verbose #64705 > │ let v3 : int64 = 0L │
00:09:57 verbose #64706 > │ method6(v0, v1, v2, v3) │
00:09:57 verbose #64707 > │ and closure15 (v0 : int32 option) (v1 : bool) : (int32 -> Async<int64>) = │
00:09:57 verbose #64708 > │ closure16(v0, v1) │
00:09:57 verbose #64709 > │ and closure14 () (v0 : int32 option) : (bool -> (int32 -> Async<int64>)) = │
00:09:57 verbose #64710 > │ closure15(v0) │
00:09:57 verbose #64711 > │ and method8 (v0 : int32 option, v1 : int32) : Async<int32> = │
00:09:57 verbose #64712 > │ let v2 : Async<int32> option = None │
00:09:57 verbose #64713 > │ let v3 : bool = true in let mutable _v2 = v2 │
00:09:57 verbose #64714 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64715 > │ let v4 : Async<int32> = null |> unbox<Async<int32>> │
00:09:57 verbose #64716 > │ v4 │
00:09:57 verbose #64717 > │ #endif │
00:09:57 verbose #64718 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64719 > │ let v5 : Async<int32> = null |> unbox<Async<int32>> │
00:09:57 verbose #64720 > │ v5 │
00:09:57 verbose #64721 > │ #endif │
00:09:57 verbose #64722 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64723 > │ let v6 : Async<int32> = null |> unbox<Async<int32>> │
00:09:57 verbose #64724 > │ v6 │
00:09:57 verbose #64725 > │ #endif │
00:09:57 verbose #64726 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64727 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64728 > │ let v7 : Async<int32> option = None │
00:09:57 verbose #64729 > │ let mutable _v7 = v7 │
00:09:57 verbose #64730 > │ async { │
00:09:57 verbose #64731 > │ let v8 : (int32 -> US6) = method7() │
00:09:57 verbose #64732 > │ let v9 : US6 = US6_1 │
00:09:57 verbose #64733 > │ let v10 : US6 = v0 |> Option.map v8 |> Option.defaultValue v9 │
00:09:57 verbose #64734 > │ let v225 : Async<bool> = │
00:09:57 verbose #64735 > │ match v10 with │
00:09:57 verbose #64736 > │ | US6_1 -> (* None *) │
00:09:57 verbose #64737 > │ let v11 : Async<bool> option = None │
00:09:57 verbose #64738 > │ let v12 : bool = true in let mutable _v11 = v11 │
00:09:57 verbose #64739 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64740 > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64741 > │ v13 │
00:09:57 verbose #64742 > │ #endif │
00:09:57 verbose #64743 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64744 > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64745 > │ v14 │
00:09:57 verbose #64746 > │ #endif │
00:09:57 verbose #64747 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64748 > │ let v15 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64749 > │ v15 │
00:09:57 verbose #64750 > │ #endif │
00:09:57 verbose #64751 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64752 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64753 > │ let v16 : Async<bool> option = None │
00:09:57 verbose #64754 > │ let mutable _v16 = v16 │
00:09:57 verbose #64755 > │ async { │
00:09:57 verbose #64756 > │ let v17 : Async<System.Threading.CancellationToken> = │
00:09:57 verbose #64757 > │ Async.CancellationToken │
00:09:57 verbose #64758 > │ let! v17 = v17 │
00:09:57 verbose #64759 > │ let v18 : System.Threading.CancellationToken = v17 │
00:09:57 verbose #64760 > │ let v19 : System.Net.Sockets.TcpClient = new │
00:09:57 verbose #64761 > │ System.Net.Sockets.TcpClient () │
00:09:57 verbose #64762 > │ use v19 = v19 │
00:09:57 verbose #64763 > │ let v20 : System.Net.Sockets.TcpClient = v19 │
00:09:57 verbose #64764 > │ try │
00:09:57 verbose #64765 > │ let v21 : string = "127.0.0.1" │
00:09:57 verbose #64766 > │ let v22 : System.Threading.Tasks.ValueTask = v20.ConnectAsync │
00:09:57 verbose #64767 > │ (v21, v1, v18) │
00:09:57 verbose #64768 > │ let v23 : (unit -> System.Threading.Tasks.Task) = v22.AsTask │
00:09:57 verbose #64769 > │ let v24 : System.Threading.Tasks.Task = v23 () │
00:09:57 verbose #64770 > │ let v25 : Async<unit> option = None │
00:09:57 verbose #64771 > │ let v26 : bool = true in let mutable _v25 = v25 │
00:09:57 verbose #64772 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64773 > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64774 > │ v27 │
00:09:57 verbose #64775 > │ #endif │
00:09:57 verbose #64776 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64777 > │ let v28 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64778 > │ v28 │
00:09:57 verbose #64779 > │ #endif │
00:09:57 verbose #64780 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64781 > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64782 > │ v29 │
00:09:57 verbose #64783 > │ #endif │
00:09:57 verbose #64784 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64785 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64786 > │ let v30 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:57 verbose #64787 > │ Async.AwaitTask │
00:09:57 verbose #64788 > │ let v31 : Async<unit> = v30 v24 │
00:09:57 verbose #64789 > │ v31 │
00:09:57 verbose #64790 > │ #endif │
00:09:57 verbose #64791 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64792 > │ let v32 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64793 > │ v32 │
00:09:57 verbose #64794 > │ #endif │
00:09:57 verbose #64795 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64796 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64797 > │ let v33 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #64798 > │ v33 │
00:09:57 verbose #64799 > │ #endif │
00:09:57 verbose #64800 > │ |> fun x -> _v25 <- Some x │
00:09:57 verbose #64801 > │ let v34 : Async<unit> = _v25.Value │
00:09:57 verbose #64802 > │ do! v34 │
00:09:57 verbose #64803 > │ return true │
00:09:57 verbose #64804 > │ with ex -> │
00:09:57 verbose #64805 > │ let v35 : exn = ex │
00:09:57 verbose #64806 > │ let v36 : string option = None │
00:09:57 verbose #64807 > │ let v37 : bool = true in let mutable _v36 = v36 │
00:09:57 verbose #64808 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64809 > │ let v38 : string = $"%A{v35}" │
00:09:57 verbose #64810 > │ v38 │
00:09:57 verbose #64811 > │ #endif │
00:09:57 verbose #64812 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64813 > │ let v39 : string = $"%A{v35}" │
00:09:57 verbose #64814 > │ v39 │
00:09:57 verbose #64815 > │ #endif │
00:09:57 verbose #64816 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64817 > │ let v40 : string = $"%A{v35}" │
00:09:57 verbose #64818 > │ v40 │
00:09:57 verbose #64819 > │ #endif │
00:09:57 verbose #64820 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64821 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64822 > │ let v41 : string = $"{v35.GetType ()}: {v35.Message}" │
00:09:57 verbose #64823 > │ v41 │
00:09:57 verbose #64824 > │ #endif │
00:09:57 verbose #64825 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64826 > │ let v42 : string = $"%A{v35}" │
00:09:57 verbose #64827 > │ v42 │
00:09:57 verbose #64828 > │ #endif │
00:09:57 verbose #64829 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64830 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64831 > │ let v43 : string = Unchecked.defaultof<string> │
00:09:57 verbose #64832 > │ v43 │
00:09:57 verbose #64833 > │ #endif │
00:09:57 verbose #64834 > │ |> fun x -> _v36 <- Some x │
00:09:57 verbose #64835 > │ let v44 : string = _v36.Value │
00:09:57 verbose #64836 > │ let v45 : US0 = US0_0 │
00:09:57 verbose #64837 > │ let v46 : (unit -> string) = closure3(v44) │
00:09:57 verbose #64838 > │ let v47 : (unit -> string) = closure4() │
00:09:57 verbose #64839 > │ method2(v45, v46, v47) │
00:09:57 verbose #64840 > │ return false │
00:09:57 verbose #64841 > │ (* │
00:09:57 verbose #64842 > │ let v48 : bool = *) │
00:09:57 verbose #64843 > │ } │
00:09:57 verbose #64844 > │ |> fun x -> _v16 <- Some x │
00:09:57 verbose #64845 > │ let v49 : Async<bool> = _v16 |> Option.get │
00:09:57 verbose #64846 > │ v49 │
00:09:57 verbose #64847 > │ #endif │
00:09:57 verbose #64848 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64849 > │ let v50 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64850 > │ v50 │
00:09:57 verbose #64851 > │ #endif │
00:09:57 verbose #64852 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64853 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64854 > │ let v51 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #64855 > │ v51 │
00:09:57 verbose #64856 > │ #endif │
00:09:57 verbose #64857 > │ |> fun x -> _v11 <- Some x │
00:09:57 verbose #64858 > │ let v52 : Async<bool> = _v11.Value │
00:09:57 verbose #64859 > │ v52 │
00:09:57 verbose #64860 > │ | US6_0(v53) -> (* Some *) │
00:09:57 verbose #64861 > │ let v54 : Async<bool> option = None │
00:09:57 verbose #64862 > │ let v55 : bool = true in let mutable _v54 = v54 │
00:09:57 verbose #64863 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64864 > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64865 > │ v56 │
00:09:57 verbose #64866 > │ #endif │
00:09:57 verbose #64867 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64868 > │ let v57 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64869 > │ v57 │
00:09:57 verbose #64870 > │ #endif │
00:09:57 verbose #64871 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64872 > │ let v58 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64873 > │ v58 │
00:09:57 verbose #64874 > │ #endif │
00:09:57 verbose #64875 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64876 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64877 > │ let v59 : Async<bool> option = None │
00:09:57 verbose #64878 > │ let mutable _v59 = v59 │
00:09:57 verbose #64879 > │ async { │
00:09:57 verbose #64880 > │ let v60 : Async<bool> option = None │
00:09:57 verbose #64881 > │ let v61 : bool = true in let mutable _v60 = v60 │
00:09:57 verbose #64882 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64883 > │ let v62 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64884 > │ v62 │
00:09:57 verbose #64885 > │ #endif │
00:09:57 verbose #64886 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64887 > │ let v63 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64888 > │ v63 │
00:09:57 verbose #64889 > │ #endif │
00:09:57 verbose #64890 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64891 > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64892 > │ v64 │
00:09:57 verbose #64893 > │ #endif │
00:09:57 verbose #64894 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64895 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64896 > │ let v65 : Async<bool> option = None │
00:09:57 verbose #64897 > │ let mutable _v65 = v65 │
00:09:57 verbose #64898 > │ async { │
00:09:57 verbose #64899 > │ let v66 : Async<System.Threading.CancellationToken> = │
00:09:57 verbose #64900 > │ Async.CancellationToken │
00:09:57 verbose #64901 > │ let! v66 = v66 │
00:09:57 verbose #64902 > │ let v67 : System.Threading.CancellationToken = v66 │
00:09:57 verbose #64903 > │ let v68 : System.Net.Sockets.TcpClient = new │
00:09:57 verbose #64904 > │ System.Net.Sockets.TcpClient () │
00:09:57 verbose #64905 > │ use v68 = v68 │
00:09:57 verbose #64906 > │ let v69 : System.Net.Sockets.TcpClient = v68 │
00:09:57 verbose #64907 > │ try │
00:09:57 verbose #64908 > │ let v70 : string = "127.0.0.1" │
00:09:57 verbose #64909 > │ let v71 : System.Threading.Tasks.ValueTask = v69.ConnectAsync │
00:09:57 verbose #64910 > │ (v70, v1, v67) │
00:09:57 verbose #64911 > │ let v72 : (unit -> System.Threading.Tasks.Task) = v71.AsTask │
00:09:57 verbose #64912 > │ let v73 : System.Threading.Tasks.Task = v72 () │
00:09:57 verbose #64913 > │ let v74 : Async<unit> option = None │
00:09:57 verbose #64914 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:09:57 verbose #64915 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64916 > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64917 > │ v76 │
00:09:57 verbose #64918 > │ #endif │
00:09:57 verbose #64919 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64920 > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64921 > │ v77 │
00:09:57 verbose #64922 > │ #endif │
00:09:57 verbose #64923 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64924 > │ let v78 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64925 > │ v78 │
00:09:57 verbose #64926 > │ #endif │
00:09:57 verbose #64927 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64928 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64929 > │ let v79 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:09:57 verbose #64930 > │ Async.AwaitTask │
00:09:57 verbose #64931 > │ let v80 : Async<unit> = v79 v73 │
00:09:57 verbose #64932 > │ v80 │
00:09:57 verbose #64933 > │ #endif │
00:09:57 verbose #64934 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64935 > │ let v81 : Async<unit> = null |> unbox<Async<unit>> │
00:09:57 verbose #64936 > │ v81 │
00:09:57 verbose #64937 > │ #endif │
00:09:57 verbose #64938 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64939 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64940 > │ let v82 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:09:57 verbose #64941 > │ v82 │
00:09:57 verbose #64942 > │ #endif │
00:09:57 verbose #64943 > │ |> fun x -> _v74 <- Some x │
00:09:57 verbose #64944 > │ let v83 : Async<unit> = _v74.Value │
00:09:57 verbose #64945 > │ do! v83 │
00:09:57 verbose #64946 > │ return true │
00:09:57 verbose #64947 > │ with ex -> │
00:09:57 verbose #64948 > │ let v84 : exn = ex │
00:09:57 verbose #64949 > │ let v85 : string option = None │
00:09:57 verbose #64950 > │ let v86 : bool = true in let mutable _v85 = v85 │
00:09:57 verbose #64951 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #64952 > │ let v87 : string = $"%A{v84}" │
00:09:57 verbose #64953 > │ v87 │
00:09:57 verbose #64954 > │ #endif │
00:09:57 verbose #64955 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #64956 > │ let v88 : string = $"%A{v84}" │
00:09:57 verbose #64957 > │ v88 │
00:09:57 verbose #64958 > │ #endif │
00:09:57 verbose #64959 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #64960 > │ let v89 : string = $"%A{v84}" │
00:09:57 verbose #64961 > │ v89 │
00:09:57 verbose #64962 > │ #endif │
00:09:57 verbose #64963 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #64964 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #64965 > │ let v90 : string = $"{v84.GetType ()}: {v84.Message}" │
00:09:57 verbose #64966 > │ v90 │
00:09:57 verbose #64967 > │ #endif │
00:09:57 verbose #64968 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64969 > │ let v91 : string = $"%A{v84}" │
00:09:57 verbose #64970 > │ v91 │
00:09:57 verbose #64971 > │ #endif │
00:09:57 verbose #64972 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64973 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64974 > │ let v92 : string = Unchecked.defaultof<string> │
00:09:57 verbose #64975 > │ v92 │
00:09:57 verbose #64976 > │ #endif │
00:09:57 verbose #64977 > │ |> fun x -> _v85 <- Some x │
00:09:57 verbose #64978 > │ let v93 : string = _v85.Value │
00:09:57 verbose #64979 > │ let v94 : US0 = US0_0 │
00:09:57 verbose #64980 > │ let v95 : (unit -> string) = closure3(v93) │
00:09:57 verbose #64981 > │ let v96 : (unit -> string) = closure4() │
00:09:57 verbose #64982 > │ method2(v94, v95, v96) │
00:09:57 verbose #64983 > │ return false │
00:09:57 verbose #64984 > │ (* │
00:09:57 verbose #64985 > │ let v97 : bool = *) │
00:09:57 verbose #64986 > │ } │
00:09:57 verbose #64987 > │ |> fun x -> _v65 <- Some x │
00:09:57 verbose #64988 > │ let v98 : Async<bool> = _v65 |> Option.get │
00:09:57 verbose #64989 > │ v98 │
00:09:57 verbose #64990 > │ #endif │
00:09:57 verbose #64991 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #64992 > │ let v99 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #64993 > │ v99 │
00:09:57 verbose #64994 > │ #endif │
00:09:57 verbose #64995 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #64996 > │ FABLE_COMPILER_DART │
00:09:57 verbose #64997 > │ let v100 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #64998 > │ v100 │
00:09:57 verbose #64999 > │ #endif │
00:09:57 verbose #65000 > │ |> fun x -> _v60 <- Some x │
00:09:57 verbose #65001 > │ let v101 : Async<bool> = _v60.Value │
00:09:57 verbose #65002 > │ let v102 : Async<US3> option = None │
00:09:57 verbose #65003 > │ let v103 : bool = true in let mutable _v102 = v102 │
00:09:57 verbose #65004 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65005 > │ let v104 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65006 > │ v104 │
00:09:57 verbose #65007 > │ #endif │
00:09:57 verbose #65008 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65009 > │ let v105 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65010 > │ v105 │
00:09:57 verbose #65011 > │ #endif │
00:09:57 verbose #65012 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65013 > │ let v106 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65014 > │ v106 │
00:09:57 verbose #65015 > │ #endif │
00:09:57 verbose #65016 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65017 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65018 > │ let v107 : Async<US3> option = None │
00:09:57 verbose #65019 > │ let v108 : bool = true in let mutable _v107 = v107 │
00:09:57 verbose #65020 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65021 > │ let v109 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65022 > │ v109 │
00:09:57 verbose #65023 > │ #endif │
00:09:57 verbose #65024 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65025 > │ let v110 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65026 > │ v110 │
00:09:57 verbose #65027 > │ #endif │
00:09:57 verbose #65028 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65029 > │ let v111 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65030 > │ v111 │
00:09:57 verbose #65031 > │ #endif │
00:09:57 verbose #65032 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65033 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65034 > │ let v112 : Async<US3> option = None │
00:09:57 verbose #65035 > │ let mutable _v112 = v112 │
00:09:57 verbose #65036 > │ async { │
00:09:57 verbose #65037 > │ let v113 : Async<Async<bool>> option = None │
00:09:57 verbose #65038 > │ let v114 : bool = true in let mutable _v113 = v113 │
00:09:57 verbose #65039 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65040 > │ let v115 : Async<Async<bool>> = null |> │
00:09:57 verbose #65041 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #65042 > │ v115 │
00:09:57 verbose #65043 > │ #endif │
00:09:57 verbose #65044 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65045 > │ let v116 : Async<Async<bool>> = null |> │
00:09:57 verbose #65046 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #65047 > │ v116 │
00:09:57 verbose #65048 > │ #endif │
00:09:57 verbose #65049 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65050 > │ let v117 : Async<Async<bool>> = null |> │
00:09:57 verbose #65051 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #65052 > │ v117 │
00:09:57 verbose #65053 > │ #endif │
00:09:57 verbose #65054 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65055 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65056 > │ let v118 : Async<Async<bool>> = Async.StartChild (v101, v53) │
00:09:57 verbose #65057 > │ v118 │
00:09:57 verbose #65058 > │ #endif │
00:09:57 verbose #65059 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65060 > │ let v119 : Async<Async<bool>> = null |> │
00:09:57 verbose #65061 > │ unbox<Async<Async<bool>>> │
00:09:57 verbose #65062 > │ v119 │
00:09:57 verbose #65063 > │ #endif │
00:09:57 verbose #65064 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65065 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65066 > │ let v120 : Async<Async<bool>> = │
00:09:57 verbose #65067 > │ Unchecked.defaultof<Async<Async<bool>>> │
00:09:57 verbose #65068 > │ v120 │
00:09:57 verbose #65069 > │ #endif │
00:09:57 verbose #65070 > │ |> fun x -> _v113 <- Some x │
00:09:57 verbose #65071 > │ let v121 : Async<Async<bool>> = _v113.Value │
00:09:57 verbose #65072 > │ let! v121 = v121 │
00:09:57 verbose #65073 > │ let v122 : Async<bool> = v121 │
00:09:57 verbose #65074 > │ let v123 : Async<Choice<bool, exn>> option = None │
00:09:57 verbose #65075 > │ let v124 : bool = true in let mutable _v123 = v123 │
00:09:57 verbose #65076 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65077 > │ let v125 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #65078 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #65079 > │ v125 │
00:09:57 verbose #65080 > │ #endif │
00:09:57 verbose #65081 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65082 > │ let v126 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #65083 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #65084 > │ v126 │
00:09:57 verbose #65085 > │ #endif │
00:09:57 verbose #65086 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65087 > │ let v127 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #65088 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #65089 > │ v127 │
00:09:57 verbose #65090 > │ #endif │
00:09:57 verbose #65091 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65092 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65093 > │ let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = │
00:09:57 verbose #65094 > │ Async.Catch │
00:09:57 verbose #65095 > │ let v129 : Async<Choice<bool, exn>> = v128 v122 │
00:09:57 verbose #65096 > │ v129 │
00:09:57 verbose #65097 > │ #endif │
00:09:57 verbose #65098 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65099 > │ let v130 : Async<Choice<bool, exn>> = null |> │
00:09:57 verbose #65100 > │ unbox<Async<Choice<bool, exn>>> │
00:09:57 verbose #65101 > │ v130 │
00:09:57 verbose #65102 > │ #endif │
00:09:57 verbose #65103 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65104 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65105 > │ let v131 : Async<Choice<bool, exn>> = │
00:09:57 verbose #65106 > │ Unchecked.defaultof<Async<Choice<bool, exn>>> │
00:09:57 verbose #65107 > │ v131 │
00:09:57 verbose #65108 > │ #endif │
00:09:57 verbose #65109 > │ |> fun x -> _v123 <- Some x │
00:09:57 verbose #65110 > │ let v132 : Async<Choice<bool, exn>> = _v123.Value │
00:09:57 verbose #65111 > │ let v133 : Async<US4> option = None │
00:09:57 verbose #65112 > │ let v134 : bool = true in let mutable _v133 = v133 │
00:09:57 verbose #65113 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65114 > │ let v135 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #65115 > │ v135 │
00:09:57 verbose #65116 > │ #endif │
00:09:57 verbose #65117 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65118 > │ let v136 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #65119 > │ v136 │
00:09:57 verbose #65120 > │ #endif │
00:09:57 verbose #65121 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65122 > │ let v137 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #65123 > │ v137 │
00:09:57 verbose #65124 > │ #endif │
00:09:57 verbose #65125 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65126 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65127 > │ let v138 : Async<US4> option = None │
00:09:57 verbose #65128 > │ let mutable _v138 = v138 │
00:09:57 verbose #65129 > │ async { │
00:09:57 verbose #65130 > │ let! v132 = v132 │
00:09:57 verbose #65131 > │ let v139 : Choice<bool, exn> = v132 │
00:09:57 verbose #65132 > │ let v140 : US4 option = None │
00:09:57 verbose #65133 > │ let v141 : bool = true in let mutable _v140 = v140 │
00:09:57 verbose #65134 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65135 > │ let v142 : US4 = null |> unbox<US4> │
00:09:57 verbose #65136 > │ v142 │
00:09:57 verbose #65137 > │ #endif │
00:09:57 verbose #65138 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65139 > │ let v143 : US4 = null |> unbox<US4> │
00:09:57 verbose #65140 > │ v143 │
00:09:57 verbose #65141 > │ #endif │
00:09:57 verbose #65142 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65143 > │ let v144 : US4 = null |> unbox<US4> │
00:09:57 verbose #65144 > │ v144 │
00:09:57 verbose #65145 > │ #endif │
00:09:57 verbose #65146 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65147 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65148 > │ let v145 : (bool -> US4) = closure9() │
00:09:57 verbose #65149 > │ let v146 : (exn -> US4) = closure10() │
00:09:57 verbose #65150 > │ let v147 : US4 = match v139 with Choice1Of2 x -> v145 x | │
00:09:57 verbose #65151 > │ Choice2Of2 x -> v146 x │
00:09:57 verbose #65152 > │ v147 │
00:09:57 verbose #65153 > │ #endif │
00:09:57 verbose #65154 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65155 > │ let v148 : US4 = null |> unbox<US4> │
00:09:57 verbose #65156 > │ v148 │
00:09:57 verbose #65157 > │ #endif │
00:09:57 verbose #65158 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65159 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65160 > │ let v149 : US4 = Unchecked.defaultof<US4> │
00:09:57 verbose #65161 > │ v149 │
00:09:57 verbose #65162 > │ #endif │
00:09:57 verbose #65163 > │ |> fun x -> _v140 <- Some x │
00:09:57 verbose #65164 > │ let v150 : US4 = _v140.Value │
00:09:57 verbose #65165 > │ return v150 │
00:09:57 verbose #65166 > │ } │
00:09:57 verbose #65167 > │ |> fun x -> _v138 <- Some x │
00:09:57 verbose #65168 > │ let v151 : Async<US4> = _v138 |> Option.get │
00:09:57 verbose #65169 > │ v151 │
00:09:57 verbose #65170 > │ #endif │
00:09:57 verbose #65171 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65172 > │ let v152 : Async<US4> = null |> unbox<Async<US4>> │
00:09:57 verbose #65173 > │ v152 │
00:09:57 verbose #65174 > │ #endif │
00:09:57 verbose #65175 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65176 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65177 > │ let v153 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:09:57 verbose #65178 > │ v153 │
00:09:57 verbose #65179 > │ #endif │
00:09:57 verbose #65180 > │ |> fun x -> _v133 <- Some x │
00:09:57 verbose #65181 > │ let v154 : Async<US4> = _v133.Value │
00:09:57 verbose #65182 > │ let v155 : Async<US5> option = None │
00:09:57 verbose #65183 > │ let v156 : bool = true in let mutable _v155 = v155 │
00:09:57 verbose #65184 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65185 > │ let v157 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #65186 > │ v157 │
00:09:57 verbose #65187 > │ #endif │
00:09:57 verbose #65188 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65189 > │ let v158 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #65190 > │ v158 │
00:09:57 verbose #65191 > │ #endif │
00:09:57 verbose #65192 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65193 > │ let v159 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #65194 > │ v159 │
00:09:57 verbose #65195 > │ #endif │
00:09:57 verbose #65196 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65197 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65198 > │ let v160 : Async<US5> option = None │
00:09:57 verbose #65199 > │ let mutable _v160 = v160 │
00:09:57 verbose #65200 > │ async { │
00:09:57 verbose #65201 > │ let! v154 = v154 │
00:09:57 verbose #65202 > │ let v161 : US4 = v154 │
00:09:57 verbose #65203 > │ let v167 : US5 = │
00:09:57 verbose #65204 > │ match v161 with │
00:09:57 verbose #65205 > │ | US4_0(v162) -> (* Choice1Of2 *) │
00:09:57 verbose #65206 > │ US5_0(v162) │
00:09:57 verbose #65207 > │ | US4_1(v164) -> (* Choice2Of2 *) │
00:09:57 verbose #65208 > │ US5_1(v164) │
00:09:57 verbose #65209 > │ return v167 │
00:09:57 verbose #65210 > │ } │
00:09:57 verbose #65211 > │ |> fun x -> _v160 <- Some x │
00:09:57 verbose #65212 > │ let v168 : Async<US5> = _v160 |> Option.get │
00:09:57 verbose #65213 > │ v168 │
00:09:57 verbose #65214 > │ #endif │
00:09:57 verbose #65215 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65216 > │ let v169 : Async<US5> = null |> unbox<Async<US5>> │
00:09:57 verbose #65217 > │ v169 │
00:09:57 verbose #65218 > │ #endif │
00:09:57 verbose #65219 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65220 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65221 > │ let v170 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:09:57 verbose #65222 > │ v170 │
00:09:57 verbose #65223 > │ #endif │
00:09:57 verbose #65224 > │ |> fun x -> _v155 <- Some x │
00:09:57 verbose #65225 > │ let v171 : Async<US5> = _v155.Value │
00:09:57 verbose #65226 > │ let v172 : Async<US3> option = None │
00:09:57 verbose #65227 > │ let v173 : bool = true in let mutable _v172 = v172 │
00:09:57 verbose #65228 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65229 > │ let v174 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65230 > │ v174 │
00:09:57 verbose #65231 > │ #endif │
00:09:57 verbose #65232 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65233 > │ let v175 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65234 > │ v175 │
00:09:57 verbose #65235 > │ #endif │
00:09:57 verbose #65236 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65237 > │ let v176 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65238 > │ v176 │
00:09:57 verbose #65239 > │ #endif │
00:09:57 verbose #65240 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65241 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65242 > │ let v177 : Async<US3> option = None │
00:09:57 verbose #65243 > │ let mutable _v177 = v177 │
00:09:57 verbose #65244 > │ async { │
00:09:57 verbose #65245 > │ let! v171 = v171 │
00:09:57 verbose #65246 > │ let v178 : US5 = v171 │
00:09:57 verbose #65247 > │ let v204 : US3 = │
00:09:57 verbose #65248 > │ match v178 with │
00:09:57 verbose #65249 > │ | US5_1(v181) -> (* Error *) │
00:09:57 verbose #65250 > │ let v182 : string = $"%A{v181}" │
00:09:57 verbose #65251 > │ let v183 : string = "System.TimeoutException" │
00:09:57 verbose #65252 > │ let v184 : bool = v182.Contains v183 │
00:09:57 verbose #65253 > │ if v184 then │
00:09:57 verbose #65254 > │ let v185 : US0 = US0_1 │
00:09:57 verbose #65255 > │ let v186 : (unit -> string) = closure11() │
00:09:57 verbose #65256 > │ let v187 : (unit -> string) = closure12(v53) │
00:09:57 verbose #65257 > │ method2(v185, v186, v187) │
00:09:57 verbose #65258 > │ US3_1 │
00:09:57 verbose #65259 > │ else │
00:09:57 verbose #65260 > │ let v189 : string option = None │
00:09:57 verbose #65261 > │ let v190 : bool = true in let mutable _v189 = v189 │
00:09:57 verbose #65262 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:09:57 verbose #65263 > │ let v191 : string = $"%A{v181}" │
00:09:57 verbose #65264 > │ v191 │
00:09:57 verbose #65265 > │ #endif │
00:09:57 verbose #65266 > │ #if FABLE_COMPILER_RUST && WASM │
00:09:57 verbose #65267 > │ let v192 : string = $"%A{v181}" │
00:09:57 verbose #65268 > │ v192 │
00:09:57 verbose #65269 > │ #endif │
00:09:57 verbose #65270 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:09:57 verbose #65271 > │ let v193 : string = $"%A{v181}" │
00:09:57 verbose #65272 > │ v193 │
00:09:57 verbose #65273 > │ #endif │
00:09:57 verbose #65274 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:09:57 verbose #65275 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:09:57 verbose #65276 > │ let v194 : string = $"{v181.GetType ()}: │
00:09:57 verbose #65277 > │ {v181.Message}" │
00:09:57 verbose #65278 > │ v194 │
00:09:57 verbose #65279 > │ #endif │
00:09:57 verbose #65280 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65281 > │ let v195 : string = $"%A{v181}" │
00:09:57 verbose #65282 > │ v195 │
00:09:57 verbose #65283 > │ #endif │
00:09:57 verbose #65284 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65285 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65286 > │ let v196 : string = Unchecked.defaultof<string> │
00:09:57 verbose #65287 > │ v196 │
00:09:57 verbose #65288 > │ #endif │
00:09:57 verbose #65289 > │ |> fun x -> _v189 <- Some x │
00:09:57 verbose #65290 > │ let v197 : string = _v189.Value │
00:09:57 verbose #65291 > │ let v198 : US0 = US0_4 │
00:09:57 verbose #65292 > │ let v199 : (unit -> string) = closure13(v197) │
00:09:57 verbose #65293 > │ let v200 : (unit -> string) = closure12(v53) │
00:09:57 verbose #65294 > │ method2(v198, v199, v200) │
00:09:57 verbose #65295 > │ US3_1 │
00:09:57 verbose #65296 > │ | US5_0(v179) -> (* Ok *) │
00:09:57 verbose #65297 > │ US3_0(v179) │
00:09:57 verbose #65298 > │ return v204 │
00:09:57 verbose #65299 > │ } │
00:09:57 verbose #65300 > │ |> fun x -> _v177 <- Some x │
00:09:57 verbose #65301 > │ let v205 : Async<US3> = _v177 |> Option.get │
00:09:57 verbose #65302 > │ v205 │
00:09:57 verbose #65303 > │ #endif │
00:09:57 verbose #65304 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65305 > │ let v206 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65306 > │ v206 │
00:09:57 verbose #65307 > │ #endif │
00:09:57 verbose #65308 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65309 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65310 > │ let v207 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #65311 > │ v207 │
00:09:57 verbose #65312 > │ #endif │
00:09:57 verbose #65313 > │ |> fun x -> _v172 <- Some x │
00:09:57 verbose #65314 > │ let v208 : Async<US3> = _v172.Value │
00:09:57 verbose #65315 > │ return! v208 │
00:09:57 verbose #65316 > │ } │
00:09:57 verbose #65317 > │ |> fun x -> _v112 <- Some x │
00:09:57 verbose #65318 > │ let v209 : Async<US3> = _v112 |> Option.get │
00:09:57 verbose #65319 > │ v209 │
00:09:57 verbose #65320 > │ #endif │
00:09:57 verbose #65321 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65322 > │ let v210 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65323 > │ v210 │
00:09:57 verbose #65324 > │ #endif │
00:09:57 verbose #65325 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65326 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65327 > │ let v211 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #65328 > │ v211 │
00:09:57 verbose #65329 > │ #endif │
00:09:57 verbose #65330 > │ |> fun x -> _v107 <- Some x │
00:09:57 verbose #65331 > │ let v212 : Async<US3> = _v107.Value │
00:09:57 verbose #65332 > │ v212 │
00:09:57 verbose #65333 > │ #endif │
00:09:57 verbose #65334 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65335 > │ let v213 : Async<US3> = null |> unbox<Async<US3>> │
00:09:57 verbose #65336 > │ v213 │
00:09:57 verbose #65337 > │ #endif │
00:09:57 verbose #65338 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65339 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65340 > │ let v214 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:09:57 verbose #65341 > │ v214 │
00:09:57 verbose #65342 > │ #endif │
00:09:57 verbose #65343 > │ |> fun x -> _v102 <- Some x │
00:09:57 verbose #65344 > │ let v215 : Async<US3> = _v102.Value │
00:09:57 verbose #65345 > │ let! v215 = v215 │
00:09:57 verbose #65346 > │ let v216 : US3 = v215 │
00:09:57 verbose #65347 > │ let v219 : bool = │
00:09:57 verbose #65348 > │ match v216 with │
00:09:57 verbose #65349 > │ | US3_1 -> (* None *) │
00:09:57 verbose #65350 > │ false │
00:09:57 verbose #65351 > │ | US3_0(v217) -> (* Some *) │
00:09:57 verbose #65352 > │ v217 │
00:09:57 verbose #65353 > │ return v219 │
00:09:57 verbose #65354 > │ } │
00:09:57 verbose #65355 > │ |> fun x -> _v59 <- Some x │
00:09:57 verbose #65356 > │ let v220 : Async<bool> = _v59 |> Option.get │
00:09:57 verbose #65357 > │ v220 │
00:09:57 verbose #65358 > │ #endif │
00:09:57 verbose #65359 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65360 > │ let v221 : Async<bool> = null |> unbox<Async<bool>> │
00:09:57 verbose #65361 > │ v221 │
00:09:57 verbose #65362 > │ #endif │
00:09:57 verbose #65363 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:09:57 verbose #65364 > │ FABLE_COMPILER_DART │
00:09:57 verbose #65365 > │ let v222 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:09:57 verbose #65366 > │ v222 │
00:09:57 verbose #65367 > │ #endif │
00:09:57 verbose #65368 > │ |> fun x -> _v54 <- Some x │
00:09:57 verbose #65369 > │ let v223 : Async<bool> = _v54.Value │
00:09:57 verbose #65370 > │ v223 │
00:09:57 verbose #65371 > │ let! v225 = v225 │
00:09:57 verbose #65372 > │ let v226 : bool = v225 │
00:09:57 verbose #65373 > │ let v227 : bool = v226 = false │
00:09:57 verbose #65374 > │ if v227 then │
00:09:57 verbose #65375 > │ return v1 │
00:09:57 verbose #65376 > │ (* │
00:09:57 verbose #65377 > │ () │
00:09:57 verbose #65378 > │ else │
00:09:57 verbose #65379 > │ *) else │
00:09:57 verbose #65380 > │ let v228 : int32 = v1 + 1 │
00:09:57 verbose #65381 > │ let v229 : Async<int32> = method8(v0, v228) │
00:09:57 verbose #65382 > │ return! v229 │
00:09:57 verbose #65383 > │ (* │
00:09:57 verbose #65384 > │ () │
00:09:57 verbose #65385 > │ *) │
00:09:57 verbose #65386 > │ } │
00:09:57 verbose #65387 > │ |> fun x -> _v7 <- Some x │
00:09:57 verbose #65388 > │ let v230 : Async<int32> = _v7 |> Option.get │
00:09:57 verbose #65389 > │ v230 │
00:09:57 verbose #65390 > │ #endif │
00:09:57 verbose #65391 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:09:57 verbose #65392 > │ let v231 : Async<int32> = null |> unbox<Async<int32>> │
00:09:57 verbose #65393 > │ v231 │
00:09:57 verbose #65394 > │ #endif │
00:09:57 verbose #65395 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:09:57 verbose #65396 > │ let v232 : Async<int32> = Unchecked.defaultof<Async<int32>> │
00:09:57 verbose #65397 > │ v232 │
00:09:57 verbose #65398 > │ #endif │
00:09:57 verbose #65399 > │ |> fun x -> _v2 <- Some x │
00:09:57 verbose #65400 > │ let v233 : Async<int32> = _v2.Value │
00:09:57 verbose #65401 > │ v233 │
00:09:57 verbose #65402 > │ and closure21 (v0 : int32 option) (v1 : int32) : Async<int32> = │
00:09:57 verbose #65403 > │ method8(v0, v1) │
00:09:57 verbose #65404 > │ and closure20 () (v0 : int32 option) : (int32 -> Async<int32>) = │
00:09:57 verbose #65405 > │ closure21(v0) │
00:09:57 verbose #65406 > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:09:57 verbose #65407 > │ closure0() │
00:09:57 verbose #65408 > │ if State.trace_state.IsNone then State.trace_state <- v0 () |> Some │
00:09:57 verbose #65409 > │ let v1 : (int32 -> Async<bool>) = closure2() │
00:09:57 verbose #65410 > │ let test_port_open x = v1 x │
00:09:57 verbose #65411 > │ let v2 : (int32 -> (int32 -> Async<bool>)) = closure7() │
00:09:57 verbose #65412 > │ let test_port_open_timeout x = v2 x │
00:09:57 verbose #65413 > │ let v3 : (int32 option -> (bool -> (int32 -> Async<int64>))) = closure14() │
00:09:57 verbose #65414 > │ let wait_for_port_access x = v3 x │
00:09:57 verbose #65415 > │ let v4 : (int32 option -> (int32 -> Async<int32>)) = closure20() │
00:09:57 verbose #65416 > │ let get_available_port x = v4 x │
00:09:57 verbose #65417 > │ () │
00:09:57 verbose #65418 > │ │
00:09:57 verbose #65419 > │ │
00:09:57 verbose #65420 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #65421 > [NbConvertApp] Converting notebook networking.dib.ipynb to html
00:09:59 verbose #65422 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:59 verbose #65423 > validate(nb)
00:10:00 verbose #65424 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:10:00 verbose #65425 > return _pygments_highlight(
00:10:01 verbose #65426 > [NbConvertApp] Writing 974294 bytes to networking.dib.html
00:10:01 debug #65427 execute_with_options_async / exit_code: 0 / output.Length: 1295837
00:10:01 debug #25 main / executeCommand / exitCode: 0
00:10:01 debug #65428 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 physics.dib" -Retries 3", None,
None)
00:10:02 verbose #65429 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\lib\spiral / path: physics.dib / _args: [
00:10:02 verbose #65430 > "-Retries",
00:10:02 verbose #65431 > 3
00:10:02 verbose #65432 > ]
00:10:04 verbose #65433 >
00:10:04 verbose #65434 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:04 verbose #65435 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:04 verbose #65436 > │ # physics │
00:10:04 verbose #65437 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:04 verbose #65438 >
00:10:04 verbose #65439 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:10:04 verbose #65440 > #!import ../../lib/fsharp/Plotting.dib
00:10:04 verbose #65441 >
00:10:04 verbose #65442 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:04 verbose #65443 > #r
00:10:04 verbose #65444 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:10:04 verbose #65445 > spNetCore.Html.Abstractions.dll"
00:10:04 verbose #65446 > #r
00:10:04 verbose #65447 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:04 verbose #65448 > otNet.Interactive.dll"
00:10:04 verbose #65449 > #r
00:10:04 verbose #65450 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:04 verbose #65451 > otNet.Interactive.FSharp.dll"
00:10:04 verbose #65452 > #r
00:10:04 verbose #65453 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:04 verbose #65454 > otNet.Interactive.Formatting.dll"
00:10:04 verbose #65455 > open System
00:10:04 verbose #65456 > open System.IO
00:10:04 verbose #65457 > open System.Text
00:10:04 verbose #65458 > open Microsoft.DotNet.Interactive.Formatting
00:10:08 verbose #65459 >
00:10:08 verbose #65460 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:08 verbose #65461 > #r
00:10:08 verbose #65462 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:08 verbose #65463 > otNet.Interactive.FSharp.dll"
00:10:08 verbose #65464 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:10:08 verbose #65465 > #r
00:10:08 verbose #65466 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:08 verbose #65467 > otNet.Interactive.dll"
00:10:08 verbose #65468 > open type Microsoft.DotNet.Interactive.Kernel
00:10:08 verbose #65469 >
00:10:08 verbose #65470 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:08 verbose #65471 > #r
00:10:08 verbose #65472 > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:10:08 verbose #65473 > dard2.1/FSharp.Control.AsyncSeq.dll"
00:10:08 verbose #65474 > #r
00:10:08 verbose #65475 > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:10:08 verbose #65476 > 0/System.Reactive.dll"
00:10:08 verbose #65477 > #r
00:10:08 verbose #65478 > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:10:08 verbose #65479 > netstandard2.0/System.Reactive.Linq.dll"
00:10:08 verbose #65480 > #r
00:10:08 verbose #65481 > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:10:08 verbose #65482 > #r
00:10:08 verbose #65483 > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:10:08 verbose #65484 > b/net6.0/System.CommandLine.dll"
00:10:08 verbose #65485 > #r
00:10:08 verbose #65486 > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
00:10:08 verbose #65487 > rp.Json.dll"
00:10:08 verbose #65488 >
00:10:08 verbose #65489 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:08 verbose #65490 > //// test
00:10:08 verbose #65491 >
00:10:08 verbose #65492 > Formatter.ListExpansionLimit <- 100
00:10:08 verbose #65493 >
00:10:08 verbose #65494 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:08 verbose #65495 > #if FABLE_COMPILER // common.types
00:10:08 verbose #65496 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:10:08 verbose #65497 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:10:08 verbose #65498 > class end
00:10:08 verbose #65499 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:10:08 verbose #65500 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:10:08 verbose #65501 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:10:08 verbose #65502 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:10:08 verbose #65503 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:10:08 verbose #65504 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:10:08 verbose #65505 > class end
00:10:08 verbose #65506 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:10:08 verbose #65507 > [[<Fable.Core.Erase;...
00:10:10 verbose #65508 >
00:10:10 verbose #65509 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:10 verbose #65510 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:10:10 verbose #65511 > and Mut1 = {mutable l0 : int32}
00:10:10 verbose #65512 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:10:10 verbose #65513 > let v2 : bool = v1.Contains v0
00:10:10 verbose #65514 > v2
00:10:10 verbose #65515 > and closure0 () (v0 : string) : (string -> bool) =
00:10:10 verbose #65516 > closure1(v0)
00:10:10 verbose #65517 > and closure3 (v0 : string) (v1 : string) : bool =
00:10:10 verbose #65518 > let v2 : bool = v1.EndsWith v0
00:10:10 verbose #65519 > v2
00:10:10 verbose #65520 > and closure2 () (v0 : string) : (string -> bool) =
00:10:10 verbose #65521 > closure3(v0)
00:10:10 verbose #65522 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:10:10 verbose #65523 > let v3 : string = v2.PadLeft (v0, v1)
00:10:10 verbose #65524 > v3
00:10:10 verbose #65525 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:10:10 verbose #65526 > closure6(v0, v1)
00:10:10 verbose #65527 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:10:10 verbose #65528 > closure5(v0)
00:10:10 verbose #65529 > and closure8 (v0 : int32) (v1 : string) : string =
00:10:10 verbose #65530 > let v2 : stri...
00:10:10 verbose #65531 >
00:10:10 verbose #65532 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:10 verbose #65533 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:10:10 verbose #65534 > type Mut0 = {mutable l0 : int32}
00:10:10 verbose #65535 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:10:10 verbose #65536 > let v2 : int32 = v1.l0
00:10:10 verbose #65537 > let v3 : bool = v2 < v0
00:10:10 verbose #65538 > v3
00:10:10 verbose #65539 > and method1 () : string =
00:10:10 verbose #65540 > let v0 : string = ""
00:10:10 verbose #65541 > v0
00:10:10 verbose #65542 > and closure0 () (v0 : string) : string =
00:10:10 verbose #65543 > let v1 : string option = None
00:10:10 verbose #65544 > let v2 : bool = true in let mutable _v1 = v1
00:10:10 verbose #65545 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:10:10 verbose #65546 > let v3 : string = null |> unbox<string>
00:10:10 verbose #65547 > v3
00:10:10 verbose #65548 > #endif
00:10:10 verbose #65549 > #if FABLE_COMPILER_RUST && WASM
00:10:10 verbose #65550 > let v4 : string = null |> unbox<string>
00:10:10 verbose #65551 > v4
00:10:10 verbose #65552 > #endif
00:10:10 verbose #65553 > #if FABLE_COMPILER_RUST && CONTRACT
00:10:10 verbose #65554 > let v5 : string = null |> unbox<string>
00:10:10 verbose #65555 > v5
00:10:10 verbose #65556 > #endif
00:10:10 verbose #65557 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:10:10 verbose #65558 >
00:10:10 verbose #65559 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:10 verbose #65560 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:10:10 verbose #65561 > let v2 : (System.Guid -> string) = _.ToString()
00:10:10 verbose #65562 > let v3 : string = v2 v0
00:10:10 verbose #65563 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:10:10 verbose #65564 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:10:10 verbose #65565 > v5
00:10:10 verbose #65566 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:10:10 verbose #65567 > closure1(v0)
00:10:10 verbose #65568 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:10:10 verbose #65569 > let v3 : string = v2.Replace (v0, v1)
00:10:10 verbose #65570 > v3
00:10:10 verbose #65571 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:10:10 verbose #65572 > closure5(v0, v1)
00:10:10 verbose #65573 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:10:10 verbose #65574 > closure4(v0)
00:10:10 verbose #65575 > and method0 () : (string -> (string -> (string -> string))) =
00:10:10 verbose #65576 > closure3()
00:10:10 verbose #65577 > and closure2 (...
00:10:11 verbose #65578 >
00:10:11 verbose #65579 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:11 verbose #65580 > #if FABLE_COMPILER // async.types
00:10:11 verbose #65581 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:10:11 verbose #65582 > std_future_Future<'T> = class end
00:10:11 verbose #65583 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:10:11 verbose #65584 > futures_future_TryJoinAll<'T> = class end
00:10:11 verbose #65585 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:10:11 verbose #65586 > rayon_vec_IntoIter<'T> = class end
00:10:11 verbose #65587 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:10:11 verbose #65588 > rayon_iter_Map<'T> = class end
00:10:11 verbose #65589 > #endif // async.types
00:10:11 verbose #65590 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:10:11 verbose #65591 > Async<System.Threading.CancellationToken> =
00:10:11 verbose #65592 > let v1 : Async<System.Threading.CancellationToken> option = None
00:10:11 verbose #65593 > let v2 : bool = true in let mutable _v1 = v1
00:10:11 verbose #65594 > #if FABLE_COMPILER_RUST ...
00:10:11 verbose #65595 >
00:10:11 verbose #65596 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:11 verbose #65597 > type [[<Struct>]] US0 =
00:10:11 verbose #65598 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:10:11 verbose #65599 > | US0_1
00:10:11 verbose #65600 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:10:11 verbose #65601 > US0_0(v0)
00:10:11 verbose #65602 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:10:11 verbose #65603 > closure1()
00:10:11 verbose #65604 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:10:11 verbose #65605 > let v1 : unit option = None
00:10:11 verbose #65606 > let v2 : bool = true in let mutable _v1 = v1
00:10:11 verbose #65607 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:10:11 verbose #65608 > null |> unbox<unit>
00:10:11 verbose #65609 > ()
00:10:11 verbose #65610 > #endif
00:10:11 verbose #65611 > #if FABLE_COMPILER_RUST && WASM
00:10:11 verbose #65612 > null |> unbox<unit>
00:10:11 verbose #65613 > ()
00:10:11 verbose #65614 > #endif
00:10:11 verbose #65615 > #if FABLE_COMPILER_RUST && CONTRACT
00:10:11 verbose #65616 > null |> unbox<unit>
00:10:11 verbose #65617 > ()
00:10:11 verbose #65618 > #endif
00:10:11 verbose #65619 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:10:11 verbose #65620 > !WASM && !CONTRACT
00:10:11 verbose #65621 > ...
00:10:11 verbose #65622 >
00:10:11 verbose #65623 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:11 verbose #65624 > #if FABLE_COMPILER // networking.types
00:10:11 verbose #65625 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:10:11 verbose #65626 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:10:11 verbose #65627 > class end
00:10:11 verbose #65628 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:10:11 verbose #65629 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:10:11 verbose #65630 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:10:11 verbose #65631 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:10:11 verbose #65632 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:10:11 verbose #65633 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:10:11 verbose #65634 > class end
00:10:11 verbose #65635 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:10:11 verbose #65636 > [[<Fable.Core.Er...
00:10:12 verbose #65637 >
00:10:12 verbose #65638 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:12 verbose #65639 > #if FABLE_COMPILER // runtime.types
00:10:12 verbose #65640 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:10:12 verbose #65641 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:10:12 verbose #65642 > class end
00:10:12 verbose #65643 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:10:12 verbose #65644 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:10:12 verbose #65645 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:10:12 verbose #65646 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:10:12 verbose #65647 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:10:12 verbose #65648 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:10:12 verbose #65649 > class end
00:10:12 verbose #65650 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:10:12 verbose #65651 > [[<Fable.Core.Erase...
00:10:14 verbose #65652 >
00:10:14 verbose #65653 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:14 verbose #65654 > #if FABLE_COMPILER // file_system.types
00:10:14 verbose #65655 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:10:14 verbose #65656 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:10:14 verbose #65657 > base64_DecodeError = class end
00:10:14 verbose #65658 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:10:14 verbose #65659 > = class end
00:10:14 verbose #65660 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:10:14 verbose #65661 > = class end
00:10:14 verbose #65662 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:10:14 verbose #65663 > serde_json_Error = class end
00:10:14 verbose #65664 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:10:14 verbose #65665 > serde_json_Value = class end
00:10:14 verbose #65666 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:10:14 verbose #65667 > serde_wasm_bindgen_Error = class end
00:10:14 verbose #65668 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:10:15 verbose #65669 >
00:10:15 verbose #65670 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:15 verbose #65671 > #if FABLE_COMPILER // trace.types
00:10:15 verbose #65672 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:10:15 verbose #65673 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:10:15 verbose #65674 > class end
00:10:15 verbose #65675 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:10:15 verbose #65676 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:10:15 verbose #65677 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:10:15 verbose #65678 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:10:15 verbose #65679 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:10:15 verbose #65680 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:10:15 verbose #65681 > class end
00:10:15 verbose #65682 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:10:15 verbose #65683 > [[<Fable.Core.Erase; ...
00:10:16 verbose #65684 >
00:10:16 verbose #65685 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:16 verbose #65686 > module SpiralTrace =
00:10:16 verbose #65687 > let trace x =
00:10:16 verbose #65688 > #if !INTERACTIVE
00:10:16 verbose #65689 > Trace.trace x
00:10:16 verbose #65690 > #else
00:10:16 verbose #65691 > trace x
00:10:16 verbose #65692 > #endif
00:10:16 verbose #65693 >
00:10:16 verbose #65694 > type TraceLevel =
00:10:16 verbose #65695 > #if !INTERACTIVE
00:10:16 verbose #65696 > Trace.US0
00:10:16 verbose #65697 > #else
00:10:16 verbose #65698 > US0
00:10:16 verbose #65699 > #endif
00:10:16 verbose #65700 >
00:10:16 verbose #65701 > module SpiralCrypto =
00:10:16 verbose #65702 > let hash_text x =
00:10:16 verbose #65703 > #if !INTERACTIVE
00:10:16 verbose #65704 > Crypto.hash_text x
00:10:16 verbose #65705 > #else
00:10:16 verbose #65706 > hash_text x
00:10:16 verbose #65707 > #endif
00:10:16 verbose #65708 >
00:10:16 verbose #65709 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:10:16 verbose #65710 >
00:10:16 verbose #65711 > module SpiralAsync =
00:10:16 verbose #65712 > let merge_cancellation_token_with_default_async x =
00:10:16 verbose #65713 > #if !INTERACTIVE
00:10:16 verbose #65714 > Async_.merge_cancellation_token_with_default_async x
00:10:16 verbose #65715 > #else
00:10:16 verbose #65716 > merge_cancellation_token_with_default_async x
00:10:16 verbose #65717 > #endif
00:10:16 verbose #65718 >
00:10:16 verbose #65719 > module SpiralThreading =
00:10:16 verbose #65720 > let new_disposable_token x =
00:10:16 verbose #65721 > #if !INTERACTIVE
00:10:16 verbose #65722 > Threading.new_disposable_token x
00:10:16 verbose #65723 > #else
00:10:16 verbose #65724 > new_disposable_token x
00:10:16 verbose #65725 > #endif
00:10:16 verbose #65726 >
00:10:16 verbose #65727 > module Spi...
00:10:16 verbose #65728 >
00:10:16 verbose #65729 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:16 verbose #65730 > #if !INTERACTIVE
00:10:16 verbose #65731 > namespace Polyglot
00:10:16 verbose #65732 > #endif
00:10:16 verbose #65733 >
00:10:16 verbose #65734 > module Common =
00:10:16 verbose #65735 >
00:10:16 verbose #65736 > #if !INTERACTIVE
00:10:16 verbose #65737 > open Lib
00:10:16 verbose #65738 > #endif
00:10:16 verbose #65739 >
00:10:16 verbose #65740 > let nl = System.Environment.NewLine
00:10:16 verbose #65741 > let q = @""""
00:10:16 verbose #65742 >
00:10:16 verbose #65743 > let inline cons head tail = head :: tail
00:10:16 verbose #65744 >
00:10:16 verbose #65745 > /// ## memoize
00:10:16 verbose #65746 > let inline memoize fn =
00:10:16 verbose #65747 > let result = lazy fn ()
00:10:16 verbose #65748 > fun () -> result.Value
00:10:16 verbose #65749 >
00:10:16 verbose #65750 > /// ## TraceLevel
00:10:16 verbose #65751 > type TraceLevel =
00:10:16 verbose #65752 > | Verbose
00:10:16 verbose #65753 > | Debug
00:10:16 verbose #65754 > | Info
00:10:16 verbose #65755 > | Warning
00:10:16 verbose #65756 > | Critical
00:10:16 verbose #65757 >
00:10:16 verbose #65758 > let inline _locals () = ""
00:10:16 verbose #65759 >
00:10:16 verbose #65760 > /// ## trace
00:10:16 verbose #65761 > let to_trace_level = function
00:10:16 verbose #65762 > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:10:16 verbose #65763 > | Debug -> SpiralTrace.TraceLevel.US0_1
00:10:16 verbose #65764 > | Info -> SpiralTrace.TraceLevel.US0_2
00:10:16 verbose #65765 > | Warning -> SpiralTrace.TraceLevel.US0_3
00:10:16 verbose #65766 > | Critical -> Spir...
00:10:16 verbose #65767 >
00:10:16 verbose #65768 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:16 verbose #65769 > #if !INTERACTIVE
00:10:16 verbose #65770 > namespace Polyglot
00:10:16 verbose #65771 > #endif
00:10:16 verbose #65772 >
00:10:16 verbose #65773 > module CommonFSharp =
00:10:16 verbose #65774 >
00:10:16 verbose #65775 > open Common
00:10:16 verbose #65776 >
00:10:16 verbose #65777 > /// ## getUnionCaseName
00:10:16 verbose #65778 > let inline getUnionCaseName<'T> (x: 'T) =
00:10:16 verbose #65779 > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:10:16 verbose #65780 > | case, _ -> case.Name
00:10:16 verbose #65781 >
00:10:16 verbose #65782 >
00:10:16 verbose #65783 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:16 verbose #65784 > #if !INTERACTIVE
00:10:16 verbose #65785 > namespace Polyglot
00:10:16 verbose #65786 > #endif
00:10:16 verbose #65787 >
00:10:16 verbose #65788 > module Async =
00:10:16 verbose #65789 >
00:10:16 verbose #65790 > #if !INTERACTIVE
00:10:16 verbose #65791 > open Lib
00:10:16 verbose #65792 > #endif
00:10:16 verbose #65793 >
00:10:16 verbose #65794 > open Common
00:10:16 verbose #65795 >
00:10:16 verbose #65796 > /// ## choice
00:10:16 verbose #65797 > let inline choice asyncs = async {
00:10:16 verbose #65798 > let e = Event<_> ()
00:10:16 verbose #65799 > use cts = new System.Threading.CancellationTokenSource ()
00:10:16 verbose #65800 > let fn =
00:10:16 verbose #65801 > asyncs
00:10:16 verbose #65802 > |> Seq.map (fun a -> async {
00:10:16 verbose #65803 > let! x = a
00:10:16 verbose #65804 > e.Trigger x
00:10:16 verbose #65805 > })
00:10:16 verbose #65806 > |> Async.Parallel
00:10:16 verbose #65807 > |> Async.Ignore
00:10:16 verbose #65808 > Async.Start (fn, cts.Token)
00:10:16 verbose #65809 > let! result = Async.AwaitEvent e.Publish
00:10:16 verbose #65810 > cts.Cancel ()
00:10:16 verbose #65811 > return result
00:10:16 verbose #65812 > }
00:10:16 verbose #65813 >
00:10:16 verbose #65814 > /// ## map
00:10:16 verbose #65815 > let inline map fn a = async {
00:10:16 verbose #65816 > let! x = a
00:10:16 verbose #65817 > return fn x
00:10:16 verbose #65818 > }
00:10:16 verbose #65819 >
00:10:16 verbose #65820 > /// ## catch
00:10:16 verbose #65821 > let inline catch a =
00:10:16 verbose #65822 > ...
00:10:17 verbose #65823 >
00:10:17 verbose #65824 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:17 verbose #65825 > #if !INTERACTIVE
00:10:17 verbose #65826 > namespace Polyglot
00:10:17 verbose #65827 > #endif
00:10:17 verbose #65828 >
00:10:17 verbose #65829 > module AsyncSeq =
00:10:17 verbose #65830 >
00:10:17 verbose #65831 > #if !INTERACTIVE
00:10:17 verbose #65832 > open Lib
00:10:17 verbose #65833 > #endif
00:10:17 verbose #65834 >
00:10:17 verbose #65835 > open Common
00:10:17 verbose #65836 >
00:10:17 verbose #65837 > /// ## subscribeEvent
00:10:17 verbose #65838 > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:10:17 verbose #65839 > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:10:17 verbose #65840 > 'A>(event.AddHandler, event.RemoveHandler)
00:10:17 verbose #65841 > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:10:17 verbose #65842 > event.EventArgs)
00:10:17 verbose #65843 > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:10:17 verbose #65844 >
00:10:17 verbose #65845 > /// ## subscribeToken
00:10:17 verbose #65846 > let subscribeToken (token : System.Threading.CancellationToken) =
00:10:17 verbose #65847 > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:10:17 verbose #65848 > System.Action tcs.SetResult |> token.Register |> ignore
00:10:17 verbose #65849 > let start = System.DateTime.Now.Ticks...
00:10:17 verbose #65850 >
00:10:17 verbose #65851 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:17 verbose #65852 > #if !INTERACTIVE
00:10:17 verbose #65853 > namespace Polyglot
00:10:17 verbose #65854 > #endif
00:10:17 verbose #65855 >
00:10:17 verbose #65856 > module Runtime =
00:10:17 verbose #65857 >
00:10:17 verbose #65858 > #if !INTERACTIVE
00:10:17 verbose #65859 > open Lib
00:10:17 verbose #65860 > #endif
00:10:17 verbose #65861 >
00:10:17 verbose #65862 > open Common
00:10:17 verbose #65863 >
00:10:17 verbose #65864 > /// ## splitArgs
00:10:17 verbose #65865 > let inline splitArgs commandLine =
00:10:17 verbose #65866 > commandLine
00:10:17 verbose #65867 > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:10:17 verbose #65868 >
00:10:17 verbose #65869 > /// ## parseArgs
00:10:17 verbose #65870 > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:10:17 verbose #65871 > let assemblyName =
00:10:17 verbose #65872 > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:10:17 verbose #65873 > let errorHandler : Argu.IExiter =
00:10:17 verbose #65874 > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:10:17 verbose #65875 > List.contains assemblyName
00:10:17 verbose #65876 > then Argu.ExceptionExiter ()
00:10:17 verbose #65877 > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:10:17 verbose #65878 > _ -> Some System.ConsoleColor.R...
00:10:17 verbose #65879 >
00:10:17 verbose #65880 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:17 verbose #65881 > #if !INTERACTIVE
00:10:17 verbose #65882 > namespace Polyglot
00:10:17 verbose #65883 > #endif
00:10:17 verbose #65884 >
00:10:17 verbose #65885 > module FileSystem =
00:10:17 verbose #65886 >
00:10:17 verbose #65887 > #if !INTERACTIVE
00:10:17 verbose #65888 > open Lib
00:10:17 verbose #65889 > #endif
00:10:17 verbose #65890 >
00:10:17 verbose #65891 > open Common
00:10:17 verbose #65892 > open SpiralFileSystem.Operators
00:10:17 verbose #65893 >
00:10:17 verbose #65894 > /// ## watchDirectory
00:10:17 verbose #65895 > [[<RequireQualifiedAccess>]]
00:10:17 verbose #65896 > type FileSystemChangeType =
00:10:17 verbose #65897 > | Failure
00:10:17 verbose #65898 > | Changed
00:10:17 verbose #65899 > | Created
00:10:17 verbose #65900 > | Deleted
00:10:17 verbose #65901 > | Renamed
00:10:17 verbose #65902 >
00:10:17 verbose #65903 > [[<RequireQualifiedAccess>]]
00:10:17 verbose #65904 > type FileSystemChange =
00:10:17 verbose #65905 > | Failure of exn: exn
00:10:17 verbose #65906 > | Changed of path: string * content: string option
00:10:17 verbose #65907 > | Created of path: string * content: string option
00:10:17 verbose #65908 > | Deleted of path: string
00:10:17 verbose #65909 > | Renamed of oldPath: string * (string * string option)
00:10:17 verbose #65910 >
00:10:17 verbose #65911 >
00:10:17 verbose #65912 > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:10:17 verbose #65913 > let fullPath = path |> Syst...
00:10:17 verbose #65914 >
00:10:17 verbose #65915 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:17 verbose #65916 > #if !INTERACTIVE
00:10:17 verbose #65917 > open Lib
00:10:17 verbose #65918 > #endif
00:10:17 verbose #65919 >
00:10:17 verbose #65920 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:17 verbose #65921 > open Common
00:10:17 verbose #65922 > open SpiralFileSystem.Operators
00:10:17 verbose #65923 >
00:10:17 verbose #65924 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:10:17 verbose #65925 > let repositoryRoot = SpiralFileSystem.get_repository_root ()
00:10:17 verbose #65926 > let tmpSpiralPath = repositoryRoot </> "target/polyglot/plotting"
00:10:17 verbose #65927 > let linePlotsDataPath = tmpSpiralPath </> "line_data"
00:10:17 verbose #65928 > let linePlotsSvgPath = tmpSpiralPath </> "line_svg"
00:10:17 verbose #65929 >
00:10:17 verbose #65930 > [[ tmpSpiralPath; linePlotsDataPath; linePlotsSvgPath ]]
00:10:17 verbose #65931 > |> List.iter (fun dir -> if Directory.Exists dir |> not then
00:10:17 verbose #65932 > Directory.CreateDirectory dir |> ignore)
00:10:17 verbose #65933 >
00:10:17 verbose #65934 > Formatter.Register<struct (string * string * string * struct (string * float
00:10:17 verbose #65935 > array * float array) array)> (
00:10:17 verbose #65936 > (fun struct (caption, x_desc, y_desc, ys) ->
00:10:17 verbose #65937 > let json = (caption, x_desc, y_desc, ys) |> FSharp.Json.Json.serialize
00:10:17 verbose #65938 > async {
00:10:17 verbose #65939 > let hashHex = json |> SpiralCrypto.hash_text
00:10:17 verbose #65940 > let svgPath = linePlotsSvgPath </> $"...
00:10:18 verbose #65941 >
00:10:18 verbose #65942 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:18 verbose #65943 > // // test
00:10:18 verbose #65944 >
00:10:18 verbose #65945 > open testing
00:10:19 verbose #65946 > 00:10:18 debug #744 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:10:19 verbose #65947 >
00:10:19 verbose #65948 > ╭─[ 1.30s - stdout ]───────────────────────────────────────────────────────────╮
00:10:19 verbose #65949 > │ () │
00:10:19 verbose #65950 > │ │
00:10:19 verbose #65951 > │ │
00:10:19 verbose #65952 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:19 verbose #65953 >
00:10:19 verbose #65954 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:19 verbose #65955 > open listm'_operators
00:10:19 verbose #65956 > 00:10:19 debug #745 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/57b3e233f8078b43cef5d98551cf98bae9dc3b21df53bed25f284d199ff708dd/main.spi
00:10:19 verbose #65957 >
00:10:19 verbose #65958 > ╭─[ 225.08ms - stdout ]────────────────────────────────────────────────────────╮
00:10:19 verbose #65959 > │ () │
00:10:19 verbose #65960 > │ │
00:10:19 verbose #65961 > │ │
00:10:19 verbose #65962 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:19 verbose #65963 >
00:10:19 verbose #65964 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:19 verbose #65965 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:19 verbose #65966 > │ ## init_series │
00:10:19 verbose #65967 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:19 verbose #65968 >
00:10:19 verbose #65969 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:19 verbose #65970 > // // test
00:10:19 verbose #65971 >
00:10:19 verbose #65972 > inl x : a _ f64 = am'.init_series -3 3 0.01
00:10:19 verbose #65973 > inl y = x |> am.map math.square
00:10:19 verbose #65974 > "square", "x", "y", ;[[ "square", x, y ]]
00:10:19 verbose #65975 > 00:10:19 debug #746 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0449c0f87005948ff44a52881eaf559cb5510130812aa8fa45a5c226ff0d315b/main.spi
00:10:20 verbose #65976 >
00:10:20 verbose #65977 > ╭─[ 424.80ms - return value ]──────────────────────────────────────────────────╮
00:10:20 verbose #65978 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:20 verbose #65979 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:20 verbose #65980 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:20 verbose #65981 > │ stroke="none"/> │
00:10:20 verbose #65982 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:20 verbose #65983 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:20 verbose #65984 > │ fill="#FFFFFF"> │
00:10:20 verbose #65985 > │ square │
00:10:20 verbose #65986 > │ </text> │
00:10:20 verbose #65987 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:10:20 verbose #65988 > │ y2="75"/> │
00:10:20 verbose #65989 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:20 verbose #65990 > │ y2="75"/> │
00:10:20 verbose #65991 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:10:20 verbose #65992 > │ y2="75"/> │
00:10:20 verbose #65993 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:10:20 verbose #65994 > │ y2="75"/> │
00:10:20 verbose #65995 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:10:20 verbose #65996 > │ ... │
00:10:20 verbose #65997 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #65998 >
00:10:20 verbose #65999 > ╭─[ 437.62ms - stdout ]────────────────────────────────────────────────────────╮
00:10:20 verbose #66000 > │ type Mut0 = {mutable l0 : int32} │
00:10:20 verbose #66001 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:20 verbose #66002 > │ let v1 : int32 = v0.l0 │
00:10:20 verbose #66003 > │ let v2 : bool = v1 < 601 │
00:10:20 verbose #66004 > │ v2 │
00:10:20 verbose #66005 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:20 verbose #66006 > │ let v2 : int32 = v1.l0 │
00:10:20 verbose #66007 > │ let v3 : bool = v2 < v0 │
00:10:20 verbose #66008 > │ v3 │
00:10:20 verbose #66009 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:20 verbose #66010 > │ []) * (float [])) [])) = │
00:10:20 verbose #66011 > │ let v0 : (float []) = Array.zeroCreate<float> (601) │
00:10:20 verbose #66012 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66013 > │ while method1(v1) do │
00:10:20 verbose #66014 > │ let v3 : int32 = v1.l0 │
00:10:20 verbose #66015 > │ let v4 : float = float v3 │
00:10:20 verbose #66016 > │ let v5 : float = 0.01 * v4 │
00:10:20 verbose #66017 > │ let v6 : float = -3.0 + v5 │
00:10:20 verbose #66018 > │ v0.[int v3] <- v6 │
00:10:20 verbose #66019 > │ let v7 : int32 = v3 + 1 │
00:10:20 verbose #66020 > │ v1.l0 <- v7 │
00:10:20 verbose #66021 > │ () │
00:10:20 verbose #66022 > │ let v8 : int32 = v0.Length │
00:10:20 verbose #66023 > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:10:20 verbose #66024 > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66025 > │ while method2(v8, v10) do │
00:10:20 verbose #66026 > │ let v12 : int32 = v10.l0 │
00:10:20 verbose #66027 > │ let v13 : float = v0.[int v12] │
00:10:20 verbose #66028 > │ let v14 : float = v13 ** 2.0 │
00:10:20 verbose #66029 > │ v9.[int v12] <- v14 │
00:10:20 verbose #66030 > │ let v15 : int32 = v12 + 1 │
00:10:20 verbose #66031 > │ v10.l0 <- v15 │
00:10:20 verbose #66032 > │ () │
00:10:20 verbose #66033 > │ let v16 : string = "square" │
00:10:20 verbose #66034 > │ let v17 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:20 verbose #66035 > │ (v16, v0, v9)|] │
00:10:20 verbose #66036 > │ let v18 : string = "x" │
00:10:20 verbose #66037 > │ let v19 : string = "y" │
00:10:20 verbose #66038 > │ struct (v16, v18, v19, v17) │
00:10:20 verbose #66039 > │ method0() │
00:10:20 verbose #66040 > │ │
00:10:20 verbose #66041 > │ │
00:10:20 verbose #66042 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #66043 >
00:10:20 verbose #66044 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:20 verbose #66045 > // // test
00:10:20 verbose #66046 >
00:10:20 verbose #66047 > inl x : a _ f64 = am'.init_series -10 10 0.1
00:10:20 verbose #66048 > inl y_sin = x |> am.map sin
00:10:20 verbose #66049 > inl y_cos = x |> am.map cos
00:10:20 verbose #66050 > "sin cos", "x", "y", ;[[ "sin", x, y_sin; "cos", x, y_cos ]]
00:10:20 verbose #66051 > 00:10:19 debug #747 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/31935fcb7a36c7d27e2a6736430fd8585c36b2dd921469c03f41118dbacd488c/main.spi
00:10:20 verbose #66052 >
00:10:20 verbose #66053 > ╭─[ 270.41ms - return value ]──────────────────────────────────────────────────╮
00:10:20 verbose #66054 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:20 verbose #66055 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:20 verbose #66056 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:20 verbose #66057 > │ stroke="none"/> │
00:10:20 verbose #66058 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:20 verbose #66059 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:20 verbose #66060 > │ fill="#FFFFFF"> │
00:10:20 verbose #66061 > │ sin cos │
00:10:20 verbose #66062 > │ </text> │
00:10:20 verbose #66063 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:10:20 verbose #66064 > │ y2="75"/> │
00:10:20 verbose #66065 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:20 verbose #66066 > │ y2="75"/> │
00:10:20 verbose #66067 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:10:20 verbose #66068 > │ y2="75"/> │
00:10:20 verbose #66069 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:10:20 verbose #66070 > │ y2="75"/> │
00:10:20 verbose #66071 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:10:20 verbose #66072 > │ x2="10... │
00:10:20 verbose #66073 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #66074 >
00:10:20 verbose #66075 > ╭─[ 285.91ms - stdout ]────────────────────────────────────────────────────────╮
00:10:20 verbose #66076 > │ type Mut0 = {mutable l0 : int32} │
00:10:20 verbose #66077 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:20 verbose #66078 > │ let v1 : int32 = v0.l0 │
00:10:20 verbose #66079 > │ let v2 : bool = v1 < 201 │
00:10:20 verbose #66080 > │ v2 │
00:10:20 verbose #66081 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:20 verbose #66082 > │ let v2 : int32 = v1.l0 │
00:10:20 verbose #66083 > │ let v3 : bool = v2 < v0 │
00:10:20 verbose #66084 > │ v3 │
00:10:20 verbose #66085 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:20 verbose #66086 > │ []) * (float [])) [])) = │
00:10:20 verbose #66087 > │ let v0 : (float []) = Array.zeroCreate<float> (201) │
00:10:20 verbose #66088 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66089 > │ while method1(v1) do │
00:10:20 verbose #66090 > │ let v3 : int32 = v1.l0 │
00:10:20 verbose #66091 > │ let v4 : float = float v3 │
00:10:20 verbose #66092 > │ let v5 : float = 0.1 * v4 │
00:10:20 verbose #66093 > │ let v6 : float = -10.0 + v5 │
00:10:20 verbose #66094 > │ v0.[int v3] <- v6 │
00:10:20 verbose #66095 > │ let v7 : int32 = v3 + 1 │
00:10:20 verbose #66096 > │ v1.l0 <- v7 │
00:10:20 verbose #66097 > │ () │
00:10:20 verbose #66098 > │ let v8 : int32 = v0.Length │
00:10:20 verbose #66099 > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:10:20 verbose #66100 > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66101 > │ while method2(v8, v10) do │
00:10:20 verbose #66102 > │ let v12 : int32 = v10.l0 │
00:10:20 verbose #66103 > │ let v13 : float = v0.[int v12] │
00:10:20 verbose #66104 > │ let v14 : float = sin v13 │
00:10:20 verbose #66105 > │ v9.[int v12] <- v14 │
00:10:20 verbose #66106 > │ let v15 : int32 = v12 + 1 │
00:10:20 verbose #66107 > │ v10.l0 <- v15 │
00:10:20 verbose #66108 > │ () │
00:10:20 verbose #66109 > │ let v16 : (float []) = Array.zeroCreate<float> (v8) │
00:10:20 verbose #66110 > │ let v17 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66111 > │ while method2(v8, v17) do │
00:10:20 verbose #66112 > │ let v19 : int32 = v17.l0 │
00:10:20 verbose #66113 > │ let v20 : float = v0.[int v19] │
00:10:20 verbose #66114 > │ let v21 : float = cos v20 │
00:10:20 verbose #66115 > │ v16.[int v19] <- v21 │
00:10:20 verbose #66116 > │ let v22 : int32 = v19 + 1 │
00:10:20 verbose #66117 > │ v17.l0 <- v22 │
00:10:20 verbose #66118 > │ () │
00:10:20 verbose #66119 > │ let v23 : string = "sin" │
00:10:20 verbose #66120 > │ let v24 : string = "cos" │
00:10:20 verbose #66121 > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:20 verbose #66122 > │ (v23, v0, v9); struct (v24, v0, v16)|] │
00:10:20 verbose #66123 > │ let v26 : string = "sin cos" │
00:10:20 verbose #66124 > │ let v27 : string = "x" │
00:10:20 verbose #66125 > │ let v28 : string = "y" │
00:10:20 verbose #66126 > │ struct (v26, v27, v28, v25) │
00:10:20 verbose #66127 > │ method0() │
00:10:20 verbose #66128 > │ │
00:10:20 verbose #66129 > │ │
00:10:20 verbose #66130 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #66131 >
00:10:20 verbose #66132 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:20 verbose #66133 > // // test
00:10:20 verbose #66134 >
00:10:20 verbose #66135 > inl y_pos y0 vy0 ay t =
00:10:20 verbose #66136 > y0 + vy0 * t + ay * (t |> math.square) / 2
00:10:20 verbose #66137 >
00:10:20 verbose #66138 > inl x : a _ f64 = am'.init_series 0 5 0.01
00:10:20 verbose #66139 > inl y = x |> am.map (y_pos 0 20 -9.8)
00:10:20 verbose #66140 > "projectile motion", "time (s)", "", ;[[ "height of projectile (m)", x, y ]]
00:10:20 verbose #66141 > 00:10:20 debug #748 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/10da5a316a98dd9c8e1fdbf98aea21ef7dfc06e1d55ef490be6c36784f69a323/main.spi
00:10:20 verbose #66142 >
00:10:20 verbose #66143 > ╭─[ 359.56ms - return value ]──────────────────────────────────────────────────╮
00:10:20 verbose #66144 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:20 verbose #66145 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:20 verbose #66146 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:20 verbose #66147 > │ stroke="none"/> │
00:10:20 verbose #66148 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:20 verbose #66149 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:20 verbose #66150 > │ fill="#FFFFFF"> │
00:10:20 verbose #66151 > │ projectile motion │
00:10:20 verbose #66152 > │ </text> │
00:10:20 verbose #66153 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:20 verbose #66154 > │ y2="75"/> │
00:10:20 verbose #66155 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:20 verbose #66156 > │ y2="75"/> │
00:10:20 verbose #66157 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:20 verbose #66158 > │ y2="75"/> │
00:10:20 verbose #66159 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:20 verbose #66160 > │ y2="75"/> │
00:10:20 verbose #66161 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="42... │
00:10:20 verbose #66162 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #66163 >
00:10:20 verbose #66164 > ╭─[ 369.31ms - stdout ]────────────────────────────────────────────────────────╮
00:10:20 verbose #66165 > │ type Mut0 = {mutable l0 : int32} │
00:10:20 verbose #66166 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:20 verbose #66167 > │ let v1 : int32 = v0.l0 │
00:10:20 verbose #66168 > │ let v2 : bool = v1 < 501 │
00:10:20 verbose #66169 > │ v2 │
00:10:20 verbose #66170 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:20 verbose #66171 > │ let v2 : int32 = v1.l0 │
00:10:20 verbose #66172 > │ let v3 : bool = v2 < v0 │
00:10:20 verbose #66173 > │ v3 │
00:10:20 verbose #66174 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:20 verbose #66175 > │ []) * (float [])) [])) = │
00:10:20 verbose #66176 > │ let v0 : (float []) = Array.zeroCreate<float> (501) │
00:10:20 verbose #66177 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66178 > │ while method1(v1) do │
00:10:20 verbose #66179 > │ let v3 : int32 = v1.l0 │
00:10:20 verbose #66180 > │ let v4 : float = float v3 │
00:10:20 verbose #66181 > │ let v5 : float = 0.01 * v4 │
00:10:20 verbose #66182 > │ v0.[int v3] <- v5 │
00:10:20 verbose #66183 > │ let v6 : int32 = v3 + 1 │
00:10:20 verbose #66184 > │ v1.l0 <- v6 │
00:10:20 verbose #66185 > │ () │
00:10:20 verbose #66186 > │ let v7 : int32 = v0.Length │
00:10:20 verbose #66187 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:20 verbose #66188 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:20 verbose #66189 > │ while method2(v7, v9) do │
00:10:20 verbose #66190 > │ let v11 : int32 = v9.l0 │
00:10:20 verbose #66191 > │ let v12 : float = v0.[int v11] │
00:10:20 verbose #66192 > │ let v13 : float = 20.0 * v12 │
00:10:20 verbose #66193 > │ let v14 : float = v12 ** 2.0 │
00:10:20 verbose #66194 > │ let v15 : float = -9.8 * v14 │
00:10:20 verbose #66195 > │ let v16 : float = v15 / 2.0 │
00:10:20 verbose #66196 > │ let v17 : float = v13 + v16 │
00:10:20 verbose #66197 > │ v8.[int v11] <- v17 │
00:10:20 verbose #66198 > │ let v18 : int32 = v11 + 1 │
00:10:20 verbose #66199 > │ v9.l0 <- v18 │
00:10:20 verbose #66200 > │ () │
00:10:20 verbose #66201 > │ let v19 : string = "height of projectile (m)" │
00:10:20 verbose #66202 > │ let v20 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:20 verbose #66203 > │ (v19, v0, v8)|] │
00:10:20 verbose #66204 > │ let v21 : string = "projectile motion" │
00:10:20 verbose #66205 > │ let v22 : string = "time (s)" │
00:10:20 verbose #66206 > │ let v23 : string = "" │
00:10:20 verbose #66207 > │ struct (v21, v22, v23, v20) │
00:10:20 verbose #66208 > │ method0() │
00:10:20 verbose #66209 > │ │
00:10:20 verbose #66210 > │ │
00:10:20 verbose #66211 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #66212 >
00:10:20 verbose #66213 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:20 verbose #66214 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:20 verbose #66215 > │ ## velocity_cf │
00:10:20 verbose #66216 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #66217 >
00:10:20 verbose #66218 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:20 verbose #66219 > type mass = f64
00:10:20 verbose #66220 > type time = f64
00:10:20 verbose #66221 > type position = f64
00:10:20 verbose #66222 > type velocity = f64
00:10:20 verbose #66223 > type force = f64
00:10:20 verbose #66224 >
00:10:20 verbose #66225 > type velocity_cf = mass -> velocity -> list force -> (time -> velocity)
00:10:20 verbose #66226 >
00:10:20 verbose #66227 > inl velocity_cf m v0 fs =
00:10:20 verbose #66228 > inl f_net = fs |> listm'.sum
00:10:20 verbose #66229 > inl a0 = f_net / m
00:10:20 verbose #66230 > inl v t = v0 + a0 * t
00:10:20 verbose #66231 > v
00:10:21 verbose #66232 > 00:10:20 debug #749 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/09c46f40acfcb898ae8e6b8843d59ab5917f50368e1d383a0c2270178c7e7b6c/main.spi
00:10:21 verbose #66233 >
00:10:21 verbose #66234 > ╭─[ 230.66ms - stdout ]────────────────────────────────────────────────────────╮
00:10:21 verbose #66235 > │ () │
00:10:21 verbose #66236 > │ │
00:10:21 verbose #66237 > │ │
00:10:21 verbose #66238 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #66239 >
00:10:21 verbose #66240 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:21 verbose #66241 > // // test
00:10:21 verbose #66242 >
00:10:21 verbose #66243 > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 0
00:10:21 verbose #66244 > |> _assert_eq 0.6
00:10:21 verbose #66245 >
00:10:21 verbose #66246 > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 1
00:10:21 verbose #66247 > |> _assert_eq 0.2
00:10:21 verbose #66248 > 00:10:20 debug #750 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/14c86fb6f214ea352e7ce11a5862e32020c1068108dab1e39900e0cf320dc2f8/main.spi
00:10:21 verbose #66249 >
00:10:21 verbose #66250 > ╭─[ 271.83ms - stdout ]────────────────────────────────────────────────────────╮
00:10:21 verbose #66251 > │ let rec method0 () : unit = │
00:10:21 verbose #66252 > │ let v0 : string = $"%A{0.6}" │
00:10:21 verbose #66253 > │ System.Console.WriteLine v0 │
00:10:21 verbose #66254 > │ let v1 : string = $"__expect / actual: %A{0.6} / expected: %A{0.6}" │
00:10:21 verbose #66255 > │ let v2 : string = $"%A{0.2}" │
00:10:21 verbose #66256 > │ System.Console.WriteLine v2 │
00:10:21 verbose #66257 > │ let v3 : string = $"__expect / actual: %A{0.2} / expected: %A{0.2}" │
00:10:21 verbose #66258 > │ () │
00:10:21 verbose #66259 > │ method0() │
00:10:21 verbose #66260 > │ │
00:10:21 verbose #66261 > │ 0.6 │
00:10:21 verbose #66262 > │ 0.2 │
00:10:21 verbose #66263 > │ │
00:10:21 verbose #66264 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #66265 >
00:10:21 verbose #66266 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:21 verbose #66267 > // // test
00:10:21 verbose #66268 >
00:10:21 verbose #66269 > inl x = am'.init_series 0 4 0.1
00:10:21 verbose #66270 > inl y = x |> am.map (velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]])
00:10:21 verbose #66271 > "car on an air track", "time (s)", "", ;[[ "velocity of car (m/s)", x, y ]]
00:10:21 verbose #66272 > 00:10:20 debug #751 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3a87803d3d74cd12d200b974dc0c5a09f3dbbe67ab571f44f693ca5185327052/main.spi
00:10:21 verbose #66273 >
00:10:21 verbose #66274 > ╭─[ 333.74ms - return value ]──────────────────────────────────────────────────╮
00:10:21 verbose #66275 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:21 verbose #66276 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:21 verbose #66277 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:21 verbose #66278 > │ stroke="none"/> │
00:10:21 verbose #66279 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:21 verbose #66280 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:21 verbose #66281 > │ fill="#FFFFFF"> │
00:10:21 verbose #66282 > │ car on an air track │
00:10:21 verbose #66283 > │ </text> │
00:10:21 verbose #66284 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:10:21 verbose #66285 > │ y2="75"/> │
00:10:21 verbose #66286 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:21 verbose #66287 > │ y2="75"/> │
00:10:21 verbose #66288 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:10:21 verbose #66289 > │ y2="75"/> │
00:10:21 verbose #66290 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:10:21 verbose #66291 > │ y2="75"/> │
00:10:21 verbose #66292 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1=... │
00:10:21 verbose #66293 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #66294 >
00:10:21 verbose #66295 > ╭─[ 344.79ms - stdout ]────────────────────────────────────────────────────────╮
00:10:21 verbose #66296 > │ type Mut0 = {mutable l0 : int32} │
00:10:21 verbose #66297 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:21 verbose #66298 > │ let v1 : int32 = v0.l0 │
00:10:21 verbose #66299 > │ let v2 : bool = v1 < 41 │
00:10:21 verbose #66300 > │ v2 │
00:10:21 verbose #66301 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:21 verbose #66302 > │ let v2 : int32 = v1.l0 │
00:10:21 verbose #66303 > │ let v3 : bool = v2 < v0 │
00:10:21 verbose #66304 > │ v3 │
00:10:21 verbose #66305 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:21 verbose #66306 > │ []) * (float [])) [])) = │
00:10:21 verbose #66307 > │ let v0 : (float []) = Array.zeroCreate<float> (41) │
00:10:21 verbose #66308 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:21 verbose #66309 > │ while method1(v1) do │
00:10:21 verbose #66310 > │ let v3 : int32 = v1.l0 │
00:10:21 verbose #66311 > │ let v4 : float = float v3 │
00:10:21 verbose #66312 > │ let v5 : float = 0.1 * v4 │
00:10:21 verbose #66313 > │ v0.[int v3] <- v5 │
00:10:21 verbose #66314 > │ let v6 : int32 = v3 + 1 │
00:10:21 verbose #66315 > │ v1.l0 <- v6 │
00:10:21 verbose #66316 > │ () │
00:10:21 verbose #66317 > │ let v7 : int32 = v0.Length │
00:10:21 verbose #66318 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:21 verbose #66319 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:21 verbose #66320 > │ while method2(v7, v9) do │
00:10:21 verbose #66321 > │ let v11 : int32 = v9.l0 │
00:10:21 verbose #66322 > │ let v12 : float = v0.[int v11] │
00:10:21 verbose #66323 > │ let v13 : float = -0.39999999999999997 * v12 │
00:10:21 verbose #66324 > │ let v14 : float = 0.6 + v13 │
00:10:21 verbose #66325 > │ v8.[int v11] <- v14 │
00:10:21 verbose #66326 > │ let v15 : int32 = v11 + 1 │
00:10:21 verbose #66327 > │ v9.l0 <- v15 │
00:10:21 verbose #66328 > │ () │
00:10:21 verbose #66329 > │ let v16 : string = "velocity of car (m/s)" │
00:10:21 verbose #66330 > │ let v17 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:21 verbose #66331 > │ (v16, v0, v8)|] │
00:10:21 verbose #66332 > │ let v18 : string = "car on an air track" │
00:10:21 verbose #66333 > │ let v19 : string = "time (s)" │
00:10:21 verbose #66334 > │ let v20 : string = "" │
00:10:21 verbose #66335 > │ struct (v18, v19, v20, v17) │
00:10:21 verbose #66336 > │ method0() │
00:10:21 verbose #66337 > │ │
00:10:21 verbose #66338 > │ │
00:10:21 verbose #66339 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #66340 >
00:10:21 verbose #66341 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:21 verbose #66342 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:21 verbose #66343 > │ ## derivative │
00:10:21 verbose #66344 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #66345 >
00:10:21 verbose #66346 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:21 verbose #66347 > type derivative = (f64 -> f64) -> f64 -> f64
00:10:21 verbose #66348 >
00:10:21 verbose #66349 > inl derivative dt : derivative =
00:10:21 verbose #66350 > fun x t =>
00:10:21 verbose #66351 > (x (t + dt / 2) - x (t - dt / 2)) / dt
00:10:21 verbose #66352 > 00:10:21 debug #752 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f62fa942fd54a23fb7d2a7760f27a8763e2ec5d1b3de90d76f0fad52176c6146/main.spi
00:10:22 verbose #66353 >
00:10:22 verbose #66354 > ╭─[ 202.38ms - stdout ]────────────────────────────────────────────────────────╮
00:10:22 verbose #66355 > │ () │
00:10:22 verbose #66356 > │ │
00:10:22 verbose #66357 > │ │
00:10:22 verbose #66358 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #66359 >
00:10:22 verbose #66360 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:22 verbose #66361 > // // test
00:10:22 verbose #66362 >
00:10:22 verbose #66363 > derivative 1 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66364 > |> _assert_approx_eq None 0.25
00:10:22 verbose #66365 >
00:10:22 verbose #66366 > derivative 0.001 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66367 > |> _assert_approx_eq None 0.0000002499998827953931
00:10:22 verbose #66368 >
00:10:22 verbose #66369 > derivative 0.000001 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66370 > |> _assert_approx_eq None 0.000000000001000088900582341
00:10:22 verbose #66371 >
00:10:22 verbose #66372 > derivative 0.000000001 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66373 > |> _assert_approx_eq None 0.00000008274037099909037
00:10:22 verbose #66374 >
00:10:22 verbose #66375 > derivative 0.000000000001 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66376 > |> _assert_approx_eq None 0.00008890058234101161
00:10:22 verbose #66377 >
00:10:22 verbose #66378 > derivative 0.000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66379 > |> _assert_approx_eq None -0.0007992778373592246
00:10:22 verbose #66380 >
00:10:22 verbose #66381 > derivative 0.000000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:10:22 verbose #66382 > |> _assert_approx_eq None -1
00:10:22 verbose #66383 > 00:10:21 debug #753 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ac36a4f469df9844cbf6dbfe2fa3f4dde2f8c4db9f26b779c87fde0ee50f0795/main.spi
00:10:22 verbose #66384 >
00:10:22 verbose #66385 > ╭─[ 320.71ms - stdout ]────────────────────────────────────────────────────────╮
00:10:22 verbose #66386 > │ let rec method0 () : unit = │
00:10:22 verbose #66387 > │ let v0 : string = $"%A{0.25}" │
00:10:22 verbose #66388 > │ System.Console.WriteLine v0 │
00:10:22 verbose #66389 > │ let v1 : string = $"__expect / actual: %A{0.25} / expected: %A{0.25}" │
00:10:22 verbose #66390 > │ let v2 : string = $"%A{2.499998827953931E-07}" │
00:10:22 verbose #66391 > │ System.Console.WriteLine v2 │
00:10:22 verbose #66392 > │ let v3 : string = $"__expect / actual: %A{2.499998827953931E-07} / │
00:10:22 verbose #66393 > │ expected: %A{2.499998827953931E-07}" │
00:10:22 verbose #66394 > │ let v4 : string = $"%A{1.000088900582341E-12}" │
00:10:22 verbose #66395 > │ System.Console.WriteLine v4 │
00:10:22 verbose #66396 > │ let v5 : string = $"__expect / actual: %A{1.000088900582341E-12} / │
00:10:22 verbose #66397 > │ expected: %A{1.000088900582341E-12}" │
00:10:22 verbose #66398 > │ let v6 : string = $"%A{8.274037099909037E-08}" │
00:10:22 verbose #66399 > │ System.Console.WriteLine v6 │
00:10:22 verbose #66400 > │ let v7 : string = $"__expect / actual: %A{8.274037099909037E-08} / │
00:10:22 verbose #66401 > │ expected: %A{8.274037099909037E-08}" │
00:10:22 verbose #66402 > │ let v8 : string = $"%A{8.890058234101161E-05}" │
00:10:22 verbose #66403 > │ System.Console.WriteLine v8 │
00:10:22 verbose #66404 > │ let v9 : string = $"__expect / actual: %A{8.890058234101161E-05} / │
00:10:22 verbose #66405 > │ expected: %A{8.890058234101161E-05}" │
00:10:22 verbose #66406 > │ let v10 : string = $"%A{-0.0007992778373592246}" │
00:10:22 verbose #66407 > │ System.Console.WriteLine v10 │
00:10:22 verbose #66408 > │ let v11 : string = $"__expect / actual: %A{-0.0007992778373592246} / │
00:10:22 verbose #66409 > │ expected: %A{-0.0007992778373592246}" │
00:10:22 verbose #66410 > │ let v12 : string = $"%A{-1.0}" │
00:10:22 verbose #66411 > │ System.Console.WriteLine v12 │
00:10:22 verbose #66412 > │ let v13 : string = $"__expect / actual: %A{-1.0} / expected: %A{-1.0}" │
00:10:22 verbose #66413 > │ () │
00:10:22 verbose #66414 > │ method0() │
00:10:22 verbose #66415 > │ │
00:10:22 verbose #66416 > │ 0.25 │
00:10:22 verbose #66417 > │ 2.499998828e-07 │
00:10:22 verbose #66418 > │ 1.000088901e-12 │
00:10:22 verbose #66419 > │ 8.2740371e-08 │
00:10:22 verbose #66420 > │ 8.890058234e-05 │
00:10:22 verbose #66421 > │ -0.0007992778374 │
00:10:22 verbose #66422 > │ -1.0 │
00:10:22 verbose #66423 > │ │
00:10:22 verbose #66424 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #66425 >
00:10:22 verbose #66426 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:22 verbose #66427 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:22 verbose #66428 > │ ## integration │
00:10:22 verbose #66429 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #66430 >
00:10:22 verbose #66431 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:22 verbose #66432 > type integration = (f64 -> f64) -> f64 -> f64 -> f64
00:10:22 verbose #66433 >
00:10:22 verbose #66434 > inl integral dt : integration =
00:10:22 verbose #66435 > fun f a b =>
00:10:22 verbose #66436 > inl rec loop t y =
00:10:22 verbose #66437 > if t < b
00:10:22 verbose #66438 > then loop (t + dt) (y + f t * dt)
00:10:22 verbose #66439 > else t, y
00:10:22 verbose #66440 > loop (a + dt / 2) 0
00:10:22 verbose #66441 > |> snd
00:10:22 verbose #66442 > 00:10:21 debug #754 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a59da5f2a573ab66d523c994153baf17bdc48fb399ba5dde006aef94787f9f06/main.spi
00:10:22 verbose #66443 >
00:10:22 verbose #66444 > ╭─[ 211.11ms - stdout ]────────────────────────────────────────────────────────╮
00:10:22 verbose #66445 > │ () │
00:10:22 verbose #66446 > │ │
00:10:22 verbose #66447 > │ │
00:10:22 verbose #66448 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #66449 >
00:10:22 verbose #66450 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:22 verbose #66451 > // // test
00:10:22 verbose #66452 >
00:10:22 verbose #66453 > integral 0.01 math.square 0 1
00:10:22 verbose #66454 > |> _assert_approx_eq None 0.33332500000000004
00:10:22 verbose #66455 > 00:10:22 debug #755 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/17fd69da1bc84f350e91e67dc11421a58185fcd5b1d9ce173535944c4e9f36c1/main.spi
00:10:22 verbose #66456 >
00:10:22 verbose #66457 > ╭─[ 256.98ms - stdout ]────────────────────────────────────────────────────────╮
00:10:22 verbose #66458 > │ let rec method0 () : unit = │
00:10:22 verbose #66459 > │ let v0 : string = $"%A{0.3333250000000004}" │
00:10:22 verbose #66460 > │ System.Console.WriteLine v0 │
00:10:22 verbose #66461 > │ let v1 : string = $"__expect / actual: %A{0.3333250000000004} / │
00:10:22 verbose #66462 > │ expected: %A{0.33332500000000004}" │
00:10:22 verbose #66463 > │ () │
00:10:22 verbose #66464 > │ method0() │
00:10:22 verbose #66465 > │ │
00:10:22 verbose #66466 > │ 0.333325 │
00:10:22 verbose #66467 > │ │
00:10:22 verbose #66468 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #66469 >
00:10:22 verbose #66470 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:22 verbose #66471 > inl integral' dt : integration =
00:10:22 verbose #66472 > fun f a b =>
00:10:22 verbose #66473 > listm'.init_series (a + dt / 2) (b - dt / 2) dt
00:10:22 verbose #66474 > |> listm.map (f >> (*) dt)
00:10:22 verbose #66475 > |> listm'.sum
00:10:22 verbose #66476 > 00:10:22 debug #756 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4f971dd297fd5181766262311dfee64da39d5f78e2272647a3dec805c5bb3e6d/main.spi
00:10:23 verbose #66477 >
00:10:23 verbose #66478 > ╭─[ 226.46ms - stdout ]────────────────────────────────────────────────────────╮
00:10:23 verbose #66479 > │ () │
00:10:23 verbose #66480 > │ │
00:10:23 verbose #66481 > │ │
00:10:23 verbose #66482 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:23 verbose #66483 >
00:10:23 verbose #66484 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:23 verbose #66485 > // // test
00:10:23 verbose #66486 >
00:10:23 verbose #66487 > integral' 0.1 math.square 0 1
00:10:23 verbose #66488 > |> _assert_approx_eq None (integral 0.1 math.square 0 1)
00:10:23 verbose #66489 > 00:10:22 debug #757 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8698d12c80dec9294f9bd43001744dfc2d6c60269ed9ab48cd04dc2cf29b6dcf/main.spi
00:10:23 verbose #66490 >
00:10:23 verbose #66491 > ╭─[ 281.66ms - stdout ]────────────────────────────────────────────────────────╮
00:10:23 verbose #66492 > │ let rec method0 () : unit = │
00:10:23 verbose #66493 > │ let v0 : string = $"%A{0.3325000000000001}" │
00:10:23 verbose #66494 > │ System.Console.WriteLine v0 │
00:10:23 verbose #66495 > │ let v1 : string = $"__expect / actual: %A{0.3325000000000001} / │
00:10:23 verbose #66496 > │ expected: %A{0.33249999999999996}" │
00:10:23 verbose #66497 > │ () │
00:10:23 verbose #66498 > │ method0() │
00:10:23 verbose #66499 > │ │
00:10:23 verbose #66500 > │ 0.3325 │
00:10:23 verbose #66501 > │ │
00:10:23 verbose #66502 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:23 verbose #66503 >
00:10:23 verbose #66504 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:23 verbose #66505 > inl integral'' dt : integration =
00:10:23 verbose #66506 > fun f a b =>
00:10:23 verbose #66507 > am'.init_series (a + dt / 2) (b - dt / 2) dt
00:10:23 verbose #66508 > |> am.map (f >> (*) dt)
00:10:23 verbose #66509 > |> am'.sum
00:10:23 verbose #66510 > 00:10:22 debug #758 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/78707b950bbad05cafdb65ad98fb71b35b8ba53cb718406bdb5db88f6a7acfd4/main.spi
00:10:23 verbose #66511 >
00:10:23 verbose #66512 > ╭─[ 234.99ms - stdout ]────────────────────────────────────────────────────────╮
00:10:23 verbose #66513 > │ () │
00:10:23 verbose #66514 > │ │
00:10:23 verbose #66515 > │ │
00:10:23 verbose #66516 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:23 verbose #66517 >
00:10:23 verbose #66518 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:23 verbose #66519 > // // test
00:10:23 verbose #66520 >
00:10:23 verbose #66521 > integral'' 0.01 math.square 0 1
00:10:23 verbose #66522 > |> _assert_approx_eq None (integral 0.01 math.square 0 1)
00:10:23 verbose #66523 > 00:10:23 debug #759 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d410ee738c976ed4f88dc813ca9600392b0cef7251c96047f666c78e5457fa1e/main.spi
00:10:24 verbose #66524 >
00:10:24 verbose #66525 > ╭─[ 526.87ms - stdout ]────────────────────────────────────────────────────────╮
00:10:24 verbose #66526 > │ type Mut0 = {mutable l0 : int32} │
00:10:24 verbose #66527 > │ and Mut1 = {mutable l0 : int32; mutable l1 : float} │
00:10:24 verbose #66528 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:24 verbose #66529 > │ let v1 : int32 = v0.l0 │
00:10:24 verbose #66530 > │ let v2 : bool = v1 < 100 │
00:10:24 verbose #66531 > │ v2 │
00:10:24 verbose #66532 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:24 verbose #66533 > │ let v2 : int32 = v1.l0 │
00:10:24 verbose #66534 > │ let v3 : bool = v2 < v0 │
00:10:24 verbose #66535 > │ v3 │
00:10:24 verbose #66536 > │ and method3 (v0 : int32, v1 : Mut1) : bool = │
00:10:24 verbose #66537 > │ let v2 : int32 = v1.l0 │
00:10:24 verbose #66538 > │ let v3 : bool = v2 < v0 │
00:10:24 verbose #66539 > │ v3 │
00:10:24 verbose #66540 > │ and method4 (v0 : bool) : bool = │
00:10:24 verbose #66541 > │ v0 │
00:10:24 verbose #66542 > │ and method0 () : unit = │
00:10:24 verbose #66543 > │ let v0 : (float []) = Array.zeroCreate<float> (100) │
00:10:24 verbose #66544 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:24 verbose #66545 > │ while method1(v1) do │
00:10:24 verbose #66546 > │ let v3 : int32 = v1.l0 │
00:10:24 verbose #66547 > │ let v4 : float = float v3 │
00:10:24 verbose #66548 > │ let v5 : float = 0.01 * v4 │
00:10:24 verbose #66549 > │ let v6 : float = 0.005 + v5 │
00:10:24 verbose #66550 > │ v0.[int v3] <- v6 │
00:10:24 verbose #66551 > │ let v7 : int32 = v3 + 1 │
00:10:24 verbose #66552 > │ v1.l0 <- v7 │
00:10:24 verbose #66553 > │ () │
00:10:24 verbose #66554 > │ let v8 : int32 = v0.Length │
00:10:24 verbose #66555 > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:10:24 verbose #66556 > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:10:24 verbose #66557 > │ while method2(v8, v10) do │
00:10:24 verbose #66558 > │ let v12 : int32 = v10.l0 │
00:10:24 verbose #66559 > │ let v13 : float = v0.[int v12] │
00:10:24 verbose #66560 > │ let v14 : float = v13 ** 2.0 │
00:10:24 verbose #66561 > │ let v15 : float = 0.01 * v14 │
00:10:24 verbose #66562 > │ v9.[int v12] <- v15 │
00:10:24 verbose #66563 > │ let v16 : int32 = v12 + 1 │
00:10:24 verbose #66564 > │ v10.l0 <- v16 │
00:10:24 verbose #66565 > │ () │
00:10:24 verbose #66566 > │ let v17 : int32 = v9.Length │
00:10:24 verbose #66567 > │ let v18 : Mut1 = {l0 = 0; l1 = 0.0} : Mut1 │
00:10:24 verbose #66568 > │ while method3(v17, v18) do │
00:10:24 verbose #66569 > │ let v20 : int32 = v18.l0 │
00:10:24 verbose #66570 > │ let v21 : float = v18.l1 │
00:10:24 verbose #66571 > │ let v22 : float = v9.[int v20] │
00:10:24 verbose #66572 > │ let v23 : float = v21 + v22 │
00:10:24 verbose #66573 > │ let v24 : int32 = v20 + 1 │
00:10:24 verbose #66574 > │ v18.l0 <- v24 │
00:10:24 verbose #66575 > │ v18.l1 <- v23 │
00:10:24 verbose #66576 > │ () │
00:10:24 verbose #66577 > │ let v25 : float = v18.l1 │
00:10:24 verbose #66578 > │ let v26 : string = $"%A{v25}" │
00:10:24 verbose #66579 > │ System.Console.WriteLine v26 │
00:10:24 verbose #66580 > │ let v27 : float = 0.3333250000000004 - v25 │
00:10:24 verbose #66581 > │ let v28 : float = -v27 │
00:10:24 verbose #66582 > │ let v29 : bool = v27 >= v28 │
00:10:24 verbose #66583 > │ let v30 : float = │
00:10:24 verbose #66584 > │ if v29 then │
00:10:24 verbose #66585 > │ v27 │
00:10:24 verbose #66586 > │ else │
00:10:24 verbose #66587 > │ v28 │
00:10:24 verbose #66588 > │ let v31 : bool = v30 < 1E-08 │
00:10:24 verbose #66589 > │ let v33 : bool = │
00:10:24 verbose #66590 > │ if v31 then │
00:10:24 verbose #66591 > │ true │
00:10:24 verbose #66592 > │ else │
00:10:24 verbose #66593 > │ method4(v31) │
00:10:24 verbose #66594 > │ let v34 : string = $"__expect / actual: %A{v25} / expected: │
00:10:24 verbose #66595 > │ %A{0.3333250000000004}" │
00:10:24 verbose #66596 > │ let v35 : bool = v33 = false │
00:10:24 verbose #66597 > │ if v35 then │
00:10:24 verbose #66598 > │ failwith<unit> v34 │
00:10:24 verbose #66599 > │ method0() │
00:10:24 verbose #66600 > │ │
00:10:24 verbose #66601 > │ 0.333325 │
00:10:24 verbose #66602 > │ │
00:10:24 verbose #66603 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #66604 >
00:10:24 verbose #66605 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:24 verbose #66606 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:24 verbose #66607 > │ ## anti_derivative │
00:10:24 verbose #66608 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #66609 >
00:10:24 verbose #66610 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:24 verbose #66611 > inl anti_derivative dt v0 a t =
00:10:24 verbose #66612 > v0 + integral' dt a 0 t
00:10:24 verbose #66613 > 00:10:23 debug #760 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/55e768cb3a9e9622467eb06370e2a988eb6f88de1e0623b55822a55aebe17f09/main.spi
00:10:24 verbose #66614 >
00:10:24 verbose #66615 > ╭─[ 316.97ms - stdout ]────────────────────────────────────────────────────────╮
00:10:24 verbose #66616 > │ () │
00:10:24 verbose #66617 > │ │
00:10:24 verbose #66618 > │ │
00:10:24 verbose #66619 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #66620 >
00:10:24 verbose #66621 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:24 verbose #66622 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:24 verbose #66623 > │ ## velocity_ft │
00:10:24 verbose #66624 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #66625 >
00:10:24 verbose #66626 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:24 verbose #66627 > type velocity_ft = mass -> velocity -> list (time -> force) -> (time ->
00:10:24 verbose #66628 > velocity)
00:10:24 verbose #66629 >
00:10:24 verbose #66630 > inl velocity_ft dt : velocity_ft =
00:10:24 verbose #66631 > fun m v0 fs =>
00:10:24 verbose #66632 > inl f_net t = fs |> listm.map (fun f => f t) |> listm'.sum
00:10:24 verbose #66633 > inl a t = f_net t / m
00:10:24 verbose #66634 > anti_derivative dt v0 a
00:10:24 verbose #66635 > 00:10:24 debug #761 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3778ebf84e63226cba964518afaeeaf9c0dea5902f03fcab5cc183aa7d93ebc0/main.spi
00:10:24 verbose #66636 >
00:10:24 verbose #66637 > ╭─[ 263.08ms - stdout ]────────────────────────────────────────────────────────╮
00:10:24 verbose #66638 > │ () │
00:10:24 verbose #66639 > │ │
00:10:24 verbose #66640 > │ │
00:10:24 verbose #66641 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #66642 >
00:10:24 verbose #66643 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:24 verbose #66644 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:24 verbose #66645 > │ ## position_ft │
00:10:24 verbose #66646 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #66647 >
00:10:24 verbose #66648 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:24 verbose #66649 > type position_ft = mass -> position -> velocity -> list (time -> force) -> (time
00:10:24 verbose #66650 > -> position)
00:10:24 verbose #66651 >
00:10:24 verbose #66652 > inl position_ft dt : position_ft =
00:10:24 verbose #66653 > fun m x0 v0 fs =>
00:10:24 verbose #66654 > velocity_ft dt m v0 fs
00:10:24 verbose #66655 > |> anti_derivative dt x0
00:10:24 verbose #66656 > 00:10:24 debug #762 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c6dd1555aa293e3b17fa82d3fdf5cb5c6e3ff484cae2ac22d894e6ffb410d9b9/main.spi
00:10:25 verbose #66657 >
00:10:25 verbose #66658 > ╭─[ 265.82ms - stdout ]────────────────────────────────────────────────────────╮
00:10:25 verbose #66659 > │ () │
00:10:25 verbose #66660 > │ │
00:10:25 verbose #66661 > │ │
00:10:25 verbose #66662 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #66663 >
00:10:25 verbose #66664 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:25 verbose #66665 > // // test
00:10:25 verbose #66666 >
00:10:25 verbose #66667 > inl pedal_coast (t : time) : force =
00:10:25 verbose #66668 > inl t_cycle = 20
00:10:25 verbose #66669 > inl n_complete : i32 = t / t_cycle |> conv
00:10:25 verbose #66670 > inl remainder = t - conv n_complete * t_cycle
00:10:25 verbose #66671 > if remainder > 0 && remainder < 10
00:10:25 verbose #66672 > then 10
00:10:25 verbose #66673 > else 0
00:10:25 verbose #66674 >
00:10:25 verbose #66675 > inl x = am'.init_series -5 45 0.1
00:10:25 verbose #66676 > inl y = x |> am.map pedal_coast
00:10:25 verbose #66677 > "child pedaling then coasting", "time (s)", "", ;[[ "force on bike (N)", x, y ]]
00:10:25 verbose #66678 > 00:10:24 debug #763 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5371a37e5edc073d918011924a497dd6345f2e1e9be452adf722e365e8875f80/main.spi
00:10:25 verbose #66679 >
00:10:25 verbose #66680 > ╭─[ 250.26ms - return value ]──────────────────────────────────────────────────╮
00:10:25 verbose #66681 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:25 verbose #66682 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:25 verbose #66683 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:25 verbose #66684 > │ stroke="none"/> │
00:10:25 verbose #66685 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:25 verbose #66686 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:25 verbose #66687 > │ fill="#FFFFFF"> │
00:10:25 verbose #66688 > │ child pedaling then coasting │
00:10:25 verbose #66689 > │ </text> │
00:10:25 verbose #66690 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:25 verbose #66691 > │ y2="75"/> │
00:10:25 verbose #66692 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:25 verbose #66693 > │ y2="75"/> │
00:10:25 verbose #66694 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:25 verbose #66695 > │ y2="75"/> │
00:10:25 verbose #66696 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:25 verbose #66697 > │ y2="75"/> │
00:10:25 verbose #66698 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:10:25 verbose #66699 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #66700 >
00:10:25 verbose #66701 > ╭─[ 259.18ms - stdout ]────────────────────────────────────────────────────────╮
00:10:25 verbose #66702 > │ type Mut0 = {mutable l0 : int32} │
00:10:25 verbose #66703 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:25 verbose #66704 > │ let v1 : int32 = v0.l0 │
00:10:25 verbose #66705 > │ let v2 : bool = v1 < 501 │
00:10:25 verbose #66706 > │ v2 │
00:10:25 verbose #66707 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:25 verbose #66708 > │ let v2 : int32 = v1.l0 │
00:10:25 verbose #66709 > │ let v3 : bool = v2 < v0 │
00:10:25 verbose #66710 > │ v3 │
00:10:25 verbose #66711 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:25 verbose #66712 > │ []) * (float [])) [])) = │
00:10:25 verbose #66713 > │ let v0 : (float []) = Array.zeroCreate<float> (501) │
00:10:25 verbose #66714 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:25 verbose #66715 > │ while method1(v1) do │
00:10:25 verbose #66716 > │ let v3 : int32 = v1.l0 │
00:10:25 verbose #66717 > │ let v4 : float = float v3 │
00:10:25 verbose #66718 > │ let v5 : float = 0.1 * v4 │
00:10:25 verbose #66719 > │ let v6 : float = -5.0 + v5 │
00:10:25 verbose #66720 > │ v0.[int v3] <- v6 │
00:10:25 verbose #66721 > │ let v7 : int32 = v3 + 1 │
00:10:25 verbose #66722 > │ v1.l0 <- v7 │
00:10:25 verbose #66723 > │ () │
00:10:25 verbose #66724 > │ let v8 : int32 = v0.Length │
00:10:25 verbose #66725 > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:10:25 verbose #66726 > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:10:25 verbose #66727 > │ while method2(v8, v10) do │
00:10:25 verbose #66728 > │ let v12 : int32 = v10.l0 │
00:10:25 verbose #66729 > │ let v13 : float = v0.[int v12] │
00:10:25 verbose #66730 > │ let v14 : float = v13 / 20.0 │
00:10:25 verbose #66731 > │ let v15 : int32 = int32 v14 │
00:10:25 verbose #66732 > │ let v16 : float = float v15 │
00:10:25 verbose #66733 > │ let v17 : float = v16 * 20.0 │
00:10:25 verbose #66734 > │ let v18 : float = v13 - v17 │
00:10:25 verbose #66735 > │ let v19 : bool = v18 > 0.0 │
00:10:25 verbose #66736 > │ let v21 : bool = │
00:10:25 verbose #66737 > │ if v19 then │
00:10:25 verbose #66738 > │ let v20 : bool = v18 < 10.0 │
00:10:25 verbose #66739 > │ v20 │
00:10:25 verbose #66740 > │ else │
00:10:25 verbose #66741 > │ false │
00:10:25 verbose #66742 > │ let v22 : float = │
00:10:25 verbose #66743 > │ if v21 then │
00:10:25 verbose #66744 > │ 10.0 │
00:10:25 verbose #66745 > │ else │
00:10:25 verbose #66746 > │ 0.0 │
00:10:25 verbose #66747 > │ v9.[int v12] <- v22 │
00:10:25 verbose #66748 > │ let v23 : int32 = v12 + 1 │
00:10:25 verbose #66749 > │ v10.l0 <- v23 │
00:10:25 verbose #66750 > │ () │
00:10:25 verbose #66751 > │ let v24 : string = "force on bike (N)" │
00:10:25 verbose #66752 > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:25 verbose #66753 > │ (v24, v0, v9)|] │
00:10:25 verbose #66754 > │ let v26 : string = "child pedaling then coasting" │
00:10:25 verbose #66755 > │ let v27 : string = "time (s)" │
00:10:25 verbose #66756 > │ let v28 : string = "" │
00:10:25 verbose #66757 > │ struct (v26, v27, v28, v25) │
00:10:25 verbose #66758 > │ method0() │
00:10:25 verbose #66759 > │ │
00:10:25 verbose #66760 > │ │
00:10:25 verbose #66761 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #66762 >
00:10:25 verbose #66763 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:25 verbose #66764 > // // test
00:10:25 verbose #66765 >
00:10:25 verbose #66766 > inl x = am'.init_series -5 45 1
00:10:25 verbose #66767 > inl y = x |> am.map (position_ft 0.1f64 20 0 0 [[ pedal_coast ]])
00:10:25 verbose #66768 > "child pedaling then coasting", "time (s)", "", ;[[ "position of bike (m)", x, y
00:10:25 verbose #66769 > ]]
00:10:25 verbose #66770 > 00:10:24 debug #764 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/03f64dd3cbcf9e74d342a8ffe7ca7f380a3f867a6db38b20d2965c1bcdc5a1d1/main.spi
00:10:25 verbose #66771 >
00:10:25 verbose #66772 > ╭─[ 598.20ms - return value ]──────────────────────────────────────────────────╮
00:10:25 verbose #66773 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:25 verbose #66774 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:25 verbose #66775 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:25 verbose #66776 > │ stroke="none"/> │
00:10:25 verbose #66777 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:25 verbose #66778 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:25 verbose #66779 > │ fill="#FFFFFF"> │
00:10:25 verbose #66780 > │ child pedaling then coasting │
00:10:25 verbose #66781 > │ </text> │
00:10:25 verbose #66782 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:25 verbose #66783 > │ y2="75"/> │
00:10:25 verbose #66784 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:25 verbose #66785 > │ y2="75"/> │
00:10:25 verbose #66786 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:25 verbose #66787 > │ y2="75"/> │
00:10:25 verbose #66788 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:25 verbose #66789 > │ y2="75"/> │
00:10:25 verbose #66790 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:10:25 verbose #66791 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #66792 >
00:10:25 verbose #66793 > ╭─[ 609.41ms - stdout ]────────────────────────────────────────────────────────╮
00:10:25 verbose #66794 > │ type Mut0 = {mutable l0 : int32} │
00:10:25 verbose #66795 > │ and UH0 = │
00:10:25 verbose #66796 > │ | UH0_0 │
00:10:25 verbose #66797 > │ | UH0_1 of float * UH0 │
00:10:25 verbose #66798 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:25 verbose #66799 > │ let v1 : int32 = v0.l0 │
00:10:25 verbose #66800 > │ let v2 : bool = v1 < 51 │
00:10:25 verbose #66801 > │ v2 │
00:10:25 verbose #66802 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:25 verbose #66803 > │ let v2 : int32 = v1.l0 │
00:10:25 verbose #66804 > │ let v3 : bool = v2 < v0 │
00:10:25 verbose #66805 > │ v3 │
00:10:25 verbose #66806 > │ and method3 (v0 : float, v1 : float) : UH0 = │
00:10:25 verbose #66807 > │ let v2 : bool = v1 < v0 │
00:10:25 verbose #66808 > │ if v2 then │
00:10:25 verbose #66809 > │ let v3 : float = 0.1 * v1 │
00:10:25 verbose #66810 > │ let v4 : float = 0.05 + v3 │
00:10:25 verbose #66811 > │ let v5 : float = v1 + 1.0 │
00:10:25 verbose #66812 > │ let v6 : UH0 = method3(v0, v5) │
00:10:25 verbose #66813 > │ UH0_1(v4, v6) │
00:10:25 verbose #66814 > │ else │
00:10:25 verbose #66815 > │ UH0_0 │
00:10:25 verbose #66816 > │ and method5 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:25 verbose #66817 > │ match v0 with │
00:10:25 verbose #66818 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:10:25 verbose #66819 > │ let v4 : UH0 = method5(v3, v1) │
00:10:25 verbose #66820 > │ let v5 : float = v2 / 20.0 │
00:10:25 verbose #66821 > │ let v6 : int32 = int32 v5 │
00:10:25 verbose #66822 > │ let v7 : float = float v6 │
00:10:25 verbose #66823 > │ let v8 : float = v7 * 20.0 │
00:10:25 verbose #66824 > │ let v9 : float = v2 - v8 │
00:10:25 verbose #66825 > │ let v10 : bool = v9 > 0.0 │
00:10:25 verbose #66826 > │ let v12 : bool = │
00:10:25 verbose #66827 > │ if v10 then │
00:10:25 verbose #66828 > │ let v11 : bool = v9 < 10.0 │
00:10:25 verbose #66829 > │ v11 │
00:10:25 verbose #66830 > │ else │
00:10:25 verbose #66831 > │ false │
00:10:25 verbose #66832 > │ let v13 : float = │
00:10:25 verbose #66833 > │ if v12 then │
00:10:25 verbose #66834 > │ 10.0 │
00:10:25 verbose #66835 > │ else │
00:10:25 verbose #66836 > │ 0.0 │
00:10:25 verbose #66837 > │ let v14 : float = v13 / 20.0 │
00:10:25 verbose #66838 > │ let v15 : float = 0.1 * v14 │
00:10:25 verbose #66839 > │ UH0_1(v15, v4) │
00:10:25 verbose #66840 > │ | UH0_0 -> (* Nil *) │
00:10:25 verbose #66841 > │ v1 │
00:10:25 verbose #66842 > │ and method6 (v0 : UH0, v1 : float) : float = │
00:10:25 verbose #66843 > │ match v0 with │
00:10:25 verbose #66844 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:10:25 verbose #66845 > │ let v4 : float = v1 + v2 │
00:10:25 verbose #66846 > │ method6(v3, v4) │
00:10:25 verbose #66847 > │ | UH0_0 -> (* Nil *) │
00:10:25 verbose #66848 > │ v1 │
00:10:25 verbose #66849 > │ and method4 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:25 verbose #66850 > │ match v0 with │
00:10:25 verbose #66851 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:10:25 verbose #66852 > │ let v4 : UH0 = method4(v3, v1) │
00:10:25 verbose #66853 > │ let v5 : float = v2 - 0.05 │
00:10:25 verbose #66854 > │ let v6 : float = v5 - 0.05 │
00:10:25 verbose #66855 > │ let v7 : float = v6 / 0.1 │
00:10:25 verbose #66856 > │ let v8 : float = v7 + 1.0 │
00:10:25 verbose #66857 > │ let v9 : float = 0.0 │
00:10:25 verbose #66858 > │ let v10 : UH0 = method3(v8, v9) │
00:10:25 verbose #66859 > │ let v11 : UH0 = UH0_0 │
00:10:25 verbose #66860 > │ let v12 : UH0 = method5(v10, v11) │
00:10:25 verbose #66861 > │ let v13 : float = 0.0 │
00:10:25 verbose #66862 > │ let v14 : float = method6(v12, v13) │
00:10:25 verbose #66863 > │ let v15 : float = 0.1 * v14 │
00:10:25 verbose #66864 > │ UH0_1(v15, v4) │
00:10:25 verbose #66865 > │ | UH0_0 -> (* Nil *) │
00:10:25 verbose #66866 > │ v1 │
00:10:25 verbose #66867 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:25 verbose #66868 > │ []) * (float [])) [])) = │
00:10:25 verbose #66869 > │ let v0 : (float []) = Array.zeroCreate<float> (51) │
00:10:25 verbose #66870 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:25 verbose #66871 > │ while method1(v1) do │
00:10:25 verbose #66872 > │ let v3 : int32 = v1.l0 │
00:10:25 verbose #66873 > │ let v4 : float = float v3 │
00:10:25 verbose #66874 > │ let v5 : float = -5.0 + v4 │
00:10:25 verbose #66875 > │ v0.[int v3] <- v5 │
00:10:25 verbose #66876 > │ let v6 : int32 = v3 + 1 │
00:10:25 verbose #66877 > │ v1.l0 <- v6 │
00:10:25 verbose #66878 > │ () │
00:10:25 verbose #66879 > │ let v7 : int32 = v0.Length │
00:10:25 verbose #66880 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:25 verbose #66881 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:25 verbose #66882 > │ while method2(v7, v9) do │
00:10:25 verbose #66883 > │ let v11 : int32 = v9.l0 │
00:10:25 verbose #66884 > │ let v12 : float = v0.[int v11] │
00:10:25 verbose #66885 > │ let v13 : float = v12 - 0.05 │
00:10:25 verbose #66886 > │ let v14 : float = v13 - 0.05 │
00:10:25 verbose #66887 > │ let v15 : float = v14 / 0.1 │
00:10:25 verbose #66888 > │ let v16 : float = v15 + 1.0 │
00:10:25 verbose #66889 > │ let v17 : float = 0.0 │
00:10:25 verbose #66890 > │ let v18 : UH0 = method3(v16, v17) │
00:10:25 verbose #66891 > │ let v19 : UH0 = UH0_0 │
00:10:25 verbose #66892 > │ let v20 : UH0 = method4(v18, v19) │
00:10:25 verbose #66893 > │ let v21 : float = 0.0 │
00:10:25 verbose #66894 > │ let v22 : float = method6(v20, v21) │
00:10:25 verbose #66895 > │ v8.[int v11] <- v22 │
00:10:25 verbose #66896 > │ let v23 : int32 = v11 + 1 │
00:10:25 verbose #66897 > │ v9.l0 <- v23 │
00:10:25 verbose #66898 > │ () │
00:10:25 verbose #66899 > │ let v24 : string = "position of bike (m)" │
00:10:25 verbose #66900 > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:25 verbose #66901 > │ (v24, v0, v8)|] │
00:10:25 verbose #66902 > │ let v26 : string = "child pedaling then coasting" │
00:10:25 verbose #66903 > │ let v27 : string = "time (s)" │
00:10:25 verbose #66904 > │ let v28 : string = "" │
00:10:25 verbose #66905 > │ struct (v26, v27, v28, v25) │
00:10:25 verbose #66906 > │ method0() │
00:10:25 verbose #66907 > │ │
00:10:25 verbose #66908 > │ │
00:10:25 verbose #66909 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #66910 >
00:10:25 verbose #66911 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:25 verbose #66912 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:25 verbose #66913 > │ ## velocity_fv │
00:10:25 verbose #66914 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #66915 >
00:10:25 verbose #66916 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:25 verbose #66917 > inl newton_second_v m fs v0 =
00:10:25 verbose #66918 > fs |> listm.map (fun f => f v0) |> listm'.sum |> fun x => x / m
00:10:25 verbose #66919 >
00:10:25 verbose #66920 > inl update_velocity dt m fs v0 =
00:10:25 verbose #66921 > v0 + newton_second_v m fs v0 * dt
00:10:25 verbose #66922 >
00:10:25 verbose #66923 > inl velocity_fv dt m v0 fs t =
00:10:25 verbose #66924 > stream.iterate (update_velocity dt m fs) v0
00:10:25 verbose #66925 > |> stream.try_item (t / dt |> math.round |> abs)
00:10:25 verbose #66926 > |> optionm'.default_value 0
00:10:26 verbose #66927 > 00:10:25 debug #765 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8cadf054706247d4ee5bf28641c441c60f932a80e14a9250eb6865364a77c574/main.spi
00:10:26 verbose #66928 >
00:10:26 verbose #66929 > ╭─[ 240.82ms - stdout ]────────────────────────────────────────────────────────╮
00:10:26 verbose #66930 > │ () │
00:10:26 verbose #66931 > │ │
00:10:26 verbose #66932 > │ │
00:10:26 verbose #66933 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:26 verbose #66934 >
00:10:26 verbose #66935 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:26 verbose #66936 > inl f_air drag rho area v =
00:10:26 verbose #66937 > -drag * rho * area * abs v * v / 2
00:10:26 verbose #66938 > 00:10:25 debug #766 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cc5a41ae5dcbb87ee1a4b829dcfa9e0c12560e76c647f8ce967cddfdcaaf2f66/main.spi
00:10:26 verbose #66939 >
00:10:26 verbose #66940 > ╭─[ 198.49ms - stdout ]────────────────────────────────────────────────────────╮
00:10:26 verbose #66941 > │ () │
00:10:26 verbose #66942 > │ │
00:10:26 verbose #66943 > │ │
00:10:26 verbose #66944 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:26 verbose #66945 >
00:10:26 verbose #66946 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:26 verbose #66947 > // // test
00:10:26 verbose #66948 >
00:10:26 verbose #66949 > inl x = am'.init_series 0 60 0.5
00:10:26 verbose #66950 > inl y = x |> am.map (velocity_fv 1 70 0f64 [[ fun _ => 100; f_air 2 1.225 0.6
00:10:26 verbose #66951 > ]])
00:10:26 verbose #66952 > "bike velocity", "time (s)", "", ;[[ "velocity of bike (m/s)", x, y ]]
00:10:26 verbose #66953 > 00:10:25 debug #767 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/df5ae175ebd026d4f654fd4d886465d5ad9c6418a4000cd04bbc9a134409e037/main.spi
00:10:27 verbose #66954 >
00:10:27 verbose #66955 > ╭─[ 640.20ms - return value ]──────────────────────────────────────────────────╮
00:10:27 verbose #66956 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:27 verbose #66957 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:27 verbose #66958 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:27 verbose #66959 > │ stroke="none"/> │
00:10:27 verbose #66960 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:27 verbose #66961 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:27 verbose #66962 > │ fill="#FFFFFF"> │
00:10:27 verbose #66963 > │ bike velocity │
00:10:27 verbose #66964 > │ </text> │
00:10:27 verbose #66965 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:10:27 verbose #66966 > │ y2="75"/> │
00:10:27 verbose #66967 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:27 verbose #66968 > │ y2="75"/> │
00:10:27 verbose #66969 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:10:27 verbose #66970 > │ y2="75"/> │
00:10:27 verbose #66971 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:10:27 verbose #66972 > │ y2="75"/> │
00:10:27 verbose #66973 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x... │
00:10:27 verbose #66974 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #66975 >
00:10:27 verbose #66976 > ╭─[ 652.84ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #66977 > │ type Mut0 = {mutable l0 : int32} │
00:10:27 verbose #66978 > │ and UH0 = │
00:10:27 verbose #66979 > │ | UH0_0 of float * (unit -> UH0) │
00:10:27 verbose #66980 > │ | UH0_1 │
00:10:27 verbose #66981 > │ and [<Struct>] US0 = │
00:10:27 verbose #66982 > │ | US0_0 of f0_0 : float │
00:10:27 verbose #66983 > │ | US0_1 │
00:10:27 verbose #66984 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:27 verbose #66985 > │ let v1 : int32 = v0.l0 │
00:10:27 verbose #66986 > │ let v2 : bool = v1 < 121 │
00:10:27 verbose #66987 > │ v2 │
00:10:27 verbose #66988 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:27 verbose #66989 > │ let v2 : int32 = v1.l0 │
00:10:27 verbose #66990 > │ let v3 : bool = v2 < v0 │
00:10:27 verbose #66991 > │ v3 │
00:10:27 verbose #66992 > │ and closure129 () () : UH0 = │
00:10:27 verbose #66993 > │ let v0 : (unit -> UH0) = closure129() │
00:10:27 verbose #66994 > │ UH0_0(11.664236870396083, v0) │
00:10:27 verbose #66995 > │ and closure128 () () : UH0 = │
00:10:27 verbose #66996 > │ let v0 : (unit -> UH0) = closure129() │
00:10:27 verbose #66997 > │ UH0_0(11.664236870396081, v0) │
00:10:27 verbose #66998 > │ and closure127 () () : UH0 = │
00:10:27 verbose #66999 > │ let v0 : (unit -> UH0) = closure128() │
00:10:27 verbose #67000 > │ UH0_0(11.66423687039608, v0) │
00:10:27 verbose #67001 > │ and closure126 () () : UH0 = │
00:10:27 verbose #67002 > │ let v0 : (unit -> UH0) = closure127() │
00:10:27 verbose #67003 > │ UH0_0(11.664236870396078, v0) │
00:10:27 verbose #67004 > │ and closure125 () () : UH0 = │
00:10:27 verbose #67005 > │ let v0 : (unit -> UH0) = closure126() │
00:10:27 verbose #67006 > │ UH0_0(11.664236870396074, v0) │
00:10:27 verbose #67007 > │ and closure124 () () : UH0 = │
00:10:27 verbose #67008 > │ let v0 : (unit -> UH0) = closure125() │
00:10:27 verbose #67009 > │ UH0_0(11.66423687039607, v0) │
00:10:27 verbose #67010 > │ and closure123 () () : UH0 = │
00:10:27 verbose #67011 > │ let v0 : (unit -> UH0) = closure124() │
00:10:27 verbose #67012 > │ UH0_0(11.664236870396065, v0) │
00:10:27 verbose #67013 > │ and closure122 () () : UH0 = │
00:10:27 verbose #67014 > │ let v0 : (unit -> UH0) = closure123() │
00:10:27 verbose #67015 > │ UH0_0(11.664236870396058, v0) │
00:10:27 verbose #67016 > │ and closure121 () () : UH0 = │
00:10:27 verbose #67017 > │ let v0 : (unit -> UH0) = closure122() │
00:10:27 verbose #67018 > │ UH0_0(11.66423687039605, v0) │
00:10:27 verbose #67019 > │ and closure120 () () : UH0 = │
00:10:27 verbose #67020 > │ let v0 : (unit -> UH0) = closure121() │
00:10:27 verbose #67021 > │ UH0_0(11.664236870396037, v0) │
00:10:27 verbose #67022 > │ and closure119 () () : UH0 = │
00:10:27 verbose #67023 > │ let v0 : (unit -> UH0) = closure120() │
00:10:27 verbose #67024 > │ UH0_0(11.66423687039602, v0) │
00:10:27 verbose #67025 > │ and closure118 () () : UH0 = │
00:10:27 verbose #67026 > │ let v0 : (unit -> UH0) = closure119() │
00:10:27 verbose #67027 > │ UH0_0(11.664236870396, v0) │
00:10:27 verbose #67028 > │ and closure117 () () : UH0 = │
00:10:27 verbose #67029 > │ let v0 : (unit -> UH0) = closure118() │
00:10:27 verbose #67030 > │ UH0_0(11.664236870395971, v0) │
00:10:27 verbose #67031 > │ and closure116 () () : UH0 = │
00:10:27 verbose #67032 > │ let v0 : (unit -> UH0) = closure117() │
00:10:27 verbose #67033 > │ UH0_0(11.664236870395934, v0) │
00:10:27 verbose #67034 > │ and closure115 () () : UH0 = │
00:10:27 verbose #67035 > │ let v0 : (unit -> UH0) = closure116() │
00:10:27 verbose #67036 > │ UH0_0(11.664236870395884, v0) │
00:10:27 verbose #67037 > │ and closure114 () () : UH0 = │
00:10:27 verbose #67038 > │ let v0 : (unit -> UH0) = closure115() │
00:10:27 verbose #67039 > │ UH0_0(11.664236870395818, v0) │
00:10:27 verbose #67040 > │ and closure113 () () : UH0 = │
00:10:27 verbose #67041 > │ let v0 : (unit -> UH0) = closure114() │
00:10:27 verbose #67042 > │ UH0_0(11.664236870395731, v0) │
00:10:27 verbose #67043 > │ and closure112 () () : UH0 = │
00:10:27 verbose #67044 > │ let v0 : (unit -> UH0) = closure113() │
00:10:27 verbose #67045 > │ UH0_0(11.664236870395616, v0) │
00:10:27 verbose #67046 > │ and closure111 () () : UH0 = │
00:10:27 verbose #67047 > │ let v0 : (unit -> UH0) = closure112() │
00:10:27 verbose #67048 > │ UH0_0(11.664236870395463, v0) │
00:10:27 verbose #67049 > │ and closure110 () () : UH0 = │
00:10:27 verbose #67050 > │ let v0 : (unit -> UH0) = closure111() │
00:10:27 verbose #67051 > │ UH0_0(11.66423687039526, v0) │
00:10:27 verbose #67052 > │ and closure109 () () : UH0 = │
00:10:27 verbose #67053 > │ let v0 : (unit -> UH0) = closure110() │
00:10:27 verbose #67054 > │ UH0_0(11.664236870394992, v0) │
00:10:27 verbose #67055 > │ and closure108 () () : UH0 = │
00:10:27 verbose #67056 > │ let v0 : (unit -> UH0) = closure109() │
00:10:27 verbose #67057 > │ UH0_0(11.664236870394637, v0) │
00:10:27 verbose #67058 > │ and closure107 () () : UH0 = │
00:10:27 verbose #67059 > │ let v0 : (unit -> UH0) = closure108() │
00:10:27 verbose #67060 > │ UH0_0(11.664236870394168, v0) │
00:10:27 verbose #67061 > │ and closure106 () () : UH0 = │
00:10:27 verbose #67062 > │ let v0 : (unit -> UH0) = closure107() │
00:10:27 verbose #67063 > │ UH0_0(11.664236870393546, v0) │
00:10:27 verbose #67064 > │ and closure105 () () : UH0 = │
00:10:27 verbose #67065 > │ let v0 : (unit -> UH0) = closure106() │
00:10:27 verbose #67066 > │ UH0_0(11.664236870392722, v0) │
00:10:27 verbose #67067 > │ and closure104 () () : UH0 = │
00:10:27 verbose #67068 > │ let v0 : (unit -> UH0) = closure105() │
00:10:27 verbose #67069 > │ UH0_0(11.664236870391631, v0) │
00:10:27 verbose #67070 > │ and closure103 () () : UH0 = │
00:10:27 verbose #67071 > │ let v0 : (unit -> UH0) = closure104() │
00:10:27 verbose #67072 > │ UH0_0(11.664236870390187, v0) │
00:10:27 verbose #67073 > │ and closure102 () () : UH0 = │
00:10:27 verbose #67074 > │ let v0 : (unit -> UH0) = closure103() │
00:10:27 verbose #67075 > │ UH0_0(11.664236870388274, v0) │
00:10:27 verbose #67076 > │ and closure101 () () : UH0 = │
00:10:27 verbose #67077 > │ let v0 : (unit -> UH0) = closure102() │
00:10:27 verbose #67078 > │ UH0_0(11.66423687038574, v0) │
00:10:27 verbose #67079 > │ and closure100 () () : UH0 = │
00:10:27 verbose #67080 > │ let v0 : (unit -> UH0) = closure101() │
00:10:27 verbose #67081 > │ UH0_0(11.664236870382384, v0) │
00:10:27 verbose #67082 > │ and closure99 () () : UH0 = │
00:10:27 verbose #67083 > │ let v0 : (unit -> UH0) = closure100() │
00:10:27 verbose #67084 > │ UH0_0(11.664236870377938, v0) │
00:10:27 verbose #67085 > │ and closure98 () () : UH0 = │
00:10:27 verbose #67086 > │ let v0 : (unit -> UH0) = closure99() │
00:10:27 verbose #67087 > │ UH0_0(11.66423687037205, v0) │
00:10:27 verbose #67088 > │ and closure97 () () : UH0 = │
00:10:27 verbose #67089 > │ let v0 : (unit -> UH0) = closure98() │
00:10:27 verbose #67090 > │ UH0_0(11.664236870364254, v0) │
00:10:27 verbose #67091 > │ and closure96 () () : UH0 = │
00:10:27 verbose #67092 > │ let v0 : (unit -> UH0) = closure97() │
00:10:27 verbose #67093 > │ UH0_0(11.664236870353927, v0) │
00:10:27 verbose #67094 > │ and closure95 () () : UH0 = │
00:10:27 verbose #67095 > │ let v0 : (unit -> UH0) = closure96() │
00:10:27 verbose #67096 > │ UH0_0(11.664236870340249, v0) │
00:10:27 verbose #67097 > │ and closure94 () () : UH0 = │
00:10:27 verbose #67098 > │ let v0 : (unit -> UH0) = closure95() │
00:10:27 verbose #67099 > │ UH0_0(11.664236870322135, v0) │
00:10:27 verbose #67100 > │ and closure93 () () : UH0 = │
00:10:27 verbose #67101 > │ let v0 : (unit -> UH0) = closure94() │
00:10:27 verbose #67102 > │ UH0_0(11.664236870298145, v0) │
00:10:27 verbose #67103 > │ and closure92 () () : UH0 = │
00:10:27 verbose #67104 > │ let v0 : (unit -> UH0) = closure93() │
00:10:27 verbose #67105 > │ UH0_0(11.664236870266372, v0) │
00:10:27 verbose #67106 > │ and closure91 () () : UH0 = │
00:10:27 verbose #67107 > │ let v0 : (unit -> UH0) = closure92() │
00:10:27 verbose #67108 > │ UH0_0(11.664236870224292, v0) │
00:10:27 verbose #67109 > │ and closure90 () () : UH0 = │
00:10:27 verbose #67110 > │ let v0 : (unit -> UH0) = closure91() │
00:10:27 verbose #67111 > │ UH0_0(11.66423687016856, v0) │
00:10:27 verbose #67112 > │ and closure89 () () : UH0 = │
00:10:27 verbose #67113 > │ let v0 : (unit -> UH0) = closure90() │
00:10:27 verbose #67114 > │ UH0_0(11.664236870094747, v0) │
00:10:27 verbose #67115 > │ and closure88 () () : UH0 = │
00:10:27 verbose #67116 > │ let v0 : (unit -> UH0) = closure89() │
00:10:27 verbose #67117 > │ UH0_0(11.664236869996989, v0) │
00:10:27 verbose #67118 > │ and closure87 () () : UH0 = │
00:10:27 verbose #67119 > │ let v0 : (unit -> UH0) = closure88() │
00:10:27 verbose #67120 > │ UH0_0(11.664236869867516, v0) │
00:10:27 verbose #67121 > │ and closure86 () () : UH0 = │
00:10:27 verbose #67122 > │ let v0 : (unit -> UH0) = closure87() │
00:10:27 verbose #67123 > │ UH0_0(11.66423686969604, v0) │
00:10:27 verbose #67124 > │ and closure85 () () : UH0 = │
00:10:27 verbose #67125 > │ let v0 : (unit -> UH0) = closure86() │
00:10:27 verbose #67126 > │ UH0_0(11.664236869468937, v0) │
00:10:27 verbose #67127 > │ and closure84 () () : UH0 = │
00:10:27 verbose #67128 > │ let v0 : (unit -> UH0) = closure85() │
00:10:27 verbose #67129 > │ UH0_0(11.664236869168157, v0) │
00:10:27 verbose #67130 > │ and closure83 () () : UH0 = │
00:10:27 verbose #67131 > │ let v0 : (unit -> UH0) = closure84() │
00:10:27 verbose #67132 > │ UH0_0(11.6642368687698, v0) │
00:10:27 verbose #67133 > │ and closure82 () () : UH0 = │
00:10:27 verbose #67134 > │ let v0 : (unit -> UH0) = closure83() │
00:10:27 verbose #67135 > │ UH0_0(11.664236868242211, v0) │
00:10:27 verbose #67136 > │ and closure81 () () : UH0 = │
00:10:27 verbose #67137 > │ let v0 : (unit -> UH0) = closure82() │
00:10:27 verbose #67138 > │ UH0_0(11.664236867543465, v0) │
00:10:27 verbose #67139 > │ and closure80 () () : UH0 = │
00:10:27 verbose #67140 > │ let v0 : (unit -> UH0) = closure81() │
00:10:27 verbose #67141 > │ UH0_0(11.664236866618037, v0) │
00:10:27 verbose #67142 > │ and closure79 () () : UH0 = │
00:10:27 verbose #67143 > │ let v0 : (unit -> UH0) = closure80() │
00:10:27 verbose #67144 > │ UH0_0(11.664236865392386, v0) │
00:10:27 verbose #67145 > │ and closure78 () () : UH0 = │
00:10:27 verbose #67146 > │ let v0 : (unit -> UH0) = closure79() │
00:10:27 verbose #67147 > │ UH0_0(11.664236863769117, v0) │
00:10:27 verbose #67148 > │ and closure77 () () : UH0 = │
00:10:27 verbose #67149 > │ let v0 : (unit -> UH0) = closure78() │
00:10:27 verbose #67150 > │ UH0_0(11.664236861619237, v0) │
00:10:27 verbose #67151 > │ and closure76 () () : UH0 = │
00:10:27 verbose #67152 > │ let v0 : (unit -> UH0) = closure77() │
00:10:27 verbose #67153 > │ UH0_0(11.664236858771906, v0) │
00:10:27 verbose #67154 > │ and closure75 () () : UH0 = │
00:10:27 verbose #67155 > │ let v0 : (unit -> UH0) = closure76() │
00:10:27 verbose #67156 > │ UH0_0(11.66423685500086, v0) │
00:10:27 verbose #67157 > │ and closure74 () () : UH0 = │
00:10:27 verbose #67158 > │ let v0 : (unit -> UH0) = closure75() │
00:10:27 verbose #67159 > │ UH0_0(11.664236850006436, v0) │
00:10:27 verbose #67160 > │ and closure73 () () : UH0 = │
00:10:27 verbose #67161 > │ let v0 : (unit -> UH0) = closure74() │
00:10:27 verbose #67162 > │ UH0_0(11.664236843391752, v0) │
00:10:27 verbose #67163 > │ and closure72 () () : UH0 = │
00:10:27 verbose #67164 > │ let v0 : (unit -> UH0) = closure73() │
00:10:27 verbose #67165 > │ UH0_0(11.664236834631172, v0) │
00:10:27 verbose #67166 > │ and closure71 () () : UH0 = │
00:10:27 verbose #67167 > │ let v0 : (unit -> UH0) = closure72() │
00:10:27 verbose #67168 > │ UH0_0(11.66423682302854, v0) │
00:10:27 verbose #67169 > │ and closure70 () () : UH0 = │
00:10:27 verbose #67170 > │ let v0 : (unit -> UH0) = closure71() │
00:10:27 verbose #67171 > │ UH0_0(11.664236807661855, v0) │
00:10:27 verbose #67172 > │ and closure69 () () : UH0 = │
00:10:27 verbose #67173 > │ let v0 : (unit -> UH0) = closure70() │
00:10:27 verbose #67174 > │ UH0_0(11.664236787310005, v0) │
00:10:27 verbose #67175 > │ and closure68 () () : UH0 = │
00:10:27 verbose #67176 > │ let v0 : (unit -> UH0) = closure69() │
00:10:27 verbose #67177 > │ UH0_0(11.664236760355733, v0) │
00:10:27 verbose #67178 > │ and closure67 () () : UH0 = │
00:10:27 verbose #67179 > │ let v0 : (unit -> UH0) = closure68() │
00:10:27 verbose #67180 > │ UH0_0(11.664236724657123, v0) │
00:10:27 verbose #67181 > │ and closure66 () () : UH0 = │
00:10:27 verbose #67182 > │ let v0 : (unit -> UH0) = closure67() │
00:10:27 verbose #67183 > │ UH0_0(11.66423667737739, v0) │
00:10:27 verbose #67184 > │ and closure65 () () : UH0 = │
00:10:27 verbose #67185 > │ let v0 : (unit -> UH0) = closure66() │
00:10:27 verbose #67186 > │ UH0_0(11.664236614759462, v0) │
00:10:27 verbose #67187 > │ and closure64 () () : UH0 = │
00:10:27 verbose #67188 > │ let v0 : (unit -> UH0) = closure65() │
00:10:27 verbose #67189 > │ UH0_0(11.664236531827415, v0) │
00:10:27 verbose #67190 > │ and closure63 () () : UH0 = │
00:10:27 verbose #67191 > │ let v0 : (unit -> UH0) = closure64() │
00:10:27 verbose #67192 > │ UH0_0(11.664236421991067, v0) │
00:10:27 verbose #67193 > │ and closure62 () () : UH0 = │
00:10:27 verbose #67194 > │ let v0 : (unit -> UH0) = closure63() │
00:10:27 verbose #67195 > │ UH0_0(11.664236276522294, v0) │
00:10:27 verbose #67196 > │ and closure61 () () : UH0 = │
00:10:27 verbose #67197 > │ let v0 : (unit -> UH0) = closure62() │
00:10:27 verbose #67198 > │ UH0_0(11.664236083861448, v0) │
00:10:27 verbose #67199 > │ and closure60 () () : UH0 = │
00:10:27 verbose #67200 > │ let v0 : (unit -> UH0) = closure61() │
00:10:27 verbose #67201 > │ UH0_0(11.664235828698772, v0) │
00:10:27 verbose #67202 > │ and closure59 () () : UH0 = │
00:10:27 verbose #67203 > │ let v0 : (unit -> UH0) = closure60() │
00:10:27 verbose #67204 > │ UH0_0(11.664235490757811, v0) │
00:10:27 verbose #67205 > │ and closure58 () () : UH0 = │
00:10:27 verbose #67206 > │ let v0 : (unit -> UH0) = closure59() │
00:10:27 verbose #67207 > │ UH0_0(11.664235043184158, v0) │
00:10:27 verbose #67208 > │ and closure57 () () : UH0 = │
00:10:27 verbose #67209 > │ let v0 : (unit -> UH0) = closure58() │
00:10:27 verbose #67210 > │ UH0_0(11.66423445041147, v0) │
00:10:27 verbose #67211 > │ and closure56 () () : UH0 = │
00:10:27 verbose #67212 > │ let v0 : (unit -> UH0) = closure57() │
00:10:27 verbose #67213 > │ UH0_0(11.664233665335203, v0) │
00:10:27 verbose #67214 > │ and closure55 () () : UH0 = │
00:10:27 verbose #67215 > │ let v0 : (unit -> UH0) = closure56() │
00:10:27 verbose #67216 > │ UH0_0(11.664232625569467, v0) │
00:10:27 verbose #67217 > │ and closure54 () () : UH0 = │
00:10:27 verbose #67218 > │ let v0 : (unit -> UH0) = closure55() │
00:10:27 verbose #67219 > │ UH0_0(11.664231248489562, v0) │
00:10:27 verbose #67220 > │ and closure53 () () : UH0 = │
00:10:27 verbose #67221 > │ let v0 : (unit -> UH0) = closure54() │
00:10:27 verbose #67222 > │ UH0_0(11.664229424666262, v0) │
00:10:27 verbose #67223 > │ and closure52 () () : UH0 = │
00:10:27 verbose #67224 > │ let v0 : (unit -> UH0) = closure53() │
00:10:27 verbose #67225 > │ UH0_0(11.66422700917009, v0) │
00:10:27 verbose #67226 > │ and closure51 () () : UH0 = │
00:10:27 verbose #67227 > │ let v0 : (unit -> UH0) = closure52() │
00:10:27 verbose #67228 > │ UH0_0(11.664223810054642, v0) │
00:10:27 verbose #67229 > │ and closure50 () () : UH0 = │
00:10:27 verbose #67230 > │ let v0 : (unit -> UH0) = closure51() │
00:10:27 verbose #67231 > │ UH0_0(11.664219573103773, v0) │
00:10:27 verbose #67232 > │ and closure49 () () : UH0 = │
00:10:27 verbose #67233 > │ let v0 : (unit -> UH0) = closure50() │
00:10:27 verbose #67234 > │ UH0_0(11.6642139616307, v0) │
00:10:27 verbose #67235 > │ and closure48 () () : UH0 = │
00:10:27 verbose #67236 > │ let v0 : (unit -> UH0) = closure49() │
00:10:27 verbose #67237 > │ UH0_0(11.664206529723813, v0) │
00:10:27 verbose #67238 > │ and closure47 () () : UH0 = │
00:10:27 verbose #67239 > │ let v0 : (unit -> UH0) = closure48() │
00:10:27 verbose #67240 > │ UH0_0(11.664196686813408, v0) │
00:10:27 verbose #67241 > │ and closure46 () () : UH0 = │
00:10:27 verbose #67242 > │ let v0 : (unit -> UH0) = closure47() │
00:10:27 verbose #67243 > │ UH0_0(11.664183650743945, v0) │
00:10:27 verbose #67244 > │ and closure45 () () : UH0 = │
00:10:27 verbose #67245 > │ let v0 : (unit -> UH0) = closure46() │
00:10:27 verbose #67246 > │ UH0_0(11.664166385623318, v0) │
00:10:27 verbose #67247 > │ and closure44 () () : UH0 = │
00:10:27 verbose #67248 > │ let v0 : (unit -> UH0) = closure45() │
00:10:27 verbose #67249 > │ UH0_0(11.664143519511356, v0) │
00:10:27 verbose #67250 > │ and closure43 () () : UH0 = │
00:10:27 verbose #67251 > │ let v0 : (unit -> UH0) = closure44() │
00:10:27 verbose #67252 > │ UH0_0(11.664113235408447, v0) │
00:10:27 verbose #67253 > │ and closure42 () () : UH0 = │
00:10:27 verbose #67254 > │ let v0 : (unit -> UH0) = closure43() │
00:10:27 verbose #67255 > │ UH0_0(11.66407312688485, v0) │
00:10:27 verbose #67256 > │ and closure41 () () : UH0 = │
00:10:27 verbose #67257 > │ let v0 : (unit -> UH0) = closure42() │
00:10:27 verbose #67258 > │ UH0_0(11.664020006883758, v0) │
00:10:27 verbose #67259 > │ and closure40 () () : UH0 = │
00:10:27 verbose #67260 > │ let v0 : (unit -> UH0) = closure41() │
00:10:27 verbose #67261 > │ UH0_0(11.663949654514292, v0) │
00:10:27 verbose #67262 > │ and closure39 () () : UH0 = │
00:10:27 verbose #67263 > │ let v0 : (unit -> UH0) = closure40() │
00:10:27 verbose #67264 > │ UH0_0(11.663856479730171, v0) │
00:10:27 verbose #67265 > │ and closure38 () () : UH0 = │
00:10:27 verbose #67266 > │ let v0 : (unit -> UH0) = closure39() │
00:10:27 verbose #67267 > │ UH0_0(11.663733079277343, v0) │
00:10:27 verbose #67268 > │ and closure37 () () : UH0 = │
00:10:27 verbose #67269 > │ let v0 : (unit -> UH0) = closure38() │
00:10:27 verbose #67270 > │ UH0_0(11.663569648675777, v0) │
00:10:27 verbose #67271 > │ and closure36 () () : UH0 = │
00:10:27 verbose #67272 > │ let v0 : (unit -> UH0) = closure37() │
00:10:27 verbose #67273 > │ UH0_0(11.663353203599439, v0) │
00:10:27 verbose #67274 > │ and closure35 () () : UH0 = │
00:10:27 verbose #67275 > │ let v0 : (unit -> UH0) = closure36() │
00:10:27 verbose #67276 > │ UH0_0(11.663066548940721, v0) │
00:10:27 verbose #67277 > │ and closure34 () () : UH0 = │
00:10:27 verbose #67278 > │ let v0 : (unit -> UH0) = closure35() │
00:10:27 verbose #67279 > │ UH0_0(11.662686913915445, v0) │
00:10:27 verbose #67280 > │ and closure33 () () : UH0 = │
00:10:27 verbose #67281 > │ let v0 : (unit -> UH0) = closure34() │
00:10:27 verbose #67282 > │ UH0_0(11.662184145236864, v0) │
00:10:27 verbose #67283 > │ and closure32 () () : UH0 = │
00:10:27 verbose #67284 > │ let v0 : (unit -> UH0) = closure33() │
00:10:27 verbose #67285 > │ UH0_0(11.661518315638029, v0) │
00:10:27 verbose #67286 > │ and closure31 () () : UH0 = │
00:10:27 verbose #67287 > │ let v0 : (unit -> UH0) = closure32() │
00:10:27 verbose #67288 > │ UH0_0(11.66063655920926, v0) │
00:10:27 verbose #67289 > │ and closure30 () () : UH0 = │
00:10:27 verbose #67290 > │ let v0 : (unit -> UH0) = closure31() │
00:10:27 verbose #67291 > │ UH0_0(11.659468884709733, v0) │
00:10:27 verbose #67292 > │ and closure29 () () : UH0 = │
00:10:27 verbose #67293 > │ let v0 : (unit -> UH0) = closure30() │
00:10:27 verbose #67294 > │ UH0_0(11.657922638782631, v0) │
00:10:27 verbose #67295 > │ and closure28 () () : UH0 = │
00:10:27 verbose #67296 > │ let v0 : (unit -> UH0) = closure29() │
00:10:27 verbose #67297 > │ UH0_0(11.655875187195818, v0) │
00:10:27 verbose #67298 > │ and closure27 () () : UH0 = │
00:10:27 verbose #67299 > │ let v0 : (unit -> UH0) = closure28() │
00:10:27 verbose #67300 > │ UH0_0(11.653164246713697, v0) │
00:10:27 verbose #67301 > │ and closure26 () () : UH0 = │
00:10:27 verbose #67302 > │ let v0 : (unit -> UH0) = closure27() │
00:10:27 verbose #67303 > │ UH0_0(11.64957512416459, v0) │
00:10:27 verbose #67304 > │ and closure25 () () : UH0 = │
00:10:27 verbose #67305 > │ let v0 : (unit -> UH0) = closure26() │
00:10:27 verbose #67306 > │ UH0_0(11.644823892116417, v0) │
00:10:27 verbose #67307 > │ and closure24 () () : UH0 = │
00:10:27 verbose #67308 > │ let v0 : (unit -> UH0) = closure25() │
00:10:27 verbose #67309 > │ UH0_0(11.63853524018339, v0) │
00:10:27 verbose #67310 > │ and closure23 () () : UH0 = │
00:10:27 verbose #67311 > │ let v0 : (unit -> UH0) = closure24() │
00:10:27 verbose #67312 > │ UH0_0(11.630213374558416, v0) │
00:10:27 verbose #67313 > │ and closure22 () () : UH0 = │
00:10:27 verbose #67314 > │ let v0 : (unit -> UH0) = closure23() │
00:10:27 verbose #67315 > │ UH0_0(11.619203884549703, v0) │
00:10:27 verbose #67316 > │ and closure21 () () : UH0 = │
00:10:27 verbose #67317 > │ let v0 : (unit -> UH0) = closure22() │
00:10:27 verbose #67318 > │ UH0_0(11.604643948207235, v0) │
00:10:27 verbose #67319 > │ and closure20 () () : UH0 = │
00:10:27 verbose #67320 > │ let v0 : (unit -> UH0) = closure21() │
00:10:27 verbose #67321 > │ UH0_0(11.585397618384544, v0) │
00:10:27 verbose #67322 > │ and closure19 () () : UH0 = │
00:10:27 verbose #67323 > │ let v0 : (unit -> UH0) = closure20() │
00:10:27 verbose #67324 > │ UH0_0(11.559972254267073, v0) │
00:10:27 verbose #67325 > │ and closure18 () () : UH0 = │
00:10:27 verbose #67326 > │ let v0 : (unit -> UH0) = closure19() │
00:10:27 verbose #67327 > │ UH0_0(11.526411536153837, v0) │
00:10:27 verbose #67328 > │ and closure17 () () : UH0 = │
00:10:27 verbose #67329 > │ let v0 : (unit -> UH0) = closure18() │
00:10:27 verbose #67330 > │ UH0_0(11.48216011776808, v0) │
00:10:27 verbose #67331 > │ and closure16 () () : UH0 = │
00:10:27 verbose #67332 > │ let v0 : (unit -> UH0) = closure17() │
00:10:27 verbose #67333 > │ UH0_0(11.42389519391233, v0) │
00:10:27 verbose #67334 > │ and closure15 () () : UH0 = │
00:10:27 verbose #67335 > │ let v0 : (unit -> UH0) = closure16() │
00:10:27 verbose #67336 > │ UH0_0(11.347321723441393, v0) │
00:10:27 verbose #67337 > │ and closure14 () () : UH0 = │
00:10:27 verbose #67338 > │ let v0 : (unit -> UH0) = closure15() │
00:10:27 verbose #67339 > │ UH0_0(11.246931775734161, v0) │
00:10:27 verbose #67340 > │ and closure13 () () : UH0 = │
00:10:27 verbose #67341 > │ let v0 : (unit -> UH0) = closure14() │
00:10:27 verbose #67342 > │ UH0_0(11.115736011467376, v0) │
00:10:27 verbose #67343 > │ and closure12 () () : UH0 = │
00:10:27 verbose #67344 > │ let v0 : (unit -> UH0) = closure13() │
00:10:27 verbose #67345 > │ UH0_0(10.94498876251829, v0) │
00:10:27 verbose #67346 > │ and closure11 () () : UH0 = │
00:10:27 verbose #67347 > │ let v0 : (unit -> UH0) = closure12() │
00:10:27 verbose #67348 > │ UH0_0(10.72394989903564, v0) │
00:10:27 verbose #67349 > │ and closure10 () () : UH0 = │
00:10:27 verbose #67350 > │ let v0 : (unit -> UH0) = closure11() │
00:10:27 verbose #67351 > │ UH0_0(10.439758275369812, v0) │
00:10:27 verbose #67352 > │ and closure9 () () : UH0 = │
00:10:27 verbose #67353 > │ let v0 : (unit -> UH0) = closure10() │
00:10:27 verbose #67354 > │ UH0_0(10.077531599826058, v0) │
00:10:27 verbose #67355 > │ and closure8 () () : UH0 = │
00:10:27 verbose #67356 > │ let v0 : (unit -> UH0) = closure9() │
00:10:27 verbose #67357 > │ UH0_0(9.62084761372258, v0) │
00:10:27 verbose #67358 > │ and closure7 () () : UH0 = │
00:10:27 verbose #67359 > │ let v0 : (unit -> UH0) = closure8() │
00:10:27 verbose #67360 > │ UH0_0(9.052781056066443, v0) │
00:10:27 verbose #67361 > │ and closure6 () () : UH0 = │
00:10:27 verbose #67362 > │ let v0 : (unit -> UH0) = closure7() │
00:10:27 verbose #67363 > │ UH0_0(8.357635347880503, v0) │
00:10:27 verbose #67364 > │ and closure5 () () : UH0 = │
00:10:27 verbose #67365 > │ let v0 : (unit -> UH0) = closure6() │
00:10:27 verbose #67366 > │ UH0_0(7.523376447621674, v0) │
00:10:27 verbose #67367 > │ and closure4 () () : UH0 = │
00:10:27 verbose #67368 > │ let v0 : (unit -> UH0) = closure5() │
00:10:27 verbose #67369 > │ UH0_0(6.544529054818572, v0) │
00:10:27 verbose #67370 > │ and closure3 () () : UH0 = │
00:10:27 verbose #67371 > │ let v0 : (unit -> UH0) = closure4() │
00:10:27 verbose #67372 > │ UH0_0(5.424976512996006, v0) │
00:10:27 verbose #67373 > │ and closure2 () () : UH0 = │
00:10:27 verbose #67374 > │ let v0 : (unit -> UH0) = closure3() │
00:10:27 verbose #67375 > │ UH0_0(4.179852321428571, v0) │
00:10:27 verbose #67376 > │ and closure1 () () : UH0 = │
00:10:27 verbose #67377 > │ let v0 : (unit -> UH0) = closure2() │
00:10:27 verbose #67378 > │ UH0_0(2.835714285714286, v0) │
00:10:27 verbose #67379 > │ and closure0 () () : UH0 = │
00:10:27 verbose #67380 > │ let v0 : (unit -> UH0) = closure1() │
00:10:27 verbose #67381 > │ UH0_0(1.4285714285714286, v0) │
00:10:27 verbose #67382 > │ and method3 (v0 : float, v1 : UH0) : US0 = │
00:10:27 verbose #67383 > │ match v1 with │
00:10:27 verbose #67384 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:10:27 verbose #67385 > │ let v4 : bool = v0 <= 0.0 │
00:10:27 verbose #67386 > │ if v4 then │
00:10:27 verbose #67387 > │ US0_0(v2) │
00:10:27 verbose #67388 > │ else │
00:10:27 verbose #67389 > │ let v6 : float = v0 - 1.0 │
00:10:27 verbose #67390 > │ let v7 : UH0 = v3 () │
00:10:27 verbose #67391 > │ method3(v6, v7) │
00:10:27 verbose #67392 > │ | UH0_1 -> (* StreamNil *) │
00:10:27 verbose #67393 > │ US0_1 │
00:10:27 verbose #67394 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:27 verbose #67395 > │ []) * (float [])) [])) = │
00:10:27 verbose #67396 > │ let v0 : (float []) = Array.zeroCreate<float> (121) │
00:10:27 verbose #67397 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:27 verbose #67398 > │ while method1(v1) do │
00:10:27 verbose #67399 > │ let v3 : int32 = v1.l0 │
00:10:27 verbose #67400 > │ let v4 : float = float v3 │
00:10:27 verbose #67401 > │ let v5 : float = 0.5 * v4 │
00:10:27 verbose #67402 > │ v0.[int v3] <- v5 │
00:10:27 verbose #67403 > │ let v6 : int32 = v3 + 1 │
00:10:27 verbose #67404 > │ v1.l0 <- v6 │
00:10:27 verbose #67405 > │ () │
00:10:27 verbose #67406 > │ let v7 : int32 = v0.Length │
00:10:27 verbose #67407 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:27 verbose #67408 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:27 verbose #67409 > │ while method2(v7, v9) do │
00:10:27 verbose #67410 > │ let v11 : int32 = v9.l0 │
00:10:27 verbose #67411 > │ let v12 : float = v0.[int v11] │
00:10:27 verbose #67412 > │ let v13 : float = round v12 │
00:10:27 verbose #67413 > │ let v14 : float = -v13 │
00:10:27 verbose #67414 > │ let v15 : bool = v13 >= v14 │
00:10:27 verbose #67415 > │ let v16 : float = │
00:10:27 verbose #67416 > │ if v15 then │
00:10:27 verbose #67417 > │ v13 │
00:10:27 verbose #67418 > │ else │
00:10:27 verbose #67419 > │ v14 │
00:10:27 verbose #67420 > │ let v17 : float = 0.0 │
00:10:27 verbose #67421 > │ let v18 : (unit -> UH0) = closure0() │
00:10:27 verbose #67422 > │ let v19 : UH0 = UH0_0(v17, v18) │
00:10:27 verbose #67423 > │ let v20 : US0 = method3(v16, v19) │
00:10:27 verbose #67424 > │ let v23 : float = │
00:10:27 verbose #67425 > │ match v20 with │
00:10:27 verbose #67426 > │ | US0_1 -> (* None *) │
00:10:27 verbose #67427 > │ 0.0 │
00:10:27 verbose #67428 > │ | US0_0(v21) -> (* Some *) │
00:10:27 verbose #67429 > │ v21 │
00:10:27 verbose #67430 > │ v8.[int v11] <- v23 │
00:10:27 verbose #67431 > │ let v24 : int32 = v11 + 1 │
00:10:27 verbose #67432 > │ v9.l0 <- v24 │
00:10:27 verbose #67433 > │ () │
00:10:27 verbose #67434 > │ let v25 : string = "velocity of bike (m/s)" │
00:10:27 verbose #67435 > │ let v26 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:27 verbose #67436 > │ (v25, v0, v8)|] │
00:10:27 verbose #67437 > │ let v27 : string = "bike velocity" │
00:10:27 verbose #67438 > │ let v28 : string = "time (s)" │
00:10:27 verbose #67439 > │ let v29 : string = "" │
00:10:27 verbose #67440 > │ struct (v27, v28, v29, v26) │
00:10:27 verbose #67441 > │ method0() │
00:10:27 verbose #67442 > │ │
00:10:27 verbose #67443 > │ │
00:10:27 verbose #67444 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #67445 >
00:10:27 verbose #67446 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #67447 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #67448 > │ ## velocity_ftv │
00:10:27 verbose #67449 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #67450 >
00:10:27 verbose #67451 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #67452 > inl newton_second_tv m fs (t, v0) =
00:10:27 verbose #67453 > inl f_net = fs |> listm.map (fun f => f (t, v0)) |> listm'.sum
00:10:27 verbose #67454 > inl acc = f_net / m
00:10:27 verbose #67455 > 1, acc
00:10:27 verbose #67456 >
00:10:27 verbose #67457 > inl update_tv dt m fs (t, v0) =
00:10:27 verbose #67458 > inl dtdt, dvdt = newton_second_tv m fs (t, v0)
00:10:27 verbose #67459 > t + dtdt * dt, v0 + dvdt * dt
00:10:27 verbose #67460 >
00:10:27 verbose #67461 > inl velocity_ftv dt m tv0 fs t =
00:10:27 verbose #67462 > stream.iterate (join update_tv dt m fs) tv0
00:10:27 verbose #67463 > |> stream.try_item (t / dt |> math.round |> abs)
00:10:27 verbose #67464 > |> optionm.map snd
00:10:27 verbose #67465 > |> optionm'.default_value 0
00:10:27 verbose #67466 > 00:10:26 debug #768 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d218a9f0d4f71edfddf9edaab957f8fab2b166eece9ba73b5e32b4571d892197/main.spi
00:10:27 verbose #67467 >
00:10:27 verbose #67468 > ╭─[ 202.92ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #67469 > │ () │
00:10:27 verbose #67470 > │ │
00:10:27 verbose #67471 > │ │
00:10:27 verbose #67472 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #67473 >
00:10:27 verbose #67474 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #67475 > // // test
00:10:27 verbose #67476 >
00:10:27 verbose #67477 > inl x = am'.init_series 0 100 0.1
00:10:27 verbose #67478 > inl y =
00:10:27 verbose #67479 > x
00:10:27 verbose #67480 > |> am.map (
00:10:27 verbose #67481 > velocity_ftv 0.1 20 (dyn (0, 0)) [[ fun (t, _) => pedal_coast t; fun (_,
00:10:27 verbose #67482 > v) => f_air 2 1.225 0.5 v ]]
00:10:27 verbose #67483 > )
00:10:27 verbose #67484 > "pedaling and coasting with air", "time (s)", "", ;[[ "velocity of bike (m/s)",
00:10:27 verbose #67485 > x, y ]]
00:10:27 verbose #67486 > 00:10:27 debug #769 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/11d81127bc5df6c3de0208718f589d1a44b95a9738be9b46afa4314ff75080c3/main.spi
00:10:28 verbose #67487 >
00:10:28 verbose #67488 > ╭─[ 538.73ms - return value ]──────────────────────────────────────────────────╮
00:10:28 verbose #67489 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:28 verbose #67490 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:28 verbose #67491 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:28 verbose #67492 > │ stroke="none"/> │
00:10:28 verbose #67493 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:28 verbose #67494 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:28 verbose #67495 > │ fill="#FFFFFF"> │
00:10:28 verbose #67496 > │ pedaling and coasting with air │
00:10:28 verbose #67497 > │ </text> │
00:10:28 verbose #67498 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:28 verbose #67499 > │ y2="75"/> │
00:10:28 verbose #67500 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:28 verbose #67501 > │ y2="75"/> │
00:10:28 verbose #67502 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:28 verbose #67503 > │ y2="75"/> │
00:10:28 verbose #67504 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:28 verbose #67505 > │ y2="75"/> │
00:10:28 verbose #67506 > │ <line opacity="1" stroke="#323232" stroke-width="1" x... │
00:10:28 verbose #67507 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #67508 >
00:10:28 verbose #67509 > ╭─[ 551.31ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #67510 > │ type Mut0 = {mutable l0 : int32} │
00:10:28 verbose #67511 > │ and UH0 = │
00:10:28 verbose #67512 > │ | UH0_0 of float * float * (unit -> UH0) │
00:10:28 verbose #67513 > │ | UH0_1 │
00:10:28 verbose #67514 > │ and [<Struct>] US0 = │
00:10:28 verbose #67515 > │ | US0_0 of f0_0 : float * f0_1 : float │
00:10:28 verbose #67516 > │ | US0_1 │
00:10:28 verbose #67517 > │ and [<Struct>] US1 = │
00:10:28 verbose #67518 > │ | US1_0 of f0_0 : float │
00:10:28 verbose #67519 > │ | US1_1 │
00:10:28 verbose #67520 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:28 verbose #67521 > │ let v1 : int32 = v0.l0 │
00:10:28 verbose #67522 > │ let v2 : bool = v1 < 1001 │
00:10:28 verbose #67523 > │ v2 │
00:10:28 verbose #67524 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:28 verbose #67525 > │ let v2 : int32 = v1.l0 │
00:10:28 verbose #67526 > │ let v3 : bool = v2 < v0 │
00:10:28 verbose #67527 > │ v3 │
00:10:28 verbose #67528 > │ and closure0 () struct (v0 : float, v1 : float) : struct (float * float) = │
00:10:28 verbose #67529 > │ let v2 : float = -v1 │
00:10:28 verbose #67530 > │ let v3 : bool = v1 >= v2 │
00:10:28 verbose #67531 > │ let v4 : float = │
00:10:28 verbose #67532 > │ if v3 then │
00:10:28 verbose #67533 > │ v1 │
00:10:28 verbose #67534 > │ else │
00:10:28 verbose #67535 > │ v2 │
00:10:28 verbose #67536 > │ let v5 : float = -1.225 * v4 │
00:10:28 verbose #67537 > │ let v6 : float = v5 * v1 │
00:10:28 verbose #67538 > │ let v7 : float = v6 / 2.0 │
00:10:28 verbose #67539 > │ let v8 : float = v0 / 20.0 │
00:10:28 verbose #67540 > │ let v9 : int32 = int32 v8 │
00:10:28 verbose #67541 > │ let v10 : float = float v9 │
00:10:28 verbose #67542 > │ let v11 : float = v10 * 20.0 │
00:10:28 verbose #67543 > │ let v12 : float = v0 - v11 │
00:10:28 verbose #67544 > │ let v13 : bool = v12 > 0.0 │
00:10:28 verbose #67545 > │ let v15 : bool = │
00:10:28 verbose #67546 > │ if v13 then │
00:10:28 verbose #67547 > │ let v14 : bool = v12 < 10.0 │
00:10:28 verbose #67548 > │ v14 │
00:10:28 verbose #67549 > │ else │
00:10:28 verbose #67550 > │ false │
00:10:28 verbose #67551 > │ let v16 : float = │
00:10:28 verbose #67552 > │ if v15 then │
00:10:28 verbose #67553 > │ 10.0 │
00:10:28 verbose #67554 > │ else │
00:10:28 verbose #67555 > │ 0.0 │
00:10:28 verbose #67556 > │ let v17 : float = v16 + v7 │
00:10:28 verbose #67557 > │ let v18 : float = v17 / 20.0 │
00:10:28 verbose #67558 > │ let v19 : float = v0 + 0.1 │
00:10:28 verbose #67559 > │ let v20 : float = v18 * 0.1 │
00:10:28 verbose #67560 > │ let v21 : float = v1 + v20 │
00:10:28 verbose #67561 > │ struct (v19, v21) │
00:10:28 verbose #67562 > │ and method3 () : (struct (float * float) -> struct (float * float)) = │
00:10:28 verbose #67563 > │ closure0() │
00:10:28 verbose #67564 > │ and closure1 (v0 : (struct (float * float) -> struct (float * float)), v1 : │
00:10:28 verbose #67565 > │ float, v2 : float, v3 : float, v4 : float) () : UH0 = │
00:10:28 verbose #67566 > │ let struct (v5 : float, v6 : float) = v0 struct (v3, v4) │
00:10:28 verbose #67567 > │ let v7 : (unit -> UH0) = closure1(v0, v1, v2, v5, v6) │
00:10:28 verbose #67568 > │ UH0_0(v3, v4, v7) │
00:10:28 verbose #67569 > │ and method4 (v0 : float, v1 : UH0) : US0 = │
00:10:28 verbose #67570 > │ match v1 with │
00:10:28 verbose #67571 > │ | UH0_0(v2, v3, v4) -> (* StreamCons *) │
00:10:28 verbose #67572 > │ let v5 : bool = v0 <= 0.0 │
00:10:28 verbose #67573 > │ if v5 then │
00:10:28 verbose #67574 > │ US0_0(v2, v3) │
00:10:28 verbose #67575 > │ else │
00:10:28 verbose #67576 > │ let v7 : float = v0 - 1.0 │
00:10:28 verbose #67577 > │ let v8 : UH0 = v4 () │
00:10:28 verbose #67578 > │ method4(v7, v8) │
00:10:28 verbose #67579 > │ | UH0_1 -> (* StreamNil *) │
00:10:28 verbose #67580 > │ US0_1 │
00:10:28 verbose #67581 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:28 verbose #67582 > │ []) * (float [])) [])) = │
00:10:28 verbose #67583 > │ let v0 : (float []) = Array.zeroCreate<float> (1001) │
00:10:28 verbose #67584 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:28 verbose #67585 > │ while method1(v1) do │
00:10:28 verbose #67586 > │ let v3 : int32 = v1.l0 │
00:10:28 verbose #67587 > │ let v4 : float = float v3 │
00:10:28 verbose #67588 > │ let v5 : float = 0.1 * v4 │
00:10:28 verbose #67589 > │ v0.[int v3] <- v5 │
00:10:28 verbose #67590 > │ let v6 : int32 = v3 + 1 │
00:10:28 verbose #67591 > │ v1.l0 <- v6 │
00:10:28 verbose #67592 > │ () │
00:10:28 verbose #67593 > │ let v7 : float = 0.0 │
00:10:28 verbose #67594 > │ let v8 : float = 0.0 │
00:10:28 verbose #67595 > │ let v9 : int32 = v0.Length │
00:10:28 verbose #67596 > │ let v10 : (float []) = Array.zeroCreate<float> (v9) │
00:10:28 verbose #67597 > │ let v11 : Mut0 = {l0 = 0} : Mut0 │
00:10:28 verbose #67598 > │ while method2(v9, v11) do │
00:10:28 verbose #67599 > │ let v13 : int32 = v11.l0 │
00:10:28 verbose #67600 > │ let v14 : float = v0.[int v13] │
00:10:28 verbose #67601 > │ let v15 : (struct (float * float) -> struct (float * float)) = │
00:10:28 verbose #67602 > │ method3() │
00:10:28 verbose #67603 > │ let struct (v16 : float, v17 : float) = v15 struct (v7, v8) │
00:10:28 verbose #67604 > │ let v18 : float = v14 / 0.1 │
00:10:28 verbose #67605 > │ let v19 : float = round v18 │
00:10:28 verbose #67606 > │ let v20 : float = -v19 │
00:10:28 verbose #67607 > │ let v21 : bool = v19 >= v20 │
00:10:28 verbose #67608 > │ let v22 : float = │
00:10:28 verbose #67609 > │ if v21 then │
00:10:28 verbose #67610 > │ v19 │
00:10:28 verbose #67611 > │ else │
00:10:28 verbose #67612 > │ v20 │
00:10:28 verbose #67613 > │ let v23 : (unit -> UH0) = closure1(v15, v7, v8, v16, v17) │
00:10:28 verbose #67614 > │ let v24 : UH0 = UH0_0(v7, v8, v23) │
00:10:28 verbose #67615 > │ let v25 : US0 = method4(v22, v24) │
00:10:28 verbose #67616 > │ let v31 : US1 = │
00:10:28 verbose #67617 > │ match v25 with │
00:10:28 verbose #67618 > │ | US0_1 -> (* None *) │
00:10:28 verbose #67619 > │ US1_1 │
00:10:28 verbose #67620 > │ | US0_0(v26, v27) -> (* Some *) │
00:10:28 verbose #67621 > │ US1_0(v27) │
00:10:28 verbose #67622 > │ let v34 : float = │
00:10:28 verbose #67623 > │ match v31 with │
00:10:28 verbose #67624 > │ | US1_1 -> (* None *) │
00:10:28 verbose #67625 > │ 0.0 │
00:10:28 verbose #67626 > │ | US1_0(v32) -> (* Some *) │
00:10:28 verbose #67627 > │ v32 │
00:10:28 verbose #67628 > │ v10.[int v13] <- v34 │
00:10:28 verbose #67629 > │ let v35 : int32 = v13 + 1 │
00:10:28 verbose #67630 > │ v11.l0 <- v35 │
00:10:28 verbose #67631 > │ () │
00:10:28 verbose #67632 > │ let v36 : string = "velocity of bike (m/s)" │
00:10:28 verbose #67633 > │ let v37 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:28 verbose #67634 > │ (v36, v0, v10)|] │
00:10:28 verbose #67635 > │ let v38 : string = "pedaling and coasting with air" │
00:10:28 verbose #67636 > │ let v39 : string = "time (s)" │
00:10:28 verbose #67637 > │ let v40 : string = "" │
00:10:28 verbose #67638 > │ struct (v38, v39, v40, v37) │
00:10:28 verbose #67639 > │ method0() │
00:10:28 verbose #67640 > │ │
00:10:28 verbose #67641 > │ │
00:10:28 verbose #67642 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #67643 >
00:10:28 verbose #67644 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:28 verbose #67645 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:28 verbose #67646 > │ ## velocity_ftxv │
00:10:28 verbose #67647 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #67648 >
00:10:28 verbose #67649 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #67650 > nominal state_1d = time * position * velocity
00:10:28 verbose #67651 > nominal rrr = f64 * f64 * f64
00:10:28 verbose #67652 >
00:10:28 verbose #67653 > inl newton_second_1d m fs (state_1d (t, x0, v0)) =
00:10:28 verbose #67654 > inl f_net = fs |> listm.map (fun f => f (state_1d (t, x0, v0))) |>
00:10:28 verbose #67655 > listm'.sum
00:10:28 verbose #67656 > inl acc = f_net / m
00:10:28 verbose #67657 > rrr (1f64, v0, acc)
00:10:28 verbose #67658 >
00:10:28 verbose #67659 > inl euler_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:10:28 verbose #67660 > inl (rrr (_, _, dvdt)) = deriv t
00:10:28 verbose #67661 > inl t1 = t0 + dt
00:10:28 verbose #67662 > inl x1 = x0 + v0 * dt
00:10:28 verbose #67663 > inl v1 = v0 + dvdt * dt
00:10:28 verbose #67664 > state_1d (t1, x1, v1)
00:10:28 verbose #67665 >
00:10:28 verbose #67666 > inl update_txv dt m fs =
00:10:28 verbose #67667 > newton_second_1d m fs |> euler_1d dt
00:10:28 verbose #67668 >
00:10:28 verbose #67669 > inl states_txv dt m txv0 fs =
00:10:28 verbose #67670 > seq.iterate_ (update_txv dt m fs) txv0
00:10:28 verbose #67671 >
00:10:28 verbose #67672 > inl velocity_1d sts t =
00:10:28 verbose #67673 > inl (state_1d (t0, _, _)) = sts 0
00:10:28 verbose #67674 > inl (state_1d (t1, _, _)) = sts 1
00:10:28 verbose #67675 > inl dt = t1 - t0
00:10:28 verbose #67676 > inl num_steps = t / dt |> math.round |> abs
00:10:28 verbose #67677 > inl (state_1d (_, _, v0)) = sts num_steps
00:10:28 verbose #67678 > v0
00:10:28 verbose #67679 >
00:10:28 verbose #67680 > inl velocity_ftxv dt m txv0 fs =
00:10:28 verbose #67681 > states_txv dt m txv0 fs |> velocity_1d
00:10:28 verbose #67682 >
00:10:28 verbose #67683 > inl position_1d sts t =
00:10:28 verbose #67684 > inl (state_1d (t0, _, _)) = sts 0
00:10:28 verbose #67685 > inl (state_1d (t1, _, _)) = sts 1
00:10:28 verbose #67686 > inl dt = t1 - t0
00:10:28 verbose #67687 > inl num_steps = t / dt |> math.round |> abs
00:10:28 verbose #67688 > inl (state_1d (_, x0, _)) = sts num_steps
00:10:28 verbose #67689 > x0
00:10:28 verbose #67690 >
00:10:28 verbose #67691 > inl position_ftxv dt m txv0 fs =
00:10:28 verbose #67692 > states_txv dt m txv0 fs |> position_1d
00:10:28 verbose #67693 >
00:10:28 verbose #67694 > inl spring_force k (state_1d (_, x0, _)) =
00:10:28 verbose #67695 > -k * x0
00:10:28 verbose #67696 > 00:10:27 debug #770 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/89b3a4095c013cc6473d1bc2bf94e7ef989921c44e204dd9594201600f91ec7a/main.spi
00:10:28 verbose #67697 >
00:10:28 verbose #67698 > ╭─[ 248.41ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #67699 > │ () │
00:10:28 verbose #67700 > │ │
00:10:28 verbose #67701 > │ │
00:10:28 verbose #67702 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #67703 >
00:10:28 verbose #67704 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #67705 > // // test
00:10:28 verbose #67706 >
00:10:28 verbose #67707 > inl damped_ho_forces () =
00:10:28 verbose #67708 > [[
00:10:28 verbose #67709 > spring_force 0.8
00:10:28 verbose #67710 > fun (state_1d (_, _, v0)) => f_air 2 1.225 (pi * math.square 0.02) v0
00:10:28 verbose #67711 > fun _ => -0.0027 * 9.80665
00:10:28 verbose #67712 > ]]
00:10:28 verbose #67713 >
00:10:28 verbose #67714 > inl damped_ho_states () =
00:10:28 verbose #67715 > states_txv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ())
00:10:28 verbose #67716 >
00:10:28 verbose #67717 > inl pingpong_position t =
00:10:28 verbose #67718 > position_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:10:28 verbose #67719 >
00:10:28 verbose #67720 > inl x : a _ f64 = am'.init_series 0 3 0.01
00:10:28 verbose #67721 > inl y = x |> am.map pingpong_position
00:10:28 verbose #67722 > "ping pong ball on a slinky", "time (s)", "", ;[[ "position (m)", x, y ]]
00:10:28 verbose #67723 > 00:10:27 debug #771 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/42e95dd9ca916012d6e31809c95132abe5b9eb77f49dcdee3fa5bf715799e35a/main.spi
00:10:28 verbose #67724 >
00:10:28 verbose #67725 > ╭─[ 269.54ms - return value ]──────────────────────────────────────────────────╮
00:10:28 verbose #67726 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:28 verbose #67727 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:28 verbose #67728 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:28 verbose #67729 > │ stroke="none"/> │
00:10:28 verbose #67730 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:28 verbose #67731 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:28 verbose #67732 > │ fill="#FFFFFF"> │
00:10:28 verbose #67733 > │ ping pong ball on a slinky │
00:10:28 verbose #67734 > │ </text> │
00:10:28 verbose #67735 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:10:28 verbose #67736 > │ y2="75"/> │
00:10:28 verbose #67737 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:28 verbose #67738 > │ y2="75"/> │
00:10:28 verbose #67739 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:10:28 verbose #67740 > │ y2="75"/> │
00:10:28 verbose #67741 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:10:28 verbose #67742 > │ y2="75"/> │
00:10:28 verbose #67743 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="9... │
00:10:28 verbose #67744 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #67745 >
00:10:28 verbose #67746 > ╭─[ 277.71ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #67747 > │ type Mut0 = {mutable l0 : int32} │
00:10:28 verbose #67748 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:28 verbose #67749 > │ let v1 : int32 = v0.l0 │
00:10:28 verbose #67750 > │ let v2 : bool = v1 < 301 │
00:10:28 verbose #67751 > │ v2 │
00:10:28 verbose #67752 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:28 verbose #67753 > │ let v2 : int32 = v1.l0 │
00:10:28 verbose #67754 > │ let v3 : bool = v2 < v0 │
00:10:28 verbose #67755 > │ v3 │
00:10:28 verbose #67756 > │ and method3 (v0 : float, v1 : float, v2 : float, v3 : float) : struct (float │
00:10:28 verbose #67757 > │ * float * float) = │
00:10:28 verbose #67758 > │ let v4 : bool = v3 <= 0.0 │
00:10:28 verbose #67759 > │ if v4 then │
00:10:28 verbose #67760 > │ struct (v0, v1, v2) │
00:10:28 verbose #67761 > │ else │
00:10:28 verbose #67762 > │ let v5 : float = -v2 │
00:10:28 verbose #67763 > │ let v6 : bool = v2 >= v5 │
00:10:28 verbose #67764 > │ let v7 : float = │
00:10:28 verbose #67765 > │ if v6 then │
00:10:28 verbose #67766 > │ v2 │
00:10:28 verbose #67767 > │ else │
00:10:28 verbose #67768 > │ v5 │
00:10:28 verbose #67769 > │ let v8 : float = -0.0030787608005179976 * v7 │
00:10:28 verbose #67770 > │ let v9 : float = v8 * v2 │
00:10:28 verbose #67771 > │ let v10 : float = v9 / 2.0 │
00:10:28 verbose #67772 > │ let v11 : float = -0.8 * v1 │
00:10:28 verbose #67773 > │ let v12 : float = v11 + v10 │
00:10:28 verbose #67774 > │ let v13 : float = v12 + -0.026477955 │
00:10:28 verbose #67775 > │ let v14 : float = v13 / 0.0027 │
00:10:28 verbose #67776 > │ let v15 : float = v0 + 0.001 │
00:10:28 verbose #67777 > │ let v16 : float = v2 * 0.001 │
00:10:28 verbose #67778 > │ let v17 : float = v1 + v16 │
00:10:28 verbose #67779 > │ let v18 : float = v14 * 0.001 │
00:10:28 verbose #67780 > │ let v19 : float = v2 + v18 │
00:10:28 verbose #67781 > │ let v20 : float = v3 - 1.0 │
00:10:28 verbose #67782 > │ method3(v15, v17, v19, v20) │
00:10:28 verbose #67783 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:28 verbose #67784 > │ []) * (float [])) [])) = │
00:10:28 verbose #67785 > │ let v0 : (float []) = Array.zeroCreate<float> (301) │
00:10:28 verbose #67786 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:28 verbose #67787 > │ while method1(v1) do │
00:10:28 verbose #67788 > │ let v3 : int32 = v1.l0 │
00:10:28 verbose #67789 > │ let v4 : float = float v3 │
00:10:28 verbose #67790 > │ let v5 : float = 0.01 * v4 │
00:10:28 verbose #67791 > │ v0.[int v3] <- v5 │
00:10:28 verbose #67792 > │ let v6 : int32 = v3 + 1 │
00:10:28 verbose #67793 > │ v1.l0 <- v6 │
00:10:28 verbose #67794 > │ () │
00:10:28 verbose #67795 > │ let v7 : int32 = v0.Length │
00:10:28 verbose #67796 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:28 verbose #67797 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:28 verbose #67798 > │ while method2(v7, v9) do │
00:10:28 verbose #67799 > │ let v11 : int32 = v9.l0 │
00:10:28 verbose #67800 > │ let v12 : float = v0.[int v11] │
00:10:28 verbose #67801 > │ let v13 : float = 0.0 │
00:10:28 verbose #67802 > │ let v14 : float = 0.1 │
00:10:28 verbose #67803 > │ let v15 : float = 0.0 │
00:10:28 verbose #67804 > │ let v16 : float = 0.0 │
00:10:28 verbose #67805 > │ let struct (v17 : float, v18 : float, v19 : float) = method3(v13, │
00:10:28 verbose #67806 > │ v14, v15, v16) │
00:10:28 verbose #67807 > │ let v20 : float = 0.0 │
00:10:28 verbose #67808 > │ let v21 : float = 0.1 │
00:10:28 verbose #67809 > │ let v22 : float = 0.0 │
00:10:28 verbose #67810 > │ let v23 : float = 1.0 │
00:10:28 verbose #67811 > │ let struct (v24 : float, v25 : float, v26 : float) = method3(v20, │
00:10:28 verbose #67812 > │ v21, v22, v23) │
00:10:28 verbose #67813 > │ let v27 : float = v24 - v17 │
00:10:28 verbose #67814 > │ let v28 : float = v12 / v27 │
00:10:28 verbose #67815 > │ let v29 : float = round v28 │
00:10:28 verbose #67816 > │ let v30 : float = -v29 │
00:10:28 verbose #67817 > │ let v31 : bool = v29 >= v30 │
00:10:28 verbose #67818 > │ let v32 : float = │
00:10:28 verbose #67819 > │ if v31 then │
00:10:28 verbose #67820 > │ v29 │
00:10:28 verbose #67821 > │ else │
00:10:28 verbose #67822 > │ v30 │
00:10:28 verbose #67823 > │ let v33 : float = 0.0 │
00:10:28 verbose #67824 > │ let v34 : float = 0.1 │
00:10:28 verbose #67825 > │ let v35 : float = 0.0 │
00:10:28 verbose #67826 > │ let struct (v36 : float, v37 : float, v38 : float) = method3(v33, │
00:10:28 verbose #67827 > │ v34, v35, v32) │
00:10:28 verbose #67828 > │ v8.[int v11] <- v37 │
00:10:28 verbose #67829 > │ let v39 : int32 = v11 + 1 │
00:10:28 verbose #67830 > │ v9.l0 <- v39 │
00:10:28 verbose #67831 > │ () │
00:10:28 verbose #67832 > │ let v40 : string = "position (m)" │
00:10:28 verbose #67833 > │ let v41 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:28 verbose #67834 > │ (v40, v0, v8)|] │
00:10:28 verbose #67835 > │ let v42 : string = "ping pong ball on a slinky" │
00:10:28 verbose #67836 > │ let v43 : string = "time (s)" │
00:10:28 verbose #67837 > │ let v44 : string = "" │
00:10:28 verbose #67838 > │ struct (v42, v43, v44, v41) │
00:10:28 verbose #67839 > │ method0() │
00:10:28 verbose #67840 > │ │
00:10:28 verbose #67841 > │ │
00:10:28 verbose #67842 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #67843 >
00:10:28 verbose #67844 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #67845 > // // test
00:10:28 verbose #67846 >
00:10:28 verbose #67847 > inl pingpong_velocity t =
00:10:28 verbose #67848 > velocity_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:10:28 verbose #67849 >
00:10:28 verbose #67850 > inl x = am'.init_series 0 3 0.01
00:10:28 verbose #67851 > inl y = x |> am.map pingpong_velocity
00:10:28 verbose #67852 > "ping pong ball on a slinky", "time (s)", "", ;[[ "velocity (m/s)", x, y ]]
00:10:28 verbose #67853 > 00:10:28 debug #772 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d2704dacd1f8e675502c0f69600095f04f86eaf392d42da2be925171e1c02caf/main.spi
00:10:29 verbose #67854 >
00:10:29 verbose #67855 > ╭─[ 368.52ms - return value ]──────────────────────────────────────────────────╮
00:10:29 verbose #67856 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:29 verbose #67857 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:29 verbose #67858 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:29 verbose #67859 > │ stroke="none"/> │
00:10:29 verbose #67860 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:29 verbose #67861 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:29 verbose #67862 > │ fill="#FFFFFF"> │
00:10:29 verbose #67863 > │ ping pong ball on a slinky │
00:10:29 verbose #67864 > │ </text> │
00:10:29 verbose #67865 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:10:29 verbose #67866 > │ y2="75"/> │
00:10:29 verbose #67867 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:29 verbose #67868 > │ y2="75"/> │
00:10:29 verbose #67869 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:10:29 verbose #67870 > │ y2="75"/> │
00:10:29 verbose #67871 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:10:29 verbose #67872 > │ y2="75"/> │
00:10:29 verbose #67873 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="9... │
00:10:29 verbose #67874 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #67875 >
00:10:29 verbose #67876 > ╭─[ 380.78ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #67877 > │ type Mut0 = {mutable l0 : int32} │
00:10:29 verbose #67878 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:29 verbose #67879 > │ let v1 : int32 = v0.l0 │
00:10:29 verbose #67880 > │ let v2 : bool = v1 < 301 │
00:10:29 verbose #67881 > │ v2 │
00:10:29 verbose #67882 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:29 verbose #67883 > │ let v2 : int32 = v1.l0 │
00:10:29 verbose #67884 > │ let v3 : bool = v2 < v0 │
00:10:29 verbose #67885 > │ v3 │
00:10:29 verbose #67886 > │ and method3 (v0 : float, v1 : float, v2 : float, v3 : float) : struct (float │
00:10:29 verbose #67887 > │ * float * float) = │
00:10:29 verbose #67888 > │ let v4 : bool = v3 <= 0.0 │
00:10:29 verbose #67889 > │ if v4 then │
00:10:29 verbose #67890 > │ struct (v0, v1, v2) │
00:10:29 verbose #67891 > │ else │
00:10:29 verbose #67892 > │ let v5 : float = -v2 │
00:10:29 verbose #67893 > │ let v6 : bool = v2 >= v5 │
00:10:29 verbose #67894 > │ let v7 : float = │
00:10:29 verbose #67895 > │ if v6 then │
00:10:29 verbose #67896 > │ v2 │
00:10:29 verbose #67897 > │ else │
00:10:29 verbose #67898 > │ v5 │
00:10:29 verbose #67899 > │ let v8 : float = -0.0030787608005179976 * v7 │
00:10:29 verbose #67900 > │ let v9 : float = v8 * v2 │
00:10:29 verbose #67901 > │ let v10 : float = v9 / 2.0 │
00:10:29 verbose #67902 > │ let v11 : float = -0.8 * v1 │
00:10:29 verbose #67903 > │ let v12 : float = v11 + v10 │
00:10:29 verbose #67904 > │ let v13 : float = v12 + -0.026477955 │
00:10:29 verbose #67905 > │ let v14 : float = v13 / 0.0027 │
00:10:29 verbose #67906 > │ let v15 : float = v0 + 0.001 │
00:10:29 verbose #67907 > │ let v16 : float = v2 * 0.001 │
00:10:29 verbose #67908 > │ let v17 : float = v1 + v16 │
00:10:29 verbose #67909 > │ let v18 : float = v14 * 0.001 │
00:10:29 verbose #67910 > │ let v19 : float = v2 + v18 │
00:10:29 verbose #67911 > │ let v20 : float = v3 - 1.0 │
00:10:29 verbose #67912 > │ method3(v15, v17, v19, v20) │
00:10:29 verbose #67913 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:29 verbose #67914 > │ []) * (float [])) [])) = │
00:10:29 verbose #67915 > │ let v0 : (float []) = Array.zeroCreate<float> (301) │
00:10:29 verbose #67916 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:29 verbose #67917 > │ while method1(v1) do │
00:10:29 verbose #67918 > │ let v3 : int32 = v1.l0 │
00:10:29 verbose #67919 > │ let v4 : float = float v3 │
00:10:29 verbose #67920 > │ let v5 : float = 0.01 * v4 │
00:10:29 verbose #67921 > │ v0.[int v3] <- v5 │
00:10:29 verbose #67922 > │ let v6 : int32 = v3 + 1 │
00:10:29 verbose #67923 > │ v1.l0 <- v6 │
00:10:29 verbose #67924 > │ () │
00:10:29 verbose #67925 > │ let v7 : int32 = v0.Length │
00:10:29 verbose #67926 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:29 verbose #67927 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:29 verbose #67928 > │ while method2(v7, v9) do │
00:10:29 verbose #67929 > │ let v11 : int32 = v9.l0 │
00:10:29 verbose #67930 > │ let v12 : float = v0.[int v11] │
00:10:29 verbose #67931 > │ let v13 : float = 0.0 │
00:10:29 verbose #67932 > │ let v14 : float = 0.1 │
00:10:29 verbose #67933 > │ let v15 : float = 0.0 │
00:10:29 verbose #67934 > │ let v16 : float = 0.0 │
00:10:29 verbose #67935 > │ let struct (v17 : float, v18 : float, v19 : float) = method3(v13, │
00:10:29 verbose #67936 > │ v14, v15, v16) │
00:10:29 verbose #67937 > │ let v20 : float = 0.0 │
00:10:29 verbose #67938 > │ let v21 : float = 0.1 │
00:10:29 verbose #67939 > │ let v22 : float = 0.0 │
00:10:29 verbose #67940 > │ let v23 : float = 1.0 │
00:10:29 verbose #67941 > │ let struct (v24 : float, v25 : float, v26 : float) = method3(v20, │
00:10:29 verbose #67942 > │ v21, v22, v23) │
00:10:29 verbose #67943 > │ let v27 : float = v24 - v17 │
00:10:29 verbose #67944 > │ let v28 : float = v12 / v27 │
00:10:29 verbose #67945 > │ let v29 : float = round v28 │
00:10:29 verbose #67946 > │ let v30 : float = -v29 │
00:10:29 verbose #67947 > │ let v31 : bool = v29 >= v30 │
00:10:29 verbose #67948 > │ let v32 : float = │
00:10:29 verbose #67949 > │ if v31 then │
00:10:29 verbose #67950 > │ v29 │
00:10:29 verbose #67951 > │ else │
00:10:29 verbose #67952 > │ v30 │
00:10:29 verbose #67953 > │ let v33 : float = 0.0 │
00:10:29 verbose #67954 > │ let v34 : float = 0.1 │
00:10:29 verbose #67955 > │ let v35 : float = 0.0 │
00:10:29 verbose #67956 > │ let struct (v36 : float, v37 : float, v38 : float) = method3(v33, │
00:10:29 verbose #67957 > │ v34, v35, v32) │
00:10:29 verbose #67958 > │ v8.[int v11] <- v38 │
00:10:29 verbose #67959 > │ let v39 : int32 = v11 + 1 │
00:10:29 verbose #67960 > │ v9.l0 <- v39 │
00:10:29 verbose #67961 > │ () │
00:10:29 verbose #67962 > │ let v40 : string = "velocity (m/s)" │
00:10:29 verbose #67963 > │ let v41 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:29 verbose #67964 > │ (v40, v0, v8)|] │
00:10:29 verbose #67965 > │ let v42 : string = "ping pong ball on a slinky" │
00:10:29 verbose #67966 > │ let v43 : string = "time (s)" │
00:10:29 verbose #67967 > │ let v44 : string = "" │
00:10:29 verbose #67968 > │ struct (v42, v43, v44, v41) │
00:10:29 verbose #67969 > │ method0() │
00:10:29 verbose #67970 > │ │
00:10:29 verbose #67971 > │ │
00:10:29 verbose #67972 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #67973 >
00:10:29 verbose #67974 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:29 verbose #67975 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:29 verbose #67976 > │ ## shift │
00:10:29 verbose #67977 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #67978 >
00:10:29 verbose #67979 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #67980 > type update_function s = s -> s
00:10:29 verbose #67981 >
00:10:29 verbose #67982 > type differential_equation s ds = s -> ds
00:10:29 verbose #67983 >
00:10:29 verbose #67984 > type numerical_method s ds = differential_equation s ds -> update_function s
00:10:29 verbose #67985 >
00:10:29 verbose #67986 >
00:10:29 verbose #67987 > inl solver method =
00:10:29 verbose #67988 > method >> seq.iterate
00:10:29 verbose #67989 > inl solver' method =
00:10:29 verbose #67990 > method >> seq.iterate'
00:10:29 verbose #67991 > inl solver_ method =
00:10:29 verbose #67992 > method >> seq.iterate_
00:10:29 verbose #67993 >
00:10:29 verbose #67994 >
00:10:29 verbose #67995 > inl euler_cromer_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:10:29 verbose #67996 > inl (rrr (_, _, dvdt)) = deriv t
00:10:29 verbose #67997 > inl t1 = t0 + dt
00:10:29 verbose #67998 > inl v1 = v0 + dvdt * dt
00:10:29 verbose #67999 > inl x1 = x0 + v1 * dt
00:10:29 verbose #68000 > state_1d (t1, x1, v1)
00:10:29 verbose #68001 >
00:10:29 verbose #68002 > inl update_txv_ec dt m fs =
00:10:29 verbose #68003 > euler_cromer_1d dt (newton_second_1d m fs)
00:10:29 verbose #68004 >
00:10:29 verbose #68005 > prototype (+++) ds : ds -> ds -> ds
00:10:29 verbose #68006 > prototype scale ds : f64 -> ds -> ds
00:10:29 verbose #68007 >
00:10:29 verbose #68008 > instance (+++) rrr = fun (rrr (dtdt0, dxdt0, dvdt0)) (rrr (dtdt1, dxdt1, dvdt1))
00:10:29 verbose #68009 > =>
00:10:29 verbose #68010 > rrr (dtdt0 + dtdt1, dxdt0 + dxdt1, dvdt0 + dvdt1)
00:10:29 verbose #68011 >
00:10:29 verbose #68012 > instance scale rrr = fun w (rrr (dtdt0, dxdt0, dvdt0)) =>
00:10:29 verbose #68013 > rrr (w * dtdt0, w * dxdt0, w * dvdt0)
00:10:29 verbose #68014 >
00:10:29 verbose #68015 > prototype shift s : forall ds. f64 -> ds -> s -> s
00:10:29 verbose #68016 >
00:10:29 verbose #68017 > instance shift state_1d = fun dt ds (state_1d (t, x, v)) =>
00:10:29 verbose #68018 > inl dtdt, dxdt, dvdt =
00:10:29 verbose #68019 > real
00:10:29 verbose #68020 > match ds with
00:10:29 verbose #68021 > | rrr x => x
00:10:29 verbose #68022 > | state_1d x => x
00:10:29 verbose #68023 > state_1d (t + dtdt * dt, x + dxdt * dt, v + dvdt * dt)
00:10:29 verbose #68024 >
00:10:29 verbose #68025 > inl euler dt deriv st0 =
00:10:29 verbose #68026 > shift dt (deriv st0) st0
00:10:29 verbose #68027 >
00:10:29 verbose #68028 > inl runge_kutta_4 dt deriv st0 =
00:10:29 verbose #68029 > inl m0 = deriv st0
00:10:29 verbose #68030 > inl m1 = deriv (shift (dt / 2) m0 st0)
00:10:29 verbose #68031 > inl m2 = deriv (shift (dt / 2) m1 st0)
00:10:29 verbose #68032 > inl m3 = deriv (shift dt m2 st0)
00:10:29 verbose #68033 > shift (dt / 6) (m0 +++ m1 +++ m1 +++ m2 +++ m2 +++ m3) st0
00:10:29 verbose #68034 >
00:10:29 verbose #68035 > inl exponential (_, x0, v0) =
00:10:29 verbose #68036 > 1f64, v0, x0
00:10:29 verbose #68037 >
00:10:29 verbose #68038 > inl of_state_1d (state_1d (t, x, v)) =
00:10:29 verbose #68039 > t, x, v
00:10:29 verbose #68040 > 00:10:28 debug #773 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4d9b7e5bd2fd17f3c205d926efce1b4f74cfa12c66e517a2ee4ef38bd223be23/main.spi
00:10:29 verbose #68041 >
00:10:29 verbose #68042 > ╭─[ 247.72ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #68043 > │ () │
00:10:29 verbose #68044 > │ │
00:10:29 verbose #68045 > │ │
00:10:29 verbose #68046 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #68047 >
00:10:29 verbose #68048 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #68049 > // // test
00:10:29 verbose #68050 >
00:10:29 verbose #68051 > solver (euler 0.01) (of_state_1d >> exponential >> state_1d) (state_1d (0, 1,
00:10:29 verbose #68052 > 1)) 800i32
00:10:29 verbose #68053 > |> _assert_eq (state_1d (7.999999999999874, 2864.8311229272326,
00:10:29 verbose #68054 > 2864.8311229272326))
00:10:29 verbose #68055 >
00:10:29 verbose #68056 > solver (euler_cromer_1d 0.1) (of_state_1d >> exponential >> rrr) (state_1d (0,
00:10:29 verbose #68057 > 1, 1)) 80i32
00:10:29 verbose #68058 > |> _assert_eq (state_1d (7.999999999999988, 3043.379244966009,
00:10:29 verbose #68059 > 2895.0121485099035))
00:10:29 verbose #68060 >
00:10:29 verbose #68061 > solver (runge_kutta_4 1) (of_state_1d >> exponential >> rrr) (state_1d (0, 1,
00:10:29 verbose #68062 > 1)) 8i32
00:10:29 verbose #68063 > |> _assert_eq (state_1d (8.0, 2894.789038540849, 2894.789038540849))
00:10:29 verbose #68064 > 00:10:28 debug #774 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cf687232b760467ad6c5cabe4dd1ba6eb21d6ef972b08c2da6bfbb5b154df643/main.spi
00:10:29 verbose #68065 >
00:10:29 verbose #68066 > ╭─[ 380.21ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #68067 > │ let rec method0 () : unit = │
00:10:29 verbose #68068 > │ let v0 : string = $"%A{struct (7.999999999999874, 2864.8311229272326, │
00:10:29 verbose #68069 > │ 2864.8311229272326)}" │
00:10:29 verbose #68070 > │ System.Console.WriteLine v0 │
00:10:29 verbose #68071 > │ let v1 : string = $"__expect / actual: %A{struct (7.999999999999874, │
00:10:29 verbose #68072 > │ 2864.8311229272326, 2864.8311229272326)} / expected: %A{struct │
00:10:29 verbose #68073 > │ (7.999999999999874, 2864.8311229272326, 2864.8311229272326)}" │
00:10:29 verbose #68074 > │ let v2 : string = $"%A{struct (7.999999999999988, 3043.379244966009, │
00:10:29 verbose #68075 > │ 2895.0121485099035)}" │
00:10:29 verbose #68076 > │ System.Console.WriteLine v2 │
00:10:29 verbose #68077 > │ let v3 : string = $"__expect / actual: %A{struct (7.999999999999988, │
00:10:29 verbose #68078 > │ 3043.379244966009, 2895.0121485099035)} / expected: %A{struct │
00:10:29 verbose #68079 > │ (7.999999999999988, 3043.379244966009, 2895.0121485099035)}" │
00:10:29 verbose #68080 > │ let v4 : string = $"%A{struct (8.0, 2894.789038540849, │
00:10:29 verbose #68081 > │ 2894.789038540849)}" │
00:10:29 verbose #68082 > │ System.Console.WriteLine v4 │
00:10:29 verbose #68083 > │ let v5 : string = $"__expect / actual: %A{struct (8.0, │
00:10:29 verbose #68084 > │ 2894.789038540849, 2894.789038540849)} / expected: %A{struct (8.0, │
00:10:29 verbose #68085 > │ 2894.789038540849, 2894.789038540849)}" │
00:10:29 verbose #68086 > │ () │
00:10:29 verbose #68087 > │ method0() │
00:10:29 verbose #68088 > │ │
00:10:29 verbose #68089 > │ struct (8.0, 2864.831123, 2864.831123) │
00:10:29 verbose #68090 > │ struct (8.0, 3043.379245, 2895.012149) │
00:10:29 verbose #68091 > │ struct (8.0, 2894.789039, 2894.789039) │
00:10:29 verbose #68092 > │ │
00:10:29 verbose #68093 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #68094 >
00:10:29 verbose #68095 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:29 verbose #68096 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:29 verbose #68097 > │ ## vec │
00:10:29 verbose #68098 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #68099 >
00:10:29 verbose #68100 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #68101 > type vec =
00:10:29 verbose #68102 > {
00:10:29 verbose #68103 > x : f64
00:10:29 verbose #68104 > y : f64
00:10:29 verbose #68105 > z : f64
00:10:29 verbose #68106 > }
00:10:29 verbose #68107 >
00:10:29 verbose #68108 > inl vec x y z : vec =
00:10:29 verbose #68109 > { x y z }
00:10:29 verbose #68110 > 00:10:29 debug #775 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/113688ea39e922be1f2cbea8f3ab1c64a3502d5756c5e284f9b54107aa74b3cd/main.spi
00:10:29 verbose #68111 >
00:10:30 verbose #68112 > ╭─[ 238.57ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #68113 > │ () │
00:10:30 verbose #68114 > │ │
00:10:30 verbose #68115 > │ │
00:10:30 verbose #68116 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #68117 >
00:10:30 verbose #68118 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #68119 > // // test
00:10:30 verbose #68120 >
00:10:30 verbose #68121 > vec 1 2 3 .z
00:10:30 verbose #68122 > |> _assert_eq 3
00:10:30 verbose #68123 > 00:10:29 debug #776 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8f370e817a347ceb072e3c0fd906893fafc06de25036652b8696960f2f41ba49/main.spi
00:10:30 verbose #68124 >
00:10:30 verbose #68125 > ╭─[ 283.89ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #68126 > │ let rec method0 () : unit = │
00:10:30 verbose #68127 > │ let v0 : string = $"%A{3.0}" │
00:10:30 verbose #68128 > │ System.Console.WriteLine v0 │
00:10:30 verbose #68129 > │ let v1 : string = $"__expect / actual: %A{3.0} / expected: %A{3.0}" │
00:10:30 verbose #68130 > │ () │
00:10:30 verbose #68131 > │ method0() │
00:10:30 verbose #68132 > │ │
00:10:30 verbose #68133 > │ 3.0 │
00:10:30 verbose #68134 > │ │
00:10:30 verbose #68135 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #68136 >
00:10:30 verbose #68137 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:30 verbose #68138 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:30 verbose #68139 > │ ### consts │
00:10:30 verbose #68140 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #68141 >
00:10:30 verbose #68142 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #68143 > inl i_hat () = vec 1 0 0
00:10:30 verbose #68144 > inl j_hat () = vec 0 1 0
00:10:30 verbose #68145 > inl k_hat () = vec 0 0 1
00:10:30 verbose #68146 > inl zero_vec () = vec 0 0 0
00:10:30 verbose #68147 > 00:10:29 debug #777 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/806bc6556579b8801c2e7f1a5838f4b19530f2318364f9e0bb45103e18688304/main.spi
00:10:30 verbose #68148 >
00:10:30 verbose #68149 > ╭─[ 253.07ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #68150 > │ () │
00:10:30 verbose #68151 > │ │
00:10:30 verbose #68152 > │ │
00:10:30 verbose #68153 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #68154 >
00:10:30 verbose #68155 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:30 verbose #68156 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:30 verbose #68157 > │ ### ^+^ │
00:10:30 verbose #68158 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #68159 >
00:10:30 verbose #68160 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #68161 > inl (^+^) (a : vec) (b : vec) =
00:10:30 verbose #68162 > vec (a.x + b.x) (a.y + b.y) (a.z + b.z)
00:10:30 verbose #68163 > 00:10:30 debug #778 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8f5114f16e22a4b014986489a471908e0697a847154a7ad65c6a04ea22876d13/main.spi
00:10:30 verbose #68164 >
00:10:30 verbose #68165 > ╭─[ 237.28ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #68166 > │ () │
00:10:30 verbose #68167 > │ │
00:10:30 verbose #68168 > │ │
00:10:30 verbose #68169 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #68170 >
00:10:30 verbose #68171 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #68172 > // // test
00:10:30 verbose #68173 >
00:10:30 verbose #68174 > vec 1 2 3 ^+^ vec 4 5 6
00:10:30 verbose #68175 > |> _assert_eq (vec 5 7 9)
00:10:30 verbose #68176 > 00:10:30 debug #779 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/01b0a038126e8a0653a8196f201a6326f4f962458948c0ff5d420011df60fa66/main.spi
00:10:31 verbose #68177 >
00:10:31 verbose #68178 > ╭─[ 218.56ms - stdout ]────────────────────────────────────────────────────────╮
00:10:31 verbose #68179 > │ let rec method0 () : unit = │
00:10:31 verbose #68180 > │ let v0 : string = $"%A{struct (5.0, 7.0, 9.0)}" │
00:10:31 verbose #68181 > │ System.Console.WriteLine v0 │
00:10:31 verbose #68182 > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 7.0, 9.0)} / │
00:10:31 verbose #68183 > │ expected: %A{struct (5.0, 7.0, 9.0)}" │
00:10:31 verbose #68184 > │ () │
00:10:31 verbose #68185 > │ method0() │
00:10:31 verbose #68186 > │ │
00:10:31 verbose #68187 > │ struct (5.0, 7.0, 9.0) │
00:10:31 verbose #68188 > │ │
00:10:31 verbose #68189 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #68190 >
00:10:31 verbose #68191 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:31 verbose #68192 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:31 verbose #68193 > │ ### sum_vec │
00:10:31 verbose #68194 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #68195 >
00:10:31 verbose #68196 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #68197 > inl sum_vec vs =
00:10:31 verbose #68198 > vs |> listm.fold (^+^) (zero_vec ())
00:10:31 verbose #68199 > 00:10:30 debug #780 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9261787301f9705e537bdaf77fbc2b02d9d82ac521fc4a65af671d38806a6a18/main.spi
00:10:31 verbose #68200 >
00:10:31 verbose #68201 > ╭─[ 291.19ms - stdout ]────────────────────────────────────────────────────────╮
00:10:31 verbose #68202 > │ () │
00:10:31 verbose #68203 > │ │
00:10:31 verbose #68204 > │ │
00:10:31 verbose #68205 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #68206 >
00:10:31 verbose #68207 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #68208 > // // test
00:10:31 verbose #68209 >
00:10:31 verbose #68210 > [[ vec 1 2 3; vec 4 5 6 ]]
00:10:31 verbose #68211 > |> sum_vec
00:10:31 verbose #68212 > |> _assert_eq (vec 5 7 9)
00:10:31 verbose #68213 > 00:10:30 debug #781 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d9c699d72c3b1f17d43c509e750577475066860e1565027adcd8ec665cd2cde3/main.spi
00:10:31 verbose #68214 >
00:10:31 verbose #68215 > ╭─[ 266.54ms - stdout ]────────────────────────────────────────────────────────╮
00:10:31 verbose #68216 > │ let rec method0 () : unit = │
00:10:31 verbose #68217 > │ let v0 : string = $"%A{struct (5.0, 7.0, 9.0)}" │
00:10:31 verbose #68218 > │ System.Console.WriteLine v0 │
00:10:31 verbose #68219 > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 7.0, 9.0)} / │
00:10:31 verbose #68220 > │ expected: %A{struct (5.0, 7.0, 9.0)}" │
00:10:31 verbose #68221 > │ () │
00:10:31 verbose #68222 > │ method0() │
00:10:31 verbose #68223 > │ │
00:10:31 verbose #68224 > │ struct (5.0, 7.0, 9.0) │
00:10:31 verbose #68225 > │ │
00:10:31 verbose #68226 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #68227 >
00:10:31 verbose #68228 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:31 verbose #68229 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:31 verbose #68230 > │ ### *^ │
00:10:31 verbose #68231 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #68232 >
00:10:31 verbose #68233 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #68234 > inl (*^) c { x y z } =
00:10:31 verbose #68235 > vec (c * x) (c * y) (c * z)
00:10:31 verbose #68236 > 00:10:31 debug #782 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/abaae8700f9854712d7db58058ea59c5e646178315ec74d0a4bef2c54b3ba99f/main.spi
00:10:31 verbose #68237 >
00:10:31 verbose #68238 > ╭─[ 228.02ms - stdout ]────────────────────────────────────────────────────────╮
00:10:31 verbose #68239 > │ () │
00:10:31 verbose #68240 > │ │
00:10:31 verbose #68241 > │ │
00:10:31 verbose #68242 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #68243 >
00:10:31 verbose #68244 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #68245 > // // test
00:10:31 verbose #68246 >
00:10:31 verbose #68247 > 5 *^ vec 1 2 3
00:10:31 verbose #68248 > |> _assert_eq (vec 5 10 15)
00:10:31 verbose #68249 > 00:10:31 debug #783 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0f1ae917a76bbe7f5135a7e2bbdb054e2bd9d550fd80e75345653d63dbbc2ec2/main.spi
00:10:32 verbose #68250 >
00:10:32 verbose #68251 > ╭─[ 245.87ms - stdout ]────────────────────────────────────────────────────────╮
00:10:32 verbose #68252 > │ let rec method0 () : unit = │
00:10:32 verbose #68253 > │ let v0 : string = $"%A{struct (5.0, 10.0, 15.0)}" │
00:10:32 verbose #68254 > │ System.Console.WriteLine v0 │
00:10:32 verbose #68255 > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 10.0, 15.0)} / │
00:10:32 verbose #68256 > │ expected: %A{struct (5.0, 10.0, 15.0)}" │
00:10:32 verbose #68257 > │ () │
00:10:32 verbose #68258 > │ method0() │
00:10:32 verbose #68259 > │ │
00:10:32 verbose #68260 > │ struct (5.0, 10.0, 15.0) │
00:10:32 verbose #68261 > │ │
00:10:32 verbose #68262 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #68263 >
00:10:32 verbose #68264 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:32 verbose #68265 > // // test
00:10:32 verbose #68266 >
00:10:32 verbose #68267 > 3 *^ i_hat () ^+^ 4 *^ k_hat ()
00:10:32 verbose #68268 > |> _assert_eq (vec 3 0 4)
00:10:32 verbose #68269 > 00:10:31 debug #784 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/548493a74b752b6677b0d1a3ab7fad656548d2c02f7629e9db61399e9bc12278/main.spi
00:10:32 verbose #68270 >
00:10:32 verbose #68271 > ╭─[ 247.86ms - stdout ]────────────────────────────────────────────────────────╮
00:10:32 verbose #68272 > │ let rec method0 () : unit = │
00:10:32 verbose #68273 > │ let v0 : string = $"%A{struct (3.0, 0.0, 4.0)}" │
00:10:32 verbose #68274 > │ System.Console.WriteLine v0 │
00:10:32 verbose #68275 > │ let v1 : string = $"__expect / actual: %A{struct (3.0, 0.0, 4.0)} / │
00:10:32 verbose #68276 > │ expected: %A{struct (3.0, 0.0, 4.0)}" │
00:10:32 verbose #68277 > │ () │
00:10:32 verbose #68278 > │ method0() │
00:10:32 verbose #68279 > │ │
00:10:32 verbose #68280 > │ struct (3.0, 0.0, 4.0) │
00:10:32 verbose #68281 > │ │
00:10:32 verbose #68282 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #68283 >
00:10:32 verbose #68284 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:32 verbose #68285 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:32 verbose #68286 > │ ### ^* │
00:10:32 verbose #68287 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #68288 >
00:10:32 verbose #68289 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:32 verbose #68290 > inl (^*) v c =
00:10:32 verbose #68291 > (*^) c v
00:10:32 verbose #68292 > 00:10:31 debug #785 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f2705282a9dd8b0bb6b80c5d6c33563ec802f205ccfcea53e6fcecc892eb3632/main.spi
00:10:32 verbose #68293 >
00:10:32 verbose #68294 > ╭─[ 284.77ms - stdout ]────────────────────────────────────────────────────────╮
00:10:32 verbose #68295 > │ () │
00:10:32 verbose #68296 > │ │
00:10:32 verbose #68297 > │ │
00:10:32 verbose #68298 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #68299 >
00:10:32 verbose #68300 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:32 verbose #68301 > // // test
00:10:32 verbose #68302 >
00:10:32 verbose #68303 > vec 1 2 3 ^* 5
00:10:32 verbose #68304 > |> _assert_eq (vec 5 10 15)
00:10:32 verbose #68305 > 00:10:32 debug #786 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/966fe99f28aa701402adc0fbc0196bdc3de9cd51bad12cb0af9326b9c5003bff/main.spi
00:10:32 verbose #68306 >
00:10:32 verbose #68307 > ╭─[ 306.12ms - stdout ]────────────────────────────────────────────────────────╮
00:10:32 verbose #68308 > │ let rec method0 () : unit = │
00:10:32 verbose #68309 > │ let v0 : string = $"%A{struct (5.0, 10.0, 15.0)}" │
00:10:32 verbose #68310 > │ System.Console.WriteLine v0 │
00:10:32 verbose #68311 > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 10.0, 15.0)} / │
00:10:32 verbose #68312 > │ expected: %A{struct (5.0, 10.0, 15.0)}" │
00:10:32 verbose #68313 > │ () │
00:10:32 verbose #68314 > │ method0() │
00:10:32 verbose #68315 > │ │
00:10:32 verbose #68316 > │ struct (5.0, 10.0, 15.0) │
00:10:32 verbose #68317 > │ │
00:10:32 verbose #68318 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #68319 >
00:10:32 verbose #68320 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:32 verbose #68321 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:32 verbose #68322 > │ ### ^/ │
00:10:32 verbose #68323 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #68324 >
00:10:32 verbose #68325 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:32 verbose #68326 > inl (^/) { x y z } c =
00:10:32 verbose #68327 > vec (x / c) (y / c) (z / c)
00:10:33 verbose #68328 > 00:10:32 debug #787 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/50afd38d2e8556266a8ca846b008c929b0b71b9e987a04ac44f1d078a5c41ac0/main.spi
00:10:33 verbose #68329 >
00:10:33 verbose #68330 > ╭─[ 264.08ms - stdout ]────────────────────────────────────────────────────────╮
00:10:33 verbose #68331 > │ () │
00:10:33 verbose #68332 > │ │
00:10:33 verbose #68333 > │ │
00:10:33 verbose #68334 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:33 verbose #68335 >
00:10:33 verbose #68336 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:33 verbose #68337 > // // test
00:10:33 verbose #68338 >
00:10:33 verbose #68339 > vec 1 2 3 ^/ 5
00:10:33 verbose #68340 > |> _assert_eq (vec 0.2 0.4 0.6)
00:10:33 verbose #68341 > 00:10:32 debug #788 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4bc6f7b7165a783a415091e011b173e9124d123f4e7565ca071fac3a344ceee6/main.spi
00:10:33 verbose #68342 >
00:10:33 verbose #68343 > ╭─[ 315.68ms - stdout ]────────────────────────────────────────────────────────╮
00:10:33 verbose #68344 > │ let rec method0 () : unit = │
00:10:33 verbose #68345 > │ let v0 : string = $"%A{struct (0.2, 0.4, 0.6)}" │
00:10:33 verbose #68346 > │ System.Console.WriteLine v0 │
00:10:33 verbose #68347 > │ let v1 : string = $"__expect / actual: %A{struct (0.2, 0.4, 0.6)} / │
00:10:33 verbose #68348 > │ expected: %A{struct (0.2, 0.4, 0.6)}" │
00:10:33 verbose #68349 > │ () │
00:10:33 verbose #68350 > │ method0() │
00:10:33 verbose #68351 > │ │
00:10:33 verbose #68352 > │ struct (0.2, 0.4, 0.6) │
00:10:33 verbose #68353 > │ │
00:10:33 verbose #68354 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:33 verbose #68355 >
00:10:33 verbose #68356 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:33 verbose #68357 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:33 verbose #68358 > │ ### negate_vec │
00:10:33 verbose #68359 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:33 verbose #68360 >
00:10:33 verbose #68361 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:33 verbose #68362 > inl negate_vec v =
00:10:33 verbose #68363 > v ^* -1
00:10:33 verbose #68364 > 00:10:33 debug #789 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8ba7ec44ade356759d3c7a8edd8377be35532483606275bee83bce44536efeb0/main.spi
00:10:33 verbose #68365 >
00:10:33 verbose #68366 > ╭─[ 265.53ms - stdout ]────────────────────────────────────────────────────────╮
00:10:33 verbose #68367 > │ () │
00:10:33 verbose #68368 > │ │
00:10:33 verbose #68369 > │ │
00:10:33 verbose #68370 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:33 verbose #68371 >
00:10:33 verbose #68372 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:33 verbose #68373 > // // test
00:10:33 verbose #68374 >
00:10:33 verbose #68375 > vec 1 2 3
00:10:33 verbose #68376 > |> negate_vec
00:10:33 verbose #68377 > |> _assert_eq (vec -1 -2 -3)
00:10:33 verbose #68378 > 00:10:33 debug #790 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8a0f1545b0f83a1009fdc0a035cecccb7d8ab02298120bc116e3e139a8f25a39/main.spi
00:10:34 verbose #68379 >
00:10:34 verbose #68380 > ╭─[ 245.95ms - stdout ]────────────────────────────────────────────────────────╮
00:10:34 verbose #68381 > │ let rec method0 () : unit = │
00:10:34 verbose #68382 > │ let v0 : string = $"%A{struct (-1.0, -2.0, -3.0)}" │
00:10:34 verbose #68383 > │ System.Console.WriteLine v0 │
00:10:34 verbose #68384 > │ let v1 : string = $"__expect / actual: %A{struct (-1.0, -2.0, -3.0)} / │
00:10:34 verbose #68385 > │ expected: %A{struct (-1.0, -2.0, -3.0)}" │
00:10:34 verbose #68386 > │ () │
00:10:34 verbose #68387 > │ method0() │
00:10:34 verbose #68388 > │ │
00:10:34 verbose #68389 > │ struct (-1.0, -2.0, -3.0) │
00:10:34 verbose #68390 > │ │
00:10:34 verbose #68391 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:34 verbose #68392 >
00:10:34 verbose #68393 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:34 verbose #68394 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:34 verbose #68395 > │ ### ^-^ │
00:10:34 verbose #68396 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:34 verbose #68397 >
00:10:34 verbose #68398 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:34 verbose #68399 > inl (^-^) a b =
00:10:34 verbose #68400 > a ^+^ (negate_vec b)
00:10:34 verbose #68401 > 00:10:33 debug #791 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c732722ed06670a422c02a30556874a9cdf85330159398870e8dcb00058ba2f4/main.spi
00:10:34 verbose #68402 >
00:10:34 verbose #68403 > ╭─[ 210.72ms - stdout ]────────────────────────────────────────────────────────╮
00:10:34 verbose #68404 > │ () │
00:10:34 verbose #68405 > │ │
00:10:34 verbose #68406 > │ │
00:10:34 verbose #68407 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:34 verbose #68408 >
00:10:34 verbose #68409 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:34 verbose #68410 > // // test
00:10:34 verbose #68411 >
00:10:34 verbose #68412 > vec 1 2 3 ^-^ vec 4 5 6
00:10:34 verbose #68413 > |> _assert_eq (vec -3 -3 -3)
00:10:34 verbose #68414 > 00:10:33 debug #792 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3446c2b52f31454aa5ae7bdbbf29aa5dc6e7c1db0cd5b1d703ac3ec918635b14/main.spi
00:10:34 verbose #68415 >
00:10:34 verbose #68416 > ╭─[ 251.56ms - stdout ]────────────────────────────────────────────────────────╮
00:10:34 verbose #68417 > │ let rec method0 () : unit = │
00:10:34 verbose #68418 > │ let v0 : string = $"%A{struct (-3.0, -3.0, -3.0)}" │
00:10:34 verbose #68419 > │ System.Console.WriteLine v0 │
00:10:34 verbose #68420 > │ let v1 : string = $"__expect / actual: %A{struct (-3.0, -3.0, -3.0)} / │
00:10:34 verbose #68421 > │ expected: %A{struct (-3.0, -3.0, -3.0)}" │
00:10:34 verbose #68422 > │ () │
00:10:34 verbose #68423 > │ method0() │
00:10:34 verbose #68424 > │ │
00:10:34 verbose #68425 > │ struct (-3.0, -3.0, -3.0) │
00:10:34 verbose #68426 > │ │
00:10:34 verbose #68427 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:34 verbose #68428 >
00:10:34 verbose #68429 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:34 verbose #68430 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:34 verbose #68431 > │ ### <.> │
00:10:34 verbose #68432 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:34 verbose #68433 >
00:10:34 verbose #68434 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:34 verbose #68435 > inl (<.>) { x = ax y = ay z = az } { x = bx y = by z = bz } =
00:10:34 verbose #68436 > ax * bx + ay * by + az * bz
00:10:34 verbose #68437 > 00:10:34 debug #793 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/52d772a3260e827ea2d68325b288a9119bd96d8bfe6e93cd48fb0f3b15350208/main.spi
00:10:34 verbose #68438 >
00:10:34 verbose #68439 > ╭─[ 287.17ms - stdout ]────────────────────────────────────────────────────────╮
00:10:34 verbose #68440 > │ () │
00:10:34 verbose #68441 > │ │
00:10:34 verbose #68442 > │ │
00:10:34 verbose #68443 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:34 verbose #68444 >
00:10:34 verbose #68445 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:34 verbose #68446 > // // test
00:10:34 verbose #68447 >
00:10:34 verbose #68448 > vec 1 2 3 <.> vec 4 5 6
00:10:34 verbose #68449 > |> _assert_eq 32
00:10:34 verbose #68450 > 00:10:34 debug #794 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5cb5f9a53ee45f8d45db785c1281c4f9be7f30c954be991ebd61613e2fc9c8e1/main.spi
00:10:35 verbose #68451 >
00:10:35 verbose #68452 > ╭─[ 372.17ms - stdout ]────────────────────────────────────────────────────────╮
00:10:35 verbose #68453 > │ let rec method0 () : unit = │
00:10:35 verbose #68454 > │ let v0 : string = $"%A{32.0}" │
00:10:35 verbose #68455 > │ System.Console.WriteLine v0 │
00:10:35 verbose #68456 > │ let v1 : string = $"__expect / actual: %A{32.0} / expected: %A{32.0}" │
00:10:35 verbose #68457 > │ () │
00:10:35 verbose #68458 > │ method0() │
00:10:35 verbose #68459 > │ │
00:10:35 verbose #68460 > │ 32.0 │
00:10:35 verbose #68461 > │ │
00:10:35 verbose #68462 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:35 verbose #68463 >
00:10:35 verbose #68464 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:35 verbose #68465 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:35 verbose #68466 > │ ### \>\< │
00:10:35 verbose #68467 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:35 verbose #68468 >
00:10:35 verbose #68469 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:35 verbose #68470 > inl (><) (a : vec) (b : vec) =
00:10:35 verbose #68471 > vec
00:10:35 verbose #68472 > (a.y * b.z - a.z * b.y)
00:10:35 verbose #68473 > (a.z * b.x - a.x * b.z)
00:10:35 verbose #68474 > (a.x * b.y - a.y * b.x)
00:10:35 verbose #68475 > 00:10:34 debug #795 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a5e61f90699377c6cd439c6f459ff614a7fc7601412a7063fb78b30a625d6641/main.spi
00:10:35 verbose #68476 >
00:10:35 verbose #68477 > ╭─[ 204.26ms - stdout ]────────────────────────────────────────────────────────╮
00:10:35 verbose #68478 > │ () │
00:10:35 verbose #68479 > │ │
00:10:35 verbose #68480 > │ │
00:10:35 verbose #68481 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:35 verbose #68482 >
00:10:35 verbose #68483 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:35 verbose #68484 > // // test
00:10:35 verbose #68485 >
00:10:35 verbose #68486 > vec 1 2 3 >< vec 4 5 6
00:10:35 verbose #68487 > |> _assert_eq (vec -3 6 -3)
00:10:35 verbose #68488 > 00:10:34 debug #796 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4faf695f8fa6a82d45f6adfbbfd0604aa0584b0579fa2ecf0f80b2f941af9012/main.spi
00:10:35 verbose #68489 >
00:10:35 verbose #68490 > ╭─[ 206.55ms - stdout ]────────────────────────────────────────────────────────╮
00:10:35 verbose #68491 > │ let rec method0 () : unit = │
00:10:35 verbose #68492 > │ let v0 : string = $"%A{struct (-3.0, 6.0, -3.0)}" │
00:10:35 verbose #68493 > │ System.Console.WriteLine v0 │
00:10:35 verbose #68494 > │ let v1 : string = $"__expect / actual: %A{struct (-3.0, 6.0, -3.0)} / │
00:10:35 verbose #68495 > │ expected: %A{struct (-3.0, 6.0, -3.0)}" │
00:10:35 verbose #68496 > │ () │
00:10:35 verbose #68497 > │ method0() │
00:10:35 verbose #68498 > │ │
00:10:35 verbose #68499 > │ struct (-3.0, 6.0, -3.0) │
00:10:35 verbose #68500 > │ │
00:10:35 verbose #68501 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:35 verbose #68502 >
00:10:35 verbose #68503 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:35 verbose #68504 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:35 verbose #68505 > │ ### magnitude │
00:10:35 verbose #68506 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:35 verbose #68507 >
00:10:35 verbose #68508 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:35 verbose #68509 > inl magnitude v =
00:10:35 verbose #68510 > v <.> v |> sqrt
00:10:35 verbose #68511 > 00:10:35 debug #797 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a5ee51bd3b4825ba93a1b077ff4961438142d9da048abaa8d69e3a61c2d23059/main.spi
00:10:35 verbose #68512 >
00:10:35 verbose #68513 > ╭─[ 231.00ms - stdout ]────────────────────────────────────────────────────────╮
00:10:35 verbose #68514 > │ () │
00:10:35 verbose #68515 > │ │
00:10:35 verbose #68516 > │ │
00:10:35 verbose #68517 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:35 verbose #68518 >
00:10:35 verbose #68519 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:35 verbose #68520 > // // test
00:10:35 verbose #68521 >
00:10:35 verbose #68522 > vec 1 2 3
00:10:35 verbose #68523 > |> magnitude
00:10:35 verbose #68524 > |> _assert_approx_eq None 3.7416573867739413
00:10:35 verbose #68525 > 00:10:35 debug #798 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bc77b9c16c9aae76697855c1206917244bbd3df26f410e836c5f50e5cffac095/main.spi
00:10:36 verbose #68526 >
00:10:36 verbose #68527 > ╭─[ 366.32ms - stdout ]────────────────────────────────────────────────────────╮
00:10:36 verbose #68528 > │ let rec method0 () : unit = │
00:10:36 verbose #68529 > │ let v0 : string = $"%A{3.7416573867739413}" │
00:10:36 verbose #68530 > │ System.Console.WriteLine v0 │
00:10:36 verbose #68531 > │ let v1 : string = $"__expect / actual: %A{3.7416573867739413} / │
00:10:36 verbose #68532 > │ expected: %A{3.7416573867739413}" │
00:10:36 verbose #68533 > │ () │
00:10:36 verbose #68534 > │ method0() │
00:10:36 verbose #68535 > │ │
00:10:36 verbose #68536 > │ 3.741657387 │
00:10:36 verbose #68537 > │ │
00:10:36 verbose #68538 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:36 verbose #68539 >
00:10:36 verbose #68540 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:36 verbose #68541 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:36 verbose #68542 > │ ### v1 │
00:10:36 verbose #68543 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:36 verbose #68544 >
00:10:36 verbose #68545 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:36 verbose #68546 > inl v1 t =
00:10:36 verbose #68547 > 2 *^ (t ** 2 *^ i_hat () ^+^ 3 *^ (t ** 3 *^ j_hat () ^+^ t ** 4 *^ k_hat
00:10:36 verbose #68548 > ()))
00:10:36 verbose #68549 > 00:10:35 debug #799 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3bdcea2559adc47304c47571116ccb8e71c6e145cb79eecdab28e093462dc5a1/main.spi
00:10:36 verbose #68550 >
00:10:36 verbose #68551 > ╭─[ 225.74ms - stdout ]────────────────────────────────────────────────────────╮
00:10:36 verbose #68552 > │ () │
00:10:36 verbose #68553 > │ │
00:10:36 verbose #68554 > │ │
00:10:36 verbose #68555 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:36 verbose #68556 >
00:10:36 verbose #68557 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:36 verbose #68558 > // // test
00:10:36 verbose #68559 >
00:10:36 verbose #68560 > v1 1
00:10:36 verbose #68561 > |> _assert_eq (vec 2 6 6)
00:10:36 verbose #68562 > 00:10:35 debug #800 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a6269b466164e66b00544a5d424106d727e9daf61440c349ec8a9627b5c648b5/main.spi
00:10:36 verbose #68563 >
00:10:36 verbose #68564 > ╭─[ 273.66ms - stdout ]────────────────────────────────────────────────────────╮
00:10:36 verbose #68565 > │ let rec method0 () : unit = │
00:10:36 verbose #68566 > │ let v0 : string = $"%A{struct (2.0, 6.0, 6.0)}" │
00:10:36 verbose #68567 > │ System.Console.WriteLine v0 │
00:10:36 verbose #68568 > │ let v1 : string = $"__expect / actual: %A{struct (2.0, 6.0, 6.0)} / │
00:10:36 verbose #68569 > │ expected: %A{struct (2.0, 6.0, 6.0)}" │
00:10:36 verbose #68570 > │ () │
00:10:36 verbose #68571 > │ method0() │
00:10:36 verbose #68572 > │ │
00:10:36 verbose #68573 > │ struct (2.0, 6.0, 6.0) │
00:10:36 verbose #68574 > │ │
00:10:36 verbose #68575 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:36 verbose #68576 >
00:10:36 verbose #68577 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:36 verbose #68578 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:36 verbose #68579 > │ ### vec_derivative │
00:10:36 verbose #68580 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:36 verbose #68581 >
00:10:36 verbose #68582 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:36 verbose #68583 > type vec_derivative = (f64 -> vec) -> f64 -> vec
00:10:36 verbose #68584 >
00:10:36 verbose #68585 > inl vec_derivative dt : vec_derivative =
00:10:36 verbose #68586 > fun v t =>
00:10:36 verbose #68587 > (v (t + dt / 2) ^-^ v (t - dt / 2)) ^/ dt
00:10:36 verbose #68588 > 00:10:36 debug #801 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b6600abb173c8827e778123471b70245424004725195db0a3d939ab500d5eddf/main.spi
00:10:36 verbose #68589 >
00:10:36 verbose #68590 > ╭─[ 212.50ms - stdout ]────────────────────────────────────────────────────────╮
00:10:36 verbose #68591 > │ () │
00:10:36 verbose #68592 > │ │
00:10:36 verbose #68593 > │ │
00:10:36 verbose #68594 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:36 verbose #68595 >
00:10:36 verbose #68596 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:36 verbose #68597 > // // test
00:10:36 verbose #68598 >
00:10:36 verbose #68599 > vec_derivative 0.01 v1 3 .x
00:10:36 verbose #68600 > |> _assert_approx_eq None (derivative 0.01 (v1 >> fun v => v.x) 3)
00:10:37 verbose #68601 > 00:10:36 debug #802 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/4b40c81929f4b19c0a206e9734354f645ae343f882b132d49c98dfc26981b41b/main.spi
00:10:37 verbose #68602 >
00:10:37 verbose #68603 > ╭─[ 274.57ms - stdout ]────────────────────────────────────────────────────────╮
00:10:37 verbose #68604 > │ let rec method0 () : unit = │
00:10:37 verbose #68605 > │ let v0 : string = $"%A{11.999999999999744}" │
00:10:37 verbose #68606 > │ System.Console.WriteLine v0 │
00:10:37 verbose #68607 > │ let v1 : string = $"__expect / actual: %A{11.999999999999744} / │
00:10:37 verbose #68608 > │ expected: %A{11.999999999999744}" │
00:10:37 verbose #68609 > │ () │
00:10:37 verbose #68610 > │ method0() │
00:10:37 verbose #68611 > │ │
00:10:37 verbose #68612 > │ 12.0 │
00:10:37 verbose #68613 > │ │
00:10:37 verbose #68614 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:37 verbose #68615 >
00:10:37 verbose #68616 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:37 verbose #68617 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:37 verbose #68618 > │ ## states_ps │
00:10:37 verbose #68619 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:37 verbose #68620 >
00:10:37 verbose #68621 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:37 verbose #68622 > nominal particle_state =
00:10:37 verbose #68623 > {
00:10:37 verbose #68624 > mass : f64
00:10:37 verbose #68625 > charge : f64
00:10:37 verbose #68626 > time : f64
00:10:37 verbose #68627 > pos_vec : vec
00:10:37 verbose #68628 > velocity : vec
00:10:37 verbose #68629 > }
00:10:37 verbose #68630 >
00:10:37 verbose #68631 > inl default_particle_state () : particle_state =
00:10:37 verbose #68632 > particle_state {
00:10:37 verbose #68633 > mass = 1
00:10:37 verbose #68634 > charge = 0
00:10:37 verbose #68635 > time = 0
00:10:37 verbose #68636 > pos_vec = zero_vec ()
00:10:37 verbose #68637 > velocity = zero_vec ()
00:10:37 verbose #68638 > }
00:10:37 verbose #68639 >
00:10:37 verbose #68640 > type one_body_force = particle_state -> vec
00:10:37 verbose #68641 >
00:10:37 verbose #68642 > nominal d_particle_state =
00:10:37 verbose #68643 > {
00:10:37 verbose #68644 > dmdt : f64
00:10:37 verbose #68645 > dqdt : f64
00:10:37 verbose #68646 > dtdt : f64
00:10:37 verbose #68647 > drdt : vec
00:10:37 verbose #68648 > dvdt : vec
00:10:37 verbose #68649 > }
00:10:37 verbose #68650 >
00:10:37 verbose #68651 > inl newton_second_ps (fs : list one_body_force) (st : particle_state) :
00:10:37 verbose #68652 > d_particle_state =
00:10:37 verbose #68653 > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:10:37 verbose #68654 > d_particle_state {
00:10:37 verbose #68655 > dmdt = 0
00:10:37 verbose #68656 > dqdt = 0
00:10:37 verbose #68657 > dtdt = 1
00:10:37 verbose #68658 > drdt = st.velocity
00:10:37 verbose #68659 > dvdt = f_net ^/ st.mass
00:10:37 verbose #68660 > }
00:10:37 verbose #68661 >
00:10:37 verbose #68662 > inl earth_surface_gravity (st : particle_state) =
00:10:37 verbose #68663 > inl g = 9.80665
00:10:37 verbose #68664 > -st.mass * g *^ k_hat ()
00:10:37 verbose #68665 >
00:10:37 verbose #68666 > inl air_resistance drag rho area (st : particle_state) =
00:10:37 verbose #68667 > -0.5 * drag * rho * area * magnitude st.velocity *^ st.velocity
00:10:37 verbose #68668 >
00:10:37 verbose #68669 > inl euler_cromer_ps dt (deriv : particle_state -> d_particle_state)
00:10:37 verbose #68670 > (particle_state st) =
00:10:37 verbose #68671 > inl dst : d_particle_state = deriv (particle_state st)
00:10:37 verbose #68672 > inl v' = st.velocity ^+^ dst.dvdt ^* dt
00:10:37 verbose #68673 > particle_state { st with
00:10:37 verbose #68674 > time = st.time + dt
00:10:37 verbose #68675 > pos_vec = st.pos_vec ^+^ v' ^* dt
00:10:37 verbose #68676 > velocity = st.velocity ^+^ dst.dvdt ^* dt
00:10:37 verbose #68677 > }
00:10:37 verbose #68678 >
00:10:37 verbose #68679 > instance (+++) d_particle_state = fun (dps : d_particle_state) (dps' :
00:10:37 verbose #68680 > d_particle_state) =>
00:10:37 verbose #68681 > d_particle_state {
00:10:37 verbose #68682 > dmdt = dps.dmdt + dps'.dmdt
00:10:37 verbose #68683 > dqdt = dps.dqdt + dps'.dqdt
00:10:37 verbose #68684 > dtdt = dps.dtdt + dps'.dtdt
00:10:37 verbose #68685 > drdt = dps.drdt ^+^ dps'.drdt
00:10:37 verbose #68686 > dvdt = dps.dvdt ^+^ dps'.dvdt
00:10:37 verbose #68687 > }
00:10:37 verbose #68688 >
00:10:37 verbose #68689 > instance scale d_particle_state = fun w (dps : d_particle_state) =>
00:10:37 verbose #68690 > d_particle_state {
00:10:37 verbose #68691 > dmdt = w * dps.dmdt
00:10:37 verbose #68692 > dqdt = w * dps.dqdt
00:10:37 verbose #68693 > dtdt = w * dps.dtdt
00:10:37 verbose #68694 > drdt = w *^ dps.drdt
00:10:37 verbose #68695 > dvdt = w *^ dps.dvdt
00:10:37 verbose #68696 > }
00:10:37 verbose #68697 >
00:10:37 verbose #68698 > instance shift particle_state = fun dt dps (particle_state st) =>
00:10:37 verbose #68699 > inl (d_particle_state dps) =
00:10:37 verbose #68700 > real
00:10:37 verbose #68701 > match dps with
00:10:37 verbose #68702 > | d_particle_state _ => dps
00:10:37 verbose #68703 > particle_state { st with
00:10:37 verbose #68704 > time = st.time + dps.dtdt * dt
00:10:37 verbose #68705 > pos_vec = st.pos_vec ^+^ dps.drdt ^* dt
00:10:37 verbose #68706 > velocity = st.velocity ^+^ dps.dvdt ^* dt
00:10:37 verbose #68707 > }
00:10:37 verbose #68708 >
00:10:37 verbose #68709 > inl states_ps (method : numerical_method particle_state d_particle_state) : _ ->
00:10:37 verbose #68710 > _ -> i32 -> particle_state =
00:10:37 verbose #68711 > newton_second_ps >> method >> seq.iterate_
00:10:37 verbose #68712 >
00:10:37 verbose #68713 > inl z_ge0 sts =
00:10:37 verbose #68714 > sts
00:10:37 verbose #68715 > |> seq.take_while_ (fun (particle_state st) _ => st.pos_vec.z >= 0)
00:10:37 verbose #68716 >
00:10:37 verbose #68717 > inl trajectory sts =
00:10:37 verbose #68718 > sts |> listm.map (fun (particle_state st) => st.pos_vec.y, st.pos_vec.z)
00:10:37 verbose #68719 > 00:10:36 debug #803 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cf19d0076e60db8574ef2fba498a50eabd9d0754b19e7398362265e7955877fd/main.spi
00:10:37 verbose #68720 >
00:10:37 verbose #68721 > ╭─[ 253.66ms - stdout ]────────────────────────────────────────────────────────╮
00:10:37 verbose #68722 > │ () │
00:10:37 verbose #68723 > │ │
00:10:37 verbose #68724 > │ │
00:10:37 verbose #68725 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:37 verbose #68726 >
00:10:37 verbose #68727 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:37 verbose #68728 > // // test
00:10:37 verbose #68729 >
00:10:37 verbose #68730 > inl update_ps (method : numerical_method particle_state d_particle_state) =
00:10:37 verbose #68731 > newton_second_ps >> method
00:10:37 verbose #68732 >
00:10:37 verbose #68733 > inl position_ps (method : numerical_method particle_state d_particle_state) fs
00:10:37 verbose #68734 > st t =
00:10:37 verbose #68735 > inl states : i32 -> particle_state = states_ps method fs st
00:10:37 verbose #68736 > inl dt = (states 1).time - (states 0).time
00:10:37 verbose #68737 > inl num_steps = t / dt |> math.round |> abs
00:10:37 verbose #68738 > inl st1 = solver' method (newton_second_ps fs) st num_steps
00:10:37 verbose #68739 > st1.pos_vec
00:10:37 verbose #68740 >
00:10:37 verbose #68741 > inl sun_gravity (st : particle_state) : vec =
00:10:37 verbose #68742 > inl big_g = 0.0000000000667408
00:10:37 verbose #68743 > inl sun_mass = 1988480000000000000000000000000
00:10:37 verbose #68744 > -big_g * sun_mass * st.mass *^ st.pos_vec ^/ magnitude st.pos_vec ** 3
00:10:37 verbose #68745 >
00:10:37 verbose #68746 > inl wind_force v_wind drag rho area (st : particle_state) =
00:10:37 verbose #68747 > inl v_rel = st.velocity ^-^ v_wind
00:10:37 verbose #68748 > -0.5 * drag * rho * area * magnitude v_rel *^ v_rel
00:10:37 verbose #68749 >
00:10:37 verbose #68750 > inl rock_state () =
00:10:37 verbose #68751 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:37 verbose #68752 > particle_state { default_particle_state' with
00:10:37 verbose #68753 > mass = 2
00:10:37 verbose #68754 > velocity = vec 3 0 4
00:10:37 verbose #68755 > }
00:10:37 verbose #68756 >
00:10:37 verbose #68757 > inl halley_update dt =
00:10:37 verbose #68758 > update_ps (euler_cromer_ps dt) [[ sun_gravity ]]
00:10:37 verbose #68759 >
00:10:37 verbose #68760 > inl halley_initial () =
00:10:37 verbose #68761 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:37 verbose #68762 > particle_state { default_particle_state' with
00:10:37 verbose #68763 > mass = 220000000000000
00:10:37 verbose #68764 > pos_vec = 87660000000 *^ i_hat ()
00:10:37 verbose #68765 > velocity = 54569 *^ j_hat ()
00:10:37 verbose #68766 > }
00:10:37 verbose #68767 > 00:10:37 debug #804 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2592fde8250f260a3c89ded60b67224644460a61f32f59fd0cc6387aef87af7c/main.spi
00:10:37 verbose #68768 >
00:10:37 verbose #68769 > ╭─[ 270.24ms - stdout ]────────────────────────────────────────────────────────╮
00:10:37 verbose #68770 > │ () │
00:10:37 verbose #68771 > │ │
00:10:37 verbose #68772 > │ │
00:10:37 verbose #68773 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:37 verbose #68774 >
00:10:37 verbose #68775 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:37 verbose #68776 > // // test
00:10:37 verbose #68777 >
00:10:37 verbose #68778 > inl baseball_forces () =
00:10:37 verbose #68779 > inl area = pi * (0.074 / 2) ** 2
00:10:37 verbose #68780 > [[
00:10:37 verbose #68781 > earth_surface_gravity
00:10:37 verbose #68782 > air_resistance 0.3 1.225 area
00:10:37 verbose #68783 > ]]
00:10:37 verbose #68784 >
00:10:37 verbose #68785 > inl baseball_trajectory dt v0 theta_deg =
00:10:37 verbose #68786 > inl theta_rad = theta_deg * pi / 180
00:10:37 verbose #68787 > inl vy0 = v0 * cos theta_rad
00:10:37 verbose #68788 > inl vz0 = v0 * sin theta_rad
00:10:37 verbose #68789 > inl initial_state =
00:10:37 verbose #68790 > particle_state {
00:10:37 verbose #68791 > mass = 0.145
00:10:37 verbose #68792 > charge = 0
00:10:37 verbose #68793 > time = 0
00:10:37 verbose #68794 > pos_vec = zero_vec ()
00:10:37 verbose #68795 > velocity = vec 0 vy0 vz0
00:10:37 verbose #68796 > }
00:10:37 verbose #68797 > states_ps (euler_cromer_ps dt) (baseball_forces ()) initial_state
00:10:37 verbose #68798 > >> Some
00:10:37 verbose #68799 > |> z_ge0
00:10:37 verbose #68800 > |> trajectory
00:10:37 verbose #68801 >
00:10:37 verbose #68802 > inl baseball_range dt v0 theta_deg =
00:10:37 verbose #68803 > baseball_trajectory dt v0 theta_deg
00:10:37 verbose #68804 > |> listm.fold (fun _ (y, _) => y) 0
00:10:37 verbose #68805 >
00:10:37 verbose #68806 > inl x : a _ f64 = am'.init_series 10 80 1
00:10:37 verbose #68807 > inl y = x |> am.map (baseball_range 0.01 45)
00:10:37 verbose #68808 > "range for a baseball hit at 45 m/s",
00:10:37 verbose #68809 > "angle above horizontal (degrees)",
00:10:37 verbose #68810 > "",
00:10:37 verbose #68811 > ;[[ "horizontal range (m)", x, y ]]
00:10:37 verbose #68812 > 00:10:37 debug #805 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8d07a968f72d011a6ea3536d1c85fd8ae878efce3c92f1e2a9d85ba80bc560a0/main.spi
00:10:39 verbose #68813 >
00:10:39 verbose #68814 > ╭─[ 1.26s - return value ]─────────────────────────────────────────────────────╮
00:10:39 verbose #68815 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:39 verbose #68816 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:39 verbose #68817 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:39 verbose #68818 > │ stroke="none"/> │
00:10:39 verbose #68819 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:39 verbose #68820 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:39 verbose #68821 > │ fill="#FFFFFF"> │
00:10:39 verbose #68822 > │ range for a baseball hit at 45 m/s │
00:10:39 verbose #68823 > │ </text> │
00:10:39 verbose #68824 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="55" y1="424" x2="55" │
00:10:39 verbose #68825 > │ y2="75"/> │
00:10:39 verbose #68826 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:10:39 verbose #68827 > │ y2="75"/> │
00:10:39 verbose #68828 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:39 verbose #68829 > │ y2="75"/> │
00:10:39 verbose #68830 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:10:39 verbose #68831 > │ y2="75"/> │
00:10:39 verbose #68832 > │ <line opacity="1" stroke="#323232" stroke-width="... │
00:10:39 verbose #68833 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:39 verbose #68834 >
00:10:39 verbose #68835 > ╭─[ 1.28s - stdout ]───────────────────────────────────────────────────────────╮
00:10:39 verbose #68836 > │ type Mut0 = {mutable l0 : int32} │
00:10:39 verbose #68837 > │ and UH0 = │
00:10:39 verbose #68838 > │ | UH0_0 │
00:10:39 verbose #68839 > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:10:39 verbose #68840 > │ * float * UH0 │
00:10:39 verbose #68841 > │ and UH1 = │
00:10:39 verbose #68842 > │ | UH1_0 │
00:10:39 verbose #68843 > │ | UH1_1 of float * float * UH1 │
00:10:39 verbose #68844 > │ let rec method1 (v0 : Mut0) : bool = │
00:10:39 verbose #68845 > │ let v1 : int32 = v0.l0 │
00:10:39 verbose #68846 > │ let v2 : bool = v1 < 71 │
00:10:39 verbose #68847 > │ v2 │
00:10:39 verbose #68848 > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:10:39 verbose #68849 > │ let v2 : int32 = v1.l0 │
00:10:39 verbose #68850 > │ let v3 : bool = v2 < v0 │
00:10:39 verbose #68851 > │ v3 │
00:10:39 verbose #68852 > │ and method4 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:10:39 verbose #68853 > │ : float, v6 : float, v7 : float, v8 : float, v9 : int32) : struct (float * │
00:10:39 verbose #68854 > │ float * float * float * float * float * float * float * float) = │
00:10:39 verbose #68855 > │ let v10 : bool = v9 <= 0 │
00:10:39 verbose #68856 > │ if v10 then │
00:10:39 verbose #68857 > │ struct (v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:10:39 verbose #68858 > │ else │
00:10:39 verbose #68859 > │ let v11 : float = v6 * v6 │
00:10:39 verbose #68860 > │ let v12 : float = v7 * v7 │
00:10:39 verbose #68861 > │ let v13 : float = v11 + v12 │
00:10:39 verbose #68862 > │ let v14 : float = v8 * v8 │
00:10:39 verbose #68863 > │ let v15 : float = v13 + v14 │
00:10:39 verbose #68864 > │ let v16 : float = sqrt v15 │
00:10:39 verbose #68865 > │ let v17 : float = -0.0007902794129829633 * v16 │
00:10:39 verbose #68866 > │ let v18 : float = v17 * v6 │
00:10:39 verbose #68867 > │ let v19 : float = v17 * v7 │
00:10:39 verbose #68868 > │ let v20 : float = v17 * v8 │
00:10:39 verbose #68869 > │ let v21 : float = -v1 │
00:10:39 verbose #68870 > │ let v22 : float = v21 * 9.80665 │
00:10:39 verbose #68871 > │ let v23 : float = v22 * 0.0 │
00:10:39 verbose #68872 > │ let v24 : float = v23 + v18 │
00:10:39 verbose #68873 > │ let v25 : float = v23 + v19 │
00:10:39 verbose #68874 > │ let v26 : float = v22 + v20 │
00:10:39 verbose #68875 > │ let v27 : float = v24 / v1 │
00:10:39 verbose #68876 > │ let v28 : float = v25 / v1 │
00:10:39 verbose #68877 > │ let v29 : float = v26 / v1 │
00:10:39 verbose #68878 > │ let v30 : float = 0.01 * v27 │
00:10:39 verbose #68879 > │ let v31 : float = 0.01 * v28 │
00:10:39 verbose #68880 > │ let v32 : float = 0.01 * v29 │
00:10:39 verbose #68881 > │ let v33 : float = v6 + v30 │
00:10:39 verbose #68882 > │ let v34 : float = v7 + v31 │
00:10:39 verbose #68883 > │ let v35 : float = v8 + v32 │
00:10:39 verbose #68884 > │ let v36 : float = v5 + 0.01 │
00:10:39 verbose #68885 > │ let v37 : float = 0.01 * v33 │
00:10:39 verbose #68886 > │ let v38 : float = 0.01 * v34 │
00:10:39 verbose #68887 > │ let v39 : float = 0.01 * v35 │
00:10:39 verbose #68888 > │ let v40 : float = v2 + v37 │
00:10:39 verbose #68889 > │ let v41 : float = v3 + v38 │
00:10:39 verbose #68890 > │ let v42 : float = v4 + v39 │
00:10:39 verbose #68891 > │ let v43 : int32 = v9 - 1 │
00:10:39 verbose #68892 > │ method4(v0, v1, v40, v41, v42, v36, v33, v34, v35, v43) │
00:10:39 verbose #68893 > │ and method5 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:39 verbose #68894 > │ match v0 with │
00:10:39 verbose #68895 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:39 verbose #68896 > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:10:39 verbose #68897 > │ method5(v11, v12) │
00:10:39 verbose #68898 > │ | UH0_0 -> (* Nil *) │
00:10:39 verbose #68899 > │ v1 │
00:10:39 verbose #68900 > │ and method3 (v0 : float, v1 : float, v2 : UH0, v3 : int32) : UH0 = │
00:10:39 verbose #68901 > │ let v4 : float = 0.0 │
00:10:39 verbose #68902 > │ let v5 : float = 0.145 │
00:10:39 verbose #68903 > │ let v6 : float = 0.0 │
00:10:39 verbose #68904 > │ let v7 : float = 0.0 │
00:10:39 verbose #68905 > │ let v8 : float = 0.0 │
00:10:39 verbose #68906 > │ let v9 : float = 0.0 │
00:10:39 verbose #68907 > │ let v10 : float = 0.0 │
00:10:39 verbose #68908 > │ let struct (v11 : float, v12 : float, v13 : float, v14 : float, v15 : │
00:10:39 verbose #68909 > │ float, v16 : float, v17 : float, v18 : float, v19 : float) = method4(v4, v5, │
00:10:39 verbose #68910 > │ v6, v7, v8, v9, v10, v0, v1, v3) │
00:10:39 verbose #68911 > │ let v20 : bool = v15 >= 0.0 │
00:10:39 verbose #68912 > │ if v20 then │
00:10:39 verbose #68913 > │ let v21 : UH0 = UH0_1(v11, v12, v13, v14, v15, v16, v17, v18, v19, │
00:10:39 verbose #68914 > │ v2) │
00:10:39 verbose #68915 > │ let v22 : int32 = v3 + 1 │
00:10:39 verbose #68916 > │ method3(v0, v1, v21, v22) │
00:10:39 verbose #68917 > │ else │
00:10:39 verbose #68918 > │ let v24 : UH0 = UH0_0 │
00:10:39 verbose #68919 > │ method5(v2, v24) │
00:10:39 verbose #68920 > │ and method6 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:39 verbose #68921 > │ match v0 with │
00:10:39 verbose #68922 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:39 verbose #68923 > │ let v12 : UH1 = method6(v11, v1) │
00:10:39 verbose #68924 > │ UH1_1(v5, v6, v12) │
00:10:39 verbose #68925 > │ | UH0_0 -> (* Nil *) │
00:10:39 verbose #68926 > │ v1 │
00:10:39 verbose #68927 > │ and method7 (v0 : UH1, v1 : float) : float = │
00:10:39 verbose #68928 > │ match v0 with │
00:10:39 verbose #68929 > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:10:39 verbose #68930 > │ method7(v4, v2) │
00:10:39 verbose #68931 > │ | UH1_0 -> (* Nil *) │
00:10:39 verbose #68932 > │ v1 │
00:10:39 verbose #68933 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:39 verbose #68934 > │ []) * (float [])) [])) = │
00:10:39 verbose #68935 > │ let v0 : (float []) = Array.zeroCreate<float> (71) │
00:10:39 verbose #68936 > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:10:39 verbose #68937 > │ while method1(v1) do │
00:10:39 verbose #68938 > │ let v3 : int32 = v1.l0 │
00:10:39 verbose #68939 > │ let v4 : float = float v3 │
00:10:39 verbose #68940 > │ let v5 : float = 10.0 + v4 │
00:10:39 verbose #68941 > │ v0.[int v3] <- v5 │
00:10:39 verbose #68942 > │ let v6 : int32 = v3 + 1 │
00:10:39 verbose #68943 > │ v1.l0 <- v6 │
00:10:39 verbose #68944 > │ () │
00:10:39 verbose #68945 > │ let v7 : int32 = v0.Length │
00:10:39 verbose #68946 > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:10:39 verbose #68947 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:10:39 verbose #68948 > │ while method2(v7, v9) do │
00:10:39 verbose #68949 > │ let v11 : int32 = v9.l0 │
00:10:39 verbose #68950 > │ let v12 : float = v0.[int v11] │
00:10:39 verbose #68951 > │ let v13 : float = v12 * 3.141592653589793 │
00:10:39 verbose #68952 > │ let v14 : float = v13 / 180.0 │
00:10:39 verbose #68953 > │ let v15 : float = cos v14 │
00:10:39 verbose #68954 > │ let v16 : float = 45.0 * v15 │
00:10:39 verbose #68955 > │ let v17 : float = sin v14 │
00:10:39 verbose #68956 > │ let v18 : float = 45.0 * v17 │
00:10:39 verbose #68957 > │ let v19 : UH0 = UH0_0 │
00:10:39 verbose #68958 > │ let v20 : int32 = 0 │
00:10:39 verbose #68959 > │ let v21 : UH0 = method3(v16, v18, v19, v20) │
00:10:39 verbose #68960 > │ let v22 : UH1 = UH1_0 │
00:10:39 verbose #68961 > │ let v23 : UH1 = method6(v21, v22) │
00:10:39 verbose #68962 > │ let v24 : float = 0.0 │
00:10:39 verbose #68963 > │ let v25 : float = method7(v23, v24) │
00:10:39 verbose #68964 > │ v8.[int v11] <- v25 │
00:10:39 verbose #68965 > │ let v26 : int32 = v11 + 1 │
00:10:39 verbose #68966 > │ v9.l0 <- v26 │
00:10:39 verbose #68967 > │ () │
00:10:39 verbose #68968 > │ let v27 : string = "horizontal range (m)" │
00:10:39 verbose #68969 > │ let v28 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:39 verbose #68970 > │ (v27, v0, v8)|] │
00:10:39 verbose #68971 > │ let v29 : string = "range for a baseball hit at 45 m/s" │
00:10:39 verbose #68972 > │ let v30 : string = "angle above horizontal (degrees)" │
00:10:39 verbose #68973 > │ let v31 : string = "" │
00:10:39 verbose #68974 > │ struct (v29, v30, v31, v28) │
00:10:39 verbose #68975 > │ method0() │
00:10:39 verbose #68976 > │ │
00:10:39 verbose #68977 > │ │
00:10:39 verbose #68978 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:39 verbose #68979 >
00:10:39 verbose #68980 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:39 verbose #68981 > // // test
00:10:39 verbose #68982 >
00:10:39 verbose #68983 > inl best_angle (min, max) =
00:10:39 verbose #68984 > let rec loop theta_deg (best_range, best_theta_deg) =
00:10:39 verbose #68985 > if theta_deg > max
00:10:39 verbose #68986 > then best_range, best_theta_deg
00:10:39 verbose #68987 > else
00:10:39 verbose #68988 > inl range = baseball_range 0.01 45 theta_deg
00:10:39 verbose #68989 > loop
00:10:39 verbose #68990 > (theta_deg + 1)
00:10:39 verbose #68991 > (if range > best_range
00:10:39 verbose #68992 > then range, theta_deg
00:10:39 verbose #68993 > else best_range, best_theta_deg)
00:10:39 verbose #68994 > loop min (0f64, min)
00:10:39 verbose #68995 >
00:10:39 verbose #68996 > best_angle (30f64, 60f64)
00:10:39 verbose #68997 > |> _assert_eq (116.77499158246208, 41)
00:10:39 verbose #68998 > 00:10:38 debug #806 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/bc68087efbfbb05400079955b8bb0609cbb864bbb87e8869387561adf0b942cc/main.spi
00:10:39 verbose #68999 >
00:10:39 verbose #69000 > ╭─[ 678.58ms - stdout ]────────────────────────────────────────────────────────╮
00:10:39 verbose #69001 > │ type UH0 = │
00:10:39 verbose #69002 > │ | UH0_0 │
00:10:39 verbose #69003 > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:10:39 verbose #69004 > │ * float * UH0 │
00:10:39 verbose #69005 > │ and UH1 = │
00:10:39 verbose #69006 > │ | UH1_0 │
00:10:39 verbose #69007 > │ | UH1_1 of float * float * UH1 │
00:10:39 verbose #69008 > │ let rec method3 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:10:39 verbose #69009 > │ v5 : float, v6 : float, v7 : float, v8 : float, v9 : int32) : struct (float │
00:10:39 verbose #69010 > │ * float * float * float * float * float * float * float * float) = │
00:10:39 verbose #69011 > │ let v10 : bool = v9 <= 0 │
00:10:39 verbose #69012 > │ if v10 then │
00:10:39 verbose #69013 > │ struct (v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:10:39 verbose #69014 > │ else │
00:10:39 verbose #69015 > │ let v11 : float = v6 * v6 │
00:10:39 verbose #69016 > │ let v12 : float = v7 * v7 │
00:10:39 verbose #69017 > │ let v13 : float = v11 + v12 │
00:10:39 verbose #69018 > │ let v14 : float = v8 * v8 │
00:10:39 verbose #69019 > │ let v15 : float = v13 + v14 │
00:10:39 verbose #69020 > │ let v16 : float = sqrt v15 │
00:10:39 verbose #69021 > │ let v17 : float = -0.0007902794129829633 * v16 │
00:10:39 verbose #69022 > │ let v18 : float = v17 * v6 │
00:10:39 verbose #69023 > │ let v19 : float = v17 * v7 │
00:10:39 verbose #69024 > │ let v20 : float = v17 * v8 │
00:10:39 verbose #69025 > │ let v21 : float = -v1 │
00:10:39 verbose #69026 > │ let v22 : float = v21 * 9.80665 │
00:10:39 verbose #69027 > │ let v23 : float = v22 * 0.0 │
00:10:39 verbose #69028 > │ let v24 : float = v23 + v18 │
00:10:39 verbose #69029 > │ let v25 : float = v23 + v19 │
00:10:39 verbose #69030 > │ let v26 : float = v22 + v20 │
00:10:39 verbose #69031 > │ let v27 : float = v24 / v1 │
00:10:39 verbose #69032 > │ let v28 : float = v25 / v1 │
00:10:39 verbose #69033 > │ let v29 : float = v26 / v1 │
00:10:39 verbose #69034 > │ let v30 : float = 0.01 * v27 │
00:10:39 verbose #69035 > │ let v31 : float = 0.01 * v28 │
00:10:39 verbose #69036 > │ let v32 : float = 0.01 * v29 │
00:10:39 verbose #69037 > │ let v33 : float = v6 + v30 │
00:10:39 verbose #69038 > │ let v34 : float = v7 + v31 │
00:10:39 verbose #69039 > │ let v35 : float = v8 + v32 │
00:10:39 verbose #69040 > │ let v36 : float = v5 + 0.01 │
00:10:39 verbose #69041 > │ let v37 : float = 0.01 * v33 │
00:10:39 verbose #69042 > │ let v38 : float = 0.01 * v34 │
00:10:39 verbose #69043 > │ let v39 : float = 0.01 * v35 │
00:10:39 verbose #69044 > │ let v40 : float = v2 + v37 │
00:10:39 verbose #69045 > │ let v41 : float = v3 + v38 │
00:10:39 verbose #69046 > │ let v42 : float = v4 + v39 │
00:10:39 verbose #69047 > │ let v43 : int32 = v9 - 1 │
00:10:39 verbose #69048 > │ method3(v0, v1, v40, v41, v42, v36, v33, v34, v35, v43) │
00:10:39 verbose #69049 > │ and method4 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:39 verbose #69050 > │ match v0 with │
00:10:39 verbose #69051 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:39 verbose #69052 > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:10:39 verbose #69053 > │ method4(v11, v12) │
00:10:39 verbose #69054 > │ | UH0_0 -> (* Nil *) │
00:10:39 verbose #69055 > │ v1 │
00:10:39 verbose #69056 > │ and method2 (v0 : float, v1 : float, v2 : UH0, v3 : int32) : UH0 = │
00:10:39 verbose #69057 > │ let v4 : float = 0.0 │
00:10:39 verbose #69058 > │ let v5 : float = 0.145 │
00:10:39 verbose #69059 > │ let v6 : float = 0.0 │
00:10:39 verbose #69060 > │ let v7 : float = 0.0 │
00:10:39 verbose #69061 > │ let v8 : float = 0.0 │
00:10:39 verbose #69062 > │ let v9 : float = 0.0 │
00:10:39 verbose #69063 > │ let v10 : float = 0.0 │
00:10:39 verbose #69064 > │ let struct (v11 : float, v12 : float, v13 : float, v14 : float, v15 : │
00:10:39 verbose #69065 > │ float, v16 : float, v17 : float, v18 : float, v19 : float) = method3(v4, v5, │
00:10:39 verbose #69066 > │ v6, v7, v8, v9, v10, v0, v1, v3) │
00:10:39 verbose #69067 > │ let v20 : bool = v15 >= 0.0 │
00:10:39 verbose #69068 > │ if v20 then │
00:10:39 verbose #69069 > │ let v21 : UH0 = UH0_1(v11, v12, v13, v14, v15, v16, v17, v18, v19, │
00:10:39 verbose #69070 > │ v2) │
00:10:39 verbose #69071 > │ let v22 : int32 = v3 + 1 │
00:10:39 verbose #69072 > │ method2(v0, v1, v21, v22) │
00:10:39 verbose #69073 > │ else │
00:10:39 verbose #69074 > │ let v24 : UH0 = UH0_0 │
00:10:39 verbose #69075 > │ method4(v2, v24) │
00:10:39 verbose #69076 > │ and method5 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:39 verbose #69077 > │ match v0 with │
00:10:39 verbose #69078 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:39 verbose #69079 > │ let v12 : UH1 = method5(v11, v1) │
00:10:39 verbose #69080 > │ UH1_1(v5, v6, v12) │
00:10:39 verbose #69081 > │ | UH0_0 -> (* Nil *) │
00:10:39 verbose #69082 > │ v1 │
00:10:39 verbose #69083 > │ and method6 (v0 : UH1, v1 : float) : float = │
00:10:39 verbose #69084 > │ match v0 with │
00:10:39 verbose #69085 > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:10:39 verbose #69086 > │ method6(v4, v2) │
00:10:39 verbose #69087 > │ | UH1_0 -> (* Nil *) │
00:10:39 verbose #69088 > │ v1 │
00:10:39 verbose #69089 > │ and method1 (v0 : float, v1 : float, v2 : float) : struct (float * float) = │
00:10:39 verbose #69090 > │ let v3 : bool = v0 > 60.0 │
00:10:39 verbose #69091 > │ if v3 then │
00:10:39 verbose #69092 > │ struct (v2, v1) │
00:10:39 verbose #69093 > │ else │
00:10:39 verbose #69094 > │ let v4 : float = v0 * 3.141592653589793 │
00:10:39 verbose #69095 > │ let v5 : float = v4 / 180.0 │
00:10:39 verbose #69096 > │ let v6 : float = cos v5 │
00:10:39 verbose #69097 > │ let v7 : float = 45.0 * v6 │
00:10:39 verbose #69098 > │ let v8 : float = sin v5 │
00:10:39 verbose #69099 > │ let v9 : float = 45.0 * v8 │
00:10:39 verbose #69100 > │ let v10 : UH0 = UH0_0 │
00:10:39 verbose #69101 > │ let v11 : int32 = 0 │
00:10:39 verbose #69102 > │ let v12 : UH0 = method2(v7, v9, v10, v11) │
00:10:39 verbose #69103 > │ let v13 : UH1 = UH1_0 │
00:10:39 verbose #69104 > │ let v14 : UH1 = method5(v12, v13) │
00:10:39 verbose #69105 > │ let v15 : float = 0.0 │
00:10:39 verbose #69106 > │ let v16 : float = method6(v14, v15) │
00:10:39 verbose #69107 > │ let v17 : float = v0 + 1.0 │
00:10:39 verbose #69108 > │ let v18 : bool = v16 > v2 │
00:10:39 verbose #69109 > │ let struct (v19 : float, v20 : float) = │
00:10:39 verbose #69110 > │ if v18 then │
00:10:39 verbose #69111 > │ struct (v16, v0) │
00:10:39 verbose #69112 > │ else │
00:10:39 verbose #69113 > │ struct (v2, v1) │
00:10:39 verbose #69114 > │ method1(v17, v20, v19) │
00:10:39 verbose #69115 > │ and method7 (v0 : bool) : bool = │
00:10:39 verbose #69116 > │ v0 │
00:10:39 verbose #69117 > │ and method0 () : unit = │
00:10:39 verbose #69118 > │ let v0 : float = 30.0 │
00:10:39 verbose #69119 > │ let v1 : float = 0.0 │
00:10:39 verbose #69120 > │ let v2 : float = 30.0 │
00:10:39 verbose #69121 > │ let struct (v3 : float, v4 : float) = method1(v0, v2, v1) │
00:10:39 verbose #69122 > │ let v5 : string = $"%A{struct (v3, v4)}" │
00:10:39 verbose #69123 > │ System.Console.WriteLine v5 │
00:10:39 verbose #69124 > │ let v6 : bool = v3 = 116.77499158246208 │
00:10:39 verbose #69125 > │ let v8 : bool = │
00:10:39 verbose #69126 > │ if v6 then │
00:10:39 verbose #69127 > │ let v7 : bool = v4 = 41.0 │
00:10:39 verbose #69128 > │ v7 │
00:10:39 verbose #69129 > │ else │
00:10:39 verbose #69130 > │ false │
00:10:39 verbose #69131 > │ let v10 : bool = │
00:10:39 verbose #69132 > │ if v8 then │
00:10:39 verbose #69133 > │ true │
00:10:39 verbose #69134 > │ else │
00:10:39 verbose #69135 > │ method7(v8) │
00:10:39 verbose #69136 > │ let v11 : string = $"__expect / actual: %A{struct (v3, v4)} / expected: │
00:10:39 verbose #69137 > │ %A{struct (116.77499158246208, 41.0)}" │
00:10:39 verbose #69138 > │ let v12 : bool = v10 = false │
00:10:39 verbose #69139 > │ if v12 then │
00:10:39 verbose #69140 > │ failwith<unit> v11 │
00:10:39 verbose #69141 > │ method0() │
00:10:39 verbose #69142 > │ │
00:10:39 verbose #69143 > │ struct (116.7749916, 41.0) │
00:10:39 verbose #69144 > │ │
00:10:39 verbose #69145 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:39 verbose #69146 >
00:10:39 verbose #69147 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:39 verbose #69148 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:39 verbose #69149 > │ ## relativity_ps │
00:10:39 verbose #69150 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:39 verbose #69151 >
00:10:39 verbose #69152 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:39 verbose #69153 > inl relativity_ps fs (st : particle_state) =
00:10:39 verbose #69154 > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:10:39 verbose #69155 > inl c = 299792458
00:10:39 verbose #69156 > inl u = st.velocity ^/ c
00:10:39 verbose #69157 > inl acc = sqrt (1 - (u <.> u)) *^ (f_net ^-^ (f_net <.> u) *^ u) ^/ st.mass
00:10:39 verbose #69158 > d_particle_state {
00:10:39 verbose #69159 > dmdt = 0
00:10:39 verbose #69160 > dqdt = 0
00:10:39 verbose #69161 > dtdt = 1
00:10:39 verbose #69162 > drdt = st.velocity
00:10:39 verbose #69163 > dvdt = acc
00:10:39 verbose #69164 > }
00:10:40 verbose #69165 > 00:10:39 debug #807 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ac244dbd4ff973d6a44954edcca731f6939816112d576db1b56a64c2e8a65b91/main.spi
00:10:40 verbose #69166 >
00:10:40 verbose #69167 > ╭─[ 280.50ms - stdout ]────────────────────────────────────────────────────────╮
00:10:40 verbose #69168 > │ () │
00:10:40 verbose #69169 > │ │
00:10:40 verbose #69170 > │ │
00:10:40 verbose #69171 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:40 verbose #69172 >
00:10:40 verbose #69173 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:40 verbose #69174 > // // test
00:10:40 verbose #69175 >
00:10:40 verbose #69176 > inl year = 365.25 * 24 * 60 * 60
00:10:40 verbose #69177 > inl c = 299792458
00:10:40 verbose #69178 > inl ~method = runge_kutta_4 100000
00:10:40 verbose #69179 > inl forces = [[ fun _ => 10 *^ i_hat () ]]
00:10:40 verbose #69180 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:40 verbose #69181 > inl initial_state =
00:10:40 verbose #69182 > particle_state { default_particle_state' with
00:10:40 verbose #69183 > mass = 1
00:10:40 verbose #69184 > }
00:10:40 verbose #69185 >
00:10:40 verbose #69186 > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:10:40 verbose #69187 > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:10:40 verbose #69188 >
00:10:40 verbose #69189 > inl newton_x, newton_y =
00:10:40 verbose #69190 > newton_states
00:10:40 verbose #69191 > >> Some
00:10:40 verbose #69192 > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:10:40 verbose #69193 > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:10:40 verbose #69194 > |> listm'.unzip
00:10:40 verbose #69195 >
00:10:40 verbose #69196 > inl _, relativity_y =
00:10:40 verbose #69197 > relativity_states
00:10:40 verbose #69198 > >> Some
00:10:40 verbose #69199 > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:10:40 verbose #69200 > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:10:40 verbose #69201 > |> listm'.unzip
00:10:40 verbose #69202 >
00:10:40 verbose #69203 > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:10:40 verbose #69204 > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:10:40 verbose #69205 > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:10:40 verbose #69206 >
00:10:40 verbose #69207 > "response to a constant force",
00:10:40 verbose #69208 > "time (years)",
00:10:40 verbose #69209 > "velocity (multiples of c)",
00:10:40 verbose #69210 > ;[[
00:10:40 verbose #69211 > "newtonian", newton_x, newton_y
00:10:40 verbose #69212 > "relativistic", newton_x, relativity_y
00:10:40 verbose #69213 > ]]
00:10:40 verbose #69214 > 00:10:39 debug #808 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/198d6a33edeff181fd7ef534b520bdb91f070ee9b4f26766999a2aeea6940869/main.spi
00:10:40 verbose #69215 >
00:10:40 verbose #69216 > ╭─[ 700.27ms - return value ]──────────────────────────────────────────────────╮
00:10:40 verbose #69217 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:40 verbose #69218 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:40 verbose #69219 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:40 verbose #69220 > │ stroke="none"/> │
00:10:40 verbose #69221 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:40 verbose #69222 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:40 verbose #69223 > │ fill="#FFFFFF"> │
00:10:40 verbose #69224 > │ response to a constant force │
00:10:40 verbose #69225 > │ </text> │
00:10:40 verbose #69226 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:40 verbose #69227 > │ y2="75"/> │
00:10:40 verbose #69228 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:40 verbose #69229 > │ y2="75"/> │
00:10:40 verbose #69230 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:40 verbose #69231 > │ y2="75"/> │
00:10:40 verbose #69232 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:40 verbose #69233 > │ y2="75"/> │
00:10:40 verbose #69234 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:10:40 verbose #69235 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:40 verbose #69236 >
00:10:40 verbose #69237 > ╭─[ 714.87ms - stdout ]────────────────────────────────────────────────────────╮
00:10:40 verbose #69238 > │ type UH0 = │
00:10:40 verbose #69239 > │ | UH0_0 │
00:10:40 verbose #69240 > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:10:40 verbose #69241 > │ * float * UH0 │
00:10:40 verbose #69242 > │ and UH1 = │
00:10:40 verbose #69243 > │ | UH1_0 │
00:10:40 verbose #69244 > │ | UH1_1 of float * float * UH1 │
00:10:40 verbose #69245 > │ and UH2 = │
00:10:40 verbose #69246 > │ | UH2_0 │
00:10:40 verbose #69247 > │ | UH2_1 of float * UH2 │
00:10:40 verbose #69248 > │ let rec closure1 (v0 : (struct (float * float * float * float * float * │
00:10:40 verbose #69249 > │ float * float * float * float) -> struct (float * float * float * float * │
00:10:40 verbose #69250 > │ float * float * float * float * float))) struct (v1 : float, v2 : float, v3 │
00:10:40 verbose #69251 > │ : float, v4 : float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : │
00:10:40 verbose #69252 > │ float) : struct (float * float * float * float * float * float * float * │
00:10:40 verbose #69253 > │ float * float) = │
00:10:40 verbose #69254 > │ let struct (v10 : float, v11 : float, v12 : float, v13 : float, v14 : │
00:10:40 verbose #69255 > │ float, v15 : float, v16 : float, v17 : float, v18 : float) = v0 struct (v1, │
00:10:40 verbose #69256 > │ v2, v3, v4, v5, v6, v7, v8, v9) │
00:10:40 verbose #69257 > │ let v19 : float = v15 * 50000.0 │
00:10:40 verbose #69258 > │ let v20 : float = v6 + v19 │
00:10:40 verbose #69259 > │ let v21 : float = 50000.0 * v12 │
00:10:40 verbose #69260 > │ let v22 : float = 50000.0 * v13 │
00:10:40 verbose #69261 > │ let v23 : float = 50000.0 * v14 │
00:10:40 verbose #69262 > │ let v24 : float = v3 + v21 │
00:10:40 verbose #69263 > │ let v25 : float = v4 + v22 │
00:10:40 verbose #69264 > │ let v26 : float = v5 + v23 │
00:10:40 verbose #69265 > │ let v27 : float = 50000.0 * v16 │
00:10:40 verbose #69266 > │ let v28 : float = 50000.0 * v17 │
00:10:40 verbose #69267 > │ let v29 : float = 50000.0 * v18 │
00:10:40 verbose #69268 > │ let v30 : float = v7 + v27 │
00:10:40 verbose #69269 > │ let v31 : float = v8 + v28 │
00:10:40 verbose #69270 > │ let v32 : float = v9 + v29 │
00:10:40 verbose #69271 > │ let struct (v33 : float, v34 : float, v35 : float, v36 : float, v37 : │
00:10:40 verbose #69272 > │ float, v38 : float, v39 : float, v40 : float, v41 : float) = v0 struct (v1, │
00:10:40 verbose #69273 > │ v2, v24, v25, v26, v20, v30, v31, v32) │
00:10:40 verbose #69274 > │ let v42 : float = v38 * 50000.0 │
00:10:40 verbose #69275 > │ let v43 : float = v6 + v42 │
00:10:40 verbose #69276 > │ let v44 : float = 50000.0 * v35 │
00:10:40 verbose #69277 > │ let v45 : float = 50000.0 * v36 │
00:10:40 verbose #69278 > │ let v46 : float = 50000.0 * v37 │
00:10:40 verbose #69279 > │ let v47 : float = v3 + v44 │
00:10:40 verbose #69280 > │ let v48 : float = v4 + v45 │
00:10:40 verbose #69281 > │ let v49 : float = v5 + v46 │
00:10:40 verbose #69282 > │ let v50 : float = 50000.0 * v39 │
00:10:40 verbose #69283 > │ let v51 : float = 50000.0 * v40 │
00:10:40 verbose #69284 > │ let v52 : float = 50000.0 * v41 │
00:10:40 verbose #69285 > │ let v53 : float = v7 + v50 │
00:10:40 verbose #69286 > │ let v54 : float = v8 + v51 │
00:10:40 verbose #69287 > │ let v55 : float = v9 + v52 │
00:10:40 verbose #69288 > │ let struct (v56 : float, v57 : float, v58 : float, v59 : float, v60 : │
00:10:40 verbose #69289 > │ float, v61 : float, v62 : float, v63 : float, v64 : float) = v0 struct (v1, │
00:10:40 verbose #69290 > │ v2, v47, v48, v49, v43, v53, v54, v55) │
00:10:40 verbose #69291 > │ let v65 : float = v61 * 100000.0 │
00:10:40 verbose #69292 > │ let v66 : float = v6 + v65 │
00:10:40 verbose #69293 > │ let v67 : float = 100000.0 * v58 │
00:10:40 verbose #69294 > │ let v68 : float = 100000.0 * v59 │
00:10:40 verbose #69295 > │ let v69 : float = 100000.0 * v60 │
00:10:40 verbose #69296 > │ let v70 : float = v3 + v67 │
00:10:40 verbose #69297 > │ let v71 : float = v4 + v68 │
00:10:40 verbose #69298 > │ let v72 : float = v5 + v69 │
00:10:40 verbose #69299 > │ let v73 : float = 100000.0 * v62 │
00:10:40 verbose #69300 > │ let v74 : float = 100000.0 * v63 │
00:10:40 verbose #69301 > │ let v75 : float = 100000.0 * v64 │
00:10:40 verbose #69302 > │ let v76 : float = v7 + v73 │
00:10:40 verbose #69303 > │ let v77 : float = v8 + v74 │
00:10:40 verbose #69304 > │ let v78 : float = v9 + v75 │
00:10:40 verbose #69305 > │ let struct (v79 : float, v80 : float, v81 : float, v82 : float, v83 : │
00:10:40 verbose #69306 > │ float, v84 : float, v85 : float, v86 : float, v87 : float) = v0 struct (v1, │
00:10:40 verbose #69307 > │ v2, v70, v71, v72, v66, v76, v77, v78) │
00:10:40 verbose #69308 > │ let v88 : float = v10 + v33 │
00:10:40 verbose #69309 > │ let v89 : float = v11 + v34 │
00:10:40 verbose #69310 > │ let v90 : float = v15 + v38 │
00:10:40 verbose #69311 > │ let v91 : float = v12 + v35 │
00:10:40 verbose #69312 > │ let v92 : float = v13 + v36 │
00:10:40 verbose #69313 > │ let v93 : float = v14 + v37 │
00:10:40 verbose #69314 > │ let v94 : float = v16 + v39 │
00:10:40 verbose #69315 > │ let v95 : float = v17 + v40 │
00:10:40 verbose #69316 > │ let v96 : float = v18 + v41 │
00:10:40 verbose #69317 > │ let v97 : float = v88 + v33 │
00:10:40 verbose #69318 > │ let v98 : float = v89 + v34 │
00:10:40 verbose #69319 > │ let v99 : float = v90 + v38 │
00:10:40 verbose #69320 > │ let v100 : float = v91 + v35 │
00:10:40 verbose #69321 > │ let v101 : float = v92 + v36 │
00:10:40 verbose #69322 > │ let v102 : float = v93 + v37 │
00:10:40 verbose #69323 > │ let v103 : float = v94 + v39 │
00:10:40 verbose #69324 > │ let v104 : float = v95 + v40 │
00:10:40 verbose #69325 > │ let v105 : float = v96 + v41 │
00:10:40 verbose #69326 > │ let v106 : float = v97 + v56 │
00:10:40 verbose #69327 > │ let v107 : float = v98 + v57 │
00:10:40 verbose #69328 > │ let v108 : float = v99 + v61 │
00:10:40 verbose #69329 > │ let v109 : float = v100 + v58 │
00:10:40 verbose #69330 > │ let v110 : float = v101 + v59 │
00:10:40 verbose #69331 > │ let v111 : float = v102 + v60 │
00:10:40 verbose #69332 > │ let v112 : float = v103 + v62 │
00:10:40 verbose #69333 > │ let v113 : float = v104 + v63 │
00:10:40 verbose #69334 > │ let v114 : float = v105 + v64 │
00:10:40 verbose #69335 > │ let v115 : float = v106 + v56 │
00:10:40 verbose #69336 > │ let v116 : float = v107 + v57 │
00:10:40 verbose #69337 > │ let v117 : float = v108 + v61 │
00:10:40 verbose #69338 > │ let v118 : float = v109 + v58 │
00:10:40 verbose #69339 > │ let v119 : float = v110 + v59 │
00:10:40 verbose #69340 > │ let v120 : float = v111 + v60 │
00:10:40 verbose #69341 > │ let v121 : float = v112 + v62 │
00:10:40 verbose #69342 > │ let v122 : float = v113 + v63 │
00:10:40 verbose #69343 > │ let v123 : float = v114 + v64 │
00:10:40 verbose #69344 > │ let v124 : float = v115 + v79 │
00:10:40 verbose #69345 > │ let v125 : float = v116 + v80 │
00:10:40 verbose #69346 > │ let v126 : float = v117 + v84 │
00:10:40 verbose #69347 > │ let v127 : float = v118 + v81 │
00:10:40 verbose #69348 > │ let v128 : float = v119 + v82 │
00:10:40 verbose #69349 > │ let v129 : float = v120 + v83 │
00:10:40 verbose #69350 > │ let v130 : float = v121 + v85 │
00:10:40 verbose #69351 > │ let v131 : float = v122 + v86 │
00:10:40 verbose #69352 > │ let v132 : float = v123 + v87 │
00:10:40 verbose #69353 > │ let v133 : float = v126 * 16666.666666666668 │
00:10:40 verbose #69354 > │ let v134 : float = v6 + v133 │
00:10:40 verbose #69355 > │ let v135 : float = 16666.666666666668 * v127 │
00:10:40 verbose #69356 > │ let v136 : float = 16666.666666666668 * v128 │
00:10:40 verbose #69357 > │ let v137 : float = 16666.666666666668 * v129 │
00:10:40 verbose #69358 > │ let v138 : float = v3 + v135 │
00:10:40 verbose #69359 > │ let v139 : float = v4 + v136 │
00:10:40 verbose #69360 > │ let v140 : float = v5 + v137 │
00:10:40 verbose #69361 > │ let v141 : float = 16666.666666666668 * v130 │
00:10:40 verbose #69362 > │ let v142 : float = 16666.666666666668 * v131 │
00:10:40 verbose #69363 > │ let v143 : float = 16666.666666666668 * v132 │
00:10:40 verbose #69364 > │ let v144 : float = v7 + v141 │
00:10:40 verbose #69365 > │ let v145 : float = v8 + v142 │
00:10:40 verbose #69366 > │ let v146 : float = v9 + v143 │
00:10:40 verbose #69367 > │ struct (v1, v2, v138, v139, v140, v134, v144, v145, v146) │
00:10:40 verbose #69368 > │ and closure0 () (v0 : (struct (float * float * float * float * float * float │
00:10:40 verbose #69369 > │ * float * float * float) -> struct (float * float * float * float * float * │
00:10:40 verbose #69370 > │ float * float * float * float))) : (struct (float * float * float * float * │
00:10:40 verbose #69371 > │ float * float * float * float * float) -> struct (float * float * float * │
00:10:40 verbose #69372 > │ float * float * float * float * float * float)) = │
00:10:40 verbose #69373 > │ closure1(v0) │
00:10:40 verbose #69374 > │ and closure2 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:10:40 verbose #69375 > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:40 verbose #69376 > │ float * float * float * float * float * float * float * float) = │
00:10:40 verbose #69377 > │ let v9 : float = 10.0 / v1 │
00:10:40 verbose #69378 > │ let v10 : float = 0.0 / v1 │
00:10:40 verbose #69379 > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v9, v10, v10) │
00:10:40 verbose #69380 > │ and closure3 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:10:40 verbose #69381 > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:40 verbose #69382 > │ float * float * float * float * float * float * float * float) = │
00:10:40 verbose #69383 > │ let v9 : float = v6 / 299792458.0 │
00:10:40 verbose #69384 > │ let v10 : float = v7 / 299792458.0 │
00:10:40 verbose #69385 > │ let v11 : float = v8 / 299792458.0 │
00:10:40 verbose #69386 > │ let v12 : float = v9 * v9 │
00:10:40 verbose #69387 > │ let v13 : float = v10 * v10 │
00:10:40 verbose #69388 > │ let v14 : float = v12 + v13 │
00:10:40 verbose #69389 > │ let v15 : float = v11 * v11 │
00:10:40 verbose #69390 > │ let v16 : float = v14 + v15 │
00:10:40 verbose #69391 > │ let v17 : float = 1.0 - v16 │
00:10:40 verbose #69392 > │ let v18 : float = sqrt v17 │
00:10:40 verbose #69393 > │ let v19 : float = 10.0 * v9 │
00:10:40 verbose #69394 > │ let v20 : float = 0.0 * v10 │
00:10:40 verbose #69395 > │ let v21 : float = v19 + v20 │
00:10:40 verbose #69396 > │ let v22 : float = 0.0 * v11 │
00:10:40 verbose #69397 > │ let v23 : float = v21 + v22 │
00:10:40 verbose #69398 > │ let v24 : float = v23 * v9 │
00:10:40 verbose #69399 > │ let v25 : float = v23 * v10 │
00:10:40 verbose #69400 > │ let v26 : float = v23 * v11 │
00:10:40 verbose #69401 > │ let v27 : float = -1.0 * v24 │
00:10:40 verbose #69402 > │ let v28 : float = -1.0 * v25 │
00:10:40 verbose #69403 > │ let v29 : float = -1.0 * v26 │
00:10:40 verbose #69404 > │ let v30 : float = 10.0 + v27 │
00:10:40 verbose #69405 > │ let v31 : float = v18 * v30 │
00:10:40 verbose #69406 > │ let v32 : float = v18 * v28 │
00:10:40 verbose #69407 > │ let v33 : float = v18 * v29 │
00:10:40 verbose #69408 > │ let v34 : float = v31 / v1 │
00:10:40 verbose #69409 > │ let v35 : float = v32 / v1 │
00:10:40 verbose #69410 > │ let v36 : float = v33 / v1 │
00:10:40 verbose #69411 > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v34, v35, v36) │
00:10:40 verbose #69412 > │ and method2 (v0 : (struct (float * float * float * float * float * float * │
00:10:40 verbose #69413 > │ float * float * float) -> struct (float * float * float * float * float * │
00:10:40 verbose #69414 > │ float * float * float * float)), v1 : float, v2 : float, v3 : float, v4 : │
00:10:40 verbose #69415 > │ float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : float, v10 : │
00:10:40 verbose #69416 > │ int32) : struct (float * float * float * float * float * float * float * │
00:10:40 verbose #69417 > │ float * float) = │
00:10:40 verbose #69418 > │ let v11 : bool = v10 <= 0 │
00:10:40 verbose #69419 > │ if v11 then │
00:10:40 verbose #69420 > │ struct (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:10:40 verbose #69421 > │ else │
00:10:40 verbose #69422 > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:10:40 verbose #69423 > │ : float, v17 : float, v18 : float, v19 : float, v20 : float) = v0 struct │
00:10:40 verbose #69424 > │ (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:10:40 verbose #69425 > │ let v21 : int32 = v10 - 1 │
00:10:40 verbose #69426 > │ method2(v0, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) │
00:10:40 verbose #69427 > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:40 verbose #69428 > │ match v0 with │
00:10:40 verbose #69429 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:40 verbose #69430 > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:10:40 verbose #69431 > │ method3(v11, v12) │
00:10:40 verbose #69432 > │ | UH0_0 -> (* Nil *) │
00:10:40 verbose #69433 > │ v1 │
00:10:40 verbose #69434 > │ and method1 (v0 : (struct (float * float * float * float * float * float * │
00:10:40 verbose #69435 > │ float * float * float) -> struct (float * float * float * float * float * │
00:10:40 verbose #69436 > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:10:40 verbose #69437 > │ let v3 : float = 0.0 │
00:10:40 verbose #69438 > │ let v4 : float = 1.0 │
00:10:40 verbose #69439 > │ let v5 : float = 0.0 │
00:10:40 verbose #69440 > │ let v6 : float = 0.0 │
00:10:40 verbose #69441 > │ let v7 : float = 0.0 │
00:10:40 verbose #69442 > │ let v8 : float = 0.0 │
00:10:40 verbose #69443 > │ let v9 : float = 0.0 │
00:10:40 verbose #69444 > │ let v10 : float = 0.0 │
00:10:40 verbose #69445 > │ let v11 : float = 0.0 │
00:10:40 verbose #69446 > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:10:40 verbose #69447 > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:10:40 verbose #69448 > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:10:40 verbose #69449 > │ let v21 : bool = v17 <= 31557600.0 │
00:10:40 verbose #69450 > │ if v21 then │
00:10:40 verbose #69451 > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:10:40 verbose #69452 > │ v1) │
00:10:40 verbose #69453 > │ let v23 : int32 = v2 + 1 │
00:10:40 verbose #69454 > │ method1(v0, v22, v23) │
00:10:40 verbose #69455 > │ else │
00:10:40 verbose #69456 > │ let v25 : UH0 = UH0_0 │
00:10:40 verbose #69457 > │ method3(v1, v25) │
00:10:40 verbose #69458 > │ and method4 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:40 verbose #69459 > │ match v0 with │
00:10:40 verbose #69460 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:40 verbose #69461 > │ let v12 : UH1 = method4(v11, v1) │
00:10:40 verbose #69462 > │ let v13 : float = v7 / 31557600.0 │
00:10:40 verbose #69463 > │ let v14 : float = v8 / 299792458.0 │
00:10:40 verbose #69464 > │ UH1_1(v13, v14, v12) │
00:10:40 verbose #69465 > │ | UH0_0 -> (* Nil *) │
00:10:40 verbose #69466 > │ v1 │
00:10:40 verbose #69467 > │ and method5 (v0 : UH1, v1 : UH2, v2 : UH2) : struct (UH2 * UH2) = │
00:10:40 verbose #69468 > │ match v0 with │
00:10:40 verbose #69469 > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:10:40 verbose #69470 > │ let v6 : UH2 = UH2_1(v3, v1) │
00:10:40 verbose #69471 > │ let v7 : UH2 = UH2_1(v4, v2) │
00:10:40 verbose #69472 > │ method5(v5, v6, v7) │
00:10:40 verbose #69473 > │ | UH1_0 -> (* Nil *) │
00:10:40 verbose #69474 > │ struct (v1, v2) │
00:10:40 verbose #69475 > │ and method6 (v0 : UH2, v1 : UH2) : UH2 = │
00:10:40 verbose #69476 > │ match v0 with │
00:10:40 verbose #69477 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:10:40 verbose #69478 > │ let v4 : UH2 = UH2_1(v2, v1) │
00:10:40 verbose #69479 > │ method6(v3, v4) │
00:10:40 verbose #69480 > │ | UH2_0 -> (* Nil *) │
00:10:40 verbose #69481 > │ v1 │
00:10:40 verbose #69482 > │ and method7 (v0 : (struct (float * float * float * float * float * float * │
00:10:40 verbose #69483 > │ float * float * float) -> struct (float * float * float * float * float * │
00:10:40 verbose #69484 > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:10:40 verbose #69485 > │ let v3 : float = 0.0 │
00:10:40 verbose #69486 > │ let v4 : float = 1.0 │
00:10:40 verbose #69487 > │ let v5 : float = 0.0 │
00:10:40 verbose #69488 > │ let v6 : float = 0.0 │
00:10:40 verbose #69489 > │ let v7 : float = 0.0 │
00:10:40 verbose #69490 > │ let v8 : float = 0.0 │
00:10:40 verbose #69491 > │ let v9 : float = 0.0 │
00:10:40 verbose #69492 > │ let v10 : float = 0.0 │
00:10:40 verbose #69493 > │ let v11 : float = 0.0 │
00:10:40 verbose #69494 > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:10:40 verbose #69495 > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:10:40 verbose #69496 > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:10:40 verbose #69497 > │ let v21 : bool = v17 <= 31557600.0 │
00:10:40 verbose #69498 > │ if v21 then │
00:10:40 verbose #69499 > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:10:40 verbose #69500 > │ v1) │
00:10:40 verbose #69501 > │ let v23 : int32 = v2 + 1 │
00:10:40 verbose #69502 > │ method7(v0, v22, v23) │
00:10:40 verbose #69503 > │ else │
00:10:40 verbose #69504 > │ let v25 : UH0 = UH0_0 │
00:10:40 verbose #69505 > │ method3(v1, v25) │
00:10:40 verbose #69506 > │ and method8 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:40 verbose #69507 > │ match v0 with │
00:10:40 verbose #69508 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:40 verbose #69509 > │ let v12 : UH1 = method8(v11, v1) │
00:10:40 verbose #69510 > │ let v13 : float = v7 / 31557600.0 │
00:10:40 verbose #69511 > │ let v14 : float = v8 / 299792458.0 │
00:10:40 verbose #69512 > │ UH1_1(v13, v14, v12) │
00:10:40 verbose #69513 > │ | UH0_0 -> (* Nil *) │
00:10:40 verbose #69514 > │ v1 │
00:10:40 verbose #69515 > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:10:40 verbose #69516 > │ match v0 with │
00:10:40 verbose #69517 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:10:40 verbose #69518 > │ let v4 : int32 = v1 + 1 │
00:10:40 verbose #69519 > │ method10(v3, v4) │
00:10:40 verbose #69520 > │ | UH2_0 -> (* Nil *) │
00:10:40 verbose #69521 > │ v1 │
00:10:40 verbose #69522 > │ and method11 (v0 : (float []), v1 : UH2, v2 : int32) : int32 = │
00:10:40 verbose #69523 > │ match v1 with │
00:10:40 verbose #69524 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:10:40 verbose #69525 > │ v0.[int v2] <- v3 │
00:10:40 verbose #69526 > │ let v5 : int32 = v2 + 1 │
00:10:40 verbose #69527 > │ method11(v0, v4, v5) │
00:10:40 verbose #69528 > │ | UH2_0 -> (* Nil *) │
00:10:40 verbose #69529 > │ v2 │
00:10:40 verbose #69530 > │ and method9 (v0 : UH2) : (float []) = │
00:10:40 verbose #69531 > │ let v1 : int32 = 0 │
00:10:40 verbose #69532 > │ let v2 : int32 = method10(v0, v1) │
00:10:40 verbose #69533 > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:10:40 verbose #69534 > │ let v4 : int32 = 0 │
00:10:40 verbose #69535 > │ let v5 : int32 = method11(v3, v0, v4) │
00:10:40 verbose #69536 > │ v3 │
00:10:40 verbose #69537 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:40 verbose #69538 > │ []) * (float [])) [])) = │
00:10:40 verbose #69539 > │ let v0 : ((struct (float * float * float * float * float * float * float │
00:10:40 verbose #69540 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:40 verbose #69541 > │ float * float * float)) -> (struct (float * float * float * float * float * │
00:10:40 verbose #69542 > │ float * float * float * float) -> struct (float * float * float * float * │
00:10:40 verbose #69543 > │ float * float * float * float * float))) = closure0() │
00:10:40 verbose #69544 > │ let v1 : (struct (float * float * float * float * float * float * float │
00:10:40 verbose #69545 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:40 verbose #69546 > │ float * float * float)) = closure2() │
00:10:40 verbose #69547 > │ let v2 : (struct (float * float * float * float * float * float * float │
00:10:40 verbose #69548 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:40 verbose #69549 > │ float * float * float)) = v0 v1 │
00:10:40 verbose #69550 > │ let v3 : (struct (float * float * float * float * float * float * float │
00:10:40 verbose #69551 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:40 verbose #69552 > │ float * float * float)) = closure3() │
00:10:40 verbose #69553 > │ let v4 : (struct (float * float * float * float * float * float * float │
00:10:40 verbose #69554 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:40 verbose #69555 > │ float * float * float)) = v0 v3 │
00:10:40 verbose #69556 > │ let v5 : UH0 = UH0_0 │
00:10:40 verbose #69557 > │ let v6 : int32 = 0 │
00:10:40 verbose #69558 > │ let v7 : UH0 = method1(v2, v5, v6) │
00:10:40 verbose #69559 > │ let v8 : UH1 = UH1_0 │
00:10:40 verbose #69560 > │ let v9 : UH1 = method4(v7, v8) │
00:10:40 verbose #69561 > │ let v10 : UH2 = UH2_0 │
00:10:40 verbose #69562 > │ let v11 : UH2 = UH2_0 │
00:10:40 verbose #69563 > │ let struct (v12 : UH2, v13 : UH2) = method5(v9, v10, v11) │
00:10:40 verbose #69564 > │ let v14 : UH2 = UH2_0 │
00:10:40 verbose #69565 > │ let v15 : UH2 = method6(v12, v14) │
00:10:40 verbose #69566 > │ let v16 : UH2 = UH2_0 │
00:10:40 verbose #69567 > │ let v17 : UH2 = method6(v13, v16) │
00:10:40 verbose #69568 > │ let v18 : UH0 = UH0_0 │
00:10:40 verbose #69569 > │ let v19 : int32 = 0 │
00:10:40 verbose #69570 > │ let v20 : UH0 = method7(v4, v18, v19) │
00:10:40 verbose #69571 > │ let v21 : UH1 = UH1_0 │
00:10:40 verbose #69572 > │ let v22 : UH1 = method8(v20, v21) │
00:10:40 verbose #69573 > │ let v23 : UH2 = UH2_0 │
00:10:40 verbose #69574 > │ let v24 : UH2 = UH2_0 │
00:10:40 verbose #69575 > │ let struct (v25 : UH2, v26 : UH2) = method5(v22, v23, v24) │
00:10:40 verbose #69576 > │ let v27 : UH2 = UH2_0 │
00:10:40 verbose #69577 > │ let v28 : UH2 = method6(v25, v27) │
00:10:40 verbose #69578 > │ let v29 : UH2 = UH2_0 │
00:10:40 verbose #69579 > │ let v30 : UH2 = method6(v26, v29) │
00:10:40 verbose #69580 > │ let v31 : (float []) = method9(v15) │
00:10:40 verbose #69581 > │ let v32 : (float []) = method9(v17) │
00:10:40 verbose #69582 > │ let v33 : (float []) = method9(v30) │
00:10:40 verbose #69583 > │ let v34 : string = "newtonian" │
00:10:40 verbose #69584 > │ let v35 : string = "relativistic" │
00:10:40 verbose #69585 > │ let v36 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:40 verbose #69586 > │ (v34, v31, v32); struct (v35, v31, v33)|] │
00:10:40 verbose #69587 > │ let v37 : string = "response to a constant force" │
00:10:40 verbose #69588 > │ let v38 : string = "time (years)" │
00:10:40 verbose #69589 > │ let v39 : string = "velocity (multiples of c)" │
00:10:40 verbose #69590 > │ struct (v37, v38, v39, v36) │
00:10:40 verbose #69591 > │ method0() │
00:10:40 verbose #69592 > │ │
00:10:40 verbose #69593 > │ │
00:10:40 verbose #69594 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:40 verbose #69595 >
00:10:40 verbose #69596 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:40 verbose #69597 > inl uniform_lorentz_force v_e v_b (st : particle_state) =
00:10:40 verbose #69598 > st.charge *^ (v_e ^+^ st.velocity >< v_b)
00:10:41 verbose #69599 > 00:10:40 debug #809 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/cbb2f705c8bba093264248c964704bb6a2b26b3936dbd010b7061f32030b7a6d/main.spi
00:10:41 verbose #69600 >
00:10:41 verbose #69601 > ╭─[ 236.76ms - stdout ]────────────────────────────────────────────────────────╮
00:10:41 verbose #69602 > │ () │
00:10:41 verbose #69603 > │ │
00:10:41 verbose #69604 > │ │
00:10:41 verbose #69605 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:41 verbose #69606 >
00:10:41 verbose #69607 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:41 verbose #69608 > // // test
00:10:41 verbose #69609 >
00:10:41 verbose #69610 > inl c : f64 = 299792458
00:10:41 verbose #69611 > inl ~method = runge_kutta_4 0.000000001
00:10:41 verbose #69612 > inl forces = [[ uniform_lorentz_force (zero_vec ()) (k_hat ()) ]]
00:10:41 verbose #69613 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:41 verbose #69614 > inl initial_state =
00:10:41 verbose #69615 > particle_state { default_particle_state' with
00:10:41 verbose #69616 > mass = 0.000000000000000000000000001672621898
00:10:41 verbose #69617 > charge = 0.0000000000000000001602176621
00:10:41 verbose #69618 > velocity = 0.8 *^ (c *^ j_hat ())
00:10:41 verbose #69619 > }
00:10:41 verbose #69620 >
00:10:41 verbose #69621 > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:10:41 verbose #69622 > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:10:41 verbose #69623 >
00:10:41 verbose #69624 > inl newton_x, newton_y =
00:10:41 verbose #69625 > newton_states
00:10:41 verbose #69626 > >> Some
00:10:41 verbose #69627 > |> seq.take_while_ (fun (particle_state st) i => i < 100i32)
00:10:41 verbose #69628 > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:10:41 verbose #69629 > |> listm'.unzip
00:10:41 verbose #69630 >
00:10:41 verbose #69631 > inl relativity_x, relativity_y =
00:10:41 verbose #69632 > relativity_states
00:10:41 verbose #69633 > >> Some
00:10:41 verbose #69634 > |> seq.take_while_ (fun (particle_state st) i => i < 165i32)
00:10:41 verbose #69635 > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:10:41 verbose #69636 > |> listm'.unzip
00:10:41 verbose #69637 >
00:10:41 verbose #69638 > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:10:41 verbose #69639 > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:10:41 verbose #69640 >
00:10:41 verbose #69641 > inl relativity_x : a i32 _ = relativity_x |> listm.toArray
00:10:41 verbose #69642 > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:10:41 verbose #69643 >
00:10:41 verbose #69644 > "proton in a 1-t magnetic field",
00:10:41 verbose #69645 > "x (m)",
00:10:41 verbose #69646 > "y (m)",
00:10:41 verbose #69647 > ;[[
00:10:41 verbose #69648 > "newtonian", newton_x, newton_y
00:10:41 verbose #69649 > "relativistic", relativity_x, relativity_y
00:10:41 verbose #69650 > ]]
00:10:41 verbose #69651 > 00:10:40 debug #810 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c1dfbb8efa990352612a1d04ae6bcab5293444527533943095ff279d9b03c39b/main.spi
00:10:41 verbose #69652 >
00:10:41 verbose #69653 > ╭─[ 636.28ms - return value ]──────────────────────────────────────────────────╮
00:10:41 verbose #69654 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:41 verbose #69655 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:41 verbose #69656 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:41 verbose #69657 > │ stroke="none"/> │
00:10:41 verbose #69658 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:41 verbose #69659 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:41 verbose #69660 > │ fill="#FFFFFF"> │
00:10:41 verbose #69661 > │ proton in a 1-t magnetic field │
00:10:41 verbose #69662 > │ </text> │
00:10:41 verbose #69663 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="58" y1="424" x2="58" │
00:10:41 verbose #69664 > │ y2="75"/> │
00:10:41 verbose #69665 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:41 verbose #69666 > │ y2="75"/> │
00:10:41 verbose #69667 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="81" y1="424" x2="81" │
00:10:41 verbose #69668 > │ y2="75"/> │
00:10:41 verbose #69669 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:10:41 verbose #69670 > │ y2="75"/> │
00:10:41 verbose #69671 > │ <line opacity="1" stroke="#323232" stroke-width="1" x... │
00:10:41 verbose #69672 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:41 verbose #69673 >
00:10:41 verbose #69674 > ╭─[ 646.74ms - stdout ]────────────────────────────────────────────────────────╮
00:10:41 verbose #69675 > │ type UH0 = │
00:10:41 verbose #69676 > │ | UH0_0 │
00:10:41 verbose #69677 > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:10:41 verbose #69678 > │ * float * UH0 │
00:10:41 verbose #69679 > │ and UH1 = │
00:10:41 verbose #69680 > │ | UH1_0 │
00:10:41 verbose #69681 > │ | UH1_1 of float * float * UH1 │
00:10:41 verbose #69682 > │ and UH2 = │
00:10:41 verbose #69683 > │ | UH2_0 │
00:10:41 verbose #69684 > │ | UH2_1 of float * UH2 │
00:10:41 verbose #69685 > │ let rec closure1 (v0 : (struct (float * float * float * float * float * │
00:10:41 verbose #69686 > │ float * float * float * float) -> struct (float * float * float * float * │
00:10:41 verbose #69687 > │ float * float * float * float * float))) struct (v1 : float, v2 : float, v3 │
00:10:41 verbose #69688 > │ : float, v4 : float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : │
00:10:41 verbose #69689 > │ float) : struct (float * float * float * float * float * float * float * │
00:10:41 verbose #69690 > │ float * float) = │
00:10:41 verbose #69691 > │ let struct (v10 : float, v11 : float, v12 : float, v13 : float, v14 : │
00:10:41 verbose #69692 > │ float, v15 : float, v16 : float, v17 : float, v18 : float) = v0 struct (v1, │
00:10:41 verbose #69693 > │ v2, v3, v4, v5, v6, v7, v8, v9) │
00:10:41 verbose #69694 > │ let v19 : float = v15 * 5E-10 │
00:10:41 verbose #69695 > │ let v20 : float = v6 + v19 │
00:10:41 verbose #69696 > │ let v21 : float = 5E-10 * v12 │
00:10:41 verbose #69697 > │ let v22 : float = 5E-10 * v13 │
00:10:41 verbose #69698 > │ let v23 : float = 5E-10 * v14 │
00:10:41 verbose #69699 > │ let v24 : float = v3 + v21 │
00:10:41 verbose #69700 > │ let v25 : float = v4 + v22 │
00:10:41 verbose #69701 > │ let v26 : float = v5 + v23 │
00:10:41 verbose #69702 > │ let v27 : float = 5E-10 * v16 │
00:10:41 verbose #69703 > │ let v28 : float = 5E-10 * v17 │
00:10:41 verbose #69704 > │ let v29 : float = 5E-10 * v18 │
00:10:41 verbose #69705 > │ let v30 : float = v7 + v27 │
00:10:41 verbose #69706 > │ let v31 : float = v8 + v28 │
00:10:41 verbose #69707 > │ let v32 : float = v9 + v29 │
00:10:41 verbose #69708 > │ let struct (v33 : float, v34 : float, v35 : float, v36 : float, v37 : │
00:10:41 verbose #69709 > │ float, v38 : float, v39 : float, v40 : float, v41 : float) = v0 struct (v1, │
00:10:41 verbose #69710 > │ v2, v24, v25, v26, v20, v30, v31, v32) │
00:10:41 verbose #69711 > │ let v42 : float = v38 * 5E-10 │
00:10:41 verbose #69712 > │ let v43 : float = v6 + v42 │
00:10:41 verbose #69713 > │ let v44 : float = 5E-10 * v35 │
00:10:41 verbose #69714 > │ let v45 : float = 5E-10 * v36 │
00:10:41 verbose #69715 > │ let v46 : float = 5E-10 * v37 │
00:10:41 verbose #69716 > │ let v47 : float = v3 + v44 │
00:10:41 verbose #69717 > │ let v48 : float = v4 + v45 │
00:10:41 verbose #69718 > │ let v49 : float = v5 + v46 │
00:10:41 verbose #69719 > │ let v50 : float = 5E-10 * v39 │
00:10:41 verbose #69720 > │ let v51 : float = 5E-10 * v40 │
00:10:41 verbose #69721 > │ let v52 : float = 5E-10 * v41 │
00:10:41 verbose #69722 > │ let v53 : float = v7 + v50 │
00:10:41 verbose #69723 > │ let v54 : float = v8 + v51 │
00:10:41 verbose #69724 > │ let v55 : float = v9 + v52 │
00:10:41 verbose #69725 > │ let struct (v56 : float, v57 : float, v58 : float, v59 : float, v60 : │
00:10:41 verbose #69726 > │ float, v61 : float, v62 : float, v63 : float, v64 : float) = v0 struct (v1, │
00:10:41 verbose #69727 > │ v2, v47, v48, v49, v43, v53, v54, v55) │
00:10:41 verbose #69728 > │ let v65 : float = v61 * 1E-09 │
00:10:41 verbose #69729 > │ let v66 : float = v6 + v65 │
00:10:41 verbose #69730 > │ let v67 : float = 1E-09 * v58 │
00:10:41 verbose #69731 > │ let v68 : float = 1E-09 * v59 │
00:10:41 verbose #69732 > │ let v69 : float = 1E-09 * v60 │
00:10:41 verbose #69733 > │ let v70 : float = v3 + v67 │
00:10:41 verbose #69734 > │ let v71 : float = v4 + v68 │
00:10:41 verbose #69735 > │ let v72 : float = v5 + v69 │
00:10:41 verbose #69736 > │ let v73 : float = 1E-09 * v62 │
00:10:41 verbose #69737 > │ let v74 : float = 1E-09 * v63 │
00:10:41 verbose #69738 > │ let v75 : float = 1E-09 * v64 │
00:10:41 verbose #69739 > │ let v76 : float = v7 + v73 │
00:10:41 verbose #69740 > │ let v77 : float = v8 + v74 │
00:10:41 verbose #69741 > │ let v78 : float = v9 + v75 │
00:10:41 verbose #69742 > │ let struct (v79 : float, v80 : float, v81 : float, v82 : float, v83 : │
00:10:41 verbose #69743 > │ float, v84 : float, v85 : float, v86 : float, v87 : float) = v0 struct (v1, │
00:10:41 verbose #69744 > │ v2, v70, v71, v72, v66, v76, v77, v78) │
00:10:41 verbose #69745 > │ let v88 : float = v10 + v33 │
00:10:41 verbose #69746 > │ let v89 : float = v11 + v34 │
00:10:41 verbose #69747 > │ let v90 : float = v15 + v38 │
00:10:41 verbose #69748 > │ let v91 : float = v12 + v35 │
00:10:41 verbose #69749 > │ let v92 : float = v13 + v36 │
00:10:41 verbose #69750 > │ let v93 : float = v14 + v37 │
00:10:41 verbose #69751 > │ let v94 : float = v16 + v39 │
00:10:41 verbose #69752 > │ let v95 : float = v17 + v40 │
00:10:41 verbose #69753 > │ let v96 : float = v18 + v41 │
00:10:41 verbose #69754 > │ let v97 : float = v88 + v33 │
00:10:41 verbose #69755 > │ let v98 : float = v89 + v34 │
00:10:41 verbose #69756 > │ let v99 : float = v90 + v38 │
00:10:41 verbose #69757 > │ let v100 : float = v91 + v35 │
00:10:41 verbose #69758 > │ let v101 : float = v92 + v36 │
00:10:41 verbose #69759 > │ let v102 : float = v93 + v37 │
00:10:41 verbose #69760 > │ let v103 : float = v94 + v39 │
00:10:41 verbose #69761 > │ let v104 : float = v95 + v40 │
00:10:41 verbose #69762 > │ let v105 : float = v96 + v41 │
00:10:41 verbose #69763 > │ let v106 : float = v97 + v56 │
00:10:41 verbose #69764 > │ let v107 : float = v98 + v57 │
00:10:41 verbose #69765 > │ let v108 : float = v99 + v61 │
00:10:41 verbose #69766 > │ let v109 : float = v100 + v58 │
00:10:41 verbose #69767 > │ let v110 : float = v101 + v59 │
00:10:41 verbose #69768 > │ let v111 : float = v102 + v60 │
00:10:41 verbose #69769 > │ let v112 : float = v103 + v62 │
00:10:41 verbose #69770 > │ let v113 : float = v104 + v63 │
00:10:41 verbose #69771 > │ let v114 : float = v105 + v64 │
00:10:41 verbose #69772 > │ let v115 : float = v106 + v56 │
00:10:41 verbose #69773 > │ let v116 : float = v107 + v57 │
00:10:41 verbose #69774 > │ let v117 : float = v108 + v61 │
00:10:41 verbose #69775 > │ let v118 : float = v109 + v58 │
00:10:41 verbose #69776 > │ let v119 : float = v110 + v59 │
00:10:41 verbose #69777 > │ let v120 : float = v111 + v60 │
00:10:41 verbose #69778 > │ let v121 : float = v112 + v62 │
00:10:41 verbose #69779 > │ let v122 : float = v113 + v63 │
00:10:41 verbose #69780 > │ let v123 : float = v114 + v64 │
00:10:41 verbose #69781 > │ let v124 : float = v115 + v79 │
00:10:41 verbose #69782 > │ let v125 : float = v116 + v80 │
00:10:41 verbose #69783 > │ let v126 : float = v117 + v84 │
00:10:41 verbose #69784 > │ let v127 : float = v118 + v81 │
00:10:41 verbose #69785 > │ let v128 : float = v119 + v82 │
00:10:41 verbose #69786 > │ let v129 : float = v120 + v83 │
00:10:41 verbose #69787 > │ let v130 : float = v121 + v85 │
00:10:41 verbose #69788 > │ let v131 : float = v122 + v86 │
00:10:41 verbose #69789 > │ let v132 : float = v123 + v87 │
00:10:41 verbose #69790 > │ let v133 : float = v126 * 1.6666666666666669E-10 │
00:10:41 verbose #69791 > │ let v134 : float = v6 + v133 │
00:10:41 verbose #69792 > │ let v135 : float = 1.6666666666666669E-10 * v127 │
00:10:41 verbose #69793 > │ let v136 : float = 1.6666666666666669E-10 * v128 │
00:10:41 verbose #69794 > │ let v137 : float = 1.6666666666666669E-10 * v129 │
00:10:41 verbose #69795 > │ let v138 : float = v3 + v135 │
00:10:41 verbose #69796 > │ let v139 : float = v4 + v136 │
00:10:41 verbose #69797 > │ let v140 : float = v5 + v137 │
00:10:41 verbose #69798 > │ let v141 : float = 1.6666666666666669E-10 * v130 │
00:10:41 verbose #69799 > │ let v142 : float = 1.6666666666666669E-10 * v131 │
00:10:41 verbose #69800 > │ let v143 : float = 1.6666666666666669E-10 * v132 │
00:10:41 verbose #69801 > │ let v144 : float = v7 + v141 │
00:10:41 verbose #69802 > │ let v145 : float = v8 + v142 │
00:10:41 verbose #69803 > │ let v146 : float = v9 + v143 │
00:10:41 verbose #69804 > │ struct (v1, v2, v138, v139, v140, v134, v144, v145, v146) │
00:10:41 verbose #69805 > │ and closure0 () (v0 : (struct (float * float * float * float * float * float │
00:10:41 verbose #69806 > │ * float * float * float) -> struct (float * float * float * float * float * │
00:10:41 verbose #69807 > │ float * float * float * float))) : (struct (float * float * float * float * │
00:10:41 verbose #69808 > │ float * float * float * float * float) -> struct (float * float * float * │
00:10:41 verbose #69809 > │ float * float * float * float * float * float)) = │
00:10:41 verbose #69810 > │ closure1(v0) │
00:10:41 verbose #69811 > │ and closure2 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:10:41 verbose #69812 > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:41 verbose #69813 > │ float * float * float * float * float * float * float * float) = │
00:10:41 verbose #69814 > │ let v9 : float = v8 * 0.0 │
00:10:41 verbose #69815 > │ let v10 : float = v7 - v9 │
00:10:41 verbose #69816 > │ let v11 : float = v9 - v6 │
00:10:41 verbose #69817 > │ let v12 : float = v6 * 0.0 │
00:10:41 verbose #69818 > │ let v13 : float = v7 * 0.0 │
00:10:41 verbose #69819 > │ let v14 : float = v12 - v13 │
00:10:41 verbose #69820 > │ let v15 : float = v0 * v10 │
00:10:41 verbose #69821 > │ let v16 : float = v0 * v11 │
00:10:41 verbose #69822 > │ let v17 : float = v0 * v14 │
00:10:41 verbose #69823 > │ let v18 : float = v15 / v1 │
00:10:41 verbose #69824 > │ let v19 : float = v16 / v1 │
00:10:41 verbose #69825 > │ let v20 : float = v17 / v1 │
00:10:41 verbose #69826 > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v18, v19, v20) │
00:10:41 verbose #69827 > │ and closure3 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:10:41 verbose #69828 > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:41 verbose #69829 > │ float * float * float * float * float * float * float * float) = │
00:10:41 verbose #69830 > │ let v9 : float = v8 * 0.0 │
00:10:41 verbose #69831 > │ let v10 : float = v7 - v9 │
00:10:41 verbose #69832 > │ let v11 : float = v9 - v6 │
00:10:41 verbose #69833 > │ let v12 : float = v6 * 0.0 │
00:10:41 verbose #69834 > │ let v13 : float = v7 * 0.0 │
00:10:41 verbose #69835 > │ let v14 : float = v12 - v13 │
00:10:41 verbose #69836 > │ let v15 : float = v0 * v10 │
00:10:41 verbose #69837 > │ let v16 : float = v0 * v11 │
00:10:41 verbose #69838 > │ let v17 : float = v0 * v14 │
00:10:41 verbose #69839 > │ let v18 : float = v6 / 299792458.0 │
00:10:41 verbose #69840 > │ let v19 : float = v7 / 299792458.0 │
00:10:41 verbose #69841 > │ let v20 : float = v8 / 299792458.0 │
00:10:41 verbose #69842 > │ let v21 : float = v18 * v18 │
00:10:41 verbose #69843 > │ let v22 : float = v19 * v19 │
00:10:41 verbose #69844 > │ let v23 : float = v21 + v22 │
00:10:41 verbose #69845 > │ let v24 : float = v20 * v20 │
00:10:41 verbose #69846 > │ let v25 : float = v23 + v24 │
00:10:41 verbose #69847 > │ let v26 : float = 1.0 - v25 │
00:10:41 verbose #69848 > │ let v27 : float = sqrt v26 │
00:10:41 verbose #69849 > │ let v28 : float = v15 * v18 │
00:10:41 verbose #69850 > │ let v29 : float = v16 * v19 │
00:10:41 verbose #69851 > │ let v30 : float = v28 + v29 │
00:10:41 verbose #69852 > │ let v31 : float = v17 * v20 │
00:10:41 verbose #69853 > │ let v32 : float = v30 + v31 │
00:10:41 verbose #69854 > │ let v33 : float = v32 * v18 │
00:10:41 verbose #69855 > │ let v34 : float = v32 * v19 │
00:10:41 verbose #69856 > │ let v35 : float = v32 * v20 │
00:10:41 verbose #69857 > │ let v36 : float = -1.0 * v33 │
00:10:41 verbose #69858 > │ let v37 : float = -1.0 * v34 │
00:10:41 verbose #69859 > │ let v38 : float = -1.0 * v35 │
00:10:41 verbose #69860 > │ let v39 : float = v15 + v36 │
00:10:41 verbose #69861 > │ let v40 : float = v16 + v37 │
00:10:41 verbose #69862 > │ let v41 : float = v17 + v38 │
00:10:41 verbose #69863 > │ let v42 : float = v27 * v39 │
00:10:41 verbose #69864 > │ let v43 : float = v27 * v40 │
00:10:41 verbose #69865 > │ let v44 : float = v27 * v41 │
00:10:41 verbose #69866 > │ let v45 : float = v42 / v1 │
00:10:41 verbose #69867 > │ let v46 : float = v43 / v1 │
00:10:41 verbose #69868 > │ let v47 : float = v44 / v1 │
00:10:41 verbose #69869 > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v45, v46, v47) │
00:10:41 verbose #69870 > │ and method2 (v0 : (struct (float * float * float * float * float * float * │
00:10:41 verbose #69871 > │ float * float * float) -> struct (float * float * float * float * float * │
00:10:41 verbose #69872 > │ float * float * float * float)), v1 : float, v2 : float, v3 : float, v4 : │
00:10:41 verbose #69873 > │ float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : float, v10 : │
00:10:41 verbose #69874 > │ int32) : struct (float * float * float * float * float * float * float * │
00:10:41 verbose #69875 > │ float * float) = │
00:10:41 verbose #69876 > │ let v11 : bool = v10 <= 0 │
00:10:41 verbose #69877 > │ if v11 then │
00:10:41 verbose #69878 > │ struct (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:10:41 verbose #69879 > │ else │
00:10:41 verbose #69880 > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:10:41 verbose #69881 > │ : float, v17 : float, v18 : float, v19 : float, v20 : float) = v0 struct │
00:10:41 verbose #69882 > │ (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:10:41 verbose #69883 > │ let v21 : int32 = v10 - 1 │
00:10:41 verbose #69884 > │ method2(v0, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) │
00:10:41 verbose #69885 > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:41 verbose #69886 > │ match v0 with │
00:10:41 verbose #69887 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:41 verbose #69888 > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:10:41 verbose #69889 > │ method3(v11, v12) │
00:10:41 verbose #69890 > │ | UH0_0 -> (* Nil *) │
00:10:41 verbose #69891 > │ v1 │
00:10:41 verbose #69892 > │ and method1 (v0 : (struct (float * float * float * float * float * float * │
00:10:41 verbose #69893 > │ float * float * float) -> struct (float * float * float * float * float * │
00:10:41 verbose #69894 > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:10:41 verbose #69895 > │ let v3 : float = 1.602176621E-19 │
00:10:41 verbose #69896 > │ let v4 : float = 1.672621898E-27 │
00:10:41 verbose #69897 > │ let v5 : float = 0.0 │
00:10:41 verbose #69898 > │ let v6 : float = 0.0 │
00:10:41 verbose #69899 > │ let v7 : float = 0.0 │
00:10:41 verbose #69900 > │ let v8 : float = 0.0 │
00:10:41 verbose #69901 > │ let v9 : float = 0.0 │
00:10:41 verbose #69902 > │ let v10 : float = 239833966.4 │
00:10:41 verbose #69903 > │ let v11 : float = 0.0 │
00:10:41 verbose #69904 > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:10:41 verbose #69905 > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:10:41 verbose #69906 > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:10:41 verbose #69907 > │ let v21 : bool = v2 < 100 │
00:10:41 verbose #69908 > │ if v21 then │
00:10:41 verbose #69909 > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:10:41 verbose #69910 > │ v1) │
00:10:41 verbose #69911 > │ let v23 : int32 = v2 + 1 │
00:10:41 verbose #69912 > │ method1(v0, v22, v23) │
00:10:41 verbose #69913 > │ else │
00:10:41 verbose #69914 > │ let v25 : UH0 = UH0_0 │
00:10:41 verbose #69915 > │ method3(v1, v25) │
00:10:41 verbose #69916 > │ and method4 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:41 verbose #69917 > │ match v0 with │
00:10:41 verbose #69918 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:41 verbose #69919 > │ let v12 : UH1 = method4(v11, v1) │
00:10:41 verbose #69920 > │ UH1_1(v4, v5, v12) │
00:10:41 verbose #69921 > │ | UH0_0 -> (* Nil *) │
00:10:41 verbose #69922 > │ v1 │
00:10:41 verbose #69923 > │ and method5 (v0 : UH1, v1 : UH2, v2 : UH2) : struct (UH2 * UH2) = │
00:10:41 verbose #69924 > │ match v0 with │
00:10:41 verbose #69925 > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:10:41 verbose #69926 > │ let v6 : UH2 = UH2_1(v3, v1) │
00:10:41 verbose #69927 > │ let v7 : UH2 = UH2_1(v4, v2) │
00:10:41 verbose #69928 > │ method5(v5, v6, v7) │
00:10:41 verbose #69929 > │ | UH1_0 -> (* Nil *) │
00:10:41 verbose #69930 > │ struct (v1, v2) │
00:10:41 verbose #69931 > │ and method6 (v0 : UH2, v1 : UH2) : UH2 = │
00:10:41 verbose #69932 > │ match v0 with │
00:10:41 verbose #69933 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:10:41 verbose #69934 > │ let v4 : UH2 = UH2_1(v2, v1) │
00:10:41 verbose #69935 > │ method6(v3, v4) │
00:10:41 verbose #69936 > │ | UH2_0 -> (* Nil *) │
00:10:41 verbose #69937 > │ v1 │
00:10:41 verbose #69938 > │ and method7 (v0 : (struct (float * float * float * float * float * float * │
00:10:41 verbose #69939 > │ float * float * float) -> struct (float * float * float * float * float * │
00:10:41 verbose #69940 > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:10:41 verbose #69941 > │ let v3 : float = 1.602176621E-19 │
00:10:41 verbose #69942 > │ let v4 : float = 1.672621898E-27 │
00:10:41 verbose #69943 > │ let v5 : float = 0.0 │
00:10:41 verbose #69944 > │ let v6 : float = 0.0 │
00:10:41 verbose #69945 > │ let v7 : float = 0.0 │
00:10:41 verbose #69946 > │ let v8 : float = 0.0 │
00:10:41 verbose #69947 > │ let v9 : float = 0.0 │
00:10:41 verbose #69948 > │ let v10 : float = 239833966.4 │
00:10:41 verbose #69949 > │ let v11 : float = 0.0 │
00:10:41 verbose #69950 > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:10:41 verbose #69951 > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:10:41 verbose #69952 > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:10:41 verbose #69953 > │ let v21 : bool = v2 < 165 │
00:10:41 verbose #69954 > │ if v21 then │
00:10:41 verbose #69955 > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:10:41 verbose #69956 > │ v1) │
00:10:41 verbose #69957 > │ let v23 : int32 = v2 + 1 │
00:10:41 verbose #69958 > │ method7(v0, v22, v23) │
00:10:41 verbose #69959 > │ else │
00:10:41 verbose #69960 > │ let v25 : UH0 = UH0_0 │
00:10:41 verbose #69961 > │ method3(v1, v25) │
00:10:41 verbose #69962 > │ and method8 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:41 verbose #69963 > │ match v0 with │
00:10:41 verbose #69964 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:41 verbose #69965 > │ let v12 : UH1 = method8(v11, v1) │
00:10:41 verbose #69966 > │ UH1_1(v4, v5, v12) │
00:10:41 verbose #69967 > │ | UH0_0 -> (* Nil *) │
00:10:41 verbose #69968 > │ v1 │
00:10:41 verbose #69969 > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:10:41 verbose #69970 > │ match v0 with │
00:10:41 verbose #69971 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:10:42 verbose #69972 > │ let v4 : int32 = v1 + 1 │
00:10:42 verbose #69973 > │ method10(v3, v4) │
00:10:42 verbose #69974 > │ | UH2_0 -> (* Nil *) │
00:10:42 verbose #69975 > │ v1 │
00:10:42 verbose #69976 > │ and method11 (v0 : (float []), v1 : UH2, v2 : int32) : int32 = │
00:10:42 verbose #69977 > │ match v1 with │
00:10:42 verbose #69978 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:10:42 verbose #69979 > │ v0.[int v2] <- v3 │
00:10:42 verbose #69980 > │ let v5 : int32 = v2 + 1 │
00:10:42 verbose #69981 > │ method11(v0, v4, v5) │
00:10:42 verbose #69982 > │ | UH2_0 -> (* Nil *) │
00:10:42 verbose #69983 > │ v2 │
00:10:42 verbose #69984 > │ and method9 (v0 : UH2) : (float []) = │
00:10:42 verbose #69985 > │ let v1 : int32 = 0 │
00:10:42 verbose #69986 > │ let v2 : int32 = method10(v0, v1) │
00:10:42 verbose #69987 > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:10:42 verbose #69988 > │ let v4 : int32 = 0 │
00:10:42 verbose #69989 > │ let v5 : int32 = method11(v3, v0, v4) │
00:10:42 verbose #69990 > │ v3 │
00:10:42 verbose #69991 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:42 verbose #69992 > │ []) * (float [])) [])) = │
00:10:42 verbose #69993 > │ let v0 : ((struct (float * float * float * float * float * float * float │
00:10:42 verbose #69994 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:42 verbose #69995 > │ float * float * float)) -> (struct (float * float * float * float * float * │
00:10:42 verbose #69996 > │ float * float * float * float) -> struct (float * float * float * float * │
00:10:42 verbose #69997 > │ float * float * float * float * float))) = closure0() │
00:10:42 verbose #69998 > │ let v1 : (struct (float * float * float * float * float * float * float │
00:10:42 verbose #69999 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:42 verbose #70000 > │ float * float * float)) = closure2() │
00:10:42 verbose #70001 > │ let v2 : (struct (float * float * float * float * float * float * float │
00:10:42 verbose #70002 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:42 verbose #70003 > │ float * float * float)) = v0 v1 │
00:10:42 verbose #70004 > │ let v3 : (struct (float * float * float * float * float * float * float │
00:10:42 verbose #70005 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:42 verbose #70006 > │ float * float * float)) = closure3() │
00:10:42 verbose #70007 > │ let v4 : (struct (float * float * float * float * float * float * float │
00:10:42 verbose #70008 > │ * float * float) -> struct (float * float * float * float * float * float * │
00:10:42 verbose #70009 > │ float * float * float)) = v0 v3 │
00:10:42 verbose #70010 > │ let v5 : UH0 = UH0_0 │
00:10:42 verbose #70011 > │ let v6 : int32 = 0 │
00:10:42 verbose #70012 > │ let v7 : UH0 = method1(v2, v5, v6) │
00:10:42 verbose #70013 > │ let v8 : UH1 = UH1_0 │
00:10:42 verbose #70014 > │ let v9 : UH1 = method4(v7, v8) │
00:10:42 verbose #70015 > │ let v10 : UH2 = UH2_0 │
00:10:42 verbose #70016 > │ let v11 : UH2 = UH2_0 │
00:10:42 verbose #70017 > │ let struct (v12 : UH2, v13 : UH2) = method5(v9, v10, v11) │
00:10:42 verbose #70018 > │ let v14 : UH2 = UH2_0 │
00:10:42 verbose #70019 > │ let v15 : UH2 = method6(v12, v14) │
00:10:42 verbose #70020 > │ let v16 : UH2 = UH2_0 │
00:10:42 verbose #70021 > │ let v17 : UH2 = method6(v13, v16) │
00:10:42 verbose #70022 > │ let v18 : UH0 = UH0_0 │
00:10:42 verbose #70023 > │ let v19 : int32 = 0 │
00:10:42 verbose #70024 > │ let v20 : UH0 = method7(v4, v18, v19) │
00:10:42 verbose #70025 > │ let v21 : UH1 = UH1_0 │
00:10:42 verbose #70026 > │ let v22 : UH1 = method8(v20, v21) │
00:10:42 verbose #70027 > │ let v23 : UH2 = UH2_0 │
00:10:42 verbose #70028 > │ let v24 : UH2 = UH2_0 │
00:10:42 verbose #70029 > │ let struct (v25 : UH2, v26 : UH2) = method5(v22, v23, v24) │
00:10:42 verbose #70030 > │ let v27 : UH2 = UH2_0 │
00:10:42 verbose #70031 > │ let v28 : UH2 = method6(v25, v27) │
00:10:42 verbose #70032 > │ let v29 : UH2 = UH2_0 │
00:10:42 verbose #70033 > │ let v30 : UH2 = method6(v26, v29) │
00:10:42 verbose #70034 > │ let v31 : (float []) = method9(v15) │
00:10:42 verbose #70035 > │ let v32 : (float []) = method9(v17) │
00:10:42 verbose #70036 > │ let v33 : (float []) = method9(v28) │
00:10:42 verbose #70037 > │ let v34 : (float []) = method9(v30) │
00:10:42 verbose #70038 > │ let v35 : string = "newtonian" │
00:10:42 verbose #70039 > │ let v36 : string = "relativistic" │
00:10:42 verbose #70040 > │ let v37 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:42 verbose #70041 > │ (v35, v31, v32); struct (v36, v33, v34)|] │
00:10:42 verbose #70042 > │ let v38 : string = "proton in a 1-t magnetic field" │
00:10:42 verbose #70043 > │ let v39 : string = "x (m)" │
00:10:42 verbose #70044 > │ let v40 : string = "y (m)" │
00:10:42 verbose #70045 > │ struct (v38, v39, v40, v37) │
00:10:42 verbose #70046 > │ method0() │
00:10:42 verbose #70047 > │ │
00:10:42 verbose #70048 > │ │
00:10:42 verbose #70049 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:42 verbose #70050 >
00:10:42 verbose #70051 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:42 verbose #70052 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:42 verbose #70053 > │ ### system kinetic energy versus time 1 │
00:10:42 verbose #70054 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:42 verbose #70055 >
00:10:42 verbose #70056 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:42 verbose #70057 > // // test
00:10:42 verbose #70058 >
00:10:42 verbose #70059 > inl central_force f (particle_state st1) (particle_state st2) =
00:10:42 verbose #70060 > inl r1 = st1.pos_vec
00:10:42 verbose #70061 > inl r2 = st2.pos_vec
00:10:42 verbose #70062 > inl r21 = r2 ^-^ r1
00:10:42 verbose #70063 > inl r21mag = magnitude r21
00:10:42 verbose #70064 > f r21mag *^ r21 ^/ r21mag
00:10:42 verbose #70065 >
00:10:42 verbose #70066 > inl billiard_force k re =
00:10:42 verbose #70067 > inl f r =
00:10:42 verbose #70068 > if r >= re
00:10:42 verbose #70069 > then 0
00:10:42 verbose #70070 > else -k * (r - re)
00:10:42 verbose #70071 > central_force f
00:10:42 verbose #70072 >
00:10:42 verbose #70073 > type force_vector = vec
00:10:42 verbose #70074 > type two_body_force = particle_state -> particle_state -> force_vector
00:10:42 verbose #70075 >
00:10:42 verbose #70076 > union force =
00:10:42 verbose #70077 > | ExternalForce : i32 * one_body_force
00:10:42 verbose #70078 > | InternalForce : i32 * i32 * two_body_force
00:10:42 verbose #70079 >
00:10:42 verbose #70080 > nominal multi_particle_state = list particle_state
00:10:42 verbose #70081 >
00:10:42 verbose #70082 > nominal d_multi_particle_state = list d_particle_state
00:10:42 verbose #70083 >
00:10:42 verbose #70084 > inl force_on n sts force =
00:10:42 verbose #70085 > match force with
00:10:42 verbose #70086 > | ExternalForce (n0, f_one_body) =>
00:10:42 verbose #70087 > if n = n0
00:10:42 verbose #70088 > then f_one_body
00:10:42 verbose #70089 > else fun _ => zero_vec ()
00:10:42 verbose #70090 > | InternalForce (n0, n1, f_two_body) =>
00:10:42 verbose #70091 > if n = n0
00:10:42 verbose #70092 > then f_two_body (sts |> listm'.item n1)
00:10:42 verbose #70093 > elif n = n1
00:10:42 verbose #70094 > then f_two_body (sts |> listm'.item n0)
00:10:42 verbose #70095 > else fun _ => zero_vec ()
00:10:42 verbose #70096 >
00:10:42 verbose #70097 > inl forces_on n (multi_particle_state sts) fs =
00:10:42 verbose #70098 > fs |> listm.map (force_on n sts)
00:10:42 verbose #70099 >
00:10:42 verbose #70100 > inl newton_second_mps fs (multi_particle_state sts) : d_multi_particle_state =
00:10:42 verbose #70101 > inl deriv (n, st) =
00:10:42 verbose #70102 > newton_second_ps (forces_on n (multi_particle_state sts) fs) st
00:10:42 verbose #70103 > sts |> listm'.indexed |> listm.map deriv |> d_multi_particle_state
00:10:42 verbose #70104 >
00:10:42 verbose #70105 > instance (+++) d_multi_particle_state = fun (d_multi_particle_state dsts1)
00:10:42 verbose #70106 > (d_multi_particle_state dsts2) =>
00:10:42 verbose #70107 > d_multi_particle_state (listm'.zip_with_ (+++) dsts1 dsts2)
00:10:42 verbose #70108 >
00:10:42 verbose #70109 > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:10:42 verbose #70110 > d_multi_particle_state (dsts |> listm.map (scale w))
00:10:42 verbose #70111 >
00:10:42 verbose #70112 > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:10:42 verbose #70113 > inl (d_multi_particle_state dsts) =
00:10:42 verbose #70114 > real
00:10:42 verbose #70115 > match dsts with
00:10:42 verbose #70116 > | d_multi_particle_state _ => dsts
00:10:42 verbose #70117 > listm'.zip_with_ (shift dt) dsts sts |> multi_particle_state
00:10:42 verbose #70118 >
00:10:42 verbose #70119 > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:10:42 verbose #70120 > d_multi_particle_state =
00:10:42 verbose #70121 > fun deriv mpst0 =>
00:10:42 verbose #70122 > inl mpst1 = euler dt deriv mpst0
00:10:42 verbose #70123 > inl (multi_particle_state sts0) = mpst0
00:10:42 verbose #70124 > inl (multi_particle_state sts1) = mpst1
00:10:42 verbose #70125 > sts1
00:10:42 verbose #70126 > |> listm'.zip_ sts0
00:10:42 verbose #70127 > |> listm.map (fun ((particle_state st0), (particle_state st1)) =>
00:10:42 verbose #70128 > particle_state {
00:10:42 verbose #70129 > st1 with
00:10:42 verbose #70130 > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:10:42 verbose #70131 > }
00:10:42 verbose #70132 > )
00:10:42 verbose #70133 > |> multi_particle_state
00:10:42 verbose #70134 >
00:10:42 verbose #70135 > inl update_mps (method : numerical_method multi_particle_state
00:10:42 verbose #70136 > d_multi_particle_state) =
00:10:42 verbose #70137 > newton_second_mps >> method
00:10:42 verbose #70138 >
00:10:42 verbose #70139 > inl states_mps (method : numerical_method multi_particle_state
00:10:42 verbose #70140 > d_multi_particle_state) =
00:10:42 verbose #70141 > newton_second_mps >> method >> seq.iterate_
00:10:42 verbose #70142 >
00:10:42 verbose #70143 >
00:10:42 verbose #70144 > inl kinetic_energy (particle_state st) =
00:10:42 verbose #70145 > inl m = st.mass
00:10:42 verbose #70146 > inl v = magnitude st.velocity
00:10:42 verbose #70147 > 0.5 * m * v ** 2
00:10:42 verbose #70148 >
00:10:42 verbose #70149 > inl system_ke (multi_particle_state sts) =
00:10:42 verbose #70150 > sts |> listm.map kinetic_energy |> listm'.sum
00:10:42 verbose #70151 >
00:10:42 verbose #70152 > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:10:42 verbose #70153 > inl r1 = st1.pos_vec
00:10:42 verbose #70154 > inl r2 = st2.pos_vec
00:10:42 verbose #70155 > inl r21 = r2 ^-^ r1
00:10:42 verbose #70156 > inl r21mag = magnitude r21
00:10:42 verbose #70157 > k * (r21mag - re) ** 2 / 2
00:10:42 verbose #70158 >
00:10:42 verbose #70159 > inl earth_surface_gravity_pe (particle_state st) =
00:10:42 verbose #70160 > inl g = 9.80665
00:10:42 verbose #70161 > inl m = st.mass
00:10:42 verbose #70162 > inl z = st.pos_vec.z
00:10:42 verbose #70163 > m * g * z
00:10:42 verbose #70164 >
00:10:42 verbose #70165 > inl two_springs_pe (multi_particle_state sts) =
00:10:42 verbose #70166 > inl st0 = sts |> listm'.item 0i32
00:10:42 verbose #70167 > inl st1 = sts |> listm'.item 1i32
00:10:42 verbose #70168 > linear_spring_pe 100 0.5 (default_particle_state ()) st0
00:10:42 verbose #70169 > + linear_spring_pe 100 0.5 st0 st1
00:10:42 verbose #70170 > + earth_surface_gravity_pe st0
00:10:42 verbose #70171 > + earth_surface_gravity_pe st1
00:10:42 verbose #70172 >
00:10:42 verbose #70173 > inl two_springs_me mpst =
00:10:42 verbose #70174 > system_ke mpst + two_springs_pe mpst
00:10:42 verbose #70175 >
00:10:42 verbose #70176 > inl ball_radius () = 0.03
00:10:42 verbose #70177 >
00:10:42 verbose #70178 > inl billiard_forces k =
00:10:42 verbose #70179 > [[ InternalForce (0, 1, billiard_force k (2 * ball_radius ())) ]]
00:10:42 verbose #70180 >
00:10:42 verbose #70181 > inl billiard_update n_method k dt =
00:10:42 verbose #70182 > update_mps (n_method dt) (billiard_forces k)
00:10:42 verbose #70183 >
00:10:42 verbose #70184 > inl billiard_initial () =
00:10:42 verbose #70185 > inl ball_mass = 0.160
00:10:42 verbose #70186 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:42 verbose #70187 > multi_particle_state [[
00:10:42 verbose #70188 > particle_state {
00:10:42 verbose #70189 > default_particle_state' with
00:10:42 verbose #70190 > mass = ball_mass
00:10:42 verbose #70191 > pos_vec = zero_vec ()
00:10:42 verbose #70192 > velocity = 0.2 *^ i_hat ()
00:10:42 verbose #70193 > }
00:10:42 verbose #70194 > particle_state {
00:10:42 verbose #70195 > default_particle_state' with
00:10:42 verbose #70196 > mass = ball_mass
00:10:42 verbose #70197 > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:10:42 verbose #70198 > velocity = zero_vec ()
00:10:42 verbose #70199 > }
00:10:42 verbose #70200 > ]]
00:10:42 verbose #70201 >
00:10:42 verbose #70202 > inl billiard_states ~n_method k dt =
00:10:42 verbose #70203 > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:10:42 verbose #70204 >
00:10:42 verbose #70205 > inl billiard_states_finite n_method k dt =
00:10:42 verbose #70206 > billiard_states n_method k dt
00:10:42 verbose #70207 > >> Some
00:10:42 verbose #70208 > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:10:42 verbose #70209 > (mpst |> listm'.item 0i32).time <= 10
00:10:42 verbose #70210 > )
00:10:42 verbose #70211 >
00:10:42 verbose #70212 > inl momentum (particle_state st) =
00:10:42 verbose #70213 > inl m = st.mass
00:10:42 verbose #70214 > inl v = st.velocity
00:10:42 verbose #70215 > m *^ v
00:10:42 verbose #70216 >
00:10:42 verbose #70217 > inl system_p (multi_particle_state sts) =
00:10:42 verbose #70218 > sts |> listm.map momentum |> sum_vec
00:10:42 verbose #70219 >
00:10:42 verbose #70220 >
00:10:42 verbose #70221 > inl time_ke_ec_x, time_ke_ec_y =
00:10:42 verbose #70222 > billiard_states_finite euler_cromer_mps 30 0.03
00:10:42 verbose #70223 > |> listm.map (fun (multi_particle_state mpst) =>
00:10:42 verbose #70224 > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:10:42 verbose #70225 > )
00:10:42 verbose #70226 > |> listm'.unzip
00:10:42 verbose #70227 >
00:10:42 verbose #70228 > inl time_ke_rk4_x, time_ke_rk4_y =
00:10:42 verbose #70229 > billiard_states_finite runge_kutta_4 30 0.03
00:10:42 verbose #70230 > |> listm.map (fun (multi_particle_state mpst) =>
00:10:42 verbose #70231 > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:10:42 verbose #70232 > )
00:10:42 verbose #70233 > |> listm'.unzip
00:10:42 verbose #70234 >
00:10:42 verbose #70235 > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:10:42 verbose #70236 > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:10:42 verbose #70237 >
00:10:42 verbose #70238 > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:10:42 verbose #70239 > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:10:42 verbose #70240 >
00:10:42 verbose #70241 > "system kinetic energy versus time",
00:10:42 verbose #70242 > "time (s)",
00:10:42 verbose #70243 > "system kinetic energy (j)",
00:10:42 verbose #70244 > ;[[
00:10:42 verbose #70245 > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:10:42 verbose #70246 > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:10:42 verbose #70247 > ]]
00:10:42 verbose #70248 > 00:10:41 debug #811 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/47ae9c71253f23499704f357aa2cb3417cc1fc6aa2858a214b8da4a9208e65ca/main.spi
00:10:43 verbose #70249 >
00:10:43 verbose #70250 > ╭─[ 1.77s - return value ]─────────────────────────────────────────────────────╮
00:10:43 verbose #70251 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:43 verbose #70252 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:43 verbose #70253 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:43 verbose #70254 > │ stroke="none"/> │
00:10:43 verbose #70255 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:43 verbose #70256 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:43 verbose #70257 > │ fill="#FFFFFF"> │
00:10:43 verbose #70258 > │ system kinetic energy versus time │
00:10:43 verbose #70259 > │ </text> │
00:10:43 verbose #70260 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:43 verbose #70261 > │ y2="75"/> │
00:10:43 verbose #70262 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:43 verbose #70263 > │ y2="75"/> │
00:10:43 verbose #70264 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:43 verbose #70265 > │ y2="75"/> │
00:10:43 verbose #70266 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:43 verbose #70267 > │ y2="75"/> │
00:10:43 verbose #70268 > │ <line opacity="1" stroke="#323232" stroke-width="1... │
00:10:43 verbose #70269 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:43 verbose #70270 >
00:10:43 verbose #70271 > ╭─[ 1.78s - stdout ]───────────────────────────────────────────────────────────╮
00:10:43 verbose #70272 > │ type UH0 = │
00:10:43 verbose #70273 > │ | UH0_0 │
00:10:43 verbose #70274 > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:10:43 verbose #70275 > │ * float * UH0 │
00:10:43 verbose #70276 > │ and UH1 = │
00:10:43 verbose #70277 > │ | UH1_0 │
00:10:43 verbose #70278 > │ | UH1_1 of float * float * float * float * float * float * float * float │
00:10:43 verbose #70279 > │ * float * UH1 │
00:10:43 verbose #70280 > │ and UH2 = │
00:10:43 verbose #70281 > │ | UH2_0 │
00:10:43 verbose #70282 > │ | UH2_1 of float * float * float * float * float * float * float * float │
00:10:43 verbose #70283 > │ * float * float * float * float * float * float * float * float * float * │
00:10:43 verbose #70284 > │ float * UH2 │
00:10:43 verbose #70285 > │ and UH3 = │
00:10:43 verbose #70286 > │ | UH3_0 │
00:10:43 verbose #70287 > │ | UH3_1 of int32 * float * float * float * float * float * float * float │
00:10:43 verbose #70288 > │ * float * float * UH3 │
00:10:43 verbose #70289 > │ and [<Struct>] US0 = │
00:10:43 verbose #70290 > │ | US0_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:10:43 verbose #70291 > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:10:43 verbose #70292 > │ | US0_1 │
00:10:43 verbose #70293 > │ and UH4 = │
00:10:43 verbose #70294 > │ | UH4_0 │
00:10:43 verbose #70295 > │ | UH4_1 of UH0 * UH4 │
00:10:43 verbose #70296 > │ and UH5 = │
00:10:43 verbose #70297 > │ | UH5_0 │
00:10:43 verbose #70298 > │ | UH5_1 of float * float * UH5 │
00:10:43 verbose #70299 > │ and UH6 = │
00:10:43 verbose #70300 > │ | UH6_0 │
00:10:43 verbose #70301 > │ | UH6_1 of float * UH6 │
00:10:43 verbose #70302 > │ let rec method2 (v0 : UH0, v1 : UH0) : UH0 = │
00:10:43 verbose #70303 > │ match v0 with │
00:10:43 verbose #70304 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:43 verbose #70305 > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:10:43 verbose #70306 > │ method2(v11, v12) │
00:10:43 verbose #70307 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70308 > │ v1 │
00:10:43 verbose #70309 > │ and method1 (v0 : float, v1 : UH0, v2 : UH1, v3 : UH0) : UH0 = │
00:10:43 verbose #70310 > │ match v2 with │
00:10:43 verbose #70311 > │ | UH1_1(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* Cons *) │
00:10:43 verbose #70312 > │ match v3 with │
00:10:43 verbose #70313 > │ | UH0_1(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* Cons │
00:10:43 verbose #70314 > │ *) │
00:10:43 verbose #70315 > │ let v24 : float = v9 * v0 │
00:10:43 verbose #70316 > │ let v25 : float = v19 + v24 │
00:10:43 verbose #70317 > │ let v26 : float = v0 * v6 │
00:10:43 verbose #70318 > │ let v27 : float = v0 * v7 │
00:10:43 verbose #70319 > │ let v28 : float = v0 * v8 │
00:10:43 verbose #70320 > │ let v29 : float = v16 + v26 │
00:10:43 verbose #70321 > │ let v30 : float = v17 + v27 │
00:10:43 verbose #70322 > │ let v31 : float = v18 + v28 │
00:10:43 verbose #70323 > │ let v32 : float = v0 * v10 │
00:10:43 verbose #70324 > │ let v33 : float = v0 * v11 │
00:10:43 verbose #70325 > │ let v34 : float = v0 * v12 │
00:10:43 verbose #70326 > │ let v35 : float = v20 + v32 │
00:10:43 verbose #70327 > │ let v36 : float = v21 + v33 │
00:10:43 verbose #70328 > │ let v37 : float = v22 + v34 │
00:10:43 verbose #70329 > │ let v38 : UH0 = UH0_1(v14, v15, v29, v30, v31, v25, v35, v36, │
00:10:43 verbose #70330 > │ v37, v1) │
00:10:43 verbose #70331 > │ method1(v0, v38, v13, v23) │
00:10:43 verbose #70332 > │ | _ -> │
00:10:43 verbose #70333 > │ let v40 : UH0 = UH0_0 │
00:10:43 verbose #70334 > │ method2(v1, v40) │
00:10:43 verbose #70335 > │ | _ -> │
00:10:43 verbose #70336 > │ let v43 : UH0 = UH0_0 │
00:10:43 verbose #70337 > │ method2(v1, v43) │
00:10:43 verbose #70338 > │ and method4 (v0 : UH2, v1 : UH2) : UH2 = │
00:10:43 verbose #70339 > │ match v0 with │
00:10:43 verbose #70340 > │ | UH2_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, │
00:10:43 verbose #70341 > │ v16, v17, v18, v19, v20) -> (* Cons *) │
00:10:43 verbose #70342 > │ let v21 : UH2 = UH2_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, │
00:10:43 verbose #70343 > │ v13, v14, v15, v16, v17, v18, v19, v1) │
00:10:43 verbose #70344 > │ method4(v20, v21) │
00:10:43 verbose #70345 > │ | UH2_0 -> (* Nil *) │
00:10:43 verbose #70346 > │ v1 │
00:10:43 verbose #70347 > │ and method3 (v0 : UH2, v1 : UH0, v2 : UH0) : UH2 = │
00:10:43 verbose #70348 > │ match v1 with │
00:10:43 verbose #70349 > │ | UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:10:43 verbose #70350 > │ match v2 with │
00:10:43 verbose #70351 > │ | UH0_1(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* Cons │
00:10:43 verbose #70352 > │ *) │
00:10:43 verbose #70353 > │ let v23 : UH2 = UH2_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v13, │
00:10:43 verbose #70354 > │ v14, v15, v16, v17, v18, v19, v20, v21, v0) │
00:10:43 verbose #70355 > │ method3(v23, v12, v22) │
00:10:43 verbose #70356 > │ | _ -> │
00:10:43 verbose #70357 > │ let v25 : UH2 = UH2_0 │
00:10:43 verbose #70358 > │ method4(v0, v25) │
00:10:43 verbose #70359 > │ | _ -> │
00:10:43 verbose #70360 > │ let v28 : UH2 = UH2_0 │
00:10:43 verbose #70361 > │ method4(v0, v28) │
00:10:43 verbose #70362 > │ and method5 (v0 : float, v1 : UH2, v2 : UH0) : UH0 = │
00:10:43 verbose #70363 > │ match v1 with │
00:10:43 verbose #70364 > │ | UH2_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, │
00:10:43 verbose #70365 > │ v17, v18, v19, v20, v21) -> (* Cons *) │
00:10:43 verbose #70366 > │ let v22 : UH0 = method5(v0, v21, v2) │
00:10:43 verbose #70367 > │ let v23 : float = v0 * v18 │
00:10:43 verbose #70368 > │ let v24 : float = v0 * v19 │
00:10:43 verbose #70369 > │ let v25 : float = v0 * v20 │
00:10:43 verbose #70370 > │ let v26 : float = v5 + v23 │
00:10:43 verbose #70371 > │ let v27 : float = v6 + v24 │
00:10:43 verbose #70372 > │ let v28 : float = v7 + v25 │
00:10:43 verbose #70373 > │ UH0_1(v12, v13, v26, v27, v28, v17, v18, v19, v20, v22) │
00:10:43 verbose #70374 > │ | UH2_0 -> (* Nil *) │
00:10:43 verbose #70375 > │ v2 │
00:10:43 verbose #70376 > │ and closure2 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:10:43 verbose #70377 > │ let v3 : UH1 = v1 v2 │
00:10:43 verbose #70378 > │ let v4 : UH0 = UH0_0 │
00:10:43 verbose #70379 > │ let v5 : UH0 = method1(v0, v4, v3, v2) │
00:10:43 verbose #70380 > │ let v6 : UH2 = UH2_0 │
00:10:43 verbose #70381 > │ let v7 : UH2 = method3(v6, v2, v5) │
00:10:43 verbose #70382 > │ let v8 : UH0 = UH0_0 │
00:10:43 verbose #70383 > │ let v9 : UH0 = method5(v0, v7, v8) │
00:10:43 verbose #70384 > │ v9 │
00:10:43 verbose #70385 > │ and closure1 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:10:43 verbose #70386 > │ closure2(v0, v1) │
00:10:43 verbose #70387 > │ and closure0 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:10:43 verbose #70388 > │ closure1(v0) │
00:10:43 verbose #70389 > │ and method6 (v0 : UH0, v1 : UH3, v2 : int32) : struct (UH3 * int32) = │
00:10:43 verbose #70390 > │ match v0 with │
00:10:43 verbose #70391 > │ | UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:10:43 verbose #70392 > │ let v13 : int32 = v2 + 1 │
00:10:43 verbose #70393 > │ let v14 : UH3 = UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v1) │
00:10:43 verbose #70394 > │ method6(v12, v14, v13) │
00:10:43 verbose #70395 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70396 > │ struct (v1, v2) │
00:10:43 verbose #70397 > │ and method7 (v0 : UH3, v1 : UH3) : UH3 = │
00:10:43 verbose #70398 > │ match v0 with │
00:10:43 verbose #70399 > │ | UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:10:43 verbose #70400 > │ let v13 : UH3 = UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v1) │
00:10:43 verbose #70401 > │ method7(v12, v13) │
00:10:43 verbose #70402 > │ | UH3_0 -> (* Nil *) │
00:10:43 verbose #70403 > │ v1 │
00:10:43 verbose #70404 > │ and closure4 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:10:43 verbose #70405 > │ : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:10:43 verbose #70406 > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:10:43 verbose #70407 > │ : float, v17 : float) : struct (float * float * float) = │
00:10:43 verbose #70408 > │ let v18 : float = -1.0 * v2 │
00:10:43 verbose #70409 > │ let v19 : float = -1.0 * v3 │
00:10:43 verbose #70410 > │ let v20 : float = -1.0 * v4 │
00:10:43 verbose #70411 > │ let v21 : float = v11 + v18 │
00:10:43 verbose #70412 > │ let v22 : float = v12 + v19 │
00:10:43 verbose #70413 > │ let v23 : float = v13 + v20 │
00:10:43 verbose #70414 > │ let v24 : float = v21 * v21 │
00:10:43 verbose #70415 > │ let v25 : float = v22 * v22 │
00:10:43 verbose #70416 > │ let v26 : float = v24 + v25 │
00:10:43 verbose #70417 > │ let v27 : float = v23 * v23 │
00:10:43 verbose #70418 > │ let v28 : float = v26 + v27 │
00:10:43 verbose #70419 > │ let v29 : float = sqrt v28 │
00:10:43 verbose #70420 > │ let v30 : bool = v29 >= 0.06 │
00:10:43 verbose #70421 > │ let v33 : float = │
00:10:43 verbose #70422 > │ if v30 then │
00:10:43 verbose #70423 > │ 0.0 │
00:10:43 verbose #70424 > │ else │
00:10:43 verbose #70425 > │ let v31 : float = v29 - 0.06 │
00:10:43 verbose #70426 > │ let v32 : float = -30.0 * v31 │
00:10:43 verbose #70427 > │ v32 │
00:10:43 verbose #70428 > │ let v34 : float = v33 * v21 │
00:10:43 verbose #70429 > │ let v35 : float = v33 * v22 │
00:10:43 verbose #70430 > │ let v36 : float = v33 * v23 │
00:10:43 verbose #70431 > │ let v37 : float = v34 / v29 │
00:10:43 verbose #70432 > │ let v38 : float = v35 / v29 │
00:10:43 verbose #70433 > │ let v39 : float = v36 / v29 │
00:10:43 verbose #70434 > │ struct (v37, v38, v39) │
00:10:43 verbose #70435 > │ and closure5 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:10:43 verbose #70436 > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:43 verbose #70437 > │ float * float) = │
00:10:43 verbose #70438 > │ struct (0.0, 0.0, 0.0) │
00:10:43 verbose #70439 > │ and method8 (v0 : UH0, v1 : UH3, v2 : UH1) : UH1 = │
00:10:43 verbose #70440 > │ match v1 with │
00:10:43 verbose #70441 > │ | UH3_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* Cons *) │
00:10:43 verbose #70442 > │ let v14 : UH1 = method8(v0, v13, v2) │
00:10:43 verbose #70443 > │ let v15 : bool = v3 = 0 │
00:10:43 verbose #70444 > │ let v134 : (struct (float * float * float * float * float * float * │
00:10:43 verbose #70445 > │ float * float * float) -> struct (float * float * float)) = │
00:10:43 verbose #70446 > │ if v15 then │
00:10:43 verbose #70447 > │ let v42 : US0 = │
00:10:43 verbose #70448 > │ match v0 with │
00:10:43 verbose #70449 > │ | UH0_1(v16, v17, v18, v19, v20, v21, v22, v23, v24, │
00:10:43 verbose #70450 > │ v25) -> (* Cons *) │
00:10:43 verbose #70451 > │ match v25 with │
00:10:43 verbose #70452 > │ | UH0_1(v26, v27, v28, v29, v30, v31, v32, v33, v34, │
00:10:43 verbose #70453 > │ v35) -> (* Cons *) │
00:10:43 verbose #70454 > │ US0_0(v26, v27, v28, v29, v30, v31, v32, v33, │
00:10:43 verbose #70455 > │ v34) │
00:10:43 verbose #70456 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70457 > │ US0_1 │
00:10:43 verbose #70458 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70459 > │ US0_1 │
00:10:43 verbose #70460 > │ let struct (v70 : float, v71 : float, v72 : float, v73 : │
00:10:43 verbose #70461 > │ float, v74 : float, v75 : float, v76 : float, v77 : float, v78 : float) = │
00:10:43 verbose #70462 > │ match v42 with │
00:10:43 verbose #70463 > │ | US0_1 -> (* None *) │
00:10:43 verbose #70464 > │ failwith<struct (float * float * float * float * │
00:10:43 verbose #70465 > │ float * float * float * float * float)> "Option does not have a value." │
00:10:43 verbose #70466 > │ | US0_0(v43, v44, v45, v46, v47, v48, v49, v50, v51) -> │
00:10:43 verbose #70467 > │ (* Some *) │
00:10:43 verbose #70468 > │ struct (v43, v44, v45, v46, v47, v48, v49, v50, v51) │
00:10:43 verbose #70469 > │ closure4(v70, v71, v72, v73, v74, v75, v76, v77, v78) │
00:10:43 verbose #70470 > │ else │
00:10:43 verbose #70471 > │ let v80 : bool = v3 = 1 │
00:10:43 verbose #70472 > │ if v80 then │
00:10:43 verbose #70473 > │ let v94 : US0 = │
00:10:43 verbose #70474 > │ match v0 with │
00:10:43 verbose #70475 > │ | UH0_1(v81, v82, v83, v84, v85, v86, v87, v88, v89, │
00:10:43 verbose #70476 > │ v90) -> (* Cons *) │
00:10:43 verbose #70477 > │ US0_0(v81, v82, v83, v84, v85, v86, v87, v88, │
00:10:43 verbose #70478 > │ v89) │
00:10:43 verbose #70479 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70480 > │ US0_1 │
00:10:43 verbose #70481 > │ let struct (v122 : float, v123 : float, v124 : float, │
00:10:43 verbose #70482 > │ v125 : float, v126 : float, v127 : float, v128 : float, v129 : float, v130 : │
00:10:43 verbose #70483 > │ float) = │
00:10:43 verbose #70484 > │ match v94 with │
00:10:43 verbose #70485 > │ | US0_1 -> (* None *) │
00:10:43 verbose #70486 > │ failwith<struct (float * float * float * float * │
00:10:43 verbose #70487 > │ float * float * float * float * float)> "Option does not have a value." │
00:10:43 verbose #70488 > │ | US0_0(v95, v96, v97, v98, v99, v100, v101, v102, │
00:10:43 verbose #70489 > │ v103) -> (* Some *) │
00:10:43 verbose #70490 > │ struct (v95, v96, v97, v98, v99, v100, v101, │
00:10:43 verbose #70491 > │ v102, v103) │
00:10:43 verbose #70492 > │ closure4(v122, v123, v124, v125, v126, v127, v128, v129, │
00:10:43 verbose #70493 > │ v130) │
00:10:43 verbose #70494 > │ else │
00:10:43 verbose #70495 > │ closure5() │
00:10:43 verbose #70496 > │ let struct (v135 : float, v136 : float, v137 : float) = v134 struct │
00:10:43 verbose #70497 > │ (v4, v5, v6, v7, v8, v9, v10, v11, v12) │
00:10:43 verbose #70498 > │ let v138 : float = v135 / v5 │
00:10:43 verbose #70499 > │ let v139 : float = v136 / v5 │
00:10:43 verbose #70500 > │ let v140 : float = v137 / v5 │
00:10:43 verbose #70501 > │ UH1_1(0.0, 0.0, v10, v11, v12, 1.0, v138, v139, v140, v14) │
00:10:43 verbose #70502 > │ | UH3_0 -> (* Nil *) │
00:10:43 verbose #70503 > │ v2 │
00:10:43 verbose #70504 > │ and closure3 () (v0 : UH0) : UH1 = │
00:10:43 verbose #70505 > │ let v1 : UH3 = UH3_0 │
00:10:43 verbose #70506 > │ let v2 : int32 = 0 │
00:10:43 verbose #70507 > │ let struct (v3 : UH3, v4 : int32) = method6(v0, v1, v2) │
00:10:43 verbose #70508 > │ let v5 : UH3 = UH3_0 │
00:10:43 verbose #70509 > │ let v6 : UH3 = method7(v3, v5) │
00:10:43 verbose #70510 > │ let v7 : UH1 = UH1_0 │
00:10:43 verbose #70511 > │ let v8 : UH1 = method8(v0, v6, v7) │
00:10:43 verbose #70512 > │ v8 │
00:10:43 verbose #70513 > │ and method10 (v0 : (UH0 -> UH0), v1 : UH0, v2 : int32) : UH0 = │
00:10:43 verbose #70514 > │ let v3 : bool = v2 <= 0 │
00:10:43 verbose #70515 > │ if v3 then │
00:10:43 verbose #70516 > │ v1 │
00:10:43 verbose #70517 > │ else │
00:10:43 verbose #70518 > │ let v4 : UH0 = v0 v1 │
00:10:43 verbose #70519 > │ let v5 : int32 = v2 - 1 │
00:10:43 verbose #70520 > │ method10(v0, v4, v5) │
00:10:43 verbose #70521 > │ and method11 (v0 : UH4, v1 : UH4) : UH4 = │
00:10:43 verbose #70522 > │ match v0 with │
00:10:43 verbose #70523 > │ | UH4_1(v2, v3) -> (* Cons *) │
00:10:43 verbose #70524 > │ let v4 : UH4 = UH4_1(v2, v1) │
00:10:43 verbose #70525 > │ method11(v3, v4) │
00:10:43 verbose #70526 > │ | UH4_0 -> (* Nil *) │
00:10:43 verbose #70527 > │ v1 │
00:10:43 verbose #70528 > │ and method9 (v0 : (UH0 -> UH0), v1 : UH4, v2 : int32) : UH4 = │
00:10:43 verbose #70529 > │ let v3 : float = 0.0 │
00:10:43 verbose #70530 > │ let v4 : float = 0.16 │
00:10:43 verbose #70531 > │ let v5 : float = 0.0 │
00:10:43 verbose #70532 > │ let v6 : float = 0.0 │
00:10:43 verbose #70533 > │ let v7 : float = 0.0 │
00:10:43 verbose #70534 > │ let v8 : float = 0.0 │
00:10:43 verbose #70535 > │ let v9 : float = 0.2 │
00:10:43 verbose #70536 > │ let v10 : float = 0.0 │
00:10:43 verbose #70537 > │ let v11 : float = 0.0 │
00:10:43 verbose #70538 > │ let v12 : float = 1.0 │
00:10:43 verbose #70539 > │ let v13 : float = 0.02 │
00:10:43 verbose #70540 > │ let v14 : float = 0.0 │
00:10:43 verbose #70541 > │ let v15 : float = 0.0 │
00:10:43 verbose #70542 > │ let v16 : float = 0.0 │
00:10:43 verbose #70543 > │ let v17 : float = 0.0 │
00:10:43 verbose #70544 > │ let v18 : UH0 = UH0_0 │
00:10:43 verbose #70545 > │ let v19 : UH0 = UH0_1(v3, v4, v12, v13, v14, v8, v15, v16, v17, v18) │
00:10:43 verbose #70546 > │ let v20 : UH0 = UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v19) │
00:10:43 verbose #70547 > │ let v21 : UH0 = method10(v0, v20, v2) │
00:10:43 verbose #70548 > │ let v35 : US0 = │
00:10:43 verbose #70549 > │ match v21 with │
00:10:43 verbose #70550 > │ | UH0_1(v22, v23, v24, v25, v26, v27, v28, v29, v30, v31) -> (* Cons │
00:10:43 verbose #70551 > │ *) │
00:10:43 verbose #70552 > │ US0_0(v22, v23, v24, v25, v26, v27, v28, v29, v30) │
00:10:43 verbose #70553 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70554 > │ US0_1 │
00:10:43 verbose #70555 > │ let struct (v63 : float, v64 : float, v65 : float, v66 : float, v67 : │
00:10:43 verbose #70556 > │ float, v68 : float, v69 : float, v70 : float, v71 : float) = │
00:10:43 verbose #70557 > │ match v35 with │
00:10:43 verbose #70558 > │ | US0_1 -> (* None *) │
00:10:43 verbose #70559 > │ failwith<struct (float * float * float * float * float * float * │
00:10:43 verbose #70560 > │ float * float * float)> "Option does not have a value." │
00:10:43 verbose #70561 > │ | US0_0(v36, v37, v38, v39, v40, v41, v42, v43, v44) -> (* Some *) │
00:10:43 verbose #70562 > │ struct (v36, v37, v38, v39, v40, v41, v42, v43, v44) │
00:10:43 verbose #70563 > │ let v72 : bool = v68 <= 10.0 │
00:10:43 verbose #70564 > │ if v72 then │
00:10:43 verbose #70565 > │ let v73 : UH4 = UH4_1(v21, v1) │
00:10:43 verbose #70566 > │ let v74 : int32 = v2 + 1 │
00:10:43 verbose #70567 > │ method9(v0, v73, v74) │
00:10:43 verbose #70568 > │ else │
00:10:43 verbose #70569 > │ let v76 : UH4 = UH4_0 │
00:10:43 verbose #70570 > │ method11(v1, v76) │
00:10:43 verbose #70571 > │ and method13 (v0 : UH0, v1 : UH6) : UH6 = │
00:10:43 verbose #70572 > │ match v0 with │
00:10:43 verbose #70573 > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:43 verbose #70574 > │ let v12 : UH6 = method13(v11, v1) │
00:10:43 verbose #70575 > │ let v13 : float = v8 * v8 │
00:10:43 verbose #70576 > │ let v14 : float = v9 * v9 │
00:10:43 verbose #70577 > │ let v15 : float = v13 + v14 │
00:10:43 verbose #70578 > │ let v16 : float = v10 * v10 │
00:10:43 verbose #70579 > │ let v17 : float = v15 + v16 │
00:10:43 verbose #70580 > │ let v18 : float = sqrt v17 │
00:10:43 verbose #70581 > │ let v19 : float = 0.5 * v3 │
00:10:43 verbose #70582 > │ let v20 : float = v18 ** 2.0 │
00:10:43 verbose #70583 > │ let v21 : float = v19 * v20 │
00:10:43 verbose #70584 > │ UH6_1(v21, v12) │
00:10:43 verbose #70585 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70586 > │ v1 │
00:10:43 verbose #70587 > │ and method14 (v0 : UH6, v1 : float) : float = │
00:10:43 verbose #70588 > │ match v0 with │
00:10:43 verbose #70589 > │ | UH6_1(v2, v3) -> (* Cons *) │
00:10:43 verbose #70590 > │ let v4 : float = v1 + v2 │
00:10:43 verbose #70591 > │ method14(v3, v4) │
00:10:43 verbose #70592 > │ | UH6_0 -> (* Nil *) │
00:10:43 verbose #70593 > │ v1 │
00:10:43 verbose #70594 > │ and method12 (v0 : UH4, v1 : UH5) : UH5 = │
00:10:43 verbose #70595 > │ match v0 with │
00:10:43 verbose #70596 > │ | UH4_1(v2, v3) -> (* Cons *) │
00:10:43 verbose #70597 > │ let v4 : UH5 = method12(v3, v1) │
00:10:43 verbose #70598 > │ let v18 : US0 = │
00:10:43 verbose #70599 > │ match v2 with │
00:10:43 verbose #70600 > │ | UH0_1(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* Cons │
00:10:43 verbose #70601 > │ *) │
00:10:43 verbose #70602 > │ US0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13) │
00:10:43 verbose #70603 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70604 > │ US0_1 │
00:10:43 verbose #70605 > │ let struct (v46 : float, v47 : float, v48 : float, v49 : float, v50 │
00:10:43 verbose #70606 > │ : float, v51 : float, v52 : float, v53 : float, v54 : float) = │
00:10:43 verbose #70607 > │ match v18 with │
00:10:43 verbose #70608 > │ | US0_1 -> (* None *) │
00:10:43 verbose #70609 > │ failwith<struct (float * float * float * float * float * │
00:10:43 verbose #70610 > │ float * float * float * float)> "Option does not have a value." │
00:10:43 verbose #70611 > │ | US0_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some │
00:10:43 verbose #70612 > │ *) │
00:10:43 verbose #70613 > │ struct (v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:10:43 verbose #70614 > │ let v55 : UH6 = UH6_0 │
00:10:43 verbose #70615 > │ let v56 : UH6 = method13(v2, v55) │
00:10:43 verbose #70616 > │ let v57 : float = 0.0 │
00:10:43 verbose #70617 > │ let v58 : float = method14(v56, v57) │
00:10:43 verbose #70618 > │ UH5_1(v51, v58, v4) │
00:10:43 verbose #70619 > │ | UH4_0 -> (* Nil *) │
00:10:43 verbose #70620 > │ v1 │
00:10:43 verbose #70621 > │ and method15 (v0 : UH5, v1 : UH6, v2 : UH6) : struct (UH6 * UH6) = │
00:10:43 verbose #70622 > │ match v0 with │
00:10:43 verbose #70623 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:10:43 verbose #70624 > │ let v6 : UH6 = UH6_1(v3, v1) │
00:10:43 verbose #70625 > │ let v7 : UH6 = UH6_1(v4, v2) │
00:10:43 verbose #70626 > │ method15(v5, v6, v7) │
00:10:43 verbose #70627 > │ | UH5_0 -> (* Nil *) │
00:10:43 verbose #70628 > │ struct (v1, v2) │
00:10:43 verbose #70629 > │ and method16 (v0 : UH6, v1 : UH6) : UH6 = │
00:10:43 verbose #70630 > │ match v0 with │
00:10:43 verbose #70631 > │ | UH6_1(v2, v3) -> (* Cons *) │
00:10:43 verbose #70632 > │ let v4 : UH6 = UH6_1(v2, v1) │
00:10:43 verbose #70633 > │ method16(v3, v4) │
00:10:43 verbose #70634 > │ | UH6_0 -> (* Nil *) │
00:10:43 verbose #70635 > │ v1 │
00:10:43 verbose #70636 > │ and method18 (v0 : UH1, v1 : UH1) : UH1 = │
00:10:43 verbose #70637 > │ match v0 with │
00:10:43 verbose #70638 > │ | UH1_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:10:43 verbose #70639 > │ let v12 : UH1 = UH1_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:10:43 verbose #70640 > │ method18(v11, v12) │
00:10:43 verbose #70641 > │ | UH1_0 -> (* Nil *) │
00:10:43 verbose #70642 > │ v1 │
00:10:43 verbose #70643 > │ and method17 (v0 : UH1, v1 : UH1, v2 : UH1) : UH1 = │
00:10:43 verbose #70644 > │ match v1 with │
00:10:43 verbose #70645 > │ | UH1_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:10:43 verbose #70646 > │ match v2 with │
00:10:43 verbose #70647 > │ | UH1_1(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* Cons │
00:10:43 verbose #70648 > │ *) │
00:10:43 verbose #70649 > │ let v23 : float = v3 + v13 │
00:10:43 verbose #70650 > │ let v24 : float = v4 + v14 │
00:10:43 verbose #70651 > │ let v25 : float = v8 + v18 │
00:10:43 verbose #70652 > │ let v26 : float = v5 + v15 │
00:10:43 verbose #70653 > │ let v27 : float = v6 + v16 │
00:10:43 verbose #70654 > │ let v28 : float = v7 + v17 │
00:10:43 verbose #70655 > │ let v29 : float = v9 + v19 │
00:10:43 verbose #70656 > │ let v30 : float = v10 + v20 │
00:10:43 verbose #70657 > │ let v31 : float = v11 + v21 │
00:10:43 verbose #70658 > │ let v32 : UH1 = UH1_1(v23, v24, v26, v27, v28, v25, v29, v30, │
00:10:43 verbose #70659 > │ v31, v0) │
00:10:43 verbose #70660 > │ method17(v32, v12, v22) │
00:10:43 verbose #70661 > │ | _ -> │
00:10:43 verbose #70662 > │ let v34 : UH1 = UH1_0 │
00:10:43 verbose #70663 > │ method18(v0, v34) │
00:10:43 verbose #70664 > │ | _ -> │
00:10:43 verbose #70665 > │ let v37 : UH1 = UH1_0 │
00:10:43 verbose #70666 > │ method18(v0, v37) │
00:10:43 verbose #70667 > │ and closure8 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:10:43 verbose #70668 > │ let v3 : UH1 = v1 v2 │
00:10:43 verbose #70669 > │ let v4 : float = v0 / 2.0 │
00:10:43 verbose #70670 > │ let v5 : UH0 = UH0_0 │
00:10:43 verbose #70671 > │ let v6 : UH0 = method1(v4, v5, v3, v2) │
00:10:43 verbose #70672 > │ let v7 : UH1 = v1 v6 │
00:10:43 verbose #70673 > │ let v8 : UH0 = UH0_0 │
00:10:43 verbose #70674 > │ let v9 : UH0 = method1(v4, v8, v7, v2) │
00:10:43 verbose #70675 > │ let v10 : UH1 = v1 v9 │
00:10:43 verbose #70676 > │ let v11 : UH0 = UH0_0 │
00:10:43 verbose #70677 > │ let v12 : UH0 = method1(v0, v11, v10, v2) │
00:10:43 verbose #70678 > │ let v13 : UH1 = v1 v12 │
00:10:43 verbose #70679 > │ let v14 : float = v0 / 6.0 │
00:10:43 verbose #70680 > │ let v15 : UH1 = UH1_0 │
00:10:43 verbose #70681 > │ let v16 : UH1 = method17(v15, v3, v7) │
00:10:43 verbose #70682 > │ let v17 : UH1 = UH1_0 │
00:10:43 verbose #70683 > │ let v18 : UH1 = method17(v17, v16, v7) │
00:10:43 verbose #70684 > │ let v19 : UH1 = UH1_0 │
00:10:43 verbose #70685 > │ let v20 : UH1 = method17(v19, v18, v10) │
00:10:43 verbose #70686 > │ let v21 : UH1 = UH1_0 │
00:10:43 verbose #70687 > │ let v22 : UH1 = method17(v21, v20, v10) │
00:10:43 verbose #70688 > │ let v23 : UH1 = UH1_0 │
00:10:43 verbose #70689 > │ let v24 : UH1 = method17(v23, v22, v13) │
00:10:43 verbose #70690 > │ let v25 : UH0 = UH0_0 │
00:10:43 verbose #70691 > │ let v26 : UH0 = method1(v14, v25, v24, v2) │
00:10:43 verbose #70692 > │ v26 │
00:10:43 verbose #70693 > │ and closure7 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:10:43 verbose #70694 > │ closure8(v0, v1) │
00:10:43 verbose #70695 > │ and closure6 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:10:43 verbose #70696 > │ closure7(v0) │
00:10:43 verbose #70697 > │ and method19 (v0 : UH4, v1 : UH5) : UH5 = │
00:10:43 verbose #70698 > │ match v0 with │
00:10:43 verbose #70699 > │ | UH4_1(v2, v3) -> (* Cons *) │
00:10:43 verbose #70700 > │ let v4 : UH5 = method19(v3, v1) │
00:10:43 verbose #70701 > │ let v18 : US0 = │
00:10:43 verbose #70702 > │ match v2 with │
00:10:43 verbose #70703 > │ | UH0_1(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* Cons │
00:10:43 verbose #70704 > │ *) │
00:10:43 verbose #70705 > │ US0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13) │
00:10:43 verbose #70706 > │ | UH0_0 -> (* Nil *) │
00:10:43 verbose #70707 > │ US0_1 │
00:10:43 verbose #70708 > │ let struct (v46 : float, v47 : float, v48 : float, v49 : float, v50 │
00:10:43 verbose #70709 > │ : float, v51 : float, v52 : float, v53 : float, v54 : float) = │
00:10:43 verbose #70710 > │ match v18 with │
00:10:44 verbose #70711 > │ | US0_1 -> (* None *) │
00:10:44 verbose #70712 > │ failwith<struct (float * float * float * float * float * │
00:10:44 verbose #70713 > │ float * float * float * float)> "Option does not have a value." │
00:10:44 verbose #70714 > │ | US0_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some │
00:10:44 verbose #70715 > │ *) │
00:10:44 verbose #70716 > │ struct (v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:10:44 verbose #70717 > │ let v55 : UH6 = UH6_0 │
00:10:44 verbose #70718 > │ let v56 : UH6 = method13(v2, v55) │
00:10:44 verbose #70719 > │ let v57 : float = 0.0 │
00:10:44 verbose #70720 > │ let v58 : float = method14(v56, v57) │
00:10:44 verbose #70721 > │ UH5_1(v51, v58, v4) │
00:10:44 verbose #70722 > │ | UH4_0 -> (* Nil *) │
00:10:44 verbose #70723 > │ v1 │
00:10:44 verbose #70724 > │ and method21 (v0 : UH6, v1 : int32) : int32 = │
00:10:44 verbose #70725 > │ match v0 with │
00:10:44 verbose #70726 > │ | UH6_1(v2, v3) -> (* Cons *) │
00:10:44 verbose #70727 > │ let v4 : int32 = v1 + 1 │
00:10:44 verbose #70728 > │ method21(v3, v4) │
00:10:44 verbose #70729 > │ | UH6_0 -> (* Nil *) │
00:10:44 verbose #70730 > │ v1 │
00:10:44 verbose #70731 > │ and method22 (v0 : (float []), v1 : UH6, v2 : int32) : int32 = │
00:10:44 verbose #70732 > │ match v1 with │
00:10:44 verbose #70733 > │ | UH6_1(v3, v4) -> (* Cons *) │
00:10:44 verbose #70734 > │ v0.[int v2] <- v3 │
00:10:44 verbose #70735 > │ let v5 : int32 = v2 + 1 │
00:10:44 verbose #70736 > │ method22(v0, v4, v5) │
00:10:44 verbose #70737 > │ | UH6_0 -> (* Nil *) │
00:10:44 verbose #70738 > │ v2 │
00:10:44 verbose #70739 > │ and method20 (v0 : UH6) : (float []) = │
00:10:44 verbose #70740 > │ let v1 : int32 = 0 │
00:10:44 verbose #70741 > │ let v2 : int32 = method21(v0, v1) │
00:10:44 verbose #70742 > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:10:44 verbose #70743 > │ let v4 : int32 = 0 │
00:10:44 verbose #70744 > │ let v5 : int32 = method22(v3, v0, v4) │
00:10:44 verbose #70745 > │ v3 │
00:10:44 verbose #70746 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:44 verbose #70747 > │ []) * (float [])) [])) = │
00:10:44 verbose #70748 > │ let v0 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure0() │
00:10:44 verbose #70749 > │ let v1 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v0 0.03 │
00:10:44 verbose #70750 > │ let v2 : (UH0 -> UH1) = closure3() │
00:10:44 verbose #70751 > │ let v3 : (UH0 -> UH0) = v1 v2 │
00:10:44 verbose #70752 > │ let v4 : UH4 = UH4_0 │
00:10:44 verbose #70753 > │ let v5 : int32 = 0 │
00:10:44 verbose #70754 > │ let v6 : UH4 = method9(v3, v4, v5) │
00:10:44 verbose #70755 > │ let v7 : UH5 = UH5_0 │
00:10:44 verbose #70756 > │ let v8 : UH5 = method12(v6, v7) │
00:10:44 verbose #70757 > │ let v9 : UH6 = UH6_0 │
00:10:44 verbose #70758 > │ let v10 : UH6 = UH6_0 │
00:10:44 verbose #70759 > │ let struct (v11 : UH6, v12 : UH6) = method15(v8, v9, v10) │
00:10:44 verbose #70760 > │ let v13 : UH6 = UH6_0 │
00:10:44 verbose #70761 > │ let v14 : UH6 = method16(v11, v13) │
00:10:44 verbose #70762 > │ let v15 : UH6 = UH6_0 │
00:10:44 verbose #70763 > │ let v16 : UH6 = method16(v12, v15) │
00:10:44 verbose #70764 > │ let v17 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure6() │
00:10:44 verbose #70765 > │ let v18 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v17 0.03 │
00:10:44 verbose #70766 > │ let v19 : (UH0 -> UH0) = v18 v2 │
00:10:44 verbose #70767 > │ let v20 : UH4 = UH4_0 │
00:10:44 verbose #70768 > │ let v21 : int32 = 0 │
00:10:44 verbose #70769 > │ let v22 : UH4 = method9(v19, v20, v21) │
00:10:44 verbose #70770 > │ let v23 : UH5 = UH5_0 │
00:10:44 verbose #70771 > │ let v24 : UH5 = method19(v22, v23) │
00:10:44 verbose #70772 > │ let v25 : UH6 = UH6_0 │
00:10:44 verbose #70773 > │ let v26 : UH6 = UH6_0 │
00:10:44 verbose #70774 > │ let struct (v27 : UH6, v28 : UH6) = method15(v24, v25, v26) │
00:10:44 verbose #70775 > │ let v29 : UH6 = UH6_0 │
00:10:44 verbose #70776 > │ let v30 : UH6 = method16(v27, v29) │
00:10:44 verbose #70777 > │ let v31 : UH6 = UH6_0 │
00:10:44 verbose #70778 > │ let v32 : UH6 = method16(v28, v31) │
00:10:44 verbose #70779 > │ let v33 : (float []) = method20(v14) │
00:10:44 verbose #70780 > │ let v34 : (float []) = method20(v16) │
00:10:44 verbose #70781 > │ let v35 : (float []) = method20(v30) │
00:10:44 verbose #70782 > │ let v36 : (float []) = method20(v32) │
00:10:44 verbose #70783 > │ let v37 : string = "euler-cromer" │
00:10:44 verbose #70784 > │ let v38 : string = "runge-kutta 4" │
00:10:44 verbose #70785 > │ let v39 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:44 verbose #70786 > │ (v37, v33, v34); struct (v38, v35, v36)|] │
00:10:44 verbose #70787 > │ let v40 : string = "system kinetic energy versus time" │
00:10:44 verbose #70788 > │ let v41 : string = "time (s)" │
00:10:44 verbose #70789 > │ let v42 : string = "system kinetic energy (j)" │
00:10:44 verbose #70790 > │ struct (v40, v41, v42, v39) │
00:10:44 verbose #70791 > │ method0() │
00:10:44 verbose #70792 > │ │
00:10:44 verbose #70793 > │ │
00:10:44 verbose #70794 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:44 verbose #70795 >
00:10:44 verbose #70796 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:44 verbose #70797 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:44 verbose #70798 > │ ### wave 1 │
00:10:44 verbose #70799 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:44 verbose #70800 >
00:10:44 verbose #70801 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:44 verbose #70802 > // // test
00:10:44 verbose #70803 >
00:10:44 verbose #70804 > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:10:44 verbose #70805 > inl r1 = st1.pos_vec
00:10:44 verbose #70806 > inl r2 = st2.pos_vec
00:10:44 verbose #70807 > inl r21 = r2 ^-^ r1
00:10:44 verbose #70808 > inl r21mag = magnitude r21
00:10:44 verbose #70809 > -k * (r21mag - re) *^ r21 ^/ r21mag
00:10:44 verbose #70810 >
00:10:44 verbose #70811 > inl fixed_linear_spring k re r1 =
00:10:44 verbose #70812 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:44 verbose #70813 > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:10:44 verbose #70814 > r1 })
00:10:44 verbose #70815 >
00:10:44 verbose #70816 > inl forces_string () =
00:10:44 verbose #70817 > [[
00:10:44 verbose #70818 > ExternalForce (0, fixed_linear_spring 5384 0 (zero_vec ()))
00:10:44 verbose #70819 > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:10:44 verbose #70820 > ]] /@ (
00:10:44 verbose #70821 > listm'.init_series 0 59 1
00:10:44 verbose #70822 > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:10:44 verbose #70823 > )
00:10:44 verbose #70824 >
00:10:44 verbose #70825 > inl string_update dt =
00:10:44 verbose #70826 > update_mps (runge_kutta_4 dt) (forces_string ())
00:10:44 verbose #70827 >
00:10:44 verbose #70828 > inl string_initial_overtone n =
00:10:44 verbose #70829 > inl ball_mass = 0.0008293 * 0.65 / 64
00:10:44 verbose #70830 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:44 verbose #70831 > listm'.init_series 0.01 0.64 0.01
00:10:44 verbose #70832 > |> listm.map (fun x =>
00:10:44 verbose #70833 > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:10:44 verbose #70834 > particle_state {
00:10:44 verbose #70835 > default_particle_state' with
00:10:44 verbose #70836 > mass = ball_mass
00:10:44 verbose #70837 > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:10:44 verbose #70838 > velocity = zero_vec ()
00:10:44 verbose #70839 > }
00:10:44 verbose #70840 > )
00:10:44 verbose #70841 > |> multi_particle_state
00:10:44 verbose #70842 >
00:10:44 verbose #70843 > inl string_initial_pluck () =
00:10:44 verbose #70844 > inl ball_mass = 0.0008293 * 0.65 / 64
00:10:44 verbose #70845 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:44 verbose #70846 > listm'.init_series 0.01 0.64 0.01
00:10:44 verbose #70847 > |> listm.map (fun x =>
00:10:44 verbose #70848 > inl y =
00:10:44 verbose #70849 > inl n = if x <= 0.51 then 0 else 0.65
00:10:44 verbose #70850 > 0.005 / (0.51 - n) * (x - n)
00:10:44 verbose #70851 > particle_state {
00:10:44 verbose #70852 > default_particle_state' with
00:10:44 verbose #70853 > mass = ball_mass
00:10:44 verbose #70854 > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:10:44 verbose #70855 > velocity = zero_vec ()
00:10:44 verbose #70856 > }
00:10:44 verbose #70857 > )
00:10:44 verbose #70858 > |> multi_particle_state
00:10:44 verbose #70859 >
00:10:44 verbose #70860 > let main () =
00:10:44 verbose #70861 > inl ~frames = listm'.init_series 0 9 1f64
00:10:44 verbose #70862 > inl initial_state = string_initial_overtone 3i32
00:10:44 verbose #70863 > inl frames =
00:10:44 verbose #70864 > frames
00:10:44 verbose #70865 > |> listm.map (fun n =>
00:10:44 verbose #70866 > inl (multi_particle_state sts) =
00:10:44 verbose #70867 > seq.iterate' (string_update 0.000025) initial_state |> fun f =>
00:10:44 verbose #70868 > f 0f64
00:10:44 verbose #70869 > inl rs =
00:10:44 verbose #70870 > [[ zero_vec () ]]
00:10:44 verbose #70871 > /@ (sts |> listm.map (fun (particle_state st) => st.pos_vec))
00:10:44 verbose #70872 > /@ [[ 0.65 *^ i_hat () ]]
00:10:44 verbose #70873 > inl x, y =
00:10:44 verbose #70874 > rs
00:10:44 verbose #70875 > |> listm.map (fun r => r.x, r.y)
00:10:44 verbose #70876 > |> listm'.unzip
00:10:44 verbose #70877 > inl x : a i32 _ = x |> listm.toArray
00:10:44 verbose #70878 > inl y : a i32 _ = y |> listm.toArray
00:10:44 verbose #70879 > x, y
00:10:44 verbose #70880 > )
00:10:44 verbose #70881 > |> listm.toArray : a i32 _
00:10:44 verbose #70882 >
00:10:44 verbose #70883 > inl n = 0i32
00:10:44 verbose #70884 >
00:10:44 verbose #70885 > inl x, y = index frames n
00:10:44 verbose #70886 >
00:10:44 verbose #70887 > "wave",
00:10:44 verbose #70888 > "position (m)",
00:10:44 verbose #70889 > "displacement (m)",
00:10:44 verbose #70890 > ;[[
00:10:44 verbose #70891 > ($"$\"{!n}\"" : string), x, y
00:10:44 verbose #70892 > ]]
00:10:44 verbose #70893 > 00:10:43 debug #812 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/53828f886d316cba56a93d7d2442360bb1f86aa19841636300ad23804fbfab65/main.spi
00:10:44 verbose #70894 >
00:10:44 verbose #70895 > ╭─[ 479.75ms - return value ]──────────────────────────────────────────────────╮
00:10:44 verbose #70896 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:44 verbose #70897 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:44 verbose #70898 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:44 verbose #70899 > │ stroke="none"/> │
00:10:44 verbose #70900 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:44 verbose #70901 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:44 verbose #70902 > │ fill="#FFFFFF"> │
00:10:44 verbose #70903 > │ wave │
00:10:44 verbose #70904 > │ </text> │
00:10:44 verbose #70905 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:10:44 verbose #70906 > │ y2="75"/> │
00:10:44 verbose #70907 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:44 verbose #70908 > │ y2="75"/> │
00:10:44 verbose #70909 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:10:44 verbose #70910 > │ y2="75"/> │
00:10:44 verbose #70911 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:10:44 verbose #70912 > │ y2="75"/> │
00:10:44 verbose #70913 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:10:44 verbose #70914 > │ y2... │
00:10:44 verbose #70915 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:44 verbose #70916 >
00:10:44 verbose #70917 > ╭─[ 488.39ms - stdout ]────────────────────────────────────────────────────────╮
00:10:44 verbose #70918 > │ type UH0 = │
00:10:44 verbose #70919 > │ | UH0_0 │
00:10:44 verbose #70920 > │ | UH0_1 of float * UH0 │
00:10:44 verbose #70921 > │ and UH1 = │
00:10:44 verbose #70922 > │ | UH1_0 │
00:10:44 verbose #70923 > │ | UH1_1 of (float []) * (float []) * UH1 │
00:10:44 verbose #70924 > │ let rec method3 (v0 : UH0, v1 : int32) : int32 = │
00:10:44 verbose #70925 > │ match v0 with │
00:10:44 verbose #70926 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:10:44 verbose #70927 > │ let v4 : int32 = v1 + 1 │
00:10:44 verbose #70928 > │ method3(v3, v4) │
00:10:44 verbose #70929 > │ | UH0_0 -> (* Nil *) │
00:10:44 verbose #70930 > │ v1 │
00:10:44 verbose #70931 > │ and method4 (v0 : (float []), v1 : UH0, v2 : int32) : int32 = │
00:10:44 verbose #70932 > │ match v1 with │
00:10:44 verbose #70933 > │ | UH0_1(v3, v4) -> (* Cons *) │
00:10:44 verbose #70934 > │ v0.[int v2] <- v3 │
00:10:44 verbose #70935 > │ let v5 : int32 = v2 + 1 │
00:10:44 verbose #70936 > │ method4(v0, v4, v5) │
00:10:44 verbose #70937 > │ | UH0_0 -> (* Nil *) │
00:10:44 verbose #70938 > │ v2 │
00:10:44 verbose #70939 > │ and method2 (v0 : UH0) : (float []) = │
00:10:44 verbose #70940 > │ let v1 : int32 = 0 │
00:10:44 verbose #70941 > │ let v2 : int32 = method3(v0, v1) │
00:10:44 verbose #70942 > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:10:44 verbose #70943 > │ let v4 : int32 = 0 │
00:10:44 verbose #70944 > │ let v5 : int32 = method4(v3, v0, v4) │
00:10:44 verbose #70945 > │ v3 │
00:10:44 verbose #70946 > │ and method1 (v0 : UH0, v1 : UH1) : UH1 = │
00:10:44 verbose #70947 > │ match v0 with │
00:10:44 verbose #70948 > │ | UH0_1(v2, v3) -> (* Cons *) │
00:10:44 verbose #70949 > │ let v4 : UH1 = method1(v3, v1) │
00:10:44 verbose #70950 > │ let v5 : float = 0.0 │
00:10:44 verbose #70951 > │ let v6 : float = 0.01 │
00:10:44 verbose #70952 > │ let v7 : float = 0.02 │
00:10:44 verbose #70953 > │ let v8 : float = 0.03 │
00:10:44 verbose #70954 > │ let v9 : float = 0.04 │
00:10:44 verbose #70955 > │ let v10 : float = 0.05 │
00:10:44 verbose #70956 > │ let v11 : float = 0.060000000000000005 │
00:10:44 verbose #70957 > │ let v12 : float = 0.06999999999999999 │
00:10:44 verbose #70958 > │ let v13 : float = 0.08 │
00:10:44 verbose #70959 > │ let v14 : float = 0.09 │
00:10:44 verbose #70960 > │ let v15 : float = 0.09999999999999999 │
00:10:44 verbose #70961 > │ let v16 : float = 0.11 │
00:10:44 verbose #70962 > │ let v17 : float = 0.12 │
00:10:44 verbose #70963 > │ let v18 : float = 0.13 │
00:10:44 verbose #70964 > │ let v19 : float = 0.14 │
00:10:44 verbose #70965 > │ let v20 : float = 0.15000000000000002 │
00:10:44 verbose #70966 > │ let v21 : float = 0.16 │
00:10:44 verbose #70967 > │ let v22 : float = 0.17 │
00:10:44 verbose #70968 > │ let v23 : float = 0.18000000000000002 │
00:10:44 verbose #70969 > │ let v24 : float = 0.19 │
00:10:44 verbose #70970 > │ let v25 : float = 0.2 │
00:10:44 verbose #70971 > │ let v26 : float = 0.21000000000000002 │
00:10:44 verbose #70972 > │ let v27 : float = 0.22 │
00:10:44 verbose #70973 > │ let v28 : float = 0.23 │
00:10:44 verbose #70974 > │ let v29 : float = 0.24000000000000002 │
00:10:44 verbose #70975 > │ let v30 : float = 0.25 │
00:10:44 verbose #70976 > │ let v31 : float = 0.26 │
00:10:44 verbose #70977 > │ let v32 : float = 0.27 │
00:10:44 verbose #70978 > │ let v33 : float = 0.28 │
00:10:44 verbose #70979 > │ let v34 : float = 0.29000000000000004 │
00:10:44 verbose #70980 > │ let v35 : float = 0.3 │
00:10:44 verbose #70981 > │ let v36 : float = 0.31 │
00:10:44 verbose #70982 > │ let v37 : float = 0.32 │
00:10:44 verbose #70983 > │ let v38 : float = 0.33 │
00:10:44 verbose #70984 > │ let v39 : float = 0.34 │
00:10:44 verbose #70985 > │ let v40 : float = 0.35000000000000003 │
00:10:44 verbose #70986 > │ let v41 : float = 0.36000000000000004 │
00:10:44 verbose #70987 > │ let v42 : float = 0.37 │
00:10:44 verbose #70988 > │ let v43 : float = 0.38 │
00:10:44 verbose #70989 > │ let v44 : float = 0.39 │
00:10:44 verbose #70990 > │ let v45 : float = 0.4 │
00:10:44 verbose #70991 > │ let v46 : float = 0.41000000000000003 │
00:10:44 verbose #70992 > │ let v47 : float = 0.42000000000000004 │
00:10:44 verbose #70993 > │ let v48 : float = 0.43 │
00:10:44 verbose #70994 > │ let v49 : float = 0.44 │
00:10:44 verbose #70995 > │ let v50 : float = 0.45 │
00:10:44 verbose #70996 > │ let v51 : float = 0.46 │
00:10:44 verbose #70997 > │ let v52 : float = 0.47000000000000003 │
00:10:44 verbose #70998 > │ let v53 : float = 0.48000000000000004 │
00:10:44 verbose #70999 > │ let v54 : float = 0.49 │
00:10:44 verbose #71000 > │ let v55 : float = 0.5 │
00:10:44 verbose #71001 > │ let v56 : float = 0.51 │
00:10:44 verbose #71002 > │ let v57 : float = 0.52 │
00:10:44 verbose #71003 > │ let v58 : float = 0.53 │
00:10:44 verbose #71004 > │ let v59 : float = 0.54 │
00:10:44 verbose #71005 > │ let v60 : float = 0.55 │
00:10:44 verbose #71006 > │ let v61 : float = 0.56 │
00:10:44 verbose #71007 > │ let v62 : float = 0.5700000000000001 │
00:10:44 verbose #71008 > │ let v63 : float = 0.5800000000000001 │
00:10:44 verbose #71009 > │ let v64 : float = 0.59 │
00:10:44 verbose #71010 > │ let v65 : float = 0.6 │
00:10:44 verbose #71011 > │ let v66 : float = 0.61 │
00:10:44 verbose #71012 > │ let v67 : float = 0.62 │
00:10:44 verbose #71013 > │ let v68 : float = 0.63 │
00:10:44 verbose #71014 > │ let v69 : float = 0.64 │
00:10:44 verbose #71015 > │ let v70 : float = 0.65 │
00:10:44 verbose #71016 > │ let v71 : UH0 = UH0_0 │
00:10:44 verbose #71017 > │ let v72 : UH0 = UH0_1(v70, v71) │
00:10:44 verbose #71018 > │ let v73 : UH0 = UH0_1(v69, v72) │
00:10:44 verbose #71019 > │ let v74 : UH0 = UH0_1(v68, v73) │
00:10:44 verbose #71020 > │ let v75 : UH0 = UH0_1(v67, v74) │
00:10:44 verbose #71021 > │ let v76 : UH0 = UH0_1(v66, v75) │
00:10:44 verbose #71022 > │ let v77 : UH0 = UH0_1(v65, v76) │
00:10:44 verbose #71023 > │ let v78 : UH0 = UH0_1(v64, v77) │
00:10:44 verbose #71024 > │ let v79 : UH0 = UH0_1(v63, v78) │
00:10:44 verbose #71025 > │ let v80 : UH0 = UH0_1(v62, v79) │
00:10:44 verbose #71026 > │ let v81 : UH0 = UH0_1(v61, v80) │
00:10:44 verbose #71027 > │ let v82 : UH0 = UH0_1(v60, v81) │
00:10:44 verbose #71028 > │ let v83 : UH0 = UH0_1(v59, v82) │
00:10:44 verbose #71029 > │ let v84 : UH0 = UH0_1(v58, v83) │
00:10:44 verbose #71030 > │ let v85 : UH0 = UH0_1(v57, v84) │
00:10:44 verbose #71031 > │ let v86 : UH0 = UH0_1(v56, v85) │
00:10:44 verbose #71032 > │ let v87 : UH0 = UH0_1(v55, v86) │
00:10:44 verbose #71033 > │ let v88 : UH0 = UH0_1(v54, v87) │
00:10:44 verbose #71034 > │ let v89 : UH0 = UH0_1(v53, v88) │
00:10:44 verbose #71035 > │ let v90 : UH0 = UH0_1(v52, v89) │
00:10:44 verbose #71036 > │ let v91 : UH0 = UH0_1(v51, v90) │
00:10:44 verbose #71037 > │ let v92 : UH0 = UH0_1(v50, v91) │
00:10:44 verbose #71038 > │ let v93 : UH0 = UH0_1(v49, v92) │
00:10:44 verbose #71039 > │ let v94 : UH0 = UH0_1(v48, v93) │
00:10:44 verbose #71040 > │ let v95 : UH0 = UH0_1(v47, v94) │
00:10:44 verbose #71041 > │ let v96 : UH0 = UH0_1(v46, v95) │
00:10:44 verbose #71042 > │ let v97 : UH0 = UH0_1(v45, v96) │
00:10:44 verbose #71043 > │ let v98 : UH0 = UH0_1(v44, v97) │
00:10:44 verbose #71044 > │ let v99 : UH0 = UH0_1(v43, v98) │
00:10:44 verbose #71045 > │ let v100 : UH0 = UH0_1(v42, v99) │
00:10:44 verbose #71046 > │ let v101 : UH0 = UH0_1(v41, v100) │
00:10:44 verbose #71047 > │ let v102 : UH0 = UH0_1(v40, v101) │
00:10:44 verbose #71048 > │ let v103 : UH0 = UH0_1(v39, v102) │
00:10:44 verbose #71049 > │ let v104 : UH0 = UH0_1(v38, v103) │
00:10:44 verbose #71050 > │ let v105 : UH0 = UH0_1(v37, v104) │
00:10:44 verbose #71051 > │ let v106 : UH0 = UH0_1(v36, v105) │
00:10:44 verbose #71052 > │ let v107 : UH0 = UH0_1(v35, v106) │
00:10:44 verbose #71053 > │ let v108 : UH0 = UH0_1(v34, v107) │
00:10:44 verbose #71054 > │ let v109 : UH0 = UH0_1(v33, v108) │
00:10:44 verbose #71055 > │ let v110 : UH0 = UH0_1(v32, v109) │
00:10:44 verbose #71056 > │ let v111 : UH0 = UH0_1(v31, v110) │
00:10:44 verbose #71057 > │ let v112 : UH0 = UH0_1(v30, v111) │
00:10:44 verbose #71058 > │ let v113 : UH0 = UH0_1(v29, v112) │
00:10:44 verbose #71059 > │ let v114 : UH0 = UH0_1(v28, v113) │
00:10:44 verbose #71060 > │ let v115 : UH0 = UH0_1(v27, v114) │
00:10:44 verbose #71061 > │ let v116 : UH0 = UH0_1(v26, v115) │
00:10:44 verbose #71062 > │ let v117 : UH0 = UH0_1(v25, v116) │
00:10:44 verbose #71063 > │ let v118 : UH0 = UH0_1(v24, v117) │
00:10:44 verbose #71064 > │ let v119 : UH0 = UH0_1(v23, v118) │
00:10:44 verbose #71065 > │ let v120 : UH0 = UH0_1(v22, v119) │
00:10:44 verbose #71066 > │ let v121 : UH0 = UH0_1(v21, v120) │
00:10:44 verbose #71067 > │ let v122 : UH0 = UH0_1(v20, v121) │
00:10:44 verbose #71068 > │ let v123 : UH0 = UH0_1(v19, v122) │
00:10:44 verbose #71069 > │ let v124 : UH0 = UH0_1(v18, v123) │
00:10:44 verbose #71070 > │ let v125 : UH0 = UH0_1(v17, v124) │
00:10:44 verbose #71071 > │ let v126 : UH0 = UH0_1(v16, v125) │
00:10:44 verbose #71072 > │ let v127 : UH0 = UH0_1(v15, v126) │
00:10:44 verbose #71073 > │ let v128 : UH0 = UH0_1(v14, v127) │
00:10:44 verbose #71074 > │ let v129 : UH0 = UH0_1(v13, v128) │
00:10:44 verbose #71075 > │ let v130 : UH0 = UH0_1(v12, v129) │
00:10:44 verbose #71076 > │ let v131 : UH0 = UH0_1(v11, v130) │
00:10:44 verbose #71077 > │ let v132 : UH0 = UH0_1(v10, v131) │
00:10:44 verbose #71078 > │ let v133 : UH0 = UH0_1(v9, v132) │
00:10:44 verbose #71079 > │ let v134 : UH0 = UH0_1(v8, v133) │
00:10:44 verbose #71080 > │ let v135 : UH0 = UH0_1(v7, v134) │
00:10:44 verbose #71081 > │ let v136 : UH0 = UH0_1(v6, v135) │
00:10:44 verbose #71082 > │ let v137 : UH0 = UH0_1(v5, v136) │
00:10:44 verbose #71083 > │ let v138 : (float []) = method2(v137) │
00:10:44 verbose #71084 > │ let v139 : float = 0.0 │
00:10:44 verbose #71085 > │ let v140 : float = 0.0007224452478461068 │
00:10:44 verbose #71086 > │ let v141 : float = 0.0014297283919934465 │
00:10:44 verbose #71087 > │ let v142 : float = 0.0021070055388626454 │
00:10:44 verbose #71088 > │ let v143 : float = 0.00274006253677335 │
00:10:44 verbose #71089 > │ let v144 : float = 0.0033156132912039757 │
00:10:44 verbose #71090 > │ let v145 : float = 0.0038215786027292415 │
00:10:44 verbose #71091 > │ let v146 : float = 0.004247339675607605 │
00:10:44 verbose #71092 > │ let v147 : float = 0.004583960976582912 │
00:10:44 verbose #71093 > │ let v148 : float = 0.004824377766717757 │
00:10:44 verbose #71094 > │ let v149 : float = 0.00496354437049027 │
00:10:44 verbose #71095 > │ let v150 : float = 0.004998540070400965 │
00:10:44 verbose #71096 > │ let v151 : float = 0.004928630404658255 │
00:10:44 verbose #71097 > │ let v152 : float = 0.004755282581475768 │
00:10:44 verbose #71098 > │ let v153 : float = 0.004482134686478519 │
00:10:44 verbose #71099 > │ let v154 : float = 0.0041149193294682815 │
00:10:44 verbose #71100 > │ let v155 : float = 0.0036613433329888666 │
00:10:44 verbose #71101 > │ let v156 : float = 0.0031309259876915697 │
00:10:44 verbose #71102 > │ let v157 : float = 0.002534799269067951 │
00:10:44 verbose #71103 > │ let v158 : float = 0.0018854742084416015 │
00:10:44 verbose #71104 > │ let v159 : float = 0.0011965783214377905 │
00:10:44 verbose #71105 > │ let v160 : float = 0.00048256960457257535 │
00:10:44 verbose #71106 > │ let v161 : float = -0.00024156689762753317 │
00:10:44 verbose #71107 > │ let v162 : float = -0.0009606335867685418 │
00:10:44 verbose #71108 > │ let v163 : float = -0.001659539265642642 │
00:10:44 verbose #71109 > │ let v164 : float = -0.002323615860218842 │
00:10:44 verbose #71110 > │ let v165 : float = -0.0029389262614623636 │
00:10:44 verbose #71111 > │ let v166 : float = -0.003492556826244686 │
00:10:44 verbose #71112 > │ let v167 : float = -0.003972888398568771 │
00:10:44 verbose #71113 > │ let v168 : float = -0.00436984016313259 │
00:10:44 verbose #71114 > │ let v169 : float = -0.004675081213427074 │
00:10:44 verbose #71115 > │ let v170 : float = -0.004882205394146359 │
00:10:44 verbose #71116 > │ let v171 : float = -0.004986865748457456 │
00:10:44 verbose #71117 > │ let v172 : float = -0.004986865748457456 │
00:10:44 verbose #71118 > │ let v173 : float = -0.004882205394146361 │
00:10:44 verbose #71119 > │ let v174 : float = -0.004675081213427074 │
00:10:44 verbose #71120 > │ let v175 : float = -0.004369840163132589 │
00:10:44 verbose #71121 > │ let v176 : float = -0.003972888398568774 │
00:10:44 verbose #71122 > │ let v177 : float = -0.0034925568262446837 │
00:10:44 verbose #71123 > │ let v178 : float = -0.002938926261462367 │
00:10:44 verbose #71124 > │ let v179 : float = -0.002323615860218846 │
00:10:44 verbose #71125 > │ let v180 : float = -0.0016595392656426435 │
00:10:44 verbose #71126 > │ let v181 : float = -0.0009606335867685414 │
00:10:44 verbose #71127 > │ let v182 : float = -0.00024156689762753724 │
00:10:44 verbose #71128 > │ let v183 : float = 0.0004825696045725713 │
00:10:44 verbose #71129 > │ let v184 : float = 0.0011965783214377866 │
00:10:44 verbose #71130 > │ let v185 : float = 0.0018854742084416021 │
00:10:44 verbose #71131 > │ let v186 : float = 0.002534799269067953 │
00:10:44 verbose #71132 > │ let v187 : float = 0.003130925987691568 │
00:10:44 verbose #71133 > │ let v188 : float = 0.0036613433329888622 │
00:10:44 verbose #71134 > │ let v189 : float = 0.0041149193294682815 │
00:10:44 verbose #71135 > │ let v190 : float = 0.0044821346864785195 │
00:10:44 verbose #71136 > │ let v191 : float = 0.004755282581475766 │
00:10:44 verbose #71137 > │ let v192 : float = 0.004928630404658255 │
00:10:44 verbose #71138 > │ let v193 : float = 0.004998540070400965 │
00:10:44 verbose #71139 > │ let v194 : float = 0.004963544370490271 │
00:10:44 verbose #71140 > │ let v195 : float = 0.004824377766717758 │
00:10:44 verbose #71141 > │ let v196 : float = 0.004583960976582912 │
00:10:44 verbose #71142 > │ let v197 : float = 0.004247339675607605 │
00:10:44 verbose #71143 > │ let v198 : float = 0.003821578602729245 │
00:10:44 verbose #71144 > │ let v199 : float = 0.0033156132912039783 │
00:10:44 verbose #71145 > │ let v200 : float = 0.0027400625367733585 │
00:10:44 verbose #71146 > │ let v201 : float = 0.0021070055388626528 │
00:10:44 verbose #71147 > │ let v202 : float = 0.001429728391993452 │
00:10:44 verbose #71148 > │ let v203 : float = 0.0007224452478461016 │
00:10:44 verbose #71149 > │ let v204 : float = 0.0 │
00:10:44 verbose #71150 > │ let v205 : UH0 = UH0_0 │
00:10:44 verbose #71151 > │ let v206 : UH0 = UH0_1(v204, v205) │
00:10:44 verbose #71152 > │ let v207 : UH0 = UH0_1(v203, v206) │
00:10:44 verbose #71153 > │ let v208 : UH0 = UH0_1(v202, v207) │
00:10:44 verbose #71154 > │ let v209 : UH0 = UH0_1(v201, v208) │
00:10:44 verbose #71155 > │ let v210 : UH0 = UH0_1(v200, v209) │
00:10:44 verbose #71156 > │ let v211 : UH0 = UH0_1(v199, v210) │
00:10:44 verbose #71157 > │ let v212 : UH0 = UH0_1(v198, v211) │
00:10:44 verbose #71158 > │ let v213 : UH0 = UH0_1(v197, v212) │
00:10:44 verbose #71159 > │ let v214 : UH0 = UH0_1(v196, v213) │
00:10:44 verbose #71160 > │ let v215 : UH0 = UH0_1(v195, v214) │
00:10:44 verbose #71161 > │ let v216 : UH0 = UH0_1(v194, v215) │
00:10:44 verbose #71162 > │ let v217 : UH0 = UH0_1(v193, v216) │
00:10:44 verbose #71163 > │ let v218 : UH0 = UH0_1(v192, v217) │
00:10:44 verbose #71164 > │ let v219 : UH0 = UH0_1(v191, v218) │
00:10:44 verbose #71165 > │ let v220 : UH0 = UH0_1(v190, v219) │
00:10:44 verbose #71166 > │ let v221 : UH0 = UH0_1(v189, v220) │
00:10:44 verbose #71167 > │ let v222 : UH0 = UH0_1(v188, v221) │
00:10:44 verbose #71168 > │ let v223 : UH0 = UH0_1(v187, v222) │
00:10:44 verbose #71169 > │ let v224 : UH0 = UH0_1(v186, v223) │
00:10:44 verbose #71170 > │ let v225 : UH0 = UH0_1(v185, v224) │
00:10:44 verbose #71171 > │ let v226 : UH0 = UH0_1(v184, v225) │
00:10:44 verbose #71172 > │ let v227 : UH0 = UH0_1(v183, v226) │
00:10:44 verbose #71173 > │ let v228 : UH0 = UH0_1(v182, v227) │
00:10:44 verbose #71174 > │ let v229 : UH0 = UH0_1(v181, v228) │
00:10:44 verbose #71175 > │ let v230 : UH0 = UH0_1(v180, v229) │
00:10:44 verbose #71176 > │ let v231 : UH0 = UH0_1(v179, v230) │
00:10:44 verbose #71177 > │ let v232 : UH0 = UH0_1(v178, v231) │
00:10:44 verbose #71178 > │ let v233 : UH0 = UH0_1(v177, v232) │
00:10:44 verbose #71179 > │ let v234 : UH0 = UH0_1(v176, v233) │
00:10:44 verbose #71180 > │ let v235 : UH0 = UH0_1(v175, v234) │
00:10:44 verbose #71181 > │ let v236 : UH0 = UH0_1(v174, v235) │
00:10:44 verbose #71182 > │ let v237 : UH0 = UH0_1(v173, v236) │
00:10:44 verbose #71183 > │ let v238 : UH0 = UH0_1(v172, v237) │
00:10:44 verbose #71184 > │ let v239 : UH0 = UH0_1(v171, v238) │
00:10:44 verbose #71185 > │ let v240 : UH0 = UH0_1(v170, v239) │
00:10:44 verbose #71186 > │ let v241 : UH0 = UH0_1(v169, v240) │
00:10:44 verbose #71187 > │ let v242 : UH0 = UH0_1(v168, v241) │
00:10:44 verbose #71188 > │ let v243 : UH0 = UH0_1(v167, v242) │
00:10:44 verbose #71189 > │ let v244 : UH0 = UH0_1(v166, v243) │
00:10:44 verbose #71190 > │ let v245 : UH0 = UH0_1(v165, v244) │
00:10:44 verbose #71191 > │ let v246 : UH0 = UH0_1(v164, v245) │
00:10:44 verbose #71192 > │ let v247 : UH0 = UH0_1(v163, v246) │
00:10:44 verbose #71193 > │ let v248 : UH0 = UH0_1(v162, v247) │
00:10:44 verbose #71194 > │ let v249 : UH0 = UH0_1(v161, v248) │
00:10:44 verbose #71195 > │ let v250 : UH0 = UH0_1(v160, v249) │
00:10:44 verbose #71196 > │ let v251 : UH0 = UH0_1(v159, v250) │
00:10:44 verbose #71197 > │ let v252 : UH0 = UH0_1(v158, v251) │
00:10:44 verbose #71198 > │ let v253 : UH0 = UH0_1(v157, v252) │
00:10:44 verbose #71199 > │ let v254 : UH0 = UH0_1(v156, v253) │
00:10:44 verbose #71200 > │ let v255 : UH0 = UH0_1(v155, v254) │
00:10:44 verbose #71201 > │ let v256 : UH0 = UH0_1(v154, v255) │
00:10:44 verbose #71202 > │ let v257 : UH0 = UH0_1(v153, v256) │
00:10:44 verbose #71203 > │ let v258 : UH0 = UH0_1(v152, v257) │
00:10:44 verbose #71204 > │ let v259 : UH0 = UH0_1(v151, v258) │
00:10:44 verbose #71205 > │ let v260 : UH0 = UH0_1(v150, v259) │
00:10:44 verbose #71206 > │ let v261 : UH0 = UH0_1(v149, v260) │
00:10:44 verbose #71207 > │ let v262 : UH0 = UH0_1(v148, v261) │
00:10:44 verbose #71208 > │ let v263 : UH0 = UH0_1(v147, v262) │
00:10:44 verbose #71209 > │ let v264 : UH0 = UH0_1(v146, v263) │
00:10:44 verbose #71210 > │ let v265 : UH0 = UH0_1(v145, v264) │
00:10:44 verbose #71211 > │ let v266 : UH0 = UH0_1(v144, v265) │
00:10:44 verbose #71212 > │ let v267 : UH0 = UH0_1(v143, v266) │
00:10:44 verbose #71213 > │ let v268 : UH0 = UH0_1(v142, v267) │
00:10:44 verbose #71214 > │ let v269 : UH0 = UH0_1(v141, v268) │
00:10:44 verbose #71215 > │ let v270 : UH0 = UH0_1(v140, v269) │
00:10:44 verbose #71216 > │ let v271 : UH0 = UH0_1(v139, v270) │
00:10:44 verbose #71217 > │ let v272 : (float []) = method2(v271) │
00:10:44 verbose #71218 > │ UH1_1(v138, v272, v4) │
00:10:44 verbose #71219 > │ | UH0_0 -> (* Nil *) │
00:10:44 verbose #71220 > │ v1 │
00:10:44 verbose #71221 > │ and method6 (v0 : UH1, v1 : int32) : int32 = │
00:10:44 verbose #71222 > │ match v0 with │
00:10:44 verbose #71223 > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:10:44 verbose #71224 > │ let v5 : int32 = v1 + 1 │
00:10:44 verbose #71225 > │ method6(v4, v5) │
00:10:44 verbose #71226 > │ | UH1_0 -> (* Nil *) │
00:10:44 verbose #71227 > │ v1 │
00:10:44 verbose #71228 > │ and method7 (v0 : (struct ((float []) * (float [])) []), v1 : UH1, v2 : │
00:10:44 verbose #71229 > │ int32) : int32 = │
00:10:44 verbose #71230 > │ match v1 with │
00:10:44 verbose #71231 > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:10:44 verbose #71232 > │ v0.[int v2] <- struct (v3, v4) │
00:10:44 verbose #71233 > │ let v6 : int32 = v2 + 1 │
00:10:44 verbose #71234 > │ method7(v0, v5, v6) │
00:10:44 verbose #71235 > │ | UH1_0 -> (* Nil *) │
00:10:44 verbose #71236 > │ v2 │
00:10:44 verbose #71237 > │ and method5 (v0 : UH1) : (struct ((float []) * (float [])) []) = │
00:10:44 verbose #71238 > │ let v1 : int32 = 0 │
00:10:44 verbose #71239 > │ let v2 : int32 = method6(v0, v1) │
00:10:44 verbose #71240 > │ let v3 : (struct ((float []) * (float [])) []) = Array.zeroCreate<struct │
00:10:44 verbose #71241 > │ ((float []) * (float []))> (v2) │
00:10:44 verbose #71242 > │ let v4 : int32 = 0 │
00:10:44 verbose #71243 > │ let v5 : int32 = method7(v3, v0, v4) │
00:10:44 verbose #71244 > │ v3 │
00:10:44 verbose #71245 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:44 verbose #71246 > │ []) * (float [])) [])) = │
00:10:44 verbose #71247 > │ let v0 : float = 0.0 │
00:10:44 verbose #71248 > │ let v1 : float = 1.0 │
00:10:44 verbose #71249 > │ let v2 : float = 2.0 │
00:10:44 verbose #71250 > │ let v3 : float = 3.0 │
00:10:44 verbose #71251 > │ let v4 : float = 4.0 │
00:10:44 verbose #71252 > │ let v5 : float = 5.0 │
00:10:44 verbose #71253 > │ let v6 : float = 6.0 │
00:10:44 verbose #71254 > │ let v7 : float = 7.0 │
00:10:44 verbose #71255 > │ let v8 : float = 8.0 │
00:10:44 verbose #71256 > │ let v9 : float = 9.0 │
00:10:44 verbose #71257 > │ let v10 : UH0 = UH0_0 │
00:10:44 verbose #71258 > │ let v11 : UH0 = UH0_1(v9, v10) │
00:10:44 verbose #71259 > │ let v12 : UH0 = UH0_1(v8, v11) │
00:10:44 verbose #71260 > │ let v13 : UH0 = UH0_1(v7, v12) │
00:10:44 verbose #71261 > │ let v14 : UH0 = UH0_1(v6, v13) │
00:10:44 verbose #71262 > │ let v15 : UH0 = UH0_1(v5, v14) │
00:10:44 verbose #71263 > │ let v16 : UH0 = UH0_1(v4, v15) │
00:10:44 verbose #71264 > │ let v17 : UH0 = UH0_1(v3, v16) │
00:10:44 verbose #71265 > │ let v18 : UH0 = UH0_1(v2, v17) │
00:10:44 verbose #71266 > │ let v19 : UH0 = UH0_1(v1, v18) │
00:10:44 verbose #71267 > │ let v20 : UH0 = UH0_1(v0, v19) │
00:10:44 verbose #71268 > │ let v21 : UH1 = UH1_0 │
00:10:44 verbose #71269 > │ let v22 : UH1 = method1(v20, v21) │
00:10:44 verbose #71270 > │ let v23 : (struct ((float []) * (float [])) []) = method5(v22) │
00:10:44 verbose #71271 > │ let struct (v24 : (float []), v25 : (float [])) = v23.[int 0] │
00:10:44 verbose #71272 > │ let v26 : string = $"{0}" │
00:10:44 verbose #71273 > │ let v27 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:44 verbose #71274 > │ (v26, v24, v25)|] │
00:10:44 verbose #71275 > │ let v28 : string = "wave" │
00:10:44 verbose #71276 > │ let v29 : string = "position (m)" │
00:10:44 verbose #71277 > │ let v30 : string = "displacement (m)" │
00:10:44 verbose #71278 > │ struct (v28, v29, v30, v27) │
00:10:44 verbose #71279 > │ method0() │
00:10:44 verbose #71280 > │ │
00:10:44 verbose #71281 > │ │
00:10:44 verbose #71282 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:44 verbose #71283 >
00:10:44 verbose #71284 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:44 verbose #71285 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:44 verbose #71286 > │ ### system kinetic energy versus time 2 │
00:10:44 verbose #71287 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:44 verbose #71288 >
00:10:44 verbose #71289 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:44 verbose #71290 > // // test
00:10:44 verbose #71291 >
00:10:44 verbose #71292 > inl central_force f (particle_state st1) (particle_state st2) =
00:10:44 verbose #71293 > inl r1 = st1.pos_vec
00:10:44 verbose #71294 > inl r2 = st2.pos_vec
00:10:44 verbose #71295 > inl r21 = r2 ^-^ r1
00:10:44 verbose #71296 > inl r21mag = magnitude r21
00:10:44 verbose #71297 > f r21mag *^ r21 ^/ r21mag
00:10:44 verbose #71298 >
00:10:44 verbose #71299 > inl billiard_force k re =
00:10:44 verbose #71300 > inl f r =
00:10:44 verbose #71301 > if r >= re
00:10:44 verbose #71302 > then 0
00:10:44 verbose #71303 > else -k * (r - re)
00:10:44 verbose #71304 > central_force f
00:10:44 verbose #71305 >
00:10:44 verbose #71306 > type force_vector = vec
00:10:44 verbose #71307 > type two_body_force = particle_state -> particle_state -> force_vector
00:10:44 verbose #71308 >
00:10:44 verbose #71309 > union force t =
00:10:44 verbose #71310 > | ExternalForce : t * one_body_force
00:10:44 verbose #71311 > | InternalForce : t * t * two_body_force
00:10:44 verbose #71312 >
00:10:44 verbose #71313 > nominal multi_particle_state = stream.stream particle_state
00:10:44 verbose #71314 >
00:10:44 verbose #71315 > nominal d_multi_particle_state = stream.stream d_particle_state
00:10:44 verbose #71316 >
00:10:44 verbose #71317 > inl force_on n s force =
00:10:44 verbose #71318 > match force with
00:10:44 verbose #71319 > | ExternalForce (n0, f_one_body) =>
00:10:44 verbose #71320 > if n = n0
00:10:44 verbose #71321 > then f_one_body
00:10:44 verbose #71322 > else fun _ => zero_vec ()
00:10:44 verbose #71323 > | InternalForce (n0, n1, f_two_body) =>
00:10:44 verbose #71324 > if n = n0
00:10:44 verbose #71325 > then s |> stream.try_item n1 |> optionm.map f_two_body
00:10:44 verbose #71326 > elif n = n1
00:10:44 verbose #71327 > then s |> stream.try_item n0 |> optionm.map f_two_body
00:10:44 verbose #71328 > else None
00:10:44 verbose #71329 > |> optionm'.default_value (fun _ => zero_vec ())
00:10:44 verbose #71330 >
00:10:44 verbose #71331 > inl forces_on n (multi_particle_state sts) fs =
00:10:44 verbose #71332 > fs
00:10:44 verbose #71333 > |> listm.map (force_on n sts)
00:10:44 verbose #71334 >
00:10:44 verbose #71335 > inl newton_second_mps fs ((multi_particle_state sts) as mpst) =
00:10:44 verbose #71336 > inl deriv (n, st) =
00:10:44 verbose #71337 > newton_second_ps (forces_on n mpst fs) st
00:10:44 verbose #71338 > sts |> stream.indexed |> stream.map deriv |> d_multi_particle_state
00:10:44 verbose #71339 >
00:10:44 verbose #71340 > instance (+++) d_multi_particle_state =
00:10:44 verbose #71341 > fun (d_multi_particle_state dsts1) (d_multi_particle_state dsts2) =>
00:10:44 verbose #71342 > (dsts1, dsts2)
00:10:44 verbose #71343 > ||> stream.zip_with (+++)
00:10:44 verbose #71344 > |> d_multi_particle_state
00:10:44 verbose #71345 >
00:10:44 verbose #71346 > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:10:44 verbose #71347 > dsts
00:10:44 verbose #71348 > |> stream.map (scale w)
00:10:44 verbose #71349 > |> d_multi_particle_state
00:10:44 verbose #71350 >
00:10:44 verbose #71351 > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:10:44 verbose #71352 > inl (d_multi_particle_state dsts) =
00:10:44 verbose #71353 > real
00:10:44 verbose #71354 > match dsts with
00:10:44 verbose #71355 > | d_multi_particle_state _ => dsts
00:10:44 verbose #71356 > (dsts, sts)
00:10:44 verbose #71357 > ||> stream.zip_with (shift dt)
00:10:44 verbose #71358 > |> stream.memoize
00:10:44 verbose #71359 > |> fun x => x ()
00:10:44 verbose #71360 > |> multi_particle_state
00:10:44 verbose #71361 >
00:10:44 verbose #71362 > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:10:44 verbose #71363 > d_multi_particle_state =
00:10:44 verbose #71364 > fun deriv ((multi_particle_state sts0) as mpst0) =>
00:10:44 verbose #71365 > inl (multi_particle_state sts1) = euler dt deriv mpst0
00:10:44 verbose #71366 > (sts0, sts1)
00:10:44 verbose #71367 > ||> stream.zip
00:10:44 verbose #71368 > |> stream.map (fun ((particle_state st0), (particle_state st1)) =>
00:10:44 verbose #71369 > particle_state {
00:10:44 verbose #71370 > st1 with
00:10:44 verbose #71371 > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:10:44 verbose #71372 > }
00:10:44 verbose #71373 > )
00:10:44 verbose #71374 > |> multi_particle_state
00:10:44 verbose #71375 >
00:10:44 verbose #71376 > inl update_mps (method : numerical_method multi_particle_state
00:10:44 verbose #71377 > d_multi_particle_state) =
00:10:44 verbose #71378 > newton_second_mps >> method
00:10:44 verbose #71379 >
00:10:44 verbose #71380 > inl states_mps (method : numerical_method multi_particle_state
00:10:44 verbose #71381 > d_multi_particle_state) =
00:10:44 verbose #71382 > newton_second_mps
00:10:44 verbose #71383 > >> method
00:10:44 verbose #71384 > >> (fun x (multi_particle_state y) =>
00:10:44 verbose #71385 > y
00:10:44 verbose #71386 > |> stream.memoize
00:10:44 verbose #71387 > |> (fun x => x ())
00:10:44 verbose #71388 > |> multi_particle_state |> x
00:10:44 verbose #71389 > )
00:10:44 verbose #71390 > // >> stream.iterate
00:10:44 verbose #71391 > >> seq.iterate'
00:10:44 verbose #71392 >
00:10:44 verbose #71393 > inl kinetic_energy (particle_state st) =
00:10:44 verbose #71394 > inl m = st.mass
00:10:44 verbose #71395 > inl v = magnitude st.velocity
00:10:44 verbose #71396 > 0.5 * m * v ** 2
00:10:44 verbose #71397 >
00:10:44 verbose #71398 > inl system_ke (multi_particle_state sts) =
00:10:44 verbose #71399 > sts
00:10:44 verbose #71400 > |> stream.map kinetic_energy
00:10:44 verbose #71401 > |> stream.sum
00:10:44 verbose #71402 >
00:10:44 verbose #71403 > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:10:44 verbose #71404 > inl r1 = st1.pos_vec
00:10:44 verbose #71405 > inl r2 = st2.pos_vec
00:10:44 verbose #71406 > inl r21 = r2 ^-^ r1
00:10:44 verbose #71407 > inl r21mag = magnitude r21
00:10:44 verbose #71408 > k * (r21mag - re) ** 2 / 2
00:10:44 verbose #71409 >
00:10:44 verbose #71410 > inl earth_surface_gravity_pe (particle_state st) =
00:10:44 verbose #71411 > inl g = 9.80665
00:10:44 verbose #71412 > inl m = st.mass
00:10:44 verbose #71413 > inl z = st.pos_vec.z
00:10:44 verbose #71414 > m * g * z
00:10:44 verbose #71415 >
00:10:44 verbose #71416 > inl ball_radius () = 0.03
00:10:44 verbose #71417 >
00:10:44 verbose #71418 > inl billiard_forces k =
00:10:44 verbose #71419 > [[ InternalForce (0i32, 1, billiard_force k (2 * ball_radius ())) ]]
00:10:44 verbose #71420 >
00:10:44 verbose #71421 > inl billiard_initial () =
00:10:44 verbose #71422 > inl ball_mass = 0.160
00:10:44 verbose #71423 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:44 verbose #71424 > [[
00:10:44 verbose #71425 > particle_state {
00:10:44 verbose #71426 > default_particle_state' with
00:10:44 verbose #71427 > mass = ball_mass
00:10:44 verbose #71428 > pos_vec = zero_vec ()
00:10:44 verbose #71429 > velocity = 0.2 *^ i_hat ()
00:10:44 verbose #71430 > }
00:10:44 verbose #71431 > particle_state {
00:10:44 verbose #71432 > default_particle_state' with
00:10:44 verbose #71433 > mass = ball_mass
00:10:44 verbose #71434 > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:10:44 verbose #71435 > velocity = zero_vec ()
00:10:44 verbose #71436 > }
00:10:44 verbose #71437 > ]]
00:10:44 verbose #71438 > |> stream.from_list
00:10:44 verbose #71439 > |> multi_particle_state
00:10:44 verbose #71440 >
00:10:44 verbose #71441 > inl billiard_states ~n_method k dt =
00:10:44 verbose #71442 > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:10:44 verbose #71443 >
00:10:44 verbose #71444 > inl billiard_states_finite n_method k dt =
00:10:44 verbose #71445 > billiard_states n_method k dt
00:10:44 verbose #71446 > >> Some
00:10:44 verbose #71447 > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:10:44 verbose #71448 > match mpst |> stream.try_item 0i32 with
00:10:44 verbose #71449 > | Some st =>
00:10:44 verbose #71450 > st.time <= 10
00:10:44 verbose #71451 > | None => false
00:10:44 verbose #71452 > )
00:10:44 verbose #71453 >
00:10:44 verbose #71454 > inl momentum (particle_state st) =
00:10:44 verbose #71455 > inl m = st.mass
00:10:44 verbose #71456 > inl v = st.velocity
00:10:44 verbose #71457 > m *^ v
00:10:44 verbose #71458 >
00:10:44 verbose #71459 > inl system_p (multi_particle_state sts) =
00:10:44 verbose #71460 > sts
00:10:44 verbose #71461 > |> stream.map momentum
00:10:44 verbose #71462 > |> stream.fold (^+^) (zero_vec ())
00:10:44 verbose #71463 >
00:10:44 verbose #71464 > inl time_ke_ec_x, time_ke_ec_y =
00:10:44 verbose #71465 > billiard_states_finite euler_cromer_mps 30 0.03
00:10:44 verbose #71466 > |> listm.map (fun (multi_particle_state mpst) =>
00:10:44 verbose #71467 > mpst |> stream.try_item 0i32
00:10:44 verbose #71468 > |> optionm.map (fun st =>
00:10:44 verbose #71469 > st.time, system_ke (multi_particle_state mpst)
00:10:44 verbose #71470 > )
00:10:44 verbose #71471 > )
00:10:44 verbose #71472 > // |> stream.to_list
00:10:44 verbose #71473 > |> listm'.choose id
00:10:44 verbose #71474 > |> listm'.unzip
00:10:44 verbose #71475 >
00:10:44 verbose #71476 > inl time_ke_rk4_x, time_ke_rk4_y =
00:10:44 verbose #71477 > billiard_states_finite runge_kutta_4 30 0.03
00:10:44 verbose #71478 > |> listm.map (fun (multi_particle_state mpst) =>
00:10:44 verbose #71479 > mpst |> stream.try_item 0i32
00:10:44 verbose #71480 > |> optionm.map (fun st =>
00:10:44 verbose #71481 > st.time, system_ke (multi_particle_state mpst)
00:10:44 verbose #71482 > )
00:10:44 verbose #71483 > )
00:10:44 verbose #71484 > // |> stream.to_list
00:10:44 verbose #71485 > |> listm'.choose id
00:10:44 verbose #71486 > |> listm'.unzip
00:10:44 verbose #71487 >
00:10:44 verbose #71488 > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:10:44 verbose #71489 > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:10:44 verbose #71490 >
00:10:44 verbose #71491 > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:10:44 verbose #71492 > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:10:44 verbose #71493 >
00:10:44 verbose #71494 > "system kinetic energy versus time",
00:10:44 verbose #71495 > "time (s)",
00:10:44 verbose #71496 > "system kinetic energy (j)",
00:10:44 verbose #71497 > ;[[
00:10:44 verbose #71498 > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:10:44 verbose #71499 > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:10:44 verbose #71500 > ]]
00:10:44 verbose #71501 > 00:10:44 debug #813 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/15918c246321cc683dd81467f465b6092cf36f1046016701ceb9f3fa0fe4af69/main.spi
00:10:47 verbose #71502 >
00:10:47 verbose #71503 > ╭─[ 2.47s - return value ]─────────────────────────────────────────────────────╮
00:10:47 verbose #71504 > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:10:47 verbose #71505 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:47 verbose #71506 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:47 verbose #71507 > │ stroke="none"/> │
00:10:47 verbose #71508 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:47 verbose #71509 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:47 verbose #71510 > │ fill="#FFFFFF"> │
00:10:47 verbose #71511 > │ system kinetic energy versus time │
00:10:47 verbose #71512 > │ </text> │
00:10:47 verbose #71513 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:10:47 verbose #71514 > │ y2="75"/> │
00:10:47 verbose #71515 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:47 verbose #71516 > │ y2="75"/> │
00:10:47 verbose #71517 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:10:47 verbose #71518 > │ y2="75"/> │
00:10:47 verbose #71519 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:10:47 verbose #71520 > │ y2="75"/> │
00:10:47 verbose #71521 > │ <line opacity="1" stroke="#323232" stroke-width="1... │
00:10:47 verbose #71522 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #71523 >
00:10:47 verbose #71524 > ╭─[ 2.49s - stdout ]───────────────────────────────────────────────────────────╮
00:10:47 verbose #71525 > │ type UH0 = │
00:10:47 verbose #71526 > │ | UH0_0 of float * float * float * float * float * float * float * float │
00:10:47 verbose #71527 > │ * float * (unit -> UH0) │
00:10:47 verbose #71528 > │ | UH0_1 │
00:10:47 verbose #71529 > │ and UH1 = │
00:10:47 verbose #71530 > │ | UH1_0 of float * float * float * float * float * float * float * float │
00:10:47 verbose #71531 > │ * float * (unit -> UH1) │
00:10:47 verbose #71532 > │ | UH1_1 │
00:10:47 verbose #71533 > │ and [<Struct>] US0 = │
00:10:47 verbose #71534 > │ | US0_0 of f0_0 : (unit -> UH0) │
00:10:47 verbose #71535 > │ | US0_1 of f1_0 : UH0 │
00:10:47 verbose #71536 > │ and Mut0 = {mutable l0 : US0} │
00:10:47 verbose #71537 > │ and UH2 = │
00:10:47 verbose #71538 > │ | UH2_0 of float * float * float * float * float * float * float * float │
00:10:47 verbose #71539 > │ * float * float * float * float * float * float * float * float * float * │
00:10:47 verbose #71540 > │ float * (unit -> UH2) │
00:10:47 verbose #71541 > │ | UH2_1 │
00:10:47 verbose #71542 > │ and UH3 = │
00:10:47 verbose #71543 > │ | UH3_0 of int32 * float * float * float * float * float * float * float │
00:10:47 verbose #71544 > │ * float * float * (unit -> UH3) │
00:10:47 verbose #71545 > │ | UH3_1 │
00:10:47 verbose #71546 > │ and [<Struct>] US1 = │
00:10:47 verbose #71547 > │ | US1_0 of f0_0 : (struct (float * float * float * float * float * float │
00:10:47 verbose #71548 > │ * float * float * float) -> struct (float * float * float)) │
00:10:47 verbose #71549 > │ | US1_1 │
00:10:47 verbose #71550 > │ and [<Struct>] US2 = │
00:10:47 verbose #71551 > │ | US2_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:10:47 verbose #71552 > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:10:47 verbose #71553 > │ | US2_1 │
00:10:47 verbose #71554 > │ and UH4 = │
00:10:47 verbose #71555 > │ | UH4_0 │
00:10:47 verbose #71556 > │ | UH4_1 of UH0 * UH4 │
00:10:47 verbose #71557 > │ and UH5 = │
00:10:47 verbose #71558 > │ | UH5_0 │
00:10:47 verbose #71559 > │ | UH5_1 of int32 * UH5 │
00:10:47 verbose #71560 > │ and [<Struct>] US3 = │
00:10:47 verbose #71561 > │ | US3_0 of f0_0 : float * f0_1 : float │
00:10:47 verbose #71562 > │ | US3_1 │
00:10:47 verbose #71563 > │ and UH6 = │
00:10:47 verbose #71564 > │ | UH6_0 │
00:10:47 verbose #71565 > │ | UH6_1 of US3 * UH6 │
00:10:47 verbose #71566 > │ and UH7 = │
00:10:47 verbose #71567 > │ | UH7_0 of float * (unit -> UH7) │
00:10:47 verbose #71568 > │ | UH7_1 │
00:10:47 verbose #71569 > │ and UH8 = │
00:10:47 verbose #71570 > │ | UH8_0 │
00:10:47 verbose #71571 > │ | UH8_1 of float * float * UH8 │
00:10:47 verbose #71572 > │ and UH9 = │
00:10:47 verbose #71573 > │ | UH9_0 │
00:10:47 verbose #71574 > │ | UH9_1 of float * UH9 │
00:10:47 verbose #71575 > │ let rec closure3 (v0 : float, v1 : (unit -> UH0), v2 : (unit -> UH1)) () : │
00:10:47 verbose #71576 > │ UH0 = │
00:10:47 verbose #71577 > │ let v3 : UH1 = v2 () │
00:10:47 verbose #71578 > │ let v4 : UH0 = v1 () │
00:10:47 verbose #71579 > │ match v3 with │
00:10:47 verbose #71580 > │ | UH1_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* StreamCons *) │
00:10:47 verbose #71581 > │ match v4 with │
00:10:47 verbose #71582 > │ | UH0_0(v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) -> (* │
00:10:47 verbose #71583 > │ StreamCons *) │
00:10:47 verbose #71584 > │ let v25 : float = v10 * v0 │
00:10:47 verbose #71585 > │ let v26 : float = v20 + v25 │
00:10:47 verbose #71586 > │ let v27 : float = v0 * v7 │
00:10:47 verbose #71587 > │ let v28 : float = v0 * v8 │
00:10:47 verbose #71588 > │ let v29 : float = v0 * v9 │
00:10:47 verbose #71589 > │ let v30 : float = v17 + v27 │
00:10:47 verbose #71590 > │ let v31 : float = v18 + v28 │
00:10:47 verbose #71591 > │ let v32 : float = v19 + v29 │
00:10:47 verbose #71592 > │ let v33 : float = v0 * v11 │
00:10:47 verbose #71593 > │ let v34 : float = v0 * v12 │
00:10:47 verbose #71594 > │ let v35 : float = v0 * v13 │
00:10:47 verbose #71595 > │ let v36 : float = v21 + v33 │
00:10:47 verbose #71596 > │ let v37 : float = v22 + v34 │
00:10:47 verbose #71597 > │ let v38 : float = v23 + v35 │
00:10:47 verbose #71598 > │ let v39 : (unit -> UH0) = closure3(v0, v24, v14) │
00:10:47 verbose #71599 > │ UH0_0(v15, v16, v30, v31, v32, v26, v36, v37, v38, v39) │
00:10:47 verbose #71600 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71601 > │ UH0_1 │
00:10:47 verbose #71602 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #71603 > │ UH0_1 │
00:10:47 verbose #71604 > │ and closure4 (v0 : UH0) () : UH0 = │
00:10:47 verbose #71605 > │ v0 │
00:10:47 verbose #71606 > │ and closure5 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:10:47 verbose #71607 > │ let v2 : US0 = v1.l0 │
00:10:47 verbose #71608 > │ match v2 with │
00:10:47 verbose #71609 > │ | US0_1(v3) -> (* Computed *) │
00:10:47 verbose #71610 > │ v3 │
00:10:47 verbose #71611 > │ | US0_0(v4) -> (* NotComputed *) │
00:10:47 verbose #71612 > │ let v5 : UH0 = v4 () │
00:10:47 verbose #71613 > │ let v20 : UH0 = │
00:10:47 verbose #71614 > │ match v5 with │
00:10:47 verbose #71615 > │ | UH0_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) -> (* │
00:10:47 verbose #71616 > │ StreamCons *) │
00:10:47 verbose #71617 > │ let v17 : (unit -> UH0) = method1(v0, v16) │
00:10:47 verbose #71618 > │ UH0_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v17) │
00:10:47 verbose #71619 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71620 > │ UH0_1 │
00:10:47 verbose #71621 > │ let v21 : US0 = US0_1(v20) │
00:10:47 verbose #71622 > │ v1.l0 <- v21 │
00:10:47 verbose #71623 > │ v20 │
00:10:47 verbose #71624 > │ and method1 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:10:47 verbose #71625 > │ let v2 : US0 = US0_0(v1) │
00:10:47 verbose #71626 > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:10:47 verbose #71627 > │ closure5(v0, v3) │
00:10:47 verbose #71628 > │ and closure6 (v0 : (unit -> UH0), v1 : (unit -> UH0)) () : UH2 = │
00:10:47 verbose #71629 > │ let v2 : UH0 = v1 () │
00:10:47 verbose #71630 > │ let v3 : UH0 = v0 () │
00:10:47 verbose #71631 > │ match v2 with │
00:10:47 verbose #71632 > │ | UH0_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:10:47 verbose #71633 > │ match v3 with │
00:10:47 verbose #71634 > │ | UH0_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:47 verbose #71635 > │ StreamCons *) │
00:10:47 verbose #71636 > │ let v24 : (unit -> UH2) = closure6(v23, v13) │
00:10:47 verbose #71637 > │ UH2_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v14, v15, v16, v17, │
00:10:47 verbose #71638 > │ v18, v19, v20, v21, v22, v24) │
00:10:47 verbose #71639 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71640 > │ UH2_1 │
00:10:47 verbose #71641 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71642 > │ UH2_1 │
00:10:47 verbose #71643 > │ and closure7 (v0 : UH0) () : UH0 = │
00:10:47 verbose #71644 > │ v0 │
00:10:47 verbose #71645 > │ and method2 (v0 : float, v1 : UH2, v2 : UH0) : UH0 = │
00:10:47 verbose #71646 > │ match v1 with │
00:10:47 verbose #71647 > │ | UH2_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, │
00:10:47 verbose #71648 > │ v17, v18, v19, v20, v21) -> (* StreamCons *) │
00:10:47 verbose #71649 > │ let v22 : UH2 = v21 () │
00:10:47 verbose #71650 > │ let v23 : UH0 = method2(v0, v22, v2) │
00:10:47 verbose #71651 > │ let v24 : float = v0 * v18 │
00:10:47 verbose #71652 > │ let v25 : float = v0 * v19 │
00:10:47 verbose #71653 > │ let v26 : float = v0 * v20 │
00:10:47 verbose #71654 > │ let v27 : float = v5 + v24 │
00:10:47 verbose #71655 > │ let v28 : float = v6 + v25 │
00:10:47 verbose #71656 > │ let v29 : float = v7 + v26 │
00:10:47 verbose #71657 > │ let v30 : (unit -> UH0) = closure7(v23) │
00:10:47 verbose #71658 > │ UH0_0(v12, v13, v27, v28, v29, v17, v18, v19, v20, v30) │
00:10:47 verbose #71659 > │ | UH2_1 -> (* StreamNil *) │
00:10:47 verbose #71660 > │ v2 │
00:10:47 verbose #71661 > │ and closure2 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:10:47 verbose #71662 > │ let v3 : UH1 = v1 v2 │
00:10:47 verbose #71663 > │ let v45 : UH0 = │
00:10:47 verbose #71664 > │ match v3 with │
00:10:47 verbose #71665 > │ | UH1_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons │
00:10:47 verbose #71666 > │ *) │
00:10:47 verbose #71667 > │ match v2 with │
00:10:47 verbose #71668 > │ | UH0_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:47 verbose #71669 > │ StreamCons *) │
00:10:47 verbose #71670 > │ let v24 : float = v9 * v0 │
00:10:47 verbose #71671 > │ let v25 : float = v19 + v24 │
00:10:47 verbose #71672 > │ let v26 : float = v0 * v6 │
00:10:47 verbose #71673 > │ let v27 : float = v0 * v7 │
00:10:47 verbose #71674 > │ let v28 : float = v0 * v8 │
00:10:47 verbose #71675 > │ let v29 : float = v16 + v26 │
00:10:47 verbose #71676 > │ let v30 : float = v17 + v27 │
00:10:47 verbose #71677 > │ let v31 : float = v18 + v28 │
00:10:47 verbose #71678 > │ let v32 : float = v0 * v10 │
00:10:47 verbose #71679 > │ let v33 : float = v0 * v11 │
00:10:47 verbose #71680 > │ let v34 : float = v0 * v12 │
00:10:47 verbose #71681 > │ let v35 : float = v20 + v32 │
00:10:47 verbose #71682 > │ let v36 : float = v21 + v33 │
00:10:47 verbose #71683 > │ let v37 : float = v22 + v34 │
00:10:47 verbose #71684 > │ let v38 : (unit -> UH0) = closure3(v0, v23, v13) │
00:10:47 verbose #71685 > │ UH0_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:10:47 verbose #71686 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71687 > │ UH0_1 │
00:10:47 verbose #71688 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #71689 > │ UH0_1 │
00:10:47 verbose #71690 > │ let v46 : (unit -> UH0) = closure4(v45) │
00:10:47 verbose #71691 > │ let v47 : (unit -> UH0) = method1(v45, v46) │
00:10:47 verbose #71692 > │ let v48 : UH0 = v47 () │
00:10:47 verbose #71693 > │ let v76 : UH2 = │
00:10:47 verbose #71694 > │ match v2 with │
00:10:47 verbose #71695 > │ | UH0_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) -> (* │
00:10:47 verbose #71696 > │ StreamCons *) │
00:10:47 verbose #71697 > │ match v48 with │
00:10:47 verbose #71698 > │ | UH0_0(v59, v60, v61, v62, v63, v64, v65, v66, v67, v68) -> (* │
00:10:47 verbose #71699 > │ StreamCons *) │
00:10:47 verbose #71700 > │ let v69 : (unit -> UH2) = closure6(v68, v58) │
00:10:47 verbose #71701 > │ UH2_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v59, v60, │
00:10:47 verbose #71702 > │ v61, v62, v63, v64, v65, v66, v67, v69) │
00:10:47 verbose #71703 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71704 > │ UH2_1 │
00:10:47 verbose #71705 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71706 > │ UH2_1 │
00:10:47 verbose #71707 > │ let v77 : UH0 = UH0_1 │
00:10:47 verbose #71708 > │ let v78 : UH0 = method2(v0, v76, v77) │
00:10:47 verbose #71709 > │ v78 │
00:10:47 verbose #71710 > │ and closure1 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:10:47 verbose #71711 > │ closure2(v0, v1) │
00:10:47 verbose #71712 > │ and closure0 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:10:47 verbose #71713 > │ closure1(v0) │
00:10:47 verbose #71714 > │ and closure9 (v0 : UH3) () : UH3 = │
00:10:47 verbose #71715 > │ v0 │
00:10:47 verbose #71716 > │ and method3 (v0 : UH0, v1 : UH3, v2 : int32) : struct (UH3 * int32) = │
00:10:47 verbose #71717 > │ match v0 with │
00:10:47 verbose #71718 > │ | UH0_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons *) │
00:10:47 verbose #71719 > │ let v13 : int32 = v2 + 1 │
00:10:47 verbose #71720 > │ let v14 : UH0 = v12 () │
00:10:47 verbose #71721 > │ let v15 : (unit -> UH3) = closure9(v1) │
00:10:47 verbose #71722 > │ let v16 : UH3 = UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v15) │
00:10:47 verbose #71723 > │ method3(v14, v16, v13) │
00:10:47 verbose #71724 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71725 > │ struct (v1, v2) │
00:10:47 verbose #71726 > │ and closure10 (v0 : UH3) () : UH3 = │
00:10:47 verbose #71727 > │ v0 │
00:10:47 verbose #71728 > │ and method4 (v0 : UH3, v1 : UH3) : UH3 = │
00:10:47 verbose #71729 > │ match v0 with │
00:10:47 verbose #71730 > │ | UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:10:47 verbose #71731 > │ *) │
00:10:47 verbose #71732 > │ let v13 : UH3 = v12 () │
00:10:47 verbose #71733 > │ let v14 : (unit -> UH3) = closure10(v1) │
00:10:47 verbose #71734 > │ let v15 : UH3 = UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v14) │
00:10:47 verbose #71735 > │ method4(v13, v15) │
00:10:47 verbose #71736 > │ | UH3_1 -> (* StreamNil *) │
00:10:47 verbose #71737 > │ v1 │
00:10:47 verbose #71738 > │ and method6 (v0 : int32, v1 : UH0) : US2 = │
00:10:47 verbose #71739 > │ match v1 with │
00:10:47 verbose #71740 > │ | UH0_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:10:47 verbose #71741 > │ let v12 : bool = v0 <= 0 │
00:10:47 verbose #71742 > │ if v12 then │
00:10:47 verbose #71743 > │ US2_0(v2, v3, v4, v5, v6, v7, v8, v9, v10) │
00:10:47 verbose #71744 > │ else │
00:10:47 verbose #71745 > │ let v14 : int32 = v0 - 1 │
00:10:47 verbose #71746 > │ let v15 : UH0 = v11 () │
00:10:47 verbose #71747 > │ method6(v14, v15) │
00:10:47 verbose #71748 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71749 > │ US2_1 │
00:10:47 verbose #71750 > │ and closure11 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:10:47 verbose #71751 > │ v5 : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:10:47 verbose #71752 > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:10:47 verbose #71753 > │ : float, v17 : float) : struct (float * float * float) = │
00:10:47 verbose #71754 > │ let v18 : float = -1.0 * v2 │
00:10:47 verbose #71755 > │ let v19 : float = -1.0 * v3 │
00:10:47 verbose #71756 > │ let v20 : float = -1.0 * v4 │
00:10:47 verbose #71757 > │ let v21 : float = v11 + v18 │
00:10:47 verbose #71758 > │ let v22 : float = v12 + v19 │
00:10:47 verbose #71759 > │ let v23 : float = v13 + v20 │
00:10:47 verbose #71760 > │ let v24 : float = v21 * v21 │
00:10:47 verbose #71761 > │ let v25 : float = v22 * v22 │
00:10:47 verbose #71762 > │ let v26 : float = v24 + v25 │
00:10:47 verbose #71763 > │ let v27 : float = v23 * v23 │
00:10:47 verbose #71764 > │ let v28 : float = v26 + v27 │
00:10:47 verbose #71765 > │ let v29 : float = sqrt v28 │
00:10:47 verbose #71766 > │ let v30 : bool = v29 >= 0.06 │
00:10:47 verbose #71767 > │ let v33 : float = │
00:10:47 verbose #71768 > │ if v30 then │
00:10:47 verbose #71769 > │ 0.0 │
00:10:47 verbose #71770 > │ else │
00:10:47 verbose #71771 > │ let v31 : float = v29 - 0.06 │
00:10:47 verbose #71772 > │ let v32 : float = -30.0 * v31 │
00:10:47 verbose #71773 > │ v32 │
00:10:47 verbose #71774 > │ let v34 : float = v33 * v21 │
00:10:47 verbose #71775 > │ let v35 : float = v33 * v22 │
00:10:47 verbose #71776 > │ let v36 : float = v33 * v23 │
00:10:47 verbose #71777 > │ let v37 : float = v34 / v29 │
00:10:47 verbose #71778 > │ let v38 : float = v35 / v29 │
00:10:47 verbose #71779 > │ let v39 : float = v36 / v29 │
00:10:47 verbose #71780 > │ struct (v37, v38, v39) │
00:10:47 verbose #71781 > │ and closure12 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:10:47 verbose #71782 > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:47 verbose #71783 > │ float * float) = │
00:10:47 verbose #71784 > │ struct (0.0, 0.0, 0.0) │
00:10:47 verbose #71785 > │ and closure13 (v0 : UH1) () : UH1 = │
00:10:47 verbose #71786 > │ v0 │
00:10:47 verbose #71787 > │ and method5 (v0 : UH0, v1 : UH3, v2 : UH1) : UH1 = │
00:10:47 verbose #71788 > │ match v1 with │
00:10:47 verbose #71789 > │ | UH3_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons │
00:10:47 verbose #71790 > │ *) │
00:10:47 verbose #71791 > │ let v14 : UH3 = v13 () │
00:10:47 verbose #71792 > │ let v15 : UH1 = method5(v0, v14, v2) │
00:10:47 verbose #71793 > │ let v16 : bool = v3 = 0 │
00:10:47 verbose #71794 > │ let v52 : US1 = │
00:10:47 verbose #71795 > │ if v16 then │
00:10:47 verbose #71796 > │ let v17 : int32 = 1 │
00:10:47 verbose #71797 > │ let v18 : US2 = method6(v17, v0) │
00:10:47 verbose #71798 > │ match v18 with │
00:10:47 verbose #71799 > │ | US2_1 -> (* None *) │
00:10:47 verbose #71800 > │ US1_1 │
00:10:47 verbose #71801 > │ | US2_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* │
00:10:47 verbose #71802 > │ Some *) │
00:10:47 verbose #71803 > │ let v28 : (struct (float * float * float * float * float │
00:10:47 verbose #71804 > │ * float * float * float * float) -> struct (float * float * float)) = │
00:10:47 verbose #71805 > │ closure11(v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:10:47 verbose #71806 > │ US1_0(v28) │
00:10:47 verbose #71807 > │ else │
00:10:47 verbose #71808 > │ let v33 : bool = v3 = 1 │
00:10:47 verbose #71809 > │ if v33 then │
00:10:47 verbose #71810 > │ let v34 : int32 = 0 │
00:10:47 verbose #71811 > │ let v35 : US2 = method6(v34, v0) │
00:10:47 verbose #71812 > │ match v35 with │
00:10:47 verbose #71813 > │ | US2_1 -> (* None *) │
00:10:47 verbose #71814 > │ US1_1 │
00:10:47 verbose #71815 > │ | US2_0(v36, v37, v38, v39, v40, v41, v42, v43, v44) -> │
00:10:47 verbose #71816 > │ (* Some *) │
00:10:47 verbose #71817 > │ let v45 : (struct (float * float * float * float * │
00:10:47 verbose #71818 > │ float * float * float * float * float) -> struct (float * float * float)) = │
00:10:47 verbose #71819 > │ closure11(v36, v37, v38, v39, v40, v41, v42, v43, v44) │
00:10:47 verbose #71820 > │ US1_0(v45) │
00:10:47 verbose #71821 > │ else │
00:10:47 verbose #71822 > │ US1_1 │
00:10:47 verbose #71823 > │ let v56 : (struct (float * float * float * float * float * float * │
00:10:47 verbose #71824 > │ float * float * float) -> struct (float * float * float)) = │
00:10:47 verbose #71825 > │ match v52 with │
00:10:47 verbose #71826 > │ | US1_1 -> (* None *) │
00:10:47 verbose #71827 > │ closure12() │
00:10:47 verbose #71828 > │ | US1_0(v53) -> (* Some *) │
00:10:47 verbose #71829 > │ v53 │
00:10:47 verbose #71830 > │ let struct (v57 : float, v58 : float, v59 : float) = v56 struct (v4, │
00:10:47 verbose #71831 > │ v5, v6, v7, v8, v9, v10, v11, v12) │
00:10:47 verbose #71832 > │ let v60 : float = v57 / v5 │
00:10:47 verbose #71833 > │ let v61 : float = v58 / v5 │
00:10:47 verbose #71834 > │ let v62 : float = v59 / v5 │
00:10:47 verbose #71835 > │ let v63 : (unit -> UH1) = closure13(v15) │
00:10:47 verbose #71836 > │ UH1_0(0.0, 0.0, v10, v11, v12, 1.0, v60, v61, v62, v63) │
00:10:47 verbose #71837 > │ | UH3_1 -> (* StreamNil *) │
00:10:47 verbose #71838 > │ v2 │
00:10:47 verbose #71839 > │ and closure8 () (v0 : UH0) : UH1 = │
00:10:47 verbose #71840 > │ let v1 : UH3 = UH3_1 │
00:10:47 verbose #71841 > │ let v2 : int32 = 0 │
00:10:47 verbose #71842 > │ let struct (v3 : UH3, v4 : int32) = method3(v0, v1, v2) │
00:10:47 verbose #71843 > │ let v5 : UH3 = UH3_1 │
00:10:47 verbose #71844 > │ let v6 : UH3 = method4(v3, v5) │
00:10:47 verbose #71845 > │ let v7 : UH1 = UH1_1 │
00:10:47 verbose #71846 > │ let v8 : UH1 = method5(v0, v6, v7) │
00:10:47 verbose #71847 > │ v8 │
00:10:47 verbose #71848 > │ and method8 (v0 : int32, v1 : int32) : UH5 = │
00:10:47 verbose #71849 > │ let v2 : bool = v1 < v0 │
00:10:47 verbose #71850 > │ if v2 then │
00:10:47 verbose #71851 > │ let v3 : int32 = v1 + 1 │
00:10:47 verbose #71852 > │ let v4 : UH5 = method8(v0, v3) │
00:10:47 verbose #71853 > │ UH5_1(v1, v4) │
00:10:47 verbose #71854 > │ else │
00:10:47 verbose #71855 > │ UH5_0 │
00:10:47 verbose #71856 > │ and closure15 () () : UH0 = │
00:10:47 verbose #71857 > │ UH0_1 │
00:10:47 verbose #71858 > │ and closure14 () () : UH0 = │
00:10:47 verbose #71859 > │ let v0 : (unit -> UH0) = closure15() │
00:10:47 verbose #71860 > │ UH0_0(0.0, 0.16, 1.0, 0.02, 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:47 verbose #71861 > │ and method9 (v0 : (UH0 -> UH0), v1 : UH5, v2 : UH0) : UH0 = │
00:10:47 verbose #71862 > │ match v1 with │
00:10:47 verbose #71863 > │ | UH5_1(v3, v4) -> (* Cons *) │
00:10:47 verbose #71864 > │ let v5 : (unit -> UH0) = closure4(v2) │
00:10:47 verbose #71865 > │ let v6 : (unit -> UH0) = method1(v2, v5) │
00:10:47 verbose #71866 > │ let v7 : UH0 = v6 () │
00:10:47 verbose #71867 > │ let v8 : UH0 = v0 v7 │
00:10:47 verbose #71868 > │ method9(v0, v4, v8) │
00:10:47 verbose #71869 > │ | UH5_0 -> (* Nil *) │
00:10:47 verbose #71870 > │ v2 │
00:10:47 verbose #71871 > │ and method10 (v0 : UH4, v1 : UH4) : UH4 = │
00:10:47 verbose #71872 > │ match v0 with │
00:10:47 verbose #71873 > │ | UH4_1(v2, v3) -> (* Cons *) │
00:10:47 verbose #71874 > │ let v4 : UH4 = UH4_1(v2, v1) │
00:10:47 verbose #71875 > │ method10(v3, v4) │
00:10:47 verbose #71876 > │ | UH4_0 -> (* Nil *) │
00:10:47 verbose #71877 > │ v1 │
00:10:47 verbose #71878 > │ and method7 (v0 : (UH0 -> UH0), v1 : UH4, v2 : int32) : UH4 = │
00:10:47 verbose #71879 > │ let v3 : int32 = 0 │
00:10:47 verbose #71880 > │ let v4 : UH5 = method8(v2, v3) │
00:10:47 verbose #71881 > │ let v5 : float = 0.0 │
00:10:47 verbose #71882 > │ let v6 : float = 0.16 │
00:10:47 verbose #71883 > │ let v7 : float = 0.0 │
00:10:47 verbose #71884 > │ let v8 : float = 0.0 │
00:10:47 verbose #71885 > │ let v9 : float = 0.0 │
00:10:47 verbose #71886 > │ let v10 : float = 0.0 │
00:10:47 verbose #71887 > │ let v11 : float = 0.2 │
00:10:47 verbose #71888 > │ let v12 : float = 0.0 │
00:10:47 verbose #71889 > │ let v13 : float = 0.0 │
00:10:47 verbose #71890 > │ let v14 : (unit -> UH0) = closure14() │
00:10:47 verbose #71891 > │ let v15 : UH0 = UH0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) │
00:10:47 verbose #71892 > │ let v16 : UH0 = method9(v0, v4, v15) │
00:10:47 verbose #71893 > │ let v17 : int32 = 0 │
00:10:47 verbose #71894 > │ let v18 : US2 = method6(v17, v16) │
00:10:47 verbose #71895 > │ let v30 : bool = │
00:10:47 verbose #71896 > │ match v18 with │
00:10:47 verbose #71897 > │ | US2_1 -> (* None *) │
00:10:47 verbose #71898 > │ false │
00:10:47 verbose #71899 > │ | US2_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some *) │
00:10:47 verbose #71900 > │ let v28 : bool = v24 <= 10.0 │
00:10:47 verbose #71901 > │ v28 │
00:10:47 verbose #71902 > │ if v30 then │
00:10:47 verbose #71903 > │ let v31 : UH4 = UH4_1(v16, v1) │
00:10:47 verbose #71904 > │ let v32 : int32 = v2 + 1 │
00:10:47 verbose #71905 > │ method7(v0, v31, v32) │
00:10:47 verbose #71906 > │ else │
00:10:47 verbose #71907 > │ let v34 : UH4 = UH4_0 │
00:10:47 verbose #71908 > │ method10(v1, v34) │
00:10:47 verbose #71909 > │ and closure16 (v0 : UH7) () : UH7 = │
00:10:47 verbose #71910 > │ v0 │
00:10:47 verbose #71911 > │ and method12 (v0 : UH0, v1 : UH7) : UH7 = │
00:10:47 verbose #71912 > │ match v0 with │
00:10:47 verbose #71913 > │ | UH0_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:10:47 verbose #71914 > │ let v12 : UH0 = v11 () │
00:10:47 verbose #71915 > │ let v13 : UH7 = method12(v12, v1) │
00:10:47 verbose #71916 > │ let v14 : float = v8 * v8 │
00:10:47 verbose #71917 > │ let v15 : float = v9 * v9 │
00:10:47 verbose #71918 > │ let v16 : float = v14 + v15 │
00:10:47 verbose #71919 > │ let v17 : float = v10 * v10 │
00:10:47 verbose #71920 > │ let v18 : float = v16 + v17 │
00:10:47 verbose #71921 > │ let v19 : float = sqrt v18 │
00:10:47 verbose #71922 > │ let v20 : float = 0.5 * v3 │
00:10:47 verbose #71923 > │ let v21 : float = v19 ** 2.0 │
00:10:47 verbose #71924 > │ let v22 : float = v20 * v21 │
00:10:47 verbose #71925 > │ let v23 : (unit -> UH7) = closure16(v13) │
00:10:47 verbose #71926 > │ UH7_0(v22, v23) │
00:10:47 verbose #71927 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #71928 > │ v1 │
00:10:47 verbose #71929 > │ and method13 (v0 : UH7, v1 : float) : float = │
00:10:47 verbose #71930 > │ match v0 with │
00:10:47 verbose #71931 > │ | UH7_0(v2, v3) -> (* StreamCons *) │
00:10:47 verbose #71932 > │ let v4 : float = v1 + v2 │
00:10:47 verbose #71933 > │ let v5 : UH7 = v3 () │
00:10:47 verbose #71934 > │ method13(v5, v4) │
00:10:47 verbose #71935 > │ | UH7_1 -> (* StreamNil *) │
00:10:47 verbose #71936 > │ v1 │
00:10:47 verbose #71937 > │ and method11 (v0 : UH4, v1 : UH6) : UH6 = │
00:10:47 verbose #71938 > │ match v0 with │
00:10:47 verbose #71939 > │ | UH4_1(v2, v3) -> (* Cons *) │
00:10:47 verbose #71940 > │ let v4 : UH6 = method11(v3, v1) │
00:10:47 verbose #71941 > │ let v5 : int32 = 0 │
00:10:47 verbose #71942 > │ let v6 : US2 = method6(v5, v2) │
00:10:47 verbose #71943 > │ let v23 : US3 = │
00:10:47 verbose #71944 > │ match v6 with │
00:10:47 verbose #71945 > │ | US2_1 -> (* None *) │
00:10:47 verbose #71946 > │ US3_1 │
00:10:47 verbose #71947 > │ | US2_0(v7, v8, v9, v10, v11, v12, v13, v14, v15) -> (* Some *) │
00:10:47 verbose #71948 > │ let v16 : UH7 = UH7_1 │
00:10:47 verbose #71949 > │ let v17 : UH7 = method12(v2, v16) │
00:10:47 verbose #71950 > │ let v18 : float = 0.0 │
00:10:47 verbose #71951 > │ let v19 : float = method13(v17, v18) │
00:10:47 verbose #71952 > │ US3_0(v12, v19) │
00:10:47 verbose #71953 > │ UH6_1(v23, v4) │
00:10:47 verbose #71954 > │ | UH4_0 -> (* Nil *) │
00:10:47 verbose #71955 > │ v1 │
00:10:47 verbose #71956 > │ and method14 (v0 : UH6, v1 : UH8) : UH8 = │
00:10:47 verbose #71957 > │ match v0 with │
00:10:47 verbose #71958 > │ | UH6_1(v2, v3) -> (* Cons *) │
00:10:47 verbose #71959 > │ let v4 : UH8 = method14(v3, v1) │
00:10:47 verbose #71960 > │ match v2 with │
00:10:47 verbose #71961 > │ | US3_1 -> (* None *) │
00:10:47 verbose #71962 > │ v4 │
00:10:47 verbose #71963 > │ | US3_0(v5, v6) -> (* Some *) │
00:10:47 verbose #71964 > │ UH8_1(v5, v6, v4) │
00:10:47 verbose #71965 > │ | UH6_0 -> (* Nil *) │
00:10:47 verbose #71966 > │ v1 │
00:10:47 verbose #71967 > │ and method15 (v0 : UH8, v1 : UH9, v2 : UH9) : struct (UH9 * UH9) = │
00:10:47 verbose #71968 > │ match v0 with │
00:10:47 verbose #71969 > │ | UH8_1(v3, v4, v5) -> (* Cons *) │
00:10:47 verbose #71970 > │ let v6 : UH9 = UH9_1(v3, v1) │
00:10:47 verbose #71971 > │ let v7 : UH9 = UH9_1(v4, v2) │
00:10:47 verbose #71972 > │ method15(v5, v6, v7) │
00:10:47 verbose #71973 > │ | UH8_0 -> (* Nil *) │
00:10:47 verbose #71974 > │ struct (v1, v2) │
00:10:47 verbose #71975 > │ and method16 (v0 : UH9, v1 : UH9) : UH9 = │
00:10:47 verbose #71976 > │ match v0 with │
00:10:47 verbose #71977 > │ | UH9_1(v2, v3) -> (* Cons *) │
00:10:47 verbose #71978 > │ let v4 : UH9 = UH9_1(v2, v1) │
00:10:47 verbose #71979 > │ method16(v3, v4) │
00:10:47 verbose #71980 > │ | UH9_0 -> (* Nil *) │
00:10:47 verbose #71981 > │ v1 │
00:10:47 verbose #71982 > │ and closure20 (v0 : (unit -> UH1), v1 : (unit -> UH1)) () : UH1 = │
00:10:47 verbose #71983 > │ let v2 : UH1 = v1 () │
00:10:47 verbose #71984 > │ let v3 : UH1 = v0 () │
00:10:47 verbose #71985 > │ match v2 with │
00:10:47 verbose #71986 > │ | UH1_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:10:47 verbose #71987 > │ match v3 with │
00:10:47 verbose #71988 > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:47 verbose #71989 > │ StreamCons *) │
00:10:47 verbose #71990 > │ let v24 : float = v4 + v14 │
00:10:47 verbose #71991 > │ let v25 : float = v5 + v15 │
00:10:47 verbose #71992 > │ let v26 : float = v9 + v19 │
00:10:47 verbose #71993 > │ let v27 : float = v6 + v16 │
00:10:47 verbose #71994 > │ let v28 : float = v7 + v17 │
00:10:47 verbose #71995 > │ let v29 : float = v8 + v18 │
00:10:47 verbose #71996 > │ let v30 : float = v10 + v20 │
00:10:47 verbose #71997 > │ let v31 : float = v11 + v21 │
00:10:47 verbose #71998 > │ let v32 : float = v12 + v22 │
00:10:47 verbose #71999 > │ let v33 : (unit -> UH1) = closure20(v23, v13) │
00:10:47 verbose #72000 > │ UH1_0(v24, v25, v27, v28, v29, v26, v30, v31, v32, v33) │
00:10:47 verbose #72001 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72002 > │ UH1_1 │
00:10:47 verbose #72003 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72004 > │ UH1_1 │
00:10:47 verbose #72005 > │ and closure19 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:10:47 verbose #72006 > │ let v3 : UH1 = v1 v2 │
00:10:47 verbose #72007 > │ let v4 : float = v0 / 2.0 │
00:10:47 verbose #72008 > │ let v46 : UH0 = │
00:10:47 verbose #72009 > │ match v3 with │
00:10:47 verbose #72010 > │ | UH1_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* │
00:10:47 verbose #72011 > │ StreamCons *) │
00:10:47 verbose #72012 > │ match v2 with │
00:10:47 verbose #72013 > │ | UH0_0(v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) -> (* │
00:10:47 verbose #72014 > │ StreamCons *) │
00:10:47 verbose #72015 > │ let v25 : float = v10 * v4 │
00:10:47 verbose #72016 > │ let v26 : float = v20 + v25 │
00:10:47 verbose #72017 > │ let v27 : float = v4 * v7 │
00:10:47 verbose #72018 > │ let v28 : float = v4 * v8 │
00:10:47 verbose #72019 > │ let v29 : float = v4 * v9 │
00:10:47 verbose #72020 > │ let v30 : float = v17 + v27 │
00:10:47 verbose #72021 > │ let v31 : float = v18 + v28 │
00:10:47 verbose #72022 > │ let v32 : float = v19 + v29 │
00:10:47 verbose #72023 > │ let v33 : float = v4 * v11 │
00:10:47 verbose #72024 > │ let v34 : float = v4 * v12 │
00:10:47 verbose #72025 > │ let v35 : float = v4 * v13 │
00:10:47 verbose #72026 > │ let v36 : float = v21 + v33 │
00:10:47 verbose #72027 > │ let v37 : float = v22 + v34 │
00:10:47 verbose #72028 > │ let v38 : float = v23 + v35 │
00:10:47 verbose #72029 > │ let v39 : (unit -> UH0) = closure3(v4, v24, v14) │
00:10:47 verbose #72030 > │ UH0_0(v15, v16, v30, v31, v32, v26, v36, v37, v38, v39) │
00:10:47 verbose #72031 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #72032 > │ UH0_1 │
00:10:47 verbose #72033 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72034 > │ UH0_1 │
00:10:47 verbose #72035 > │ let v47 : (unit -> UH0) = closure4(v46) │
00:10:47 verbose #72036 > │ let v48 : (unit -> UH0) = method1(v46, v47) │
00:10:47 verbose #72037 > │ let v49 : UH0 = v48 () │
00:10:47 verbose #72038 > │ let v50 : UH1 = v1 v49 │
00:10:47 verbose #72039 > │ let v92 : UH0 = │
00:10:47 verbose #72040 > │ match v50 with │
00:10:47 verbose #72041 > │ | UH1_0(v51, v52, v53, v54, v55, v56, v57, v58, v59, v60) -> (* │
00:10:47 verbose #72042 > │ StreamCons *) │
00:10:47 verbose #72043 > │ match v2 with │
00:10:47 verbose #72044 > │ | UH0_0(v61, v62, v63, v64, v65, v66, v67, v68, v69, v70) -> (* │
00:10:47 verbose #72045 > │ StreamCons *) │
00:10:47 verbose #72046 > │ let v71 : float = v56 * v4 │
00:10:47 verbose #72047 > │ let v72 : float = v66 + v71 │
00:10:47 verbose #72048 > │ let v73 : float = v4 * v53 │
00:10:47 verbose #72049 > │ let v74 : float = v4 * v54 │
00:10:47 verbose #72050 > │ let v75 : float = v4 * v55 │
00:10:47 verbose #72051 > │ let v76 : float = v63 + v73 │
00:10:47 verbose #72052 > │ let v77 : float = v64 + v74 │
00:10:47 verbose #72053 > │ let v78 : float = v65 + v75 │
00:10:47 verbose #72054 > │ let v79 : float = v4 * v57 │
00:10:47 verbose #72055 > │ let v80 : float = v4 * v58 │
00:10:47 verbose #72056 > │ let v81 : float = v4 * v59 │
00:10:47 verbose #72057 > │ let v82 : float = v67 + v79 │
00:10:47 verbose #72058 > │ let v83 : float = v68 + v80 │
00:10:47 verbose #72059 > │ let v84 : float = v69 + v81 │
00:10:47 verbose #72060 > │ let v85 : (unit -> UH0) = closure3(v4, v70, v60) │
00:10:47 verbose #72061 > │ UH0_0(v61, v62, v76, v77, v78, v72, v82, v83, v84, v85) │
00:10:47 verbose #72062 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #72063 > │ UH0_1 │
00:10:47 verbose #72064 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72065 > │ UH0_1 │
00:10:47 verbose #72066 > │ let v93 : (unit -> UH0) = closure4(v92) │
00:10:47 verbose #72067 > │ let v94 : (unit -> UH0) = method1(v92, v93) │
00:10:47 verbose #72068 > │ let v95 : UH0 = v94 () │
00:10:47 verbose #72069 > │ let v96 : UH1 = v1 v95 │
00:10:47 verbose #72070 > │ let v138 : UH0 = │
00:10:47 verbose #72071 > │ match v96 with │
00:10:47 verbose #72072 > │ | UH1_0(v97, v98, v99, v100, v101, v102, v103, v104, v105, v106) -> │
00:10:47 verbose #72073 > │ (* StreamCons *) │
00:10:47 verbose #72074 > │ match v2 with │
00:10:47 verbose #72075 > │ | UH0_0(v107, v108, v109, v110, v111, v112, v113, v114, v115, │
00:10:47 verbose #72076 > │ v116) -> (* StreamCons *) │
00:10:47 verbose #72077 > │ let v117 : float = v102 * v0 │
00:10:47 verbose #72078 > │ let v118 : float = v112 + v117 │
00:10:47 verbose #72079 > │ let v119 : float = v0 * v99 │
00:10:47 verbose #72080 > │ let v120 : float = v0 * v100 │
00:10:47 verbose #72081 > │ let v121 : float = v0 * v101 │
00:10:47 verbose #72082 > │ let v122 : float = v109 + v119 │
00:10:47 verbose #72083 > │ let v123 : float = v110 + v120 │
00:10:47 verbose #72084 > │ let v124 : float = v111 + v121 │
00:10:47 verbose #72085 > │ let v125 : float = v0 * v103 │
00:10:47 verbose #72086 > │ let v126 : float = v0 * v104 │
00:10:47 verbose #72087 > │ let v127 : float = v0 * v105 │
00:10:47 verbose #72088 > │ let v128 : float = v113 + v125 │
00:10:47 verbose #72089 > │ let v129 : float = v114 + v126 │
00:10:47 verbose #72090 > │ let v130 : float = v115 + v127 │
00:10:47 verbose #72091 > │ let v131 : (unit -> UH0) = closure3(v0, v116, v106) │
00:10:47 verbose #72092 > │ UH0_0(v107, v108, v122, v123, v124, v118, v128, v129, v130, │
00:10:47 verbose #72093 > │ v131) │
00:10:47 verbose #72094 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #72095 > │ UH0_1 │
00:10:47 verbose #72096 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72097 > │ UH0_1 │
00:10:47 verbose #72098 > │ let v139 : (unit -> UH0) = closure4(v138) │
00:10:47 verbose #72099 > │ let v140 : (unit -> UH0) = method1(v138, v139) │
00:10:47 verbose #72100 > │ let v141 : UH0 = v140 () │
00:10:47 verbose #72101 > │ let v142 : UH1 = v1 v141 │
00:10:47 verbose #72102 > │ let v143 : float = v0 / 6.0 │
00:10:47 verbose #72103 > │ let v180 : UH1 = │
00:10:47 verbose #72104 > │ match v3 with │
00:10:47 verbose #72105 > │ | UH1_0(v144, v145, v146, v147, v148, v149, v150, v151, v152, v153) │
00:10:47 verbose #72106 > │ -> (* StreamCons *) │
00:10:47 verbose #72107 > │ match v50 with │
00:10:47 verbose #72108 > │ | UH1_0(v154, v155, v156, v157, v158, v159, v160, v161, v162, │
00:10:47 verbose #72109 > │ v163) -> (* StreamCons *) │
00:10:47 verbose #72110 > │ let v164 : float = v144 + v154 │
00:10:47 verbose #72111 > │ let v165 : float = v145 + v155 │
00:10:47 verbose #72112 > │ let v166 : float = v149 + v159 │
00:10:47 verbose #72113 > │ let v167 : float = v146 + v156 │
00:10:47 verbose #72114 > │ let v168 : float = v147 + v157 │
00:10:47 verbose #72115 > │ let v169 : float = v148 + v158 │
00:10:47 verbose #72116 > │ let v170 : float = v150 + v160 │
00:10:47 verbose #72117 > │ let v171 : float = v151 + v161 │
00:10:47 verbose #72118 > │ let v172 : float = v152 + v162 │
00:10:47 verbose #72119 > │ let v173 : (unit -> UH1) = closure20(v163, v153) │
00:10:47 verbose #72120 > │ UH1_0(v164, v165, v167, v168, v169, v166, v170, v171, v172, │
00:10:47 verbose #72121 > │ v173) │
00:10:47 verbose #72122 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72123 > │ UH1_1 │
00:10:47 verbose #72124 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72125 > │ UH1_1 │
00:10:47 verbose #72126 > │ let v217 : UH1 = │
00:10:47 verbose #72127 > │ match v180 with │
00:10:47 verbose #72128 > │ | UH1_0(v181, v182, v183, v184, v185, v186, v187, v188, v189, v190) │
00:10:47 verbose #72129 > │ -> (* StreamCons *) │
00:10:47 verbose #72130 > │ match v50 with │
00:10:47 verbose #72131 > │ | UH1_0(v191, v192, v193, v194, v195, v196, v197, v198, v199, │
00:10:47 verbose #72132 > │ v200) -> (* StreamCons *) │
00:10:47 verbose #72133 > │ let v201 : float = v181 + v191 │
00:10:47 verbose #72134 > │ let v202 : float = v182 + v192 │
00:10:47 verbose #72135 > │ let v203 : float = v186 + v196 │
00:10:47 verbose #72136 > │ let v204 : float = v183 + v193 │
00:10:47 verbose #72137 > │ let v205 : float = v184 + v194 │
00:10:47 verbose #72138 > │ let v206 : float = v185 + v195 │
00:10:47 verbose #72139 > │ let v207 : float = v187 + v197 │
00:10:47 verbose #72140 > │ let v208 : float = v188 + v198 │
00:10:47 verbose #72141 > │ let v209 : float = v189 + v199 │
00:10:47 verbose #72142 > │ let v210 : (unit -> UH1) = closure20(v200, v190) │
00:10:47 verbose #72143 > │ UH1_0(v201, v202, v204, v205, v206, v203, v207, v208, v209, │
00:10:47 verbose #72144 > │ v210) │
00:10:47 verbose #72145 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72146 > │ UH1_1 │
00:10:47 verbose #72147 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72148 > │ UH1_1 │
00:10:47 verbose #72149 > │ let v254 : UH1 = │
00:10:47 verbose #72150 > │ match v217 with │
00:10:47 verbose #72151 > │ | UH1_0(v218, v219, v220, v221, v222, v223, v224, v225, v226, v227) │
00:10:47 verbose #72152 > │ -> (* StreamCons *) │
00:10:47 verbose #72153 > │ match v96 with │
00:10:47 verbose #72154 > │ | UH1_0(v228, v229, v230, v231, v232, v233, v234, v235, v236, │
00:10:47 verbose #72155 > │ v237) -> (* StreamCons *) │
00:10:47 verbose #72156 > │ let v238 : float = v218 + v228 │
00:10:47 verbose #72157 > │ let v239 : float = v219 + v229 │
00:10:47 verbose #72158 > │ let v240 : float = v223 + v233 │
00:10:47 verbose #72159 > │ let v241 : float = v220 + v230 │
00:10:47 verbose #72160 > │ let v242 : float = v221 + v231 │
00:10:47 verbose #72161 > │ let v243 : float = v222 + v232 │
00:10:47 verbose #72162 > │ let v244 : float = v224 + v234 │
00:10:47 verbose #72163 > │ let v245 : float = v225 + v235 │
00:10:47 verbose #72164 > │ let v246 : float = v226 + v236 │
00:10:47 verbose #72165 > │ let v247 : (unit -> UH1) = closure20(v237, v227) │
00:10:47 verbose #72166 > │ UH1_0(v238, v239, v241, v242, v243, v240, v244, v245, v246, │
00:10:47 verbose #72167 > │ v247) │
00:10:47 verbose #72168 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72169 > │ UH1_1 │
00:10:47 verbose #72170 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72171 > │ UH1_1 │
00:10:47 verbose #72172 > │ let v291 : UH1 = │
00:10:47 verbose #72173 > │ match v254 with │
00:10:47 verbose #72174 > │ | UH1_0(v255, v256, v257, v258, v259, v260, v261, v262, v263, v264) │
00:10:47 verbose #72175 > │ -> (* StreamCons *) │
00:10:47 verbose #72176 > │ match v96 with │
00:10:47 verbose #72177 > │ | UH1_0(v265, v266, v267, v268, v269, v270, v271, v272, v273, │
00:10:47 verbose #72178 > │ v274) -> (* StreamCons *) │
00:10:47 verbose #72179 > │ let v275 : float = v255 + v265 │
00:10:47 verbose #72180 > │ let v276 : float = v256 + v266 │
00:10:47 verbose #72181 > │ let v277 : float = v260 + v270 │
00:10:47 verbose #72182 > │ let v278 : float = v257 + v267 │
00:10:47 verbose #72183 > │ let v279 : float = v258 + v268 │
00:10:47 verbose #72184 > │ let v280 : float = v259 + v269 │
00:10:47 verbose #72185 > │ let v281 : float = v261 + v271 │
00:10:47 verbose #72186 > │ let v282 : float = v262 + v272 │
00:10:47 verbose #72187 > │ let v283 : float = v263 + v273 │
00:10:47 verbose #72188 > │ let v284 : (unit -> UH1) = closure20(v274, v264) │
00:10:47 verbose #72189 > │ UH1_0(v275, v276, v278, v279, v280, v277, v281, v282, v283, │
00:10:47 verbose #72190 > │ v284) │
00:10:47 verbose #72191 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72192 > │ UH1_1 │
00:10:47 verbose #72193 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72194 > │ UH1_1 │
00:10:47 verbose #72195 > │ let v328 : UH1 = │
00:10:47 verbose #72196 > │ match v291 with │
00:10:47 verbose #72197 > │ | UH1_0(v292, v293, v294, v295, v296, v297, v298, v299, v300, v301) │
00:10:47 verbose #72198 > │ -> (* StreamCons *) │
00:10:47 verbose #72199 > │ match v142 with │
00:10:47 verbose #72200 > │ | UH1_0(v302, v303, v304, v305, v306, v307, v308, v309, v310, │
00:10:47 verbose #72201 > │ v311) -> (* StreamCons *) │
00:10:47 verbose #72202 > │ let v312 : float = v292 + v302 │
00:10:47 verbose #72203 > │ let v313 : float = v293 + v303 │
00:10:47 verbose #72204 > │ let v314 : float = v297 + v307 │
00:10:47 verbose #72205 > │ let v315 : float = v294 + v304 │
00:10:47 verbose #72206 > │ let v316 : float = v295 + v305 │
00:10:47 verbose #72207 > │ let v317 : float = v296 + v306 │
00:10:47 verbose #72208 > │ let v318 : float = v298 + v308 │
00:10:47 verbose #72209 > │ let v319 : float = v299 + v309 │
00:10:47 verbose #72210 > │ let v320 : float = v300 + v310 │
00:10:47 verbose #72211 > │ let v321 : (unit -> UH1) = closure20(v311, v301) │
00:10:47 verbose #72212 > │ UH1_0(v312, v313, v315, v316, v317, v314, v318, v319, v320, │
00:10:47 verbose #72213 > │ v321) │
00:10:47 verbose #72214 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72215 > │ UH1_1 │
00:10:47 verbose #72216 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72217 > │ UH1_1 │
00:10:47 verbose #72218 > │ let v370 : UH0 = │
00:10:47 verbose #72219 > │ match v328 with │
00:10:47 verbose #72220 > │ | UH1_0(v329, v330, v331, v332, v333, v334, v335, v336, v337, v338) │
00:10:47 verbose #72221 > │ -> (* StreamCons *) │
00:10:47 verbose #72222 > │ match v2 with │
00:10:47 verbose #72223 > │ | UH0_0(v339, v340, v341, v342, v343, v344, v345, v346, v347, │
00:10:47 verbose #72224 > │ v348) -> (* StreamCons *) │
00:10:47 verbose #72225 > │ let v349 : float = v334 * v143 │
00:10:47 verbose #72226 > │ let v350 : float = v344 + v349 │
00:10:47 verbose #72227 > │ let v351 : float = v143 * v331 │
00:10:47 verbose #72228 > │ let v352 : float = v143 * v332 │
00:10:47 verbose #72229 > │ let v353 : float = v143 * v333 │
00:10:47 verbose #72230 > │ let v354 : float = v341 + v351 │
00:10:47 verbose #72231 > │ let v355 : float = v342 + v352 │
00:10:47 verbose #72232 > │ let v356 : float = v343 + v353 │
00:10:47 verbose #72233 > │ let v357 : float = v143 * v335 │
00:10:47 verbose #72234 > │ let v358 : float = v143 * v336 │
00:10:47 verbose #72235 > │ let v359 : float = v143 * v337 │
00:10:47 verbose #72236 > │ let v360 : float = v345 + v357 │
00:10:47 verbose #72237 > │ let v361 : float = v346 + v358 │
00:10:47 verbose #72238 > │ let v362 : float = v347 + v359 │
00:10:47 verbose #72239 > │ let v363 : (unit -> UH0) = closure3(v143, v348, v338) │
00:10:47 verbose #72240 > │ UH0_0(v339, v340, v354, v355, v356, v350, v360, v361, v362, │
00:10:47 verbose #72241 > │ v363) │
00:10:47 verbose #72242 > │ | UH0_1 -> (* StreamNil *) │
00:10:47 verbose #72243 > │ UH0_1 │
00:10:47 verbose #72244 > │ | UH1_1 -> (* StreamNil *) │
00:10:47 verbose #72245 > │ UH0_1 │
00:10:47 verbose #72246 > │ let v371 : (unit -> UH0) = closure4(v370) │
00:10:47 verbose #72247 > │ let v372 : (unit -> UH0) = method1(v370, v371) │
00:10:47 verbose #72248 > │ let v373 : UH0 = v372 () │
00:10:47 verbose #72249 > │ v373 │
00:10:47 verbose #72250 > │ and closure18 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:10:47 verbose #72251 > │ closure19(v0, v1) │
00:10:47 verbose #72252 > │ and closure17 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:10:47 verbose #72253 > │ closure18(v0) │
00:10:47 verbose #72254 > │ and method17 (v0 : UH4, v1 : UH6) : UH6 = │
00:10:47 verbose #72255 > │ match v0 with │
00:10:47 verbose #72256 > │ | UH4_1(v2, v3) -> (* Cons *) │
00:10:47 verbose #72257 > │ let v4 : UH6 = method17(v3, v1) │
00:10:47 verbose #72258 > │ let v5 : int32 = 0 │
00:10:47 verbose #72259 > │ let v6 : US2 = method6(v5, v2) │
00:10:47 verbose #72260 > │ let v23 : US3 = │
00:10:47 verbose #72261 > │ match v6 with │
00:10:47 verbose #72262 > │ | US2_1 -> (* None *) │
00:10:47 verbose #72263 > │ US3_1 │
00:10:47 verbose #72264 > │ | US2_0(v7, v8, v9, v10, v11, v12, v13, v14, v15) -> (* Some *) │
00:10:47 verbose #72265 > │ let v16 : UH7 = UH7_1 │
00:10:47 verbose #72266 > │ let v17 : UH7 = method12(v2, v16) │
00:10:47 verbose #72267 > │ let v18 : float = 0.0 │
00:10:47 verbose #72268 > │ let v19 : float = method13(v17, v18) │
00:10:47 verbose #72269 > │ US3_0(v12, v19) │
00:10:47 verbose #72270 > │ UH6_1(v23, v4) │
00:10:47 verbose #72271 > │ | UH4_0 -> (* Nil *) │
00:10:47 verbose #72272 > │ v1 │
00:10:47 verbose #72273 > │ and method19 (v0 : UH9, v1 : int32) : int32 = │
00:10:47 verbose #72274 > │ match v0 with │
00:10:47 verbose #72275 > │ | UH9_1(v2, v3) -> (* Cons *) │
00:10:47 verbose #72276 > │ let v4 : int32 = v1 + 1 │
00:10:47 verbose #72277 > │ method19(v3, v4) │
00:10:47 verbose #72278 > │ | UH9_0 -> (* Nil *) │
00:10:47 verbose #72279 > │ v1 │
00:10:47 verbose #72280 > │ and method20 (v0 : (float []), v1 : UH9, v2 : int32) : int32 = │
00:10:47 verbose #72281 > │ match v1 with │
00:10:47 verbose #72282 > │ | UH9_1(v3, v4) -> (* Cons *) │
00:10:47 verbose #72283 > │ v0.[int v2] <- v3 │
00:10:47 verbose #72284 > │ let v5 : int32 = v2 + 1 │
00:10:47 verbose #72285 > │ method20(v0, v4, v5) │
00:10:47 verbose #72286 > │ | UH9_0 -> (* Nil *) │
00:10:47 verbose #72287 > │ v2 │
00:10:47 verbose #72288 > │ and method18 (v0 : UH9) : (float []) = │
00:10:47 verbose #72289 > │ let v1 : int32 = 0 │
00:10:47 verbose #72290 > │ let v2 : int32 = method19(v0, v1) │
00:10:47 verbose #72291 > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:10:47 verbose #72292 > │ let v4 : int32 = 0 │
00:10:47 verbose #72293 > │ let v5 : int32 = method20(v3, v0, v4) │
00:10:47 verbose #72294 > │ v3 │
00:10:47 verbose #72295 > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:10:47 verbose #72296 > │ []) * (float [])) [])) = │
00:10:47 verbose #72297 > │ let v0 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure0() │
00:10:47 verbose #72298 > │ let v1 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v0 0.03 │
00:10:47 verbose #72299 > │ let v2 : (UH0 -> UH1) = closure8() │
00:10:47 verbose #72300 > │ let v3 : (UH0 -> UH0) = v1 v2 │
00:10:47 verbose #72301 > │ let v4 : UH4 = UH4_0 │
00:10:47 verbose #72302 > │ let v5 : int32 = 0 │
00:10:47 verbose #72303 > │ let v6 : UH4 = method7(v3, v4, v5) │
00:10:47 verbose #72304 > │ let v7 : UH6 = UH6_0 │
00:10:47 verbose #72305 > │ let v8 : UH6 = method11(v6, v7) │
00:10:47 verbose #72306 > │ let v9 : UH8 = UH8_0 │
00:10:47 verbose #72307 > │ let v10 : UH8 = method14(v8, v9) │
00:10:47 verbose #72308 > │ let v11 : UH9 = UH9_0 │
00:10:47 verbose #72309 > │ let v12 : UH9 = UH9_0 │
00:10:47 verbose #72310 > │ let struct (v13 : UH9, v14 : UH9) = method15(v10, v11, v12) │
00:10:47 verbose #72311 > │ let v15 : UH9 = UH9_0 │
00:10:47 verbose #72312 > │ let v16 : UH9 = method16(v13, v15) │
00:10:47 verbose #72313 > │ let v17 : UH9 = UH9_0 │
00:10:47 verbose #72314 > │ let v18 : UH9 = method16(v14, v17) │
00:10:47 verbose #72315 > │ let v19 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure17() │
00:10:47 verbose #72316 > │ let v20 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v19 0.03 │
00:10:47 verbose #72317 > │ let v21 : (UH0 -> UH0) = v20 v2 │
00:10:47 verbose #72318 > │ let v22 : UH4 = UH4_0 │
00:10:47 verbose #72319 > │ let v23 : int32 = 0 │
00:10:47 verbose #72320 > │ let v24 : UH4 = method7(v21, v22, v23) │
00:10:47 verbose #72321 > │ let v25 : UH6 = UH6_0 │
00:10:47 verbose #72322 > │ let v26 : UH6 = method17(v24, v25) │
00:10:47 verbose #72323 > │ let v27 : UH8 = UH8_0 │
00:10:47 verbose #72324 > │ let v28 : UH8 = method14(v26, v27) │
00:10:47 verbose #72325 > │ let v29 : UH9 = UH9_0 │
00:10:47 verbose #72326 > │ let v30 : UH9 = UH9_0 │
00:10:47 verbose #72327 > │ let struct (v31 : UH9, v32 : UH9) = method15(v28, v29, v30) │
00:10:47 verbose #72328 > │ let v33 : UH9 = UH9_0 │
00:10:47 verbose #72329 > │ let v34 : UH9 = method16(v31, v33) │
00:10:47 verbose #72330 > │ let v35 : UH9 = UH9_0 │
00:10:47 verbose #72331 > │ let v36 : UH9 = method16(v32, v35) │
00:10:47 verbose #72332 > │ let v37 : (float []) = method18(v16) │
00:10:47 verbose #72333 > │ let v38 : (float []) = method18(v18) │
00:10:47 verbose #72334 > │ let v39 : (float []) = method18(v34) │
00:10:47 verbose #72335 > │ let v40 : (float []) = method18(v36) │
00:10:47 verbose #72336 > │ let v41 : string = "euler-cromer" │
00:10:47 verbose #72337 > │ let v42 : string = "runge-kutta 4" │
00:10:47 verbose #72338 > │ let v43 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:47 verbose #72339 > │ (v41, v37, v38); struct (v42, v39, v40)|] │
00:10:47 verbose #72340 > │ let v44 : string = "system kinetic energy versus time" │
00:10:47 verbose #72341 > │ let v45 : string = "time (s)" │
00:10:47 verbose #72342 > │ let v46 : string = "system kinetic energy (j)" │
00:10:47 verbose #72343 > │ struct (v44, v45, v46, v43) │
00:10:47 verbose #72344 > │ method0() │
00:10:47 verbose #72345 > │ │
00:10:47 verbose #72346 > │ │
00:10:47 verbose #72347 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #72348 >
00:10:47 verbose #72349 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #72350 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #72351 > │ ### wave 2 │
00:10:47 verbose #72352 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #72353 >
00:10:47 verbose #72354 > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #72355 > // // test
00:10:47 verbose #72356 >
00:10:47 verbose #72357 > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:10:47 verbose #72358 > inl r1 = st1.pos_vec
00:10:47 verbose #72359 > inl r2 = st2.pos_vec
00:10:47 verbose #72360 > inl r21 = r2 ^-^ r1
00:10:47 verbose #72361 > inl r21mag = magnitude r21
00:10:47 verbose #72362 > -k * (r21mag - re) *^ r21 ^/ r21mag
00:10:47 verbose #72363 >
00:10:47 verbose #72364 > inl fixed_linear_spring k re r1 =
00:10:47 verbose #72365 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:47 verbose #72366 > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:10:47 verbose #72367 > r1 })
00:10:47 verbose #72368 >
00:10:47 verbose #72369 > inl forces_string () =
00:10:47 verbose #72370 > [[
00:10:47 verbose #72371 > ExternalForce (0i32, fixed_linear_spring 5384 0 (zero_vec ()))
00:10:47 verbose #72372 > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:10:47 verbose #72373 > ]] /@ (
00:10:47 verbose #72374 > listm'.init_series 0 59 1
00:10:47 verbose #72375 > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:10:47 verbose #72376 > )
00:10:47 verbose #72377 >
00:10:47 verbose #72378 > inl string_update dt =
00:10:47 verbose #72379 > update_mps (join runge_kutta_4 dt) (join forces_string ())
00:10:47 verbose #72380 >
00:10:47 verbose #72381 > inl string_initial_overtone n =
00:10:47 verbose #72382 > inl ball_mass = 0.0008293 * 0.65 / 64
00:10:47 verbose #72383 > inl (particle_state default_particle_state') = default_particle_state ()
00:10:47 verbose #72384 > listm'.init_series 0.01 0.64 0.01
00:10:47 verbose #72385 > |> listm.map (fun x =>
00:10:47 verbose #72386 > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:10:47 verbose #72387 > particle_state {
00:10:47 verbose #72388 > default_particle_state' with
00:10:47 verbose #72389 > mass = ball_mass
00:10:47 verbose #72390 > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:10:47 verbose #72391 > velocity = zero_vec ()
00:10:47 verbose #72392 > }
00:10:47 verbose #72393 > )
00:10:47 verbose #72394 > |> stream.from_list
00:10:47 verbose #72395 > |> multi_particle_state
00:10:47 verbose #72396 >
00:10:47 verbose #72397 > let main () =
00:10:47 verbose #72398 > inl ~frames = listm'.init_series 0 65 1f64 |> stream.from_list
00:10:47 verbose #72399 > inl ~initial_state = string_initial_overtone 3i32
00:10:47 verbose #72400 > inl frames =
00:10:47 verbose #72401 > frames
00:10:47 verbose #72402 > |> stream.map (fun n =>
00:10:47 verbose #72403 > inl (multi_particle_state sts) =
00:10:47 verbose #72404 > stream.iterate (string_update 0.000025) initial_state |>
00:10:47 verbose #72405 > stream.item n
00:10:47 verbose #72406 > inl x, y =
00:10:47 verbose #72407 > [[ zero_vec () ]]
00:10:47 verbose #72408 > /@ (sts |> stream.map (fun (particle_state st) => st.pos_vec) |>
00:10:47 verbose #72409 > stream.to_list)
00:10:47 verbose #72410 > /@ [[ 0.65 *^ i_hat () ]]
00:10:47 verbose #72411 > |> listm.map (fun r => r.x, r.y)
00:10:47 verbose #72412 > |> stream.from_list
00:10:47 verbose #72413 > |> stream.unzip
00:10:47 verbose #72414 > inl x : a i32 _ = x |> stream.to_list |> listm.toArray
00:10:47 verbose #72415 > inl y : a i32 _ = y |> stream.to_list |> listm.toArray
00:10:47 verbose #72416 > x, y
00:10:47 verbose #72417 > )
00:10:47 verbose #72418 >
00:10:47 verbose #72419 > inl plots =
00:10:47 verbose #72420 > frames
00:10:47 verbose #72421 > |> stream.indexed
00:10:47 verbose #72422 > |> stream.map (fun ((n : i32), (x, y)) =>
00:10:47 verbose #72423 > "wave",
00:10:47 verbose #72424 > "position (m)",
00:10:47 verbose #72425 > "displacement (m)",
00:10:47 verbose #72426 > ;[[
00:10:47 verbose #72427 > ($"$\"{!n}\"" : string), x, y
00:10:47 verbose #72428 > ]]
00:10:47 verbose #72429 > )
00:10:47 verbose #72430 >
00:10:47 verbose #72431 > plots |> stream.to_list |> listm.toArray : a i32 _
00:10:47 verbose #72432 > 00:10:47 debug #814 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9619ff1cefef93f222896b541d3809e745097edef8b04f8df13536ca1ffe22ee/main.spi
00:10:54 verbose #72433 >
00:10:54 verbose #72434 > ╭─[ 6.82s - return value ]─────────────────────────────────────────────────────╮
00:10:54 verbose #72435 > │ <table><thead><tr><th><i>index</i></th><th>value</th></tr></thead><tbody><tr │
00:10:54 verbose #72436 > │ ><td>0</td><td><svg width="640" height="480" viewBox="0 0 640 480" │
00:10:54 verbose #72437 > │ xmlns="http://www.w3.org/2000/svg"> │
00:10:54 verbose #72438 > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:10:54 verbose #72439 > │ stroke="none"/> │
00:10:54 verbose #72440 > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:10:54 verbose #72441 > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:10:54 verbose #72442 > │ fill="#FFFFFF"> │
00:10:54 verbose #72443 > │ wave │
00:10:54 verbose #72444 > │ </text> │
00:10:54 verbose #72445 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:10:54 verbose #72446 > │ y2="75"/> │
00:10:54 verbose #72447 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:10:54 verbose #72448 > │ y2="75"/> │
00:10:54 verbose #72449 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:10:54 verbose #72450 > │ y2="75"/> │
00:10:54 verbose #72451 > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" │
00:10:54 verbose #72452 > │ x2="85... │
00:10:54 verbose #72453 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:54 verbose #72454 >
00:10:54 verbose #72455 > ╭─[ 6.84s - stdout ]───────────────────────────────────────────────────────────╮
00:10:54 verbose #72456 > │ type UH0 = │
00:10:54 verbose #72457 > │ | UH0_0 of float * (unit -> UH0) │
00:10:54 verbose #72458 > │ | UH0_1 │
00:10:54 verbose #72459 > │ and UH1 = │
00:10:54 verbose #72460 > │ | UH1_0 of float * float * float * float * float * float * float * float │
00:10:54 verbose #72461 > │ * float * (unit -> UH1) │
00:10:54 verbose #72462 > │ | UH1_1 │
00:10:54 verbose #72463 > │ and UH2 = │
00:10:54 verbose #72464 > │ | UH2_0 of (float []) * (float []) * (unit -> UH2) │
00:10:54 verbose #72465 > │ | UH2_1 │
00:10:54 verbose #72466 > │ and UH3 = │
00:10:54 verbose #72467 > │ | UH3_0 of float * float * float * float * float * float * float * float │
00:10:54 verbose #72468 > │ * float * (unit -> UH3) │
00:10:54 verbose #72469 > │ | UH3_1 │
00:10:54 verbose #72470 > │ and [<Struct>] US0 = │
00:10:54 verbose #72471 > │ | US0_0 of f0_0 : (unit -> UH1) │
00:10:54 verbose #72472 > │ | US0_1 of f1_0 : UH1 │
00:10:54 verbose #72473 > │ and Mut0 = {mutable l0 : US0} │
00:10:54 verbose #72474 > │ and [<Struct>] US1 = │
00:10:54 verbose #72475 > │ | US1_0 of f0_0 : int32 * f0_1 : (struct (float * float * float * float │
00:10:54 verbose #72476 > │ * float * float * float * float * float) -> struct (float * float * float)) │
00:10:54 verbose #72477 > │ | US1_1 of f1_0 : int32 * f1_1 : int32 * f1_2 : (struct (float * float * │
00:10:54 verbose #72478 > │ float * float * float * float * float * float * float) -> (struct (float * │
00:10:54 verbose #72479 > │ float * float * float * float * float * float * float * float) -> struct │
00:10:54 verbose #72480 > │ (float * float * float))) │
00:10:54 verbose #72481 > │ and UH4 = │
00:10:54 verbose #72482 > │ | UH4_0 │
00:10:54 verbose #72483 > │ | UH4_1 of US1 * UH4 │
00:10:54 verbose #72484 > │ and UH5 = │
00:10:54 verbose #72485 > │ | UH5_0 of int32 * float * float * float * float * float * float * float │
00:10:54 verbose #72486 > │ * float * float * (unit -> UH5) │
00:10:54 verbose #72487 > │ | UH5_1 │
00:10:54 verbose #72488 > │ and UH6 = │
00:10:54 verbose #72489 > │ | UH6_0 │
00:10:54 verbose #72490 > │ | UH6_1 of (struct (float * float * float * float * float * float * │
00:10:54 verbose #72491 > │ float * float * float) -> struct (float * float * float)) * UH6 │
00:10:54 verbose #72492 > │ and [<Struct>] US2 = │
00:10:54 verbose #72493 > │ | US2_0 of f0_0 : (struct (float * float * float * float * float * float │
00:10:54 verbose #72494 > │ * float * float * float) -> struct (float * float * float)) │
00:10:54 verbose #72495 > │ | US2_1 │
00:10:54 verbose #72496 > │ and [<Struct>] US3 = │
00:10:54 verbose #72497 > │ | US3_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:10:54 verbose #72498 > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:10:54 verbose #72499 > │ | US3_1 │
00:10:54 verbose #72500 > │ and UH7 = │
00:10:54 verbose #72501 > │ | UH7_0 │
00:10:54 verbose #72502 > │ | UH7_1 of float * float * float * UH7 │
00:10:54 verbose #72503 > │ and UH8 = │
00:10:54 verbose #72504 > │ | UH8_0 of UH1 * (unit -> UH8) │
00:10:54 verbose #72505 > │ | UH8_1 │
00:10:54 verbose #72506 > │ and [<Struct>] US4 = │
00:10:54 verbose #72507 > │ | US4_0 of f0_0 : UH1 │
00:10:54 verbose #72508 > │ | US4_1 │
00:10:54 verbose #72509 > │ and UH9 = │
00:10:54 verbose #72510 > │ | UH9_0 of float * float * float * (unit -> UH9) │
00:10:54 verbose #72511 > │ | UH9_1 │
00:10:54 verbose #72512 > │ and UH10 = │
00:10:54 verbose #72513 > │ | UH10_0 │
00:10:54 verbose #72514 > │ | UH10_1 of float * float * UH10 │
00:10:54 verbose #72515 > │ and UH11 = │
00:10:54 verbose #72516 > │ | UH11_0 of float * float * (unit -> UH11) │
00:10:54 verbose #72517 > │ | UH11_1 │
00:10:54 verbose #72518 > │ and UH12 = │
00:10:54 verbose #72519 > │ | UH12_0 │
00:10:54 verbose #72520 > │ | UH12_1 of float * UH12 │
00:10:54 verbose #72521 > │ and UH13 = │
00:10:54 verbose #72522 > │ | UH13_0 of int32 * (float []) * (float []) * (unit -> UH13) │
00:10:54 verbose #72523 > │ | UH13_1 │
00:10:54 verbose #72524 > │ and UH14 = │
00:10:54 verbose #72525 > │ | UH14_0 of string * string * string * (struct (string * (float []) * │
00:10:54 verbose #72526 > │ (float [])) []) * (unit -> UH14) │
00:10:54 verbose #72527 > │ | UH14_1 │
00:10:54 verbose #72528 > │ and UH15 = │
00:10:54 verbose #72529 > │ | UH15_0 │
00:10:54 verbose #72530 > │ | UH15_1 of string * string * string * (struct (string * (float []) * │
00:10:54 verbose #72531 > │ (float [])) []) * UH15 │
00:10:54 verbose #72532 > │ let rec closure65 () () : UH0 = │
00:10:54 verbose #72533 > │ UH0_1 │
00:10:54 verbose #72534 > │ and closure64 () () : UH0 = │
00:10:54 verbose #72535 > │ let v0 : (unit -> UH0) = closure65() │
00:10:54 verbose #72536 > │ UH0_0(65.0, v0) │
00:10:54 verbose #72537 > │ and closure63 () () : UH0 = │
00:10:54 verbose #72538 > │ let v0 : (unit -> UH0) = closure64() │
00:10:54 verbose #72539 > │ UH0_0(64.0, v0) │
00:10:54 verbose #72540 > │ and closure62 () () : UH0 = │
00:10:54 verbose #72541 > │ let v0 : (unit -> UH0) = closure63() │
00:10:54 verbose #72542 > │ UH0_0(63.0, v0) │
00:10:54 verbose #72543 > │ and closure61 () () : UH0 = │
00:10:54 verbose #72544 > │ let v0 : (unit -> UH0) = closure62() │
00:10:54 verbose #72545 > │ UH0_0(62.0, v0) │
00:10:54 verbose #72546 > │ and closure60 () () : UH0 = │
00:10:54 verbose #72547 > │ let v0 : (unit -> UH0) = closure61() │
00:10:54 verbose #72548 > │ UH0_0(61.0, v0) │
00:10:54 verbose #72549 > │ and closure59 () () : UH0 = │
00:10:54 verbose #72550 > │ let v0 : (unit -> UH0) = closure60() │
00:10:54 verbose #72551 > │ UH0_0(60.0, v0) │
00:10:54 verbose #72552 > │ and closure58 () () : UH0 = │
00:10:54 verbose #72553 > │ let v0 : (unit -> UH0) = closure59() │
00:10:54 verbose #72554 > │ UH0_0(59.0, v0) │
00:10:54 verbose #72555 > │ and closure57 () () : UH0 = │
00:10:54 verbose #72556 > │ let v0 : (unit -> UH0) = closure58() │
00:10:54 verbose #72557 > │ UH0_0(58.0, v0) │
00:10:54 verbose #72558 > │ and closure56 () () : UH0 = │
00:10:54 verbose #72559 > │ let v0 : (unit -> UH0) = closure57() │
00:10:54 verbose #72560 > │ UH0_0(57.0, v0) │
00:10:54 verbose #72561 > │ and closure55 () () : UH0 = │
00:10:54 verbose #72562 > │ let v0 : (unit -> UH0) = closure56() │
00:10:54 verbose #72563 > │ UH0_0(56.0, v0) │
00:10:54 verbose #72564 > │ and closure54 () () : UH0 = │
00:10:54 verbose #72565 > │ let v0 : (unit -> UH0) = closure55() │
00:10:54 verbose #72566 > │ UH0_0(55.0, v0) │
00:10:54 verbose #72567 > │ and closure53 () () : UH0 = │
00:10:54 verbose #72568 > │ let v0 : (unit -> UH0) = closure54() │
00:10:54 verbose #72569 > │ UH0_0(54.0, v0) │
00:10:54 verbose #72570 > │ and closure52 () () : UH0 = │
00:10:54 verbose #72571 > │ let v0 : (unit -> UH0) = closure53() │
00:10:54 verbose #72572 > │ UH0_0(53.0, v0) │
00:10:54 verbose #72573 > │ and closure51 () () : UH0 = │
00:10:54 verbose #72574 > │ let v0 : (unit -> UH0) = closure52() │
00:10:54 verbose #72575 > │ UH0_0(52.0, v0) │
00:10:54 verbose #72576 > │ and closure50 () () : UH0 = │
00:10:54 verbose #72577 > │ let v0 : (unit -> UH0) = closure51() │
00:10:54 verbose #72578 > │ UH0_0(51.0, v0) │
00:10:54 verbose #72579 > │ and closure49 () () : UH0 = │
00:10:54 verbose #72580 > │ let v0 : (unit -> UH0) = closure50() │
00:10:54 verbose #72581 > │ UH0_0(50.0, v0) │
00:10:54 verbose #72582 > │ and closure48 () () : UH0 = │
00:10:54 verbose #72583 > │ let v0 : (unit -> UH0) = closure49() │
00:10:54 verbose #72584 > │ UH0_0(49.0, v0) │
00:10:54 verbose #72585 > │ and closure47 () () : UH0 = │
00:10:54 verbose #72586 > │ let v0 : (unit -> UH0) = closure48() │
00:10:54 verbose #72587 > │ UH0_0(48.0, v0) │
00:10:54 verbose #72588 > │ and closure46 () () : UH0 = │
00:10:54 verbose #72589 > │ let v0 : (unit -> UH0) = closure47() │
00:10:54 verbose #72590 > │ UH0_0(47.0, v0) │
00:10:54 verbose #72591 > │ and closure45 () () : UH0 = │
00:10:54 verbose #72592 > │ let v0 : (unit -> UH0) = closure46() │
00:10:54 verbose #72593 > │ UH0_0(46.0, v0) │
00:10:54 verbose #72594 > │ and closure44 () () : UH0 = │
00:10:54 verbose #72595 > │ let v0 : (unit -> UH0) = closure45() │
00:10:54 verbose #72596 > │ UH0_0(45.0, v0) │
00:10:54 verbose #72597 > │ and closure43 () () : UH0 = │
00:10:54 verbose #72598 > │ let v0 : (unit -> UH0) = closure44() │
00:10:54 verbose #72599 > │ UH0_0(44.0, v0) │
00:10:54 verbose #72600 > │ and closure42 () () : UH0 = │
00:10:54 verbose #72601 > │ let v0 : (unit -> UH0) = closure43() │
00:10:54 verbose #72602 > │ UH0_0(43.0, v0) │
00:10:54 verbose #72603 > │ and closure41 () () : UH0 = │
00:10:54 verbose #72604 > │ let v0 : (unit -> UH0) = closure42() │
00:10:54 verbose #72605 > │ UH0_0(42.0, v0) │
00:10:54 verbose #72606 > │ and closure40 () () : UH0 = │
00:10:54 verbose #72607 > │ let v0 : (unit -> UH0) = closure41() │
00:10:54 verbose #72608 > │ UH0_0(41.0, v0) │
00:10:54 verbose #72609 > │ and closure39 () () : UH0 = │
00:10:54 verbose #72610 > │ let v0 : (unit -> UH0) = closure40() │
00:10:54 verbose #72611 > │ UH0_0(40.0, v0) │
00:10:54 verbose #72612 > │ and closure38 () () : UH0 = │
00:10:54 verbose #72613 > │ let v0 : (unit -> UH0) = closure39() │
00:10:54 verbose #72614 > │ UH0_0(39.0, v0) │
00:10:54 verbose #72615 > │ and closure37 () () : UH0 = │
00:10:54 verbose #72616 > │ let v0 : (unit -> UH0) = closure38() │
00:10:54 verbose #72617 > │ UH0_0(38.0, v0) │
00:10:54 verbose #72618 > │ and closure36 () () : UH0 = │
00:10:54 verbose #72619 > │ let v0 : (unit -> UH0) = closure37() │
00:10:54 verbose #72620 > │ UH0_0(37.0, v0) │
00:10:54 verbose #72621 > │ and closure35 () () : UH0 = │
00:10:54 verbose #72622 > │ let v0 : (unit -> UH0) = closure36() │
00:10:54 verbose #72623 > │ UH0_0(36.0, v0) │
00:10:54 verbose #72624 > │ and closure34 () () : UH0 = │
00:10:54 verbose #72625 > │ let v0 : (unit -> UH0) = closure35() │
00:10:54 verbose #72626 > │ UH0_0(35.0, v0) │
00:10:54 verbose #72627 > │ and closure33 () () : UH0 = │
00:10:54 verbose #72628 > │ let v0 : (unit -> UH0) = closure34() │
00:10:54 verbose #72629 > │ UH0_0(34.0, v0) │
00:10:54 verbose #72630 > │ and closure32 () () : UH0 = │
00:10:54 verbose #72631 > │ let v0 : (unit -> UH0) = closure33() │
00:10:54 verbose #72632 > │ UH0_0(33.0, v0) │
00:10:54 verbose #72633 > │ and closure31 () () : UH0 = │
00:10:54 verbose #72634 > │ let v0 : (unit -> UH0) = closure32() │
00:10:54 verbose #72635 > │ UH0_0(32.0, v0) │
00:10:54 verbose #72636 > │ and closure30 () () : UH0 = │
00:10:54 verbose #72637 > │ let v0 : (unit -> UH0) = closure31() │
00:10:54 verbose #72638 > │ UH0_0(31.0, v0) │
00:10:54 verbose #72639 > │ and closure29 () () : UH0 = │
00:10:54 verbose #72640 > │ let v0 : (unit -> UH0) = closure30() │
00:10:54 verbose #72641 > │ UH0_0(30.0, v0) │
00:10:54 verbose #72642 > │ and closure28 () () : UH0 = │
00:10:54 verbose #72643 > │ let v0 : (unit -> UH0) = closure29() │
00:10:54 verbose #72644 > │ UH0_0(29.0, v0) │
00:10:54 verbose #72645 > │ and closure27 () () : UH0 = │
00:10:54 verbose #72646 > │ let v0 : (unit -> UH0) = closure28() │
00:10:54 verbose #72647 > │ UH0_0(28.0, v0) │
00:10:54 verbose #72648 > │ and closure26 () () : UH0 = │
00:10:54 verbose #72649 > │ let v0 : (unit -> UH0) = closure27() │
00:10:54 verbose #72650 > │ UH0_0(27.0, v0) │
00:10:54 verbose #72651 > │ and closure25 () () : UH0 = │
00:10:54 verbose #72652 > │ let v0 : (unit -> UH0) = closure26() │
00:10:54 verbose #72653 > │ UH0_0(26.0, v0) │
00:10:54 verbose #72654 > │ and closure24 () () : UH0 = │
00:10:54 verbose #72655 > │ let v0 : (unit -> UH0) = closure25() │
00:10:54 verbose #72656 > │ UH0_0(25.0, v0) │
00:10:54 verbose #72657 > │ and closure23 () () : UH0 = │
00:10:54 verbose #72658 > │ let v0 : (unit -> UH0) = closure24() │
00:10:54 verbose #72659 > │ UH0_0(24.0, v0) │
00:10:54 verbose #72660 > │ and closure22 () () : UH0 = │
00:10:54 verbose #72661 > │ let v0 : (unit -> UH0) = closure23() │
00:10:54 verbose #72662 > │ UH0_0(23.0, v0) │
00:10:54 verbose #72663 > │ and closure21 () () : UH0 = │
00:10:54 verbose #72664 > │ let v0 : (unit -> UH0) = closure22() │
00:10:54 verbose #72665 > │ UH0_0(22.0, v0) │
00:10:54 verbose #72666 > │ and closure20 () () : UH0 = │
00:10:54 verbose #72667 > │ let v0 : (unit -> UH0) = closure21() │
00:10:54 verbose #72668 > │ UH0_0(21.0, v0) │
00:10:54 verbose #72669 > │ and closure19 () () : UH0 = │
00:10:54 verbose #72670 > │ let v0 : (unit -> UH0) = closure20() │
00:10:54 verbose #72671 > │ UH0_0(20.0, v0) │
00:10:54 verbose #72672 > │ and closure18 () () : UH0 = │
00:10:54 verbose #72673 > │ let v0 : (unit -> UH0) = closure19() │
00:10:54 verbose #72674 > │ UH0_0(19.0, v0) │
00:10:54 verbose #72675 > │ and closure17 () () : UH0 = │
00:10:54 verbose #72676 > │ let v0 : (unit -> UH0) = closure18() │
00:10:54 verbose #72677 > │ UH0_0(18.0, v0) │
00:10:54 verbose #72678 > │ and closure16 () () : UH0 = │
00:10:54 verbose #72679 > │ let v0 : (unit -> UH0) = closure17() │
00:10:54 verbose #72680 > │ UH0_0(17.0, v0) │
00:10:54 verbose #72681 > │ and closure15 () () : UH0 = │
00:10:54 verbose #72682 > │ let v0 : (unit -> UH0) = closure16() │
00:10:54 verbose #72683 > │ UH0_0(16.0, v0) │
00:10:54 verbose #72684 > │ and closure14 () () : UH0 = │
00:10:54 verbose #72685 > │ let v0 : (unit -> UH0) = closure15() │
00:10:54 verbose #72686 > │ UH0_0(15.0, v0) │
00:10:54 verbose #72687 > │ and closure13 () () : UH0 = │
00:10:54 verbose #72688 > │ let v0 : (unit -> UH0) = closure14() │
00:10:54 verbose #72689 > │ UH0_0(14.0, v0) │
00:10:54 verbose #72690 > │ and closure12 () () : UH0 = │
00:10:54 verbose #72691 > │ let v0 : (unit -> UH0) = closure13() │
00:10:54 verbose #72692 > │ UH0_0(13.0, v0) │
00:10:54 verbose #72693 > │ and closure11 () () : UH0 = │
00:10:54 verbose #72694 > │ let v0 : (unit -> UH0) = closure12() │
00:10:54 verbose #72695 > │ UH0_0(12.0, v0) │
00:10:54 verbose #72696 > │ and closure10 () () : UH0 = │
00:10:54 verbose #72697 > │ let v0 : (unit -> UH0) = closure11() │
00:10:54 verbose #72698 > │ UH0_0(11.0, v0) │
00:10:54 verbose #72699 > │ and closure9 () () : UH0 = │
00:10:54 verbose #72700 > │ let v0 : (unit -> UH0) = closure10() │
00:10:54 verbose #72701 > │ UH0_0(10.0, v0) │
00:10:54 verbose #72702 > │ and closure8 () () : UH0 = │
00:10:54 verbose #72703 > │ let v0 : (unit -> UH0) = closure9() │
00:10:54 verbose #72704 > │ UH0_0(9.0, v0) │
00:10:54 verbose #72705 > │ and closure7 () () : UH0 = │
00:10:54 verbose #72706 > │ let v0 : (unit -> UH0) = closure8() │
00:10:54 verbose #72707 > │ UH0_0(8.0, v0) │
00:10:54 verbose #72708 > │ and closure6 () () : UH0 = │
00:10:54 verbose #72709 > │ let v0 : (unit -> UH0) = closure7() │
00:10:54 verbose #72710 > │ UH0_0(7.0, v0) │
00:10:54 verbose #72711 > │ and closure5 () () : UH0 = │
00:10:54 verbose #72712 > │ let v0 : (unit -> UH0) = closure6() │
00:10:54 verbose #72713 > │ UH0_0(6.0, v0) │
00:10:54 verbose #72714 > │ and closure4 () () : UH0 = │
00:10:54 verbose #72715 > │ let v0 : (unit -> UH0) = closure5() │
00:10:54 verbose #72716 > │ UH0_0(5.0, v0) │
00:10:54 verbose #72717 > │ and closure3 () () : UH0 = │
00:10:54 verbose #72718 > │ let v0 : (unit -> UH0) = closure4() │
00:10:54 verbose #72719 > │ UH0_0(4.0, v0) │
00:10:54 verbose #72720 > │ and closure2 () () : UH0 = │
00:10:54 verbose #72721 > │ let v0 : (unit -> UH0) = closure3() │
00:10:54 verbose #72722 > │ UH0_0(3.0, v0) │
00:10:54 verbose #72723 > │ and closure1 () () : UH0 = │
00:10:54 verbose #72724 > │ let v0 : (unit -> UH0) = closure2() │
00:10:54 verbose #72725 > │ UH0_0(2.0, v0) │
00:10:54 verbose #72726 > │ and closure0 () () : UH0 = │
00:10:54 verbose #72727 > │ let v0 : (unit -> UH0) = closure1() │
00:10:54 verbose #72728 > │ UH0_0(1.0, v0) │
00:10:54 verbose #72729 > │ and closure129 () () : UH1 = │
00:10:54 verbose #72730 > │ UH1_1 │
00:10:54 verbose #72731 > │ and closure128 () () : UH1 = │
00:10:54 verbose #72732 > │ let v0 : (unit -> UH1) = closure129() │
00:10:54 verbose #72733 > │ UH1_0(0.0, 8.422578125E-06, 0.64, 0.0007224452478461016, 0.0, 0.0, 0.0, │
00:10:54 verbose #72734 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72735 > │ and closure127 () () : UH1 = │
00:10:54 verbose #72736 > │ let v0 : (unit -> UH1) = closure128() │
00:10:54 verbose #72737 > │ UH1_0(0.0, 8.422578125E-06, 0.63, 0.001429728391993452, 0.0, 0.0, 0.0, │
00:10:54 verbose #72738 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72739 > │ and closure126 () () : UH1 = │
00:10:54 verbose #72740 > │ let v0 : (unit -> UH1) = closure127() │
00:10:54 verbose #72741 > │ UH1_0(0.0, 8.422578125E-06, 0.62, 0.0021070055388626528, 0.0, 0.0, 0.0, │
00:10:54 verbose #72742 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72743 > │ and closure125 () () : UH1 = │
00:10:54 verbose #72744 > │ let v0 : (unit -> UH1) = closure126() │
00:10:54 verbose #72745 > │ UH1_0(0.0, 8.422578125E-06, 0.61, 0.0027400625367733585, 0.0, 0.0, 0.0, │
00:10:54 verbose #72746 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72747 > │ and closure124 () () : UH1 = │
00:10:54 verbose #72748 > │ let v0 : (unit -> UH1) = closure125() │
00:10:54 verbose #72749 > │ UH1_0(0.0, 8.422578125E-06, 0.6, 0.0033156132912039783, 0.0, 0.0, 0.0, │
00:10:54 verbose #72750 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72751 > │ and closure123 () () : UH1 = │
00:10:54 verbose #72752 > │ let v0 : (unit -> UH1) = closure124() │
00:10:54 verbose #72753 > │ UH1_0(0.0, 8.422578125E-06, 0.59, 0.003821578602729245, 0.0, 0.0, 0.0, │
00:10:54 verbose #72754 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72755 > │ and closure122 () () : UH1 = │
00:10:54 verbose #72756 > │ let v0 : (unit -> UH1) = closure123() │
00:10:54 verbose #72757 > │ UH1_0(0.0, 8.422578125E-06, 0.5800000000000001, 0.004247339675607605, │
00:10:54 verbose #72758 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72759 > │ and closure121 () () : UH1 = │
00:10:54 verbose #72760 > │ let v0 : (unit -> UH1) = closure122() │
00:10:54 verbose #72761 > │ UH1_0(0.0, 8.422578125E-06, 0.5700000000000001, 0.004583960976582912, │
00:10:54 verbose #72762 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72763 > │ and closure120 () () : UH1 = │
00:10:54 verbose #72764 > │ let v0 : (unit -> UH1) = closure121() │
00:10:54 verbose #72765 > │ UH1_0(0.0, 8.422578125E-06, 0.56, 0.004824377766717758, 0.0, 0.0, 0.0, │
00:10:54 verbose #72766 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72767 > │ and closure119 () () : UH1 = │
00:10:54 verbose #72768 > │ let v0 : (unit -> UH1) = closure120() │
00:10:54 verbose #72769 > │ UH1_0(0.0, 8.422578125E-06, 0.55, 0.004963544370490271, 0.0, 0.0, 0.0, │
00:10:54 verbose #72770 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72771 > │ and closure118 () () : UH1 = │
00:10:54 verbose #72772 > │ let v0 : (unit -> UH1) = closure119() │
00:10:54 verbose #72773 > │ UH1_0(0.0, 8.422578125E-06, 0.54, 0.004998540070400965, 0.0, 0.0, 0.0, │
00:10:54 verbose #72774 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72775 > │ and closure117 () () : UH1 = │
00:10:54 verbose #72776 > │ let v0 : (unit -> UH1) = closure118() │
00:10:54 verbose #72777 > │ UH1_0(0.0, 8.422578125E-06, 0.53, 0.004928630404658255, 0.0, 0.0, 0.0, │
00:10:54 verbose #72778 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72779 > │ and closure116 () () : UH1 = │
00:10:54 verbose #72780 > │ let v0 : (unit -> UH1) = closure117() │
00:10:54 verbose #72781 > │ UH1_0(0.0, 8.422578125E-06, 0.52, 0.004755282581475766, 0.0, 0.0, 0.0, │
00:10:54 verbose #72782 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72783 > │ and closure115 () () : UH1 = │
00:10:54 verbose #72784 > │ let v0 : (unit -> UH1) = closure116() │
00:10:54 verbose #72785 > │ UH1_0(0.0, 8.422578125E-06, 0.51, 0.0044821346864785195, 0.0, 0.0, 0.0, │
00:10:54 verbose #72786 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72787 > │ and closure114 () () : UH1 = │
00:10:54 verbose #72788 > │ let v0 : (unit -> UH1) = closure115() │
00:10:54 verbose #72789 > │ UH1_0(0.0, 8.422578125E-06, 0.5, 0.0041149193294682815, 0.0, 0.0, 0.0, │
00:10:54 verbose #72790 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72791 > │ and closure113 () () : UH1 = │
00:10:54 verbose #72792 > │ let v0 : (unit -> UH1) = closure114() │
00:10:54 verbose #72793 > │ UH1_0(0.0, 8.422578125E-06, 0.49, 0.0036613433329888622, 0.0, 0.0, 0.0, │
00:10:54 verbose #72794 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72795 > │ and closure112 () () : UH1 = │
00:10:54 verbose #72796 > │ let v0 : (unit -> UH1) = closure113() │
00:10:54 verbose #72797 > │ UH1_0(0.0, 8.422578125E-06, 0.48000000000000004, 0.003130925987691568, │
00:10:54 verbose #72798 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72799 > │ and closure111 () () : UH1 = │
00:10:54 verbose #72800 > │ let v0 : (unit -> UH1) = closure112() │
00:10:54 verbose #72801 > │ UH1_0(0.0, 8.422578125E-06, 0.47000000000000003, 0.002534799269067953, │
00:10:54 verbose #72802 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72803 > │ and closure110 () () : UH1 = │
00:10:54 verbose #72804 > │ let v0 : (unit -> UH1) = closure111() │
00:10:54 verbose #72805 > │ UH1_0(0.0, 8.422578125E-06, 0.46, 0.0018854742084416021, 0.0, 0.0, 0.0, │
00:10:54 verbose #72806 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72807 > │ and closure109 () () : UH1 = │
00:10:54 verbose #72808 > │ let v0 : (unit -> UH1) = closure110() │
00:10:54 verbose #72809 > │ UH1_0(0.0, 8.422578125E-06, 0.45, 0.0011965783214377866, 0.0, 0.0, 0.0, │
00:10:54 verbose #72810 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72811 > │ and closure108 () () : UH1 = │
00:10:54 verbose #72812 > │ let v0 : (unit -> UH1) = closure109() │
00:10:54 verbose #72813 > │ UH1_0(0.0, 8.422578125E-06, 0.44, 0.0004825696045725713, 0.0, 0.0, 0.0, │
00:10:54 verbose #72814 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72815 > │ and closure107 () () : UH1 = │
00:10:54 verbose #72816 > │ let v0 : (unit -> UH1) = closure108() │
00:10:54 verbose #72817 > │ UH1_0(0.0, 8.422578125E-06, 0.43, -0.00024156689762753724, 0.0, 0.0, │
00:10:54 verbose #72818 > │ 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72819 > │ and closure106 () () : UH1 = │
00:10:54 verbose #72820 > │ let v0 : (unit -> UH1) = closure107() │
00:10:54 verbose #72821 > │ UH1_0(0.0, 8.422578125E-06, 0.42000000000000004, -0.0009606335867685414, │
00:10:54 verbose #72822 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72823 > │ and closure105 () () : UH1 = │
00:10:54 verbose #72824 > │ let v0 : (unit -> UH1) = closure106() │
00:10:54 verbose #72825 > │ UH1_0(0.0, 8.422578125E-06, 0.41000000000000003, -0.0016595392656426435, │
00:10:54 verbose #72826 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72827 > │ and closure104 () () : UH1 = │
00:10:54 verbose #72828 > │ let v0 : (unit -> UH1) = closure105() │
00:10:54 verbose #72829 > │ UH1_0(0.0, 8.422578125E-06, 0.4, -0.002323615860218846, 0.0, 0.0, 0.0, │
00:10:54 verbose #72830 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72831 > │ and closure103 () () : UH1 = │
00:10:54 verbose #72832 > │ let v0 : (unit -> UH1) = closure104() │
00:10:54 verbose #72833 > │ UH1_0(0.0, 8.422578125E-06, 0.39, -0.002938926261462367, 0.0, 0.0, 0.0, │
00:10:54 verbose #72834 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72835 > │ and closure102 () () : UH1 = │
00:10:54 verbose #72836 > │ let v0 : (unit -> UH1) = closure103() │
00:10:54 verbose #72837 > │ UH1_0(0.0, 8.422578125E-06, 0.38, -0.0034925568262446837, 0.0, 0.0, 0.0, │
00:10:54 verbose #72838 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72839 > │ and closure101 () () : UH1 = │
00:10:54 verbose #72840 > │ let v0 : (unit -> UH1) = closure102() │
00:10:54 verbose #72841 > │ UH1_0(0.0, 8.422578125E-06, 0.37, -0.003972888398568774, 0.0, 0.0, 0.0, │
00:10:54 verbose #72842 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72843 > │ and closure100 () () : UH1 = │
00:10:54 verbose #72844 > │ let v0 : (unit -> UH1) = closure101() │
00:10:54 verbose #72845 > │ UH1_0(0.0, 8.422578125E-06, 0.36000000000000004, -0.004369840163132589, │
00:10:54 verbose #72846 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72847 > │ and closure99 () () : UH1 = │
00:10:54 verbose #72848 > │ let v0 : (unit -> UH1) = closure100() │
00:10:54 verbose #72849 > │ UH1_0(0.0, 8.422578125E-06, 0.35000000000000003, -0.004675081213427074, │
00:10:54 verbose #72850 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72851 > │ and closure98 () () : UH1 = │
00:10:54 verbose #72852 > │ let v0 : (unit -> UH1) = closure99() │
00:10:54 verbose #72853 > │ UH1_0(0.0, 8.422578125E-06, 0.34, -0.004882205394146361, 0.0, 0.0, 0.0, │
00:10:54 verbose #72854 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72855 > │ and closure97 () () : UH1 = │
00:10:54 verbose #72856 > │ let v0 : (unit -> UH1) = closure98() │
00:10:54 verbose #72857 > │ UH1_0(0.0, 8.422578125E-06, 0.33, -0.004986865748457456, 0.0, 0.0, 0.0, │
00:10:54 verbose #72858 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72859 > │ and closure96 () () : UH1 = │
00:10:54 verbose #72860 > │ let v0 : (unit -> UH1) = closure97() │
00:10:54 verbose #72861 > │ UH1_0(0.0, 8.422578125E-06, 0.32, -0.004986865748457456, 0.0, 0.0, 0.0, │
00:10:54 verbose #72862 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72863 > │ and closure95 () () : UH1 = │
00:10:54 verbose #72864 > │ let v0 : (unit -> UH1) = closure96() │
00:10:54 verbose #72865 > │ UH1_0(0.0, 8.422578125E-06, 0.31, -0.004882205394146359, 0.0, 0.0, 0.0, │
00:10:54 verbose #72866 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72867 > │ and closure94 () () : UH1 = │
00:10:54 verbose #72868 > │ let v0 : (unit -> UH1) = closure95() │
00:10:54 verbose #72869 > │ UH1_0(0.0, 8.422578125E-06, 0.3, -0.004675081213427074, 0.0, 0.0, 0.0, │
00:10:54 verbose #72870 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72871 > │ and closure93 () () : UH1 = │
00:10:54 verbose #72872 > │ let v0 : (unit -> UH1) = closure94() │
00:10:54 verbose #72873 > │ UH1_0(0.0, 8.422578125E-06, 0.29000000000000004, -0.00436984016313259, │
00:10:54 verbose #72874 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72875 > │ and closure92 () () : UH1 = │
00:10:54 verbose #72876 > │ let v0 : (unit -> UH1) = closure93() │
00:10:54 verbose #72877 > │ UH1_0(0.0, 8.422578125E-06, 0.28, -0.003972888398568771, 0.0, 0.0, 0.0, │
00:10:54 verbose #72878 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72879 > │ and closure91 () () : UH1 = │
00:10:54 verbose #72880 > │ let v0 : (unit -> UH1) = closure92() │
00:10:54 verbose #72881 > │ UH1_0(0.0, 8.422578125E-06, 0.27, -0.003492556826244686, 0.0, 0.0, 0.0, │
00:10:54 verbose #72882 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72883 > │ and closure90 () () : UH1 = │
00:10:54 verbose #72884 > │ let v0 : (unit -> UH1) = closure91() │
00:10:54 verbose #72885 > │ UH1_0(0.0, 8.422578125E-06, 0.26, -0.0029389262614623636, 0.0, 0.0, 0.0, │
00:10:54 verbose #72886 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72887 > │ and closure89 () () : UH1 = │
00:10:54 verbose #72888 > │ let v0 : (unit -> UH1) = closure90() │
00:10:54 verbose #72889 > │ UH1_0(0.0, 8.422578125E-06, 0.25, -0.002323615860218842, 0.0, 0.0, 0.0, │
00:10:54 verbose #72890 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72891 > │ and closure88 () () : UH1 = │
00:10:54 verbose #72892 > │ let v0 : (unit -> UH1) = closure89() │
00:10:54 verbose #72893 > │ UH1_0(0.0, 8.422578125E-06, 0.24000000000000002, -0.001659539265642642, │
00:10:54 verbose #72894 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72895 > │ and closure87 () () : UH1 = │
00:10:54 verbose #72896 > │ let v0 : (unit -> UH1) = closure88() │
00:10:54 verbose #72897 > │ UH1_0(0.0, 8.422578125E-06, 0.23, -0.0009606335867685418, 0.0, 0.0, 0.0, │
00:10:54 verbose #72898 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72899 > │ and closure86 () () : UH1 = │
00:10:54 verbose #72900 > │ let v0 : (unit -> UH1) = closure87() │
00:10:54 verbose #72901 > │ UH1_0(0.0, 8.422578125E-06, 0.22, -0.00024156689762753317, 0.0, 0.0, │
00:10:54 verbose #72902 > │ 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72903 > │ and closure85 () () : UH1 = │
00:10:54 verbose #72904 > │ let v0 : (unit -> UH1) = closure86() │
00:10:54 verbose #72905 > │ UH1_0(0.0, 8.422578125E-06, 0.21000000000000002, 0.00048256960457257535, │
00:10:54 verbose #72906 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72907 > │ and closure84 () () : UH1 = │
00:10:54 verbose #72908 > │ let v0 : (unit -> UH1) = closure85() │
00:10:54 verbose #72909 > │ UH1_0(0.0, 8.422578125E-06, 0.2, 0.0011965783214377905, 0.0, 0.0, 0.0, │
00:10:54 verbose #72910 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72911 > │ and closure83 () () : UH1 = │
00:10:54 verbose #72912 > │ let v0 : (unit -> UH1) = closure84() │
00:10:54 verbose #72913 > │ UH1_0(0.0, 8.422578125E-06, 0.19, 0.0018854742084416015, 0.0, 0.0, 0.0, │
00:10:54 verbose #72914 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72915 > │ and closure82 () () : UH1 = │
00:10:54 verbose #72916 > │ let v0 : (unit -> UH1) = closure83() │
00:10:54 verbose #72917 > │ UH1_0(0.0, 8.422578125E-06, 0.18000000000000002, 0.002534799269067951, │
00:10:54 verbose #72918 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72919 > │ and closure81 () () : UH1 = │
00:10:54 verbose #72920 > │ let v0 : (unit -> UH1) = closure82() │
00:10:54 verbose #72921 > │ UH1_0(0.0, 8.422578125E-06, 0.17, 0.0031309259876915697, 0.0, 0.0, 0.0, │
00:10:54 verbose #72922 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72923 > │ and closure80 () () : UH1 = │
00:10:54 verbose #72924 > │ let v0 : (unit -> UH1) = closure81() │
00:10:54 verbose #72925 > │ UH1_0(0.0, 8.422578125E-06, 0.16, 0.0036613433329888666, 0.0, 0.0, 0.0, │
00:10:54 verbose #72926 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72927 > │ and closure79 () () : UH1 = │
00:10:54 verbose #72928 > │ let v0 : (unit -> UH1) = closure80() │
00:10:54 verbose #72929 > │ UH1_0(0.0, 8.422578125E-06, 0.15000000000000002, 0.0041149193294682815, │
00:10:54 verbose #72930 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72931 > │ and closure78 () () : UH1 = │
00:10:54 verbose #72932 > │ let v0 : (unit -> UH1) = closure79() │
00:10:54 verbose #72933 > │ UH1_0(0.0, 8.422578125E-06, 0.14, 0.004482134686478519, 0.0, 0.0, 0.0, │
00:10:54 verbose #72934 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72935 > │ and closure77 () () : UH1 = │
00:10:54 verbose #72936 > │ let v0 : (unit -> UH1) = closure78() │
00:10:54 verbose #72937 > │ UH1_0(0.0, 8.422578125E-06, 0.13, 0.004755282581475768, 0.0, 0.0, 0.0, │
00:10:54 verbose #72938 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72939 > │ and closure76 () () : UH1 = │
00:10:54 verbose #72940 > │ let v0 : (unit -> UH1) = closure77() │
00:10:54 verbose #72941 > │ UH1_0(0.0, 8.422578125E-06, 0.12, 0.004928630404658255, 0.0, 0.0, 0.0, │
00:10:54 verbose #72942 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72943 > │ and closure75 () () : UH1 = │
00:10:54 verbose #72944 > │ let v0 : (unit -> UH1) = closure76() │
00:10:54 verbose #72945 > │ UH1_0(0.0, 8.422578125E-06, 0.11, 0.004998540070400965, 0.0, 0.0, 0.0, │
00:10:54 verbose #72946 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72947 > │ and closure74 () () : UH1 = │
00:10:54 verbose #72948 > │ let v0 : (unit -> UH1) = closure75() │
00:10:54 verbose #72949 > │ UH1_0(0.0, 8.422578125E-06, 0.09999999999999999, 0.00496354437049027, │
00:10:54 verbose #72950 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72951 > │ and closure73 () () : UH1 = │
00:10:54 verbose #72952 > │ let v0 : (unit -> UH1) = closure74() │
00:10:54 verbose #72953 > │ UH1_0(0.0, 8.422578125E-06, 0.09, 0.004824377766717757, 0.0, 0.0, 0.0, │
00:10:54 verbose #72954 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72955 > │ and closure72 () () : UH1 = │
00:10:54 verbose #72956 > │ let v0 : (unit -> UH1) = closure73() │
00:10:54 verbose #72957 > │ UH1_0(0.0, 8.422578125E-06, 0.08, 0.004583960976582912, 0.0, 0.0, 0.0, │
00:10:54 verbose #72958 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72959 > │ and closure71 () () : UH1 = │
00:10:54 verbose #72960 > │ let v0 : (unit -> UH1) = closure72() │
00:10:54 verbose #72961 > │ UH1_0(0.0, 8.422578125E-06, 0.06999999999999999, 0.004247339675607605, │
00:10:54 verbose #72962 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72963 > │ and closure70 () () : UH1 = │
00:10:54 verbose #72964 > │ let v0 : (unit -> UH1) = closure71() │
00:10:54 verbose #72965 > │ UH1_0(0.0, 8.422578125E-06, 0.060000000000000005, 0.0038215786027292415, │
00:10:54 verbose #72966 > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:10:54 verbose #72967 > │ and closure69 () () : UH1 = │
00:10:54 verbose #72968 > │ let v0 : (unit -> UH1) = closure70() │
00:10:54 verbose #72969 > │ UH1_0(0.0, 8.422578125E-06, 0.05, 0.0033156132912039757, 0.0, 0.0, 0.0, │
00:10:54 verbose #72970 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72971 > │ and closure68 () () : UH1 = │
00:10:54 verbose #72972 > │ let v0 : (unit -> UH1) = closure69() │
00:10:54 verbose #72973 > │ UH1_0(0.0, 8.422578125E-06, 0.04, 0.00274006253677335, 0.0, 0.0, 0.0, │
00:10:54 verbose #72974 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72975 > │ and closure67 () () : UH1 = │
00:10:54 verbose #72976 > │ let v0 : (unit -> UH1) = closure68() │
00:10:54 verbose #72977 > │ UH1_0(0.0, 8.422578125E-06, 0.03, 0.0021070055388626454, 0.0, 0.0, 0.0, │
00:10:54 verbose #72978 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72979 > │ and closure66 () () : UH1 = │
00:10:54 verbose #72980 > │ let v0 : (unit -> UH1) = closure67() │
00:10:54 verbose #72981 > │ UH1_0(0.0, 8.422578125E-06, 0.02, 0.0014297283919934465, 0.0, 0.0, 0.0, │
00:10:54 verbose #72982 > │ 0.0, 0.0, v0) │
00:10:54 verbose #72983 > │ and closure132 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:10:54 verbose #72984 > │ let v2 : UH3 = v1 () │
00:10:54 verbose #72985 > │ let v3 : UH1 = v0 () │
00:10:54 verbose #72986 > │ match v2 with │
00:10:54 verbose #72987 > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:10:54 verbose #72988 > │ match v3 with │
00:10:54 verbose #72989 > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:54 verbose #72990 > │ StreamCons *) │
00:10:54 verbose #72991 > │ let v24 : float = v9 * 1.25E-05 │
00:10:54 verbose #72992 > │ let v25 : float = v19 + v24 │
00:10:54 verbose #72993 > │ let v26 : float = 1.25E-05 * v6 │
00:10:54 verbose #72994 > │ let v27 : float = 1.25E-05 * v7 │
00:10:54 verbose #72995 > │ let v28 : float = 1.25E-05 * v8 │
00:10:54 verbose #72996 > │ let v29 : float = v16 + v26 │
00:10:54 verbose #72997 > │ let v30 : float = v17 + v27 │
00:10:54 verbose #72998 > │ let v31 : float = v18 + v28 │
00:10:54 verbose #72999 > │ let v32 : float = 1.25E-05 * v10 │
00:10:54 verbose #73000 > │ let v33 : float = 1.25E-05 * v11 │
00:10:54 verbose #73001 > │ let v34 : float = 1.25E-05 * v12 │
00:10:54 verbose #73002 > │ let v35 : float = v20 + v32 │
00:10:54 verbose #73003 > │ let v36 : float = v21 + v33 │
00:10:54 verbose #73004 > │ let v37 : float = v22 + v34 │
00:10:54 verbose #73005 > │ let v38 : (unit -> UH1) = closure132(v23, v13) │
00:10:54 verbose #73006 > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:10:54 verbose #73007 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73008 > │ UH1_1 │
00:10:54 verbose #73009 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73010 > │ UH1_1 │
00:10:54 verbose #73011 > │ and closure133 (v0 : UH1) () : UH1 = │
00:10:54 verbose #73012 > │ v0 │
00:10:54 verbose #73013 > │ and closure134 (v0 : UH1, v1 : Mut0) () : UH1 = │
00:10:54 verbose #73014 > │ let v2 : US0 = v1.l0 │
00:10:54 verbose #73015 > │ match v2 with │
00:10:54 verbose #73016 > │ | US0_1(v3) -> (* Computed *) │
00:10:54 verbose #73017 > │ v3 │
00:10:54 verbose #73018 > │ | US0_0(v4) -> (* NotComputed *) │
00:10:54 verbose #73019 > │ let v5 : UH1 = v4 () │
00:10:54 verbose #73020 > │ let v20 : UH1 = │
00:10:54 verbose #73021 > │ match v5 with │
00:10:54 verbose #73022 > │ | UH1_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) -> (* │
00:10:54 verbose #73023 > │ StreamCons *) │
00:10:54 verbose #73024 > │ let v17 : (unit -> UH1) = method3(v0, v16) │
00:10:54 verbose #73025 > │ UH1_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v17) │
00:10:54 verbose #73026 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73027 > │ UH1_1 │
00:10:54 verbose #73028 > │ let v21 : US0 = US0_1(v20) │
00:10:54 verbose #73029 > │ v1.l0 <- v21 │
00:10:54 verbose #73030 > │ v20 │
00:10:54 verbose #73031 > │ and method3 (v0 : UH1, v1 : (unit -> UH1)) : (unit -> UH1) = │
00:10:54 verbose #73032 > │ let v2 : US0 = US0_0(v1) │
00:10:54 verbose #73033 > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:10:54 verbose #73034 > │ closure134(v0, v3) │
00:10:54 verbose #73035 > │ and closure135 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:10:54 verbose #73036 > │ let v2 : UH3 = v1 () │
00:10:54 verbose #73037 > │ let v3 : UH1 = v0 () │
00:10:54 verbose #73038 > │ match v2 with │
00:10:54 verbose #73039 > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:10:54 verbose #73040 > │ match v3 with │
00:10:54 verbose #73041 > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:54 verbose #73042 > │ StreamCons *) │
00:10:54 verbose #73043 > │ let v24 : float = v9 * 2.5E-05 │
00:10:54 verbose #73044 > │ let v25 : float = v19 + v24 │
00:10:54 verbose #73045 > │ let v26 : float = 2.5E-05 * v6 │
00:10:54 verbose #73046 > │ let v27 : float = 2.5E-05 * v7 │
00:10:54 verbose #73047 > │ let v28 : float = 2.5E-05 * v8 │
00:10:54 verbose #73048 > │ let v29 : float = v16 + v26 │
00:10:54 verbose #73049 > │ let v30 : float = v17 + v27 │
00:10:54 verbose #73050 > │ let v31 : float = v18 + v28 │
00:10:54 verbose #73051 > │ let v32 : float = 2.5E-05 * v10 │
00:10:54 verbose #73052 > │ let v33 : float = 2.5E-05 * v11 │
00:10:54 verbose #73053 > │ let v34 : float = 2.5E-05 * v12 │
00:10:54 verbose #73054 > │ let v35 : float = v20 + v32 │
00:10:54 verbose #73055 > │ let v36 : float = v21 + v33 │
00:10:54 verbose #73056 > │ let v37 : float = v22 + v34 │
00:10:54 verbose #73057 > │ let v38 : (unit -> UH1) = closure135(v23, v13) │
00:10:54 verbose #73058 > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:10:54 verbose #73059 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73060 > │ UH1_1 │
00:10:54 verbose #73061 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73062 > │ UH1_1 │
00:10:54 verbose #73063 > │ and closure136 (v0 : (unit -> UH3), v1 : (unit -> UH3)) () : UH3 = │
00:10:54 verbose #73064 > │ let v2 : UH3 = v1 () │
00:10:54 verbose #73065 > │ let v3 : UH3 = v0 () │
00:10:54 verbose #73066 > │ match v2 with │
00:10:54 verbose #73067 > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:10:54 verbose #73068 > │ match v3 with │
00:10:54 verbose #73069 > │ | UH3_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:54 verbose #73070 > │ StreamCons *) │
00:10:54 verbose #73071 > │ let v24 : float = v4 + v14 │
00:10:54 verbose #73072 > │ let v25 : float = v5 + v15 │
00:10:54 verbose #73073 > │ let v26 : float = v9 + v19 │
00:10:54 verbose #73074 > │ let v27 : float = v6 + v16 │
00:10:54 verbose #73075 > │ let v28 : float = v7 + v17 │
00:10:54 verbose #73076 > │ let v29 : float = v8 + v18 │
00:10:54 verbose #73077 > │ let v30 : float = v10 + v20 │
00:10:54 verbose #73078 > │ let v31 : float = v11 + v21 │
00:10:54 verbose #73079 > │ let v32 : float = v12 + v22 │
00:10:54 verbose #73080 > │ let v33 : (unit -> UH3) = closure136(v23, v13) │
00:10:54 verbose #73081 > │ UH3_0(v24, v25, v27, v28, v29, v26, v30, v31, v32, v33) │
00:10:54 verbose #73082 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73083 > │ UH3_1 │
00:10:54 verbose #73084 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73085 > │ UH3_1 │
00:10:54 verbose #73086 > │ and closure137 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:10:54 verbose #73087 > │ let v2 : UH3 = v1 () │
00:10:54 verbose #73088 > │ let v3 : UH1 = v0 () │
00:10:54 verbose #73089 > │ match v2 with │
00:10:54 verbose #73090 > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:10:54 verbose #73091 > │ match v3 with │
00:10:54 verbose #73092 > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:10:54 verbose #73093 > │ StreamCons *) │
00:10:54 verbose #73094 > │ let v24 : float = v9 * 4.166666666666667E-06 │
00:10:54 verbose #73095 > │ let v25 : float = v19 + v24 │
00:10:54 verbose #73096 > │ let v26 : float = 4.166666666666667E-06 * v6 │
00:10:54 verbose #73097 > │ let v27 : float = 4.166666666666667E-06 * v7 │
00:10:54 verbose #73098 > │ let v28 : float = 4.166666666666667E-06 * v8 │
00:10:54 verbose #73099 > │ let v29 : float = v16 + v26 │
00:10:54 verbose #73100 > │ let v30 : float = v17 + v27 │
00:10:54 verbose #73101 > │ let v31 : float = v18 + v28 │
00:10:54 verbose #73102 > │ let v32 : float = 4.166666666666667E-06 * v10 │
00:10:54 verbose #73103 > │ let v33 : float = 4.166666666666667E-06 * v11 │
00:10:54 verbose #73104 > │ let v34 : float = 4.166666666666667E-06 * v12 │
00:10:54 verbose #73105 > │ let v35 : float = v20 + v32 │
00:10:54 verbose #73106 > │ let v36 : float = v21 + v33 │
00:10:54 verbose #73107 > │ let v37 : float = v22 + v34 │
00:10:54 verbose #73108 > │ let v38 : (unit -> UH1) = closure137(v23, v13) │
00:10:54 verbose #73109 > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:10:54 verbose #73110 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73111 > │ UH1_1 │
00:10:54 verbose #73112 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73113 > │ UH1_1 │
00:10:54 verbose #73114 > │ and closure131 (v0 : (UH1 -> UH3)) (v1 : UH1) : UH1 = │
00:10:54 verbose #73115 > │ let v2 : UH3 = v0 v1 │
00:10:54 verbose #73116 > │ let v44 : UH1 = │
00:10:54 verbose #73117 > │ match v2 with │
00:10:54 verbose #73118 > │ | UH3_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:10:54 verbose #73119 > │ *) │
00:10:54 verbose #73120 > │ match v1 with │
00:10:54 verbose #73121 > │ | UH1_0(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* │
00:10:54 verbose #73122 > │ StreamCons *) │
00:10:54 verbose #73123 > │ let v23 : float = v8 * 1.25E-05 │
00:10:54 verbose #73124 > │ let v24 : float = v18 + v23 │
00:10:54 verbose #73125 > │ let v25 : float = 1.25E-05 * v5 │
00:10:54 verbose #73126 > │ let v26 : float = 1.25E-05 * v6 │
00:10:54 verbose #73127 > │ let v27 : float = 1.25E-05 * v7 │
00:10:54 verbose #73128 > │ let v28 : float = v15 + v25 │
00:10:54 verbose #73129 > │ let v29 : float = v16 + v26 │
00:10:54 verbose #73130 > │ let v30 : float = v17 + v27 │
00:10:54 verbose #73131 > │ let v31 : float = 1.25E-05 * v9 │
00:10:54 verbose #73132 > │ let v32 : float = 1.25E-05 * v10 │
00:10:54 verbose #73133 > │ let v33 : float = 1.25E-05 * v11 │
00:10:54 verbose #73134 > │ let v34 : float = v19 + v31 │
00:10:54 verbose #73135 > │ let v35 : float = v20 + v32 │
00:10:54 verbose #73136 > │ let v36 : float = v21 + v33 │
00:10:54 verbose #73137 > │ let v37 : (unit -> UH1) = closure132(v22, v12) │
00:10:54 verbose #73138 > │ UH1_0(v13, v14, v28, v29, v30, v24, v34, v35, v36, v37) │
00:10:54 verbose #73139 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73140 > │ UH1_1 │
00:10:54 verbose #73141 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73142 > │ UH1_1 │
00:10:54 verbose #73143 > │ let v45 : (unit -> UH1) = closure133(v44) │
00:10:54 verbose #73144 > │ let v46 : (unit -> UH1) = method3(v44, v45) │
00:10:54 verbose #73145 > │ let v47 : UH1 = v46 () │
00:10:54 verbose #73146 > │ let v48 : UH3 = v0 v47 │
00:10:54 verbose #73147 > │ let v90 : UH1 = │
00:10:54 verbose #73148 > │ match v48 with │
00:10:54 verbose #73149 > │ | UH3_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) -> (* │
00:10:54 verbose #73150 > │ StreamCons *) │
00:10:54 verbose #73151 > │ match v1 with │
00:10:54 verbose #73152 > │ | UH1_0(v59, v60, v61, v62, v63, v64, v65, v66, v67, v68) -> (* │
00:10:54 verbose #73153 > │ StreamCons *) │
00:10:54 verbose #73154 > │ let v69 : float = v54 * 1.25E-05 │
00:10:54 verbose #73155 > │ let v70 : float = v64 + v69 │
00:10:54 verbose #73156 > │ let v71 : float = 1.25E-05 * v51 │
00:10:54 verbose #73157 > │ let v72 : float = 1.25E-05 * v52 │
00:10:54 verbose #73158 > │ let v73 : float = 1.25E-05 * v53 │
00:10:54 verbose #73159 > │ let v74 : float = v61 + v71 │
00:10:54 verbose #73160 > │ let v75 : float = v62 + v72 │
00:10:54 verbose #73161 > │ let v76 : float = v63 + v73 │
00:10:54 verbose #73162 > │ let v77 : float = 1.25E-05 * v55 │
00:10:54 verbose #73163 > │ let v78 : float = 1.25E-05 * v56 │
00:10:54 verbose #73164 > │ let v79 : float = 1.25E-05 * v57 │
00:10:54 verbose #73165 > │ let v80 : float = v65 + v77 │
00:10:54 verbose #73166 > │ let v81 : float = v66 + v78 │
00:10:54 verbose #73167 > │ let v82 : float = v67 + v79 │
00:10:54 verbose #73168 > │ let v83 : (unit -> UH1) = closure132(v68, v58) │
00:10:54 verbose #73169 > │ UH1_0(v59, v60, v74, v75, v76, v70, v80, v81, v82, v83) │
00:10:54 verbose #73170 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73171 > │ UH1_1 │
00:10:54 verbose #73172 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73173 > │ UH1_1 │
00:10:54 verbose #73174 > │ let v91 : (unit -> UH1) = closure133(v90) │
00:10:54 verbose #73175 > │ let v92 : (unit -> UH1) = method3(v90, v91) │
00:10:54 verbose #73176 > │ let v93 : UH1 = v92 () │
00:10:54 verbose #73177 > │ let v94 : UH3 = v0 v93 │
00:10:54 verbose #73178 > │ let v136 : UH1 = │
00:10:54 verbose #73179 > │ match v94 with │
00:10:54 verbose #73180 > │ | UH3_0(v95, v96, v97, v98, v99, v100, v101, v102, v103, v104) -> (* │
00:10:54 verbose #73181 > │ StreamCons *) │
00:10:54 verbose #73182 > │ match v1 with │
00:10:54 verbose #73183 > │ | UH1_0(v105, v106, v107, v108, v109, v110, v111, v112, v113, │
00:10:54 verbose #73184 > │ v114) -> (* StreamCons *) │
00:10:54 verbose #73185 > │ let v115 : float = v100 * 2.5E-05 │
00:10:54 verbose #73186 > │ let v116 : float = v110 + v115 │
00:10:54 verbose #73187 > │ let v117 : float = 2.5E-05 * v97 │
00:10:54 verbose #73188 > │ let v118 : float = 2.5E-05 * v98 │
00:10:54 verbose #73189 > │ let v119 : float = 2.5E-05 * v99 │
00:10:54 verbose #73190 > │ let v120 : float = v107 + v117 │
00:10:54 verbose #73191 > │ let v121 : float = v108 + v118 │
00:10:54 verbose #73192 > │ let v122 : float = v109 + v119 │
00:10:54 verbose #73193 > │ let v123 : float = 2.5E-05 * v101 │
00:10:54 verbose #73194 > │ let v124 : float = 2.5E-05 * v102 │
00:10:54 verbose #73195 > │ let v125 : float = 2.5E-05 * v103 │
00:10:54 verbose #73196 > │ let v126 : float = v111 + v123 │
00:10:54 verbose #73197 > │ let v127 : float = v112 + v124 │
00:10:54 verbose #73198 > │ let v128 : float = v113 + v125 │
00:10:54 verbose #73199 > │ let v129 : (unit -> UH1) = closure135(v114, v104) │
00:10:54 verbose #73200 > │ UH1_0(v105, v106, v120, v121, v122, v116, v126, v127, v128, │
00:10:54 verbose #73201 > │ v129) │
00:10:54 verbose #73202 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73203 > │ UH1_1 │
00:10:54 verbose #73204 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73205 > │ UH1_1 │
00:10:54 verbose #73206 > │ let v137 : (unit -> UH1) = closure133(v136) │
00:10:54 verbose #73207 > │ let v138 : (unit -> UH1) = method3(v136, v137) │
00:10:54 verbose #73208 > │ let v139 : UH1 = v138 () │
00:10:54 verbose #73209 > │ let v140 : UH3 = v0 v139 │
00:10:54 verbose #73210 > │ let v177 : UH3 = │
00:10:54 verbose #73211 > │ match v2 with │
00:10:54 verbose #73212 > │ | UH3_0(v141, v142, v143, v144, v145, v146, v147, v148, v149, v150) │
00:10:54 verbose #73213 > │ -> (* StreamCons *) │
00:10:54 verbose #73214 > │ match v48 with │
00:10:54 verbose #73215 > │ | UH3_0(v151, v152, v153, v154, v155, v156, v157, v158, v159, │
00:10:54 verbose #73216 > │ v160) -> (* StreamCons *) │
00:10:54 verbose #73217 > │ let v161 : float = v141 + v151 │
00:10:54 verbose #73218 > │ let v162 : float = v142 + v152 │
00:10:54 verbose #73219 > │ let v163 : float = v146 + v156 │
00:10:54 verbose #73220 > │ let v164 : float = v143 + v153 │
00:10:54 verbose #73221 > │ let v165 : float = v144 + v154 │
00:10:54 verbose #73222 > │ let v166 : float = v145 + v155 │
00:10:54 verbose #73223 > │ let v167 : float = v147 + v157 │
00:10:54 verbose #73224 > │ let v168 : float = v148 + v158 │
00:10:54 verbose #73225 > │ let v169 : float = v149 + v159 │
00:10:54 verbose #73226 > │ let v170 : (unit -> UH3) = closure136(v160, v150) │
00:10:54 verbose #73227 > │ UH3_0(v161, v162, v164, v165, v166, v163, v167, v168, v169, │
00:10:54 verbose #73228 > │ v170) │
00:10:54 verbose #73229 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73230 > │ UH3_1 │
00:10:54 verbose #73231 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73232 > │ UH3_1 │
00:10:54 verbose #73233 > │ let v214 : UH3 = │
00:10:54 verbose #73234 > │ match v177 with │
00:10:54 verbose #73235 > │ | UH3_0(v178, v179, v180, v181, v182, v183, v184, v185, v186, v187) │
00:10:54 verbose #73236 > │ -> (* StreamCons *) │
00:10:54 verbose #73237 > │ match v48 with │
00:10:54 verbose #73238 > │ | UH3_0(v188, v189, v190, v191, v192, v193, v194, v195, v196, │
00:10:54 verbose #73239 > │ v197) -> (* StreamCons *) │
00:10:54 verbose #73240 > │ let v198 : float = v178 + v188 │
00:10:54 verbose #73241 > │ let v199 : float = v179 + v189 │
00:10:54 verbose #73242 > │ let v200 : float = v183 + v193 │
00:10:54 verbose #73243 > │ let v201 : float = v180 + v190 │
00:10:54 verbose #73244 > │ let v202 : float = v181 + v191 │
00:10:54 verbose #73245 > │ let v203 : float = v182 + v192 │
00:10:54 verbose #73246 > │ let v204 : float = v184 + v194 │
00:10:54 verbose #73247 > │ let v205 : float = v185 + v195 │
00:10:54 verbose #73248 > │ let v206 : float = v186 + v196 │
00:10:54 verbose #73249 > │ let v207 : (unit -> UH3) = closure136(v197, v187) │
00:10:54 verbose #73250 > │ UH3_0(v198, v199, v201, v202, v203, v200, v204, v205, v206, │
00:10:54 verbose #73251 > │ v207) │
00:10:54 verbose #73252 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73253 > │ UH3_1 │
00:10:54 verbose #73254 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73255 > │ UH3_1 │
00:10:54 verbose #73256 > │ let v251 : UH3 = │
00:10:54 verbose #73257 > │ match v214 with │
00:10:54 verbose #73258 > │ | UH3_0(v215, v216, v217, v218, v219, v220, v221, v222, v223, v224) │
00:10:54 verbose #73259 > │ -> (* StreamCons *) │
00:10:54 verbose #73260 > │ match v94 with │
00:10:54 verbose #73261 > │ | UH3_0(v225, v226, v227, v228, v229, v230, v231, v232, v233, │
00:10:54 verbose #73262 > │ v234) -> (* StreamCons *) │
00:10:54 verbose #73263 > │ let v235 : float = v215 + v225 │
00:10:54 verbose #73264 > │ let v236 : float = v216 + v226 │
00:10:54 verbose #73265 > │ let v237 : float = v220 + v230 │
00:10:54 verbose #73266 > │ let v238 : float = v217 + v227 │
00:10:54 verbose #73267 > │ let v239 : float = v218 + v228 │
00:10:54 verbose #73268 > │ let v240 : float = v219 + v229 │
00:10:54 verbose #73269 > │ let v241 : float = v221 + v231 │
00:10:54 verbose #73270 > │ let v242 : float = v222 + v232 │
00:10:54 verbose #73271 > │ let v243 : float = v223 + v233 │
00:10:54 verbose #73272 > │ let v244 : (unit -> UH3) = closure136(v234, v224) │
00:10:54 verbose #73273 > │ UH3_0(v235, v236, v238, v239, v240, v237, v241, v242, v243, │
00:10:54 verbose #73274 > │ v244) │
00:10:54 verbose #73275 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73276 > │ UH3_1 │
00:10:54 verbose #73277 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73278 > │ UH3_1 │
00:10:54 verbose #73279 > │ let v288 : UH3 = │
00:10:54 verbose #73280 > │ match v251 with │
00:10:54 verbose #73281 > │ | UH3_0(v252, v253, v254, v255, v256, v257, v258, v259, v260, v261) │
00:10:54 verbose #73282 > │ -> (* StreamCons *) │
00:10:54 verbose #73283 > │ match v94 with │
00:10:54 verbose #73284 > │ | UH3_0(v262, v263, v264, v265, v266, v267, v268, v269, v270, │
00:10:54 verbose #73285 > │ v271) -> (* StreamCons *) │
00:10:54 verbose #73286 > │ let v272 : float = v252 + v262 │
00:10:54 verbose #73287 > │ let v273 : float = v253 + v263 │
00:10:54 verbose #73288 > │ let v274 : float = v257 + v267 │
00:10:54 verbose #73289 > │ let v275 : float = v254 + v264 │
00:10:54 verbose #73290 > │ let v276 : float = v255 + v265 │
00:10:54 verbose #73291 > │ let v277 : float = v256 + v266 │
00:10:54 verbose #73292 > │ let v278 : float = v258 + v268 │
00:10:54 verbose #73293 > │ let v279 : float = v259 + v269 │
00:10:54 verbose #73294 > │ let v280 : float = v260 + v270 │
00:10:54 verbose #73295 > │ let v281 : (unit -> UH3) = closure136(v271, v261) │
00:10:54 verbose #73296 > │ UH3_0(v272, v273, v275, v276, v277, v274, v278, v279, v280, │
00:10:54 verbose #73297 > │ v281) │
00:10:54 verbose #73298 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73299 > │ UH3_1 │
00:10:54 verbose #73300 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73301 > │ UH3_1 │
00:10:54 verbose #73302 > │ let v325 : UH3 = │
00:10:54 verbose #73303 > │ match v288 with │
00:10:54 verbose #73304 > │ | UH3_0(v289, v290, v291, v292, v293, v294, v295, v296, v297, v298) │
00:10:54 verbose #73305 > │ -> (* StreamCons *) │
00:10:54 verbose #73306 > │ match v140 with │
00:10:54 verbose #73307 > │ | UH3_0(v299, v300, v301, v302, v303, v304, v305, v306, v307, │
00:10:54 verbose #73308 > │ v308) -> (* StreamCons *) │
00:10:54 verbose #73309 > │ let v309 : float = v289 + v299 │
00:10:54 verbose #73310 > │ let v310 : float = v290 + v300 │
00:10:54 verbose #73311 > │ let v311 : float = v294 + v304 │
00:10:54 verbose #73312 > │ let v312 : float = v291 + v301 │
00:10:54 verbose #73313 > │ let v313 : float = v292 + v302 │
00:10:54 verbose #73314 > │ let v314 : float = v293 + v303 │
00:10:54 verbose #73315 > │ let v315 : float = v295 + v305 │
00:10:54 verbose #73316 > │ let v316 : float = v296 + v306 │
00:10:54 verbose #73317 > │ let v317 : float = v297 + v307 │
00:10:54 verbose #73318 > │ let v318 : (unit -> UH3) = closure136(v308, v298) │
00:10:54 verbose #73319 > │ UH3_0(v309, v310, v312, v313, v314, v311, v315, v316, v317, │
00:10:54 verbose #73320 > │ v318) │
00:10:54 verbose #73321 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73322 > │ UH3_1 │
00:10:54 verbose #73323 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73324 > │ UH3_1 │
00:10:54 verbose #73325 > │ let v367 : UH1 = │
00:10:54 verbose #73326 > │ match v325 with │
00:10:54 verbose #73327 > │ | UH3_0(v326, v327, v328, v329, v330, v331, v332, v333, v334, v335) │
00:10:54 verbose #73328 > │ -> (* StreamCons *) │
00:10:54 verbose #73329 > │ match v1 with │
00:10:54 verbose #73330 > │ | UH1_0(v336, v337, v338, v339, v340, v341, v342, v343, v344, │
00:10:54 verbose #73331 > │ v345) -> (* StreamCons *) │
00:10:54 verbose #73332 > │ let v346 : float = v331 * 4.166666666666667E-06 │
00:10:54 verbose #73333 > │ let v347 : float = v341 + v346 │
00:10:54 verbose #73334 > │ let v348 : float = 4.166666666666667E-06 * v328 │
00:10:54 verbose #73335 > │ let v349 : float = 4.166666666666667E-06 * v329 │
00:10:54 verbose #73336 > │ let v350 : float = 4.166666666666667E-06 * v330 │
00:10:54 verbose #73337 > │ let v351 : float = v338 + v348 │
00:10:54 verbose #73338 > │ let v352 : float = v339 + v349 │
00:10:54 verbose #73339 > │ let v353 : float = v340 + v350 │
00:10:54 verbose #73340 > │ let v354 : float = 4.166666666666667E-06 * v332 │
00:10:54 verbose #73341 > │ let v355 : float = 4.166666666666667E-06 * v333 │
00:10:54 verbose #73342 > │ let v356 : float = 4.166666666666667E-06 * v334 │
00:10:54 verbose #73343 > │ let v357 : float = v342 + v354 │
00:10:54 verbose #73344 > │ let v358 : float = v343 + v355 │
00:10:54 verbose #73345 > │ let v359 : float = v344 + v356 │
00:10:54 verbose #73346 > │ let v360 : (unit -> UH1) = closure137(v345, v335) │
00:10:54 verbose #73347 > │ UH1_0(v336, v337, v351, v352, v353, v347, v357, v358, v359, │
00:10:54 verbose #73348 > │ v360) │
00:10:54 verbose #73349 > │ | UH1_1 -> (* StreamNil *) │
00:10:54 verbose #73350 > │ UH1_1 │
00:10:54 verbose #73351 > │ | UH3_1 -> (* StreamNil *) │
00:10:54 verbose #73352 > │ UH1_1 │
00:10:54 verbose #73353 > │ let v368 : (unit -> UH1) = closure133(v367) │
00:10:54 verbose #73354 > │ let v369 : (unit -> UH1) = method3(v367, v368) │
00:10:54 verbose #73355 > │ let v370 : UH1 = v369 () │
00:10:54 verbose #73356 > │ v370 │
00:10:54 verbose #73357 > │ and closure130 () (v0 : (UH1 -> UH3)) : (UH1 -> UH1) = │
00:10:54 verbose #73358 > │ closure131(v0) │
00:10:54 verbose #73359 > │ and method2 () : ((UH1 -> UH3) -> (UH1 -> UH1)) = │
00:10:54 verbose #73360 > │ closure130() │
00:10:54 verbose #73361 > │ and closure138 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:10:54 verbose #73362 > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:54 verbose #73363 > │ float * float) = │
00:10:54 verbose #73364 > │ let v9 : float = v2 * v2 │
00:10:54 verbose #73365 > │ let v10 : float = v3 * v3 │
00:10:54 verbose #73366 > │ let v11 : float = v9 + v10 │
00:10:54 verbose #73367 > │ let v12 : float = v4 * v4 │
00:10:54 verbose #73368 > │ let v13 : float = v11 + v12 │
00:10:54 verbose #73369 > │ let v14 : float = sqrt v13 │
00:10:54 verbose #73370 > │ let v15 : float = -5384.0 * v14 │
00:10:54 verbose #73371 > │ let v16 : float = v15 * v2 │
00:10:54 verbose #73372 > │ let v17 : float = v15 * v3 │
00:10:54 verbose #73373 > │ let v18 : float = v15 * v4 │
00:10:54 verbose #73374 > │ let v19 : float = v16 / v14 │
00:10:54 verbose #73375 > │ let v20 : float = v17 / v14 │
00:10:54 verbose #73376 > │ let v21 : float = v18 / v14 │
00:10:54 verbose #73377 > │ struct (v19, v20, v21) │
00:10:54 verbose #73378 > │ and closure139 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:10:54 verbose #73379 > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:54 verbose #73380 > │ float * float) = │
00:10:54 verbose #73381 > │ let v9 : float = v2 + -0.65 │
00:10:54 verbose #73382 > │ let v10 : float = v9 * v9 │
00:10:54 verbose #73383 > │ let v11 : float = v3 * v3 │
00:10:54 verbose #73384 > │ let v12 : float = v10 + v11 │
00:10:54 verbose #73385 > │ let v13 : float = v4 * v4 │
00:10:54 verbose #73386 > │ let v14 : float = v12 + v13 │
00:10:54 verbose #73387 > │ let v15 : float = sqrt v14 │
00:10:54 verbose #73388 > │ let v16 : float = -5384.0 * v15 │
00:10:54 verbose #73389 > │ let v17 : float = v16 * v9 │
00:10:54 verbose #73390 > │ let v18 : float = v16 * v3 │
00:10:54 verbose #73391 > │ let v19 : float = v16 * v4 │
00:10:54 verbose #73392 > │ let v20 : float = v17 / v15 │
00:10:54 verbose #73393 > │ let v21 : float = v18 / v15 │
00:10:54 verbose #73394 > │ let v22 : float = v19 / v15 │
00:10:54 verbose #73395 > │ struct (v20, v21, v22) │
00:10:54 verbose #73396 > │ and closure141 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:10:54 verbose #73397 > │ v5 : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:10:54 verbose #73398 > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:10:54 verbose #73399 > │ : float, v17 : float) : struct (float * float * float) = │
00:10:54 verbose #73400 > │ let v18 : float = -1.0 * v2 │
00:10:54 verbose #73401 > │ let v19 : float = -1.0 * v3 │
00:10:54 verbose #73402 > │ let v20 : float = -1.0 * v4 │
00:10:54 verbose #73403 > │ let v21 : float = v11 + v18 │
00:10:54 verbose #73404 > │ let v22 : float = v12 + v19 │
00:10:54 verbose #73405 > │ let v23 : float = v13 + v20 │
00:10:54 verbose #73406 > │ let v24 : float = v21 * v21 │
00:10:54 verbose #73407 > │ let v25 : float = v22 * v22 │
00:10:54 verbose #73408 > │ let v26 : float = v24 + v25 │
00:10:54 verbose #73409 > │ let v27 : float = v23 * v23 │
00:10:54 verbose #73410 > │ let v28 : float = v26 + v27 │
00:10:54 verbose #73411 > │ let v29 : float = sqrt v28 │
00:10:54 verbose #73412 > │ let v30 : float = -5384.0 * v29 │
00:10:54 verbose #73413 > │ let v31 : float = v30 * v21 │
00:10:54 verbose #73414 > │ let v32 : float = v30 * v22 │
00:10:54 verbose #73415 > │ let v33 : float = v30 * v23 │
00:10:54 verbose #73416 > │ let v34 : float = v31 / v29 │
00:10:54 verbose #73417 > │ let v35 : float = v32 / v29 │
00:10:54 verbose #73418 > │ let v36 : float = v33 / v29 │
00:10:54 verbose #73419 > │ struct (v34, v35, v36) │
00:10:54 verbose #73420 > │ and closure140 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:10:54 verbose #73421 > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : (struct (float * │
00:10:54 verbose #73422 > │ float * float * float * float * float * float * float * float) -> struct │
00:10:54 verbose #73423 > │ (float * float * float)) = │
00:10:54 verbose #73424 > │ closure141(v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:10:54 verbose #73425 > │ and method4 () : UH4 = │
00:10:54 verbose #73426 > │ let v0 : (struct (float * float * float * float * float * float * float │
00:10:54 verbose #73427 > │ * float * float) -> struct (float * float * float)) = closure138() │
00:10:54 verbose #73428 > │ let v1 : US1 = US1_0(0, v0) │
00:10:54 verbose #73429 > │ let v2 : (struct (float * float * float * float * float * float * float │
00:10:54 verbose #73430 > │ * float * float) -> struct (float * float * float)) = closure139() │
00:10:54 verbose #73431 > │ let v3 : US1 = US1_0(63, v2) │
00:10:54 verbose #73432 > │ let v4 : (struct (float * float * float * float * float * float * float │
00:10:54 verbose #73433 > │ * float * float) -> (struct (float * float * float * float * float * float * │
00:10:54 verbose #73434 > │ float * float * float) -> struct (float * float * float))) = closure140() │
00:10:54 verbose #73435 > │ let v5 : US1 = US1_1(0, 1, v4) │
00:10:54 verbose #73436 > │ let v6 : US1 = US1_1(1, 2, v4) │
00:10:54 verbose #73437 > │ let v7 : US1 = US1_1(2, 3, v4) │
00:10:54 verbose #73438 > │ let v8 : US1 = US1_1(3, 4, v4) │
00:10:54 verbose #73439 > │ let v9 : US1 = US1_1(4, 5, v4) │
00:10:54 verbose #73440 > │ let v10 : US1 = US1_1(5, 6, v4) │
00:10:54 verbose #73441 > │ let v11 : US1 = US1_1(6, 7, v4) │
00:10:54 verbose #73442 > │ let v12 : US1 = US1_1(7, 8, v4) │
00:10:54 verbose #73443 > │ let v13 : US1 = US1_1(8, 9, v4) │
00:10:54 verbose #73444 > │ let v14 : US1 = US1_1(9, 10, v4) │
00:10:54 verbose #73445 > │ let v15 : US1 = US1_1(10, 11, v4) │
00:10:54 verbose #73446 > │ let v16 : US1 = US1_1(11, 12, v4) │
00:10:54 verbose #73447 > │ let v17 : US1 = US1_1(12, 13, v4) │
00:10:54 verbose #73448 > │ let v18 : US1 = US1_1(13, 14, v4) │
00:10:54 verbose #73449 > │ let v19 : US1 = US1_1(14, 15, v4) │
00:10:54 verbose #73450 > │ let v20 : US1 = US1_1(15, 16, v4) │
00:10:54 verbose #73451 > │ let v21 : US1 = US1_1(16, 17, v4) │
00:10:54 verbose #73452 > │ let v22 : US1 = US1_1(17, 18, v4) │
00:10:54 verbose #73453 > │ let v23 : US1 = US1_1(18, 19, v4) │
00:10:54 verbose #73454 > │ let v24 : US1 = US1_1(19, 20, v4) │
00:10:54 verbose #73455 > │ let v25 : US1 = US1_1(20, 21, v4) │
00:10:54 verbose #73456 > │ let v26 : US1 = US1_1(21, 22, v4) │
00:10:54 verbose #73457 > │ let v27 : US1 = US1_1(22, 23, v4) │
00:10:54 verbose #73458 > │ let v28 : US1 = US1_1(23, 24, v4) │
00:10:54 verbose #73459 > │ let v29 : US1 = US1_1(24, 25, v4) │
00:10:54 verbose #73460 > │ let v30 : US1 = US1_1(25, 26, v4) │
00:10:54 verbose #73461 > │ let v31 : US1 = US1_1(26, 27, v4) │
00:10:54 verbose #73462 > │ let v32 : US1 = US1_1(27, 28, v4) │
00:10:54 verbose #73463 > │ let v33 : US1 = US1_1(28, 29, v4) │
00:10:54 verbose #73464 > │ let v34 : US1 = US1_1(29, 30, v4) │
00:10:54 verbose #73465 > │ let v35 : US1 = US1_1(30, 31, v4) │
00:10:54 verbose #73466 > │ let v36 : US1 = US1_1(31, 32, v4) │
00:10:54 verbose #73467 > │ let v37 : US1 = US1_1(32, 33, v4) │
00:10:54 verbose #73468 > │ let v38 : US1 = US1_1(33, 34, v4) │
00:10:54 verbose #73469 > │ let v39 : US1 = US1_1(34, 35, v4) │
00:10:54 verbose #73470 > │ let v40 : US1 = US1_1(35, 36, v4) │
00:10:54 verbose #73471 > │ let v41 : US1 = US1_1(36, 37, v4) │
00:10:54 verbose #73472 > │ let v42 : US1 = US1_1(37, 38, v4) │
00:10:54 verbose #73473 > │ let v43 : US1 = US1_1(38, 39, v4) │
00:10:54 verbose #73474 > │ let v44 : US1 = US1_1(39, 40, v4) │
00:10:54 verbose #73475 > │ let v45 : US1 = US1_1(40, 41, v4) │
00:10:54 verbose #73476 > │ let v46 : US1 = US1_1(41, 42, v4) │
00:10:54 verbose #73477 > │ let v47 : US1 = US1_1(42, 43, v4) │
00:10:54 verbose #73478 > │ let v48 : US1 = US1_1(43, 44, v4) │
00:10:54 verbose #73479 > │ let v49 : US1 = US1_1(44, 45, v4) │
00:10:54 verbose #73480 > │ let v50 : US1 = US1_1(45, 46, v4) │
00:10:54 verbose #73481 > │ let v51 : US1 = US1_1(46, 47, v4) │
00:10:54 verbose #73482 > │ let v52 : US1 = US1_1(47, 48, v4) │
00:10:54 verbose #73483 > │ let v53 : US1 = US1_1(48, 49, v4) │
00:10:54 verbose #73484 > │ let v54 : US1 = US1_1(49, 50, v4) │
00:10:54 verbose #73485 > │ let v55 : US1 = US1_1(50, 51, v4) │
00:10:54 verbose #73486 > │ let v56 : US1 = US1_1(51, 52, v4) │
00:10:54 verbose #73487 > │ let v57 : US1 = US1_1(52, 53, v4) │
00:10:54 verbose #73488 > │ let v58 : US1 = US1_1(53, 54, v4) │
00:10:54 verbose #73489 > │ let v59 : US1 = US1_1(54, 55, v4) │
00:10:54 verbose #73490 > │ let v60 : US1 = US1_1(55, 56, v4) │
00:10:54 verbose #73491 > │ let v61 : US1 = US1_1(56, 57, v4) │
00:10:54 verbose #73492 > │ let v62 : US1 = US1_1(57, 58, v4) │
00:10:54 verbose #73493 > │ let v63 : US1 = US1_1(58, 59, v4) │
00:10:54 verbose #73494 > │ let v64 : US1 = US1_1(59, 60, v4) │
00:10:54 verbose #73495 > │ let v65 : UH4 = UH4_0 │
00:10:54 verbose #73496 > │ let v66 : UH4 = UH4_1(v64, v65) │
00:10:54 verbose #73497 > │ let v67 : UH4 = UH4_1(v63, v66) │
00:10:54 verbose #73498 > │ let v68 : UH4 = UH4_1(v62, v67) │
00:10:54 verbose #73499 > │ let v69 : UH4 = UH4_1(v61, v68) │
00:10:54 verbose #73500 > │ let v70 : UH4 = UH4_1(v60, v69) │
00:10:54 verbose #73501 > │ let v71 : UH4 = UH4_1(v59, v70) │
00:10:54 verbose #73502 > │ let v72 : UH4 = UH4_1(v58, v71) │
00:10:54 verbose #73503 > │ let v73 : UH4 = UH4_1(v57, v72) │
00:10:54 verbose #73504 > │ let v74 : UH4 = UH4_1(v56, v73) │
00:10:54 verbose #73505 > │ let v75 : UH4 = UH4_1(v55, v74) │
00:10:54 verbose #73506 > │ let v76 : UH4 = UH4_1(v54, v75) │
00:10:54 verbose #73507 > │ let v77 : UH4 = UH4_1(v53, v76) │
00:10:54 verbose #73508 > │ let v78 : UH4 = UH4_1(v52, v77) │
00:10:54 verbose #73509 > │ let v79 : UH4 = UH4_1(v51, v78) │
00:10:54 verbose #73510 > │ let v80 : UH4 = UH4_1(v50, v79) │
00:10:54 verbose #73511 > │ let v81 : UH4 = UH4_1(v49, v80) │
00:10:54 verbose #73512 > │ let v82 : UH4 = UH4_1(v48, v81) │
00:10:54 verbose #73513 > │ let v83 : UH4 = UH4_1(v47, v82) │
00:10:54 verbose #73514 > │ let v84 : UH4 = UH4_1(v46, v83) │
00:10:54 verbose #73515 > │ let v85 : UH4 = UH4_1(v45, v84) │
00:10:54 verbose #73516 > │ let v86 : UH4 = UH4_1(v44, v85) │
00:10:54 verbose #73517 > │ let v87 : UH4 = UH4_1(v43, v86) │
00:10:54 verbose #73518 > │ let v88 : UH4 = UH4_1(v42, v87) │
00:10:54 verbose #73519 > │ let v89 : UH4 = UH4_1(v41, v88) │
00:10:54 verbose #73520 > │ let v90 : UH4 = UH4_1(v40, v89) │
00:10:54 verbose #73521 > │ let v91 : UH4 = UH4_1(v39, v90) │
00:10:54 verbose #73522 > │ let v92 : UH4 = UH4_1(v38, v91) │
00:10:54 verbose #73523 > │ let v93 : UH4 = UH4_1(v37, v92) │
00:10:54 verbose #73524 > │ let v94 : UH4 = UH4_1(v36, v93) │
00:10:54 verbose #73525 > │ let v95 : UH4 = UH4_1(v35, v94) │
00:10:54 verbose #73526 > │ let v96 : UH4 = UH4_1(v34, v95) │
00:10:54 verbose #73527 > │ let v97 : UH4 = UH4_1(v33, v96) │
00:10:54 verbose #73528 > │ let v98 : UH4 = UH4_1(v32, v97) │
00:10:54 verbose #73529 > │ let v99 : UH4 = UH4_1(v31, v98) │
00:10:54 verbose #73530 > │ let v100 : UH4 = UH4_1(v30, v99) │
00:10:54 verbose #73531 > │ let v101 : UH4 = UH4_1(v29, v100) │
00:10:54 verbose #73532 > │ let v102 : UH4 = UH4_1(v28, v101) │
00:10:54 verbose #73533 > │ let v103 : UH4 = UH4_1(v27, v102) │
00:10:54 verbose #73534 > │ let v104 : UH4 = UH4_1(v26, v103) │
00:10:54 verbose #73535 > │ let v105 : UH4 = UH4_1(v25, v104) │
00:10:54 verbose #73536 > │ let v106 : UH4 = UH4_1(v24, v105) │
00:10:54 verbose #73537 > │ let v107 : UH4 = UH4_1(v23, v106) │
00:10:54 verbose #73538 > │ let v108 : UH4 = UH4_1(v22, v107) │
00:10:54 verbose #73539 > │ let v109 : UH4 = UH4_1(v21, v108) │
00:10:54 verbose #73540 > │ let v110 : UH4 = UH4_1(v20, v109) │
00:10:54 verbose #73541 > │ let v111 : UH4 = UH4_1(v19, v110) │
00:10:54 verbose #73542 > │ let v112 : UH4 = UH4_1(v18, v111) │
00:10:54 verbose #73543 > │ let v113 : UH4 = UH4_1(v17, v112) │
00:10:54 verbose #73544 > │ let v114 : UH4 = UH4_1(v16, v113) │
00:10:54 verbose #73545 > │ let v115 : UH4 = UH4_1(v15, v114) │
00:10:54 verbose #73546 > │ let v116 : UH4 = UH4_1(v14, v115) │
00:10:54 verbose #73547 > │ let v117 : UH4 = UH4_1(v13, v116) │
00:10:54 verbose #73548 > │ let v118 : UH4 = UH4_1(v12, v117) │
00:10:54 verbose #73549 > │ let v119 : UH4 = UH4_1(v11, v118) │
00:10:54 verbose #73550 > │ let v120 : UH4 = UH4_1(v10, v119) │
00:10:54 verbose #73551 > │ let v121 : UH4 = UH4_1(v9, v120) │
00:10:54 verbose #73552 > │ let v122 : UH4 = UH4_1(v8, v121) │
00:10:54 verbose #73553 > │ let v123 : UH4 = UH4_1(v7, v122) │
00:10:54 verbose #73554 > │ let v124 : UH4 = UH4_1(v6, v123) │
00:10:54 verbose #73555 > │ let v125 : UH4 = UH4_1(v5, v124) │
00:10:54 verbose #73556 > │ let v126 : UH4 = UH4_1(v3, v125) │
00:10:54 verbose #73557 > │ UH4_1(v1, v126) │
00:10:54 verbose #73558 > │ and closure143 (v0 : UH5) () : UH5 = │
00:10:54 verbose #73559 > │ v0 │
00:10:54 verbose #73560 > │ and method5 (v0 : UH1, v1 : UH5, v2 : int32) : struct (UH5 * int32) = │
00:10:54 verbose #73561 > │ match v0 with │
00:10:54 verbose #73562 > │ | UH1_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons *) │
00:10:54 verbose #73563 > │ let v13 : int32 = v2 + 1 │
00:10:54 verbose #73564 > │ let v14 : UH1 = v12 () │
00:10:55 verbose #73565 > │ let v15 : (unit -> UH5) = closure143(v1) │
00:10:55 verbose #73566 > │ let v16 : UH5 = UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v15) │
00:10:55 verbose #73567 > │ method5(v14, v16, v13) │
00:10:55 verbose #73568 > │ | UH1_1 -> (* StreamNil *) │
00:10:55 verbose #73569 > │ struct (v1, v2) │
00:10:55 verbose #73570 > │ and closure144 (v0 : UH5) () : UH5 = │
00:10:55 verbose #73571 > │ v0 │
00:10:55 verbose #73572 > │ and method6 (v0 : UH5, v1 : UH5) : UH5 = │
00:10:55 verbose #73573 > │ match v0 with │
00:10:55 verbose #73574 > │ | UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:10:55 verbose #73575 > │ *) │
00:10:55 verbose #73576 > │ let v13 : UH5 = v12 () │
00:10:55 verbose #73577 > │ let v14 : (unit -> UH5) = closure144(v1) │
00:10:55 verbose #73578 > │ let v15 : UH5 = UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v14) │
00:10:55 verbose #73579 > │ method6(v13, v15) │
00:10:55 verbose #73580 > │ | UH5_1 -> (* StreamNil *) │
00:10:55 verbose #73581 > │ v1 │
00:10:55 verbose #73582 > │ and closure145 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:10:55 verbose #73583 > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:55 verbose #73584 > │ float * float) = │
00:10:55 verbose #73585 > │ struct (0.0, 0.0, 0.0) │
00:10:55 verbose #73586 > │ and method9 (v0 : int32, v1 : UH1) : US3 = │
00:10:55 verbose #73587 > │ match v1 with │
00:10:55 verbose #73588 > │ | UH1_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:10:55 verbose #73589 > │ let v12 : bool = v0 <= 0 │
00:10:55 verbose #73590 > │ if v12 then │
00:10:55 verbose #73591 > │ US3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10) │
00:10:55 verbose #73592 > │ else │
00:10:55 verbose #73593 > │ let v14 : int32 = v0 - 1 │
00:10:55 verbose #73594 > │ let v15 : UH1 = v11 () │
00:10:55 verbose #73595 > │ method9(v14, v15) │
00:10:55 verbose #73596 > │ | UH1_1 -> (* StreamNil *) │
00:10:55 verbose #73597 > │ US3_1 │
00:10:55 verbose #73598 > │ and closure146 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:10:55 verbose #73599 > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:10:55 verbose #73600 > │ float * float) = │
00:10:55 verbose #73601 > │ struct (0.0, 0.0, 0.0) │
00:10:55 verbose #73602 > │ and method8 (v0 : int32, v1 : UH1, v2 : UH4, v3 : UH6) : UH6 = │
00:10:55 verbose #73603 > │ match v2 with │
00:10:55 verbose #73604 > │ | UH4_1(v4, v5) -> (* Cons *) │
00:10:55 verbose #73605 > │ let v6 : UH6 = method8(v0, v1, v5, v3) │
00:10:55 verbose #73606 > │ let v55 : (struct (float * float * float * float * float * float * │
00:10:55 verbose #73607 > │ float * float * float) -> struct (float * float * float)) = │
00:10:55 verbose #73608 > │ match v4 with │
00:10:55 verbose #73609 > │ | US1_0(v7, v8) -> (* ExternalForce *) │
00:10:55 verbose #73610 > │ let v9 : bool = v0 = v7 │
00:10:55 verbose #73611 > │ if v9 then │
00:10:55 verbose #73612 > │ v8 │
00:10:55 verbose #73613 > │ else │
00:10:55 verbose #73614 > │ closure145() │
00:10:55 verbose #73615 > │ | US1_1(v12, v13, v14) -> (* InternalForce *) │
00:10:55 verbose #73616 > │ let v15 : bool = v0 = v12 │
00:10:55 verbose #73617 > │ let v49 : US2 = │
00:10:55 verbose #73618 > │ if v15 then │
00:10:55 verbose #73619 > │ let v16 : US3 = method9(v13, v1) │
00:10:55 verbose #73620 > │ match v16 with │
00:10:55 verbose #73621 > │ | US3_1 -> (* None *) │
00:10:55 verbose #73622 > │ US2_1 │
00:10:55 verbose #73623 > │ | US3_0(v17, v18, v19, v20, v21, v22, v23, v24, v25) │
00:10:55 verbose #73624 > │ -> (* Some *) │
00:10:55 verbose #73625 > │ let v26 : (struct (float * float * float * float │
00:10:55 verbose #73626 > │ * float * float * float * float * float) -> struct (float * float * float)) │
00:10:55 verbose #73627 > │ = v14 struct (v17, v18, v19, v20, v21, v22, v23, v24, v25) │
00:10:55 verbose #73628 > │ US2_0(v26) │
00:10:55 verbose #73629 > │ else │
00:10:55 verbose #73630 > │ let v31 : bool = v0 = v13 │
00:10:55 verbose #73631 > │ if v31 then │
00:10:55 verbose #73632 > │ let v32 : US3 = method9(v12, v1) │
00:10:55 verbose #73633 > │ match v32 with │
00:10:55 verbose #73634 > │ | US3_1 -> (* None *) │
00:10:55 verbose #73635 > │ US2_1 │
00:10:55 verbose #73636 > │ | US3_0(v33, v34, v35, v36, v37, v38, v39, v40, │
00:10:55 verbose #73637 > │ v41) -> (* Some *) │
00:10:55 verbose #73638 > │ let v42 : (struct (float * float * float * │
00:10:55 verbose #73639 > │ float * float * float * float * float * float) -> struct (float * float * │
00:10:55 verbose #73640 > │ float)) = v14 struct (v33, v34, v35, v36, v37, v38, v39, v40, v41) │
00:10:55 verbose #73641 > │ US2_0(v42) │
00:10:55 verbose #73642 > │ else │
00:10:55 verbose #73643 > │ US2_1 │
00:10:55 verbose #73644 > │ match v49 with │
00:10:55 verbose #73645 > │ | US2_1 -> (* None *) │
00:10:55 verbose #73646 > │ closure146() │
00:10:55 verbose #73647 > │ | US2_0(v50) -> (* Some *) │
00:10:55 verbose #73648 > │ v50 │
00:10:55 verbose #73649 > │ UH6_1(v55, v6) │
00:10:55 verbose #73650 > │ | UH4_0 -> (* Nil *) │
00:10:55 verbose #73651 > │ v3 │
00:10:55 verbose #73652 > │ and method10 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:10:55 verbose #73653 > │ : float, v6 : float, v7 : float, v8 : float, v9 : UH6, v10 : UH7) : UH7 = │
00:10:55 verbose #73654 > │ match v9 with │
00:10:55 verbose #73655 > │ | UH6_1(v11, v12) -> (* Cons *) │
00:10:55 verbose #73656 > │ let v13 : UH7 = method10(v0, v1, v2, v3, v4, v5, v6, v7, v8, v12, │
00:10:55 verbose #73657 > │ v10) │
00:10:55 verbose #73658 > │ let struct (v14 : float, v15 : float, v16 : float) = v11 struct (v0, │
00:10:55 verbose #73659 > │ v1, v2, v3, v4, v5, v6, v7, v8) │
00:10:55 verbose #73660 > │ UH7_1(v14, v15, v16, v13) │
00:10:55 verbose #73661 > │ | UH6_0 -> (* Nil *) │
00:10:55 verbose #73662 > │ v10 │
00:10:55 verbose #73663 > │ and method11 (v0 : UH7, v1 : float, v2 : float, v3 : float) : struct (float │
00:10:55 verbose #73664 > │ * float * float) = │
00:10:55 verbose #73665 > │ match v0 with │
00:10:55 verbose #73666 > │ | UH7_1(v4, v5, v6, v7) -> (* Cons *) │
00:10:55 verbose #73667 > │ let v8 : float = v1 + v4 │
00:10:55 verbose #73668 > │ let v9 : float = v2 + v5 │
00:10:55 verbose #73669 > │ let v10 : float = v3 + v6 │
00:10:55 verbose #73670 > │ method11(v7, v8, v9, v10) │
00:10:55 verbose #73671 > │ | UH7_0 -> (* Nil *) │
00:10:55 verbose #73672 > │ struct (v1, v2, v3) │
00:10:55 verbose #73673 > │ and closure147 (v0 : UH3) () : UH3 = │
00:10:55 verbose #73674 > │ v0 │
00:10:55 verbose #73675 > │ and method7 (v0 : UH4, v1 : UH1, v2 : UH5, v3 : UH3) : UH3 = │
00:10:55 verbose #73676 > │ match v2 with │
00:10:55 verbose #73677 > │ | UH5_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* │
00:10:55 verbose #73678 > │ StreamCons *) │
00:10:55 verbose #73679 > │ let v15 : UH5 = v14 () │
00:10:55 verbose #73680 > │ let v16 : UH3 = method7(v0, v1, v15, v3) │
00:10:55 verbose #73681 > │ let v17 : UH6 = UH6_0 │
00:10:55 verbose #73682 > │ let v18 : UH6 = method8(v4, v1, v0, v17) │
00:10:55 verbose #73683 > │ let v19 : UH7 = UH7_0 │
00:10:55 verbose #73684 > │ let v20 : UH7 = method10(v5, v6, v7, v8, v9, v10, v11, v12, v13, │
00:10:55 verbose #73685 > │ v18, v19) │
00:10:55 verbose #73686 > │ let v21 : float = 0.0 │
00:10:55 verbose #73687 > │ let v22 : float = 0.0 │
00:10:55 verbose #73688 > │ let v23 : float = 0.0 │
00:10:55 verbose #73689 > │ let struct (v24 : float, v25 : float, v26 : float) = method11(v20, │
00:10:55 verbose #73690 > │ v21, v22, v23) │
00:10:55 verbose #73691 > │ let v27 : float = v24 / v6 │
00:10:55 verbose #73692 > │ let v28 : float = v25 / v6 │
00:10:55 verbose #73693 > │ let v29 : float = v26 / v6 │
00:10:55 verbose #73694 > │ let v30 : (unit -> UH3) = closure147(v16) │
00:10:55 verbose #73695 > │ UH3_0(0.0, 0.0, v11, v12, v13, 1.0, v27, v28, v29, v30) │
00:10:55 verbose #73696 > │ | UH5_1 -> (* StreamNil *) │
00:10:55 verbose #73697 > │ v3 │
00:10:55 verbose #73698 > │ and closure142 (v0 : UH4) (v1 : UH1) : UH3 = │
00:10:55 verbose #73699 > │ let v2 : UH5 = UH5_1 │
00:10:55 verbose #73700 > │ let v3 : int32 = 0 │
00:10:55 verbose #73701 > │ let struct (v4 : UH5, v5 : int32) = method5(v1, v2, v3) │
00:10:55 verbose #73702 > │ let v6 : UH5 = UH5_1 │
00:10:55 verbose #73703 > │ let v7 : UH5 = method6(v4, v6) │
00:10:55 verbose #73704 > │ let v8 : UH3 = UH3_1 │
00:10:55 verbose #73705 > │ let v9 : UH3 = method7(v0, v1, v7, v8) │
00:10:55 verbose #73706 > │ v9 │
00:10:55 verbose #73707 > │ and closure148 (v0 : (UH1 -> UH1), v1 : UH1, v2 : UH1) () : UH8 = │
00:10:55 verbose #73708 > │ let v3 : UH1 = v0 v2 │
00:10:55 verbose #73709 > │ let v4 : (unit -> UH8) = closure148(v0, v1, v3) │
00:10:55 verbose #73710 > │ UH8_0(v2, v4) │
00:10:55 verbose #73711 > │ and method12 (v0 : float, v1 : UH8) : US4 = │
00:10:55 verbose #73712 > │ match v1 with │
00:10:55 verbose #73713 > │ | UH8_0(v2, v3) -> (* StreamCons *) │
00:10:55 verbose #73714 > │ let v4 : bool = v0 <= 0.0 │
00:10:55 verbose #73715 > │ if v4 then │
00:10:55 verbose #73716 > │ US4_0(v2) │
00:10:55 verbose #73717 > │ else │
00:10:55 verbose #73718 > │ let v6 : float = v0 - 1.0 │
00:10:55 verbose #73719 > │ let v7 : UH8 = v3 () │
00:10:55 verbose #73720 > │ method12(v6, v7) │
00:10:55 verbose #73721 > │ | UH8_1 -> (* StreamNil *) │
00:10:55 verbose #73722 > │ US4_1 │
00:10:55 verbose #73723 > │ and closure149 (v0 : UH9) () : UH9 = │
00:10:55 verbose #73724 > │ v0 │
00:10:55 verbose #73725 > │ and method13 (v0 : UH1, v1 : UH9) : UH9 = │
00:10:55 verbose #73726 > │ match v0 with │
00:10:55 verbose #73727 > │ | UH1_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:10:55 verbose #73728 > │ let v12 : UH1 = v11 () │
00:10:55 verbose #73729 > │ let v13 : UH9 = method13(v12, v1) │
00:10:55 verbose #73730 > │ let v14 : (unit -> UH9) = closure149(v13) │
00:10:55 verbose #73731 > │ UH9_0(v4, v5, v6, v14) │
00:10:55 verbose #73732 > │ | UH1_1 -> (* StreamNil *) │
00:10:55 verbose #73733 > │ v1 │
00:10:55 verbose #73734 > │ and method14 (v0 : UH9, v1 : UH7) : UH7 = │
00:10:55 verbose #73735 > │ match v0 with │
00:10:55 verbose #73736 > │ | UH9_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:10:55 verbose #73737 > │ let v6 : UH9 = v5 () │
00:10:55 verbose #73738 > │ let v7 : UH7 = method14(v6, v1) │
00:10:55 verbose #73739 > │ UH7_1(v2, v3, v4, v7) │
00:10:55 verbose #73740 > │ | UH9_1 -> (* StreamNil *) │
00:10:55 verbose #73741 > │ v1 │
00:10:55 verbose #73742 > │ and method15 (v0 : UH7, v1 : UH7) : UH7 = │
00:10:55 verbose #73743 > │ match v0 with │
00:10:55 verbose #73744 > │ | UH7_1(v2, v3, v4, v5) -> (* Cons *) │
00:10:55 verbose #73745 > │ let v6 : UH7 = method15(v5, v1) │
00:10:55 verbose #73746 > │ UH7_1(v2, v3, v4, v6) │
00:10:55 verbose #73747 > │ | UH7_0 -> (* Nil *) │
00:10:55 verbose #73748 > │ v1 │
00:10:55 verbose #73749 > │ and method16 (v0 : UH7, v1 : UH10) : UH10 = │
00:10:55 verbose #73750 > │ match v0 with │
00:10:55 verbose #73751 > │ | UH7_1(v2, v3, v4, v5) -> (* Cons *) │
00:10:55 verbose #73752 > │ let v6 : UH10 = method16(v5, v1) │
00:10:55 verbose #73753 > │ UH10_1(v2, v3, v6) │
00:10:55 verbose #73754 > │ | UH7_0 -> (* Nil *) │
00:10:55 verbose #73755 > │ v1 │
00:10:55 verbose #73756 > │ and closure150 (v0 : UH11) () : UH11 = │
00:10:55 verbose #73757 > │ v0 │
00:10:55 verbose #73758 > │ and method17 (v0 : UH10, v1 : UH11) : UH11 = │
00:10:55 verbose #73759 > │ match v0 with │
00:10:55 verbose #73760 > │ | UH10_1(v2, v3, v4) -> (* Cons *) │
00:10:55 verbose #73761 > │ let v5 : UH11 = method17(v4, v1) │
00:10:55 verbose #73762 > │ let v6 : (unit -> UH11) = closure150(v5) │
00:10:55 verbose #73763 > │ UH11_0(v2, v3, v6) │
00:10:55 verbose #73764 > │ | UH10_0 -> (* Nil *) │
00:10:55 verbose #73765 > │ v1 │
00:10:55 verbose #73766 > │ and closure151 (v0 : UH0) () : UH0 = │
00:10:55 verbose #73767 > │ v0 │
00:10:55 verbose #73768 > │ and closure152 (v0 : UH0) () : UH0 = │
00:10:55 verbose #73769 > │ v0 │
00:10:55 verbose #73770 > │ and method18 (v0 : UH11) : struct (UH0 * UH0) = │
00:10:55 verbose #73771 > │ match v0 with │
00:10:55 verbose #73772 > │ | UH11_0(v1, v2, v3) -> (* StreamCons *) │
00:10:55 verbose #73773 > │ let v4 : UH11 = v3 () │
00:10:55 verbose #73774 > │ let struct (v5 : UH0, v6 : UH0) = method18(v4) │
00:10:55 verbose #73775 > │ let v7 : (unit -> UH0) = closure151(v5) │
00:10:55 verbose #73776 > │ let v8 : UH0 = UH0_0(v1, v7) │
00:10:55 verbose #73777 > │ let v9 : (unit -> UH0) = closure152(v6) │
00:10:55 verbose #73778 > │ let v10 : UH0 = UH0_0(v2, v9) │
00:10:55 verbose #73779 > │ struct (v8, v10) │
00:10:55 verbose #73780 > │ | UH11_1 -> (* StreamNil *) │
00:10:55 verbose #73781 > │ let v11 : UH0 = UH0_1 │
00:10:55 verbose #73782 > │ let v12 : UH0 = UH0_1 │
00:10:55 verbose #73783 > │ struct (v11, v12) │
00:10:55 verbose #73784 > │ and method19 (v0 : UH0, v1 : UH12) : UH12 = │
00:10:55 verbose #73785 > │ match v0 with │
00:10:55 verbose #73786 > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:10:55 verbose #73787 > │ let v4 : UH0 = v3 () │
00:10:55 verbose #73788 > │ let v5 : UH12 = method19(v4, v1) │
00:10:55 verbose #73789 > │ UH12_1(v2, v5) │
00:10:55 verbose #73790 > │ | UH0_1 -> (* StreamNil *) │
00:10:55 verbose #73791 > │ v1 │
00:10:55 verbose #73792 > │ and method21 (v0 : UH12, v1 : int32) : int32 = │
00:10:55 verbose #73793 > │ match v0 with │
00:10:55 verbose #73794 > │ | UH12_1(v2, v3) -> (* Cons *) │
00:10:55 verbose #73795 > │ let v4 : int32 = v1 + 1 │
00:10:55 verbose #73796 > │ method21(v3, v4) │
00:10:55 verbose #73797 > │ | UH12_0 -> (* Nil *) │
00:10:55 verbose #73798 > │ v1 │
00:10:55 verbose #73799 > │ and method22 (v0 : (float []), v1 : UH12, v2 : int32) : int32 = │
00:10:55 verbose #73800 > │ match v1 with │
00:10:55 verbose #73801 > │ | UH12_1(v3, v4) -> (* Cons *) │
00:10:55 verbose #73802 > │ v0.[int v2] <- v3 │
00:10:55 verbose #73803 > │ let v5 : int32 = v2 + 1 │
00:10:55 verbose #73804 > │ method22(v0, v4, v5) │
00:10:55 verbose #73805 > │ | UH12_0 -> (* Nil *) │
00:10:55 verbose #73806 > │ v2 │
00:10:55 verbose #73807 > │ and method20 (v0 : UH12) : (float []) = │
00:10:55 verbose #73808 > │ let v1 : int32 = 0 │
00:10:55 verbose #73809 > │ let v2 : int32 = method21(v0, v1) │
00:10:55 verbose #73810 > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:10:55 verbose #73811 > │ let v4 : int32 = 0 │
00:10:55 verbose #73812 > │ let v5 : int32 = method22(v3, v0, v4) │
00:10:55 verbose #73813 > │ v3 │
00:10:55 verbose #73814 > │ and closure153 (v0 : UH2) () : UH2 = │
00:10:55 verbose #73815 > │ v0 │
00:10:55 verbose #73816 > │ and method1 (v0 : UH1, v1 : UH0, v2 : UH2) : UH2 = │
00:10:55 verbose #73817 > │ match v1 with │
00:10:55 verbose #73818 > │ | UH0_0(v3, v4) -> (* StreamCons *) │
00:10:55 verbose #73819 > │ let v5 : UH0 = v4 () │
00:10:55 verbose #73820 > │ let v6 : UH2 = method1(v0, v5, v2) │
00:10:55 verbose #73821 > │ let v7 : ((UH1 -> UH3) -> (UH1 -> UH1)) = method2() │
00:10:55 verbose #73822 > │ let v8 : UH4 = method4() │
00:10:55 verbose #73823 > │ let v9 : (UH1 -> UH3) = closure142(v8) │
00:10:55 verbose #73824 > │ let v10 : (UH1 -> UH1) = v7 v9 │
00:10:55 verbose #73825 > │ let v11 : UH1 = v10 v0 │
00:10:55 verbose #73826 > │ let v12 : (unit -> UH8) = closure148(v10, v0, v11) │
00:10:55 verbose #73827 > │ let v13 : UH8 = UH8_0(v0, v12) │
00:10:55 verbose #73828 > │ let v14 : US4 = method12(v3, v13) │
00:10:55 verbose #73829 > │ let v18 : UH1 = │
00:10:55 verbose #73830 > │ match v14 with │
00:10:55 verbose #73831 > │ | US4_1 -> (* None *) │
00:10:55 verbose #73832 > │ failwith<UH1> "Option does not have a value." │
00:10:55 verbose #73833 > │ | US4_0(v15) -> (* Some *) │
00:10:55 verbose #73834 > │ v15 │
00:10:55 verbose #73835 > │ let v19 : UH9 = UH9_1 │
00:10:55 verbose #73836 > │ let v20 : UH9 = method13(v18, v19) │
00:10:55 verbose #73837 > │ let v21 : UH7 = UH7_0 │
00:10:55 verbose #73838 > │ let v22 : UH7 = method14(v20, v21) │
00:10:55 verbose #73839 > │ let v23 : float = 0.65 │
00:10:55 verbose #73840 > │ let v24 : float = 0.0 │
00:10:55 verbose #73841 > │ let v25 : float = 0.0 │
00:10:55 verbose #73842 > │ let v26 : UH7 = UH7_0 │
00:10:55 verbose #73843 > │ let v27 : UH7 = UH7_1(v23, v24, v25, v26) │
00:10:55 verbose #73844 > │ let v28 : UH7 = method15(v22, v27) │
00:10:55 verbose #73845 > │ let v29 : UH10 = UH10_0 │
00:10:55 verbose #73846 > │ let v30 : UH10 = method16(v28, v29) │
00:10:55 verbose #73847 > │ let v31 : UH11 = UH11_1 │
00:10:55 verbose #73848 > │ let v32 : UH11 = method17(v30, v31) │
00:10:55 verbose #73849 > │ let struct (v33 : UH0, v34 : UH0) = method18(v32) │
00:10:55 verbose #73850 > │ let v35 : UH12 = UH12_0 │
00:10:55 verbose #73851 > │ let v36 : UH12 = method19(v33, v35) │
00:10:55 verbose #73852 > │ let v37 : float = 0.0 │
00:10:55 verbose #73853 > │ let v38 : UH12 = UH12_1(v37, v36) │
00:10:55 verbose #73854 > │ let v39 : (float []) = method20(v38) │
00:10:55 verbose #73855 > │ let v40 : UH12 = UH12_0 │
00:10:55 verbose #73856 > │ let v41 : UH12 = method19(v34, v40) │
00:10:55 verbose #73857 > │ let v42 : float = 0.0 │
00:10:55 verbose #73858 > │ let v43 : UH12 = UH12_1(v42, v41) │
00:10:55 verbose #73859 > │ let v44 : (float []) = method20(v43) │
00:10:55 verbose #73860 > │ let v45 : (unit -> UH2) = closure153(v6) │
00:10:55 verbose #73861 > │ UH2_0(v39, v44, v45) │
00:10:55 verbose #73862 > │ | UH0_1 -> (* StreamNil *) │
00:10:55 verbose #73863 > │ v2 │
00:10:55 verbose #73864 > │ and closure154 (v0 : UH13) () : UH13 = │
00:10:55 verbose #73865 > │ v0 │
00:10:55 verbose #73866 > │ and method23 (v0 : UH2, v1 : UH13, v2 : int32) : struct (UH13 * int32) = │
00:10:55 verbose #73867 > │ match v0 with │
00:10:55 verbose #73868 > │ | UH2_0(v3, v4, v5) -> (* StreamCons *) │
00:10:55 verbose #73869 > │ let v6 : int32 = v2 + 1 │
00:10:55 verbose #73870 > │ let v7 : UH2 = v5 () │
00:10:55 verbose #73871 > │ let v8 : (unit -> UH13) = closure154(v1) │
00:10:55 verbose #73872 > │ let v9 : UH13 = UH13_0(v2, v3, v4, v8) │
00:10:55 verbose #73873 > │ method23(v7, v9, v6) │
00:10:55 verbose #73874 > │ | UH2_1 -> (* StreamNil *) │
00:10:55 verbose #73875 > │ struct (v1, v2) │
00:10:55 verbose #73876 > │ and closure155 (v0 : UH13) () : UH13 = │
00:10:55 verbose #73877 > │ v0 │
00:10:55 verbose #73878 > │ and method24 (v0 : UH13, v1 : UH13) : UH13 = │
00:10:55 verbose #73879 > │ match v0 with │
00:10:55 verbose #73880 > │ | UH13_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:10:55 verbose #73881 > │ let v6 : UH13 = v5 () │
00:10:55 verbose #73882 > │ let v7 : (unit -> UH13) = closure155(v1) │
00:10:55 verbose #73883 > │ let v8 : UH13 = UH13_0(v2, v3, v4, v7) │
00:10:55 verbose #73884 > │ method24(v6, v8) │
00:10:55 verbose #73885 > │ | UH13_1 -> (* StreamNil *) │
00:10:55 verbose #73886 > │ v1 │
00:10:55 verbose #73887 > │ and closure156 (v0 : UH14) () : UH14 = │
00:10:55 verbose #73888 > │ v0 │
00:10:55 verbose #73889 > │ and method25 (v0 : UH13, v1 : UH14) : UH14 = │
00:10:55 verbose #73890 > │ match v0 with │
00:10:55 verbose #73891 > │ | UH13_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:10:55 verbose #73892 > │ let v6 : UH13 = v5 () │
00:10:55 verbose #73893 > │ let v7 : UH14 = method25(v6, v1) │
00:10:55 verbose #73894 > │ let v8 : string = $"{v2}" │
00:10:55 verbose #73895 > │ let v9 : (struct (string * (float []) * (float [])) []) = [|struct │
00:10:55 verbose #73896 > │ (v8, v3, v4)|] │
00:10:55 verbose #73897 > │ let v10 : string = "wave" │
00:10:55 verbose #73898 > │ let v11 : string = "position (m)" │
00:10:55 verbose #73899 > │ let v12 : string = "displacement (m)" │
00:10:55 verbose #73900 > │ let v13 : (unit -> UH14) = closure156(v7) │
00:10:55 verbose #73901 > │ UH14_0(v10, v11, v12, v9, v13) │
00:10:55 verbose #73902 > │ | UH13_1 -> (* StreamNil *) │
00:10:55 verbose #73903 > │ v1 │
00:10:55 verbose #73904 > │ and method26 (v0 : UH14, v1 : UH15) : UH15 = │
00:10:55 verbose #73905 > │ match v0 with │
00:10:55 verbose #73906 > │ | UH14_0(v2, v3, v4, v5, v6) -> (* StreamCons *) │
00:10:55 verbose #73907 > │ let v7 : UH14 = v6 () │
00:10:55 verbose #73908 > │ let v8 : UH15 = method26(v7, v1) │
00:10:55 verbose #73909 > │ UH15_1(v2, v3, v4, v5, v8) │
00:10:55 verbose #73910 > │ | UH14_1 -> (* StreamNil *) │
00:10:55 verbose #73911 > │ v1 │
00:10:55 verbose #73912 > │ and method28 (v0 : UH15, v1 : int32) : int32 = │
00:10:55 verbose #73913 > │ match v0 with │
00:10:55 verbose #73914 > │ | UH15_1(v2, v3, v4, v5, v6) -> (* Cons *) │
00:10:55 verbose #73915 > │ let v7 : int32 = v1 + 1 │
00:10:55 verbose #73916 > │ method28(v6, v7) │
00:10:55 verbose #73917 > │ | UH15_0 -> (* Nil *) │
00:10:55 verbose #73918 > │ v1 │
00:10:55 verbose #73919 > │ and method29 (v0 : (struct (string * string * string * (struct (string * │
00:10:55 verbose #73920 > │ (float []) * (float [])) [])) []), v1 : UH15, v2 : int32) : int32 = │
00:10:55 verbose #73921 > │ match v1 with │
00:10:55 verbose #73922 > │ | UH15_1(v3, v4, v5, v6, v7) -> (* Cons *) │
00:10:55 verbose #73923 > │ v0.[int v2] <- struct (v3, v4, v5, v6) │
00:10:55 verbose #73924 > │ let v8 : int32 = v2 + 1 │
00:10:55 verbose #73925 > │ method29(v0, v7, v8) │
00:10:55 verbose #73926 > │ | UH15_0 -> (* Nil *) │
00:10:55 verbose #73927 > │ v2 │
00:10:55 verbose #73928 > │ and method27 (v0 : UH15) : (struct (string * string * string * (struct │
00:10:55 verbose #73929 > │ (string * (float []) * (float [])) [])) []) = │
00:10:55 verbose #73930 > │ let v1 : int32 = 0 │
00:10:55 verbose #73931 > │ let v2 : int32 = method28(v0, v1) │
00:10:55 verbose #73932 > │ let v3 : (struct (string * string * string * (struct (string * (float [ │
00:10:55 verbose #73933 > │ ]) * (float [])) [])) []) = Array.zeroCreate<struct (string * string * │
00:10:55 verbose #73934 > │ string * (struct (string * (float []) * (float [])) []))> (v2) │
00:10:55 verbose #73935 > │ let v4 : int32 = 0 │
00:10:55 verbose #73936 > │ let v5 : int32 = method29(v3, v0, v4) │
00:10:55 verbose #73937 > │ v3 │
00:10:55 verbose #73938 > │ and method0 () : (struct (string * string * string * (struct (string * │
00:10:55 verbose #73939 > │ (float []) * (float [])) [])) []) = │
00:10:55 verbose #73940 > │ let v0 : float = 0.0 │
00:10:55 verbose #73941 > │ let v1 : (unit -> UH0) = closure0() │
00:10:55 verbose #73942 > │ let v2 : UH0 = UH0_0(v0, v1) │
00:10:55 verbose #73943 > │ let v3 : float = 0.0 │
00:10:55 verbose #73944 > │ let v4 : float = 8.422578125E-06 │
00:10:55 verbose #73945 > │ let v5 : float = 0.01 │
00:10:55 verbose #73946 > │ let v6 : float = 0.0007224452478461068 │
00:10:55 verbose #73947 > │ let v7 : float = 0.0 │
00:10:55 verbose #73948 > │ let v8 : float = 0.0 │
00:10:55 verbose #73949 > │ let v9 : float = 0.0 │
00:10:55 verbose #73950 > │ let v10 : float = 0.0 │
00:10:55 verbose #73951 > │ let v11 : float = 0.0 │
00:10:55 verbose #73952 > │ let v12 : (unit -> UH1) = closure66() │
00:10:55 verbose #73953 > │ let v13 : UH1 = UH1_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) │
00:10:55 verbose #73954 > │ let v14 : UH2 = UH2_1 │
00:10:55 verbose #73955 > │ let v15 : UH2 = method1(v13, v2, v14) │
00:10:55 verbose #73956 > │ let v16 : UH13 = UH13_1 │
00:10:55 verbose #73957 > │ let v17 : int32 = 0 │
00:10:55 verbose #73958 > │ let struct (v18 : UH13, v19 : int32) = method23(v15, v16, v17) │
00:10:55 verbose #73959 > │ let v20 : UH13 = UH13_1 │
00:10:55 verbose #73960 > │ let v21 : UH13 = method24(v18, v20) │
00:10:55 verbose #73961 > │ let v22 : UH14 = UH14_1 │
00:10:55 verbose #73962 > │ let v23 : UH14 = method25(v21, v22) │
00:10:55 verbose #73963 > │ let v24 : UH15 = UH15_0 │
00:10:55 verbose #73964 > │ let v25 : UH15 = method26(v23, v24) │
00:10:55 verbose #73965 > │ method27(v25) │
00:10:55 verbose #73966 > │ method0() │
00:10:55 verbose #73967 > │ │
00:10:55 verbose #73968 > │ │
00:10:55 verbose #73969 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:55 verbose #73970 >
00:10:55 verbose #73971 > ── markdown ────────────────────────────────────────────────────────────────────
00:10:55 verbose #73972 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:55 verbose #73973 > │ ## end │
00:10:55 verbose #73974 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:57 verbose #73975 > [NbConvertApp] Converting notebook physics.dib.ipynb to html
00:10:57 verbose #73976 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:10:57 verbose #73977 > validate(nb)
00:10:58 verbose #73978 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:10:58 verbose #73979 > return _pygments_highlight(
00:11:01 verbose #73980 > [NbConvertApp] Writing 2732421 bytes to physics.dib.html
00:11:02 debug #73981 execute_with_options_async / exit_code: 0 / output.Length: 580391
00:11:02 debug #26 main / executeCommand / exitCode: 0
00:11:02 verbose #4 wait_for_port_access / port: 13805 / retry: 0
00:11:04 debug #5 run_with_timeout_async / timeout: 2000
00:00:00 debug #6 writeDibCode / output: Spi / path: trace.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: crypto.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: testing.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: common.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: async.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: runtime.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: threading.dib
00:00:00 debug #6 writeDibCode / output: Spi / path: networking.dib
00:00:00 debug #13 parseDibCode / output: Spi / file: threading.dib
00:00:00 debug #14 parseDibCode / output: Spi / file: networking.dib
00:00:00 debug #8 parseDibCode / output: Spi / file: crypto.dib
00:00:00 debug #7 parseDibCode / output: Spi / file: trace.dib
00:00:00 debug #11 parseDibCode / output: Spi / file: testing.dib
00:00:00 debug #12 parseDibCode / output: Spi / file: runtime.dib
00:00:00 debug #10 parseDibCode / output: Spi / file: common.dib
00:00:00 debug #10 parseDibCode / output: Spi / file: async.dib
00:00:00 debug #17 writeDibCode / output: Spi / path: console.dib
00:00:00 debug #17 writeDibCode / output: Spi / path: date_time.dib
00:00:00 debug #17 writeDibCode / output: Spi / path: resultm.dib
00:00:00 debug #20 writeDibCode / output: Spi / path: math.dib
00:00:00 debug #19 writeDibCode / output: Spi / path: file_system.dib
00:00:00 debug #19 writeDibCode / output: Spi / path: guid.dib
00:00:00 debug #21 parseDibCode / output: Spi / file: console.dib
00:00:00 debug #22 parseDibCode / output: Spi / file: date_time.dib
00:00:00 debug #23 parseDibCode / output: Spi / file: resultm.dib
00:00:00 debug #25 parseDibCode / output: Spi / file: file_system.dib
00:00:00 debug #26 parseDibCode / output: Spi / file: guid.dib
00:00:00 debug #24 parseDibCode / output: Spi / file: math.dib
00:00:00 debug #27 writeDibCode / output: Spi / path: optionm'.dib
00:00:00 debug #28 parseDibCode / output: Spi / file: optionm'.dib
00:00:00 debug #29 writeDibCode / output: Spi / path: am'.dib
00:00:00 debug #30 parseDibCode / output: Spi / file: am'.dib
00:00:00 debug #32 writeDibCode / output: Spi / path: listm'.dib
00:00:00 debug #33 parseDibCode / output: Spi / file: listm'.dib
00:00:00 debug #34 writeDibCode / output: Spi / path: benchmark.dib
00:00:00 debug #35 parseDibCode / output: Spi / file: benchmark.dib
00:00:00 debug #32 writeDibCode / output: Spi / path: sm'.dib
00:00:00 debug #36 parseDibCode / output: Spi / file: sm'.dib
00:00:00 debug #37 writeDibCode / output: Spi / path: stream.dib
00:00:00 debug #38 parseDibCode / output: Spi / file: stream.dib
00:00:00 debug #39 writeDibCode / output: Spi / path: seq.dib
00:00:00 debug #40 writeDibCode / output: Spi / path: util.dib
00:00:00 debug #41 parseDibCode / output: Spi / file: seq.dib
00:00:00 debug #43 writeDibCode / output: Spi / path: rust.dib
00:00:00 debug #42 parseDibCode / output: Spi / file: util.dib
00:00:00 debug #44 parseDibCode / output: Spi / file: rust.dib
00:00:00 debug #45 writeDibCode / output: Spi / path: physics.dib
00:00:00 debug #46 parseDibCode / output: Spi / file: physics.dib
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #5 run_with_timeout_async / timeout: 60
00:00:02 debug #5 run_with_timeout_async / timeout: 60
00:00:02 debug #6 run_with_timeout_async / timeout: 60
00:00:02 debug #7 run_with_timeout_async / timeout: 60
00:00:02 debug #8 run_with_timeout_async / timeout: 60
00:00:02 debug #3 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #5 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #6 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #7 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #4 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #11 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #10 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #10 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #11 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #10 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 verbose #14 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # threading\nopen rust_operators\n\n// // ## cancellation_token\nnomin...new_disposable_token x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/threading.spi"}} / result:
00:00:02 verbose #13 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # runtime\nopen rust_operators\nopen sm\u0027_operators\n\n// // ## ty...ute_with_options_async x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result:
00:00:02 verbose #13 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # trace\n\n// // ## types\ninl types () =\n global \u0022#if FABLE_...0022let trace x = !trace x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result:
00:00:02 verbose #15 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # networking\nopen rust_operators\n\n// // ## types\ninl types () =\n ...!get_available_port x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/networking.spi"}} / result:
00:00:02 verbose #16 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # async\nopen rust_operators\n\n// // ## types\ninl types () =\n gl...token_with_default_async x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result:
00:00:02 verbose #17 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/networking.spi"}} / result:
00:00:02 verbose #20 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result:
00:00:02 verbose #21 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result:
00:00:02 verbose #18 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result:
00:00:02 verbose #19 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/threading.spi"}} / result:
00:00:02 verbose #7 > 00:00:01 debug #4 Building c:/home/git/polyglot/lib/spiral/async.spi
00:00:02 verbose #8 > 00:00:01 debug #5 Building c:/home/git/polyglot/lib/spiral/runtime.spi
00:00:02 verbose #9 > 00:00:01 debug #6 Building c:/home/git/polyglot/lib/spiral/threading.spi
00:00:02 verbose #10 > 00:00:01 debug #7 Building c:/home/git/polyglot/lib/spiral/networking.spi
00:00:02 verbose #11 > 00:00:01 debug #8 Building c:/home/git/polyglot/lib/spiral/trace.spi
00:00:03 debug #24 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #24 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #24 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #25 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #24 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #26 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #27 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #28 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #29 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #30 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #32 buildFile / takeWhileInclusive / fsxContent: type [<Struct>] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.....Value
struct (v35, v36)
let v0 : (System.Threading.CancellationToken option -> struct (System.Threading.CancellationToken * System.IDisposable)) = closure0()
let new_disposable_token x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #32 buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // async.types
[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>] type std_future_Future<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("futures::future:...cellationToken> = _v1.Value
v25
let v0 : (System.Threading.CancellationToken -> Async<System.Threading.CancellationToken>) = closure0()
let merge_cancellation_token_with_default_async x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #33 buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // trace.types
[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
[<... option * Mut3)) = closure0()
if State.trace_state.IsNone then State.trace_state <- v0 () |> Some
let v1 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
let trace x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #34 buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // runtime.types
[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
...CancellationToken option * string * (struct (bool * string * int32) -> Async<unit>) option * string option) -> Async<struct (int32 * string)>) = closure20()
let execute_with_options_async x = v4 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #35 buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // networking.types
[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class e...(int32 option -> (bool -> (int32 -> Async<int64>))) = closure14()
let wait_for_port_access x = v3 x
let v4 : (int32 option -> (int32 -> Async<int32>)) = closure20()
let get_available_port x = v4 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #36 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #37 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #38 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #39 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #40 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #11 run_with_timeout_async / timeout: 60
00:00:04 debug #12 run_with_timeout_async / timeout: 60
00:00:04 debug #11 run_with_timeout_async / timeout: 60
00:00:04 debug #11 run_with_timeout_async / timeout: 60
00:00:04 debug #41 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #42 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #42 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #44 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #43 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #45 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #46 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #47 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #13 run_with_timeout_async / timeout: 60
00:00:04 debug #48 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 verbose #50 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # guid\n\n// // ## guid\nnominal guid = $\u0022System.Guid\u0022\n\n//...aw_guid x = !new_raw_guid x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result:
00:00:04 verbose #50 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # crypto\n\n// // ## sha256\nnominal sha256 = $\u0027System.Security.C...ash_text x = !hash_text x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result:
00:00:04 debug #51 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 verbose #52 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # common\n\n// // ## types\ninl types () =\n global \u0022#if FABLE... retry_fn x = !retry_fn x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result:
00:00:04 verbose #53 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # file_system\nopen sm\u0027_operators\nopen rust_operators\n\n// // #...003E) x = !combine x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result:
00:00:04 verbose #54 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # date_time\nopen rust_operators\nopen sm\u0027_operators\n\n// // ## ... x = !format_iso8601 x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result:
00:00:05 verbose #12 > 00:00:04 debug #9 Building c:/home/git/polyglot/lib/spiral/common.spi
00:00:05 verbose #13 > 00:00:04 debug #10 Building c:/home/git/polyglot/lib/spiral/crypto.spi
00:00:05 verbose #14 > 00:00:04 debug #11 Building c:/home/git/polyglot/lib/spiral/guid.spi
00:00:05 verbose #15 > 00:00:04 debug #12 Building c:/home/git/polyglot/lib/spiral/date_time.spi
00:00:05 verbose #16 > 00:00:04 debug #13 Building c:/home/git/polyglot/lib/spiral/file_system.spi
00:00:05 verbose #55 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result:
00:00:05 verbose #56 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result:
00:00:05 verbose #57 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result:
00:00:05 verbose #58 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result:
00:00:05 verbose #59 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result:
00:00:05 debug #60 buildFile / takeWhileInclusive / fsxContent: let rec closure0 () (v0 : string) : System.Guid =
let v1 : System.Guid = System.Guid v0
v1
and closure1 () () : System.Guid =
let v0 : System.Guid = System.Guid.NewGuid ()
v0
let v0 : (string -> System.Guid) = closure0()
let new_guid x = v0 x
let v1 : (unit -> System.Guid) = closure1()
let new_raw_guid x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 debug #61 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 debug #14 run_with_timeout_async / timeout: 60
00:00:05 debug #62 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #63 buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 verbose #64 sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # sm\u0027\nopen rust_operators\n\n// // ## types\ninl types () =\n ...ay x = !to_char_array x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result:
00:00:05 debug #65 buildFile / takeWhileInclusive / fsxContent: let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-H...t new_guid_from_timestamp x = v5 x
let v6 : (string -> (System.DateTime -> string)) = closure11()
let format x = v6 x
let v7 : (System.DateTime -> string) = closure13()
let format_iso8601 x = v7 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 debug #66 buildFile / takeWhileInclusive / fsxContent: type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
...let v38 : string = Unchecked.defaultof<string>
v38
#endif
|> fun x -> _v1 <- Some x
let v39 : string = _v1.Value
v39
let v0 : (string -> string) = closure0()
let hash_text x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 debug #67 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 debug #68 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 verbose #17 > 00:00:04 debug #14 Building c:/home/git/polyglot/lib/spiral/sm'.spi
00:00:05 verbose #69 sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result:
00:00:05 debug #70 buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // common.types
[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
[...ate <- v0 () |> Some
let v1 : ((unit -> unit) -> System.IDisposable) = closure2()
let new_disposable x = v1 x
let v2 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
let retry_fn x = v2 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 debug #71 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 debug #72 buildFile / takeWhileInclusive / fsxContent: type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v...tring)) = closure38()
let concat x = v19 x
let v20 : (string -> ((string []) -> string)) = closure40()
let join' x = v20 x
let v21 : (string -> (char [])) = closure42()
let to_char_array x = v21 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 debug #73 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 debug #74 buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // file_system.types
[<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end
[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type base64_DecodeError = class e...g) = closure52()
let get_repository_root () = v17 ()
let v18 : (bool -> unit) = closure53()
let init_trace_file x = v18 x
let v19 : (string -> (string -> string)) = closure55()
let (</>) x = v19 x
()
/ errors: [] / typeErrorCount: 0
00:00:05 debug #75 watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 verbose #15 wait_for_port_access / port: 13805 / retry: 0
00:00:07 debug #16 run_with_timeout_async / timeout: 2000
In [ ]:
{ . "$ScriptDir/../apps/scheduler/build.ps1" } | Invoke-Block
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:01 debug #7 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Tasks.dib -Retries 3"", None,
None)
00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\scheduler / path: Tasks.dib / _args: [
00:00:02 verbose #9 > "-Retries",
00:00:02 verbose #10 > 3
00:00:02 verbose #11 > ]
00:00:05 verbose #12 >
00:00:05 verbose #13 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #14 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #15 > │ ## Tasks (Polyglot) │
00:00:05 verbose #16 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #17 >
00:00:05 verbose #18 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #19 > // // test
00:00:05 verbose #20 >
00:00:05 verbose #21 > open testing
00:00:08 verbose #22 > 00:00:07 debug #4 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi
00:00:09 verbose #23 >
00:00:09 verbose #24 > ╭─[ 4.31s - stdout ]───────────────────────────────────────────────────────────╮
00:00:09 verbose #25 > │ () │
00:00:09 verbose #26 > │ │
00:00:09 verbose #27 > │ │
00:00:09 verbose #28 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #29 >
00:00:09 verbose #30 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #31 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #32 > │ ## types │
00:00:09 verbose #33 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #34 >
00:00:09 verbose #35 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #36 > inl types () =
00:00:09 verbose #37 > rust.types ()
00:00:09 verbose #38 > sm'.types ()
00:00:09 verbose #39 > 00:00:09 debug #5 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/56fb57bf51cad736ed3d30a99969ecbbd80661eb44001624bd116380c8dbc457/main.spi
00:00:10 verbose #40 >
00:00:10 verbose #41 > ╭─[ 378.36ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #42 > │ () │
00:00:10 verbose #43 > │ │
00:00:10 verbose #44 > │ │
00:00:10 verbose #45 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #46 >
00:00:10 verbose #47 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #48 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #49 > │ ## task_name │
00:00:10 verbose #50 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #51 >
00:00:10 verbose #52 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #53 > nominal task_name = string
00:00:10 verbose #54 > 00:00:09 debug #6 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ee1fd64d23c52708601a35a5ff50808711a1646e8292fd6b9fc2a0f3ad79c87c/main.spi
00:00:10 verbose #55 >
00:00:10 verbose #56 > ╭─[ 324.18ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #57 > │ () │
00:00:10 verbose #58 > │ │
00:00:10 verbose #59 > │ │
00:00:10 verbose #60 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #61 >
00:00:10 verbose #62 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #63 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #64 > │ ## manual_scheduling │
00:00:10 verbose #65 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #66 >
00:00:10 verbose #67 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #68 > union manual_scheduling =
00:00:10 verbose #69 > | WithSuggestion
00:00:10 verbose #70 > | WithoutSuggestion
00:00:10 verbose #71 > 00:00:10 debug #7 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2f45c25aba9450d44bd61f544c51a0c6a9f1a18ccc57516af1b62abafb77920d/main.spi
00:00:10 verbose #72 >
00:00:10 verbose #73 > ╭─[ 303.60ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 verbose #74 > │ () │
00:00:10 verbose #75 > │ │
00:00:10 verbose #76 > │ │
00:00:10 verbose #77 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #78 >
00:00:10 verbose #79 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #80 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #81 > │ ## recurrency_offset │
00:00:10 verbose #82 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #83 >
00:00:10 verbose #84 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #85 > union recurrency_offset =
00:00:10 verbose #86 > | Days : i32
00:00:10 verbose #87 > | Weeks : i32
00:00:10 verbose #88 > | Months : i32
00:00:10 verbose #89 > 00:00:10 debug #8 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/3dbeb2e7ab618d8dd22b820cfe25d6a5b622b599bb3f9ecabe18970548c344fa/main.spi
00:00:11 verbose #90 >
00:00:11 verbose #91 > ╭─[ 411.09ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 verbose #92 > │ () │
00:00:11 verbose #93 > │ │
00:00:11 verbose #94 > │ │
00:00:11 verbose #95 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #96 >
00:00:11 verbose #97 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #98 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #99 > │ ## day_of_week │
00:00:11 verbose #100 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #101 >
00:00:11 verbose #102 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #103 > union day_of_week =
00:00:11 verbose #104 > | Sunday
00:00:11 verbose #105 > | Monday
00:00:11 verbose #106 > | Tuesday
00:00:11 verbose #107 > | Wednesday
00:00:11 verbose #108 > | Thursday
00:00:11 verbose #109 > | Friday
00:00:11 verbose #110 > | Saturday
00:00:11 verbose #111 > 00:00:10 debug #9 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/0c71ded5e0d64b0c0e86c390313e6d7f7ec0bac8380411d7a83b58a15842b789/main.spi
00:00:11 verbose #112 >
00:00:11 verbose #113 > ╭─[ 285.31ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 verbose #114 > │ () │
00:00:11 verbose #115 > │ │
00:00:11 verbose #116 > │ │
00:00:11 verbose #117 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #118 >
00:00:11 verbose #119 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #120 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #121 > │ ## month │
00:00:11 verbose #122 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #123 >
00:00:11 verbose #124 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #125 > union month =
00:00:11 verbose #126 > | January
00:00:11 verbose #127 > | February
00:00:11 verbose #128 > | March
00:00:11 verbose #129 > | April
00:00:11 verbose #130 > | May
00:00:11 verbose #131 > | June
00:00:11 verbose #132 > | July
00:00:11 verbose #133 > | August
00:00:11 verbose #134 > | September
00:00:11 verbose #135 > | October
00:00:11 verbose #136 > | November
00:00:11 verbose #137 > | December
00:00:11 verbose #138 > 00:00:11 debug #10 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/7d29049a05331a3f95fdc2f5bf08e5a48e105ebe3a4662d9a5c236bb346fda42/main.spi
00:00:11 verbose #139 >
00:00:11 verbose #140 > ╭─[ 244.15ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 verbose #141 > │ () │
00:00:11 verbose #142 > │ │
00:00:11 verbose #143 > │ │
00:00:11 verbose #144 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #145 >
00:00:11 verbose #146 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #147 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #148 > │ ## day │
00:00:11 verbose #149 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #150 >
00:00:11 verbose #151 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #152 > nominal day = i32
00:00:11 verbose #153 > 00:00:11 debug #11 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/9e9b31733dba5b652e1567cb454939db698fd27fc80051a7fec2632b2692c61e/main.spi
00:00:12 verbose #154 >
00:00:12 verbose #155 > ╭─[ 275.28ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 verbose #156 > │ () │
00:00:12 verbose #157 > │ │
00:00:12 verbose #158 > │ │
00:00:12 verbose #159 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #160 >
00:00:12 verbose #161 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #162 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #163 > │ ## year │
00:00:12 verbose #164 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #165 >
00:00:12 verbose #166 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #167 > nominal year = i32
00:00:12 verbose #168 > 00:00:11 debug #12 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/32c0c9f599c89a085759bb5c0304b7db3ddf4834d43f729c9f11727e8aac4636/main.spi
00:00:12 verbose #169 >
00:00:12 verbose #170 > ╭─[ 243.79ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 verbose #171 > │ () │
00:00:12 verbose #172 > │ │
00:00:12 verbose #173 > │ │
00:00:12 verbose #174 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #175 >
00:00:12 verbose #176 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #177 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #178 > │ ## fixed_recurrency │
00:00:12 verbose #179 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #180 >
00:00:12 verbose #181 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #182 > union fixed_recurrency =
00:00:12 verbose #183 > | Weekly : day_of_week
00:00:12 verbose #184 > | Monthly : day
00:00:12 verbose #185 > | Yearly : day * month
00:00:12 verbose #186 > 00:00:11 debug #13 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b89ab77134063c703ac794bd38f329c74d9b13e7a1bee46cb17ba4ea1a484579/main.spi
00:00:12 verbose #187 >
00:00:12 verbose #188 > ╭─[ 214.85ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 verbose #189 > │ () │
00:00:12 verbose #190 > │ │
00:00:12 verbose #191 > │ │
00:00:12 verbose #192 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #193 >
00:00:12 verbose #194 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #195 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #196 > │ ## recurrency │
00:00:12 verbose #197 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #198 >
00:00:12 verbose #199 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #200 > union recurrency =
00:00:12 verbose #201 > | Offset : recurrency_offset
00:00:12 verbose #202 > | Fixed : list fixed_recurrency
00:00:12 verbose #203 > 00:00:12 debug #14 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/d8bc77e2e27b93cbeb17ebd9ff4eb0f75369b3d8d3bf7bae7a81e4a2bcf8f546/main.spi
00:00:12 verbose #204 >
00:00:12 verbose #205 > ╭─[ 246.10ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 verbose #206 > │ () │
00:00:12 verbose #207 > │ │
00:00:12 verbose #208 > │ │
00:00:12 verbose #209 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #210 >
00:00:12 verbose #211 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #212 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #213 > │ ## scheduling │
00:00:12 verbose #214 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #215 >
00:00:12 verbose #216 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #217 > union scheduling =
00:00:12 verbose #218 > | Manual : manual_scheduling
00:00:12 verbose #219 > | Recurrent : recurrency
00:00:12 verbose #220 > 00:00:12 debug #15 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/1faad7629255d3725cd36d1b543346ca72f6e305dfcd25d3fef0d602ccbd40fd/main.spi
00:00:13 verbose #221 >
00:00:13 verbose #222 > ╭─[ 300.29ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 verbose #223 > │ () │
00:00:13 verbose #224 > │ │
00:00:13 verbose #225 > │ │
00:00:13 verbose #226 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #227 >
00:00:13 verbose #228 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #229 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #230 > │ ## task │
00:00:13 verbose #231 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #232 >
00:00:13 verbose #233 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #234 > type task =
00:00:13 verbose #235 > {
00:00:13 verbose #236 > name : task_name
00:00:13 verbose #237 > scheduling : scheduling
00:00:13 verbose #238 > }
00:00:13 verbose #239 > 00:00:12 debug #16 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2cc90cd87d70f3b343a407023b9cd3479e25db1be5807118a4082983dbcbf6ad/main.spi
00:00:13 verbose #240 >
00:00:13 verbose #241 > ╭─[ 288.00ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 verbose #242 > │ () │
00:00:13 verbose #243 > │ │
00:00:13 verbose #244 > │ │
00:00:13 verbose #245 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #246 >
00:00:13 verbose #247 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #248 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #249 > │ ## date │
00:00:13 verbose #250 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #251 >
00:00:13 verbose #252 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #253 > type date =
00:00:13 verbose #254 > {
00:00:13 verbose #255 > year : year
00:00:13 verbose #256 > month : month
00:00:13 verbose #257 > day : day
00:00:13 verbose #258 > }
00:00:13 verbose #259 > 00:00:12 debug #17 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/ac92b9fff0ea8821542f5550b5ef21a95096e51f1b9f144e55d1be2f54f7e9e8/main.spi
00:00:13 verbose #260 >
00:00:13 verbose #261 > ╭─[ 262.30ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 verbose #262 > │ () │
00:00:13 verbose #263 > │ │
00:00:13 verbose #264 > │ │
00:00:13 verbose #265 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #266 >
00:00:13 verbose #267 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #268 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #269 > │ ## status │
00:00:13 verbose #270 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #271 >
00:00:13 verbose #272 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #273 > union status =
00:00:13 verbose #274 > | Postponed : option ()
00:00:13 verbose #275 > 00:00:13 debug #18 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/659fdb864d3d045474948a21b75e427e6a8d36b928ea8fa213e13ee5203eff06/main.spi
00:00:13 verbose #276 >
00:00:13 verbose #277 > ╭─[ 303.99ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 verbose #278 > │ () │
00:00:13 verbose #279 > │ │
00:00:13 verbose #280 > │ │
00:00:13 verbose #281 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #282 >
00:00:13 verbose #283 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #284 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #285 > │ ## event │
00:00:13 verbose #286 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #287 >
00:00:13 verbose #288 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #289 > type event =
00:00:13 verbose #290 > {
00:00:13 verbose #291 > date : date
00:00:13 verbose #292 > status : status
00:00:13 verbose #293 > }
00:00:14 verbose #294 > 00:00:13 debug #19 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/eea0f0f468d0883f9ed8fabf6acd30d9ab33fd0470cc71d787f08784d66dbc2f/main.spi
00:00:14 verbose #295 >
00:00:14 verbose #296 > ╭─[ 268.30ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 verbose #297 > │ () │
00:00:14 verbose #298 > │ │
00:00:14 verbose #299 > │ │
00:00:14 verbose #300 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #301 >
00:00:14 verbose #302 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 verbose #303 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 verbose #304 > │ ## task_template │
00:00:14 verbose #305 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #306 >
00:00:14 verbose #307 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #308 > type task_template =
00:00:14 verbose #309 > {
00:00:14 verbose #310 > task : task
00:00:14 verbose #311 > events : list event
00:00:14 verbose #312 > }
00:00:14 verbose #313 > 00:00:13 debug #20 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/6827480c9a3b2025fc745833b3ce1ed3765cea9b261747467eeebb27f8b7146a/main.spi
00:00:14 verbose #314 >
00:00:14 verbose #315 > ╭─[ 304.59ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 verbose #316 > │ () │
00:00:14 verbose #317 > │ │
00:00:14 verbose #318 > │ │
00:00:14 verbose #319 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #320 >
00:00:14 verbose #321 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 verbose #322 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 verbose #323 > │ ## get_tasks (test) │
00:00:14 verbose #324 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #325 >
00:00:14 verbose #326 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #327 > // // test
00:00:14 verbose #328 >
00:00:14 verbose #329 > inl get_tasks () : list task_template =
00:00:14 verbose #330 > [[
00:00:14 verbose #331 > {
00:00:14 verbose #332 > task =
00:00:14 verbose #333 > {
00:00:14 verbose #334 > name = task_name "01"
00:00:14 verbose #335 > scheduling = Manual WithSuggestion
00:00:14 verbose #336 > }
00:00:14 verbose #337 > events = [[]]
00:00:14 verbose #338 > }
00:00:14 verbose #339 > {
00:00:14 verbose #340 > task =
00:00:14 verbose #341 > {
00:00:14 verbose #342 > name = task_name "02"
00:00:14 verbose #343 > scheduling = Manual WithSuggestion
00:00:14 verbose #344 > }
00:00:14 verbose #345 > events = [[]]
00:00:14 verbose #346 > }
00:00:14 verbose #347 > {
00:00:14 verbose #348 > task =
00:00:14 verbose #349 > {
00:00:14 verbose #350 > name = task_name "03"
00:00:14 verbose #351 > scheduling = Manual WithSuggestion
00:00:14 verbose #352 > }
00:00:14 verbose #353 > events = [[]]
00:00:14 verbose #354 > }
00:00:14 verbose #355 > ]]
00:00:14 verbose #356 > 00:00:14 debug #21 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/845f3455d37664670f4eb44561cb1fbc49199ec273a28aa88e10c602a6c03245/main.spi
00:00:14 verbose #357 >
00:00:14 verbose #358 > ╭─[ 260.58ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 verbose #359 > │ () │
00:00:14 verbose #360 > │ │
00:00:14 verbose #361 > │ │
00:00:14 verbose #362 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #363 >
00:00:14 verbose #364 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #365 > // // test
00:00:14 verbose #366 > // // rust=
00:00:14 verbose #367 >
00:00:14 verbose #368 > types ()
00:00:14 verbose #369 > inl tasks = get_tasks () |> sm'.format_pretty'
00:00:14 verbose #370 > trace Verbose
00:00:14 verbose #371 > fun () => "Tasks"
00:00:14 verbose #372 > fun () => $'$"tasks: {!tasks} / {!_locals ()}"'
00:00:14 verbose #373 > 00:00:14 debug #22 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/5918b9581fa1a8475d8dc510f6ce475a78bbb742ec5901def73b95fd7e57e6da/main.spi
00:00:24 verbose #374 >
00:00:24 verbose #375 > ╭─[ 9.56s - return value ]─────────────────────────────────────────────────────╮
00:00:24 verbose #376 > │ .rs output: │
00:00:24 verbose #377 > │ 01:44:19 verbose #1 Tasks / tasks: UH2_1( │
00:00:24 verbose #378 > │ UH0_0, │
00:00:24 verbose #379 > │ "01", │
00:00:24 verbose #380 > │ US4_0( │
00:00:24 verbose #381 > │ US3_0, │
00:00:24 verbose #382 > │ ), │
00:00:24 verbose #383 > │ UH2_1( │
00:00:24 verbose #384 > │ UH0_0, │
00:00:24 verbose #385 > │ "02", │
00:00:24 verbose #386 > │ US4_0( │
00:00:24 verbose #387 > │ US3_0, │
00:00:24 verbose #388 > │ ), │
00:00:24 verbose #389 > │ UH2_1( │
00:00:24 verbose #390 > │ UH0_0, │
00:00:24 verbose #391 > │ "03", │
00:00:24 verbose #392 > │ US4_0( │
00:00:24 verbose #393 > │ US3_0, │
00:00:24 verbose #394 > │ ), │
00:00:24 verbose #395 > │ UH2_0, │
00:00:24 verbose #396 > │ ), │
00:00:24 verbose #397 > │ ), │
00:00:24 verbose #398 > │ ) │
00:00:24 verbose #399 > │ │
00:00:24 verbose #400 > │ │
00:00:24 verbose #401 > │ │
00:00:24 verbose #402 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #403 >
00:00:24 verbose #404 > ╭─[ 9.58s - stdout ]───────────────────────────────────────────────────────────╮
00:00:24 verbose #405 > │ .fsx: │
00:00:24 verbose #406 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:00:24 verbose #407 > │ end │
00:00:24 verbose #408 > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:00:24 verbose #409 > │ class end │
00:00:24 verbose #410 > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:00:24 verbose #411 > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:00:24 verbose #412 > │ [<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>] type Send<'T> = class end │
00:00:24 verbose #413 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:00:24 verbose #414 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:00:24 verbose #415 > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:00:24 verbose #416 > │ class end │
00:00:24 verbose #417 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>] type ActionFn<'T> = class │
00:00:24 verbose #418 > │ end │
00:00:24 verbose #419 > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:00:24 verbose #420 > │ class end │
00:00:24 verbose #421 > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:00:24 verbose #422 > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:00:24 verbose #423 > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:24 verbose #424 > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:00:24 verbose #425 > │ class end │
00:00:24 verbose #426 > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:00:24 verbose #427 > │ class end │
00:00:24 verbose #428 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:00:24 verbose #429 > │ class end │
00:00:24 verbose #430 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:00:24 verbose #431 > │ std_cell_RefCell<'T> = class end │
00:00:24 verbose #432 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:00:24 verbose #433 > │ std_pin_Pin<'T> = class end │
00:00:24 verbose #434 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:00:24 verbose #435 > │ = class end │
00:00:24 verbose #436 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:00:24 verbose #437 > │ std_rc_Weak<'T> = class end │
00:00:24 verbose #438 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:00:24 verbose #439 > │ std_sync_Arc<'T> = class end │
00:00:24 verbose #440 > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:24 verbose #441 > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:00:24 verbose #442 > │ base64_DecodeError = class end │
00:00:24 verbose #443 > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:00:24 verbose #444 > │ borsh_io_Error = class end │
00:00:24 verbose #445 > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:00:24 verbose #446 > │ js_sys_JsString = class end │
00:00:24 verbose #447 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:00:24 verbose #448 > │ serde_json_Error = class end │
00:00:24 verbose #449 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:00:24 verbose #450 > │ serde_json_Value = class end │
00:00:24 verbose #451 > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:00:24 verbose #452 > │ serde_wasm_bindgen_Error = class end │
00:00:24 verbose #453 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:00:24 verbose #454 > │ = class end │
00:00:24 verbose #455 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:00:24 verbose #456 > │ std_ffi_OsString = class end │
00:00:24 verbose #457 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:00:24 verbose #458 > │ std_str_Utf8Error = class end │
00:00:24 verbose #459 > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:24 verbose #460 > │ std_string_String = class end │
00:00:24 verbose #461 > │ module State = let mutable trace_state = None │
00:00:24 verbose #462 > │ type [<Struct>] US0 = │
00:00:24 verbose #463 > │ | US0_0 │
00:00:24 verbose #464 > │ | US0_1 │
00:00:24 verbose #465 > │ | US0_2 │
00:00:24 verbose #466 > │ | US0_3 │
00:00:24 verbose #467 > │ | US0_4 │
00:00:24 verbose #468 > │ | US0_5 │
00:00:24 verbose #469 > │ | US0_6 │
00:00:24 verbose #470 > │ | US0_7 │
00:00:24 verbose #471 > │ | US0_8 │
00:00:24 verbose #472 > │ | US0_9 │
00:00:24 verbose #473 > │ | US0_10 │
00:00:24 verbose #474 > │ | US0_11 │
00:00:24 verbose #475 > │ and [<Struct>] US2 = │
00:00:24 verbose #476 > │ | US2_0 │
00:00:24 verbose #477 > │ | US2_1 │
00:00:24 verbose #478 > │ and [<Struct>] US1 = │
00:00:24 verbose #479 > │ | US1_0 of f0_0 : US2 │
00:00:24 verbose #480 > │ and UH0 = │
00:00:24 verbose #481 > │ | UH0_0 │
00:00:24 verbose #482 > │ | UH0_1 of int32 * US0 * int32 * US1 * UH0 │
00:00:24 verbose #483 > │ and [<Struct>] US3 = │
00:00:24 verbose #484 > │ | US3_0 │
00:00:24 verbose #485 > │ | US3_1 │
00:00:24 verbose #486 > │ and [<Struct>] US6 = │
00:00:24 verbose #487 > │ | US6_0 of f0_0 : int32 │
00:00:24 verbose #488 > │ | US6_1 of f1_0 : int32 │
00:00:24 verbose #489 > │ | US6_2 of f2_0 : int32 │
00:00:24 verbose #490 > │ and [<Struct>] US8 = │
00:00:24 verbose #491 > │ | US8_0 │
00:00:24 verbose #492 > │ | US8_1 │
00:00:24 verbose #493 > │ | US8_2 │
00:00:24 verbose #494 > │ | US8_3 │
00:00:24 verbose #495 > │ | US8_4 │
00:00:24 verbose #496 > │ | US8_5 │
00:00:24 verbose #497 > │ | US8_6 │
00:00:24 verbose #498 > │ and [<Struct>] US7 = │
00:00:24 verbose #499 > │ | US7_0 of f0_0 : US8 │
00:00:24 verbose #500 > │ | US7_1 of f1_0 : int32 │
00:00:24 verbose #501 > │ | US7_2 of f2_0 : int32 * f2_1 : US0 │
00:00:24 verbose #502 > │ and UH1 = │
00:00:24 verbose #503 > │ | UH1_0 │
00:00:24 verbose #504 > │ | UH1_1 of US7 * UH1 │
00:00:24 verbose #505 > │ and [<Struct>] US5 = │
00:00:24 verbose #506 > │ | US5_0 of f0_0 : US6 │
00:00:24 verbose #507 > │ | US5_1 of f1_0 : UH1 │
00:00:24 verbose #508 > │ and [<Struct>] US4 = │
00:00:24 verbose #509 > │ | US4_0 of f0_0 : US3 │
00:00:24 verbose #510 > │ | US4_1 of f1_0 : US5 │
00:00:24 verbose #511 > │ and UH2 = │
00:00:24 verbose #512 > │ | UH2_0 │
00:00:24 verbose #513 > │ | UH2_1 of UH0 * string * US4 * UH2 │
00:00:24 verbose #514 > │ and [<Struct>] US9 = │
00:00:24 verbose #515 > │ | US9_0 │
00:00:24 verbose #516 > │ | US9_1 │
00:00:24 verbose #517 > │ | US9_2 │
00:00:24 verbose #518 > │ | US9_3 │
00:00:24 verbose #519 > │ | US9_4 │
00:00:24 verbose #520 > │ and Mut0 = {mutable l0 : int64} │
00:00:24 verbose #521 > │ and Mut1 = {mutable l0 : bool} │
00:00:24 verbose #522 > │ and Mut2 = {mutable l0 : US9} │
00:00:24 verbose #523 > │ and Mut3 = {mutable l0 : (string -> unit)} │
00:00:24 verbose #524 > │ and [<Struct>] US10 = │
00:00:24 verbose #525 > │ | US10_0 of f0_0 : int64 │
00:00:24 verbose #526 > │ | US10_1 │
00:00:24 verbose #527 > │ and [<Struct>] US11 = │
00:00:24 verbose #528 > │ | US11_0 of f0_0 : int64 │
00:00:24 verbose #529 > │ | US11_1 │
00:00:24 verbose #530 > │ let rec closure0 () () : string = │
00:00:24 verbose #531 > │ let v0 : string = "Tasks" │
00:00:24 verbose #532 > │ v0 │
00:00:24 verbose #533 > │ and closure2 () () : string = │
00:00:24 verbose #534 > │ let v0 : string = "" │
00:00:24 verbose #535 > │ v0 │
00:00:24 verbose #536 > │ and closure1 (v0 : std_string_String) () : string = │
00:00:24 verbose #537 > │ let v1 : (unit -> string) = closure2() │
00:00:24 verbose #538 > │ let v2 : string = $"tasks: {v0} / {v1 ()}" │
00:00:24 verbose #539 > │ v2 │
00:00:24 verbose #540 > │ and closure5 () (v0 : string) : unit = │
00:00:24 verbose #541 > │ () │
00:00:24 verbose #542 > │ and method2 (v0 : int64 option) : int64 option = │
00:00:24 verbose #543 > │ v0 │
00:00:24 verbose #544 > │ and method3 (v0 : int64 option) : int64 option = │
00:00:24 verbose #545 > │ v0 │
00:00:24 verbose #546 > │ and closure4 () () : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) = │
00:00:24 verbose #547 > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:00:24 verbose #548 > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:00:24 verbose #549 > │ let v2 : US9 = US9_0 │
00:00:24 verbose #550 > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:00:24 verbose #551 > │ let v4 : (string -> unit) = closure5() │
00:00:24 verbose #552 > │ let v5 : Mut3 = {l0 = v4} : Mut3 │
00:00:24 verbose #553 > │ let v6 : int64 option option = None │
00:00:24 verbose #554 > │ let mutable _v6 = v6 │
00:00:24 verbose #555 > │ #if INTERACTIVE || !FABLE_COMPILER │
00:00:24 verbose #556 > │ let v7 : string option = None │
00:00:24 verbose #557 > │ let v8 : bool = true in let mutable _v7 = v7 │
00:00:24 verbose #558 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:24 verbose #559 > │ let v9 : string = null |> unbox<string> │
00:00:24 verbose #560 > │ v9 │
00:00:24 verbose #561 > │ #endif │
00:00:24 verbose #562 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:24 verbose #563 > │ let v10 : string = null |> unbox<string> │
00:00:24 verbose #564 > │ v10 │
00:00:24 verbose #565 > │ #endif │
00:00:24 verbose #566 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:24 verbose #567 > │ let v11 : string = null |> unbox<string> │
00:00:24 verbose #568 > │ v11 │
00:00:24 verbose #569 > │ #endif │
00:00:24 verbose #570 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:24 verbose #571 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:24 verbose #572 > │ let v12 : string = │
00:00:24 verbose #573 > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:00:24 verbose #574 > │ v12 │
00:00:24 verbose #575 > │ #endif │
00:00:24 verbose #576 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:24 verbose #577 > │ let v13 : string = null |> unbox<string> │
00:00:24 verbose #578 > │ v13 │
00:00:24 verbose #579 > │ #endif │
00:00:24 verbose #580 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:24 verbose #581 > │ let v14 : string = Unchecked.defaultof<string> │
00:00:24 verbose #582 > │ v14 │
00:00:24 verbose #583 > │ #endif │
00:00:24 verbose #584 > │ |> fun x -> _v7 <- Some x │
00:00:24 verbose #585 > │ let v15 : string = _v7.Value │
00:00:24 verbose #586 > │ let v17 : bool = v15 = "Microsoft.DotNet.Interactive.App" │
00:00:24 verbose #587 > │ let v18 : bool = v17 <> true │
00:00:24 verbose #588 > │ let v24 : US10 = │
00:00:24 verbose #589 > │ if v18 then │
00:00:24 verbose #590 > │ let v19 : System.DateTime = System.DateTime.Now │
00:00:24 verbose #591 > │ let v20 : (System.DateTime -> int64) = _.Ticks │
00:00:24 verbose #592 > │ let v21 : int64 = v20 v19 │
00:00:24 verbose #593 > │ US10_0(v21) │
00:00:24 verbose #594 > │ else │
00:00:24 verbose #595 > │ US10_1 │
00:00:24 verbose #596 > │ let v29 : int64 option = │
00:00:24 verbose #597 > │ match v24 with │
00:00:24 verbose #598 > │ | US10_1 -> (* None *) │
00:00:24 verbose #599 > │ let v27 : int64 option = None │
00:00:24 verbose #600 > │ v27 │
00:00:24 verbose #601 > │ | US10_0(v25) -> (* Some *) │
00:00:24 verbose #602 > │ let v26 : int64 option = Some v25 │
00:00:24 verbose #603 > │ v26 │
00:00:24 verbose #604 > │ let v30 : int64 option = method2(v29) │
00:00:24 verbose #605 > │ v30 │
00:00:24 verbose #606 > │ #else │
00:00:24 verbose #607 > │ let v31 : int64 option = None │
00:00:24 verbose #608 > │ let v32 : int64 option = method3(v31) │
00:00:24 verbose #609 > │ v32 │
00:00:24 verbose #610 > │ #endif │
00:00:24 verbose #611 > │ |> fun x -> _v6 <- Some x │
00:00:24 verbose #612 > │ let v33 : int64 option = _v6.Value │
00:00:24 verbose #613 > │ struct (v1, v0, v3, v33, v5) │
00:00:24 verbose #614 > │ and closure6 () (v0 : int64) : US11 = │
00:00:24 verbose #615 > │ US11_0(v0) │
00:00:24 verbose #616 > │ and method4 () : (int64 -> US11) = │
00:00:24 verbose #617 > │ closure6() │
00:00:24 verbose #618 > │ and method5 () : string = │
00:00:24 verbose #619 > │ let v0 : string = "" │
00:00:24 verbose #620 > │ v0 │
00:00:24 verbose #621 > │ and closure3 (v0 : US9, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:00:24 verbose #622 > │ string = │
00:00:24 verbose #623 > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:00:24 verbose #624 > │ closure4() │
00:00:24 verbose #625 > │ if State.trace_state.IsNone then State.trace_state <- v3 () |> Some │
00:00:24 verbose #626 > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : │
00:00:24 verbose #627 > │ Mut3) = State.trace_state.Value │
00:00:24 verbose #628 > │ let v9 : string option = None │
00:00:24 verbose #629 > │ let v10 : bool = true in let mutable _v9 = v9 │
00:00:24 verbose #630 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:24 verbose #631 > │ let v11 : (int64 -> US11) = method4() │
00:00:24 verbose #632 > │ let v12 : US11 = US11_1 │
00:00:24 verbose #633 > │ let v13 : US11 = v7 |> Option.map v11 |> Option.defaultValue v12 │
00:00:24 verbose #634 > │ let v31 : System.DateTime = │
00:00:24 verbose #635 > │ match v13 with │
00:00:24 verbose #636 > │ | US11_1 -> (* None *) │
00:00:24 verbose #637 > │ let v29 : System.DateTime = System.DateTime.Now │
00:00:24 verbose #638 > │ v29 │
00:00:24 verbose #639 > │ | US11_0(v14) -> (* Some *) │
00:00:24 verbose #640 > │ let v15 : System.DateTime = System.DateTime.Now │
00:00:24 verbose #641 > │ let v16 : (System.DateTime -> int64) = _.Ticks │
00:00:24 verbose #642 > │ let v17 : int64 = v16 v15 │
00:00:24 verbose #643 > │ let v18 : int64 = v17 - v14 │
00:00:24 verbose #644 > │ let v19 : System.TimeSpan = System.TimeSpan v18 │
00:00:24 verbose #645 > │ let v20 : (System.TimeSpan -> int32) = _.Hours │
00:00:24 verbose #646 > │ let v21 : int32 = v20 v19 │
00:00:24 verbose #647 > │ let v22 : (System.TimeSpan -> int32) = _.Minutes │
00:00:24 verbose #648 > │ let v23 : int32 = v22 v19 │
00:00:24 verbose #649 > │ let v24 : (System.TimeSpan -> int32) = _.Seconds │
00:00:24 verbose #650 > │ let v25 : int32 = v24 v19 │
00:00:24 verbose #651 > │ let v26 : (System.TimeSpan -> int32) = _.Milliseconds │
00:00:24 verbose #652 > │ let v27 : int32 = v26 v19 │
00:00:24 verbose #653 > │ let v28 : System.DateTime = System.DateTime (1, 1, 1, v21, v23, │
00:00:24 verbose #654 > │ v25, v27) │
00:00:24 verbose #655 > │ v28 │
00:00:24 verbose #656 > │ let v32 : string = "hh:mm:ss" │
00:00:24 verbose #657 > │ let v33 : string = v31.ToString v32 │
00:00:24 verbose #658 > │ v33 │
00:00:24 verbose #659 > │ #endif │
00:00:24 verbose #660 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:24 verbose #661 > │ let v34 : string = method5() │
00:00:24 verbose #662 > │ v34 │
00:00:24 verbose #663 > │ #endif │
00:00:24 verbose #664 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:24 verbose #665 > │ let v35 : string = method5() │
00:00:24 verbose #666 > │ v35 │
00:00:24 verbose #667 > │ #endif │
00:00:24 verbose #668 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:24 verbose #669 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:24 verbose #670 > │ let v36 : (int64 -> US11) = method4() │
00:00:24 verbose #671 > │ let v37 : US11 = US11_1 │
00:00:24 verbose #672 > │ let v38 : US11 = v7 |> Option.map v36 |> Option.defaultValue v37 │
00:00:24 verbose #673 > │ let v56 : System.DateTime = │
00:00:24 verbose #674 > │ match v38 with │
00:00:24 verbose #675 > │ | US11_1 -> (* None *) │
00:00:24 verbose #676 > │ let v54 : System.DateTime = System.DateTime.Now │
00:00:24 verbose #677 > │ v54 │
00:00:24 verbose #678 > │ | US11_0(v39) -> (* Some *) │
00:00:24 verbose #679 > │ let v40 : System.DateTime = System.DateTime.Now │
00:00:24 verbose #680 > │ let v41 : (System.DateTime -> int64) = _.Ticks │
00:00:24 verbose #681 > │ let v42 : int64 = v41 v40 │
00:00:24 verbose #682 > │ let v43 : int64 = v42 - v39 │
00:00:24 verbose #683 > │ let v44 : System.TimeSpan = System.TimeSpan v43 │
00:00:24 verbose #684 > │ let v45 : (System.TimeSpan -> int32) = _.Hours │
00:00:24 verbose #685 > │ let v46 : int32 = v45 v44 │
00:00:24 verbose #686 > │ let v47 : (System.TimeSpan -> int32) = _.Minutes │
00:00:24 verbose #687 > │ let v48 : int32 = v47 v44 │
00:00:24 verbose #688 > │ let v49 : (System.TimeSpan -> int32) = _.Seconds │
00:00:24 verbose #689 > │ let v50 : int32 = v49 v44 │
00:00:24 verbose #690 > │ let v51 : (System.TimeSpan -> int32) = _.Milliseconds │
00:00:24 verbose #691 > │ let v52 : int32 = v51 v44 │
00:00:24 verbose #692 > │ let v53 : System.DateTime = System.DateTime (1, 1, 1, v46, v48, │
00:00:24 verbose #693 > │ v50, v52) │
00:00:24 verbose #694 > │ v53 │
00:00:24 verbose #695 > │ let v57 : string = "HH:mm:ss" │
00:00:24 verbose #696 > │ let v58 : string = v56.ToString v57 │
00:00:24 verbose #697 > │ v58 │
00:00:24 verbose #698 > │ #endif │
00:00:24 verbose #699 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:24 verbose #700 > │ let v59 : string = method5() │
00:00:24 verbose #701 > │ v59 │
00:00:24 verbose #702 > │ #endif │
00:00:24 verbose #703 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:24 verbose #704 > │ let v60 : string = Unchecked.defaultof<string> │
00:00:24 verbose #705 > │ v60 │
00:00:24 verbose #706 > │ #endif │
00:00:24 verbose #707 > │ |> fun x -> _v9 <- Some x │
00:00:24 verbose #708 > │ let v61 : string = _v9.Value │
00:00:24 verbose #709 > │ let v62 : int64 = v4.l0 │
00:00:24 verbose #710 > │ let v72 : string = │
00:00:24 verbose #711 > │ match v0 with │
00:00:24 verbose #712 > │ | US9_4 -> (* Critical *) │
00:00:24 verbose #713 > │ let v67 : string = "Critical" │
00:00:24 verbose #714 > │ v67 │
00:00:24 verbose #715 > │ | US9_1 -> (* Debug *) │
00:00:24 verbose #716 > │ let v64 : string = "Debug" │
00:00:24 verbose #717 > │ v64 │
00:00:24 verbose #718 > │ | US9_2 -> (* Info *) │
00:00:24 verbose #719 > │ let v65 : string = "Info" │
00:00:24 verbose #720 > │ v65 │
00:00:24 verbose #721 > │ | US9_0 -> (* Verbose *) │
00:00:24 verbose #722 > │ let v63 : string = "Verbose" │
00:00:24 verbose #723 > │ v63 │
00:00:24 verbose #724 > │ | US9_3 -> (* Warning *) │
00:00:24 verbose #725 > │ let v66 : string = "Warning" │
00:00:24 verbose #726 > │ v66 │
00:00:24 verbose #727 > │ let v73 : string = v72.ToLower () │
00:00:24 verbose #728 > │ let v74 : string option = None │
00:00:24 verbose #729 > │ let v75 : bool = true in let mutable _v74 = v74 │
00:00:24 verbose #730 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:24 verbose #731 > │ let v90 : Ref<Str> = │
00:00:24 verbose #732 > │ match v0 with │
00:00:24 verbose #733 > │ | US9_4 -> (* Critical *) │
00:00:24 verbose #734 > │ let v84 : string = "inline_colorization::color_bright_red" │
00:00:24 verbose #735 > │ let v85 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v84 │
00:00:24 verbose #736 > │ v85 │
00:00:24 verbose #737 > │ | US9_1 -> (* Debug *) │
00:00:24 verbose #738 > │ let v78 : string = "inline_colorization::color_bright_blue" │
00:00:24 verbose #739 > │ let v79 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v78 │
00:00:24 verbose #740 > │ v79 │
00:00:24 verbose #741 > │ | US9_2 -> (* Info *) │
00:00:24 verbose #742 > │ let v80 : string = "inline_colorization::color_bright_green" │
00:00:24 verbose #743 > │ let v81 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v80 │
00:00:24 verbose #744 > │ v81 │
00:00:24 verbose #745 > │ | US9_0 -> (* Verbose *) │
00:00:24 verbose #746 > │ let v76 : string = "inline_colorization::color_bright_black" │
00:00:24 verbose #747 > │ let v77 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v76 │
00:00:24 verbose #748 > │ v77 │
00:00:24 verbose #749 > │ | US9_3 -> (* Warning *) │
00:00:24 verbose #750 > │ let v82 : string = "inline_colorization::color_bright_yellow" │
00:00:24 verbose #751 > │ let v83 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v82 │
00:00:24 verbose #752 > │ v83 │
00:00:24 verbose #753 > │ let v91 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:24 verbose #754 > │ let v92 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v91 │
00:00:24 verbose #755 > │ let v93 : string = "inline_colorization::color_reset" │
00:00:24 verbose #756 > │ let v94 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v93 │
00:00:24 verbose #757 > │ let v95 : string = "\"{v90}{v92}{v94}\"" │
00:00:24 verbose #758 > │ let v96 : string = @$"format!(" + v95 + ")" │
00:00:24 verbose #759 > │ let v97 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v96 │
00:00:24 verbose #760 > │ let v98 : string = "fable_library_rust::String_::fromString($0)" │
00:00:24 verbose #761 > │ let v99 : string = Fable.Core.RustInterop.emitRustExpr v97 v98 │
00:00:24 verbose #762 > │ v99 │
00:00:24 verbose #763 > │ #endif │
00:00:24 verbose #764 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:24 verbose #765 > │ let v114 : Ref<Str> = │
00:00:24 verbose #766 > │ match v0 with │
00:00:24 verbose #767 > │ | US9_4 -> (* Critical *) │
00:00:24 verbose #768 > │ let v108 : string = "inline_colorization::color_bright_red" │
00:00:24 verbose #769 > │ let v109 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #770 > │ v108 │
00:00:24 verbose #771 > │ v109 │
00:00:24 verbose #772 > │ | US9_1 -> (* Debug *) │
00:00:24 verbose #773 > │ let v102 : string = "inline_colorization::color_bright_blue" │
00:00:24 verbose #774 > │ let v103 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #775 > │ v102 │
00:00:24 verbose #776 > │ v103 │
00:00:24 verbose #777 > │ | US9_2 -> (* Info *) │
00:00:24 verbose #778 > │ let v104 : string = "inline_colorization::color_bright_green" │
00:00:24 verbose #779 > │ let v105 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #780 > │ v104 │
00:00:24 verbose #781 > │ v105 │
00:00:24 verbose #782 > │ | US9_0 -> (* Verbose *) │
00:00:24 verbose #783 > │ let v100 : string = "inline_colorization::color_bright_black" │
00:00:24 verbose #784 > │ let v101 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #785 > │ v100 │
00:00:24 verbose #786 > │ v101 │
00:00:24 verbose #787 > │ | US9_3 -> (* Warning *) │
00:00:24 verbose #788 > │ let v106 : string = "inline_colorization::color_bright_yellow" │
00:00:24 verbose #789 > │ let v107 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #790 > │ v106 │
00:00:24 verbose #791 > │ v107 │
00:00:24 verbose #792 > │ let v115 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:24 verbose #793 > │ let v116 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v115 │
00:00:24 verbose #794 > │ let v117 : string = "inline_colorization::color_reset" │
00:00:24 verbose #795 > │ let v118 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v117 │
00:00:24 verbose #796 > │ let v119 : string = "\"{v114}{v116}{v118}\"" │
00:00:24 verbose #797 > │ let v120 : string = @$"format!(" + v119 + ")" │
00:00:24 verbose #798 > │ let v121 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #799 > │ v120 │
00:00:24 verbose #800 > │ let v122 : string = "fable_library_rust::String_::fromString($0)" │
00:00:24 verbose #801 > │ let v123 : string = Fable.Core.RustInterop.emitRustExpr v121 v122 │
00:00:24 verbose #802 > │ v123 │
00:00:24 verbose #803 > │ #endif │
00:00:24 verbose #804 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:24 verbose #805 > │ let v138 : Ref<Str> = │
00:00:24 verbose #806 > │ match v0 with │
00:00:24 verbose #807 > │ | US9_4 -> (* Critical *) │
00:00:24 verbose #808 > │ let v132 : string = "inline_colorization::color_bright_red" │
00:00:24 verbose #809 > │ let v133 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #810 > │ v132 │
00:00:24 verbose #811 > │ v133 │
00:00:24 verbose #812 > │ | US9_1 -> (* Debug *) │
00:00:24 verbose #813 > │ let v126 : string = "inline_colorization::color_bright_blue" │
00:00:24 verbose #814 > │ let v127 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #815 > │ v126 │
00:00:24 verbose #816 > │ v127 │
00:00:24 verbose #817 > │ | US9_2 -> (* Info *) │
00:00:24 verbose #818 > │ let v128 : string = "inline_colorization::color_bright_green" │
00:00:24 verbose #819 > │ let v129 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #820 > │ v128 │
00:00:24 verbose #821 > │ v129 │
00:00:24 verbose #822 > │ | US9_0 -> (* Verbose *) │
00:00:24 verbose #823 > │ let v124 : string = "inline_colorization::color_bright_black" │
00:00:24 verbose #824 > │ let v125 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #825 > │ v124 │
00:00:24 verbose #826 > │ v125 │
00:00:24 verbose #827 > │ | US9_3 -> (* Warning *) │
00:00:24 verbose #828 > │ let v130 : string = "inline_colorization::color_bright_yellow" │
00:00:24 verbose #829 > │ let v131 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #830 > │ v130 │
00:00:24 verbose #831 > │ v131 │
00:00:24 verbose #832 > │ let v139 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:00:24 verbose #833 > │ let v140 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v73 v139 │
00:00:24 verbose #834 > │ let v141 : string = "inline_colorization::color_reset" │
00:00:24 verbose #835 > │ let v142 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v141 │
00:00:24 verbose #836 > │ let v143 : string = "\"{v138}{v140}{v142}\"" │
00:00:24 verbose #837 > │ let v144 : string = @$"format!(" + v143 + ")" │
00:00:24 verbose #838 > │ let v145 : std_string_String = Fable.Core.RustInterop.emitRustExpr () │
00:00:24 verbose #839 > │ v144 │
00:00:24 verbose #840 > │ let v146 : string = "fable_library_rust::String_::fromString($0)" │
00:00:24 verbose #841 > │ let v147 : string = Fable.Core.RustInterop.emitRustExpr v145 v146 │
00:00:24 verbose #842 > │ v147 │
00:00:24 verbose #843 > │ #endif │
00:00:24 verbose #844 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:24 verbose #845 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:24 verbose #846 > │ v73 │
00:00:24 verbose #847 > │ #endif │
00:00:24 verbose #848 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:24 verbose #849 > │ v73 │
00:00:24 verbose #850 > │ #endif │
00:00:24 verbose #851 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:00:24 verbose #852 > │ let v148 : string = Unchecked.defaultof<string> │
00:00:24 verbose #853 > │ v148 │
00:00:24 verbose #854 > │ #endif │
00:00:24 verbose #855 > │ |> fun x -> _v74 <- Some x │
00:00:24 verbose #856 > │ let v149 : string = _v74.Value │
00:00:24 verbose #857 > │ let v150 : string = $"{v61} {v149} #{v62} %s{v1 ()} / %s{v2 ()}" │
00:00:24 verbose #858 > │ let v151 : (char []) = [||] │
00:00:24 verbose #859 > │ let v152 : string = v150.TrimStart v151 │
00:00:24 verbose #860 > │ let v153 : (char []) = [|' '; '/'|] │
00:00:24 verbose #861 > │ let v154 : string = v152.TrimEnd v153 │
00:00:24 verbose #862 > │ v154 │
00:00:24 verbose #863 > │ and method6 (v0 : US9, v1 : (unit -> string)) : unit = │
00:00:24 verbose #864 > │ let v2 : (unit -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = │
00:00:24 verbose #865 > │ closure4() │
00:00:24 verbose #866 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:00:24 verbose #867 > │ let struct (v3 : Mut0, v4 : Mut1, v5 : Mut2, v6 : int64 option, v7 : │
00:00:24 verbose #868 > │ Mut3) = State.trace_state.Value │
00:00:24 verbose #869 > │ if State.trace_state.IsNone then State.trace_state <- v2 () |> Some │
00:00:24 verbose #870 > │ let struct (v8 : Mut0, v9 : Mut1, v10 : Mut2, v11 : int64 option, v12 : │
00:00:24 verbose #871 > │ Mut3) = State.trace_state.Value │
00:00:24 verbose #872 > │ let v13 : US9 = v10.l0 │
00:00:24 verbose #873 > │ let v14 : bool = v9.l0 │
00:00:24 verbose #874 > │ let v15 : bool = v14 = false │
00:00:24 verbose #875 > │ let v19 : bool = │
00:00:24 verbose #876 > │ if v15 then │
00:00:24 verbose #877 > │ false │
00:00:24 verbose #878 > │ else │
00:00:24 verbose #879 > │ let v16 : int32 = [ US9_0, 0; US9_1, 1; US9_2, 2; US9_3, 3; │
00:00:24 verbose #880 > │ US9_4, 4 ] |> Map |> Map.find v0 │
00:00:24 verbose #881 > │ let v17 : int32 = [ US9_0, 0; US9_1, 1; US9_2, 2; US9_3, 3; │
00:00:24 verbose #882 > │ US9_4, 4 ] |> Map |> Map.find v13 │
00:00:24 verbose #883 > │ let v18 : bool = v16 >= v17 │
00:00:24 verbose #884 > │ v18 │
00:00:24 verbose #885 > │ if v19 then │
00:00:24 verbose #886 > │ let v20 : int64 = v3.l0 │
00:00:24 verbose #887 > │ let v21 : int64 = v20 + 1L │
00:00:24 verbose #888 > │ v3.l0 <- v21 │
00:00:24 verbose #889 > │ let v22 : string = $"%s{v1 ()}" │
00:00:24 verbose #890 > │ let v23 : unit option = None │
00:00:24 verbose #891 > │ let v24 : bool = true in let mutable _v23 = v23 │
00:00:24 verbose #892 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:00:24 verbose #893 > │ let v25 : string = @"println!(""{}"", $0)" │
00:00:24 verbose #894 > │ Fable.Core.RustInterop.emitRustExpr v22 v25 │
00:00:24 verbose #895 > │ () │
00:00:24 verbose #896 > │ #endif │
00:00:24 verbose #897 > │ #if FABLE_COMPILER_RUST && WASM │
00:00:24 verbose #898 > │ let v26 : string = @"println!(""{}"", $0)" │
00:00:24 verbose #899 > │ Fable.Core.RustInterop.emitRustExpr v22 v26 │
00:00:24 verbose #900 > │ () │
00:00:24 verbose #901 > │ #endif │
00:00:24 verbose #902 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:00:24 verbose #903 > │ let v27 : string = @"println!(""{}"", $0)" │
00:00:24 verbose #904 > │ Fable.Core.RustInterop.emitRustExpr v22 v27 │
00:00:24 verbose #905 > │ () │
00:00:24 verbose #906 > │ #endif │
00:00:24 verbose #907 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:00:24 verbose #908 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:00:24 verbose #909 > │ System.Console.WriteLine v22 │
00:00:24 verbose #910 > │ () │
00:00:24 verbose #911 > │ #endif │
00:00:24 verbose #912 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:00:24 verbose #913 > │ System.Console.WriteLine v22 │
00:00:24 verbose #914 > │ () │
00:00:24 verbose #915 > │ #endif │
00:00:24 verbose #916 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:00:24 verbose #917 > │ FABLE_COMPILER_DART │
00:00:24 verbose #918 > │ Unchecked.defaultof<unit> │
00:00:24 verbose #919 > │ () │
00:00:24 verbose #920 > │ #endif │
00:00:24 verbose #921 > │ |> fun x -> _v23 <- Some x │
00:00:24 verbose #922 > │ _v23.Value │
00:00:24 verbose #923 > │ let v28 : (string -> unit) = v7.l0 │
00:00:24 verbose #924 > │ v28 v22 │
00:00:24 verbose #925 > │ and method1 (v0 : US9, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:00:24 verbose #926 > │ = │
00:00:24 verbose #927 > │ let v3 : (unit -> string) = closure3(v0, v1, v2) │
00:00:24 verbose #928 > │ method6(v0, v3) │
00:00:24 verbose #929 > │ and method0 () : unit = │
00:00:24 verbose #930 > │ let v0 : string = @$"format!(""{{:#?}}"", $0)" │
00:00:24 verbose #931 > │ let v1 : UH0 = UH0_0 │
00:00:24 verbose #932 > │ let v2 : string = "01" │
00:00:24 verbose #933 > │ let v3 : US3 = US3_0 │
00:00:24 verbose #934 > │ let v4 : US4 = US4_0(v3) │
00:00:24 verbose #935 > │ let v5 : UH0 = UH0_0 │
00:00:24 verbose #936 > │ let v6 : string = "02" │
00:00:24 verbose #937 > │ let v7 : US3 = US3_0 │
00:00:24 verbose #938 > │ let v8 : US4 = US4_0(v7) │
00:00:24 verbose #939 > │ let v9 : UH0 = UH0_0 │
00:00:24 verbose #940 > │ let v10 : string = "03" │
00:00:24 verbose #941 > │ let v11 : US3 = US3_0 │
00:00:24 verbose #942 > │ let v12 : US4 = US4_0(v11) │
00:00:24 verbose #943 > │ let v13 : UH2 = UH2_0 │
00:00:24 verbose #944 > │ let v14 : UH2 = UH2_1(v9, v10, v12, v13) │
00:00:24 verbose #945 > │ let v15 : UH2 = UH2_1(v5, v6, v8, v14) │
00:00:24 verbose #946 > │ let v16 : UH2 = UH2_1(v1, v2, v4, v15) │
00:00:24 verbose #947 > │ let v17 : std_string_String = Fable.Core.RustInterop.emitRustExpr v16 v0 │
00:00:24 verbose #948 > │ let v18 : US9 = US9_0 │
00:00:24 verbose #949 > │ let v19 : (unit -> string) = closure0() │
00:00:24 verbose #950 > │ let v20 : (unit -> string) = closure1(v17) │
00:00:24 verbose #951 > │ method1(v18, v19, v20) │
00:00:24 verbose #952 > │ method0() │
00:00:24 verbose #953 > │ │
00:00:24 verbose #954 > │ │
00:00:24 verbose #955 > │ .rs: │
00:00:24 verbose #956 > │ #![allow(dead_code)] │
00:00:24 verbose #957 > │ #![allow(non_camel_case_types)] │
00:00:24 verbose #958 > │ #![allow(non_snake_case)] │
00:00:24 verbose #959 > │ #![allow(non_upper_case_globals)] │
00:00:24 verbose #960 > │ #![allow(unreachable_code)] │
00:00:24 verbose #961 > │ #![allow(unused_attributes)] │
00:00:24 verbose #962 > │ #![allow(unused_imports)] │
00:00:24 verbose #963 > │ #![allow(unused_macros)] │
00:00:24 verbose #964 > │ #![allow(unused_parens)] │
00:00:24 verbose #965 > │ #![allow(unused_variables)] │
00:00:24 verbose #966 > │ mod module_ccfa04bf { │
00:00:24 verbose #967 > │ pub mod Spiral_eval { │
00:00:24 verbose #968 > │ use super::*; │
00:00:24 verbose #969 > │ use fable_library_rust::DateTime_::DateTime; │
00:00:24 verbose #970 > │ use │
00:00:24 verbose #971 > │ fable_library_rust::Interfaces_::System::Collections::Generic::IEnumerable_1 │
00:00:24 verbose #972 > │ ; │
00:00:24 verbose #973 > │ use fable_library_rust::List_::ofArray; │
00:00:24 verbose #974 > │ use fable_library_rust::Map_::find; │
00:00:24 verbose #975 > │ use fable_library_rust::Map_::ofSeq; │
00:00:24 verbose #976 > │ use fable_library_rust::NativeArray_::new_array; │
00:00:24 verbose #977 > │ use fable_library_rust::NativeArray_::new_empty; │
00:00:24 verbose #978 > │ use fable_library_rust::Native_::on_startup; │
00:00:24 verbose #979 > │ use fable_library_rust::Native_::Func0; │
00:00:24 verbose #980 > │ use fable_library_rust::Native_::Func1; │
00:00:24 verbose #981 > │ use fable_library_rust::Native_::LrcPtr; │
00:00:24 verbose #982 > │ use fable_library_rust::Native_::MutCell; │
00:00:24 verbose #983 > │ use fable_library_rust::Option_::defaultValue; │
00:00:24 verbose #984 > │ use fable_library_rust::Option_::getValue; │
00:00:24 verbose #985 > │ use fable_library_rust::Option_::map; │
00:00:24 verbose #986 > │ use fable_library_rust::Seq_::ofList; │
00:00:24 verbose #987 > │ use fable_library_rust::String_::sprintf; │
00:00:24 verbose #988 > │ use fable_library_rust::String_::string; │
00:00:24 verbose #989 > │ use fable_library_rust::String_::toLower; │
00:00:24 verbose #990 > │ use fable_library_rust::String_::trimEndChars; │
00:00:24 verbose #991 > │ use fable_library_rust::String_::trimStartChars; │
00:00:24 verbose #992 > │ use fable_library_rust::TimeSpan_::TimeSpan; │
00:00:24 verbose #993 > │ pub mod State { │
00:00:24 verbose #994 > │ use super::*; │
00:00:24 verbose #995 > │ use fable_library_rust::Native_::OnceInit; │
00:00:24 verbose #996 > │ pub fn trace_state() -> LrcPtr< │
00:00:24 verbose #997 > │ MutCell< │
00:00:24 verbose #998 > │ Option<( │
00:00:24 verbose #999 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:24 verbose #1000 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:24 verbose #1001 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:24 verbose #1002 > │ Option<i64>, │
00:00:24 verbose #1003 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:24 verbose #1004 > │ )>, │
00:00:24 verbose #1005 > │ >, │
00:00:24 verbose #1006 > │ > { │
00:00:24 verbose #1007 > │ static trace_state: OnceInit< │
00:00:24 verbose #1008 > │ LrcPtr< │
00:00:24 verbose #1009 > │ MutCell< │
00:00:24 verbose #1010 > │ Option<( │
00:00:24 verbose #1011 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:24 verbose #1012 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:24 verbose #1013 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:24 verbose #1014 > │ Option<i64>, │
00:00:24 verbose #1015 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:24 verbose #1016 > │ )>, │
00:00:24 verbose #1017 > │ >, │
00:00:24 verbose #1018 > │ >, │
00:00:24 verbose #1019 > │ > = OnceInit::new(); │
00:00:24 verbose #1020 > │ trace_state │
00:00:24 verbose #1021 > │ .get_or_insert_with(|| { │
00:00:24 verbose #1022 > │ LrcPtr::new(MutCell::new( │
00:00:24 verbose #1023 > │ None::<( │
00:00:24 verbose #1024 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:24 verbose #1025 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:24 verbose #1026 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:24 verbose #1027 > │ Option<i64>, │
00:00:24 verbose #1028 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:24 verbose #1029 > │ )>, │
00:00:24 verbose #1030 > │ )) │
00:00:24 verbose #1031 > │ }) │
00:00:24 verbose #1032 > │ .clone() │
00:00:24 verbose #1033 > │ } │
00:00:24 verbose #1034 > │ } │
00:00:24 verbose #1035 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1036 > │ pub enum US0 { │
00:00:24 verbose #1037 > │ US0_0, │
00:00:24 verbose #1038 > │ US0_1, │
00:00:24 verbose #1039 > │ US0_2, │
00:00:24 verbose #1040 > │ US0_3, │
00:00:24 verbose #1041 > │ US0_4, │
00:00:24 verbose #1042 > │ US0_5, │
00:00:24 verbose #1043 > │ US0_6, │
00:00:24 verbose #1044 > │ US0_7, │
00:00:24 verbose #1045 > │ US0_8, │
00:00:24 verbose #1046 > │ US0_9, │
00:00:24 verbose #1047 > │ US0_10, │
00:00:24 verbose #1048 > │ US0_11, │
00:00:24 verbose #1049 > │ } │
00:00:24 verbose #1050 > │ impl Spiral_eval::US0 { │
00:00:24 verbose #1051 > │ pub fn get_IsUS0_0(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1052 > │ ()) -> bool { │
00:00:24 verbose #1053 > │ if unreachable!() { │
00:00:24 verbose #1054 > │ true │
00:00:24 verbose #1055 > │ } else { │
00:00:24 verbose #1056 > │ false │
00:00:24 verbose #1057 > │ } │
00:00:24 verbose #1058 > │ } │
00:00:24 verbose #1059 > │ pub fn get_IsUS0_1(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1060 > │ ()) -> bool { │
00:00:24 verbose #1061 > │ if unreachable!() { │
00:00:24 verbose #1062 > │ true │
00:00:24 verbose #1063 > │ } else { │
00:00:24 verbose #1064 > │ false │
00:00:24 verbose #1065 > │ } │
00:00:24 verbose #1066 > │ } │
00:00:24 verbose #1067 > │ pub fn get_IsUS0_2(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1068 > │ ()) -> bool { │
00:00:24 verbose #1069 > │ if unreachable!() { │
00:00:24 verbose #1070 > │ true │
00:00:24 verbose #1071 > │ } else { │
00:00:24 verbose #1072 > │ false │
00:00:24 verbose #1073 > │ } │
00:00:24 verbose #1074 > │ } │
00:00:24 verbose #1075 > │ pub fn get_IsUS0_3(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1076 > │ ()) -> bool { │
00:00:24 verbose #1077 > │ if unreachable!() { │
00:00:24 verbose #1078 > │ true │
00:00:24 verbose #1079 > │ } else { │
00:00:24 verbose #1080 > │ false │
00:00:24 verbose #1081 > │ } │
00:00:24 verbose #1082 > │ } │
00:00:24 verbose #1083 > │ pub fn get_IsUS0_4(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1084 > │ ()) -> bool { │
00:00:24 verbose #1085 > │ if unreachable!() { │
00:00:24 verbose #1086 > │ true │
00:00:24 verbose #1087 > │ } else { │
00:00:24 verbose #1088 > │ false │
00:00:24 verbose #1089 > │ } │
00:00:24 verbose #1090 > │ } │
00:00:24 verbose #1091 > │ pub fn get_IsUS0_5(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1092 > │ ()) -> bool { │
00:00:24 verbose #1093 > │ if unreachable!() { │
00:00:24 verbose #1094 > │ true │
00:00:24 verbose #1095 > │ } else { │
00:00:24 verbose #1096 > │ false │
00:00:24 verbose #1097 > │ } │
00:00:24 verbose #1098 > │ } │
00:00:24 verbose #1099 > │ pub fn get_IsUS0_6(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1100 > │ ()) -> bool { │
00:00:24 verbose #1101 > │ if unreachable!() { │
00:00:24 verbose #1102 > │ true │
00:00:24 verbose #1103 > │ } else { │
00:00:24 verbose #1104 > │ false │
00:00:24 verbose #1105 > │ } │
00:00:24 verbose #1106 > │ } │
00:00:24 verbose #1107 > │ pub fn get_IsUS0_7(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1108 > │ ()) -> bool { │
00:00:24 verbose #1109 > │ if unreachable!() { │
00:00:24 verbose #1110 > │ true │
00:00:24 verbose #1111 > │ } else { │
00:00:24 verbose #1112 > │ false │
00:00:24 verbose #1113 > │ } │
00:00:24 verbose #1114 > │ } │
00:00:24 verbose #1115 > │ pub fn get_IsUS0_8(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1116 > │ ()) -> bool { │
00:00:24 verbose #1117 > │ if unreachable!() { │
00:00:24 verbose #1118 > │ true │
00:00:24 verbose #1119 > │ } else { │
00:00:24 verbose #1120 > │ false │
00:00:24 verbose #1121 > │ } │
00:00:24 verbose #1122 > │ } │
00:00:24 verbose #1123 > │ pub fn get_IsUS0_9(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1124 > │ ()) -> bool { │
00:00:24 verbose #1125 > │ if unreachable!() { │
00:00:24 verbose #1126 > │ true │
00:00:24 verbose #1127 > │ } else { │
00:00:24 verbose #1128 > │ false │
00:00:24 verbose #1129 > │ } │
00:00:24 verbose #1130 > │ } │
00:00:24 verbose #1131 > │ pub fn get_IsUS0_10(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1132 > │ ()) -> bool { │
00:00:24 verbose #1133 > │ if unreachable!() { │
00:00:24 verbose #1134 > │ true │
00:00:24 verbose #1135 > │ } else { │
00:00:24 verbose #1136 > │ false │
00:00:24 verbose #1137 > │ } │
00:00:24 verbose #1138 > │ } │
00:00:24 verbose #1139 > │ pub fn get_IsUS0_11(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:24 verbose #1140 > │ ()) -> bool { │
00:00:24 verbose #1141 > │ if unreachable!() { │
00:00:24 verbose #1142 > │ true │
00:00:24 verbose #1143 > │ } else { │
00:00:24 verbose #1144 > │ false │
00:00:24 verbose #1145 > │ } │
00:00:24 verbose #1146 > │ } │
00:00:24 verbose #1147 > │ } │
00:00:24 verbose #1148 > │ impl core::fmt::Display for Spiral_eval::US0 { │
00:00:24 verbose #1149 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1150 > │ { │
00:00:24 verbose #1151 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1152 > │ } │
00:00:24 verbose #1153 > │ } │
00:00:24 verbose #1154 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1155 > │ pub enum US2 { │
00:00:24 verbose #1156 > │ US2_0, │
00:00:24 verbose #1157 > │ US2_1, │
00:00:24 verbose #1158 > │ } │
00:00:24 verbose #1159 > │ impl Spiral_eval::US2 { │
00:00:24 verbose #1160 > │ pub fn get_IsUS2_0(this_: &MutCell<Spiral_eval::US2>, unitArg: │
00:00:24 verbose #1161 > │ ()) -> bool { │
00:00:24 verbose #1162 > │ if unreachable!() { │
00:00:24 verbose #1163 > │ true │
00:00:24 verbose #1164 > │ } else { │
00:00:24 verbose #1165 > │ false │
00:00:24 verbose #1166 > │ } │
00:00:24 verbose #1167 > │ } │
00:00:24 verbose #1168 > │ pub fn get_IsUS2_1(this_: &MutCell<Spiral_eval::US2>, unitArg: │
00:00:24 verbose #1169 > │ ()) -> bool { │
00:00:24 verbose #1170 > │ if unreachable!() { │
00:00:24 verbose #1171 > │ true │
00:00:24 verbose #1172 > │ } else { │
00:00:24 verbose #1173 > │ false │
00:00:24 verbose #1174 > │ } │
00:00:24 verbose #1175 > │ } │
00:00:24 verbose #1176 > │ } │
00:00:24 verbose #1177 > │ impl core::fmt::Display for Spiral_eval::US2 { │
00:00:24 verbose #1178 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1179 > │ { │
00:00:24 verbose #1180 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1181 > │ } │
00:00:24 verbose #1182 > │ } │
00:00:24 verbose #1183 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1184 > │ pub enum US1 { │
00:00:24 verbose #1185 > │ US1_0(Spiral_eval::US2), │
00:00:24 verbose #1186 > │ } │
00:00:24 verbose #1187 > │ impl Spiral_eval::US1 { │
00:00:24 verbose #1188 > │ pub fn get_IsUS1_0(this_: &MutCell<Spiral_eval::US1>, unitArg: │
00:00:24 verbose #1189 > │ ()) -> bool { │
00:00:24 verbose #1190 > │ if unreachable!() { │
00:00:24 verbose #1191 > │ true │
00:00:24 verbose #1192 > │ } else { │
00:00:24 verbose #1193 > │ false │
00:00:24 verbose #1194 > │ } │
00:00:24 verbose #1195 > │ } │
00:00:24 verbose #1196 > │ } │
00:00:24 verbose #1197 > │ impl core::fmt::Display for Spiral_eval::US1 { │
00:00:24 verbose #1198 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1199 > │ { │
00:00:24 verbose #1200 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1201 > │ } │
00:00:24 verbose #1202 > │ } │
00:00:24 verbose #1203 > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1204 > │ pub enum UH0 { │
00:00:24 verbose #1205 > │ UH0_0, │
00:00:24 verbose #1206 > │ UH0_1( │
00:00:24 verbose #1207 > │ i32, │
00:00:24 verbose #1208 > │ Spiral_eval::US0, │
00:00:24 verbose #1209 > │ i32, │
00:00:24 verbose #1210 > │ Spiral_eval::US1, │
00:00:24 verbose #1211 > │ LrcPtr<Spiral_eval::UH0>, │
00:00:24 verbose #1212 > │ ), │
00:00:24 verbose #1213 > │ } │
00:00:24 verbose #1214 > │ impl Spiral_eval::UH0 { │
00:00:24 verbose #1215 > │ pub fn get_IsUH0_0(this_: LrcPtr<Spiral_eval::UH0>, unitArg: ()) │
00:00:24 verbose #1216 > │ -> bool { │
00:00:24 verbose #1217 > │ if let Spiral_eval::UH0::UH0_0 = this_.as_ref() { │
00:00:24 verbose #1218 > │ true │
00:00:24 verbose #1219 > │ } else { │
00:00:24 verbose #1220 > │ false │
00:00:24 verbose #1221 > │ } │
00:00:24 verbose #1222 > │ } │
00:00:24 verbose #1223 > │ pub fn get_IsUH0_1(this_: LrcPtr<Spiral_eval::UH0>, unitArg: ()) │
00:00:24 verbose #1224 > │ -> bool { │
00:00:24 verbose #1225 > │ if let Spiral_eval::UH0::UH0_1( │
00:00:24 verbose #1226 > │ this__1_0, │
00:00:24 verbose #1227 > │ this__1_1, │
00:00:24 verbose #1228 > │ this__1_2, │
00:00:24 verbose #1229 > │ this__1_3, │
00:00:24 verbose #1230 > │ this__1_4, │
00:00:24 verbose #1231 > │ ) = this_.as_ref() │
00:00:24 verbose #1232 > │ { │
00:00:24 verbose #1233 > │ true │
00:00:24 verbose #1234 > │ } else { │
00:00:24 verbose #1235 > │ false │
00:00:24 verbose #1236 > │ } │
00:00:24 verbose #1237 > │ } │
00:00:24 verbose #1238 > │ } │
00:00:24 verbose #1239 > │ impl core::fmt::Display for Spiral_eval::UH0 { │
00:00:24 verbose #1240 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1241 > │ { │
00:00:24 verbose #1242 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1243 > │ } │
00:00:24 verbose #1244 > │ } │
00:00:24 verbose #1245 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1246 > │ pub enum US3 { │
00:00:24 verbose #1247 > │ US3_0, │
00:00:24 verbose #1248 > │ US3_1, │
00:00:24 verbose #1249 > │ } │
00:00:24 verbose #1250 > │ impl Spiral_eval::US3 { │
00:00:24 verbose #1251 > │ pub fn get_IsUS3_0(this_: &MutCell<Spiral_eval::US3>, unitArg: │
00:00:24 verbose #1252 > │ ()) -> bool { │
00:00:24 verbose #1253 > │ if unreachable!() { │
00:00:24 verbose #1254 > │ true │
00:00:24 verbose #1255 > │ } else { │
00:00:24 verbose #1256 > │ false │
00:00:24 verbose #1257 > │ } │
00:00:24 verbose #1258 > │ } │
00:00:24 verbose #1259 > │ pub fn get_IsUS3_1(this_: &MutCell<Spiral_eval::US3>, unitArg: │
00:00:24 verbose #1260 > │ ()) -> bool { │
00:00:24 verbose #1261 > │ if unreachable!() { │
00:00:24 verbose #1262 > │ true │
00:00:24 verbose #1263 > │ } else { │
00:00:24 verbose #1264 > │ false │
00:00:24 verbose #1265 > │ } │
00:00:24 verbose #1266 > │ } │
00:00:24 verbose #1267 > │ } │
00:00:24 verbose #1268 > │ impl core::fmt::Display for Spiral_eval::US3 { │
00:00:24 verbose #1269 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1270 > │ { │
00:00:24 verbose #1271 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1272 > │ } │
00:00:24 verbose #1273 > │ } │
00:00:24 verbose #1274 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1275 > │ pub enum US6 { │
00:00:24 verbose #1276 > │ US6_0(i32), │
00:00:24 verbose #1277 > │ US6_1(i32), │
00:00:24 verbose #1278 > │ US6_2(i32), │
00:00:24 verbose #1279 > │ } │
00:00:24 verbose #1280 > │ impl Spiral_eval::US6 { │
00:00:24 verbose #1281 > │ pub fn get_IsUS6_0(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:24 verbose #1282 > │ ()) -> bool { │
00:00:24 verbose #1283 > │ if unreachable!() { │
00:00:24 verbose #1284 > │ true │
00:00:24 verbose #1285 > │ } else { │
00:00:24 verbose #1286 > │ false │
00:00:24 verbose #1287 > │ } │
00:00:24 verbose #1288 > │ } │
00:00:24 verbose #1289 > │ pub fn get_IsUS6_1(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:24 verbose #1290 > │ ()) -> bool { │
00:00:24 verbose #1291 > │ if unreachable!() { │
00:00:24 verbose #1292 > │ true │
00:00:24 verbose #1293 > │ } else { │
00:00:24 verbose #1294 > │ false │
00:00:24 verbose #1295 > │ } │
00:00:24 verbose #1296 > │ } │
00:00:24 verbose #1297 > │ pub fn get_IsUS6_2(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:24 verbose #1298 > │ ()) -> bool { │
00:00:24 verbose #1299 > │ if unreachable!() { │
00:00:24 verbose #1300 > │ true │
00:00:24 verbose #1301 > │ } else { │
00:00:24 verbose #1302 > │ false │
00:00:24 verbose #1303 > │ } │
00:00:24 verbose #1304 > │ } │
00:00:24 verbose #1305 > │ } │
00:00:24 verbose #1306 > │ impl core::fmt::Display for Spiral_eval::US6 { │
00:00:24 verbose #1307 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1308 > │ { │
00:00:24 verbose #1309 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1310 > │ } │
00:00:24 verbose #1311 > │ } │
00:00:24 verbose #1312 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1313 > │ pub enum US8 { │
00:00:24 verbose #1314 > │ US8_0, │
00:00:24 verbose #1315 > │ US8_1, │
00:00:24 verbose #1316 > │ US8_2, │
00:00:24 verbose #1317 > │ US8_3, │
00:00:24 verbose #1318 > │ US8_4, │
00:00:24 verbose #1319 > │ US8_5, │
00:00:24 verbose #1320 > │ US8_6, │
00:00:24 verbose #1321 > │ } │
00:00:24 verbose #1322 > │ impl Spiral_eval::US8 { │
00:00:24 verbose #1323 > │ pub fn get_IsUS8_0(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1324 > │ ()) -> bool { │
00:00:24 verbose #1325 > │ if unreachable!() { │
00:00:24 verbose #1326 > │ true │
00:00:24 verbose #1327 > │ } else { │
00:00:24 verbose #1328 > │ false │
00:00:24 verbose #1329 > │ } │
00:00:24 verbose #1330 > │ } │
00:00:24 verbose #1331 > │ pub fn get_IsUS8_1(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1332 > │ ()) -> bool { │
00:00:24 verbose #1333 > │ if unreachable!() { │
00:00:24 verbose #1334 > │ true │
00:00:24 verbose #1335 > │ } else { │
00:00:24 verbose #1336 > │ false │
00:00:24 verbose #1337 > │ } │
00:00:24 verbose #1338 > │ } │
00:00:24 verbose #1339 > │ pub fn get_IsUS8_2(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1340 > │ ()) -> bool { │
00:00:24 verbose #1341 > │ if unreachable!() { │
00:00:24 verbose #1342 > │ true │
00:00:24 verbose #1343 > │ } else { │
00:00:24 verbose #1344 > │ false │
00:00:24 verbose #1345 > │ } │
00:00:24 verbose #1346 > │ } │
00:00:24 verbose #1347 > │ pub fn get_IsUS8_3(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1348 > │ ()) -> bool { │
00:00:24 verbose #1349 > │ if unreachable!() { │
00:00:24 verbose #1350 > │ true │
00:00:24 verbose #1351 > │ } else { │
00:00:24 verbose #1352 > │ false │
00:00:24 verbose #1353 > │ } │
00:00:24 verbose #1354 > │ } │
00:00:24 verbose #1355 > │ pub fn get_IsUS8_4(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1356 > │ ()) -> bool { │
00:00:24 verbose #1357 > │ if unreachable!() { │
00:00:24 verbose #1358 > │ true │
00:00:24 verbose #1359 > │ } else { │
00:00:24 verbose #1360 > │ false │
00:00:24 verbose #1361 > │ } │
00:00:24 verbose #1362 > │ } │
00:00:24 verbose #1363 > │ pub fn get_IsUS8_5(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1364 > │ ()) -> bool { │
00:00:24 verbose #1365 > │ if unreachable!() { │
00:00:24 verbose #1366 > │ true │
00:00:24 verbose #1367 > │ } else { │
00:00:24 verbose #1368 > │ false │
00:00:24 verbose #1369 > │ } │
00:00:24 verbose #1370 > │ } │
00:00:24 verbose #1371 > │ pub fn get_IsUS8_6(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:24 verbose #1372 > │ ()) -> bool { │
00:00:24 verbose #1373 > │ if unreachable!() { │
00:00:24 verbose #1374 > │ true │
00:00:24 verbose #1375 > │ } else { │
00:00:24 verbose #1376 > │ false │
00:00:24 verbose #1377 > │ } │
00:00:24 verbose #1378 > │ } │
00:00:24 verbose #1379 > │ } │
00:00:24 verbose #1380 > │ impl core::fmt::Display for Spiral_eval::US8 { │
00:00:24 verbose #1381 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1382 > │ { │
00:00:24 verbose #1383 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1384 > │ } │
00:00:24 verbose #1385 > │ } │
00:00:24 verbose #1386 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1387 > │ pub enum US7 { │
00:00:24 verbose #1388 > │ US7_0(Spiral_eval::US8), │
00:00:24 verbose #1389 > │ US7_1(i32), │
00:00:24 verbose #1390 > │ US7_2(i32, Spiral_eval::US0), │
00:00:24 verbose #1391 > │ } │
00:00:24 verbose #1392 > │ impl Spiral_eval::US7 { │
00:00:24 verbose #1393 > │ pub fn get_IsUS7_0(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:24 verbose #1394 > │ ()) -> bool { │
00:00:24 verbose #1395 > │ if unreachable!() { │
00:00:24 verbose #1396 > │ true │
00:00:24 verbose #1397 > │ } else { │
00:00:24 verbose #1398 > │ false │
00:00:24 verbose #1399 > │ } │
00:00:24 verbose #1400 > │ } │
00:00:24 verbose #1401 > │ pub fn get_IsUS7_1(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:24 verbose #1402 > │ ()) -> bool { │
00:00:24 verbose #1403 > │ if unreachable!() { │
00:00:24 verbose #1404 > │ true │
00:00:24 verbose #1405 > │ } else { │
00:00:24 verbose #1406 > │ false │
00:00:24 verbose #1407 > │ } │
00:00:24 verbose #1408 > │ } │
00:00:24 verbose #1409 > │ pub fn get_IsUS7_2(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:24 verbose #1410 > │ ()) -> bool { │
00:00:24 verbose #1411 > │ if unreachable!() { │
00:00:24 verbose #1412 > │ true │
00:00:24 verbose #1413 > │ } else { │
00:00:24 verbose #1414 > │ false │
00:00:24 verbose #1415 > │ } │
00:00:24 verbose #1416 > │ } │
00:00:24 verbose #1417 > │ } │
00:00:24 verbose #1418 > │ impl core::fmt::Display for Spiral_eval::US7 { │
00:00:24 verbose #1419 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1420 > │ { │
00:00:24 verbose #1421 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1422 > │ } │
00:00:24 verbose #1423 > │ } │
00:00:24 verbose #1424 > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1425 > │ pub enum UH1 { │
00:00:24 verbose #1426 > │ UH1_0, │
00:00:24 verbose #1427 > │ UH1_1(Spiral_eval::US7, LrcPtr<Spiral_eval::UH1>), │
00:00:24 verbose #1428 > │ } │
00:00:24 verbose #1429 > │ impl Spiral_eval::UH1 { │
00:00:24 verbose #1430 > │ pub fn get_IsUH1_0(this_: LrcPtr<Spiral_eval::UH1>, unitArg: ()) │
00:00:24 verbose #1431 > │ -> bool { │
00:00:24 verbose #1432 > │ if let Spiral_eval::UH1::UH1_0 = this_.as_ref() { │
00:00:24 verbose #1433 > │ true │
00:00:24 verbose #1434 > │ } else { │
00:00:24 verbose #1435 > │ false │
00:00:24 verbose #1436 > │ } │
00:00:24 verbose #1437 > │ } │
00:00:24 verbose #1438 > │ pub fn get_IsUH1_1(this_: LrcPtr<Spiral_eval::UH1>, unitArg: ()) │
00:00:24 verbose #1439 > │ -> bool { │
00:00:24 verbose #1440 > │ if let Spiral_eval::UH1::UH1_1(this__1_0, this__1_1) = │
00:00:24 verbose #1441 > │ this_.as_ref() { │
00:00:24 verbose #1442 > │ true │
00:00:24 verbose #1443 > │ } else { │
00:00:24 verbose #1444 > │ false │
00:00:24 verbose #1445 > │ } │
00:00:24 verbose #1446 > │ } │
00:00:24 verbose #1447 > │ } │
00:00:24 verbose #1448 > │ impl core::fmt::Display for Spiral_eval::UH1 { │
00:00:24 verbose #1449 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1450 > │ { │
00:00:24 verbose #1451 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1452 > │ } │
00:00:24 verbose #1453 > │ } │
00:00:24 verbose #1454 > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1455 > │ pub enum US5 { │
00:00:24 verbose #1456 > │ US5_0(Spiral_eval::US6), │
00:00:24 verbose #1457 > │ US5_1(LrcPtr<Spiral_eval::UH1>), │
00:00:24 verbose #1458 > │ } │
00:00:24 verbose #1459 > │ impl Spiral_eval::US5 { │
00:00:24 verbose #1460 > │ pub fn get_IsUS5_0(this_: &MutCell<Spiral_eval::US5>, unitArg: │
00:00:24 verbose #1461 > │ ()) -> bool { │
00:00:24 verbose #1462 > │ if unreachable!() { │
00:00:24 verbose #1463 > │ true │
00:00:24 verbose #1464 > │ } else { │
00:00:24 verbose #1465 > │ false │
00:00:24 verbose #1466 > │ } │
00:00:24 verbose #1467 > │ } │
00:00:24 verbose #1468 > │ pub fn get_IsUS5_1(this_: &MutCell<Spiral_eval::US5>, unitArg: │
00:00:24 verbose #1469 > │ ()) -> bool { │
00:00:24 verbose #1470 > │ if unreachable!() { │
00:00:24 verbose #1471 > │ true │
00:00:24 verbose #1472 > │ } else { │
00:00:24 verbose #1473 > │ false │
00:00:24 verbose #1474 > │ } │
00:00:24 verbose #1475 > │ } │
00:00:24 verbose #1476 > │ } │
00:00:24 verbose #1477 > │ impl core::fmt::Display for Spiral_eval::US5 { │
00:00:24 verbose #1478 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1479 > │ { │
00:00:24 verbose #1480 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1481 > │ } │
00:00:24 verbose #1482 > │ } │
00:00:24 verbose #1483 > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1484 > │ pub enum US4 { │
00:00:24 verbose #1485 > │ US4_0(Spiral_eval::US3), │
00:00:24 verbose #1486 > │ US4_1(Spiral_eval::US5), │
00:00:24 verbose #1487 > │ } │
00:00:24 verbose #1488 > │ impl Spiral_eval::US4 { │
00:00:24 verbose #1489 > │ pub fn get_IsUS4_0(this_: &MutCell<Spiral_eval::US4>, unitArg: │
00:00:24 verbose #1490 > │ ()) -> bool { │
00:00:24 verbose #1491 > │ if unreachable!() { │
00:00:24 verbose #1492 > │ true │
00:00:24 verbose #1493 > │ } else { │
00:00:24 verbose #1494 > │ false │
00:00:24 verbose #1495 > │ } │
00:00:24 verbose #1496 > │ } │
00:00:24 verbose #1497 > │ pub fn get_IsUS4_1(this_: &MutCell<Spiral_eval::US4>, unitArg: │
00:00:24 verbose #1498 > │ ()) -> bool { │
00:00:24 verbose #1499 > │ if unreachable!() { │
00:00:24 verbose #1500 > │ true │
00:00:24 verbose #1501 > │ } else { │
00:00:24 verbose #1502 > │ false │
00:00:24 verbose #1503 > │ } │
00:00:24 verbose #1504 > │ } │
00:00:24 verbose #1505 > │ } │
00:00:24 verbose #1506 > │ impl core::fmt::Display for Spiral_eval::US4 { │
00:00:24 verbose #1507 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1508 > │ { │
00:00:24 verbose #1509 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1510 > │ } │
00:00:24 verbose #1511 > │ } │
00:00:24 verbose #1512 > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1513 > │ pub enum UH2 { │
00:00:24 verbose #1514 > │ UH2_0, │
00:00:24 verbose #1515 > │ UH2_1( │
00:00:24 verbose #1516 > │ LrcPtr<Spiral_eval::UH0>, │
00:00:24 verbose #1517 > │ string, │
00:00:24 verbose #1518 > │ Spiral_eval::US4, │
00:00:24 verbose #1519 > │ LrcPtr<Spiral_eval::UH2>, │
00:00:24 verbose #1520 > │ ), │
00:00:24 verbose #1521 > │ } │
00:00:24 verbose #1522 > │ impl Spiral_eval::UH2 { │
00:00:24 verbose #1523 > │ pub fn get_IsUH2_0(this_: LrcPtr<Spiral_eval::UH2>, unitArg: ()) │
00:00:24 verbose #1524 > │ -> bool { │
00:00:24 verbose #1525 > │ if let Spiral_eval::UH2::UH2_0 = this_.as_ref() { │
00:00:24 verbose #1526 > │ true │
00:00:24 verbose #1527 > │ } else { │
00:00:24 verbose #1528 > │ false │
00:00:24 verbose #1529 > │ } │
00:00:24 verbose #1530 > │ } │
00:00:24 verbose #1531 > │ pub fn get_IsUH2_1(this_: LrcPtr<Spiral_eval::UH2>, unitArg: ()) │
00:00:24 verbose #1532 > │ -> bool { │
00:00:24 verbose #1533 > │ if let Spiral_eval::UH2::UH2_1(this__1_0, this__1_1, │
00:00:24 verbose #1534 > │ this__1_2, this__1_3) = │
00:00:24 verbose #1535 > │ this_.as_ref() │
00:00:24 verbose #1536 > │ { │
00:00:24 verbose #1537 > │ true │
00:00:24 verbose #1538 > │ } else { │
00:00:24 verbose #1539 > │ false │
00:00:24 verbose #1540 > │ } │
00:00:24 verbose #1541 > │ } │
00:00:24 verbose #1542 > │ } │
00:00:24 verbose #1543 > │ impl core::fmt::Display for Spiral_eval::UH2 { │
00:00:24 verbose #1544 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1545 > │ { │
00:00:24 verbose #1546 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1547 > │ } │
00:00:24 verbose #1548 > │ } │
00:00:24 verbose #1549 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1550 > │ pub enum US9 { │
00:00:24 verbose #1551 > │ US9_0, │
00:00:24 verbose #1552 > │ US9_1, │
00:00:24 verbose #1553 > │ US9_2, │
00:00:24 verbose #1554 > │ US9_3, │
00:00:24 verbose #1555 > │ US9_4, │
00:00:24 verbose #1556 > │ } │
00:00:24 verbose #1557 > │ impl Spiral_eval::US9 { │
00:00:24 verbose #1558 > │ pub fn get_IsUS9_0(this_: &MutCell<Spiral_eval::US9>, unitArg: │
00:00:24 verbose #1559 > │ ()) -> bool { │
00:00:24 verbose #1560 > │ if unreachable!() { │
00:00:24 verbose #1561 > │ true │
00:00:24 verbose #1562 > │ } else { │
00:00:24 verbose #1563 > │ false │
00:00:24 verbose #1564 > │ } │
00:00:24 verbose #1565 > │ } │
00:00:24 verbose #1566 > │ pub fn get_IsUS9_1(this_: &MutCell<Spiral_eval::US9>, unitArg: │
00:00:24 verbose #1567 > │ ()) -> bool { │
00:00:24 verbose #1568 > │ if unreachable!() { │
00:00:24 verbose #1569 > │ true │
00:00:24 verbose #1570 > │ } else { │
00:00:24 verbose #1571 > │ false │
00:00:24 verbose #1572 > │ } │
00:00:24 verbose #1573 > │ } │
00:00:24 verbose #1574 > │ pub fn get_IsUS9_2(this_: &MutCell<Spiral_eval::US9>, unitArg: │
00:00:24 verbose #1575 > │ ()) -> bool { │
00:00:24 verbose #1576 > │ if unreachable!() { │
00:00:24 verbose #1577 > │ true │
00:00:24 verbose #1578 > │ } else { │
00:00:24 verbose #1579 > │ false │
00:00:24 verbose #1580 > │ } │
00:00:24 verbose #1581 > │ } │
00:00:24 verbose #1582 > │ pub fn get_IsUS9_3(this_: &MutCell<Spiral_eval::US9>, unitArg: │
00:00:24 verbose #1583 > │ ()) -> bool { │
00:00:24 verbose #1584 > │ if unreachable!() { │
00:00:24 verbose #1585 > │ true │
00:00:24 verbose #1586 > │ } else { │
00:00:24 verbose #1587 > │ false │
00:00:24 verbose #1588 > │ } │
00:00:24 verbose #1589 > │ } │
00:00:24 verbose #1590 > │ pub fn get_IsUS9_4(this_: &MutCell<Spiral_eval::US9>, unitArg: │
00:00:24 verbose #1591 > │ ()) -> bool { │
00:00:24 verbose #1592 > │ if unreachable!() { │
00:00:24 verbose #1593 > │ true │
00:00:24 verbose #1594 > │ } else { │
00:00:24 verbose #1595 > │ false │
00:00:24 verbose #1596 > │ } │
00:00:24 verbose #1597 > │ } │
00:00:24 verbose #1598 > │ } │
00:00:24 verbose #1599 > │ impl core::fmt::Display for Spiral_eval::US9 { │
00:00:24 verbose #1600 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1601 > │ { │
00:00:24 verbose #1602 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1603 > │ } │
00:00:24 verbose #1604 > │ } │
00:00:24 verbose #1605 > │ #[derive(Clone, Debug, Default, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1606 > │ pub struct Mut0 { │
00:00:24 verbose #1607 > │ pub l0: MutCell<i64>, │
00:00:24 verbose #1608 > │ } │
00:00:24 verbose #1609 > │ impl core::fmt::Display for Spiral_eval::Mut0 { │
00:00:24 verbose #1610 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1611 > │ { │
00:00:24 verbose #1612 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1613 > │ } │
00:00:24 verbose #1614 > │ } │
00:00:24 verbose #1615 > │ #[derive(Clone, Debug, Default, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1616 > │ pub struct Mut1 { │
00:00:24 verbose #1617 > │ pub l0: MutCell<bool>, │
00:00:24 verbose #1618 > │ } │
00:00:24 verbose #1619 > │ impl core::fmt::Display for Spiral_eval::Mut1 { │
00:00:24 verbose #1620 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1621 > │ { │
00:00:24 verbose #1622 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1623 > │ } │
00:00:24 verbose #1624 > │ } │
00:00:24 verbose #1625 > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1626 > │ pub struct Mut2 { │
00:00:24 verbose #1627 > │ pub l0: MutCell<Spiral_eval::US9>, │
00:00:24 verbose #1628 > │ } │
00:00:24 verbose #1629 > │ impl core::fmt::Display for Spiral_eval::Mut2 { │
00:00:24 verbose #1630 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1631 > │ { │
00:00:24 verbose #1632 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1633 > │ } │
00:00:24 verbose #1634 > │ } │
00:00:24 verbose #1635 > │ #[derive(Clone, Debug)] │
00:00:24 verbose #1636 > │ pub struct Mut3 { │
00:00:24 verbose #1637 > │ pub l0: MutCell<Func1<string, ()>>, │
00:00:24 verbose #1638 > │ } │
00:00:24 verbose #1639 > │ impl core::fmt::Display for Spiral_eval::Mut3 { │
00:00:24 verbose #1640 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1641 > │ { │
00:00:24 verbose #1642 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1643 > │ } │
00:00:24 verbose #1644 > │ } │
00:00:24 verbose #1645 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1646 > │ pub enum US10 { │
00:00:24 verbose #1647 > │ US10_0(i64), │
00:00:24 verbose #1648 > │ US10_1, │
00:00:24 verbose #1649 > │ } │
00:00:24 verbose #1650 > │ impl Spiral_eval::US10 { │
00:00:24 verbose #1651 > │ pub fn get_IsUS10_0(this_: &MutCell<Spiral_eval::US10>, unitArg: │
00:00:24 verbose #1652 > │ ()) -> bool { │
00:00:24 verbose #1653 > │ if unreachable!() { │
00:00:24 verbose #1654 > │ true │
00:00:24 verbose #1655 > │ } else { │
00:00:24 verbose #1656 > │ false │
00:00:24 verbose #1657 > │ } │
00:00:24 verbose #1658 > │ } │
00:00:24 verbose #1659 > │ pub fn get_IsUS10_1(this_: &MutCell<Spiral_eval::US10>, unitArg: │
00:00:24 verbose #1660 > │ ()) -> bool { │
00:00:24 verbose #1661 > │ if unreachable!() { │
00:00:24 verbose #1662 > │ true │
00:00:24 verbose #1663 > │ } else { │
00:00:24 verbose #1664 > │ false │
00:00:24 verbose #1665 > │ } │
00:00:24 verbose #1666 > │ } │
00:00:24 verbose #1667 > │ } │
00:00:24 verbose #1668 > │ impl core::fmt::Display for Spiral_eval::US10 { │
00:00:24 verbose #1669 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1670 > │ { │
00:00:24 verbose #1671 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1672 > │ } │
00:00:24 verbose #1673 > │ } │
00:00:24 verbose #1674 > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq)] │
00:00:24 verbose #1675 > │ pub enum US11 { │
00:00:24 verbose #1676 > │ US11_0(i64), │
00:00:24 verbose #1677 > │ US11_1, │
00:00:24 verbose #1678 > │ } │
00:00:24 verbose #1679 > │ impl Spiral_eval::US11 { │
00:00:24 verbose #1680 > │ pub fn get_IsUS11_0(this_: &MutCell<Spiral_eval::US11>, unitArg: │
00:00:24 verbose #1681 > │ ()) -> bool { │
00:00:24 verbose #1682 > │ if unreachable!() { │
00:00:24 verbose #1683 > │ true │
00:00:24 verbose #1684 > │ } else { │
00:00:24 verbose #1685 > │ false │
00:00:24 verbose #1686 > │ } │
00:00:24 verbose #1687 > │ } │
00:00:24 verbose #1688 > │ pub fn get_IsUS11_1(this_: &MutCell<Spiral_eval::US11>, unitArg: │
00:00:24 verbose #1689 > │ ()) -> bool { │
00:00:24 verbose #1690 > │ if unreachable!() { │
00:00:24 verbose #1691 > │ true │
00:00:24 verbose #1692 > │ } else { │
00:00:24 verbose #1693 > │ false │
00:00:24 verbose #1694 > │ } │
00:00:24 verbose #1695 > │ } │
00:00:24 verbose #1696 > │ } │
00:00:24 verbose #1697 > │ impl core::fmt::Display for Spiral_eval::US11 { │
00:00:24 verbose #1698 > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:24 verbose #1699 > │ { │
00:00:24 verbose #1700 > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:24 verbose #1701 > │ } │
00:00:24 verbose #1702 > │ } │
00:00:24 verbose #1703 > │ pub fn closure0(unitVar: (), unitVar_1: ()) -> string { │
00:00:24 verbose #1704 > │ string("Tasks") │
00:00:24 verbose #1705 > │ } │
00:00:24 verbose #1706 > │ pub fn closure2(unitVar: (), unitVar_1: ()) -> string { │
00:00:24 verbose #1707 > │ string("") │
00:00:24 verbose #1708 > │ } │
00:00:24 verbose #1709 > │ pub fn closure1(v0: std::string::String, unitVar: ()) -> string { │
00:00:24 verbose #1710 > │ sprintf!("tasks: {} / {}", v0, Spiral_eval::closure2((), ())) │
00:00:24 verbose #1711 > │ } │
00:00:24 verbose #1712 > │ pub fn closure5(unitVar: (), v0: string) { │
00:00:24 verbose #1713 > │ (); │
00:00:24 verbose #1714 > │ } │
00:00:24 verbose #1715 > │ pub fn method2(v0: Option<i64>) -> Option<i64> { │
00:00:24 verbose #1716 > │ v0 │
00:00:24 verbose #1717 > │ } │
00:00:24 verbose #1718 > │ pub fn method3(v0: Option<i64>) -> Option<i64> { │
00:00:24 verbose #1719 > │ v0 │
00:00:24 verbose #1720 > │ } │
00:00:24 verbose #1721 > │ pub fn closure4( │
00:00:24 verbose #1722 > │ unitVar: (), │
00:00:24 verbose #1723 > │ unitVar_1: (), │
00:00:24 verbose #1724 > │ ) -> ( │
00:00:24 verbose #1725 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:24 verbose #1726 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:24 verbose #1727 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:24 verbose #1728 > │ Option<i64>, │
00:00:24 verbose #1729 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:24 verbose #1730 > │ ) { │
00:00:24 verbose #1731 > │ let v0: LrcPtr<Spiral_eval::Mut1> = │
00:00:24 verbose #1732 > │ LrcPtr::new(Spiral_eval::Mut1 { │
00:00:24 verbose #1733 > │ l0: MutCell::new(true), │
00:00:24 verbose #1734 > │ }); │
00:00:24 verbose #1735 > │ let v1: LrcPtr<Spiral_eval::Mut0> = │
00:00:24 verbose #1736 > │ LrcPtr::new(Spiral_eval::Mut0 { │
00:00:24 verbose #1737 > │ l0: MutCell::new(0_i64), │
00:00:24 verbose #1738 > │ }); │
00:00:24 verbose #1739 > │ let v3: LrcPtr<Spiral_eval::Mut2> = │
00:00:24 verbose #1740 > │ LrcPtr::new(Spiral_eval::Mut2 { │
00:00:24 verbose #1741 > │ l0: MutCell::new(Spiral_eval::US9::US9_0), │
00:00:24 verbose #1742 > │ }); │
00:00:24 verbose #1743 > │ let v5: LrcPtr<Spiral_eval::Mut3> = │
00:00:24 verbose #1744 > │ LrcPtr::new(Spiral_eval::Mut3 { │
00:00:24 verbose #1745 > │ l0: MutCell::new(Func1::new(move |v: string| │
00:00:24 verbose #1746 > │ Spiral_eval::closure5((), v))), │
00:00:24 verbose #1747 > │ }); │
00:00:24 verbose #1748 > │ let _v6: MutCell<Option<Option<i64>>> = │
00:00:24 verbose #1749 > │ MutCell::new(None::<Option<i64>>); │
00:00:24 verbose #1750 > │ { │
00:00:24 verbose #1751 > │ let x: Option<i64> = Spiral_eval::method3(None::<i64>); │
00:00:24 verbose #1752 > │ _v6.set(Some(x)) │
00:00:24 verbose #1753 > │ } │
00:00:24 verbose #1754 > │ (v1, v0, v3, getValue(_v6.get().clone()), v5) │
00:00:24 verbose #1755 > │ } │
00:00:24 verbose #1756 > │ pub fn closure6(unitVar: (), v0: i64) -> Spiral_eval::US11 { │
00:00:24 verbose #1757 > │ Spiral_eval::US11::US11_0(v0) │
00:00:24 verbose #1758 > │ } │
00:00:24 verbose #1759 > │ pub fn method4() -> Func1<i64, Spiral_eval::US11> { │
00:00:24 verbose #1760 > │ Func1::new(move |v: i64| Spiral_eval::closure6((), v)) │
00:00:24 verbose #1761 > │ } │
00:00:24 verbose #1762 > │ pub fn method5() -> string { │
00:00:24 verbose #1763 > │ string("") │
00:00:24 verbose #1764 > │ } │
00:00:24 verbose #1765 > │ pub fn closure3( │
00:00:24 verbose #1766 > │ v0: Spiral_eval::US9, │
00:00:24 verbose #1767 > │ v1: Func0<string>, │
00:00:24 verbose #1768 > │ v2: Func0<string>, │
00:00:24 verbose #1769 > │ unitVar: (), │
00:00:24 verbose #1770 > │ ) -> string { │
00:00:24 verbose #1771 > │ if Spiral_eval::State::trace_state().get().clone().is_none() { │
00:00:24 verbose #1772 > │ │
00:00:24 verbose #1773 > │ Spiral_eval::State::trace_state().set(Some(Spiral_eval::closure4((), ()))); │
00:00:24 verbose #1774 > │ } │
00:00:24 verbose #1775 > │ { │
00:00:24 verbose #1776 > │ let patternInput: ( │
00:00:24 verbose #1777 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:24 verbose #1778 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:24 verbose #1779 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:24 verbose #1780 > │ Option<i64>, │
00:00:24 verbose #1781 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:24 verbose #1782 > │ ) = │
00:00:24 verbose #1783 > │ getValue(Spiral_eval::State::trace_state().get().clone()); │
00:00:24 verbose #1784 > │ let _v9: MutCell<Option<string>> = │
00:00:24 verbose #1785 > │ MutCell::new(None::<string>); │
00:00:24 verbose #1786 > │ let v13: Spiral_eval::US11 = defaultValue( │
00:00:24 verbose #1787 > │ Spiral_eval::US11::US11_1, │
00:00:24 verbose #1788 > │ map(Spiral_eval::method4(), patternInput.3.clone()), │
00:00:24 verbose #1789 > │ ); │
00:00:24 verbose #1790 > │ let v31: DateTime = match &v13 { │
00:00:24 verbose #1791 > │ Spiral_eval::US11::US11_0(v13_0_0) => { │
00:00:24 verbose #1792 > │ let v19: TimeSpan = TimeSpan::new_ticks( │
00:00:24 verbose #1793 > │ { │
00:00:24 verbose #1794 > │ let _arg: DateTime = DateTime::now(); │
00:00:24 verbose #1795 > │ _arg.ticks() │
00:00:24 verbose #1796 > │ } - match &v13 { │
00:00:24 verbose #1797 > │ Spiral_eval::US11::US11_0(x) => x.clone(), │
00:00:24 verbose #1798 > │ _ => unreachable!(), │
00:00:24 verbose #1799 > │ }, │
00:00:24 verbose #1800 > │ ); │
00:00:24 verbose #1801 > │ DateTime::new_ymdhms_milli( │
00:00:24 verbose #1802 > │ 1_i32, │
00:00:24 verbose #1803 > │ 1_i32, │
00:00:24 verbose #1804 > │ 1_i32, │
00:00:24 verbose #1805 > │ v19.hours(), │
00:00:24 verbose #1806 > │ v19.minutes(), │
00:00:24 verbose #1807 > │ v19.seconds(), │
00:00:24 verbose #1808 > │ v19.milliseconds(), │
00:00:24 verbose #1809 > │ ) │
00:00:24 verbose #1810 > │ } │
00:00:24 verbose #1811 > │ _ => DateTime::now(), │
00:00:24 verbose #1812 > │ }; │
00:00:24 verbose #1813 > │ { │
00:00:24 verbose #1814 > │ let x: string = v31.toString(string("hh:mm:ss")); │
00:00:24 verbose #1815 > │ _v9.set(Some(x)) │
00:00:24 verbose #1816 > │ } │
00:00:24 verbose #1817 > │ { │
00:00:24 verbose #1818 > │ let v61: string = getValue(_v9.get().clone()); │
00:00:24 verbose #1819 > │ let v62: i64 = │
00:00:24 verbose #1820 > │ (patternInput.0.clone()).l0.get().clone(); │
00:00:24 verbose #1821 > │ let v73: string = toLower(match &v0 { │
00:00:24 verbose #1822 > │ Spiral_eval::US9::US9_1 => string("Debug"), │
00:00:24 verbose #1823 > │ Spiral_eval::US9::US9_2 => string("Info"), │
00:00:24 verbose #1824 > │ Spiral_eval::US9::US9_0 => string("Verbose"), │
00:00:24 verbose #1825 > │ Spiral_eval::US9::US9_3 => string("Warning"), │
00:00:24 verbose #1826 > │ _ => string("Critical"), │
00:00:24 verbose #1827 > │ }); │
00:00:24 verbose #1828 > │ let _v74: MutCell<Option<string>> = │
00:00:24 verbose #1829 > │ MutCell::new(None::<string>); │
00:00:24 verbose #1830 > │ let v90: &str = match &v0 { │
00:00:24 verbose #1831 > │ Spiral_eval::US9::US9_1 => │
00:00:24 verbose #1832 > │ inline_colorization::color_bright_blue, │
00:00:24 verbose #1833 > │ Spiral_eval::US9::US9_2 => │
00:00:24 verbose #1834 > │ inline_colorization::color_bright_green, │
00:00:24 verbose #1835 > │ Spiral_eval::US9::US9_0 => │
00:00:24 verbose #1836 > │ inline_colorization::color_bright_black, │
00:00:24 verbose #1837 > │ Spiral_eval::US9::US9_3 => │
00:00:24 verbose #1838 > │ inline_colorization::color_bright_yellow, │
00:00:24 verbose #1839 > │ _ => inline_colorization::color_bright_red, │
00:00:24 verbose #1840 > │ }; │
00:00:24 verbose #1841 > │ let v92: &str = │
00:00:24 verbose #1842 > │ fable_library_rust::String_::LrcStr::as_str(&v73); │
00:00:24 verbose #1843 > │ let v94: &str = inline_colorization::color_reset; │
00:00:24 verbose #1844 > │ let v96: string = │
00:00:24 verbose #1845 > │ string("format!(\"{v90}{v92}{v94}\")"); │
00:00:24 verbose #1846 > │ let v97: std::string::String = │
00:00:24 verbose #1847 > │ format!("{v90}{v92}{v94}"); │
00:00:24 verbose #1848 > │ { │
00:00:24 verbose #1849 > │ let x_1: string = │
00:00:24 verbose #1850 > │ fable_library_rust::String_::fromString(v97); │
00:00:24 verbose #1851 > │ _v74.set(Some(x_1)) │
00:00:24 verbose #1852 > │ } │
00:00:24 verbose #1853 > │ trimEndChars( │
00:00:24 verbose #1854 > │ trimStartChars( │
00:00:24 verbose #1855 > │ sprintf!( │
00:00:24 verbose #1856 > │ "{} {} #{} {} / {}", │
00:00:24 verbose #1857 > │ v61, │
00:00:24 verbose #1858 > │ getValue(_v74.get().clone()), │
00:00:24 verbose #1859 > │ v62, │
00:00:24 verbose #1860 > │ v1(), │
00:00:24 verbose #1861 > │ v2() │
00:00:24 verbose #1862 > │ ), │
00:00:24 verbose #1863 > │ new_empty::<char>(), │
00:00:24 verbose #1864 > │ ), │
00:00:24 verbose #1865 > │ new_array(&[' ', '/']), │
00:00:25 verbose #1866 > │ ) │
00:00:25 verbose #1867 > │ } │
00:00:25 verbose #1868 > │ } │
00:00:25 verbose #1869 > │ } │
00:00:25 verbose #1870 > │ pub fn method6(v0: Spiral_eval::US9, v1: Func0<string>) { │
00:00:25 verbose #1871 > │ let v2 = Func0::new(move || Spiral_eval::closure4((), ())); │
00:00:25 verbose #1872 > │ if Spiral_eval::State::trace_state().get().clone().is_none() { │
00:00:25 verbose #1873 > │ Spiral_eval::State::trace_state().set(Some(v2())); │
00:00:25 verbose #1874 > │ } │
00:00:25 verbose #1875 > │ { │
00:00:25 verbose #1876 > │ let patternInput: ( │
00:00:25 verbose #1877 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:25 verbose #1878 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:25 verbose #1879 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:25 verbose #1880 > │ Option<i64>, │
00:00:25 verbose #1881 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:25 verbose #1882 > │ ) = │
00:00:25 verbose #1883 > │ getValue(Spiral_eval::State::trace_state().get().clone()); │
00:00:25 verbose #1884 > │ let v3: LrcPtr<Spiral_eval::Mut0> = patternInput.0.clone(); │
00:00:25 verbose #1885 > │ if Spiral_eval::State::trace_state().get().clone().is_none() │
00:00:25 verbose #1886 > │ { │
00:00:25 verbose #1887 > │ Spiral_eval::State::trace_state().set(Some(v2())); │
00:00:25 verbose #1888 > │ } │
00:00:25 verbose #1889 > │ { │
00:00:25 verbose #1890 > │ let patternInput_1: ( │
00:00:25 verbose #1891 > │ LrcPtr<Spiral_eval::Mut0>, │
00:00:25 verbose #1892 > │ LrcPtr<Spiral_eval::Mut1>, │
00:00:25 verbose #1893 > │ LrcPtr<Spiral_eval::Mut2>, │
00:00:25 verbose #1894 > │ Option<i64>, │
00:00:25 verbose #1895 > │ LrcPtr<Spiral_eval::Mut3>, │
00:00:25 verbose #1896 > │ ) = │
00:00:25 verbose #1897 > │ getValue(Spiral_eval::State::trace_state().get().clone()); │
00:00:25 verbose #1898 > │ let v13: Spiral_eval::US9 = │
00:00:25 verbose #1899 > │ (patternInput_1.2.clone()).l0.get().clone(); │
00:00:25 verbose #1900 > │ if if (patternInput_1.1.clone()).l0.get().clone() == │
00:00:25 verbose #1901 > │ false { │
00:00:25 verbose #1902 > │ false │
00:00:25 verbose #1903 > │ } else { │
00:00:25 verbose #1904 > │ find( │
00:00:25 verbose #1905 > │ v0, │
00:00:25 verbose #1906 > │ ofSeq(ofList(ofArray(new_array(&[ │
00:00:25 verbose #1907 > │ LrcPtr::new((Spiral_eval::US9::US9_0, │
00:00:25 verbose #1908 > │ 0_i32)), │
00:00:25 verbose #1909 > │ LrcPtr::new((Spiral_eval::US9::US9_1, │
00:00:25 verbose #1910 > │ 1_i32)), │
00:00:25 verbose #1911 > │ LrcPtr::new((Spiral_eval::US9::US9_2, │
00:00:25 verbose #1912 > │ 2_i32)), │
00:00:25 verbose #1913 > │ LrcPtr::new((Spiral_eval::US9::US9_3, │
00:00:25 verbose #1914 > │ 3_i32)), │
00:00:25 verbose #1915 > │ LrcPtr::new((Spiral_eval::US9::US9_4, │
00:00:25 verbose #1916 > │ 4_i32)), │
00:00:25 verbose #1917 > │ ])))), │
00:00:25 verbose #1918 > │ ) >= find( │
00:00:25 verbose #1919 > │ v13, │
00:00:25 verbose #1920 > │ ofSeq(ofList(ofArray(new_array(&[ │
00:00:25 verbose #1921 > │ LrcPtr::new((Spiral_eval::US9::US9_0, │
00:00:25 verbose #1922 > │ 0_i32)), │
00:00:25 verbose #1923 > │ LrcPtr::new((Spiral_eval::US9::US9_1, │
00:00:25 verbose #1924 > │ 1_i32)), │
00:00:25 verbose #1925 > │ LrcPtr::new((Spiral_eval::US9::US9_2, │
00:00:25 verbose #1926 > │ 2_i32)), │
00:00:25 verbose #1927 > │ LrcPtr::new((Spiral_eval::US9::US9_3, │
00:00:25 verbose #1928 > │ 3_i32)), │
00:00:25 verbose #1929 > │ LrcPtr::new((Spiral_eval::US9::US9_4, │
00:00:25 verbose #1930 > │ 4_i32)), │
00:00:25 verbose #1931 > │ ])))), │
00:00:25 verbose #1932 > │ ) │
00:00:25 verbose #1933 > │ } { │
00:00:25 verbose #1934 > │ let v21: i64 = v3.l0.get().clone() + 1_i64; │
00:00:25 verbose #1935 > │ v3.l0.set(v21); │
00:00:25 verbose #1936 > │ { │
00:00:25 verbose #1937 > │ let v22: string = sprintf!("{}", v1()); │
00:00:25 verbose #1938 > │ let _v23: MutCell<Option<()>> = │
00:00:25 verbose #1939 > │ MutCell::new(None::<()>); │
00:00:25 verbose #1940 > │ println!("{}", v22.clone()); │
00:00:25 verbose #1941 > │ _v23.set(Some(())); │
00:00:25 verbose #1942 > │ getValue(_v23.get().clone()); │
00:00:25 verbose #1943 > │ ((patternInput.4.clone()).l0.get().clone())(v22) │
00:00:25 verbose #1944 > │ } │
00:00:25 verbose #1945 > │ } │
00:00:25 verbose #1946 > │ } │
00:00:25 verbose #1947 > │ } │
00:00:25 verbose #1948 > │ } │
00:00:25 verbose #1949 > │ pub fn method1(v0: Spiral_eval::US9, v1: Func0<string>, v2: │
00:00:25 verbose #1950 > │ Func0<string>) { │
00:00:25 verbose #1951 > │ Spiral_eval::method6( │
00:00:25 verbose #1952 > │ v0.clone(), │
00:00:25 verbose #1953 > │ Func0::new({ │
00:00:25 verbose #1954 > │ let v0 = v0.clone(); │
00:00:25 verbose #1955 > │ let v1 = v1.clone(); │
00:00:25 verbose #1956 > │ let v2 = v2.clone(); │
00:00:25 verbose #1957 > │ move || Spiral_eval::closure3(v0.clone(), v1.clone(), │
00:00:25 verbose #1958 > │ v2.clone(), ()) │
00:00:25 verbose #1959 > │ }), │
00:00:25 verbose #1960 > │ ); │
00:00:25 verbose #1961 > │ } │
00:00:25 verbose #1962 > │ pub fn method0() { │
00:00:25 verbose #1963 > │ let v17: std::string::String = format!( │
00:00:25 verbose #1964 > │ "{:#?}", │
00:00:25 verbose #1965 > │ LrcPtr::new(Spiral_eval::UH2::UH2_1( │
00:00:25 verbose #1966 > │ LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:25 verbose #1967 > │ string("01"), │
00:00:25 verbose #1968 > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:25 verbose #1969 > │ LrcPtr::new(Spiral_eval::UH2::UH2_1( │
00:00:25 verbose #1970 > │ LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:25 verbose #1971 > │ string("02"), │
00:00:25 verbose #1972 > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:25 verbose #1973 > │ LrcPtr::new(Spiral_eval::UH2::UH2_1( │
00:00:25 verbose #1974 > │ LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:25 verbose #1975 > │ string("03"), │
00:00:25 verbose #1976 > │ │
00:00:25 verbose #1977 > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:25 verbose #1978 > │ LrcPtr::new(Spiral_eval::UH2::UH2_0) │
00:00:25 verbose #1979 > │ )) │
00:00:25 verbose #1980 > │ )) │
00:00:25 verbose #1981 > │ )) │
00:00:25 verbose #1982 > │ ); │
00:00:25 verbose #1983 > │ Spiral_eval::method1( │
00:00:25 verbose #1984 > │ Spiral_eval::US9::US9_0, │
00:00:25 verbose #1985 > │ Func0::new(move || Spiral_eval::closure0((), ())), │
00:00:25 verbose #1986 > │ Func0::new({ │
00:00:25 verbose #1987 > │ let v17 = v17.clone(); │
00:00:25 verbose #1988 > │ move || Spiral_eval::closure1(v17.clone(), ()) │
00:00:25 verbose #1989 > │ }), │
00:00:25 verbose #1990 > │ ) │
00:00:25 verbose #1991 > │ } │
00:00:25 verbose #1992 > │ on_startup!(Spiral_eval::method0()); │
00:00:25 verbose #1993 > │ } │
00:00:25 verbose #1994 > │ } │
00:00:25 verbose #1995 > │ pub use module_ccfa04bf::*; │
00:00:25 verbose #1996 > │ │
00:00:25 verbose #1997 > │ │
00:00:25 verbose #1998 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1999 >
00:00:25 verbose #2000 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #2001 > // // test
00:00:25 verbose #2002 > // // rust=
00:00:25 verbose #2003 >
00:00:25 verbose #2004 > get_tasks ()
00:00:25 verbose #2005 > |> listm'.try_item 0i32
00:00:25 verbose #2006 > |> fun (Some task) => task.task.name
00:00:25 verbose #2007 > |> _assert_eq (task_name "01")
00:00:25 verbose #2008 > 00:00:24 debug #23 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/42f07a998a912cfb6f8397da964f7924349435f153c4f5c9d53d7e3b142dad57/main.spi
00:00:30 verbose #2009 >
00:00:30 verbose #2010 > ╭─[ 5.68s - return value ]─────────────────────────────────────────────────────╮
00:00:30 verbose #2011 > │ .rs output: │
00:00:30 verbose #2012 > │ "01" │
00:00:30 verbose #2013 > │ │
00:00:30 verbose #2014 > │ │
00:00:30 verbose #2015 > │ │
00:00:30 verbose #2016 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #2017 >
00:00:30 verbose #2018 > ╭─[ 5.68s - stdout ]───────────────────────────────────────────────────────────╮
00:00:30 verbose #2019 > │ .fsx: │
00:00:30 verbose #2020 > │ let rec method0 () : unit = │
00:00:30 verbose #2021 > │ let v0 : string = "01" │
00:00:30 verbose #2022 > │ let v1 : string = $"%A{v0}" │
00:00:30 verbose #2023 > │ System.Console.WriteLine v1 │
00:00:30 verbose #2024 > │ let v2 : string = $"__expect / actual: %A{v0} / expected: %A{v0}" │
00:00:30 verbose #2025 > │ () │
00:00:30 verbose #2026 > │ method0() │
00:00:30 verbose #2027 > │ │
00:00:30 verbose #2028 > │ │
00:00:30 verbose #2029 > │ .rs: │
00:00:30 verbose #2030 > │ #![allow(dead_code)] │
00:00:30 verbose #2031 > │ #![allow(non_camel_case_types)] │
00:00:30 verbose #2032 > │ #![allow(non_snake_case)] │
00:00:30 verbose #2033 > │ #![allow(non_upper_case_globals)] │
00:00:30 verbose #2034 > │ #![allow(unreachable_code)] │
00:00:30 verbose #2035 > │ #![allow(unused_attributes)] │
00:00:30 verbose #2036 > │ #![allow(unused_imports)] │
00:00:30 verbose #2037 > │ #![allow(unused_macros)] │
00:00:30 verbose #2038 > │ #![allow(unused_parens)] │
00:00:30 verbose #2039 > │ #![allow(unused_variables)] │
00:00:30 verbose #2040 > │ mod module_ccfa04bf { │
00:00:30 verbose #2041 > │ pub mod Spiral_eval { │
00:00:30 verbose #2042 > │ use super::*; │
00:00:30 verbose #2043 > │ use fable_library_rust::Native_::on_startup; │
00:00:30 verbose #2044 > │ use fable_library_rust::String_::printfn; │
00:00:30 verbose #2045 > │ use fable_library_rust::String_::sprintf; │
00:00:30 verbose #2046 > │ use fable_library_rust::String_::string; │
00:00:30 verbose #2047 > │ pub fn method0() { │
00:00:30 verbose #2048 > │ let v1: string = sprintf!("{:?}", string("01")); │
00:00:30 verbose #2049 > │ printfn!("{0}", v1); │
00:00:30 verbose #2050 > │ { │
00:00:30 verbose #2051 > │ let v2: string = sprintf!( │
00:00:30 verbose #2052 > │ "__expect / actual: {:?} / expected: {:?}", │
00:00:30 verbose #2053 > │ string("01"), │
00:00:30 verbose #2054 > │ string("01") │
00:00:30 verbose #2055 > │ ); │
00:00:30 verbose #2056 > │ () │
00:00:30 verbose #2057 > │ } │
00:00:30 verbose #2058 > │ } │
00:00:30 verbose #2059 > │ on_startup!(Spiral_eval::method0()); │
00:00:30 verbose #2060 > │ } │
00:00:30 verbose #2061 > │ } │
00:00:30 verbose #2062 > │ pub use module_ccfa04bf::*; │
00:00:30 verbose #2063 > │ │
00:00:30 verbose #2064 > │ │
00:00:30 verbose #2065 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 verbose #2066 > [NbConvertApp] Converting notebook Tasks.dib.ipynb to html
00:00:32 verbose #2067 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:32 verbose #2068 > validate(nb)
00:00:33 verbose #2069 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:33 verbose #2070 > return _pygments_highlight(
00:00:33 verbose #2071 > [NbConvertApp] Writing 366117 bytes to Tasks.dib.html
00:00:34 debug #2072 execute_with_options_async / exit_code: 0 / output.Length: 153744
00:00:34 debug #3 main / executeCommand / exitCode: 0
00:00:34 verbose #4 wait_for_port_access / port: 13805 / retry: 0
00:00:36 debug #5 run_with_timeout_async / timeout: 2000
00:00:00 debug #1 writeDibCode / output: Spi / path: Tasks.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: Tasks.dib
In [ ]:
{ . "$ScriptDir/../apps/chat/build.ps1" } | Invoke-Block
Finished `release` profile [optimized] target(s) in 0.40s Compiling rustix v0.38.33 Compiling openssl-sys v0.9.102 Compiling openssl v0.10.64 Compiling native-tls v0.2.11 Compiling which v4.4.2 Compiling tempfile v3.10.1 Compiling xattr v1.3.1 Compiling tar v0.4.40 Compiling prost-build v0.9.0 Compiling binary-install v0.2.0 Compiling near-sandbox-utils v0.7.0 Compiling near-workspaces v0.10.0 Compiling tonic-build v0.6.2 Compiling opentelemetry-otlp v0.10.0 Compiling tokio-native-tls v0.3.1 Compiling hyper-tls v0.5.0 Compiling reqwest v0.11.27 Compiling near-o11y v0.20.1 Compiling near-primitives v0.20.1 Compiling near-chain-configs v0.20.1 Compiling near-jsonrpc-primitives v0.20.1 Compiling near-jsonrpc-client v0.8.0 Compiling chat_contract_tests v0.0.1 (/mnt/c/home/git/polyglot/apps/chat/contract/tests) Finished `release` profile [optimized] target(s) in 4m 44s Running `/mnt/c/home/git/polyglot/target/release/chat_contract_tests` Updated the logging layer according to `log_config.json` new: ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5282983317696, }, transaction: ExecutionOutcome { transaction_hash: CeyGwCbG8jPpytpG1BAvsw3C95TnGQjfFryn76iuWasj, block_hash: 5ftL9P4jCX2EzL4zW3wTr6hgosCDoqPQGh5WYnPS1omW, logs: [], receipt_ids: [ 8WsM4mhWNJaLK9iHmpdohTqCt9ZjscuscaidnYPECTpo, ], gas_burnt: NearGas { inner: 2427927707802, }, tokens_burnt: NearToken { inner: 242792770780200000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessReceiptId(8WsM4mhWNJaLK9iHmpdohTqCt9ZjscuscaidnYPECTpo), }, receipts: [ ExecutionOutcome { transaction_hash: 8WsM4mhWNJaLK9iHmpdohTqCt9ZjscuscaidnYPECTpo, block_hash: 5ftL9P4jCX2EzL4zW3wTr6hgosCDoqPQGh5WYnPS1omW, logs: [], receipt_ids: [ 6y1ptActdDrU1WDVE3UjhnvWg3vcajzVoqFdCtBSk5gd, ], gas_burnt: NearGas { inner: 2631873047394, }, tokens_burnt: NearToken { inner: 263187304739400000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 6y1ptActdDrU1WDVE3UjhnvWg3vcajzVoqFdCtBSk5gd, block_hash: 2RAq1XpCFGMZMHhHT8d1xzKzqo9KSY83831y26qE5wtN, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003529032856220928 outcome (success: true): outcome_gas_burnt_usd: 0.001621855708811736 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.001758091195659192 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(contract, ''): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5279539138318, }, transaction: ExecutionOutcome { transaction_hash: CKgsV32F6odvjf6FFu6LCg6vj41335qgRegjLEcPgK32, block_hash: BuU374vrqSvBQ3TDbE6pvmvpVNXwPHu12AeWShzMKWf, logs: [], receipt_ids: [ ExjhANUvjc7bs9EMojfyKEhFd1twU2ymqCihseozVtYc, ], gas_burnt: NearGas { inner: 2427972426482, }, tokens_burnt: NearToken { inner: 242797242648200000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessReceiptId(ExjhANUvjc7bs9EMojfyKEhFd1twU2ymqCihseozVtYc), }, receipts: [ ExecutionOutcome { transaction_hash: ExjhANUvjc7bs9EMojfyKEhFd1twU2ymqCihseozVtYc, block_hash: BuU374vrqSvBQ3TDbE6pvmvpVNXwPHu12AeWShzMKWf, logs: [ "claim_alias / alias: \"\" / account_id: AccountId(\n \"dev-20240422054928-97961050003167\",\n) / timestamp: 1713764970836325951", ], receipt_ids: [ 2ga7TVfjUBu66SBVwvNLCJbWrFUtdES2AaXhr2DZEAmG, ], gas_burnt: NearGas { inner: 2628384149336, }, tokens_burnt: NearToken { inner: 262838414933600000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), }, ExecutionOutcome { transaction_hash: 2ga7TVfjUBu66SBVwvNLCJbWrFUtdES2AaXhr2DZEAmG, block_hash: 4AqypwQMCAridG8v2caQKYSxBPb8GJr2mhb6mojkQBev, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ], status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), } total_gas_burnt_usd: 0.003526732144396424 outcome (success: true): outcome_gas_burnt_usd: 0.001621885580889976 outcome_tokens_burnt_usd: 0.0 outcome (success: false): outcome_gas_burnt_usd: 0.0017557606117564479 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 dev_create_account(account1): Account { id: AccountId( "dev-20240422054931-45411190950685", ), } generate_cid_borsh(account1): ViewResultDetails { result: [ 59, 0, 0, 0, 98, 97, 102, 107, 114, 101, 105, 104, 100, 119, 100, 99, 101, 102, 103, 104, 52, 100, 113, 107, 106, 118, 54, 55, 117, 122, 99, 109, 119, 55, 111, 106, 101, 101, 54, 120, 101, 100, 122, 100, 101, 116, 111, 106, 117, 122, 106, 101, 118, 116, 101, 110, 120, 113, 117, 118, 121, 107, 117, ], logs: [], } claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5699853932875, }, transaction: ExecutionOutcome { transaction_hash: Apq2NTJ2ELgcK34SD58aQ2et5mGqCbgFoMoZN77eHV1c, block_hash: 6Fqs5yMomdjrgg4S7dMp2U5XoozYNPQQ3x1GgYjztFqY, logs: [], receipt_ids: [ CCw4n1sRgyJL6zW7wXbgGNLb4dLEu3FoRdzc3y1ZMUia, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessReceiptId(CCw4n1sRgyJL6zW7wXbgGNLb4dLEu3FoRdzc3y1ZMUia), }, receipts: [ ExecutionOutcome { transaction_hash: CCw4n1sRgyJL6zW7wXbgGNLb4dLEu3FoRdzc3y1ZMUia, block_hash: 5iHT1yqQSkaiJ28EJHv7DCusAoY3YTFbL22DS2CMUP82, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240422054931-45411190950685\",\n) / timestamp: 1713764973062415898", ], receipt_ids: [ Zih8z2gCkiDASXBnTfS5m7ezJJeEp2qLy5Kz83iapzE, ], gas_burnt: NearGas { inner: 3048685528289, }, tokens_burnt: NearToken { inner: 304868552828900000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: Zih8z2gCkiDASXBnTfS5m7ezJJeEp2qLy5Kz83iapzE, block_hash: AYStxa92mLvYR77G26o8gftE6oN8DCDUeiFLodGJuKjx, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0038075024271604996 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0020365219328970516 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5524236943348, }, transaction: ExecutionOutcome { transaction_hash: ehX3fawdfoMnWLwog5gup8QNhn8v4HNRvMyvYYPuBWf, block_hash: 7N8FUzbitrKNjbMP85k7MyV462zqF2o4dLjKfgGzp7CM, logs: [], receipt_ids: [ 3iZxCv12XH1nsiQs9dCSdH86hG39MJiJrF4Ay9LzdjHb, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessReceiptId(3iZxCv12XH1nsiQs9dCSdH86hG39MJiJrF4Ay9LzdjHb), }, receipts: [ ExecutionOutcome { transaction_hash: 3iZxCv12XH1nsiQs9dCSdH86hG39MJiJrF4Ay9LzdjHb, block_hash: VBg1Nfy6zCrhfpA4AYGH7Z8SaJTkvw86uwJ67A9ofLM, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240422054931-45411190950685\",\n) / timestamp: 1713764974075592739", "Alias already claimed", ], receipt_ids: [ 9hCJ8EW9PRdNGicfm1gcDdS49LBRoW2VdEG4hQbr8pFw, ], gas_burnt: NearGas { inner: 2873068538762, }, tokens_burnt: NearToken { inner: 287306853876200000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 9hCJ8EW9PRdNGicfm1gcDdS49LBRoW2VdEG4hQbr8pFw, block_hash: 5XDkdEWmv5epVGUfy4omoiX8MDdttPFEEM8kV4FKzBan, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0036901902781564635 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0019192097838930157 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1713764973062415898, 0, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240422054931-45411190950685", ): ( 1713764973062415898, 0, ), }, ) dev_create_account(account2): Account { id: AccountId( "dev-20240422054934-53958521640064", ), } claim_alias(alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5787203712505, }, transaction: ExecutionOutcome { transaction_hash: 1Nx1ftExn1gi3CafHEywpskPvbjhrKtvrCMr8R678PG, block_hash: 3wRtF8iWCxcKhM8B5Lrv6stivLww2p7NDs26pUt3jwKx, logs: [], receipt_ids: [ pTgcbiMdmLwjSLnLfZjgrucBgNYe4MMttewPjweEeo7, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240422054934-53958521640064", ), status: SuccessReceiptId(pTgcbiMdmLwjSLnLfZjgrucBgNYe4MMttewPjweEeo7), }, receipts: [ ExecutionOutcome { transaction_hash: pTgcbiMdmLwjSLnLfZjgrucBgNYe4MMttewPjweEeo7, block_hash: 3urSkcN1ZoGB3LBXjBrd51PnNYAw623HKtuJ4BvSr6cP, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240422054934-53958521640064\",\n) / timestamp: 1713764976100047343", ], receipt_ids: [ 4VvpedU8RdVQ5PGEJu7MNqSp5PTo2zegZMw8ZX3mUN6j, ], gas_burnt: NearGas { inner: 3136035307919, }, tokens_burnt: NearToken { inner: 313603530791900000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 4VvpedU8RdVQ5PGEJu7MNqSp5PTo2zegZMw8ZX3mUN6j, block_hash: o77kyckBJwWsyz8qqfbrcKRtMDiFGJG2jzG42Xcfr3Y, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054934-53958521640064", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.00386585207995334 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002094871585689892 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias2", ( 1713764976100047343, 0, ), ), ) get_alias_map_borsh(alias2): Some( { AccountId( "dev-20240422054934-53958521640064", ): ( 1713764976100047343, 0, ), }, ) claim_alias(account2, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6091292750680, }, transaction: ExecutionOutcome { transaction_hash: 4eDbxXERztSPfBdszBGL74VyTE2StVsXqz7f9eMGuf6V, block_hash: 3Mthp6tU7pwRstXGpDzJipqBWfsMrjNdkSj8497PfKVv, logs: [], receipt_ids: [ 4Y4TGMS1SbwMoTvPEqv4VMcTfai8t5QbUaPZrYoaw7p9, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240422054934-53958521640064", ), status: SuccessReceiptId(4Y4TGMS1SbwMoTvPEqv4VMcTfai8t5QbUaPZrYoaw7p9), }, receipts: [ ExecutionOutcome { transaction_hash: 4Y4TGMS1SbwMoTvPEqv4VMcTfai8t5QbUaPZrYoaw7p9, block_hash: 9kk2L3a7Fu8UTaZqqXjw1GbmRVMMP2um5Ds1U7rczzaH, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240422054934-53958521640064\",\n) / timestamp: 1713764977111641154", ], receipt_ids: [ 45J1BuhKLz3wrcv47ukiGKUwuZnpkTJ66LTTL2XbE5pz, ], gas_burnt: NearGas { inner: 3440124346094, }, tokens_burnt: NearToken { inner: 344012434609400000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 45J1BuhKLz3wrcv47ukiGKUwuZnpkTJ66LTTL2XbE5pz, block_hash: DfvNXJzogUs9KcHH5QeuGrLnEgofSPENzVAGZEjWMF93, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054934-53958521640064", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.00406898355745424 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298003063190792 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias1", ( 1713764977111641154, 1, ), ), ) get_alias_map(account2, alias1): Some( { AccountId( "dev-20240422054934-53958521640064", ): ( 1713764977111641154, 1, ), AccountId( "dev-20240422054931-45411190950685", ): ( 1713764973062415898, 0, ), }, ) get_alias_map(account2, alias2): Some( {}, ) claim_alias(account1, alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6085971987628, }, transaction: ExecutionOutcome { transaction_hash: EmvQxLyt8Y7WyPaRRk2Dqni4aQnKPpuBtnK4NdUXPDbM, block_hash: DAQLf4BDfVNABqLmx564WMNvvLMrd7isrJdSaKzKKJ4T, logs: [], receipt_ids: [ B5a8U7R4qhaaNcuVhJwtBf1nKPcuK2ECzaNeZtBjwXdp, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessReceiptId(B5a8U7R4qhaaNcuVhJwtBf1nKPcuK2ECzaNeZtBjwXdp), }, receipts: [ ExecutionOutcome { transaction_hash: B5a8U7R4qhaaNcuVhJwtBf1nKPcuK2ECzaNeZtBjwXdp, block_hash: 2euyPzQvzuLeNgZEEcuaEtCAW4ZEAkhwQkayXZAco8jN, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240422054931-45411190950685\",\n) / timestamp: 1713764978122140366", ], receipt_ids: [ F36CGppc6BtCMF26i31RBjKLK5Lz7mdk9jDPjhERfWaP, ], gas_burnt: NearGas { inner: 3434803583042, }, tokens_burnt: NearToken { inner: 343480358304200000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: F36CGppc6BtCMF26i31RBjKLK5Lz7mdk9jDPjhERfWaP, block_hash: 4iwkHbvxjjNtzUiHGJwKjKhhByMZN5gpNoYsxNRuRX6G, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004065429287735504 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002294448793472056 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias2", ( 1713764978122140366, 0, ), ), ) get_alias_map(account1, alias2): Some( { AccountId( "dev-20240422054931-45411190950685", ): ( 1713764978122140366, 0, ), }, ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240422054934-53958521640064", ): ( 1713764977111641154, 1, ), }, ) claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6091292750680, }, transaction: ExecutionOutcome { transaction_hash: 8qDtR9ayStPnsF53N8yWUzxDVVQRrepbw9QmKNM3BPxo, block_hash: 8A1sEMwnrwdMv7wPqTTS8fD6f3oYCEdTWCn2qoNi8F6L, logs: [], receipt_ids: [ 9PsNSmok56DLG6PUckQ6fUQog5HqUam4xuiHgkpiBgWm, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessReceiptId(9PsNSmok56DLG6PUckQ6fUQog5HqUam4xuiHgkpiBgWm), }, receipts: [ ExecutionOutcome { transaction_hash: 9PsNSmok56DLG6PUckQ6fUQog5HqUam4xuiHgkpiBgWm, block_hash: 99fex8tB7Wi59AqTNYvcDbBtR8FRa2CxgR4acma6kb7e, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240422054931-45411190950685\",\n) / timestamp: 1713764979133326477", ], receipt_ids: [ 3xV5veCd1EH42ZidfDzk24AUfThaD3LF6eNhbUhABKhv, ], gas_burnt: NearGas { inner: 3440124346094, }, tokens_burnt: NearToken { inner: 344012434609400000000, }, executor_id: AccountId( "dev-20240422054928-97961050003167", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 3xV5veCd1EH42ZidfDzk24AUfThaD3LF6eNhbUhABKhv, block_hash: 4yrb13Dc3va6SiBcFSZY6KKSPEMf4kYH2wHemhBrVepX, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240422054931-45411190950685", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.00406898355745424 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298003063190792 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1713764979133326477, 1, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240422054931-45411190950685", ): ( 1713764979133326477, 1, ), AccountId( "dev-20240422054934-53958521640064", ): ( 1713764977111641154, 0, ), }, ) get_alias_map(account1, alias2): Some( {}, )
In [ ]:
{ . "$ScriptDir/../apps/spiral/temp/extension/build.ps1" } | Invoke-Block
bun install v1.1.0 (5903a614) Checked 11 installs across 13 packages (no changes) [139.00ms] [INFO]: 🎯 Checking for the Wasm target... [INFO]: 🌀 Compiling to Wasm... Compiling thiserror v1.0.59 Compiling thiserror-impl v1.0.59 Compiling toml_edit v0.22.12 Compiling rstml v0.11.2 Compiling gloo-net v0.5.0 Compiling serde_qs v0.12.0 Compiling leptos_reactive v0.6.11 Compiling rexie v0.5.0 Compiling server_fn v0.6.11 Compiling toml v0.8.12 Compiling config v0.14.0 Compiling leptos_hot_reload v0.6.11 Compiling leptos_config v0.6.11 Compiling leptos_dom v0.6.11 Compiling leptos_macro v0.6.11 Compiling leptos_server v0.6.11 Compiling leptos v0.6.11 Compiling leptos_meta v0.6.11 Compiling leptos_router v0.6.11 Compiling spiral_temp_extension v0.0.1 (C:\home\git\polyglot\apps\spiral\temp\extension) Finished `dev` profile [unoptimized + debuginfo] target(s) in 50.79s [INFO]: ⬇️ Installing wasm-bindgen... [INFO]: origin crate has no LICENSE [INFO]: ✨ Done in 52.87s [INFO]: 📦 Your wasm pkg is ready to publish at C:\home\git\polyglot\apps\spiral\temp\extension\pkg. ▲ [WARNING] "import.meta" is not available with the "iife" output format and will be empty [empty-import-meta] pkg/spiral_temp_extension.js:1504:57: 1504 │ ...put = new URL('spiral_temp_extension_bg.wasm', import.meta.url); ╵ ~~~~~~~~~~~ You need to set the output format to "esm" for "import.meta" to work correctly. 1 warning dist\spiral_temp_extension_bg-2LSRP77L.wasm 4.6mb ⚠️ dist\devtools.js 29.0kb dist\content_script.js 27.4kb dist\service_worker.js 2.2kb ⚡ Done in 119ms $ playwright test [WebServer] (node:18448) [DEP0040] DeprecationWarning: The `punycode` module is deprecated. Please use a userland alternative instead. (Use `node --trace-deprecation ...` to show where the warning was created) Running 3 tests using 3 workers [1/3] [Desktop Chrome] › extension.spec.ts:8:5 › popup extension [2/3] [Desktop Chrome] › extension.spec.ts:13:5 › libgen [3/3] [Desktop Chrome] › extension.spec.ts:3:5 › popup localhost 3 passed (20.3s) To open last HTML report run: npx playwright show-report
In [ ]:
{ . "$ScriptDir/../apps/spiral/temp/test/build.ps1" } | Invoke-Block
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\spiral\temp\test / path: build.dib / _args: null
── pwsh ────────────────────────────────────────────────────────────────────────
. ../../../../scripts/nbs_header.ps1
. ../../../../scripts/core.ps1
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/spiral/dist/Supervisor$(GetExecutableSuffix)
--execute-command "pwsh -c `"../../../../scripts/invoke-dib.ps1 test.dib`"" } |
Invoke-Block -Retries 5
╭─[ 23.97s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:00 debug #1 run_with_timeout_async / timeout: 60 │
│ 00:00:00 debug #1 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:main@437-6>, Some "C:\home\git\polyglot") │
│ 00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:01 debug #2 run_with_timeout_async / timeout: 500 │
│ 00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:02 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:02 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:02 verbose #6 > Server bound to: http://localhost:13805 │
│ 00:00:02 debug #7 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "pwsh -c "../../../../scripts/invoke-dib.ps1 test.dib"", None, None) │
│ 00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: │
│ C:\home\git\polyglot\apps\spiral\temp\test / path: test.dib / _args: null │
│ 00:00:06 verbose #9 > │
│ 00:00:06 verbose #10 > ── markdown │
│ ──────────────────────────────────────────────────────────────────── │
│ 00:00:06 verbose #11 > │
│ ╭─────────────────────────────────────────────────────────────────────────── │
│ ───╮ │
│ 00:00:06 verbose #12 > │ # test (Polyglot) │
│ │ │
│ 00:00:06 verbose #13 > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:06 verbose #14 > │
│ 00:00:06 verbose #15 > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:06 verbose #16 > // // test │
│ 00:00:06 verbose #17 > │
│ 00:00:06 verbose #18 > open testing │
│ 00:00:09 verbose #19 > 00:00:08 debug #4 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8837341da068f4ef42 │
│ 71045b3ef1c89d209237bf74b4f11596b6ee2d484becb0/main.spi │
│ 00:00:11 verbose #20 > │
│ 00:00:11 verbose #21 > ╭─[ 5.08s - stdout │
│ ]───────────────────────────────────────────────────────────╮ │
│ 00:00:11 verbose #22 > │ () │
│ │ │
│ 00:00:11 verbose #23 > │ │
│ │
│ │ │
│ 00:00:11 verbose #24 > │ │
│ │
│ │ │
│ 00:00:11 verbose #25 > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:11 verbose #26 > │
│ 00:00:11 verbose #27 > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:11 verbose #28 > nominal i = () │
│ 00:00:11 verbose #29 > nominal e = () │
│ 00:00:11 verbose #30 > nominal s = () │
│ 00:00:11 verbose #31 > nominal n = () │
│ 00:00:11 verbose #32 > nominal t = () │
│ 00:00:11 verbose #33 > nominal f = () │
│ 00:00:11 verbose #34 > nominal j = () │
│ 00:00:11 verbose #35 > nominal p = () │
│ 00:00:11 verbose #36 > │
│ 00:00:11 verbose #37 > union sensing = │
│ 00:00:11 verbose #38 > | Si : s * i │
│ 00:00:11 verbose #39 > | Se : s * e │
│ 00:00:11 verbose #40 > │
│ 00:00:11 verbose #41 > union intuition = │
│ 00:00:11 verbose #42 > | Ni : n * i │
│ 00:00:11 verbose #43 > | Ne : n * e │
│ 00:00:11 verbose #44 > │
│ 00:00:11 verbose #45 > union thinking = │
│ 00:00:11 verbose #46 > | Ti : t * i │
│ 00:00:11 verbose #47 > | Te : t * e │
│ 00:00:11 verbose #48 > │
│ 00:00:11 verbose #49 > union feeling = │
│ 00:00:11 verbose #50 > | Fi : f * i │
│ 00:00:11 verbose #51 > | Fe : f * e │
│ 00:00:11 verbose #52 > │
│ 00:00:11 verbose #53 > union function_stack = │
│ 00:00:11 verbose #54 > | FS : sensing * intuition * thinking * feeling │
│ 00:00:11 verbose #55 > │
│ 00:00:11 verbose #56 > union personality_type = │
│ 00:00:11 verbose #57 > | ISTJ : i * s * t * j * function_stack │
│ 00:00:11 verbose #58 > | ISFJ : i * s * f * j * function_stack │
│ 00:00:11 verbose #59 > | INFJ : i * n * f * j * function_stack │
│ 00:00:11 verbose #60 > | INTJ : i * n * t * j * function_stack │
│ 00:00:11 verbose #61 > | ISTP : i * s * t * p * function_stack │
│ 00:00:11 verbose #62 > | ISFP : i * s * f * p * function_stack │
│ 00:00:11 verbose #63 > | INFP : i * n * f * p * function_stack │
│ 00:00:11 verbose #64 > | INTP : i * n * t * p * function_stack │
│ 00:00:11 verbose #65 > | ESTP : e * s * t * p * function_stack │
│ 00:00:11 verbose #66 > | ESFP : e * s * f * p * function_stack │
│ 00:00:11 verbose #67 > | ENFP : e * n * f * p * function_stack │
│ 00:00:11 verbose #68 > | ENTP : e * n * t * p * function_stack │
│ 00:00:11 verbose #69 > | ESTJ : e * s * t * j * function_stack │
│ 00:00:11 verbose #70 > | ESFJ : e * s * f * j * function_stack │
│ 00:00:11 verbose #71 > | ENFJ : e * n * f * j * function_stack │
│ 00:00:11 verbose #72 > | ENTJ : e * n * t * j * function_stack │
│ 00:00:11 verbose #73 > │
│ 00:00:11 verbose #74 > │
│ 00:00:11 verbose #75 > inl main () = │
│ 00:00:11 verbose #76 > inl istj_stack = FS ((Si (s, i)), Ne (n, e), (Te │
│ (t, e)), (Fi (f, i))) │
│ 00:00:11 verbose #77 > inl istj_personality = ISTJ (i, s, t, j, │
│ istj_stack) │
│ 00:00:11 verbose #78 > // inl isfj_stack = FS ((Si (s, i)), Ne (n, e), │
│ (Fe (f, e)), (Ti (t, i))) │
│ 00:00:11 verbose #79 > // inl isfj_personality = ISFJ (i, s, f, j, │
│ isfj_stack) │
│ 00:00:11 verbose #80 > │
│ 00:00:11 verbose #81 > ;[[ │
│ 00:00:11 verbose #82 > istj_personality │
│ 00:00:11 verbose #83 > ]] │
│ 00:00:11 verbose #84 > |> fun x => $'$"%A{!x}"' : string │
│ 00:00:11 verbose #85 > |> console.write_line │
│ 00:00:11 verbose #86 > │
│ 00:00:11 verbose #87 > inl main () = │
│ 00:00:11 verbose #88 > $"!main ()" : () │
│ 00:00:11 verbose #89 > 00:00:10 debug #5 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/896eb5e4f49dc571cf │
│ d998d8dd04fa4597ef12c513a22c93b9dcddcbf0c87da2/main.spi │
│ 00:00:13 verbose #90 > │
│ 00:00:13 verbose #91 > ╭─[ 1.93s - stdout │
│ ]───────────────────────────────────────────────────────────╮ │
│ 00:00:13 verbose #92 > │ type [<Struct>] US0 = │
│ │ │
│ 00:00:13 verbose #93 > │ | US0_0 │
│ │ │
│ 00:00:13 verbose #94 > │ | US0_1 │
│ │ │
│ 00:00:13 verbose #95 > │ and [<Struct>] US1 = │
│ │ │
│ 00:00:13 verbose #96 > │ | US1_0 │
│ │ │
│ 00:00:13 verbose #97 > │ | US1_1 │
│ │ │
│ 00:00:13 verbose #98 > │ and [<Struct>] US2 = │
│ │ │
│ 00:00:13 verbose #99 > │ | US2_0 │
│ │ │
│ 00:00:13 verbose #100 > │ | US2_1 │
│ │ │
│ 00:00:13 verbose #101 > │ and [<Struct>] US3 = │
│ │ │
│ 00:00:13 verbose #102 > │ | US3_0 │
│ │ │
│ 00:00:13 verbose #103 > │ | US3_1 │
│ │ │
│ 00:00:13 verbose #104 > │ and [<Struct>] US4 = │
│ │ │
│ 00:00:13 verbose #105 > │ | US4_0 of f0_0 : US0 * f0_1 : US1 * f0_2 : │
│ US2 * f0_3 : US3 │ │
│ 00:00:13 verbose #106 > │ and [<Struct>] US5 = │
│ │ │
│ 00:00:13 verbose #107 > │ | US5_0 of f0_0 : US4 │
│ │ │
│ 00:00:13 verbose #108 > │ | US5_1 of f1_0 : US4 │
│ │ │
│ 00:00:13 verbose #109 > │ | US5_2 of f2_0 : US4 │
│ │ │
│ 00:00:13 verbose #110 > │ | US5_3 of f3_0 : US4 │
│ │ │
│ 00:00:13 verbose #111 > │ | US5_4 of f4_0 : US4 │
│ │ │
│ 00:00:13 verbose #112 > │ | US5_5 of f5_0 : US4 │
│ │ │
│ 00:00:13 verbose #113 > │ | US5_6 of f6_0 : US4 │
│ │ │
│ 00:00:13 verbose #114 > │ | US5_7 of f7_0 : US4 │
│ │ │
│ 00:00:13 verbose #115 > │ | US5_8 of f8_0 : US4 │
│ │ │
│ 00:00:13 verbose #116 > │ | US5_9 of f9_0 : US4 │
│ │ │
│ 00:00:13 verbose #117 > │ | US5_10 of f10_0 : US4 │
│ │ │
│ 00:00:13 verbose #118 > │ | US5_11 of f11_0 : US4 │
│ │ │
│ 00:00:13 verbose #119 > │ | US5_12 of f12_0 : US4 │
│ │ │
│ 00:00:13 verbose #120 > │ | US5_13 of f13_0 : US4 │
│ │ │
│ 00:00:13 verbose #121 > │ | US5_14 of f14_0 : US4 │
│ │ │
│ 00:00:13 verbose #122 > │ | US5_15 of f15_0 : US4 │
│ │ │
│ 00:00:13 verbose #123 > │ let rec closure0 () () : unit = │
│ │ │
│ 00:00:13 verbose #124 > │ let v0 : US0 = US0_0 │
│ │ │
│ 00:00:13 verbose #125 > │ let v1 : US1 = US1_1 │
│ │ │
│ 00:00:13 verbose #126 > │ let v2 : US2 = US2_1 │
│ │ │
│ 00:00:13 verbose #127 > │ let v3 : US3 = US3_0 │
│ │ │
│ 00:00:13 verbose #128 > │ let v4 : US4 = US4_0(v0, v1, v2, v3) │
│ │ │
│ 00:00:13 verbose #129 > │ let v5 : US5 = US5_0(v4) │
│ │ │
│ 00:00:13 verbose #130 > │ let v6 : (US5 []) = [|v5|] │
│ │ │
│ 00:00:13 verbose #131 > │ let v7 : string = $"%A{v6}" │
│ │ │
│ 00:00:13 verbose #132 > │ System.Console.WriteLine v7 │
│ │ │
│ 00:00:13 verbose #133 > │ () │
│ │ │
│ 00:00:13 verbose #134 > │ let v0 : (unit -> unit) = closure0() │
│ │ │
│ 00:00:13 verbose #135 > │ v0 () │
│ │ │
│ 00:00:13 verbose #136 > │ () │
│ │ │
│ 00:00:13 verbose #137 > │ │
│ │
│ │ │
│ 00:00:13 verbose #138 > │ [|US5_0 (US4_0 (US0_0, US1_1, US2_1, US3_0))|] │
│ │ │
│ 00:00:13 verbose #139 > │ │
│ │
│ │ │
│ 00:00:13 verbose #140 > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:13 verbose #141 > │
│ 00:00:13 verbose #142 > ── fsharp │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:13 verbose #143 > type PhonologicalFeature = │
│ 00:00:13 verbose #144 > | VowelFeature of │
│ 00:00:13 verbose #145 > height: Height │
│ 00:00:13 verbose #146 > * backness: Backness │
│ 00:00:13 verbose #147 > * roundedness: Roundedness │
│ 00:00:13 verbose #148 > * tone: Option<Tone> │
│ 00:00:13 verbose #149 > * stress: Option<Stress> │
│ 00:00:13 verbose #150 > * length: Option<Length> │
│ 00:00:13 verbose #151 > | ConsonantFeature of │
│ 00:00:13 verbose #152 > place: PlaceOfArticulation │
│ 00:00:13 verbose #153 > * manner: MannerOfArticulation │
│ 00:00:13 verbose #154 > * voicing: Voicing │
│ 00:00:13 verbose #155 > * length: Option<Length> │
│ 00:00:13 verbose #156 > | VowelHarmonyFeature │
│ 00:00:13 verbose #157 > | PitchAccentFeature │
│ 00:00:13 verbose #158 > │
│ 00:00:13 verbose #159 > and Stress = Primary | Secondary │
│ 00:00:13 verbose #160 > and Length = Long | Short | HalfLong │
│ 00:00:13 verbose #161 > │
│ 00:00:13 verbose #162 > and Height = │
│ 00:00:13 verbose #163 > | High | NearHigh | HighMid │
│ 00:00:13 verbose #164 > | Mid | LowMid | NearLow │
│ 00:00:13 verbose #165 > | Low │
│ 00:00:13 verbose #166 > │
│ 00:00:13 verbose #167 > and Backness = Front | Central | Back │
│ 00:00:13 verbose #168 > │
│ 00:00:13 verbose #169 > and Roundedness = Rounded | Unrounded │
│ 00:00:13 verbose #170 > │
│ 00:00:13 verbose #171 > and PlaceOfArticulation = │
│ 00:00:13 verbose #172 > | Bilabial | Labiodental | Dental │
│ 00:00:13 verbose #173 > | Alveolar | Postalveolar | Retroflex │
│ 00:00:13 verbose #174 > | Palatal | Velar | Uvular │
│ 00:00:13 verbose #175 > | Pharyngeal | Epiglottal | Glottal │
│ 00:00:13 verbose #176 > │
│ 00:00:13 verbose #177 > and MannerOfArticulation = │
│ 00:00:13 verbose #178 > | Plosive | Nasal | Trill │
│ 00:00:13 verbose #179 > | TapOrFlap | Fricative | LateralFricative │
│ 00:00:13 verbose #180 > | Approximant | LateralApproximant │
│ 00:00:13 verbose #181 > │
│ 00:00:13 verbose #182 > and Voicing = Voiced | Voiceless │
│ 00:00:13 verbose #183 > │
│ 00:00:13 verbose #184 > and SecondaryArticulation = │
│ 00:00:13 verbose #185 > | Labialization | Palatalization | Velarization │
│ 00:00:13 verbose #186 > | Pharyngealization | Aspiration │
│ 00:00:13 verbose #187 > │
│ 00:00:13 verbose #188 > and Tone = │
│ 00:00:13 verbose #189 > | LevelTone of int │
│ 00:00:13 verbose #190 > | ContourTone of int list │
│ 00:00:13 verbose #191 > │
│ 00:00:13 verbose #192 > and MorphologicalFeature = │
│ 00:00:13 verbose #193 > | RootFeature of string │
│ 00:00:13 verbose #194 > | AffixFeature of AffixType * string │
│ 00:00:13 verbose #195 > | IncorporationFeature of string * │
│ MorphologicalFeature │
│ 00:00:13 verbose #196 > | NonConcatenativePattern of string * string │
│ 00:00:13 verbose #197 > | AgglutinativeAffixFeature of │
│ AgglutinativeAffixType * string │
│ 00:00:13 verbose #198 > | HonorificFeature of HonorificType * string │
│ 00:00:13 verbose #199 > │
│ 00:00:13 verbose #200 > and AgglutinativeAffixType = Suffix | Prefix │
│ 00:00:13 verbose #201 > │
│ 00:00:13 verbose #202 > and HonorificType = VerbHonorific | NounHonorific │
│ 00:00:13 verbose #203 > │
│ 00:00:13 verbose #204 > and AffixType = │
│ 00:00:13 verbose #205 > | Prefix | Suffix | Infix │
│ 00:00:13 verbose #206 > | Circumfix │
│ 00:00:13 verbose #207 > │
│ 00:00:13 verbose #208 > type SyntacticFeature = │
│ 00:00:13 verbose #209 > | WordFeature of MorphologicalFeature list * │
│ LexicalCategory │
│ 00:00:13 verbose #210 > | PhraseFeature of PhraseType * SyntacticFeature │
│ list │
│ 00:00:13 verbose #211 > | GrammaticalRelation of GrammaticalRelationType │
│ * SyntacticFeature list │
│ 00:00:13 verbose #212 > | SOVOrderFeature │
│ 00:00:13 verbose #213 > | TopicCommentFeature │
│ 00:00:13 verbose #214 > │
│ 00:00:13 verbose #215 > and GrammaticalRelationType = │
│ 00:00:13 verbose #216 > | Ergative | Absolutive | Nominative │
│ 00:00:13 verbose #217 > | Accusative │
│ 00:00:13 verbose #218 > │
│ 00:00:13 verbose #219 > and LexicalCategory = │
│ 00:00:13 verbose #220 > | Noun | Verb | Adjective │
│ 00:00:13 verbose #221 > | Adverb | Pronoun | Preposition │
│ 00:00:13 verbose #222 > | Conjunction | Determiner | Interjection │
│ 00:00:13 verbose #223 > │
│ 00:00:13 verbose #224 > and PhraseType = │
│ 00:00:13 verbose #225 > | NP | VP | AP │
│ 00:00:13 verbose #226 > | PP | CP │
│ 00:00:13 verbose #227 > │
│ 00:00:13 verbose #228 > and SemanticFeature = │
│ 00:00:13 verbose #229 > | Meaning of string │
│ 00:00:13 verbose #230 > | SemanticRole of SemanticRoleType * │
│ SemanticFeature │
│ 00:00:13 verbose #231 > │
│ 00:00:13 verbose #232 > and SemanticRoleType = │
│ 00:00:13 verbose #233 > | Agent | Patient | Instrument │
│ 00:00:13 verbose #234 > | Location | Time | Cause │
│ 00:00:13 verbose #235 > │
│ 00:00:13 verbose #236 > and PragmaticFeature = │
│ 00:00:13 verbose #237 > | UseContext of string │
│ 00:00:13 verbose #238 > | PolitenessLevel of Politeness │
│ 00:00:13 verbose #239 > | SpeechAct of SpeechActType │
│ 00:00:13 verbose #240 > | SpeechLevel of SpeechLevelType │
│ 00:00:13 verbose #241 > │
│ 00:00:13 verbose #242 > and Politeness = Formal | Informal | Neutral │
│ 00:00:13 verbose #243 > │
│ 00:00:13 verbose #244 > and SpeechActType = │
│ 00:00:13 verbose #245 > | Assertive | Directive | Commissive │
│ 00:00:13 verbose #246 > | Expressive | Declarative │
│ 00:00:13 verbose #247 > │
│ 00:00:13 verbose #248 > and SpeechLevelType = │
│ 00:00:13 verbose #249 > | FormalHigh | FormalLow | InformalHigh │
│ 00:00:13 verbose #250 > | InformalLow | Neutral │
│ 00:00:13 verbose #251 > │
│ 00:00:13 verbose #252 > type LinguisticFeature = │
│ 00:00:13 verbose #253 > | Phonological of PhonologicalFeature │
│ 00:00:13 verbose #254 > | Morphological of MorphologicalFeature │
│ 00:00:13 verbose #255 > | Syntactic of SyntacticFeature │
│ 00:00:13 verbose #256 > | Semantic of SemanticFeature │
│ 00:00:13 verbose #257 > | Pragmatic of PragmaticFeature │
│ 00:00:13 verbose #258 > │
│ 00:00:13 verbose #259 > type LanguageConstruct = │
│ 00:00:13 verbose #260 > | LanguageElement of LinguisticFeature │
│ 00:00:13 verbose #261 > | LanguageStructure of LanguageConstruct list │
│ 00:00:13 verbose #262 > | TranslationElement of TranslationFeature │
│ 00:00:13 verbose #263 > │
│ 00:00:13 verbose #264 > and TranslationFeature = │
│ 00:00:13 verbose #265 > | LinkedPhonological of PhonologicalFeature * │
│ PhonologicalFeature │
│ 00:00:13 verbose #266 > | LinkedMorphological of MorphologicalFeature * │
│ MorphologicalFeature │
│ 00:00:13 verbose #267 > | LinkedSyntactic of SyntacticFeature * │
│ SyntacticFeature │
│ 00:00:13 verbose #268 > | LinkedSemantic of SemanticFeature * │
│ SemanticFeature │
│ 00:00:13 verbose #269 > │
│ 00:00:13 verbose #270 > type Discourse = DiscourseUnit of LanguageConstruct │
│ list │
│ 00:00:13 verbose #271 > │
│ 00:00:13 verbose #272 > type LanguageModel = │
│ 00:00:13 verbose #273 > | Model of discourse: Discourse │
│ 00:00:13 verbose #274 > │
│ 00:00:13 verbose #275 > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:13 verbose #276 > #r │
│ 00:00:13 verbose #277 > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.A │
│ 00:00:13 verbose #278 > spNetCore.Html.Abstractions.dll" │
│ 00:00:13 verbose #279 > #r │
│ 00:00:13 verbose #280 > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:13 verbose #281 > otNet.Interactive.dll" │
│ 00:00:13 verbose #282 > #r │
│ 00:00:13 verbose #283 > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:13 verbose #284 > otNet.Interactive.FSharp.dll" │
│ 00:00:13 verbose #285 > #r │
│ 00:00:13 verbose #286 > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:13 verbose #287 > otNet.Interactive.Formatting.dll" │
│ 00:00:13 verbose #288 > open System │
│ 00:00:13 verbose #289 > open System.IO │
│ 00:00:13 verbose #290 > open System.Text │
│ 00:00:13 verbose #291 > open Microsoft.DotNet.Interactive.Formatting │
│ 00:00:14 verbose #292 > │
│ 00:00:14 verbose #293 > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:14 verbose #294 > #r │
│ 00:00:14 verbose #295 > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:14 verbose #296 > otNet.Interactive.FSharp.dll" │
│ 00:00:14 verbose #297 > open │
│ Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers │
│ 00:00:14 verbose #298 > #r │
│ 00:00:14 verbose #299 > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:14 verbose #300 > otNet.Interactive.dll" │
│ 00:00:14 verbose #301 > open type Microsoft.DotNet.Interactive.Kernel │
│ 00:00:14 verbose #302 > │
│ 00:00:14 verbose #303 > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:14 verbose #304 > type PhonologicalFeature = │
│ 00:00:14 verbose #305 > | VowelFeature of │
│ 00:00:14 verbose #306 > height: Height │
│ 00:00:14 verbose #307 > * backness: Backness │
│ 00:00:14 verbose #308 > * roundedness: Roundedness │
│ 00:00:14 verbose #309 > * tone: Option<Tone> │
│ 00:00:14 verbose #310 > * stress: Option<Stress> │
│ 00:00:14 verbose #311 > * length: Option<Length> │
│ 00:00:14 verbose #312 > | ConsonantFeature of │
│ 00:00:14 verbose #313 > place: PlaceOfArticulation │
│ 00:00:14 verbose #314 > * manner: MannerOfArticulation │
│ 00:00:14 verbose #315 > * voicing: Voicing │
│ 00:00:14 verbose #316 > * length: Option<Length> │
│ 00:00:14 verbose #317 > | VowelHarmonyFeature │
│ 00:00:14 verbose #318 > | PitchAccentFeature │
│ 00:00:14 verbose #319 > │
│ 00:00:14 verbose #320 > and Stress = Primary | Secondary │
│ 00:00:14 verbose #321 > and Length = Long | Short | HalfLong │
│ 00:00:14 verbose #322 > │
│ 00:00:14 verbose #323 > and Height = │
│ 00:00:14 verbose #324 > | High | NearHigh | HighMid │
│ 00:00:14 verbose #325 > | Mid | LowMid | NearLow │
│ 00:00:14 verbose #326 > | Low │
│ 00:00:14 verbose #327 > │
│ 00:00:14 verbose #328 > and Backness = Front | Central | Back │
│ 00:00:14 verbose #329 > │
│ 00:00:14 verbose #330 > and Roundedness = Rounded | Unrounded │
│ 00:00:14 verbose #331 > │
│ 00:00:14 verbose #332 > and PlaceOfArticulation = │
│ 00:00:14 verbose #333 > | Bilabial | Labiodental | Dental │
│ 00:00:14 verbose #334 > | Alv... │
│ 00:00:16 verbose #335 > │
│ 00:00:16 verbose #336 > ── fsharp │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:16 verbose #337 > let testEnglish = │
│ 00:00:16 verbose #338 > Model( │
│ 00:00:16 verbose #339 > DiscourseUnit [[ │
│ 00:00:16 verbose #340 > LanguageElement (Phonological │
│ (ConsonantFeature (Alveolar, Nasal, │
│ 00:00:16 verbose #341 > Voiced, Some(HalfLong)))); │
│ 00:00:16 verbose #342 > LanguageElement (Phonological │
│ (VowelFeature (High, Front, Unrounded, │
│ 00:00:16 verbose #343 > Some(LevelTone 1), Some(Primary), Some(Short)))); │
│ 00:00:16 verbose #344 > LanguageElement (Phonological │
│ (VowelFeature (Low, Front, Unrounded, │
│ 00:00:16 verbose #345 > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
│ 00:00:16 verbose #346 > LanguageElement (Phonological │
│ (ConsonantFeature (Velar, Plosive, │
│ 00:00:16 verbose #347 > Voiceless, Some(HalfLong)))); │
│ 00:00:16 verbose #348 > LanguageElement (Morphological │
│ (RootFeature "I")); │
│ 00:00:16 verbose #349 > LanguageElement (Morphological │
│ (RootFeature "see")); │
│ 00:00:16 verbose #350 > LanguageElement (Morphological │
│ (RootFeature "a")); │
│ 00:00:16 verbose #351 > LanguageElement (Morphological │
│ (RootFeature "cat")); │
│ 00:00:16 verbose #352 > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:16 verbose #353 > ([[RootFeature "I"]], Pronoun)]]))); │
│ 00:00:16 verbose #354 > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:16 verbose #355 > ([[RootFeature "see"]], Verb)]]))); │
│ 00:00:16 verbose #356 > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:16 verbose #357 > ([[RootFeature "a"; RootFeature "cat"]], Noun)]]))); │
│ 00:00:16 verbose #358 > LanguageElement (Semantic (Meaning │
│ "Perception act of a feline by │
│ 00:00:16 verbose #359 > the speaker")); │
│ 00:00:16 verbose #360 > LanguageElement (Pragmatic (UseContext │
│ "Statement of an action being │
│ 00:00:16 verbose #361 > observed")) │
│ 00:00:16 verbose #362 > ]] │
│ 00:00:16 verbose #363 > ) │
│ 00:00:16 verbose #364 > │
│ 00:00:16 verbose #365 > let testPortuguese = │
│ 00:00:16 verbose #366 > Model( │
│ 00:00:16 verbose #367 > DiscourseUnit [[ │
│ 00:00:16 verbose #368 > LanguageElement (Phonological │
│ (VowelFeature (High, Front, Unrounded, │
│ 00:00:16 verbose #369 > Some(LevelTone 1), Some(Primary), Some(Short)))); │
│ 00:00:16 verbose #370 > LanguageElement (Phonological │
│ (VowelFeature (Low, Front, Unrounded, │
│ 00:00:16 verbose #371 > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
│ 00:00:16 verbose #372 > LanguageElement (Phonological │
│ (VowelFeature (Mid, Back, Rounded, │
│ 00:00:16 verbose #373 > Some(LevelTone 3), Some(Primary), Some(Short)))); │
│ 00:00:16 verbose #374 > LanguageElement (Phonological │
│ (ConsonantFeature (Velar, Plosive, │
│ 00:00:16 verbose #375 > Voiceless, Some(HalfLong)))); │
│ 00:00:16 verbose #376 > LanguageElement (Morphological │
│ (RootFeature "Eu")); │
│ 00:00:16 verbose #377 > LanguageElement (Morphological │
│ (RootFeature "ver" |> ignore; │
│ 00:00:16 verbose #378 > AffixFeature (Suffix, "o"))); │
│ 00:00:16 verbose #379 > LanguageElement (Morphological │
│ (RootFeature "um")); │
│ 00:00:16 verbose #380 > LanguageElement (Morphological │
│ (RootFeature "gato")); │
│ 00:00:16 verbose #381 > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:16 verbose #382 > ([[RootFeature "Eu"]], Pronoun)]]))); │
│ 00:00:16 verbose #383 > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:16 verbose #384 > ([[RootFeature "vejo"]], Verb)]]))); │
│ 00:00:16 verbose #385 > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:16 verbose #386 > ([[RootFeature "um"; RootFeature "gato"]], │
│ Noun)]]))); │
│ 00:00:16 verbose #387 > LanguageElement (Semantic (Meaning "Ação │
│ de percepção de um felino │
│ 00:00:16 verbose #388 > pelo falante")); │
│ 00:00:16 verbose #389 > LanguageElement (Pragmatic (UseContext │
│ "Declaração de uma ação sendo │
│ 00:00:16 verbose #390 > observada")) │
│ 00:00:16 verbose #391 > ]] │
│ 00:00:16 verbose #392 > ) │
│ 00:00:16 verbose #393 > │
│ 00:00:16 verbose #394 > let testKorean = │
│ 00:00:16 verbose #395 > Model( │
│ 00:00:16 verbose #396 > DiscourseUnit [[ │
│ 00:00:16 verbose #397 > LanguageElement (Phonological │
│ (ConsonantFeature (Alveolar, Nasal, │
│ 00:00:16 verbose #398 > Voiced, Some(Short)))); │
│ 00:00:16 verbose #399 > LanguageElement (Phonological │
│ (VowelFeature (High, Back, Rounded, │
│ 00:00:16 verbose #400 > None, None, Some(Short)))); │
│ 00:00:16 verbose #401 > LanguageElement (Phonological │
│ (VowelFeature (Mid, Front, Unrounded, │
│ 00:00:16 verbose #402 > None, None, Some(Long)))); │
│ 00:00:16 verbose #403 > LanguageElement (Phonological │
│ (ConsonantFeature (Bilabial, Plosive, │
│ 00:00:16 verbose #404 > Voiceless, Some(Short)))); │
│ 00:00:16 verbose #405 > LanguageElement (Morphological │
│ (RootFeature "나")); │
│ 00:00:16 verbose #406 > LanguageElement (Morphological │
│ (RootFeature "보다")); │
│ 00:00:16 verbose #407 > LanguageElement (Morphological │
│ (AffixFeature (Suffix, "아"))); │
│ 00:00:16 verbose #408 > LanguageElement (Morphological │
│ (RootFeature "고양이")); │
│ 00:00:16 verbose #409 > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:16 verbose #410 > ([[RootFeature "나"]], Pronoun)]]))); │
│ 00:00:16 verbose #411 > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:16 verbose #412 > ([[RootFeature "보다"; AffixFeature (Suffix, │
│ "아")]], Verb)]]))); │
│ 00:00:16 verbose #413 > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:16 verbose #414 > ([[RootFeature "고양이"]], Noun)]]))); │
│ 00:00:16 verbose #415 > LanguageElement (Semantic (Meaning │
│ "화자에 의한 고양이의 관찰 │
│ 00:00:16 verbose #416 > 행위")); │
│ 00:00:16 verbose #417 > LanguageElement (Pragmatic (UseContext │
│ "관찰되고 있는 행동의 진술")) │
│ 00:00:16 verbose #418 > ]] │
│ 00:00:16 verbose #419 > ) │
│ 00:00:16 verbose #420 > │
│ 00:00:16 verbose #421 > ── markdown │
│ ──────────────────────────────────────────────────────────────────── │
│ 00:00:16 verbose #422 > │
│ ╭─────────────────────────────────────────────────────────────────────────── │
│ ───╮ │
│ 00:00:16 verbose #423 > │ ## main │
│ │ │
│ 00:00:16 verbose #424 > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:16 verbose #425 > │
│ 00:00:16 verbose #426 > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:16 verbose #427 > inl main (_args : array_base string) = │
│ 00:00:16 verbose #428 > 0i32 │
│ 00:00:16 verbose #429 > │
│ 00:00:16 verbose #430 > inl main () = │
│ 00:00:16 verbose #431 > $"let main args = !main args" : () │
│ 00:00:16 verbose #432 > 00:00:15 debug #6 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c48d29976c738797f6 │
│ 0d78b6a562dc599537d1a8d03c8800ac0a97a2fe76010b/main.spi │
│ 00:00:16 verbose #433 > │
│ 00:00:16 verbose #434 > ╭─[ 469.83ms - stdout │
│ ]────────────────────────────────────────────────────────╮ │
│ 00:00:16 verbose #435 > │ let rec closure0 () (v0 : (string [])) : int32 = │
│ │ │
│ 00:00:16 verbose #436 > │ 0 │
│ │ │
│ 00:00:16 verbose #437 > │ let v0 : ((string []) -> int32) = closure0() │
│ │ │
│ 00:00:16 verbose #438 > │ let main args = v0 args │
│ │ │
│ 00:00:16 verbose #439 > │ () │
│ │ │
│ 00:00:16 verbose #440 > │ │
│ │
│ │ │
│ 00:00:16 verbose #441 > │ │
│ │
│ │ │
│ 00:00:16 verbose #442 > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:16 verbose #443 > │
│ 00:00:16 verbose #444 > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:16 verbose #445 > inl app () = │
│ 00:00:16 verbose #446 > "test" |> console.write_line │
│ 00:00:16 verbose #447 > 0i32 │
│ 00:00:16 verbose #448 > │
│ 00:00:16 verbose #449 > inl main () = │
│ 00:00:16 verbose #450 > print_static "<test>" │
│ 00:00:16 verbose #451 > │
│ 00:00:16 verbose #452 > app │
│ 00:00:16 verbose #453 > |> dyn │
│ 00:00:16 verbose #454 > |> ignore │
│ 00:00:16 verbose #455 > │
│ 00:00:16 verbose #456 > print_static "</test>" │
│ 00:00:16 verbose #457 > 00:00:16 debug #7 Building │
│ c:/home/git/polyglot/target/polyglot/spiral_eval/packages/f2a26ff16fa94575d7 │
│ a83b8902f448f147da946998ab596089706721c4cc373e/main.spi │
│ 00:00:17 verbose #458 > <test> │
│ 00:00:17 verbose #459 > </test> │
│ 00:00:17 verbose #460 > │
│ 00:00:17 verbose #461 > ╭─[ 400.59ms - stdout │
│ ]────────────────────────────────────────────────────────╮ │
│ 00:00:17 verbose #462 > │ let rec closure0 () () : int32 = │
│ │ │
│ 00:00:17 verbose #463 > │ let v0 : string = "test" │
│ │ │
│ 00:00:17 verbose #464 > │ System.Console.WriteLine v0 │
│ │ │
│ 00:00:17 verbose #465 > │ 0 │
│ │ │
│ 00:00:17 verbose #466 > │ let v0 : (unit -> int32) = closure0() │
│ │ │
│ 00:00:17 verbose #467 > │ () │
│ │ │
│ 00:00:17 verbose #468 > │ │
│ │
│ │ │
│ 00:00:17 verbose #469 > │ │
│ │
│ │ │
│ 00:00:17 verbose #470 > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:19 verbose #471 > [NbConvertApp] Converting notebook test.dib.ipynb to │
│ html │
│ 00:00:19 verbose #472 > │
│ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__ │
│ .py:93: MissingIDFieldWarning: Code cell is missing an id field, this will │
│ become a hard error in future nbformat versions. You may want to use │
│ `normalize()` on your notebooks before validations (available since nbformat │
│ 5.1.4). Previous versions of nbformat are fixing this issue transparently, │
│ and will stop doing so in the future. │
│ 00:00:19 verbose #473 > validate(nb) │
│ 00:00:20 verbose #474 > │
│ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters │
│ \highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on │
│ Python 3 │
│ 00:00:20 verbose #475 > return _pygments_highlight( │
│ 00:00:20 verbose #476 > [NbConvertApp] Writing 321504 bytes to test.dib.html │
│ 00:00:21 debug #477 execute_with_options_async / exit_code: 0 / │
│ output.Length: 19342 │
│ 00:00:21 debug #3 main / executeCommand / exitCode: 0 │
│ 00:00:21 verbose #4 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:23 debug #5 run_with_timeout_async / timeout: 2000 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/parser/dist/DibParser$(GetExecutableSuffix) test.dib spi }
| Invoke-Block
╭─[ 740.59ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:00 debug #1 writeDibCode / output: Spi / path: test.dib │
│ 00:00:00 debug #2 parseDibCode / output: Spi / file: test.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/spiral/dist/Supervisor$(GetExecutableSuffix) --build-file
test.spi test.fsx } | Invoke-Block
╭─[ 8.06s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 debug #1 run_with_timeout_async / timeout: 60 │
│ 00:00:00 debug #1 execute_with_options_async / options: struct (Some │
│ System.Threading.CancellationToken, │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64", │
│ Some <fun:main@437-6>, Some "C:\home\git\polyglot") │
│ 00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │
│ 00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:01 debug #2 run_with_timeout_async / timeout: 500 │
│ 00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:02 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result: │
│ 00:00:02 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 │
│ / retry: 0 │
│ 00:00:02 verbose #6 > Server bound to: http://localhost:13805 │
│ 00:00:02 debug #4 run_with_timeout_async / timeout: 60 │
│ 00:00:02 debug #3 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:02 debug #4 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:02 verbose #5 sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"// // # test (Polyglot)\nnominal i = ()\nnominal e = │
│ ()\nnominal s = │
│ ()\nnom...0022\u003C/test\u003E\u0022\n","uri":"file:///c:/home/git/polyglot │
│ /apps/spiral/temp/test/test.spi"}} / result: │
│ 00:00:02 verbose #6 sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/sp │
│ iral/temp/test/test.spi"}} / result: │
│ 00:00:02 verbose #7 > 00:00:01 debug #4 Building │
│ c:/home/git/polyglot/apps/spiral/temp/test/test.spi │
│ 00:00:03 debug #7 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:04 debug #8 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:05 debug #9 buildFile / takeWhileInclusive / fsxContent: / errors: [] │
│ / typeErrorCount: 0 │
│ 00:00:05 verbose #8 > <test> │
│ 00:00:05 verbose #9 > </test> │
│ 00:00:05 debug #10 buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "test" │
│ System.Console.WriteLine v0 │
│ 0 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:05 debug #11 watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:05 verbose #5 wait_for_port_access / port: 13805 / retry: 0 │
│ 00:00:07 debug #6 run_with_timeout_async / timeout: 2000 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
dotnet fable --optimize --lang rs --extension .rs
╭─[ 3.75s - stdout ]───────────────────────────────────────────────────────────╮
│ Fable 4.14.0: F# to Rust compiler (status: alpha) │
│ │
│ Thanks to the contributor! @piaste │
│ Stand with Ukraine! https://standwithukraine.com.ua/ │
│ │
│ Parsing test.fsproj... │
│ Retrieving project options from cache, in case of issues run `dotnet fable │
│ clean` or try `--noCache` option. │
│ Project and references (1 source files) parsed in 273ms │
│ │
│ Started Fable compilation... │
│ │
│ Fable compilation finished in 1589ms │
│ │
│ .\test.fsx(6,0): (6,2) warning FABLE: For Rust, support for F# static and │
│ module do bindings is disabled by default. It can be enabled with the │
│ 'static_do_bindings' feature. Use at your own risk! │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
(Get-Content test.rs) `
-replace [[regex]]::Escape("),);"), "));" `
| Set-Content test.rs
── pwsh ────────────────────────────────────────────────────────────────────────
cargo fmt --
── pwsh ────────────────────────────────────────────────────────────────────────
cargo build --release
╭─[ 6.47s - stdout ]───────────────────────────────────────────────────────────╮
│ Compiling spiral_temp_test v0.0.1 │
│ (C:\home\git\polyglot\apps\spiral\temp\test) │
│ warning: unused import: `info` │
│ --> apps\spiral\temp\test\./main.rs:190:15 │
│ | │
│ 190 | use tracing::{info, Level}; │
│ | ^^^^ │
│ | │
│ = note: `#[warn(unused_imports)]` on by default │
│ │
│ warning: struct `Cart` is never constructed │
│ --> apps\spiral\temp\test\./main.rs:41:8 │
│ | │
│ 41 | struct Cart { │
│ | ^^^^ │
│ | │
│ = note: `#[warn(dead_code)]` on by default │
│ │
│ warning: associated items `new`, `add_item`, and `remove_item` are │
│ never used │
│ --> apps\spiral\temp\test\./main.rs:46:8 │
│ | │
│ 45 | impl Cart { │
│ | --------- associated items in this implementation │
│ 46 | fn new() -> Cart { │
│ | ^^^ │
│ ... │
│ 50 | fn add_item(&mut self, item: Item) { │
│ | ^^^^^^^^ │
│ ... │
│ 56 | fn remove_item(&mut self, item: &Item) { │
│ | ^^^^^^^^^^^ │
│ │
│ warning: function `parse_comment` is never used │
│ --> apps\spiral\temp\test\./main.rs:124:4 │
│ | │
│ 124 | fn parse_comment(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_string` is never used │
│ --> apps\spiral\temp\test\./main.rs:130:4 │
│ | │
│ 130 | fn parse_string(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^ │
│ │
│ warning: function `parse_identifier` is never used │
│ --> apps\spiral\temp\test\./main.rs:145:4 │
│ | │
│ 145 | fn parse_identifier(input: &str) -> IResult<&str, SpiralToken> {[ │
│ 0m │
│ | ^^^^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_integer` is never used │
│ --> apps\spiral\temp\test\./main.rs:157:4 │
│ | │
│ 157 | fn parse_integer(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_operator` is never used │
│ --> apps\spiral\temp\test\./main.rs:165:4 │
│ | │
│ 165 | fn parse_operator(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_token` is never used │
│ --> apps\spiral\temp\test\./main.rs:170:4 │
│ | │
│ 170 | fn parse_token(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^ │
│ │
│ warning: function `format_token` is never used │
│ --> apps\spiral\temp\test\./main.rs:180:4 │
│ | │
│ 180 | fn format_token(token: &SpiralToken) -> String { │
│ | ^^^^^^^^^^^^ │
│ │
│ warning: function `parse_expression` is never used │
│ --> apps\spiral\temp\test\./main.rs:213:4 │
│ | │
│ 213 | fn parse_expression(input: &str) -> IResult<&str, SpiralToken> {[ │
│ 0m │
│ | ^^^^^^^^^^^^^^^^ │
│ │
│ warning: `spiral_temp_test` (bin "spiral_temp_test") generated 11 │
│ warnings (run `cargo fix --bin "spiral_temp_test"` to apply 1 suggestion) │
│ Finished `release` profile [optimized] target(s) in 6.27s │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
$env:RUST_LOG="info"
{ cargo test --release } | Invoke-Block
╭─[ 23.20s - stdout ]──────────────────────────────────────────────────────────╮
│ Compiling spiral_temp_test v0.0.1 │
│ (C:\home\git\polyglot\apps\spiral\temp\test) │
│ Finished `release` profile [optimized] target(s) in 22.74s │
│ Running unittests main.rs │
│ (C:\home\git\polyglot\target\release\deps\spiral_temp_test-27bbac491070caad. │
│ exe) │
│ │
│ running 3 tests │
│ test test_parse_number ... ok │
│ 2024-04-22T05:52:13.149464Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-22T05:52:13.149541Z INFO spiral_temp_test: │
│ input=Integer(-373427020604669576) │
│ 2024-04-22T05:52:13.149706Z INFO spiral_temp_test: │
│ input=StringLiteral("c)~G?m`n/Wf/Ufu=A Yq.x'{e0") │
│ 2024-04-22T05:52:13.149815Z INFO spiral_temp_test: │
│ input=StringLiteral("*anp,7}$ach*,!>$U5_.%V'") │
│ 2024-04-22T05:52:13.149949Z INFO spiral_temp_test: │
│ input=Identifier("w0FDzRp") │
│ 2024-04-22T05:52:13.150151Z INFO spiral_temp_test: │
│ input=StringLiteral("czeW*E@X)@$,1C#vO") │
│ 2024-04-22T05:52:13.150263Z INFO spiral_temp_test: │
│ input=Identifier("f55carhjjQ3w91WyN6vD54nV49yNQcn9") │
│ 2024-04-22T05:52:13.150365Z INFO spiral_temp_test: │
│ input=Integer(-4376489120469014375) │
│ 2024-04-22T05:52:13.150450Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.150522Z INFO spiral_temp_test: │
│ input=Identifier("XJtRU4q8IobeDPWnU4NwwQYQf0V1") │
│ 2024-04-22T05:52:13.150573Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.150624Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.150718Z INFO spiral_temp_test: │
│ input=StringLiteral("$O9#L9.l?|@Ehp%q^Cz#~Z/$ep=") │
│ 2024-04-22T05:52:13.150781Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.150836Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.150917Z INFO spiral_temp_test: │
│ input=StringLiteral("/Yhh-#v&C!J") │
│ 2024-04-22T05:52:13.150991Z INFO spiral_temp_test: │
│ input=Comment("kK3 xLY*^7xe<\\") │
│ 2024-04-22T05:52:13.151068Z INFO spiral_temp_test: │
│ input=StringLiteral("o=:NU$6Dn!PV=i`CQ$?_$/F") │
│ 2024-04-22T05:52:13.151117Z INFO spiral_temp_test: │
│ input=Integer(3688677881892621753) │
│ 2024-04-22T05:52:13.151168Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.151224Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-22T05:52:13.151302Z INFO spiral_temp_test: │
│ input=Identifier("R393jd1nPutTb21CsHnyU97osHd93") │
│ 2024-04-22T05:52:13.151385Z INFO spiral_temp_test: │
│ input=Integer(2666835647908722357) │
│ 2024-04-22T05:52:13.151450Z INFO spiral_temp_test: │
│ input=Identifier("t2kyD5WRJwRugz00v1VE83") │
│ 2024-04-22T05:52:13.151505Z INFO spiral_temp_test: │
│ input=Integer(2686959850323529744) │
│ 2024-04-22T05:52:13.151569Z INFO spiral_temp_test: │
│ input=StringLiteral("n?/pThN") │
│ 2024-04-22T05:52:13.151678Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.151775Z INFO spiral_temp_test: │
│ input=Comment("&Cdy_v?m%;E;;p4`7)?$hHf") │
│ 2024-04-22T05:52:13.151823Z INFO spiral_temp_test: │
│ input=Integer(-2058715597095024188) │
│ 2024-04-22T05:52:13.151869Z INFO spiral_temp_test: │
│ input=Identifier("kNe") │
│ 2024-04-22T05:52:13.151915Z INFO spiral_temp_test: │
│ input=Integer(38900097449741603) │
│ 2024-04-22T05:52:13.151945Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.151985Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.152042Z INFO spiral_temp_test: │
│ input=StringLiteral("enDJ") │
│ 2024-04-22T05:52:13.152099Z INFO spiral_temp_test: │
│ input=Integer(7072652598922853464) │
│ 2024-04-22T05:52:13.152155Z INFO spiral_temp_test: │
│ input=StringLiteral("+L") │
│ 2024-04-22T05:52:13.152236Z INFO spiral_temp_test: │
│ input=StringLiteral("]I/$?<7y1Mw`1?q9IUOA_*$:") │
│ 2024-04-22T05:52:13.152285Z INFO spiral_temp_test: │
│ input=Integer(-4594933427786551836) │
│ 2024-04-22T05:52:13.152352Z INFO spiral_temp_test: │
│ input=Identifier("Zc73DEcN0Cr") │
│ 2024-04-22T05:52:13.152409Z INFO spiral_temp_test: │
│ input=Identifier("SIIul") │
│ 2024-04-22T05:52:13.152497Z INFO spiral_temp_test: │
│ input=Comment("I3A40<H^ZS={#S") │
│ 2024-04-22T05:52:13.152584Z INFO spiral_temp_test: │
│ input=Comment("\"&75)>") │
│ 2024-04-22T05:52:13.152659Z INFO spiral_temp_test: │
│ input=Integer(3465838062205129848) │
│ 2024-04-22T05:52:13.152707Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.152760Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.152841Z INFO spiral_temp_test: │
│ input=Comment("Fj.\\UHJ`{\"8&_[LRt%tk<uR9{6") │
│ 2024-04-22T05:52:13.152901Z INFO spiral_temp_test: │
│ input=Identifier("v") │
│ 2024-04-22T05:52:13.152970Z INFO spiral_temp_test: │
│ input=Comment("<HW$Z$Xw{)|\\V`;") │
│ 2024-04-22T05:52:13.153075Z INFO spiral_temp_test: │
│ input=StringLiteral("]S^G&p%Xjq'<*?a<W") │
│ 2024-04-22T05:52:13.153152Z INFO spiral_temp_test: │
│ input=Comment("|$,.,[wT") │
│ 2024-04-22T05:52:13.153237Z INFO spiral_temp_test: │
│ input=Identifier("kruwd") │
│ 2024-04-22T05:52:13.153348Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.153391Z INFO spiral_temp_test: │
│ input=Integer(-45796435618145917) │
│ 2024-04-22T05:52:13.153439Z INFO spiral_temp_test: │
│ input=Integer(-1062513274159502695) │
│ 2024-04-22T05:52:13.153480Z INFO spiral_temp_test: │
│ input=Integer(-637741892373763075) │
│ 2024-04-22T05:52:13.153553Z INFO spiral_temp_test: │
│ input=StringLiteral("_v7xYO?Ux85-+a`Hj{1LK") │
│ 2024-04-22T05:52:13.153617Z INFO spiral_temp_test: │
│ input=Identifier("gqNLP1PRJW47la") │
│ 2024-04-22T05:52:13.153671Z INFO spiral_temp_test: │
│ input=Identifier("osV4S2JTP") │
│ 2024-04-22T05:52:13.153738Z INFO spiral_temp_test: │
│ input=StringLiteral("$;*k$={6!$`b?'") │
│ 2024-04-22T05:52:13.153795Z INFO spiral_temp_test: │
│ input=Comment("RFKR<`c:") │
│ 2024-04-22T05:52:13.153857Z INFO spiral_temp_test: │
│ input=Comment("04?\\9xc.EB` ") │
│ 2024-04-22T05:52:13.153908Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.153987Z INFO spiral_temp_test: │
│ input=Comment("f!AF}R<*J$?'N6%:gjnu.|/#%du") │
│ 2024-04-22T05:52:13.154070Z INFO spiral_temp_test: │
│ input=Integer(7955352942404696071) │
│ 2024-04-22T05:52:13.154147Z INFO spiral_temp_test: │
│ input=Identifier("vVf3dtDt4") │
│ 2024-04-22T05:52:13.154196Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-22T05:52:13.154271Z INFO spiral_temp_test: │
│ input=Identifier("FA9ozjCO6rccCcUeizsUwm0") │
│ 2024-04-22T05:52:13.154353Z INFO spiral_temp_test: │
│ input=Identifier("f6QzStDapttonX9CsO88S0a1VxOJ") │
│ 2024-04-22T05:52:13.154414Z INFO spiral_temp_test: │
│ input=Comment("O.*.ZHVSRX") │
│ 2024-04-22T05:52:13.154476Z INFO spiral_temp_test: │
│ input=StringLiteral("&{Osa$:Kv`") │
│ 2024-04-22T05:52:13.154543Z INFO spiral_temp_test: │
│ input=Identifier("CHgJJKeClG08NAzsFsQOyg0Hdu") │
│ 2024-04-22T05:52:13.154585Z INFO spiral_temp_test: │
│ input=Integer(-5223200009658310839) │
│ 2024-04-22T05:52:13.154644Z INFO spiral_temp_test: │
│ input=Identifier("qPysnQ5ZS") │
│ 2024-04-22T05:52:13.154735Z INFO spiral_temp_test: │
│ input=Integer(-9030403522707850448) │
│ 2024-04-22T05:52:13.154814Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.154869Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.154922Z INFO spiral_temp_test: │
│ input=Integer(7073935673959740730) │
│ 2024-04-22T05:52:13.154980Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.155036Z INFO spiral_temp_test: │
│ input=Comment("8;=q") │
│ 2024-04-22T05:52:13.155086Z INFO spiral_temp_test: │
│ input=Identifier("yQ") │
│ 2024-04-22T05:52:13.155136Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.155189Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.155252Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.155366Z INFO spiral_temp_test: │
│ input=StringLiteral("Ln~pvs!nb'I<nd{bG/f;/]Fd@") │
│ 2024-04-22T05:52:13.155452Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-22T05:52:13.155502Z INFO spiral_temp_test: │
│ input=Comment("HMk#l*WR") │
│ 2024-04-22T05:52:13.155551Z INFO spiral_temp_test: │
│ input=Integer(-3721099379395415590) │
│ 2024-04-22T05:52:13.155625Z INFO spiral_temp_test: │
│ input=Identifier("rPse976JLOwqaCSHH9N65w6BEvT9GWjPz") │
│ 2024-04-22T05:52:13.155674Z INFO spiral_temp_test: │
│ input=Comment("") │
│ 2024-04-22T05:52:13.155723Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.155769Z INFO spiral_temp_test: │
│ input=Integer(8961251475464155160) │
│ 2024-04-22T05:52:13.155817Z INFO spiral_temp_test: │
│ input=StringLiteral("~o") │
│ 2024-04-22T05:52:13.155860Z INFO spiral_temp_test: │
│ input=Integer(6400946110760125407) │
│ 2024-04-22T05:52:13.155971Z INFO spiral_temp_test: │
│ input=Comment("su{&:?&F(={D%&v=E@w'\"1}%Cv:pu\\:") │
│ 2024-04-22T05:52:13.156044Z INFO spiral_temp_test: │
│ input=Comment("[c,/&f`d,\\i/|x}\\7^6Z^<}h#>*") │
│ 2024-04-22T05:52:13.156091Z INFO spiral_temp_test: │
│ input=Integer(-4366255757637065244) │
│ 2024-04-22T05:52:13.156146Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.156242Z INFO spiral_temp_test: │
│ input=Comment("B?<\\\"oy:a&?c*$VhK/.v<A&nQ:{W*%") │
│ 2024-04-22T05:52:13.156321Z INFO spiral_temp_test: │
│ input=StringLiteral(">z") │
│ 2024-04-22T05:52:13.156366Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.156413Z INFO spiral_temp_test: │
│ input=Integer(-9072258889999331807) │
│ 2024-04-22T05:52:13.156468Z INFO spiral_temp_test: │
│ input=Identifier("g2Xc9MpJA5X") │
│ 2024-04-22T05:52:13.156540Z INFO spiral_temp_test: │
│ input=Comment("`_.@P\"<Uw?`J..c'l}A=/m\\N{ky") │
│ 2024-04-22T05:52:13.156608Z INFO spiral_temp_test: │
│ input=Comment(":{>n3lB/?;8^Pq<") │
│ 2024-04-22T05:52:13.156663Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-22T05:52:13.156780Z INFO spiral_temp_test: │
│ input=Comment("j.%") │
│ 2024-04-22T05:52:13.156864Z INFO spiral_temp_test: │
│ input=Comment("<]I?4|]0$") │
│ 2024-04-22T05:52:13.156929Z INFO spiral_temp_test: │
│ input=StringLiteral(";4Cb:%&ElUN]%<i`~") │
│ 2024-04-22T05:52:13.156991Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.157077Z INFO spiral_temp_test: │
│ input=StringLiteral("%mc*H6)@<R:]&<b_O{]&Ruw<") │
│ 2024-04-22T05:52:13.157136Z INFO spiral_temp_test: │
│ input=Identifier("f8Ly320lj7CI5yM2Zn43") │
│ 2024-04-22T05:52:13.157228Z INFO spiral_temp_test: │
│ input=Comment("Jng$n{r\\%/=.1_!c*KP{O") │
│ 2024-04-22T05:52:13.157289Z INFO spiral_temp_test: │
│ input=Comment("Bk_}{R*T,b?ZCf..C%P\"s{gz<v") │
│ 2024-04-22T05:52:13.157365Z INFO spiral_temp_test: │
│ input=Comment("|[(b?%-I/[+G=Mo\"/4[x.\\';{") │
│ 2024-04-22T05:52:13.157413Z INFO spiral_temp_test: │
│ input=Integer(-8345838479459512780) │
│ 2024-04-22T05:52:13.157465Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.157518Z INFO spiral_temp_test: │
│ input=Integer(235161165499252379) │
│ 2024-04-22T05:52:13.157573Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.157625Z INFO spiral_temp_test: │
│ input=Integer(-5649262020270533823) │
│ 2024-04-22T05:52:13.157681Z INFO spiral_temp_test: │
│ input=StringLiteral(":`$<H") │
│ 2024-04-22T05:52:13.157732Z INFO spiral_temp_test: │
│ input=Integer(-1392659222604487429) │
│ 2024-04-22T05:52:13.157782Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.157853Z INFO spiral_temp_test: │
│ input=Identifier("KN6FR6cnZvfa2q34v4EmR") │
│ 2024-04-22T05:52:13.157900Z INFO spiral_temp_test: │
│ input=Identifier("WM") │
│ 2024-04-22T05:52:13.157938Z INFO spiral_temp_test: │
│ input=Integer(-340726193697536981) │
│ 2024-04-22T05:52:13.158006Z INFO spiral_temp_test: │
│ input=Identifier("RZH78OzaUU52zyj9hj0Rnzs9got") │
│ 2024-04-22T05:52:13.158060Z INFO spiral_temp_test: │
│ input=Integer(-3014469288372567593) │
│ 2024-04-22T05:52:13.158138Z INFO spiral_temp_test: │
│ input=StringLiteral("2/%DuVk`=v`WN*T;sJ:b9g0y") │
│ 2024-04-22T05:52:13.158208Z INFO spiral_temp_test: │
│ input=Identifier("UogmJJC45WdbOTCVCzMZ8s5OuNrG") │
│ 2024-04-22T05:52:13.158260Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.158311Z INFO spiral_temp_test: │
│ input=StringLiteral("%") │
│ 2024-04-22T05:52:13.158360Z INFO spiral_temp_test: │
│ input=Integer(-835024026098170781) │
│ 2024-04-22T05:52:13.158422Z INFO spiral_temp_test: │
│ input=Identifier("Q38T3GP5iND6E7Hi5PUb") │
│ 2024-04-22T05:52:13.158465Z INFO spiral_temp_test: │
│ input=Integer(-2680769793151245840) │
│ 2024-04-22T05:52:13.158519Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.158576Z INFO spiral_temp_test: │
│ input=Identifier("b1") │
│ 2024-04-22T05:52:13.158657Z INFO spiral_temp_test: │
│ input=Identifier("GW88BXwrXDo25DS8w0Mlk6Q58iSW9Vqd7") │
│ 2024-04-22T05:52:13.158702Z INFO spiral_temp_test: │
│ input=StringLiteral("&a&NlU#TGZ=") │
│ 2024-04-22T05:52:13.158728Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.158757Z INFO spiral_temp_test: │
│ input=Comment("fZ)=A:%") │
│ 2024-04-22T05:52:13.158796Z INFO spiral_temp_test: │
│ input=Identifier("zWrVFUjyW5zhS6tZ") │
│ 2024-04-22T05:52:13.158826Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.158847Z INFO spiral_temp_test: │
│ input=Integer(-8613026855794971126) │
│ 2024-04-22T05:52:13.158870Z INFO spiral_temp_test: │
│ input=StringLiteral("6") │
│ 2024-04-22T05:52:13.158923Z INFO spiral_temp_test: │
│ input=StringLiteral("z47r?&12") │
│ 2024-04-22T05:52:13.158953Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.158987Z INFO spiral_temp_test: │
│ input=StringLiteral("mRp]/V:4k4") │
│ 2024-04-22T05:52:13.159013Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.159041Z INFO spiral_temp_test: │
│ input=Comment("sQd$:") │
│ 2024-04-22T05:52:13.159090Z INFO spiral_temp_test: │
│ input=Comment("^3Go:|_QB&\";\\\"BdI`JJ?7*UdZ/") │
│ 2024-04-22T05:52:13.159144Z INFO spiral_temp_test: │
│ input=Comment("Z#c<\\I^=E<R.Nr%a./6=?") │
│ 2024-04-22T05:52:13.159174Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.159199Z INFO spiral_temp_test: │
│ input=Integer(-2933493646353591563) │
│ 2024-04-22T05:52:13.159227Z INFO spiral_temp_test: │
│ input=StringLiteral("v:") │
│ 2024-04-22T05:52:13.159272Z INFO spiral_temp_test: │
│ input=Identifier("xqEhmyOd8wbHXB") │
│ 2024-04-22T05:52:13.159339Z INFO spiral_temp_test: │
│ input=Identifier("hIS99mknp") │
│ 2024-04-22T05:52:13.159388Z INFO spiral_temp_test: │
│ input=Identifier("Uiy4w6") │
│ 2024-04-22T05:52:13.159432Z INFO spiral_temp_test: │
│ input=StringLiteral("!+t`Vq%/rg$X:S:'x,nLk?@P!") │
│ 2024-04-22T05:52:13.159461Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-22T05:52:13.159496Z INFO spiral_temp_test: │
│ input=Identifier("N243EEDjqik") │
│ 2024-04-22T05:52:13.159537Z INFO spiral_temp_test: │
│ input=StringLiteral("^V>:QGR?Ca:&k.vW:A{o:?b'o/l]D/W") │
│ 2024-04-22T05:52:13.159567Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.159590Z INFO spiral_temp_test: │
│ input=Identifier("Foyl") │
│ 2024-04-22T05:52:13.159617Z INFO spiral_temp_test: │
│ input=StringLiteral("'") │
│ 2024-04-22T05:52:13.159658Z INFO spiral_temp_test: │
│ input=Comment("Q?mQ$:%i%V*$=NoR$`v%o&$~O.EK[?") │
│ 2024-04-22T05:52:13.159695Z INFO spiral_temp_test: │
│ input=Identifier("oTQPDxMrn8") │
│ 2024-04-22T05:52:13.159758Z INFO spiral_temp_test: │
│ input=StringLiteral(":f6B<s;%.Re`&ao=ifd'`Y$[") │
│ 2024-04-22T05:52:13.159791Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-22T05:52:13.159830Z INFO spiral_temp_test: │
│ input=Identifier("Gn259H73") │
│ 2024-04-22T05:52:13.159873Z INFO spiral_temp_test: │
│ input=Identifier("yRjJR") │
│ 2024-04-22T05:52:13.159898Z INFO spiral_temp_test: │
│ input=Identifier("abJVrMP") │
│ 2024-04-22T05:52:13.159935Z INFO spiral_temp_test: │
│ input=Comment("<)~&'v={:<*.\\;<>gX'") │
│ 2024-04-22T05:52:13.159959Z INFO spiral_temp_test: │
│ input=Integer(-7461877657616044338) │
│ 2024-04-22T05:52:13.160009Z INFO spiral_temp_test: │
│ input=Comment("D/<&H*") │
│ 2024-04-22T05:52:13.160052Z INFO spiral_temp_test: │
│ input=Comment("\"i.W4%\"?m//=1<$'qM&;S=[&h") │
│ 2024-04-22T05:52:13.160098Z INFO spiral_temp_test: │
│ input=Identifier("trViv72HN0xmOUVmTkO6fx3V94V") │
│ 2024-04-22T05:52:13.160125Z INFO spiral_temp_test: │
│ input=Integer(-7653295369791176270) │
│ 2024-04-22T05:52:13.160172Z INFO spiral_temp_test: │
│ input=Comment("*=We:WSZg+&6?:$BL&>\"3\"2sNj20TN'") │
│ 2024-04-22T05:52:13.160224Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.160259Z INFO spiral_temp_test: │
│ input=Identifier("oYUkmjXaIhrSeke") │
│ 2024-04-22T05:52:13.160295Z INFO spiral_temp_test: │
│ input=StringLiteral("y.%[k&:D!9x") │
│ 2024-04-22T05:52:13.160335Z INFO spiral_temp_test: │
│ input=StringLiteral(".):9*+/H |[Ie7U=UC&$@p,ZuAP`%?.") │
│ 2024-04-22T05:52:13.160364Z INFO spiral_temp_test: │
│ input=StringLiteral("p~") │
│ 2024-04-22T05:52:13.160402Z INFO spiral_temp_test: │
│ input=Comment(":&x@`~<u=]D") │
│ 2024-04-22T05:52:13.160431Z INFO spiral_temp_test: │
│ input=StringLiteral("e:%[H") │
│ 2024-04-22T05:52:13.160452Z INFO spiral_temp_test: │
│ input=Integer(3076208988845404899) │
│ 2024-04-22T05:52:13.160545Z INFO spiral_temp_test: │
│ input=Identifier("ngfMLGDYvH3D4kC3") │
│ 2024-04-22T05:52:13.160626Z INFO spiral_temp_test: │
│ input=Comment(".`") │
│ 2024-04-22T05:52:13.160681Z INFO spiral_temp_test: │
│ input=Identifier("RMP9XhEL8bS9") │
│ 2024-04-22T05:52:13.160729Z INFO spiral_temp_test: │
│ input=Integer(3119098570118996172) │
│ 2024-04-22T05:52:13.160799Z INFO spiral_temp_test: │
│ input=Comment("NG/:/p'Uf`h") │
│ 2024-04-22T05:52:13.160859Z INFO spiral_temp_test: │
│ input=Comment("9<&*q<:]#*") │
│ 2024-04-22T05:52:13.160924Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.161003Z INFO spiral_temp_test: │
│ input=Integer(-5208429479846722176) │
│ 2024-04-22T05:52:13.161077Z INFO spiral_temp_test: │
│ input=StringLiteral("gd.=&*J$BgO'~b9BW?-$`") │
│ 2024-04-22T05:52:13.161141Z INFO spiral_temp_test: │
│ input=Comment("#W&]?c") │
│ 2024-04-22T05:52:13.161227Z INFO spiral_temp_test: │
│ input=StringLiteral("/0`RAI*Yo:*qMjft?NoL&{$2L7jX4`19") │
│ 2024-04-22T05:52:13.161324Z INFO spiral_temp_test: │
│ input=StringLiteral("k_s?wH#&A=&t;'==/{;") │
│ 2024-04-22T05:52:13.161377Z INFO spiral_temp_test: │
│ input=Integer(-7197917287121711673) │
│ 2024-04-22T05:52:13.161463Z INFO spiral_temp_test: │
│ input=Identifier("N2ImVGjtr8lQAXebtOtBn0xtVetyOcC8Z") │
│ 2024-04-22T05:52:13.161515Z INFO spiral_temp_test: │
│ input=Integer(-148751460005314253) │
│ 2024-04-22T05:52:13.161570Z INFO spiral_temp_test: │
│ input=Comment("#b`xQ*") │
│ 2024-04-22T05:52:13.161621Z INFO spiral_temp_test: │
│ input=Identifier("IN1") │
│ 2024-04-22T05:52:13.161758Z INFO spiral_temp_test: │
│ input=StringLiteral("0*^JT") │
│ 2024-04-22T05:52:13.161804Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.161859Z INFO spiral_temp_test: │
│ input=Integer(-5748269422387483047) │
│ 2024-04-22T05:52:13.162008Z INFO spiral_temp_test: │
│ input=StringLiteral("x$4: =T*''`b34._^I&,Da*i;(3") │
│ 2024-04-22T05:52:13.162107Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.162165Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.162222Z INFO spiral_temp_test: │
│ input=StringLiteral("2|9p`<`") │
│ 2024-04-22T05:52:13.162278Z INFO spiral_temp_test: │
│ input=Identifier("f2T") │
│ 2024-04-22T05:52:13.162326Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.162394Z INFO spiral_temp_test: │
│ input=StringLiteral("ZDs*[oO':lDM&IY; /.") │
│ 2024-04-22T05:52:13.162446Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.162521Z INFO spiral_temp_test: │
│ input=StringLiteral("'| /m<`:A:~X,`Cpw$l=1") │
│ 2024-04-22T05:52:13.162567Z INFO spiral_temp_test: │
│ input=Integer(7315896645452281917) │
│ 2024-04-22T05:52:13.162646Z INFO spiral_temp_test: │
│ input=Identifier("SmElmsL2Jd2a6PYeIsEvv591AU") │
│ 2024-04-22T05:52:13.162724Z INFO spiral_temp_test: │
│ input=StringLiteral(")v{w&G(A%n/L.$O]3{=/My6]'>fZY") │
│ 2024-04-22T05:52:13.162775Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.162851Z INFO spiral_temp_test: │
│ input=Identifier("v3oQ33iQQ9BeLn8ItlcyqB4zr8UOx1t") │
│ 2024-04-22T05:52:13.162905Z INFO spiral_temp_test: │
│ input=Identifier("NjZKiBWpE") │
│ 2024-04-22T05:52:13.163001Z INFO spiral_temp_test: │
│ input=Integer(-3900054288061890017) │
│ 2024-04-22T05:52:13.163087Z INFO spiral_temp_test: │
│ input=Identifier("f8Bs") │
│ 2024-04-22T05:52:13.163132Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.163188Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.163238Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.163340Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.163438Z INFO spiral_temp_test: │
│ input=Comment("U/K\"*0U^8lh'") │
│ 2024-04-22T05:52:13.163486Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-22T05:52:13.163532Z INFO spiral_temp_test: │
│ input=Integer(-5640258962885667299) │
│ 2024-04-22T05:52:13.163603Z INFO spiral_temp_test: │
│ input=Comment("&=UxaUKqI;gy`%jT=jMJn") │
│ 2024-04-22T05:52:13.163659Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.163730Z INFO spiral_temp_test: │
│ input=StringLiteral("mHw0b=]H2;`?:;") │
│ 2024-04-22T05:52:13.163782Z INFO spiral_temp_test: │
│ input=Comment("$'`\"\"*xT/C") │
│ 2024-04-22T05:52:13.163878Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.163924Z INFO spiral_temp_test: │
│ input=Identifier("oJ0") │
│ 2024-04-22T05:52:13.163971Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.164018Z INFO spiral_temp_test: │
│ input=Integer(-4053777175070809102) │
│ 2024-04-22T05:52:13.164073Z INFO spiral_temp_test: │
│ input=StringLiteral("g[*2k:-HQt") │
│ 2024-04-22T05:52:13.164134Z INFO spiral_temp_test: │
│ input=Identifier("SVl0UyR7lArs") │
│ 2024-04-22T05:52:13.164192Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-22T05:52:13.164280Z INFO spiral_temp_test: │
│ input=StringLiteral("v<n[<&|dYCjmSn/?..R(=n?u*'.") │
│ 2024-04-22T05:52:13.164370Z INFO spiral_temp_test: │
│ input=StringLiteral("kyIC[NrUrQe=F8$G1+") │
│ 2024-04-22T05:52:13.164414Z INFO spiral_temp_test: │
│ input=Integer(-4822422251833302688) │
│ 2024-04-22T05:52:13.164501Z INFO spiral_temp_test: │
│ input=Integer(-5783452250723120147) │
│ 2024-04-22T05:52:13.164594Z INFO spiral_temp_test: │
│ input=StringLiteral("TbXZG`l}dH,8*W7u*HQDxrH") │
│ 2024-04-22T05:52:13.164666Z INFO spiral_temp_test: │
│ input=StringLiteral("@nU?<>~p0rDDv/Vy?:&6ts=M90H~!") │
│ 2024-04-22T05:52:13.164716Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-22T05:52:13.164788Z INFO spiral_temp_test: │
│ input=Identifier("F00dnzsVqI10AToP6b24B1TeHY") │
│ 2024-04-22T05:52:13.164834Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-22T05:52:13.164906Z INFO spiral_temp_test: │
│ input=Comment("ayp*%%g-A?EMc.(^vF//KS") │
│ 2024-04-22T05:52:13.164946Z INFO spiral_temp_test: │
│ input=Integer(-3312895242853884167) │
│ 2024-04-22T05:52:13.164986Z INFO spiral_temp_test: │
│ input=StringLiteral("]3") │
│ 2024-04-22T05:52:13.165100Z INFO spiral_temp_test: │
│ input=Identifier("E2NRUfzslj3ot") │
│ 2024-04-22T05:52:13.165167Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-22T05:52:13.165215Z INFO spiral_temp_test: │
│ input=Integer(-4898717918689638490) │
│ test prop_parse_format_idempotent ... ok │
│ test │
│ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged ... │
│ ok │
│ │
│ test result: ok. 3 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; │
│ finished in 0.15s │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . $ScriptDir/../../../../target/release/spiral_temp_test$(GetExecutableSuffix)
} | Invoke-Block
╭─[ 63.65ms - stdout ]─────────────────────────────────────────────────────────╮
│ app=test │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook build.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 359529 bytes to build.dib.html
In [ ]:
{ . "$ScriptDir/../apps/perf/build.ps1" } | Invoke-Block
00:00:00 debug #1 run_with_timeout_async / timeout: 60
00:00:00 debug #1 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
Some <fun:main@437-6>, Some "C:\home\git\polyglot")
00:00:00 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:00 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #2 run_with_timeout_async / timeout: 500
00:00:01 verbose #3 wait_for_port_access / port: 13805 / retry: 0
00:00:01 verbose #1 sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:01 verbose #2 awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"pwsh -c "../../scripts/invoke-dib.ps1 Perf.dib"", None, None)
00:00:02 verbose #8 > core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\perf / path: Perf.dib / _args: null
00:00:05 verbose #9 >
00:00:05 verbose #10 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #11 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #12 > │ ## Perf (Polyglot) │
00:00:05 verbose #13 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #14 >
00:00:05 verbose #15 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #16 > #!import ../../lib/fsharp/Notebooks.dib
00:00:05 verbose #17 > #!import ../../lib/fsharp/Testing.dib
00:00:05 verbose #18 >
00:00:05 verbose #19 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:05 verbose #20 > #r
00:00:05 verbose #21 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:05 verbose #22 > spNetCore.Html.Abstractions.dll"
00:00:05 verbose #23 > #r
00:00:05 verbose #24 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #25 > otNet.Interactive.dll"
00:00:05 verbose #26 > #r
00:00:05 verbose #27 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #28 > otNet.Interactive.FSharp.dll"
00:00:05 verbose #29 > #r
00:00:05 verbose #30 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #31 > otNet.Interactive.Formatting.dll"
00:00:05 verbose #32 > open System
00:00:05 verbose #33 > open System.IO
00:00:05 verbose #34 > open System.Text
00:00:05 verbose #35 > open Microsoft.DotNet.Interactive.Formatting
00:00:09 verbose #36 >
00:00:09 verbose #37 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #38 > #r
00:00:09 verbose #39 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:09 verbose #40 > otNet.Interactive.FSharp.dll"
00:00:09 verbose #41 > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:09 verbose #42 > #r
00:00:09 verbose #43 > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:09 verbose #44 > otNet.Interactive.dll"
00:00:09 verbose #45 > open type Microsoft.DotNet.Interactive.Kernel
00:00:09 verbose #46 >
00:00:09 verbose #47 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #48 > //// test
00:00:09 verbose #49 >
00:00:09 verbose #50 > Formatter.ListExpansionLimit <- 100
00:00:09 verbose #51 >
00:00:09 verbose #52 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #53 > #if FABLE_COMPILER // common.types
00:00:09 verbose #54 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:09 verbose #55 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:09 verbose #56 > class end
00:00:09 verbose #57 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:09 verbose #58 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:09 verbose #59 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:09 verbose #60 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:09 verbose #61 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:09 verbose #62 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:09 verbose #63 > class end
00:00:09 verbose #64 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:09 verbose #65 > [[<Fable.Core.Erase;...
00:00:11 verbose #66 >
00:00:11 verbose #67 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #68 > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:11 verbose #69 > and Mut1 = {mutable l0 : int32}
00:00:11 verbose #70 > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:11 verbose #71 > let v2 : bool = v1.Contains v0
00:00:11 verbose #72 > v2
00:00:11 verbose #73 > and closure0 () (v0 : string) : (string -> bool) =
00:00:11 verbose #74 > closure1(v0)
00:00:11 verbose #75 > and closure3 (v0 : string) (v1 : string) : bool =
00:00:11 verbose #76 > let v2 : bool = v1.EndsWith v0
00:00:11 verbose #77 > v2
00:00:11 verbose #78 > and closure2 () (v0 : string) : (string -> bool) =
00:00:11 verbose #79 > closure3(v0)
00:00:11 verbose #80 > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:11 verbose #81 > let v3 : string = v2.PadLeft (v0, v1)
00:00:11 verbose #82 > v3
00:00:11 verbose #83 > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:11 verbose #84 > closure6(v0, v1)
00:00:11 verbose #85 > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:11 verbose #86 > closure5(v0)
00:00:11 verbose #87 > and closure8 (v0 : int32) (v1 : string) : string =
00:00:11 verbose #88 > let v2 : stri...
00:00:11 verbose #89 >
00:00:11 verbose #90 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #91 > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:11 verbose #92 > type Mut0 = {mutable l0 : int32}
00:00:11 verbose #93 > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:11 verbose #94 > let v2 : int32 = v1.l0
00:00:11 verbose #95 > let v3 : bool = v2 < v0
00:00:11 verbose #96 > v3
00:00:11 verbose #97 > and method1 () : string =
00:00:11 verbose #98 > let v0 : string = ""
00:00:11 verbose #99 > v0
00:00:11 verbose #100 > and closure0 () (v0 : string) : string =
00:00:11 verbose #101 > let v1 : string option = None
00:00:11 verbose #102 > let v2 : bool = true in let mutable _v1 = v1
00:00:11 verbose #103 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:11 verbose #104 > let v3 : string = null |> unbox<string>
00:00:11 verbose #105 > v3
00:00:11 verbose #106 > #endif
00:00:11 verbose #107 > #if FABLE_COMPILER_RUST && WASM
00:00:11 verbose #108 > let v4 : string = null |> unbox<string>
00:00:11 verbose #109 > v4
00:00:11 verbose #110 > #endif
00:00:11 verbose #111 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #112 > let v5 : string = null |> unbox<string>
00:00:11 verbose #113 > v5
00:00:11 verbose #114 > #endif
00:00:11 verbose #115 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
00:00:12 verbose #116 >
00:00:12 verbose #117 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #118 > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:12 verbose #119 > let v2 : (System.Guid -> string) = _.ToString()
00:00:12 verbose #120 > let v3 : string = v2 v0
00:00:12 verbose #121 > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:12 verbose #122 > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:12 verbose #123 > v5
00:00:12 verbose #124 > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:12 verbose #125 > closure1(v0)
00:00:12 verbose #126 > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:12 verbose #127 > let v3 : string = v2.Replace (v0, v1)
00:00:12 verbose #128 > v3
00:00:12 verbose #129 > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:12 verbose #130 > closure5(v0, v1)
00:00:12 verbose #131 > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:12 verbose #132 > closure4(v0)
00:00:12 verbose #133 > and method0 () : (string -> (string -> (string -> string))) =
00:00:12 verbose #134 > closure3()
00:00:12 verbose #135 > and closure2 (...
00:00:12 verbose #136 >
00:00:12 verbose #137 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #138 > #if FABLE_COMPILER // async.types
00:00:12 verbose #139 > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
00:00:12 verbose #140 > std_future_Future<'T> = class end
00:00:12 verbose #141 > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
00:00:12 verbose #142 > futures_future_TryJoinAll<'T> = class end
00:00:12 verbose #143 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
00:00:12 verbose #144 > rayon_vec_IntoIter<'T> = class end
00:00:12 verbose #145 > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
00:00:12 verbose #146 > rayon_iter_Map<'T> = class end
00:00:12 verbose #147 > #endif // async.types
00:00:12 verbose #148 > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:12 verbose #149 > Async<System.Threading.CancellationToken> =
00:00:12 verbose #150 > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #151 > let v2 : bool = true in let mutable _v1 = v1
00:00:12 verbose #152 > #if FABLE_COMPILER_RUST ...
00:00:12 verbose #153 >
00:00:12 verbose #154 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #155 > type [[<Struct>]] US0 =
00:00:12 verbose #156 > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:12 verbose #157 > | US0_1
00:00:12 verbose #158 > let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
00:00:12 verbose #159 > US0_0(v0)
00:00:12 verbose #160 > and method0 () : (System.Threading.CancellationToken -> US0) =
00:00:12 verbose #161 > closure1()
00:00:12 verbose #162 > and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:12 verbose #163 > let v1 : unit option = None
00:00:12 verbose #164 > let v2 : bool = true in let mutable _v1 = v1
00:00:12 verbose #165 > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:12 verbose #166 > null |> unbox<unit>
00:00:12 verbose #167 > ()
00:00:12 verbose #168 > #endif
00:00:12 verbose #169 > #if FABLE_COMPILER_RUST && WASM
00:00:12 verbose #170 > null |> unbox<unit>
00:00:12 verbose #171 > ()
00:00:12 verbose #172 > #endif
00:00:12 verbose #173 > #if FABLE_COMPILER_RUST && CONTRACT
00:00:12 verbose #174 > null |> unbox<unit>
00:00:12 verbose #175 > ()
00:00:12 verbose #176 > #endif
00:00:12 verbose #177 > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:12 verbose #178 > !WASM && !CONTRACT
00:00:12 verbose #179 > ...
00:00:12 verbose #180 >
00:00:12 verbose #181 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #182 > #if FABLE_COMPILER // networking.types
00:00:12 verbose #183 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:12 verbose #184 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:12 verbose #185 > class end
00:00:12 verbose #186 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:12 verbose #187 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:12 verbose #188 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:12 verbose #189 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:12 verbose #190 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:12 verbose #191 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:12 verbose #192 > class end
00:00:12 verbose #193 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:12 verbose #194 > [[<Fable.Core.Er...
00:00:13 verbose #195 >
00:00:13 verbose #196 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #197 > #if FABLE_COMPILER // runtime.types
00:00:13 verbose #198 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:13 verbose #199 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:13 verbose #200 > class end
00:00:13 verbose #201 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:13 verbose #202 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:13 verbose #203 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:13 verbose #204 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:13 verbose #205 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:13 verbose #206 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:13 verbose #207 > class end
00:00:13 verbose #208 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:13 verbose #209 > [[<Fable.Core.Erase...
00:00:15 verbose #210 >
00:00:15 verbose #211 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:15 verbose #212 > #if FABLE_COMPILER // file_system.types
00:00:15 verbose #213 > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:15 verbose #214 > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:15 verbose #215 > base64_DecodeError = class end
00:00:15 verbose #216 > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:15 verbose #217 > = class end
00:00:15 verbose #218 > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:15 verbose #219 > = class end
00:00:15 verbose #220 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:15 verbose #221 > serde_json_Error = class end
00:00:15 verbose #222 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:15 verbose #223 > serde_json_Value = class end
00:00:15 verbose #224 > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:15 verbose #225 > serde_wasm_bindgen_Error = class end
00:00:15 verbose #226 > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:17 verbose #227 >
00:00:17 verbose #228 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #229 > #if FABLE_COMPILER // trace.types
00:00:17 verbose #230 > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
00:00:17 verbose #231 > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
00:00:17 verbose #232 > class end
00:00:17 verbose #233 > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
00:00:17 verbose #234 > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
00:00:17 verbose #235 > [[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
00:00:17 verbose #236 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
00:00:17 verbose #237 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
00:00:17 verbose #238 > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
00:00:17 verbose #239 > class end
00:00:17 verbose #240 > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
00:00:17 verbose #241 > [[<Fable.Core.Erase; ...
00:00:17 verbose #242 >
00:00:17 verbose #243 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #244 > module SpiralTrace =
00:00:17 verbose #245 > let trace x =
00:00:17 verbose #246 > #if !INTERACTIVE
00:00:17 verbose #247 > Trace.trace x
00:00:17 verbose #248 > #else
00:00:17 verbose #249 > trace x
00:00:17 verbose #250 > #endif
00:00:17 verbose #251 >
00:00:17 verbose #252 > type TraceLevel =
00:00:17 verbose #253 > #if !INTERACTIVE
00:00:17 verbose #254 > Trace.US0
00:00:17 verbose #255 > #else
00:00:17 verbose #256 > US0
00:00:17 verbose #257 > #endif
00:00:17 verbose #258 >
00:00:17 verbose #259 > module SpiralCrypto =
00:00:17 verbose #260 > let hash_text x =
00:00:17 verbose #261 > #if !INTERACTIVE
00:00:17 verbose #262 > Crypto.hash_text x
00:00:17 verbose #263 > #else
00:00:17 verbose #264 > hash_text x
00:00:17 verbose #265 > #endif
00:00:17 verbose #266 >
00:00:17 verbose #267 > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:17 verbose #268 >
00:00:17 verbose #269 > module SpiralAsync =
00:00:17 verbose #270 > let merge_cancellation_token_with_default_async x =
00:00:17 verbose #271 > #if !INTERACTIVE
00:00:17 verbose #272 > Async_.merge_cancellation_token_with_default_async x
00:00:17 verbose #273 > #else
00:00:17 verbose #274 > merge_cancellation_token_with_default_async x
00:00:17 verbose #275 > #endif
00:00:17 verbose #276 >
00:00:17 verbose #277 > module SpiralThreading =
00:00:17 verbose #278 > let new_disposable_token x =
00:00:17 verbose #279 > #if !INTERACTIVE
00:00:17 verbose #280 > Threading.new_disposable_token x
00:00:17 verbose #281 > #else
00:00:17 verbose #282 > new_disposable_token x
00:00:17 verbose #283 > #endif
00:00:17 verbose #284 >
00:00:17 verbose #285 > module Spi...
00:00:17 verbose #286 >
00:00:17 verbose #287 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #288 > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:17 verbose #289 >
00:00:17 verbose #290 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #291 > //// test
00:00:17 verbose #292 >
00:00:17 verbose #293 > type AssertExceptionFormatter (ex) =
00:00:17 verbose #294 > member _.Text =
00:00:17 verbose #295 > ex.ToString()
00:00:17 verbose #296 > .Replace("32m", "<span style=\"color: green;\">")
00:00:17 verbose #297 > .Replace("36m", "</span>")
00:00:17 verbose #298 > .Replace("31m", "<span style=\"color: red;\">")
00:00:17 verbose #299 > .Replace("\n", "<br/>\n")
00:00:17 verbose #300 >
00:00:17 verbose #301 >
00:00:17 verbose #302 > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:17 verbose #303 > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:17 verbose #304 >
00:00:17 verbose #305 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #306 > //// test
00:00:17 verbose #307 >
00:00:17 verbose #308 > let inline __expect fn log expected actual =
00:00:17 verbose #309 > if log then printfn $"{actual.ToDisplayString ()}"
00:00:17 verbose #310 > try
00:00:17 verbose #311 > "Testing.__expect" |> fn actual expected
00:00:17 verbose #312 > with :? Expecto.AssertException as ex ->
00:00:17 verbose #313 > AssertExceptionFormatter(ex).Display () |> ignore
00:00:17 verbose #314 > failwith (ex.GetType().FullName)
00:00:17 verbose #315 >
00:00:17 verbose #316 > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:17 verbose #317 > expected actual
00:00:17 verbose #318 > let inline _contains expected actual = __contains true expected actual
00:00:17 verbose #319 >
00:00:17 verbose #320 > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:17 verbose #321 > expected actual
00:00:17 verbose #322 > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:17 verbose #323 >
00:00:17 verbose #324 > let inline __isGreaterThan log expected actual = __expect
00:00:17 verbose #325 > Expecto.Expect.isGreaterThan log ex...
00:00:17 verbose #326 >
00:00:17 verbose #327 > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #328 > //// test
00:00:17 verbose #329 >
00:00:17 verbose #330 > let inline __isBetween log a b actual =
00:00:17 verbose #331 > let inline isBetween actual (a, b) _ =
00:00:17 verbose #332 > __isGreaterThanOrEqual log a actual
00:00:17 verbose #333 > __isLessThanOrEqual log b actual
00:00:17 verbose #334 > __expect isBetween log (a, b) actual
00:00:17 verbose #335 > let inline _isBetween a b actual = __isBetween true a b actual
00:00:17 verbose #336 >
00:00:17 verbose #337 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #338 > // // test
00:00:17 verbose #339 >
00:00:17 verbose #340 > open testing
00:00:17 verbose #341 > open benchmark
00:00:19 verbose #342 > 00:00:18 debug #4 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/a68bf544ee8067329270251865f764a781c0d58c964a15c207916a17aa1e46fb/main.spi
00:00:19 verbose #343 >
00:00:19 verbose #344 > ╭─[ 1.74s - stdout ]───────────────────────────────────────────────────────────╮
00:00:19 verbose #345 > │ () │
00:00:19 verbose #346 > │ │
00:00:19 verbose #347 > │ │
00:00:19 verbose #348 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #349 >
00:00:19 verbose #350 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #351 > #if !INTERACTIVE
00:00:19 verbose #352 > open Lib
00:00:19 verbose #353 > #endif
00:00:19 verbose #354 >
00:00:19 verbose #355 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #356 > inl (/@) x = listm'.(/@) x
00:00:19 verbose #357 > 00:00:19 debug #5 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/171b25408a8cd9975131a61829eed2aaaacb7f8dcb899921373e2d66b8003dc9/main.spi
00:00:19 verbose #358 >
00:00:19 verbose #359 > ╭─[ 325.46ms - stdout ]────────────────────────────────────────────────────────╮
00:00:19 verbose #360 > │ () │
00:00:19 verbose #361 > │ │
00:00:19 verbose #362 > │ │
00:00:19 verbose #363 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #364 >
00:00:19 verbose #365 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #366 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #367 > │ ## TestCaseResult │
00:00:19 verbose #368 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #369 >
00:00:19 verbose #370 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #371 > type TestCaseResult =
00:00:19 verbose #372 > {
00:00:19 verbose #373 > Input: string
00:00:19 verbose #374 > Expected: string
00:00:19 verbose #375 > Result: string
00:00:19 verbose #376 > TimeList: int64 list
00:00:19 verbose #377 > }
00:00:19 verbose #378 >
00:00:19 verbose #379 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #380 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #381 > │ ## run │
00:00:19 verbose #382 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #383 >
00:00:19 verbose #384 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #385 > let run count (solutions: (string * ('TInput -> 'TExpected)) list) (input,
00:00:19 verbose #386 > expected) =
00:00:19 verbose #387 > let inputStr =
00:00:19 verbose #388 > match box input with
00:00:19 verbose #389 > | :? System.Collections.ICollection as input ->
00:00:19 verbose #390 > System.Linq.Enumerable.Cast<obj> input
00:00:19 verbose #391 > |> Seq.map string
00:00:19 verbose #392 > |> SpiralSm.concat ","
00:00:19 verbose #393 > | _ -> input.ToString ()
00:00:19 verbose #394 >
00:00:19 verbose #395 > printfn ""
00:00:19 verbose #396 > printfn $"Solution: {inputStr} "
00:00:19 verbose #397 >
00:00:19 verbose #398 > let performanceInvoke (fn: unit -> 'T) =
00:00:19 verbose #399 > GC.Collect ()
00:00:19 verbose #400 > let stopwatch = System.Diagnostics.Stopwatch ()
00:00:19 verbose #401 > stopwatch.Start ()
00:00:19 verbose #402 > let time1 = stopwatch.ElapsedMilliseconds
00:00:19 verbose #403 >
00:00:19 verbose #404 > let result =
00:00:19 verbose #405 > [[| 0 .. count |]]
00:00:19 verbose #406 > |> Array.Parallel.map (fun _ ->
00:00:19 verbose #407 > fn ()
00:00:19 verbose #408 > )
00:00:19 verbose #409 > |> Array.last
00:00:19 verbose #410 >
00:00:19 verbose #411 > let time2 = stopwatch.ElapsedMilliseconds - time1
00:00:19 verbose #412 >
00:00:19 verbose #413 > result, time2
00:00:19 verbose #414 >
00:00:19 verbose #415 > let resultsWithTime =
00:00:19 verbose #416 > solutions
00:00:19 verbose #417 > |> List.mapi (fun i (testName, solution) ->
00:00:19 verbose #418 > let result, time = performanceInvoke (fun () -> solution input)
00:00:19 verbose #419 > printfn $"Test case %d{i + 1}. %s{testName}. Time: %A{time} "
00:00:19 verbose #420 > result, time
00:00:19 verbose #421 > )
00:00:19 verbose #422 >
00:00:19 verbose #423 >
00:00:19 verbose #424 > match resultsWithTime |> List.map fst with
00:00:19 verbose #425 > | ([[]] | [[ _ ]]) -> ()
00:00:19 verbose #426 > | (head :: tail) when tail |> List.forall ((=) head) -> ()
00:00:19 verbose #427 > | results -> failwithf $"Challenge error: %A{results}"
00:00:19 verbose #428 >
00:00:19 verbose #429 > {
00:00:19 verbose #430 > Input = inputStr
00:00:19 verbose #431 > Expected = expected.ToString ()
00:00:19 verbose #432 > Result = resultsWithTime |> Seq.map fst |> Seq.head |> _.ToString()
00:00:19 verbose #433 > TimeList = resultsWithTime |> List.map snd
00:00:19 verbose #434 > }
00:00:20 verbose #435 >
00:00:20 verbose #436 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #437 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #438 > │ ## runAll │
00:00:20 verbose #439 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #440 >
00:00:20 verbose #441 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #442 > let runAll testName count (solutions: (string * ('TInput -> 'TExpected)) list)
00:00:20 verbose #443 > testCases =
00:00:20 verbose #444 > printfn ""
00:00:20 verbose #445 > printfn ""
00:00:20 verbose #446 > printfn $"Test: {testName}"
00:00:20 verbose #447 > testCases
00:00:20 verbose #448 > |> Seq.map (run count solutions)
00:00:20 verbose #449 > |> Seq.toList
00:00:20 verbose #450 >
00:00:20 verbose #451 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #452 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #453 > │ ## sortResultList │
00:00:20 verbose #454 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #455 >
00:00:20 verbose #456 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #457 > let sortResultList resultList =
00:00:20 verbose #458 > let table =
00:00:20 verbose #459 > let rows =
00:00:20 verbose #460 > resultList
00:00:20 verbose #461 > |> List.map (fun result ->
00:00:20 verbose #462 > let best =
00:00:20 verbose #463 > result.TimeList
00:00:20 verbose #464 > |> List.mapi (fun i time ->
00:00:20 verbose #465 > i + 1, time
00:00:20 verbose #466 > )
00:00:20 verbose #467 > |> List.sortBy snd
00:00:20 verbose #468 > |> List.head
00:00:20 verbose #469 > |> _.ToString()
00:00:20 verbose #470 > let row =
00:00:20 verbose #471 > [[
00:00:20 verbose #472 > result.Input
00:00:20 verbose #473 > result.Expected
00:00:20 verbose #474 > result.Result
00:00:20 verbose #475 > best
00:00:20 verbose #476 > ]]
00:00:20 verbose #477 > let color =
00:00:20 verbose #478 > match result.Expected = result.Result with
00:00:20 verbose #479 > | true -> Some ConsoleColor.DarkGreen
00:00:20 verbose #480 > | false -> Some ConsoleColor.DarkRed
00:00:20 verbose #481 > row, color
00:00:20 verbose #482 > )
00:00:20 verbose #483 > let header =
00:00:20 verbose #484 > [[
00:00:20 verbose #485 > [[
00:00:20 verbose #486 > "Input"
00:00:20 verbose #487 > "Expected"
00:00:20 verbose #488 > "Result"
00:00:20 verbose #489 > "Best"
00:00:20 verbose #490 > ]]
00:00:20 verbose #491 > [[
00:00:20 verbose #492 > "---"
00:00:20 verbose #493 > "---"
00:00:20 verbose #494 > "---"
00:00:20 verbose #495 > "---"
00:00:20 verbose #496 > ]]
00:00:20 verbose #497 > ]]
00:00:20 verbose #498 > |> List.map (fun row -> row, None)
00:00:20 verbose #499 > header @ rows
00:00:20 verbose #500 >
00:00:20 verbose #501 > let formattedTable =
00:00:20 verbose #502 > let lengthMap =
00:00:20 verbose #503 > table
00:00:20 verbose #504 > |> List.map fst
00:00:20 verbose #505 > |> List.transpose
00:00:20 verbose #506 > |> List.map (fun column ->
00:00:20 verbose #507 > column
00:00:20 verbose #508 > |> List.map String.length
00:00:20 verbose #509 > |> List.sortDescending
00:00:20 verbose #510 > |> List.tryHead
00:00:20 verbose #511 > |> Option.defaultValue 0
00:00:20 verbose #512 > )
00:00:20 verbose #513 > |> List.indexed
00:00:20 verbose #514 > |> Map.ofList
00:00:20 verbose #515 > table
00:00:20 verbose #516 > |> List.map (fun (row, color) ->
00:00:20 verbose #517 > let newRow =
00:00:20 verbose #518 > row
00:00:20 verbose #519 > |> List.mapi (fun i cell ->
00:00:20 verbose #520 > cell.PadRight lengthMap.[[i]]
00:00:20 verbose #521 > )
00:00:20 verbose #522 > newRow, color
00:00:20 verbose #523 > )
00:00:20 verbose #524 >
00:00:20 verbose #525 > printfn ""
00:00:20 verbose #526 > formattedTable
00:00:20 verbose #527 > |> List.iter (fun (row, color) ->
00:00:20 verbose #528 > match color with
00:00:20 verbose #529 > | Some color -> Console.ForegroundColor <- color
00:00:20 verbose #530 > | None -> Console.ResetColor ()
00:00:20 verbose #531 >
00:00:20 verbose #532 > printfn "%s" (String.Join ("\t| ", row))
00:00:20 verbose #533 >
00:00:20 verbose #534 > Console.ResetColor ()
00:00:20 verbose #535 > )
00:00:20 verbose #536 >
00:00:20 verbose #537 > let averages =
00:00:20 verbose #538 > resultList
00:00:20 verbose #539 > |> List.map (fun result -> result.TimeList |> List.map float)
00:00:20 verbose #540 > |> List.transpose
00:00:20 verbose #541 > |> List.map List.average
00:00:20 verbose #542 > |> List.map int64
00:00:20 verbose #543 > |> List.indexed
00:00:20 verbose #544 >
00:00:20 verbose #545 > printfn ""
00:00:20 verbose #546 > printfn "Average Ranking "
00:00:20 verbose #547 > averages
00:00:20 verbose #548 > |> List.sortBy snd
00:00:20 verbose #549 > |> List.iter (fun (i, avg) ->
00:00:20 verbose #550 > printfn $"Test case %d{i + 1}. Average Time: %A{avg} "
00:00:20 verbose #551 > )
00:00:20 verbose #552 >
00:00:20 verbose #553 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #554 > let mutable _count =
00:00:20 verbose #555 > if ("CI" |> System.Environment.GetEnvironmentVariable |> fun x -> $"%A{x}")
00:00:20 verbose #556 > <> "<null>"
00:00:20 verbose #557 > then 2000000
00:00:20 verbose #558 > else 2000
00:00:20 verbose #559 >
00:00:20 verbose #560 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #561 > inl is_fast () =
00:00:20 verbose #562 > false
00:00:20 verbose #563 > 00:00:19 debug #6 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b0ccd1ee6008c4d24be9ff554910920ba62f1a3887ec8adff6148e1fad804ac5/main.spi
00:00:20 verbose #564 >
00:00:20 verbose #565 > ╭─[ 305.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:20 verbose #566 > │ () │
00:00:20 verbose #567 > │ │
00:00:20 verbose #568 > │ │
00:00:20 verbose #569 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #570 >
00:00:20 verbose #571 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #572 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #573 > │ ## empty3Tests │
00:00:20 verbose #574 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #575 >
00:00:20 verbose #576 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #577 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #578 > │ Test: Empty3 │
00:00:20 verbose #579 > │ │
00:00:20 verbose #580 > │ Solution: (a, a) │
00:00:20 verbose #581 > │ Test case 1. A. Time: 91L │
00:00:20 verbose #582 > │ │
00:00:20 verbose #583 > │ Solution: (a, a) │
00:00:20 verbose #584 > │ Test case 1. A. Time: 56L │
00:00:20 verbose #585 > │ │
00:00:20 verbose #586 > │ Input | Expected | Result | Best │
00:00:20 verbose #587 > │ --- | --- | --- | --- │
00:00:20 verbose #588 > │ (a, a) | a | a | (1, 91) │
00:00:20 verbose #589 > │ (a, a) | a | a | (1, 56) │
00:00:20 verbose #590 > │ │
00:00:20 verbose #591 > │ Averages │
00:00:20 verbose #592 > │ Test case 1. Average Time: 73L │
00:00:20 verbose #593 > │ │
00:00:20 verbose #594 > │ Ranking │
00:00:20 verbose #595 > │ Test case 1. Average Time: 73L │
00:00:20 verbose #596 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #597 >
00:00:20 verbose #598 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #599 > //// test
00:00:20 verbose #600 >
00:00:20 verbose #601 > let solutions = [[
00:00:20 verbose #602 > "A",
00:00:20 verbose #603 > fun (a, _b) ->
00:00:20 verbose #604 > a
00:00:20 verbose #605 > ]]
00:00:20 verbose #606 > let testCases = seq {
00:00:20 verbose #607 > ("a", "a"), "a"
00:00:20 verbose #608 > ("a", "a"), "a"
00:00:20 verbose #609 > }
00:00:20 verbose #610 > let rec empty3Tests = runAll (nameof empty3Tests) _count solutions testCases
00:00:20 verbose #611 > empty3Tests
00:00:20 verbose #612 > |> sortResultList
00:00:21 verbose #613 >
00:00:21 verbose #614 > ╭─[ 414.31ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 verbose #615 > │ │
00:00:21 verbose #616 > │ │
00:00:21 verbose #617 > │ Test: empty3Tests │
00:00:21 verbose #618 > │ │
00:00:21 verbose #619 > │ Solution: (a, a) │
00:00:21 verbose #620 > │ Test case 1. A. Time: 1L │
00:00:21 verbose #621 > │ │
00:00:21 verbose #622 > │ Solution: (a, a) │
00:00:21 verbose #623 > │ Test case 1. A. Time: 0L │
00:00:21 verbose #624 > │ │
00:00:21 verbose #625 > │ Input | Expected | Result | Best │
00:00:21 verbose #626 > │ --- | --- | --- | --- │
00:00:21 verbose #627 > │ (a, a) | a | a | (1, 1) │
00:00:21 verbose #628 > │ (a, a) | a | a | (1, 0) │
00:00:21 verbose #629 > │ │
00:00:21 verbose #630 > │ Average Ranking │
00:00:21 verbose #631 > │ Test case 1. Average Time: 0L │
00:00:21 verbose #632 > │ │
00:00:21 verbose #633 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #634 >
00:00:21 verbose #635 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #636 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #637 > │ ## empty2Tests │
00:00:21 verbose #638 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #639 >
00:00:21 verbose #640 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #641 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #642 > │ Test: Empty2 │
00:00:21 verbose #643 > │ │
00:00:21 verbose #644 > │ Solution: (a, a) │
00:00:21 verbose #645 > │ Test case 1. A. Time: 59L │
00:00:21 verbose #646 > │ │
00:00:21 verbose #647 > │ Solution: (a, a) │
00:00:21 verbose #648 > │ Test case 1. A. Time: 53L │
00:00:21 verbose #649 > │ │
00:00:21 verbose #650 > │ Input | Expected | Result | Best │
00:00:21 verbose #651 > │ --- | --- | --- | --- │
00:00:21 verbose #652 > │ (a, a) | a | a | (1, 59) │
00:00:21 verbose #653 > │ (a, a) | a | a | (1, 53) │
00:00:21 verbose #654 > │ │
00:00:21 verbose #655 > │ Averages │
00:00:21 verbose #656 > │ Test case 1. Average Time: 56L │
00:00:21 verbose #657 > │ │
00:00:21 verbose #658 > │ Ranking │
00:00:21 verbose #659 > │ Test case 1. Average Time: 56L │
00:00:21 verbose #660 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #661 >
00:00:21 verbose #662 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #663 > //// test
00:00:21 verbose #664 >
00:00:21 verbose #665 > let solutions = [[
00:00:21 verbose #666 > "A",
00:00:21 verbose #667 > fun (a, _b) ->
00:00:21 verbose #668 > a
00:00:21 verbose #669 > ]]
00:00:21 verbose #670 > let testCases = seq {
00:00:21 verbose #671 > ("a", "a"), "a"
00:00:21 verbose #672 > ("a", "a"), "a"
00:00:21 verbose #673 > }
00:00:21 verbose #674 > let rec empty2Tests = runAll (nameof empty2Tests) _count solutions testCases
00:00:21 verbose #675 > empty2Tests
00:00:21 verbose #676 > |> sortResultList
00:00:21 verbose #677 >
00:00:21 verbose #678 > ╭─[ 423.47ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 verbose #679 > │ │
00:00:21 verbose #680 > │ │
00:00:21 verbose #681 > │ Test: empty2Tests │
00:00:21 verbose #682 > │ │
00:00:21 verbose #683 > │ Solution: (a, a) │
00:00:21 verbose #684 > │ Test case 1. A. Time: 1L │
00:00:21 verbose #685 > │ │
00:00:21 verbose #686 > │ Solution: (a, a) │
00:00:21 verbose #687 > │ Test case 1. A. Time: 0L │
00:00:21 verbose #688 > │ │
00:00:21 verbose #689 > │ Input | Expected | Result | Best │
00:00:21 verbose #690 > │ --- | --- | --- | --- │
00:00:21 verbose #691 > │ (a, a) | a | a | (1, 1) │
00:00:21 verbose #692 > │ (a, a) | a | a | (1, 0) │
00:00:21 verbose #693 > │ │
00:00:21 verbose #694 > │ Average Ranking │
00:00:21 verbose #695 > │ Test case 1. Average Time: 0L │
00:00:21 verbose #696 > │ │
00:00:21 verbose #697 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #698 >
00:00:21 verbose #699 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #700 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #701 > │ ## emptyTests │
00:00:21 verbose #702 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #703 >
00:00:21 verbose #704 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #705 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #706 > │ Test: Empty │
00:00:21 verbose #707 > │ │
00:00:21 verbose #708 > │ Solution: 0 │
00:00:21 verbose #709 > │ Test case 1. A. Time: 61L │
00:00:21 verbose #710 > │ │
00:00:21 verbose #711 > │ Solution: 2 │
00:00:21 verbose #712 > │ Test case 1. A. Time: 62L │
00:00:21 verbose #713 > │ │
00:00:21 verbose #714 > │ Solution: 5 │
00:00:21 verbose #715 > │ Test case 1. A. Time: 70L │
00:00:21 verbose #716 > │ │
00:00:21 verbose #717 > │ Input | Expected | Result | Best │
00:00:21 verbose #718 > │ --- | --- | --- | --- │
00:00:21 verbose #719 > │ 0 | 0 | 0 | (1, 61) │
00:00:21 verbose #720 > │ 2 | 2 | 2 | (1, 62) │
00:00:21 verbose #721 > │ 5 | 5 | 5 | (1, 70) │
00:00:21 verbose #722 > │ │
00:00:21 verbose #723 > │ Averages │
00:00:21 verbose #724 > │ Test case 1. Average Time: 64L │
00:00:21 verbose #725 > │ │
00:00:21 verbose #726 > │ Ranking │
00:00:21 verbose #727 > │ Test case 1. Average Time: 64L │
00:00:21 verbose #728 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #729 >
00:00:21 verbose #730 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #731 > //// test
00:00:21 verbose #732 >
00:00:21 verbose #733 > let solutions = [[
00:00:21 verbose #734 > "A",
00:00:21 verbose #735 > fun n ->
00:00:21 verbose #736 > n + 0
00:00:21 verbose #737 > ]]
00:00:21 verbose #738 > let testCases = seq {
00:00:21 verbose #739 > 0, 0
00:00:21 verbose #740 > 2, 2
00:00:21 verbose #741 > 5, 5
00:00:21 verbose #742 > }
00:00:21 verbose #743 > let rec emptyTests = runAll (nameof emptyTests) _count solutions testCases
00:00:21 verbose #744 > emptyTests
00:00:21 verbose #745 > |> sortResultList
00:00:22 verbose #746 >
00:00:22 verbose #747 > ╭─[ 548.59ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #748 > │ │
00:00:22 verbose #749 > │ │
00:00:22 verbose #750 > │ Test: emptyTests │
00:00:22 verbose #751 > │ │
00:00:22 verbose #752 > │ Solution: 0 │
00:00:22 verbose #753 > │ Test case 1. A. Time: 2L │
00:00:22 verbose #754 > │ │
00:00:22 verbose #755 > │ Solution: 2 │
00:00:22 verbose #756 > │ Test case 1. A. Time: 0L │
00:00:22 verbose #757 > │ │
00:00:22 verbose #758 > │ Solution: 5 │
00:00:22 verbose #759 > │ Test case 1. A. Time: 0L │
00:00:22 verbose #760 > │ │
00:00:22 verbose #761 > │ Input | Expected | Result | Best │
00:00:22 verbose #762 > │ --- | --- | --- | --- │
00:00:22 verbose #763 > │ 0 | 0 | 0 | (1, 2) │
00:00:22 verbose #764 > │ 2 | 2 | 2 | (1, 0) │
00:00:22 verbose #765 > │ 5 | 5 | 5 | (1, 0) │
00:00:22 verbose #766 > │ │
00:00:22 verbose #767 > │ Average Ranking │
00:00:22 verbose #768 > │ Test case 1. Average Time: 0L │
00:00:22 verbose #769 > │ │
00:00:22 verbose #770 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #771 >
00:00:22 verbose #772 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #773 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #774 > │ ## uniqueLettersTests │
00:00:22 verbose #775 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #776 >
00:00:22 verbose #777 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #778 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #779 > │ Test: UniqueLetters │
00:00:22 verbose #780 > │ │
00:00:22 verbose #781 > │ Solution: abc │
00:00:22 verbose #782 > │ Test case 1. A. Time: 1512L │
00:00:22 verbose #783 > │ Test case 2. B. Time: 1947L │
00:00:22 verbose #784 > │ Test case 3. C. Time: 2023L │
00:00:22 verbose #785 > │ Test case 4. D. Time: 1358L │
00:00:22 verbose #786 > │ Test case 5. E. Time: 1321L │
00:00:22 verbose #787 > │ Test case 6. F. Time: 1346L │
00:00:22 verbose #788 > │ Test case 7. G. Time: 1304L │
00:00:22 verbose #789 > │ Test case 8. H. Time: 1383L │
00:00:22 verbose #790 > │ Test case 9. I. Time: 1495L │
00:00:22 verbose #791 > │ Test case 10. J. Time: 1245L │
00:00:22 verbose #792 > │ Test case 11. K. Time: 1219L │
00:00:22 verbose #793 > │ │
00:00:22 verbose #794 > │ Solution: accabb │
00:00:22 verbose #795 > │ Test case 1. A. Time: 1648L │
00:00:22 verbose #796 > │ Test case 2. B. Time: 2061L │
00:00:22 verbose #797 > │ Test case 3. C. Time: 2413L │
00:00:22 verbose #798 > │ Test case 4. D. Time: 1561L │
00:00:22 verbose #799 > │ Test case 5. E. Time: 1593L │
00:00:22 verbose #800 > │ Test case 6. F. Time: 1518L │
00:00:22 verbose #801 > │ Test case 7. G. Time: 1415L │
00:00:22 verbose #802 > │ Test case 8. H. Time: 1510L │
00:00:22 verbose #803 > │ Test case 9. I. Time: 1445L │
00:00:22 verbose #804 > │ Test case 10. J. Time: 1636L │
00:00:22 verbose #805 > │ Test case 11. K. Time: 1317L │
00:00:22 verbose #806 > │ │
00:00:22 verbose #807 > │ Solution: pprrqqpp │
00:00:22 verbose #808 > │ Test case 1. A. Time: 2255L │
00:00:22 verbose #809 > │ Test case 2. B. Time: 2408L │
00:00:22 verbose #810 > │ Test case 3. C. Time: 2393L │
00:00:22 verbose #811 > │ Test case 4. D. Time: 1675L │
00:00:22 verbose #812 > │ Test case 5. E. Time: 1911L │
00:00:22 verbose #813 > │ Test case 6. F. Time: 2126L │
00:00:22 verbose #814 > │ Test case 7. G. Time: 1504L │
00:00:22 verbose #815 > │ Test case 8. H. Time: 1715L │
00:00:22 verbose #816 > │ Test case 9. I. Time: 1537L │
00:00:22 verbose #817 > │ Test case 10. J. Time: 1522L │
00:00:22 verbose #818 > │ Test case 11. K. Time: 1322L │
00:00:22 verbose #819 > │ │
00:00:22 verbose #820 > │ Solution: │
00:00:22 verbose #821 > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:22 verbose #822 > │ bbb │
00:00:22 verbose #823 > │ Test case 1. A. Time: 13073L │
00:00:22 verbose #824 > │ Test case 2. B. Time: 11519L │
00:00:22 verbose #825 > │ Test case 3. C. Time: 8373L │
00:00:22 verbose #826 > │ Test case 4. D. Time: 5860L │
00:00:22 verbose #827 > │ Test case 5. E. Time: 6490L │
00:00:22 verbose #828 > │ Test case 6. F. Time: 6325L │
00:00:22 verbose #829 > │ Test case 7. G. Time: 5799L │
00:00:22 verbose #830 > │ Test case 8. H. Time: 7099L │
00:00:22 verbose #831 > │ Test case 9. I. Time: 6133L │
00:00:22 verbose #832 > │ Test case 10. J. Time: 5993L │
00:00:22 verbose #833 > │ Test case 11. K. Time: 2040L │
00:00:22 verbose #834 > │ │
00:00:22 verbose #835 > │ Input │
00:00:22 verbose #836 > │ | Expected | Result | Best │
00:00:22 verbose #837 > │ --- │
00:00:22 verbose #838 > │ │
00:00:22 verbose #839 > │ | --- | --- | --- │
00:00:22 verbose #840 > │ abc │
00:00:22 verbose #841 > │ │
00:00:22 verbose #842 > │ | abc | abc | (11, 1219) │
00:00:22 verbose #843 > │ accabb │
00:00:22 verbose #844 > │ | acb | acb | (11, 1317) │
00:00:22 verbose #845 > │ pprrqqpp │
00:00:22 verbose #846 > │ | prq | prq | (11, 1322) │
00:00:22 verbose #847 > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:22 verbose #848 > │ bbb | acb | acb | (11, 2040) │
00:00:22 verbose #849 > │ │
00:00:22 verbose #850 > │ Averages │
00:00:22 verbose #851 > │ Test case 1. Average Time: 4622L │
00:00:22 verbose #852 > │ Test case 2. Average Time: 4483L │
00:00:22 verbose #853 > │ Test case 3. Average Time: 3800L │
00:00:22 verbose #854 > │ Test case 4. Average Time: 2613L │
00:00:22 verbose #855 > │ Test case 5. Average Time: 2828L │
00:00:22 verbose #856 > │ Test case 6. Average Time: 2828L │
00:00:22 verbose #857 > │ Test case 7. Average Time: 2505L │
00:00:22 verbose #858 > │ Test case 8. Average Time: 2926L │
00:00:22 verbose #859 > │ Test case 9. Average Time: 2652L │
00:00:22 verbose #860 > │ Test case 10. Average Time: 2599L │
00:00:22 verbose #861 > │ Test case 11. Average Time: 1474L │
00:00:22 verbose #862 > │ │
00:00:22 verbose #863 > │ Ranking │
00:00:22 verbose #864 > │ Test case 1. Average Time: 4622L │
00:00:22 verbose #865 > │ Test case 2. Average Time: 4483L │
00:00:22 verbose #866 > │ Test case 3. Average Time: 3800L │
00:00:22 verbose #867 > │ Test case 8. Average Time: 2926L │
00:00:22 verbose #868 > │ Test case 5. Average Time: 2828L │
00:00:22 verbose #869 > │ Test case 6. Average Time: 2828L │
00:00:22 verbose #870 > │ Test case 9. Average Time: 2652L │
00:00:22 verbose #871 > │ Test case 4. Average Time: 2613L │
00:00:22 verbose #872 > │ Test case 10. Average Time: 2599L │
00:00:22 verbose #873 > │ Test case 7. Average Time: 2505L │
00:00:22 verbose #874 > │ Test case 11. Average Time: 1474L │
00:00:22 verbose #875 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #876 >
00:00:22 verbose #877 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #878 > //// test
00:00:22 verbose #879 >
00:00:22 verbose #880 > let solutions = [[
00:00:22 verbose #881 > "A",
00:00:22 verbose #882 > fun input ->
00:00:22 verbose #883 > input
00:00:22 verbose #884 > |> Seq.toList
00:00:22 verbose #885 > |> List.fold (fun acc x -> if List.contains x acc then acc else acc @ [[
00:00:22 verbose #886 > x ]]) [[]]
00:00:22 verbose #887 > |> Seq.toArray
00:00:22 verbose #888 > |> String
00:00:22 verbose #889 >
00:00:22 verbose #890 > "B",
00:00:22 verbose #891 > fun input ->
00:00:22 verbose #892 > input
00:00:22 verbose #893 > |> Seq.rev
00:00:22 verbose #894 > |> fun list -> Seq.foldBack (fun x acc -> if List.contains x acc then
00:00:22 verbose #895 > acc else x :: acc) list [[]]
00:00:22 verbose #896 > |> Seq.rev
00:00:22 verbose #897 > |> Seq.toArray
00:00:22 verbose #898 > |> String
00:00:22 verbose #899 >
00:00:22 verbose #900 > "C",
00:00:22 verbose #901 > fun input ->
00:00:22 verbose #902 > input
00:00:22 verbose #903 > |> Seq.rev
00:00:22 verbose #904 > |> fun list -> Seq.foldBack (fun x (set, acc) -> if Set.contains x set
00:00:22 verbose #905 > then set, acc else set.Add x, x :: acc) list (Set.empty, [[]])
00:00:22 verbose #906 > |> snd
00:00:22 verbose #907 > |> Seq.rev
00:00:22 verbose #908 > |> Seq.toArray
00:00:22 verbose #909 > |> String
00:00:22 verbose #910 >
00:00:22 verbose #911 > "D",
00:00:22 verbose #912 > fun input ->
00:00:22 verbose #913 > input
00:00:22 verbose #914 > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:22 verbose #915 > else set.Add x, Array.append acc [[| x |]]) (Set.empty, [[||]])
00:00:22 verbose #916 > |> snd
00:00:22 verbose #917 > |> String
00:00:22 verbose #918 >
00:00:22 verbose #919 > "E",
00:00:22 verbose #920 > fun input ->
00:00:22 verbose #921 > input
00:00:22 verbose #922 > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:22 verbose #923 > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:22 verbose #924 > |> snd
00:00:22 verbose #925 > |> List.rev
00:00:22 verbose #926 > |> List.toArray
00:00:22 verbose #927 > |> String
00:00:22 verbose #928 >
00:00:22 verbose #929 > "F",
00:00:22 verbose #930 > fun input ->
00:00:22 verbose #931 > input
00:00:22 verbose #932 > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:22 verbose #933 > else set.Add x, acc @ [[ x ]]) (Set.empty, [[]])
00:00:22 verbose #934 > |> snd
00:00:22 verbose #935 > |> List.toArray
00:00:22 verbose #936 > |> String
00:00:22 verbose #937 >
00:00:22 verbose #938 > "G",
00:00:22 verbose #939 > fun input ->
00:00:22 verbose #940 > input
00:00:22 verbose #941 > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:22 verbose #942 > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:22 verbose #943 > |> snd
00:00:22 verbose #944 > |> List.toArray
00:00:22 verbose #945 > |> Array.rev
00:00:22 verbose #946 > |> String
00:00:22 verbose #947 >
00:00:22 verbose #948 > "H",
00:00:22 verbose #949 > fun input ->
00:00:22 verbose #950 > input
00:00:22 verbose #951 > |> Seq.toList
00:00:22 verbose #952 > |> fun list ->
00:00:22 verbose #953 > let rec loop set = function
00:00:22 verbose #954 > | head :: tail when Set.contains head set -> loop set tail
00:00:22 verbose #955 > | head :: tail -> (loop (set.Add head) tail) @ [[ head ]]
00:00:22 verbose #956 > | [[]] -> [[]]
00:00:22 verbose #957 > loop Set.empty list
00:00:22 verbose #958 > |> List.rev
00:00:22 verbose #959 > |> List.toArray
00:00:22 verbose #960 > |> String
00:00:22 verbose #961 >
00:00:22 verbose #962 > "I",
00:00:22 verbose #963 > fun input ->
00:00:22 verbose #964 > input
00:00:22 verbose #965 > |> Seq.toList
00:00:22 verbose #966 > |> fun list ->
00:00:22 verbose #967 > let rec loop set = function
00:00:22 verbose #968 > | head :: tail when Set.contains head set -> loop set tail
00:00:22 verbose #969 > | head :: tail -> loop (set.Add head) tail |> Array.append [[|
00:00:22 verbose #970 > head |]]
00:00:22 verbose #971 > | [[]] -> [[||]]
00:00:22 verbose #972 > loop Set.empty list
00:00:22 verbose #973 > |> String
00:00:22 verbose #974 >
00:00:22 verbose #975 > "J",
00:00:22 verbose #976 > fun input ->
00:00:22 verbose #977 > input
00:00:22 verbose #978 > |> Seq.toList
00:00:22 verbose #979 > |> fun list ->
00:00:22 verbose #980 > let rec loop set = function
00:00:22 verbose #981 > | head :: tail when Set.contains head set -> loop set tail
00:00:22 verbose #982 > | head :: tail -> head :: loop (set.Add head) tail
00:00:22 verbose #983 > | [[]] -> [[]]
00:00:22 verbose #984 > loop Set.empty list
00:00:22 verbose #985 > |> List.toArray
00:00:22 verbose #986 > |> String
00:00:22 verbose #987 >
00:00:22 verbose #988 > "K",
00:00:22 verbose #989 > fun input ->
00:00:22 verbose #990 > input
00:00:22 verbose #991 > |> Seq.distinct
00:00:22 verbose #992 > |> Seq.toArray
00:00:22 verbose #993 > |> String
00:00:22 verbose #994 > ]]
00:00:22 verbose #995 > let testCases = seq {
00:00:22 verbose #996 > "abc", "abc"
00:00:22 verbose #997 > "accabb", "acb"
00:00:22 verbose #998 > "pprrqqpp", "prq"
00:00:22 verbose #999 >
00:00:22 verbose #1000 > "aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbbbbb
00:00:22 verbose #1001 > ", "acb"
00:00:22 verbose #1002 > }
00:00:22 verbose #1003 > let rec uniqueLettersTests = runAll (nameof uniqueLettersTests) _count solutions
00:00:22 verbose #1004 > testCases
00:00:22 verbose #1005 > uniqueLettersTests
00:00:22 verbose #1006 > |> sortResultList
00:00:29 verbose #1007 >
00:00:29 verbose #1008 > ╭─[ 7.39s - stdout ]───────────────────────────────────────────────────────────╮
00:00:29 verbose #1009 > │ │
00:00:29 verbose #1010 > │ │
00:00:29 verbose #1011 > │ Test: uniqueLettersTests │
00:00:29 verbose #1012 > │ │
00:00:29 verbose #1013 > │ Solution: abc │
00:00:29 verbose #1014 > │ Test case 1. A. Time: 4L │
00:00:29 verbose #1015 > │ Test case 2. B. Time: 5L │
00:00:29 verbose #1016 > │ Test case 3. C. Time: 4L │
00:00:29 verbose #1017 > │ Test case 4. D. Time: 2L │
00:00:29 verbose #1018 > │ Test case 5. E. Time: 1L │
00:00:29 verbose #1019 > │ Test case 6. F. Time: 1L │
00:00:29 verbose #1020 > │ Test case 7. G. Time: 1L │
00:00:29 verbose #1021 > │ Test case 8. H. Time: 2L │
00:00:29 verbose #1022 > │ Test case 9. I. Time: 1L │
00:00:29 verbose #1023 > │ Test case 10. J. Time: 1L │
00:00:29 verbose #1024 > │ Test case 11. K. Time: 3L │
00:00:29 verbose #1025 > │ │
00:00:29 verbose #1026 > │ Solution: accabb │
00:00:29 verbose #1027 > │ Test case 1. A. Time: 1L │
00:00:29 verbose #1028 > │ Test case 2. B. Time: 1L │
00:00:29 verbose #1029 > │ Test case 3. C. Time: 1L │
00:00:29 verbose #1030 > │ Test case 4. D. Time: 1L │
00:00:29 verbose #1031 > │ Test case 5. E. Time: 1L │
00:00:29 verbose #1032 > │ Test case 6. F. Time: 1L │
00:00:29 verbose #1033 > │ Test case 7. G. Time: 0L │
00:00:29 verbose #1034 > │ Test case 8. H. Time: 0L │
00:00:29 verbose #1035 > │ Test case 9. I. Time: 0L │
00:00:29 verbose #1036 > │ Test case 10. J. Time: 1L │
00:00:29 verbose #1037 > │ Test case 11. K. Time: 1L │
00:00:29 verbose #1038 > │ │
00:00:29 verbose #1039 > │ Solution: pprrqqpp │
00:00:29 verbose #1040 > │ Test case 1. A. Time: 1L │
00:00:29 verbose #1041 > │ Test case 2. B. Time: 1L │
00:00:29 verbose #1042 > │ Test case 3. C. Time: 1L │
00:00:29 verbose #1043 > │ Test case 4. D. Time: 1L │
00:00:29 verbose #1044 > │ Test case 5. E. Time: 1L │
00:00:29 verbose #1045 > │ Test case 6. F. Time: 1L │
00:00:29 verbose #1046 > │ Test case 7. G. Time: 1L │
00:00:29 verbose #1047 > │ Test case 8. H. Time: 1L │
00:00:29 verbose #1048 > │ Test case 9. I. Time: 1L │
00:00:29 verbose #1049 > │ Test case 10. J. Time: 1L │
00:00:29 verbose #1050 > │ Test case 11. K. Time: 0L │
00:00:29 verbose #1051 > │ │
00:00:29 verbose #1052 > │ Solution: │
00:00:29 verbose #1053 > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:29 verbose #1054 > │ bbb │
00:00:29 verbose #1055 > │ Test case 1. A. Time: 14L │
00:00:29 verbose #1056 > │ Test case 2. B. Time: 10L │
00:00:29 verbose #1057 > │ Test case 3. C. Time: 13L │
00:00:29 verbose #1058 > │ Test case 4. D. Time: 8L │
00:00:29 verbose #1059 > │ Test case 5. E. Time: 10L │
00:00:29 verbose #1060 > │ Test case 6. F. Time: 11L │
00:00:29 verbose #1061 > │ Test case 7. G. Time: 8L │
00:00:29 verbose #1062 > │ Test case 8. H. Time: 10L │
00:00:29 verbose #1063 > │ Test case 9. I. Time: 7L │
00:00:29 verbose #1064 > │ Test case 10. J. Time: 10L │
00:00:29 verbose #1065 > │ Test case 11. K. Time: 3L │
00:00:29 verbose #1066 > │ │
00:00:29 verbose #1067 > │ Input │
00:00:29 verbose #1068 > │ | Expected | Result | Best │
00:00:29 verbose #1069 > │ --- │
00:00:29 verbose #1070 > │ | --- | --- | --- │
00:00:29 verbose #1071 > │ abc │
00:00:29 verbose #1072 > │ | abc | abc | (5, 1) │
00:00:29 verbose #1073 > │ accabb │
00:00:29 verbose #1074 > │ | acb | acb | (7, 0) │
00:00:29 verbose #1075 > │ pprrqqpp │
00:00:29 verbose #1076 > │ | prq | prq | (11, 0) │
00:00:29 verbose #1077 > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:29 verbose #1078 > │ bbb | acb | acb | (11, 3) │
00:00:29 verbose #1079 > │ │
00:00:29 verbose #1080 > │ Average Ranking │
00:00:29 verbose #1081 > │ Test case 11. Average Time: 1L │
00:00:29 verbose #1082 > │ Test case 7. Average Time: 2L │
00:00:29 verbose #1083 > │ Test case 9. Average Time: 2L │
00:00:29 verbose #1084 > │ Test case 4. Average Time: 3L │
00:00:29 verbose #1085 > │ Test case 5. Average Time: 3L │
00:00:29 verbose #1086 > │ Test case 6. Average Time: 3L │
00:00:29 verbose #1087 > │ Test case 8. Average Time: 3L │
00:00:29 verbose #1088 > │ Test case 10. Average Time: 3L │
00:00:29 verbose #1089 > │ Test case 2. Average Time: 4L │
00:00:29 verbose #1090 > │ Test case 3. Average Time: 4L │
00:00:29 verbose #1091 > │ Test case 1. Average Time: 5L │
00:00:29 verbose #1092 > │ │
00:00:29 verbose #1093 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #1094 >
00:00:29 verbose #1095 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #1096 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #1097 > │ ## rotateStringsTests │
00:00:29 verbose #1098 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #1099 >
00:00:29 verbose #1100 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #1101 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #1102 > │ https://www.hackerrank.com/challenges/rotate-string/forum │
00:00:29 verbose #1103 > │ │
00:00:29 verbose #1104 > │ Test: RotateStrings │
00:00:29 verbose #1105 > │ │
00:00:29 verbose #1106 > │ Solution: abc │
00:00:29 verbose #1107 > │ Test case 1. A. Time: 1842L │
00:00:29 verbose #1108 > │ Test case 2. B. Time: 1846L │
00:00:29 verbose #1109 > │ Test case 3. C. Time: 1936L │
00:00:29 verbose #1110 > │ Test case 4. CA. Time: 2224L │
00:00:29 verbose #1111 > │ Test case 5. CB. Time: 2329L │
00:00:29 verbose #1112 > │ Test case 6. D. Time: 2474L │
00:00:29 verbose #1113 > │ Test case 7. E. Time: 1664L │
00:00:29 verbose #1114 > │ Test case 8. F. Time: 1517L │
00:00:29 verbose #1115 > │ Test case 9. FA. Time: 1651L │
00:00:29 verbose #1116 > │ Test case 10. FB. Time: 3764L │
00:00:29 verbose #1117 > │ Test case 11. FC. Time: 5415L │
00:00:29 verbose #1118 > │ │
00:00:29 verbose #1119 > │ Solution: abcde │
00:00:29 verbose #1120 > │ Test case 1. A. Time: 3356L │
00:00:29 verbose #1121 > │ Test case 2. B. Time: 2592L │
00:00:29 verbose #1122 > │ Test case 3. C. Time: 2346L │
00:00:29 verbose #1123 > │ Test case 4. CA. Time: 2997L │
00:00:29 verbose #1124 > │ Test case 5. CB. Time: 3061L │
00:00:29 verbose #1125 > │ Test case 6. D. Time: 4051L │
00:00:29 verbose #1126 > │ Test case 7. E. Time: 1905L │
00:00:29 verbose #1127 > │ Test case 8. F. Time: 1771L │
00:00:29 verbose #1128 > │ Test case 9. FA. Time: 2175L │
00:00:29 verbose #1129 > │ Test case 10. FB. Time: 3275L │
00:00:29 verbose #1130 > │ Test case 11. FC. Time: 5266L │
00:00:29 verbose #1131 > │ │
00:00:29 verbose #1132 > │ Solution: abcdefghi │
00:00:29 verbose #1133 > │ Test case 1. A. Time: 4492L │
00:00:29 verbose #1134 > │ Test case 2. B. Time: 3526L │
00:00:29 verbose #1135 > │ Test case 3. C. Time: 3583L │
00:00:29 verbose #1136 > │ Test case 4. CA. Time: 3711L │
00:00:29 verbose #1137 > │ Test case 5. CB. Time: 4783L │
00:00:29 verbose #1138 > │ Test case 6. D. Time: 7557L │
00:00:29 verbose #1139 > │ Test case 7. E. Time: 3452L │
00:00:29 verbose #1140 > │ Test case 8. F. Time: 3050L │
00:00:29 verbose #1141 > │ Test case 9. FA. Time: 3275L │
00:00:29 verbose #1142 > │ Test case 10. FB. Time: 4635L │
00:00:29 verbose #1143 > │ Test case 11. FC. Time: 5616L │
00:00:29 verbose #1144 > │ │
00:00:29 verbose #1145 > │ Solution: abab │
00:00:29 verbose #1146 > │ Test case 1. A. Time: 2093L │
00:00:29 verbose #1147 > │ Test case 2. B. Time: 1843L │
00:00:29 verbose #1148 > │ Test case 3. C. Time: 1746L │
00:00:29 verbose #1149 > │ Test case 4. CA. Time: 2085L │
00:00:29 verbose #1150 > │ Test case 5. CB. Time: 2139L │
00:00:29 verbose #1151 > │ Test case 6. D. Time: 2095L │
00:00:29 verbose #1152 > │ Test case 7. E. Time: 1723L │
00:00:29 verbose #1153 > │ Test case 8. F. Time: 1558L │
00:00:29 verbose #1154 > │ Test case 9. FA. Time: 1620L │
00:00:29 verbose #1155 > │ Test case 10. FB. Time: 2319L │
00:00:29 verbose #1156 > │ Test case 11. FC. Time: 3918L │
00:00:29 verbose #1157 > │ │
00:00:29 verbose #1158 > │ Solution: aa │
00:00:29 verbose #1159 > │ Test case 1. A. Time: 1107L │
00:00:29 verbose #1160 > │ Test case 2. B. Time: 1241L │
00:00:29 verbose #1161 > │ Test case 3. C. Time: 1183L │
00:00:29 verbose #1162 > │ Test case 4. CA. Time: 1563L │
00:00:29 verbose #1163 > │ Test case 5. CB. Time: 1525L │
00:00:29 verbose #1164 > │ Test case 6. D. Time: 1591L │
00:00:29 verbose #1165 > │ Test case 7. E. Time: 1327L │
00:00:29 verbose #1166 > │ Test case 8. F. Time: 1151L │
00:00:29 verbose #1167 > │ Test case 9. FA. Time: 1180L │
00:00:29 verbose #1168 > │ Test case 10. FB. Time: 1733L │
00:00:29 verbose #1169 > │ Test case 11. FC. Time: 2817L │
00:00:29 verbose #1170 > │ │
00:00:29 verbose #1171 > │ Solution: z │
00:00:29 verbose #1172 > │ Test case 1. A. Time: 816L │
00:00:29 verbose #1173 > │ Test case 2. B. Time: 745L │
00:00:29 verbose #1174 > │ Test case 3. C. Time: 928L │
00:00:29 verbose #1175 > │ Test case 4. CA. Time: 1375L │
00:00:29 verbose #1176 > │ Test case 5. CB. Time: 1029L │
00:00:29 verbose #1177 > │ Test case 6. D. Time: 852L │
00:00:29 verbose #1178 > │ Test case 7. E. Time: 712L │
00:00:29 verbose #1179 > │ Test case 8. F. Time: 263L │
00:00:29 verbose #1180 > │ Test case 9. FA. Time: 232L │
00:00:29 verbose #1181 > │ Test case 10. FB. Time: 773L │
00:00:29 verbose #1182 > │ Test case 11. FC. Time: 1789L │
00:00:29 verbose #1183 > │ │
00:00:29 verbose #1184 > │ Input | Expected │
00:00:29 verbose #1185 > │ │
00:00:29 verbose #1186 > │ | Result │
00:00:29 verbose #1187 > │ │
00:00:29 verbose #1188 > │ | Best │
00:00:29 verbose #1189 > │ --- | --- │
00:00:29 verbose #1190 > │ │
00:00:29 verbose #1191 > │ | --- │
00:00:29 verbose #1192 > │ │
00:00:29 verbose #1193 > │ | --- │
00:00:29 verbose #1194 > │ abc | bca cab abc │
00:00:29 verbose #1195 > │ │
00:00:29 verbose #1196 > │ | bca cab abc │
00:00:29 verbose #1197 > │ │
00:00:29 verbose #1198 > │ | (8, 1517) │
00:00:29 verbose #1199 > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:29 verbose #1200 > │ | bcdea cdeab deabc eabcd abcde │
00:00:29 verbose #1201 > │ | (8, 1771) │
00:00:29 verbose #1202 > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:00:29 verbose #1203 > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab │
00:00:29 verbose #1204 > │ defghiabc efghiabcd fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi │
00:00:29 verbose #1205 > │ | (8, 3050) │
00:00:29 verbose #1206 > │ abab | baba abab baba abab │
00:00:29 verbose #1207 > │ │
00:00:29 verbose #1208 > │ | baba abab baba abab │
00:00:29 verbose #1209 > │ │
00:00:29 verbose #1210 > │ | (8, 1558) │
00:00:29 verbose #1211 > │ aa | aa aa │
00:00:29 verbose #1212 > │ │
00:00:29 verbose #1213 > │ | aa aa │
00:00:29 verbose #1214 > │ │
00:00:29 verbose #1215 > │ | (1, 1107) │
00:00:29 verbose #1216 > │ z | z │
00:00:29 verbose #1217 > │ │
00:00:29 verbose #1218 > │ | z │
00:00:29 verbose #1219 > │ │
00:00:29 verbose #1220 > │ | (9, 232) │
00:00:29 verbose #1221 > │ │
00:00:29 verbose #1222 > │ Averages │
00:00:29 verbose #1223 > │ Test case 1. Average Time: 2284L │
00:00:29 verbose #1224 > │ Test case 2. Average Time: 1965L │
00:00:29 verbose #1225 > │ Test case 3. Average Time: 1953L │
00:00:29 verbose #1226 > │ Test case 4. Average Time: 2325L │
00:00:29 verbose #1227 > │ Test case 5. Average Time: 2477L │
00:00:29 verbose #1228 > │ Test case 6. Average Time: 3103L │
00:00:29 verbose #1229 > │ Test case 7. Average Time: 1797L │
00:00:29 verbose #1230 > │ Test case 8. Average Time: 1551L │
00:00:29 verbose #1231 > │ Test case 9. Average Time: 1688L │
00:00:29 verbose #1232 > │ Test case 10. Average Time: 2749L │
00:00:29 verbose #1233 > │ Test case 11. Average Time: 4136L │
00:00:29 verbose #1234 > │ │
00:00:29 verbose #1235 > │ Ranking │
00:00:29 verbose #1236 > │ Test case 11. Average Time: 4136L │
00:00:29 verbose #1237 > │ Test case 6. Average Time: 3103L │
00:00:29 verbose #1238 > │ Test case 10. Average Time: 2749L │
00:00:29 verbose #1239 > │ Test case 5. Average Time: 2477L │
00:00:29 verbose #1240 > │ Test case 4. Average Time: 2325L │
00:00:29 verbose #1241 > │ Test case 1. Average Time: 2284L │
00:00:29 verbose #1242 > │ Test case 2. Average Time: 1965L │
00:00:29 verbose #1243 > │ Test case 3. Average Time: 1953L │
00:00:29 verbose #1244 > │ Test case 7. Average Time: 1797L │
00:00:29 verbose #1245 > │ Test case 9. Average Time: 1688L │
00:00:29 verbose #1246 > │ Test case 8. Average Time: 1551L │
00:00:29 verbose #1247 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #1248 >
00:00:29 verbose #1249 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #1250 > //// test
00:00:29 verbose #1251 >
00:00:29 verbose #1252 > let solutions = [[
00:00:29 verbose #1253 > "A",
00:00:29 verbose #1254 > fun (input: string) ->
00:00:29 verbose #1255 > let resultList =
00:00:29 verbose #1256 > List.fold (fun acc x ->
00:00:29 verbose #1257 > let rotate (text: string) (letter: string) = (text |>
00:00:29 verbose #1258 > SpiralSm.slice 1 (input.Length - 1)) + letter
00:00:29 verbose #1259 > [[ rotate (if acc.IsEmpty then input else acc.Head) (string x)
00:00:29 verbose #1260 > ]] @ acc
00:00:29 verbose #1261 > ) [[]] (Seq.toList input)
00:00:29 verbose #1262 >
00:00:29 verbose #1263 > (resultList, "")
00:00:29 verbose #1264 > ||> List.foldBack (fun acc x -> x + acc + " ")
00:00:29 verbose #1265 > |> _.TrimEnd()
00:00:29 verbose #1266 >
00:00:29 verbose #1267 > "B",
00:00:29 verbose #1268 > fun input ->
00:00:29 verbose #1269 > input
00:00:29 verbose #1270 > |> Seq.toList
00:00:29 verbose #1271 > |> List.fold (fun (acc: string list) letter ->
00:00:29 verbose #1272 > let last =
00:00:29 verbose #1273 > if acc.IsEmpty
00:00:29 verbose #1274 > then input
00:00:29 verbose #1275 > else acc.Head
00:00:29 verbose #1276 >
00:00:29 verbose #1277 > let item = last.[[1 .. input.Length - 1]] + string letter
00:00:29 verbose #1278 >
00:00:29 verbose #1279 > item :: acc
00:00:29 verbose #1280 > ) [[]]
00:00:29 verbose #1281 > |> List.rev
00:00:29 verbose #1282 > |> SpiralSm.concat " "
00:00:29 verbose #1283 >
00:00:29 verbose #1284 > "C",
00:00:29 verbose #1285 > fun input ->
00:00:29 verbose #1286 > input
00:00:29 verbose #1287 > |> Seq.toList
00:00:29 verbose #1288 > |> List.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:29 verbose #1289 > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:29 verbose #1290 > |> List.rev
00:00:29 verbose #1291 > |> List.skip 1
00:00:29 verbose #1292 > |> SpiralSm.concat " "
00:00:29 verbose #1293 >
00:00:29 verbose #1294 > "CA",
00:00:29 verbose #1295 > fun input ->
00:00:29 verbose #1296 > input
00:00:29 verbose #1297 > |> Seq.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:29 verbose #1298 > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:29 verbose #1299 > |> Seq.rev
00:00:29 verbose #1300 > |> Seq.skip 1
00:00:29 verbose #1301 > |> SpiralSm.concat " "
00:00:29 verbose #1302 >
00:00:29 verbose #1303 > "CB",
00:00:29 verbose #1304 > fun input ->
00:00:29 verbose #1305 > input
00:00:29 verbose #1306 > |> Seq.toArray
00:00:29 verbose #1307 > |> Array.fold (fun (acc: string[[]]) letter -> acc |> Array.append [[|
00:00:29 verbose #1308 > acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter |]]) [[| input |]]
00:00:29 verbose #1309 > |> Array.rev
00:00:29 verbose #1310 > |> Array.skip 1
00:00:29 verbose #1311 > |> SpiralSm.concat " "
00:00:29 verbose #1312 >
00:00:29 verbose #1313 > "D",
00:00:29 verbose #1314 > fun input ->
00:00:29 verbose #1315 > input
00:00:29 verbose #1316 > |> Seq.toList
00:00:29 verbose #1317 > |> fun list ->
00:00:29 verbose #1318 > let rec loop (acc: char list list) = function
00:00:29 verbose #1319 > | _ when acc.Length = list.Length -> acc
00:00:29 verbose #1320 > | head :: tail ->
00:00:29 verbose #1321 > let item = tail @ [[ head ]]
00:00:29 verbose #1322 > loop (item :: acc) item
00:00:29 verbose #1323 > | [[]] -> [[]]
00:00:29 verbose #1324 > loop [[]] list
00:00:29 verbose #1325 > |> List.rev
00:00:29 verbose #1326 > |> List.map (List.toArray >> String)
00:00:29 verbose #1327 > |> SpiralSm.concat " "
00:00:29 verbose #1328 >
00:00:29 verbose #1329 > "E",
00:00:29 verbose #1330 > fun input ->
00:00:29 verbose #1331 > input
00:00:29 verbose #1332 > |> Seq.toList
00:00:29 verbose #1333 > |> fun list ->
00:00:29 verbose #1334 > let rec loop (last: string) = function
00:00:29 verbose #1335 > | head :: tail ->
00:00:29 verbose #1336 > let item = last.[[1 .. input.Length - 1]] + string head
00:00:29 verbose #1337 > item :: loop item tail
00:00:29 verbose #1338 > | [[]] -> [[]]
00:00:29 verbose #1339 > loop input list
00:00:29 verbose #1340 > |> SpiralSm.concat " "
00:00:29 verbose #1341 >
00:00:29 verbose #1342 > "F",
00:00:29 verbose #1343 > fun input ->
00:00:29 verbose #1344 > Array.singleton 0
00:00:29 verbose #1345 > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:29 verbose #1346 > |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:29 verbose #1347 > |> SpiralSm.concat " "
00:00:29 verbose #1348 >
00:00:29 verbose #1349 > "FA",
00:00:29 verbose #1350 > fun input ->
00:00:29 verbose #1351 > List.singleton 0
00:00:29 verbose #1352 > |> List.append [[ 1 .. input.Length - 1 ]]
00:00:29 verbose #1353 > |> List.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:29 verbose #1354 > |> SpiralSm.concat " "
00:00:29 verbose #1355 >
00:00:29 verbose #1356 > "FB",
00:00:29 verbose #1357 > fun input ->
00:00:29 verbose #1358 > Seq.singleton 0
00:00:29 verbose #1359 > |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:29 verbose #1360 > |> Seq.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:29 verbose #1361 > |> SpiralSm.concat " "
00:00:29 verbose #1362 >
00:00:29 verbose #1363 > "FC",
00:00:29 verbose #1364 > fun input ->
00:00:29 verbose #1365 > Array.singleton 0
00:00:29 verbose #1366 > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:29 verbose #1367 > |> Array.Parallel.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:29 verbose #1368 > |> SpiralSm.concat " "
00:00:29 verbose #1369 > ]]
00:00:29 verbose #1370 > let testCases = seq {
00:00:29 verbose #1371 > "abc", "bca cab abc"
00:00:29 verbose #1372 > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:29 verbose #1373 > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef
00:00:29 verbose #1374 > hiabcdefg iabcdefgh abcdefghi"
00:00:29 verbose #1375 > "abab", "baba abab baba abab"
00:00:29 verbose #1376 > "aa", "aa aa"
00:00:29 verbose #1377 > "z", "z"
00:00:29 verbose #1378 > }
00:00:29 verbose #1379 > let rec rotateStringsTests = runAll (nameof rotateStringsTests) _count solutions
00:00:29 verbose #1380 > testCases
00:00:29 verbose #1381 > rotateStringsTests
00:00:29 verbose #1382 > |> sortResultList
00:00:39 verbose #1383 >
00:00:39 verbose #1384 > ╭─[ 10.35s - stdout ]──────────────────────────────────────────────────────────╮
00:00:39 verbose #1385 > │ │
00:00:39 verbose #1386 > │ │
00:00:39 verbose #1387 > │ Test: rotateStringsTests │
00:00:39 verbose #1388 > │ │
00:00:39 verbose #1389 > │ Solution: abc │
00:00:39 verbose #1390 > │ Test case 1. A. Time: 2L │
00:00:39 verbose #1391 > │ Test case 2. B. Time: 2L │
00:00:39 verbose #1392 > │ Test case 3. C. Time: 1L │
00:00:39 verbose #1393 > │ Test case 4. CA. Time: 3L │
00:00:39 verbose #1394 > │ Test case 5. CB. Time: 2L │
00:00:39 verbose #1395 > │ Test case 6. D. Time: 2L │
00:00:39 verbose #1396 > │ Test case 7. E. Time: 1L │
00:00:39 verbose #1397 > │ Test case 8. F. Time: 2L │
00:00:39 verbose #1398 > │ Test case 9. FA. Time: 3L │
00:00:39 verbose #1399 > │ Test case 10. FB. Time: 7L │
00:00:39 verbose #1400 > │ Test case 11. FC. Time: 8L │
00:00:39 verbose #1401 > │ │
00:00:39 verbose #1402 > │ Solution: abcde │
00:00:39 verbose #1403 > │ Test case 1. A. Time: 4L │
00:00:39 verbose #1404 > │ Test case 2. B. Time: 0L │
00:00:39 verbose #1405 > │ Test case 3. C. Time: 0L │
00:00:39 verbose #1406 > │ Test case 4. CA. Time: 1L │
00:00:39 verbose #1407 > │ Test case 5. CB. Time: 1L │
00:00:39 verbose #1408 > │ Test case 6. D. Time: 4L │
00:00:39 verbose #1409 > │ Test case 7. E. Time: 0L │
00:00:39 verbose #1410 > │ Test case 8. F. Time: 0L │
00:00:39 verbose #1411 > │ Test case 9. FA. Time: 0L │
00:00:39 verbose #1412 > │ Test case 10. FB. Time: 4L │
00:00:39 verbose #1413 > │ Test case 11. FC. Time: 5L │
00:00:39 verbose #1414 > │ │
00:00:39 verbose #1415 > │ Solution: abcdefghi │
00:00:39 verbose #1416 > │ Test case 1. A. Time: 5L │
00:00:39 verbose #1417 > │ Test case 2. B. Time: 1L │
00:00:39 verbose #1418 > │ Test case 3. C. Time: 3L │
00:00:39 verbose #1419 > │ Test case 4. CA. Time: 2L │
00:00:39 verbose #1420 > │ Test case 5. CB. Time: 5L │
00:00:39 verbose #1421 > │ Test case 6. D. Time: 7L │
00:00:39 verbose #1422 > │ Test case 7. E. Time: 3L │
00:00:39 verbose #1423 > │ Test case 8. F. Time: 0L │
00:00:39 verbose #1424 > │ Test case 9. FA. Time: 4L │
00:00:39 verbose #1425 > │ Test case 10. FB. Time: 2L │
00:00:39 verbose #1426 > │ Test case 11. FC. Time: 6L │
00:00:39 verbose #1427 > │ │
00:00:39 verbose #1428 > │ Solution: abab │
00:00:39 verbose #1429 > │ Test case 1. A. Time: 0L │
00:00:39 verbose #1430 > │ Test case 2. B. Time: 0L │
00:00:39 verbose #1431 > │ Test case 3. C. Time: 1L │
00:00:39 verbose #1432 > │ Test case 4. CA. Time: 1L │
00:00:39 verbose #1433 > │ Test case 5. CB. Time: 1L │
00:00:39 verbose #1434 > │ Test case 6. D. Time: 1L │
00:00:39 verbose #1435 > │ Test case 7. E. Time: 0L │
00:00:39 verbose #1436 > │ Test case 8. F. Time: 0L │
00:00:39 verbose #1437 > │ Test case 9. FA. Time: 1L │
00:00:39 verbose #1438 > │ Test case 10. FB. Time: 1L │
00:00:39 verbose #1439 > │ Test case 11. FC. Time: 6L │
00:00:39 verbose #1440 > │ │
00:00:39 verbose #1441 > │ Solution: aa │
00:00:39 verbose #1442 > │ Test case 1. A. Time: 1L │
00:00:39 verbose #1443 > │ Test case 2. B. Time: 0L │
00:00:39 verbose #1444 > │ Test case 3. C. Time: 0L │
00:00:39 verbose #1445 > │ Test case 4. CA. Time: 1L │
00:00:39 verbose #1446 > │ Test case 5. CB. Time: 0L │
00:00:39 verbose #1447 > │ Test case 6. D. Time: 0L │
00:00:39 verbose #1448 > │ Test case 7. E. Time: 0L │
00:00:39 verbose #1449 > │ Test case 8. F. Time: 0L │
00:00:39 verbose #1450 > │ Test case 9. FA. Time: 0L │
00:00:39 verbose #1451 > │ Test case 10. FB. Time: 0L │
00:00:39 verbose #1452 > │ Test case 11. FC. Time: 5L │
00:00:39 verbose #1453 > │ │
00:00:39 verbose #1454 > │ Solution: z │
00:00:39 verbose #1455 > │ Test case 1. A. Time: 0L │
00:00:39 verbose #1456 > │ Test case 2. B. Time: 0L │
00:00:39 verbose #1457 > │ Test case 3. C. Time: 0L │
00:00:39 verbose #1458 > │ Test case 4. CA. Time: 0L │
00:00:39 verbose #1459 > │ Test case 5. CB. Time: 0L │
00:00:39 verbose #1460 > │ Test case 6. D. Time: 0L │
00:00:39 verbose #1461 > │ Test case 7. E. Time: 0L │
00:00:39 verbose #1462 > │ Test case 8. F. Time: 0L │
00:00:39 verbose #1463 > │ Test case 9. FA. Time: 0L │
00:00:39 verbose #1464 > │ Test case 10. FB. Time: 1L │
00:00:39 verbose #1465 > │ Test case 11. FC. Time: 4L │
00:00:39 verbose #1466 > │ │
00:00:39 verbose #1467 > │ Input | Expected │
00:00:39 verbose #1468 > │ │
00:00:39 verbose #1469 > │ | Result │
00:00:39 verbose #1470 > │ │
00:00:39 verbose #1471 > │ | Best │
00:00:39 verbose #1472 > │ --- | --- │
00:00:39 verbose #1473 > │ │
00:00:39 verbose #1474 > │ | --- │
00:00:39 verbose #1475 > │ │
00:00:39 verbose #1476 > │ | --- │
00:00:39 verbose #1477 > │ abc | bca cab abc │
00:00:39 verbose #1478 > │ │
00:00:39 verbose #1479 > │ | bca cab abc │
00:00:39 verbose #1480 > │ │
00:00:39 verbose #1481 > │ | (3, 1) │
00:00:39 verbose #1482 > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:39 verbose #1483 > │ | bcdea cdeab deabc eabcd abcde │
00:00:39 verbose #1484 > │ | (2, 0) │
00:00:39 verbose #1485 > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:00:39 verbose #1486 > │ hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd │
00:00:39 verbose #1487 > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi | (8, 0) │
00:00:39 verbose #1488 > │ abab | baba abab baba abab │
00:00:39 verbose #1489 > │ | baba abab baba abab │
00:00:39 verbose #1490 > │ | (1, 0) │
00:00:39 verbose #1491 > │ aa | aa aa │
00:00:39 verbose #1492 > │ │
00:00:39 verbose #1493 > │ | aa aa │
00:00:39 verbose #1494 > │ │
00:00:39 verbose #1495 > │ | (2, 0) │
00:00:39 verbose #1496 > │ z | z │
00:00:39 verbose #1497 > │ │
00:00:39 verbose #1498 > │ | z │
00:00:39 verbose #1499 > │ │
00:00:39 verbose #1500 > │ | (1, 0) │
00:00:39 verbose #1501 > │ │
00:00:39 verbose #1502 > │ Average Ranking │
00:00:39 verbose #1503 > │ Test case 2. Average Time: 0L │
00:00:39 verbose #1504 > │ Test case 3. Average Time: 0L │
00:00:39 verbose #1505 > │ Test case 7. Average Time: 0L │
00:00:39 verbose #1506 > │ Test case 8. Average Time: 0L │
00:00:39 verbose #1507 > │ Test case 4. Average Time: 1L │
00:00:39 verbose #1508 > │ Test case 5. Average Time: 1L │
00:00:39 verbose #1509 > │ Test case 9. Average Time: 1L │
00:00:39 verbose #1510 > │ Test case 1. Average Time: 2L │
00:00:39 verbose #1511 > │ Test case 6. Average Time: 2L │
00:00:39 verbose #1512 > │ Test case 10. Average Time: 2L │
00:00:39 verbose #1513 > │ Test case 11. Average Time: 5L │
00:00:39 verbose #1514 > │ │
00:00:39 verbose #1515 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #1516 >
00:00:39 verbose #1517 > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 verbose #1518 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 verbose #1519 > │ ## rotate_strings_tests │
00:00:39 verbose #1520 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #1521 >
00:00:39 verbose #1522 > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1523 > // // test
00:00:39 verbose #1524 > // // timeout=60000
00:00:39 verbose #1525 > // // print_code=true
00:00:39 verbose #1526 >
00:00:39 verbose #1527 > inl get_solutions () =
00:00:39 verbose #1528 > [[
00:00:39 verbose #1529 > // "A",
00:00:39 verbose #1530 > // fun (input : string) =>
00:00:39 verbose #1531 > // let resultList =
00:00:39 verbose #1532 > // List.fold (fun acc x =>
00:00:39 verbose #1533 > // let rotate (text : string) (letter : string) =
00:00:39 verbose #1534 > text.Substring (1, input.Length - 1) + letter
00:00:39 verbose #1535 > // [[ rotate (if acc.IsEmpty then input else acc.Head)
00:00:39 verbose #1536 > (string x) ]] /@ acc
00:00:39 verbose #1537 > // ) [[]] (Seq.toList input)
00:00:39 verbose #1538 >
00:00:39 verbose #1539 > // List.foldBack (fun acc x => x + acc + " ") resultList ""
00:00:39 verbose #1540 > // |> fun x => x.TrimEnd ()
00:00:39 verbose #1541 >
00:00:39 verbose #1542 > // "B",
00:00:39 verbose #1543 > // fun input =>
00:00:39 verbose #1544 > // input
00:00:39 verbose #1545 > // |> Seq.toList
00:00:39 verbose #1546 > // |> List.fold (fun (acc : string list) letter =>
00:00:39 verbose #1547 > // let last =
00:00:39 verbose #1548 > // if acc.IsEmpty
00:00:39 verbose #1549 > // then input
00:00:39 verbose #1550 > // else acc.Head
00:00:39 verbose #1551 >
00:00:39 verbose #1552 > // let item = last.[[1 .. input.Length - 1]] + string letter
00:00:39 verbose #1553 >
00:00:39 verbose #1554 > // item :: acc
00:00:39 verbose #1555 > // ) [[]]
00:00:39 verbose #1556 > // |> List.rev
00:00:39 verbose #1557 > // |> SpiralSm.concat " "
00:00:39 verbose #1558 >
00:00:39 verbose #1559 > // "C",
00:00:39 verbose #1560 > // fun input =>
00:00:39 verbose #1561 > // input
00:00:39 verbose #1562 > // |> Seq.toList
00:00:39 verbose #1563 > // |> List.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:39 verbose #1564 > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:39 verbose #1565 > // |> List.rev
00:00:39 verbose #1566 > // |> List.skip 1
00:00:39 verbose #1567 > // |> SpiralSm.concat " "
00:00:39 verbose #1568 >
00:00:39 verbose #1569 > // "CA",
00:00:39 verbose #1570 > // fun input =>
00:00:39 verbose #1571 > // input
00:00:39 verbose #1572 > // |> Seq.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:39 verbose #1573 > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:39 verbose #1574 > // |> Seq.rev
00:00:39 verbose #1575 > // |> Seq.skip 1
00:00:39 verbose #1576 > // |> SpiralSm.concat " "
00:00:39 verbose #1577 >
00:00:39 verbose #1578 > // "CB",
00:00:39 verbose #1579 > // fun input =>
00:00:39 verbose #1580 > // input
00:00:39 verbose #1581 > // |> Seq.toArray
00:00:39 verbose #1582 > // |> Array.fold (fun (acc : a _ string) letter => acc |>
00:00:39 verbose #1583 > Array.append (a ;[[ acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter ]]))
00:00:39 verbose #1584 > (a ;[[ input ]])
00:00:39 verbose #1585 > // |> Array.rev
00:00:39 verbose #1586 > // |> Array.skip 1
00:00:39 verbose #1587 > // |> SpiralSm.concat " "
00:00:39 verbose #1588 >
00:00:39 verbose #1589 > // "D",
00:00:39 verbose #1590 > // fun input =>
00:00:39 verbose #1591 > // input
00:00:39 verbose #1592 > // |> Seq.toList
00:00:39 verbose #1593 > // |> fun list =>
00:00:39 verbose #1594 > // let rec loop (acc : list (list char)) = function
00:00:39 verbose #1595 > // | _ when acc.Length = list.Length => acc
00:00:39 verbose #1596 > // | head :: tail =>
00:00:39 verbose #1597 > // let item = tail /@ [[ head ]]
00:00:39 verbose #1598 > // loop (item :: acc) item
00:00:39 verbose #1599 > // | [[]] => [[]]
00:00:39 verbose #1600 > // loop [[]] list
00:00:39 verbose #1601 > // |> List.rev
00:00:39 verbose #1602 > // |> List.map (List.toArray >> String)
00:00:39 verbose #1603 > // |> SpiralSm.concat " "
00:00:39 verbose #1604 >
00:00:39 verbose #1605 > // "E",
00:00:39 verbose #1606 > // fun input =>
00:00:39 verbose #1607 > // input
00:00:39 verbose #1608 > // |> Seq.toList
00:00:39 verbose #1609 > // |> fun list =>
00:00:39 verbose #1610 > // let rec loop (last : string) = function
00:00:39 verbose #1611 > // | head :: tail =>
00:00:39 verbose #1612 > // let item = last.[[1 .. input.Length - 1]] + string
00:00:39 verbose #1613 > head
00:00:39 verbose #1614 > // item :: loop item tail
00:00:39 verbose #1615 > // | [[]] => [[]]
00:00:39 verbose #1616 > // loop input list
00:00:39 verbose #1617 > // |> SpiralSm.concat " "
00:00:39 verbose #1618 >
00:00:39 verbose #1619 > "F",
00:00:39 verbose #1620 > fun input =>
00:00:39 verbose #1621 > // Array.singleton 0
00:00:39 verbose #1622 > // |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:39 verbose #1623 > // |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:39 verbose #1624 > // |> SpiralSm.concat " "
00:00:39 verbose #1625 > inl input_length = input |> sm.length
00:00:39 verbose #1626 > am.singleton 0i32
00:00:39 verbose #1627 > |> am.append (am'.init_series 1 (input_length - 1) 1)
00:00:39 verbose #1628 > |> am.map (fun i =>
00:00:39 verbose #1629 > inl a = input |> sm'.slice i (input_length - 1)
00:00:39 verbose #1630 > inl b = input |> sm'.slice 0 (i - 1)
00:00:39 verbose #1631 > $"!a + !b" : string
00:00:39 verbose #1632 > )
00:00:39 verbose #1633 > |> seq.of_array
00:00:39 verbose #1634 > |> sm'.concat " "
00:00:39 verbose #1635 >
00:00:39 verbose #1636 > "FA",
00:00:39 verbose #1637 > fun input =>
00:00:39 verbose #1638 > // List.singleton 0
00:00:39 verbose #1639 > // |> List.append [[ 1 .. input.Length - 1 ]]
00:00:39 verbose #1640 > // // |> List.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:39 verbose #1641 > // |> SpiralSm.concat " "
00:00:39 verbose #1642 > inl input_length = input |> sm.length
00:00:39 verbose #1643 > listm.singleton 0i32
00:00:39 verbose #1644 > |> listm.append (listm'.init_series 1 (input_length - 1) 1)
00:00:39 verbose #1645 > |> listm.map (fun i =>
00:00:39 verbose #1646 > inl a = input |> sm'.slice i (input_length - 1)
00:00:39 verbose #1647 > inl b = if i = 0 then "" else input |> sm'.slice 0 (i - 1)
00:00:39 verbose #1648 > $"!a + !b" : string
00:00:39 verbose #1649 > )
00:00:39 verbose #1650 > |> listm.toArray
00:00:39 verbose #1651 > |> fun x => x : a i32 _
00:00:39 verbose #1652 > |> seq.of_array
00:00:39 verbose #1653 > |> sm'.concat " "
00:00:39 verbose #1654 >
00:00:39 verbose #1655 > // "FB",
00:00:39 verbose #1656 > // fun input =>
00:00:39 verbose #1657 > // Seq.singleton 0
00:00:39 verbose #1658 > // // |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:39 verbose #1659 > // // |> Seq.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:39 verbose #1660 > // |> SpiralSm.concat " "
00:00:39 verbose #1661 >
00:00:39 verbose #1662 > // "FC",
00:00:39 verbose #1663 > // fun input =>
00:00:39 verbose #1664 > // Array.singleton 0
00:00:39 verbose #1665 > // |> Array.append (a ;[[ 1 .. input.Length - 1 ]])
00:00:39 verbose #1666 > // // |> Array.Parallel.map (fun i => input.[[ i .. ]] + input.[[ ..
00:00:39 verbose #1667 > i - 1 ]])
00:00:39 verbose #1668 > // |> SpiralSm.concat " "
00:00:39 verbose #1669 > ]]
00:00:39 verbose #1670 >
00:00:39 verbose #1671 > inl rec rotate_strings_tests () =
00:00:39 verbose #1672 > inl test_cases = [[
00:00:39 verbose #1673 > "abc", "bca cab abc"
00:00:39 verbose #1674 > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:39 verbose #1675 > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde
00:00:39 verbose #1676 > ghiabcdef hiabcdefg iabcdefgh abcdefghi"
00:00:39 verbose #1677 > "abab", "baba abab baba abab"
00:00:39 verbose #1678 > "aa", "aa aa"
00:00:39 verbose #1679 > "z", "z"
00:00:39 verbose #1680 > ]]
00:00:39 verbose #1681 >
00:00:39 verbose #1682 > inl solutions = get_solutions ()
00:00:39 verbose #1683 >
00:00:39 verbose #1684 > // inl is_fast () = true
00:00:39 verbose #1685 >
00:00:39 verbose #1686 > inl count =
00:00:39 verbose #1687 > if is_fast ()
00:00:39 verbose #1688 > then 1000i32
00:00:39 verbose #1689 > else 2000000i32
00:00:39 verbose #1690 >
00:00:39 verbose #1691 > run_all (nameof rotate_strings_tests) count solutions test_cases
00:00:39 verbose #1692 > |> sort_result_list
00:00:39 verbose #1693 >
00:00:39 verbose #1694 > rotate_strings_tests ()
00:00:40 verbose #1695 > 00:00:39 debug #7 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/76d7bcd708a3099b4dcc5eec6b0320a5bf8f94d9c03c9fc07fbbdbd447b691db/main.spi
00:01:04 verbose #1696 >
00:01:04 verbose #1697 > ╭─[ 24.91s - stdout ]──────────────────────────────────────────────────────────╮
00:01:04 verbose #1698 > │ type UH0 = │
00:01:04 verbose #1699 > │ | UH0_0 │
00:01:04 verbose #1700 > │ | UH0_1 of string * string * UH0 │
00:01:04 verbose #1701 > │ and Mut0 = {mutable l0 : uint64} │
00:01:04 verbose #1702 > │ and Mut1 = {mutable l0 : int32} │
00:01:04 verbose #1703 > │ and UH1 = │
00:01:04 verbose #1704 > │ | UH1_0 │
00:01:04 verbose #1705 > │ | UH1_1 of int32 * UH1 │
00:01:04 verbose #1706 > │ and UH2 = │
00:01:04 verbose #1707 > │ | UH2_0 │
00:01:04 verbose #1708 > │ | UH2_1 of string * UH2 │
00:01:04 verbose #1709 > │ and UH3 = │
00:01:04 verbose #1710 > │ | UH3_0 │
00:01:04 verbose #1711 > │ | UH3_1 of int32 * string * (string -> string) * UH3 │
00:01:04 verbose #1712 > │ and [<Struct>] US0 = │
00:01:04 verbose #1713 > │ | US0_0 of f0_0 : System.ConsoleColor │
00:01:04 verbose #1714 > │ | US0_1 │
00:01:04 verbose #1715 > │ and UH4 = │
00:01:04 verbose #1716 > │ | UH4_0 │
00:01:04 verbose #1717 > │ | UH4_1 of int64 * int64 * UH4 │
00:01:04 verbose #1718 > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH4; mutable l2 : int64} │
00:01:04 verbose #1719 > │ and UH5 = │
00:01:04 verbose #1720 > │ | UH5_0 │
00:01:04 verbose #1721 > │ | UH5_1 of UH2 * US0 * UH5 │
00:01:04 verbose #1722 > │ and [<Struct>] US1 = │
00:01:04 verbose #1723 > │ | US1_0 of f0_0 : int64 │
00:01:04 verbose #1724 > │ | US1_1 │
00:01:04 verbose #1725 > │ and UH6 = │
00:01:04 verbose #1726 > │ | UH6_0 │
00:01:04 verbose #1727 > │ | UH6_1 of int32 * int64 * UH6 │
00:01:04 verbose #1728 > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH6; mutable l2 : int32} │
00:01:04 verbose #1729 > │ and UH7 = │
00:01:04 verbose #1730 > │ | UH7_0 │
00:01:04 verbose #1731 > │ | UH7_1 of int32 * string * UH7 │
00:01:04 verbose #1732 > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:01:04 verbose #1733 > │ match v0 with │
00:01:04 verbose #1734 > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:01:04 verbose #1735 > │ let v5 : uint64 = v1 + 1UL │
00:01:04 verbose #1736 > │ method2(v4, v5) │
00:01:04 verbose #1737 > │ | UH0_0 -> (* Nil *) │
00:01:04 verbose #1738 > │ v1 │
00:01:04 verbose #1739 > │ and method3 (v0 : (struct (string * string) []), v1 : UH0, v2 : uint64) : │
00:01:04 verbose #1740 > │ uint64 = │
00:01:04 verbose #1741 > │ match v1 with │
00:01:04 verbose #1742 > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:01:04 verbose #1743 > │ v0.[int v2] <- struct (v3, v4) │
00:01:04 verbose #1744 > │ let v6 : uint64 = v2 + 1UL │
00:01:04 verbose #1745 > │ method3(v0, v5, v6) │
00:01:04 verbose #1746 > │ | UH0_0 -> (* Nil *) │
00:01:04 verbose #1747 > │ v2 │
00:01:04 verbose #1748 > │ and method1 (v0 : UH0) : (struct (string * string) []) = │
00:01:04 verbose #1749 > │ let v1 : uint64 = 0UL │
00:01:04 verbose #1750 > │ let v2 : uint64 = method2(v0, v1) │
00:01:04 verbose #1751 > │ let v3 : (struct (string * string) []) = Array.zeroCreate<struct (string │
00:01:04 verbose #1752 > │ * string)> (System.Convert.ToInt32(v2)) │
00:01:04 verbose #1753 > │ let v4 : uint64 = 0UL │
00:01:04 verbose #1754 > │ let v5 : uint64 = method3(v3, v0, v4) │
00:01:04 verbose #1755 > │ v3 │
00:01:04 verbose #1756 > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:01:04 verbose #1757 > │ let v2 : uint64 = v1.l0 │
00:01:04 verbose #1758 > │ let v3 : bool = v2 < v0 │
00:01:04 verbose #1759 > │ v3 │
00:01:04 verbose #1760 > │ and method5 (v0 : int32, v1 : Mut1) : bool = │
00:01:04 verbose #1761 > │ let v2 : int32 = v1.l0 │
00:01:04 verbose #1762 > │ let v3 : bool = v2 < v0 │
00:01:04 verbose #1763 > │ v3 │
00:01:04 verbose #1764 > │ and method6 () : string = │
00:01:04 verbose #1765 > │ let v0 : string = " " │
00:01:04 verbose #1766 > │ v0 │
00:01:04 verbose #1767 > │ and closure1 () (v0 : string) : string = │
00:01:04 verbose #1768 > │ let v1 : int32 = v0.Length │
00:01:04 verbose #1769 > │ let v2 : (int32 []) = Array.zeroCreate<int32> (1) │
00:01:04 verbose #1770 > │ v2.[int 0] <- 0 │
00:01:04 verbose #1771 > │ let v3 : int32 = v1 - 1 │
00:01:04 verbose #1772 > │ let v4 : int32 = v3 - 1 │
00:01:04 verbose #1773 > │ let v5 : int32 = v4 + 1 │
00:01:04 verbose #1774 > │ let v6 : (int32 []) = Array.zeroCreate<int32> (v5) │
00:01:04 verbose #1775 > │ let v7 : Mut1 = {l0 = 0} : Mut1 │
00:01:04 verbose #1776 > │ while method5(v5, v7) do │
00:01:04 verbose #1777 > │ let v9 : int32 = v7.l0 │
00:01:04 verbose #1778 > │ let v10 : int32 = 1 + v9 │
00:01:04 verbose #1779 > │ v6.[int v9] <- v10 │
00:01:04 verbose #1780 > │ let v11 : int32 = v9 + 1 │
00:01:04 verbose #1781 > │ v7.l0 <- v11 │
00:01:04 verbose #1782 > │ () │
00:01:04 verbose #1783 > │ let v12 : int32 = v6.Length │
00:01:04 verbose #1784 > │ let v13 : int32 = v2.Length │
00:01:04 verbose #1785 > │ let v14 : int32 = v12 + v13 │
00:01:04 verbose #1786 > │ let v15 : (int32 []) = Array.zeroCreate<int32> (v14) │
00:01:04 verbose #1787 > │ let v16 : Mut1 = {l0 = 0} : Mut1 │
00:01:04 verbose #1788 > │ while method5(v14, v16) do │
00:01:04 verbose #1789 > │ let v18 : int32 = v16.l0 │
00:01:04 verbose #1790 > │ let v19 : bool = v18 < v12 │
00:01:04 verbose #1791 > │ let v23 : int32 = │
00:01:04 verbose #1792 > │ if v19 then │
00:01:04 verbose #1793 > │ let v20 : int32 = v6.[int v18] │
00:01:04 verbose #1794 > │ v20 │
00:01:04 verbose #1795 > │ else │
00:01:04 verbose #1796 > │ let v21 : int32 = v18 - v12 │
00:01:04 verbose #1797 > │ let v22 : int32 = v2.[int v21] │
00:01:04 verbose #1798 > │ v22 │
00:01:04 verbose #1799 > │ v15.[int v18] <- v23 │
00:01:04 verbose #1800 > │ let v24 : int32 = v18 + 1 │
00:01:04 verbose #1801 > │ v16.l0 <- v24 │
00:01:04 verbose #1802 > │ () │
00:01:04 verbose #1803 > │ let v25 : int32 = v15.Length │
00:01:04 verbose #1804 > │ let v26 : (string []) = Array.zeroCreate<string> (v25) │
00:01:04 verbose #1805 > │ let v27 : Mut1 = {l0 = 0} : Mut1 │
00:01:04 verbose #1806 > │ while method5(v25, v27) do │
00:01:04 verbose #1807 > │ let v29 : int32 = v27.l0 │
00:01:04 verbose #1808 > │ let v30 : int32 = v15.[int v29] │
00:01:04 verbose #1809 > │ let v31 : string = v0.[int v30..int v3] │
00:01:04 verbose #1810 > │ let v32 : int32 = v30 - 1 │
00:01:04 verbose #1811 > │ let v33 : string = v0.[int 0..int v32] │
00:01:04 verbose #1812 > │ let v34 : string = v31 + v33 │
00:01:04 verbose #1813 > │ v26.[int v29] <- v34 │
00:01:04 verbose #1814 > │ let v35 : int32 = v29 + 1 │
00:01:04 verbose #1815 > │ v27.l0 <- v35 │
00:01:04 verbose #1816 > │ () │
00:01:04 verbose #1817 > │ let v36 : ((string []) -> string seq) = Seq.ofArray │
00:01:04 verbose #1818 > │ let v37 : string seq = v36 v26 │
00:01:04 verbose #1819 > │ let v38 : string = method6() │
00:01:04 verbose #1820 > │ let v39 : (string -> (string seq -> string)) = String.concat │
00:01:04 verbose #1821 > │ let v40 : (string seq -> string) = v39 v38 │
00:01:04 verbose #1822 > │ v40 v37 │
00:01:04 verbose #1823 > │ and method7 (v0 : float, v1 : float) : UH1 = │
00:01:04 verbose #1824 > │ let v2 : bool = v1 < v0 │
00:01:04 verbose #1825 > │ if v2 then │
00:01:04 verbose #1826 > │ let v3 : int32 = int32 v1 │
00:01:04 verbose #1827 > │ let v4 : int32 = 1 + v3 │
00:01:04 verbose #1828 > │ let v5 : float = v1 + 1.0 │
00:01:04 verbose #1829 > │ let v6 : UH1 = method7(v0, v5) │
00:01:04 verbose #1830 > │ UH1_1(v4, v6) │
00:01:04 verbose #1831 > │ else │
00:01:04 verbose #1832 > │ UH1_0 │
00:01:04 verbose #1833 > │ and method8 (v0 : UH1, v1 : UH1) : UH1 = │
00:01:04 verbose #1834 > │ match v0 with │
00:01:04 verbose #1835 > │ | UH1_1(v2, v3) -> (* Cons *) │
00:01:04 verbose #1836 > │ let v4 : UH1 = method8(v3, v1) │
00:01:04 verbose #1837 > │ UH1_1(v2, v4) │
00:01:04 verbose #1838 > │ | UH1_0 -> (* Nil *) │
00:01:04 verbose #1839 > │ v1 │
00:01:04 verbose #1840 > │ and method9 (v0 : string, v1 : int32, v2 : UH1, v3 : UH2) : UH2 = │
00:01:04 verbose #1841 > │ match v2 with │
00:01:04 verbose #1842 > │ | UH1_1(v4, v5) -> (* Cons *) │
00:01:04 verbose #1843 > │ let v6 : UH2 = method9(v0, v1, v5, v3) │
00:01:04 verbose #1844 > │ let v7 : int32 = v1 - 1 │
00:01:04 verbose #1845 > │ let v8 : string = v0.[int v4..int v7] │
00:01:04 verbose #1846 > │ let v9 : bool = v4 = 0 │
00:01:04 verbose #1847 > │ let v13 : string = │
00:01:04 verbose #1848 > │ if v9 then │
00:01:04 verbose #1849 > │ let v10 : string = "" │
00:01:04 verbose #1850 > │ v10 │
00:01:04 verbose #1851 > │ else │
00:01:04 verbose #1852 > │ let v11 : int32 = v4 - 1 │
00:01:04 verbose #1853 > │ let v12 : string = v0.[int 0..int v11] │
00:01:04 verbose #1854 > │ v12 │
00:01:04 verbose #1855 > │ let v14 : string = v8 + v13 │
00:01:04 verbose #1856 > │ UH2_1(v14, v6) │
00:01:04 verbose #1857 > │ | UH1_0 -> (* Nil *) │
00:01:04 verbose #1858 > │ v3 │
00:01:04 verbose #1859 > │ and method11 (v0 : UH2, v1 : int32) : int32 = │
00:01:04 verbose #1860 > │ match v0 with │
00:01:04 verbose #1861 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:04 verbose #1862 > │ let v4 : int32 = v1 + 1 │
00:01:04 verbose #1863 > │ method11(v3, v4) │
00:01:04 verbose #1864 > │ | UH2_0 -> (* Nil *) │
00:01:04 verbose #1865 > │ v1 │
00:01:04 verbose #1866 > │ and method12 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:01:04 verbose #1867 > │ match v1 with │
00:01:04 verbose #1868 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:04 verbose #1869 > │ v0.[int v2] <- v3 │
00:01:04 verbose #1870 > │ let v5 : int32 = v2 + 1 │
00:01:04 verbose #1871 > │ method12(v0, v4, v5) │
00:01:04 verbose #1872 > │ | UH2_0 -> (* Nil *) │
00:01:04 verbose #1873 > │ v2 │
00:01:04 verbose #1874 > │ and method10 (v0 : UH2) : (string []) = │
00:01:04 verbose #1875 > │ let v1 : int32 = 0 │
00:01:04 verbose #1876 > │ let v2 : int32 = method11(v0, v1) │
00:01:04 verbose #1877 > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:01:04 verbose #1878 > │ let v4 : int32 = 0 │
00:01:04 verbose #1879 > │ let v5 : int32 = method12(v3, v0, v4) │
00:01:04 verbose #1880 > │ v3 │
00:01:04 verbose #1881 > │ and closure2 () (v0 : string) : string = │
00:01:04 verbose #1882 > │ let v1 : int32 = v0.Length │
00:01:04 verbose #1883 > │ let v2 : int32 = v1 - 1 │
00:01:04 verbose #1884 > │ let v3 : int32 = v2 - 1 │
00:01:04 verbose #1885 > │ let v4 : float = float v3 │
00:01:04 verbose #1886 > │ let v5 : float = v4 + 1.0 │
00:01:04 verbose #1887 > │ let v6 : float = 0.0 │
00:01:04 verbose #1888 > │ let v7 : UH1 = method7(v5, v6) │
00:01:04 verbose #1889 > │ let v8 : int32 = 0 │
00:01:04 verbose #1890 > │ let v9 : UH1 = UH1_0 │
00:01:04 verbose #1891 > │ let v10 : UH1 = UH1_1(v8, v9) │
00:01:04 verbose #1892 > │ let v11 : UH1 = method8(v7, v10) │
00:01:04 verbose #1893 > │ let v12 : UH2 = UH2_0 │
00:01:04 verbose #1894 > │ let v13 : UH2 = method9(v0, v1, v11, v12) │
00:01:04 verbose #1895 > │ let v14 : (string []) = method10(v13) │
00:01:04 verbose #1896 > │ let v15 : ((string []) -> string seq) = Seq.ofArray │
00:01:04 verbose #1897 > │ let v16 : string seq = v15 v14 │
00:01:04 verbose #1898 > │ let v17 : string = method6() │
00:01:04 verbose #1899 > │ let v18 : (string -> (string seq -> string)) = String.concat │
00:01:04 verbose #1900 > │ let v19 : (string seq -> string) = v18 v17 │
00:01:04 verbose #1901 > │ v19 v16 │
00:01:04 verbose #1902 > │ and method14 (v0 : UH3, v1 : uint64) : uint64 = │
00:01:04 verbose #1903 > │ match v0 with │
00:01:04 verbose #1904 > │ | UH3_1(v2, v3, v4, v5) -> (* Cons *) │
00:01:04 verbose #1905 > │ let v6 : uint64 = v1 + 1UL │
00:01:04 verbose #1906 > │ method14(v5, v6) │
00:01:04 verbose #1907 > │ | UH3_0 -> (* Nil *) │
00:01:04 verbose #1908 > │ v1 │
00:01:04 verbose #1909 > │ and method15 (v0 : (struct (int32 * string * (string -> string)) []), v1 : │
00:01:04 verbose #1910 > │ UH3, v2 : uint64) : uint64 = │
00:01:04 verbose #1911 > │ match v1 with │
00:01:04 verbose #1912 > │ | UH3_1(v3, v4, v5, v6) -> (* Cons *) │
00:01:04 verbose #1913 > │ v0.[int v2] <- struct (v3, v4, v5) │
00:01:04 verbose #1914 > │ let v7 : uint64 = v2 + 1UL │
00:01:04 verbose #1915 > │ method15(v0, v6, v7) │
00:01:04 verbose #1916 > │ | UH3_0 -> (* Nil *) │
00:01:04 verbose #1917 > │ v2 │
00:01:04 verbose #1918 > │ and method13 (v0 : UH3) : (struct (int32 * string * (string -> string)) []) │
00:01:04 verbose #1919 > │ = │
00:01:04 verbose #1920 > │ let v1 : uint64 = 0UL │
00:01:04 verbose #1921 > │ let v2 : uint64 = method14(v0, v1) │
00:01:04 verbose #1922 > │ let v3 : (struct (int32 * string * (string -> string)) []) = │
00:01:04 verbose #1923 > │ Array.zeroCreate<struct (int32 * string * (string -> string))> │
00:01:04 verbose #1924 > │ (System.Convert.ToInt32(v2)) │
00:01:04 verbose #1925 > │ let v4 : uint64 = 0UL │
00:01:04 verbose #1926 > │ let v5 : uint64 = method15(v3, v0, v4) │
00:01:04 verbose #1927 > │ v3 │
00:01:04 verbose #1928 > │ and method16 (v0 : Mut1) : bool = │
00:01:04 verbose #1929 > │ let v1 : int32 = v0.l0 │
00:01:04 verbose #1930 > │ let v2 : bool = v1 < 2000001 │
00:01:04 verbose #1931 > │ v2 │
00:01:04 verbose #1932 > │ and closure3 (v0 : string, v1 : (string -> string)) (v2 : int32) : string = │
00:01:04 verbose #1933 > │ v1 v0 │
00:01:04 verbose #1934 > │ and method17 (v0 : string, v1 : (string []), v2 : uint64) : bool = │
00:01:04 verbose #1935 > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:01:04 verbose #1936 > │ let v4 : bool = v2 < v3 │
00:01:04 verbose #1937 > │ if v4 then │
00:01:04 verbose #1938 > │ let v5 : string = v1.[int v2] │
00:01:04 verbose #1939 > │ let v6 : bool = v0 = v5 │
00:01:04 verbose #1940 > │ if v6 then │
00:01:04 verbose #1941 > │ let v7 : uint64 = v2 + 1UL │
00:01:04 verbose #1942 > │ method17(v0, v1, v7) │
00:01:05 verbose #1943 > │ else │
00:01:05 verbose #1944 > │ false │
00:01:05 verbose #1945 > │ else │
00:01:05 verbose #1946 > │ true │
00:01:05 verbose #1947 > │ and method18 (v0 : uint64, v1 : Mut2) : bool = │
00:01:05 verbose #1948 > │ let v2 : uint64 = v1.l0 │
00:01:05 verbose #1949 > │ let v3 : bool = v2 < v0 │
00:01:05 verbose #1950 > │ v3 │
00:01:05 verbose #1951 > │ and method19 (v0 : UH4, v1 : UH4) : UH4 = │
00:01:05 verbose #1952 > │ match v0 with │
00:01:05 verbose #1953 > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #1954 > │ let v5 : UH4 = UH4_1(v2, v3, v1) │
00:01:05 verbose #1955 > │ method19(v4, v5) │
00:01:05 verbose #1956 > │ | UH4_0 -> (* Nil *) │
00:01:05 verbose #1957 > │ v1 │
00:01:05 verbose #1958 > │ and method21 (v0 : UH4, v1 : int32) : int32 = │
00:01:05 verbose #1959 > │ match v0 with │
00:01:05 verbose #1960 > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #1961 > │ let v5 : int32 = v1 + 1 │
00:01:05 verbose #1962 > │ method21(v4, v5) │
00:01:05 verbose #1963 > │ | UH4_0 -> (* Nil *) │
00:01:05 verbose #1964 > │ v1 │
00:01:05 verbose #1965 > │ and method22 (v0 : (struct (int64 * int64) []), v1 : UH4, v2 : int32) : │
00:01:05 verbose #1966 > │ int32 = │
00:01:05 verbose #1967 > │ match v1 with │
00:01:05 verbose #1968 > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:01:05 verbose #1969 > │ v0.[int v2] <- struct (v3, v4) │
00:01:05 verbose #1970 > │ let v6 : int32 = v2 + 1 │
00:01:05 verbose #1971 > │ method22(v0, v5, v6) │
00:01:05 verbose #1972 > │ | UH4_0 -> (* Nil *) │
00:01:05 verbose #1973 > │ v2 │
00:01:05 verbose #1974 > │ and method20 (v0 : UH4) : (struct (int64 * int64) []) = │
00:01:05 verbose #1975 > │ let v1 : int32 = 0 │
00:01:05 verbose #1976 > │ let v2 : int32 = method21(v0, v1) │
00:01:05 verbose #1977 > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:01:05 verbose #1978 > │ int64)> (v2) │
00:01:05 verbose #1979 > │ let v4 : int32 = 0 │
00:01:05 verbose #1980 > │ let v5 : int32 = method22(v3, v0, v4) │
00:01:05 verbose #1981 > │ v3 │
00:01:05 verbose #1982 > │ and closure4 () struct (v0 : int64, v1 : int64) : int64 = │
00:01:05 verbose #1983 > │ v1 │
00:01:05 verbose #1984 > │ and method24 (v0 : UH5, v1 : uint64) : uint64 = │
00:01:05 verbose #1985 > │ match v0 with │
00:01:05 verbose #1986 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #1987 > │ let v5 : uint64 = v1 + 1UL │
00:01:05 verbose #1988 > │ method24(v4, v5) │
00:01:05 verbose #1989 > │ | UH5_0 -> (* Nil *) │
00:01:05 verbose #1990 > │ v1 │
00:01:05 verbose #1991 > │ and method25 (v0 : (struct (UH2 * US0) []), v1 : UH5, v2 : uint64) : uint64 │
00:01:05 verbose #1992 > │ = │
00:01:05 verbose #1993 > │ match v1 with │
00:01:05 verbose #1994 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:05 verbose #1995 > │ v0.[int v2] <- struct (v3, v4) │
00:01:05 verbose #1996 > │ let v6 : uint64 = v2 + 1UL │
00:01:05 verbose #1997 > │ method25(v0, v5, v6) │
00:01:05 verbose #1998 > │ | UH5_0 -> (* Nil *) │
00:01:05 verbose #1999 > │ v2 │
00:01:05 verbose #2000 > │ and method23 (v0 : UH5) : (struct (UH2 * US0) []) = │
00:01:05 verbose #2001 > │ let v1 : uint64 = 0UL │
00:01:05 verbose #2002 > │ let v2 : uint64 = method24(v0, v1) │
00:01:05 verbose #2003 > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:01:05 verbose #2004 > │ (System.Convert.ToInt32(v2)) │
00:01:05 verbose #2005 > │ let v4 : uint64 = 0UL │
00:01:05 verbose #2006 > │ let v5 : uint64 = method25(v3, v0, v4) │
00:01:05 verbose #2007 > │ v3 │
00:01:05 verbose #2008 > │ and method27 (v0 : UH2, v1 : uint64) : uint64 = │
00:01:05 verbose #2009 > │ match v0 with │
00:01:05 verbose #2010 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:05 verbose #2011 > │ let v4 : uint64 = v1 + 1UL │
00:01:05 verbose #2012 > │ method27(v3, v4) │
00:01:05 verbose #2013 > │ | UH2_0 -> (* Nil *) │
00:01:05 verbose #2014 > │ v1 │
00:01:05 verbose #2015 > │ and method28 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:01:05 verbose #2016 > │ match v1 with │
00:01:05 verbose #2017 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:05 verbose #2018 > │ v0.[int v2] <- v3 │
00:01:05 verbose #2019 > │ let v5 : uint64 = v2 + 1UL │
00:01:05 verbose #2020 > │ method28(v0, v4, v5) │
00:01:05 verbose #2021 > │ | UH2_0 -> (* Nil *) │
00:01:05 verbose #2022 > │ v2 │
00:01:05 verbose #2023 > │ and method26 (v0 : UH2) : (string []) = │
00:01:05 verbose #2024 > │ let v1 : uint64 = 0UL │
00:01:05 verbose #2025 > │ let v2 : uint64 = method27(v0, v1) │
00:01:05 verbose #2026 > │ let v3 : (string []) = Array.zeroCreate<string> │
00:01:05 verbose #2027 > │ (System.Convert.ToInt32(v2)) │
00:01:05 verbose #2028 > │ let v4 : uint64 = 0UL │
00:01:05 verbose #2029 > │ let v5 : uint64 = method28(v3, v0, v4) │
00:01:05 verbose #2030 > │ v3 │
00:01:05 verbose #2031 > │ and closure5 () (v0 : int64) : US1 = │
00:01:05 verbose #2032 > │ US1_0(v0) │
00:01:05 verbose #2033 > │ and method29 () : (int64 -> US1) = │
00:01:05 verbose #2034 > │ closure5() │
00:01:05 verbose #2035 > │ and method30 (v0 : uint64, v1 : Mut3) : bool = │
00:01:05 verbose #2036 > │ let v2 : uint64 = v1.l0 │
00:01:05 verbose #2037 > │ let v3 : bool = v2 < v0 │
00:01:05 verbose #2038 > │ v3 │
00:01:05 verbose #2039 > │ and method31 (v0 : UH6, v1 : UH6) : UH6 = │
00:01:05 verbose #2040 > │ match v0 with │
00:01:05 verbose #2041 > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #2042 > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:01:05 verbose #2043 > │ method31(v4, v5) │
00:01:05 verbose #2044 > │ | UH6_0 -> (* Nil *) │
00:01:05 verbose #2045 > │ v1 │
00:01:05 verbose #2046 > │ and method33 (v0 : UH6, v1 : int32) : int32 = │
00:01:05 verbose #2047 > │ match v0 with │
00:01:05 verbose #2048 > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #2049 > │ let v5 : int32 = v1 + 1 │
00:01:05 verbose #2050 > │ method33(v4, v5) │
00:01:05 verbose #2051 > │ | UH6_0 -> (* Nil *) │
00:01:05 verbose #2052 > │ v1 │
00:01:05 verbose #2053 > │ and method34 (v0 : (struct (int32 * int64) []), v1 : UH6, v2 : int32) : │
00:01:05 verbose #2054 > │ int32 = │
00:01:05 verbose #2055 > │ match v1 with │
00:01:05 verbose #2056 > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:05 verbose #2057 > │ v0.[int v2] <- struct (v3, v4) │
00:01:05 verbose #2058 > │ let v6 : int32 = v2 + 1 │
00:01:05 verbose #2059 > │ method34(v0, v5, v6) │
00:01:05 verbose #2060 > │ | UH6_0 -> (* Nil *) │
00:01:05 verbose #2061 > │ v2 │
00:01:05 verbose #2062 > │ and method32 (v0 : UH6) : (struct (int32 * int64) []) = │
00:01:05 verbose #2063 > │ let v1 : int32 = 0 │
00:01:05 verbose #2064 > │ let v2 : int32 = method33(v0, v1) │
00:01:05 verbose #2065 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:05 verbose #2066 > │ int64)> (v2) │
00:01:05 verbose #2067 > │ let v4 : int32 = 0 │
00:01:05 verbose #2068 > │ let v5 : int32 = method34(v3, v0, v4) │
00:01:05 verbose #2069 > │ v3 │
00:01:05 verbose #2070 > │ and method35 (v0 : UH2, v1 : UH7, v2 : int32) : struct (UH7 * int32) = │
00:01:05 verbose #2071 > │ match v0 with │
00:01:05 verbose #2072 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:05 verbose #2073 > │ let v5 : int32 = v2 + 1 │
00:01:05 verbose #2074 > │ let v6 : UH7 = UH7_1(v2, v3, v1) │
00:01:05 verbose #2075 > │ method35(v4, v6, v5) │
00:01:05 verbose #2076 > │ | UH2_0 -> (* Nil *) │
00:01:05 verbose #2077 > │ struct (v1, v2) │
00:01:05 verbose #2078 > │ and method36 (v0 : UH7, v1 : UH7) : UH7 = │
00:01:05 verbose #2079 > │ match v0 with │
00:01:05 verbose #2080 > │ | UH7_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #2081 > │ let v5 : UH7 = UH7_1(v2, v3, v1) │
00:01:05 verbose #2082 > │ method36(v4, v5) │
00:01:05 verbose #2083 > │ | UH7_0 -> (* Nil *) │
00:01:05 verbose #2084 > │ v1 │
00:01:05 verbose #2085 > │ and method37 (v0 : Map<int32, int64>, v1 : UH7, v2 : UH2) : UH2 = │
00:01:05 verbose #2086 > │ match v1 with │
00:01:05 verbose #2087 > │ | UH7_1(v3, v4, v5) -> (* Cons *) │
00:01:05 verbose #2088 > │ let v6 : UH2 = method37(v0, v5, v2) │
00:01:05 verbose #2089 > │ let v7 : int64 = v0.[v3] │
00:01:05 verbose #2090 > │ let v8 : int32 = int32 v7 │
00:01:05 verbose #2091 > │ let v9 : string = v4.PadRight v8 │
00:01:05 verbose #2092 > │ UH2_1(v9, v6) │
00:01:05 verbose #2093 > │ | UH7_0 -> (* Nil *) │
00:01:05 verbose #2094 > │ v2 │
00:01:05 verbose #2095 > │ and method39 (v0 : UH6, v1 : uint64) : uint64 = │
00:01:05 verbose #2096 > │ match v0 with │
00:01:05 verbose #2097 > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:05 verbose #2098 > │ let v5 : uint64 = v1 + 1UL │
00:01:05 verbose #2099 > │ method39(v4, v5) │
00:01:05 verbose #2100 > │ | UH6_0 -> (* Nil *) │
00:01:05 verbose #2101 > │ v1 │
00:01:05 verbose #2102 > │ and method40 (v0 : (struct (int32 * int64) []), v1 : UH6, v2 : uint64) : │
00:01:05 verbose #2103 > │ uint64 = │
00:01:05 verbose #2104 > │ match v1 with │
00:01:05 verbose #2105 > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:05 verbose #2106 > │ v0.[int v2] <- struct (v3, v4) │
00:01:05 verbose #2107 > │ let v6 : uint64 = v2 + 1UL │
00:01:05 verbose #2108 > │ method40(v0, v5, v6) │
00:01:05 verbose #2109 > │ | UH6_0 -> (* Nil *) │
00:01:05 verbose #2110 > │ v2 │
00:01:05 verbose #2111 > │ and method38 (v0 : UH6) : (struct (int32 * int64) []) = │
00:01:05 verbose #2112 > │ let v1 : uint64 = 0UL │
00:01:05 verbose #2113 > │ let v2 : uint64 = method39(v0, v1) │
00:01:05 verbose #2114 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:05 verbose #2115 > │ int64)> (System.Convert.ToInt32(v2)) │
00:01:05 verbose #2116 > │ let v4 : uint64 = 0UL │
00:01:05 verbose #2117 > │ let v5 : uint64 = method40(v3, v0, v4) │
00:01:05 verbose #2118 > │ v3 │
00:01:05 verbose #2119 > │ and closure6 () struct (v0 : int32, v1 : int64) : int64 = │
00:01:05 verbose #2120 > │ v1 │
00:01:05 verbose #2121 > │ and closure0 () () : unit = │
00:01:05 verbose #2122 > │ let v0 : (unit -> unit) = closure0() │
00:01:05 verbose #2123 > │ let v1 : string = nameof v0 │
00:01:05 verbose #2124 > │ let v2 : string = "" │
00:01:05 verbose #2125 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2126 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2127 > │ let v3 : string = $"Test: {v1}" │
00:01:05 verbose #2128 > │ System.Console.WriteLine v3 │
00:01:05 verbose #2129 > │ let v4 : string = "abc" │
00:01:05 verbose #2130 > │ let v5 : string = "bca cab abc" │
00:01:05 verbose #2131 > │ let v6 : string = "abcde" │
00:01:05 verbose #2132 > │ let v7 : string = "bcdea cdeab deabc eabcd abcde" │
00:01:05 verbose #2133 > │ let v8 : string = "abcdefghi" │
00:01:05 verbose #2134 > │ let v9 : string = "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:01:05 verbose #2135 > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi" │
00:01:05 verbose #2136 > │ let v10 : string = "abab" │
00:01:05 verbose #2137 > │ let v11 : string = "baba abab baba abab" │
00:01:05 verbose #2138 > │ let v12 : string = "aa" │
00:01:05 verbose #2139 > │ let v13 : string = "aa aa" │
00:01:05 verbose #2140 > │ let v14 : string = "z" │
00:01:05 verbose #2141 > │ let v15 : UH0 = UH0_0 │
00:01:05 verbose #2142 > │ let v16 : UH0 = UH0_1(v14, v14, v15) │
00:01:05 verbose #2143 > │ let v17 : UH0 = UH0_1(v12, v13, v16) │
00:01:05 verbose #2144 > │ let v18 : UH0 = UH0_1(v10, v11, v17) │
00:01:05 verbose #2145 > │ let v19 : UH0 = UH0_1(v8, v9, v18) │
00:01:05 verbose #2146 > │ let v20 : UH0 = UH0_1(v6, v7, v19) │
00:01:05 verbose #2147 > │ let v21 : UH0 = UH0_1(v4, v5, v20) │
00:01:05 verbose #2148 > │ let v22 : (struct (string * string) []) = method1(v21) │
00:01:05 verbose #2149 > │ let v23 : uint64 = System.Convert.ToUInt64 v22.Length │
00:01:05 verbose #2150 > │ let v24 : (struct (string * string * string * (int64 [])) []) = │
00:01:05 verbose #2151 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:05 verbose #2152 > │ (System.Convert.ToInt32(v23)) │
00:01:05 verbose #2153 > │ let v25 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2154 > │ while method4(v23, v25) do │
00:01:05 verbose #2155 > │ let v27 : uint64 = v25.l0 │
00:01:05 verbose #2156 > │ let struct (v28 : string, v29 : string) = v22.[int v27] │
00:01:05 verbose #2157 > │ let v30 : string = $"%A{v28}" │
00:01:05 verbose #2158 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2159 > │ let v31 : string = $"Solution: {v30} " │
00:01:05 verbose #2160 > │ System.Console.WriteLine v31 │
00:01:05 verbose #2161 > │ let v32 : int32 = 0 │
00:01:05 verbose #2162 > │ let v33 : string = "F" │
00:01:05 verbose #2163 > │ let v34 : (string -> string) = closure1() │
00:01:05 verbose #2164 > │ let v35 : int32 = 1 │
00:01:05 verbose #2165 > │ let v36 : string = "FA" │
00:01:05 verbose #2166 > │ let v37 : (string -> string) = closure2() │
00:01:05 verbose #2167 > │ let v38 : UH3 = UH3_0 │
00:01:05 verbose #2168 > │ let v39 : UH3 = UH3_1(v35, v36, v37, v38) │
00:01:05 verbose #2169 > │ let v40 : UH3 = UH3_1(v32, v33, v34, v39) │
00:01:05 verbose #2170 > │ let v41 : (struct (int32 * string * (string -> string)) []) = │
00:01:05 verbose #2171 > │ method13(v40) │
00:01:05 verbose #2172 > │ let v42 : uint64 = System.Convert.ToUInt64 v41.Length │
00:01:05 verbose #2173 > │ let v43 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:01:05 verbose #2174 > │ (string * int64)> (System.Convert.ToInt32(v42)) │
00:01:05 verbose #2175 > │ let v44 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2176 > │ while method4(v42, v44) do │
00:01:05 verbose #2177 > │ let v46 : uint64 = v44.l0 │
00:01:05 verbose #2178 > │ let struct (v47 : int32, v48 : string, v49 : (string -> string)) │
00:01:05 verbose #2179 > │ = v41.[int v46] │
00:01:05 verbose #2180 > │ let v50 : unit option = None │
00:01:05 verbose #2181 > │ let v51 : bool = true in let mutable _v50 = v50 │
00:01:05 verbose #2182 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #2183 > │ () │
00:01:05 verbose #2184 > │ #endif │
00:01:05 verbose #2185 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #2186 > │ () │
00:01:05 verbose #2187 > │ #endif │
00:01:05 verbose #2188 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #2189 > │ () │
00:01:05 verbose #2190 > │ #endif │
00:01:05 verbose #2191 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #2192 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #2193 > │ System.GC.Collect () │
00:01:05 verbose #2194 > │ () │
00:01:05 verbose #2195 > │ #endif │
00:01:05 verbose #2196 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #2197 > │ () │
00:01:05 verbose #2198 > │ #endif │
00:01:05 verbose #2199 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #2200 > │ FABLE_COMPILER_DART │
00:01:05 verbose #2201 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #2202 > │ () │
00:01:05 verbose #2203 > │ #endif │
00:01:05 verbose #2204 > │ |> fun x -> _v50 <- Some x │
00:01:05 verbose #2205 > │ _v50.Value │
00:01:05 verbose #2206 > │ let v52 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:05 verbose #2207 > │ System.Diagnostics.Stopwatch │
00:01:05 verbose #2208 > │ let v53 : System.Diagnostics.Stopwatch = v52 () │
00:01:05 verbose #2209 > │ v53.Start () │
00:01:05 verbose #2210 > │ let v54 : int64 = v53.ElapsedMilliseconds │
00:01:05 verbose #2211 > │ let v55 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:01:05 verbose #2212 > │ let v56 : Mut1 = {l0 = 0} : Mut1 │
00:01:05 verbose #2213 > │ while method16(v56) do │
00:01:05 verbose #2214 > │ let v58 : int32 = v56.l0 │
00:01:05 verbose #2215 > │ v55.[int v58] <- v58 │
00:01:05 verbose #2216 > │ let v59 : int32 = v58 + 1 │
00:01:05 verbose #2217 > │ v56.l0 <- v59 │
00:01:05 verbose #2218 > │ () │
00:01:05 verbose #2219 > │ let v60 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:01:05 verbose #2220 > │ Array.Parallel.map │
00:01:05 verbose #2221 > │ let v61 : (int32 -> string) = closure3(v28, v49) │
00:01:05 verbose #2222 > │ let v62 : ((int32 []) -> (string [])) = v60 v61 │
00:01:05 verbose #2223 > │ let v63 : (string []) = v62 v55 │
00:01:05 verbose #2224 > │ let v64 : int32 = v63.Length │
00:01:05 verbose #2225 > │ let v65 : int32 = v64 - 1 │
00:01:05 verbose #2226 > │ let v66 : string = v63.[int v65] │
00:01:05 verbose #2227 > │ let v67 : int64 = v53.ElapsedMilliseconds │
00:01:05 verbose #2228 > │ let v68 : int64 = v67 - v54 │
00:01:05 verbose #2229 > │ let v69 : string = $"Test case {v47 + 1}. {v48}. Time: {v68} " │
00:01:05 verbose #2230 > │ System.Console.WriteLine v69 │
00:01:05 verbose #2231 > │ v43.[int v46] <- struct (v66, v68) │
00:01:05 verbose #2232 > │ let v70 : uint64 = v46 + 1UL │
00:01:05 verbose #2233 > │ v44.l0 <- v70 │
00:01:05 verbose #2234 > │ () │
00:01:05 verbose #2235 > │ let v71 : uint64 = System.Convert.ToUInt64 v43.Length │
00:01:05 verbose #2236 > │ let v72 : (string []) = Array.zeroCreate<string> │
00:01:05 verbose #2237 > │ (System.Convert.ToInt32(v71)) │
00:01:05 verbose #2238 > │ let v73 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2239 > │ while method4(v71, v73) do │
00:01:05 verbose #2240 > │ let v75 : uint64 = v73.l0 │
00:01:05 verbose #2241 > │ let struct (v76 : string, v77 : int64) = v43.[int v75] │
00:01:05 verbose #2242 > │ v72.[int v75] <- v76 │
00:01:05 verbose #2243 > │ let v78 : uint64 = v75 + 1UL │
00:01:05 verbose #2244 > │ v73.l0 <- v78 │
00:01:05 verbose #2245 > │ () │
00:01:05 verbose #2246 > │ let v79 : uint64 = System.Convert.ToUInt64 v72.Length │
00:01:05 verbose #2247 > │ let v80 : bool = v79 <= 1UL │
00:01:05 verbose #2248 > │ if v80 then │
00:01:05 verbose #2249 > │ () │
00:01:05 verbose #2250 > │ else │
00:01:05 verbose #2251 > │ let v81 : string = v72.[int 0UL] │
00:01:05 verbose #2252 > │ let v82 : uint64 = 0UL │
00:01:05 verbose #2253 > │ let v83 : bool = method17(v81, v72, v82) │
00:01:05 verbose #2254 > │ if v83 then │
00:01:05 verbose #2255 > │ () │
00:01:05 verbose #2256 > │ else │
00:01:05 verbose #2257 > │ let v84 : string = $"Challenge error: {v72}" │
00:01:05 verbose #2258 > │ failwith<unit> v84 │
00:01:05 verbose #2259 > │ let v85 : string = $"%A{v29}" │
00:01:05 verbose #2260 > │ let v86 : (string []) = Array.zeroCreate<string> │
00:01:05 verbose #2261 > │ (System.Convert.ToInt32(v71)) │
00:01:05 verbose #2262 > │ let v87 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2263 > │ while method4(v71, v87) do │
00:01:05 verbose #2264 > │ let v89 : uint64 = v87.l0 │
00:01:05 verbose #2265 > │ let struct (v90 : string, v91 : int64) = v43.[int v89] │
00:01:05 verbose #2266 > │ v86.[int v89] <- v90 │
00:01:05 verbose #2267 > │ let v92 : uint64 = v89 + 1UL │
00:01:05 verbose #2268 > │ v87.l0 <- v92 │
00:01:05 verbose #2269 > │ () │
00:01:05 verbose #2270 > │ let v93 : string = v86.[int 0UL] │
00:01:05 verbose #2271 > │ let v94 : string = $"%A{v93}" │
00:01:05 verbose #2272 > │ let v95 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2273 > │ (System.Convert.ToInt32(v71)) │
00:01:05 verbose #2274 > │ let v96 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2275 > │ while method4(v71, v96) do │
00:01:05 verbose #2276 > │ let v98 : uint64 = v96.l0 │
00:01:05 verbose #2277 > │ let struct (v99 : string, v100 : int64) = v43.[int v98] │
00:01:05 verbose #2278 > │ v95.[int v98] <- v100 │
00:01:05 verbose #2279 > │ let v101 : uint64 = v98 + 1UL │
00:01:05 verbose #2280 > │ v96.l0 <- v101 │
00:01:05 verbose #2281 > │ () │
00:01:05 verbose #2282 > │ v24.[int v27] <- struct (v85, v30, v94, v95) │
00:01:05 verbose #2283 > │ let v102 : uint64 = v27 + 1UL │
00:01:05 verbose #2284 > │ v25.l0 <- v102 │
00:01:05 verbose #2285 > │ () │
00:01:05 verbose #2286 > │ let v103 : uint64 = System.Convert.ToUInt64 v24.Length │
00:01:05 verbose #2287 > │ let v104 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:05 verbose #2288 > │ US0)> (System.Convert.ToInt32(v103)) │
00:01:05 verbose #2289 > │ let v105 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2290 > │ while method4(v103, v105) do │
00:01:05 verbose #2291 > │ let v107 : uint64 = v105.l0 │
00:01:05 verbose #2292 > │ let struct (v108 : string, v109 : string, v110 : string, v111 : │
00:01:05 verbose #2293 > │ (int64 [])) = v24.[int v107] │
00:01:05 verbose #2294 > │ let v112 : uint64 = System.Convert.ToUInt64 v111.Length │
00:01:05 verbose #2295 > │ let v113 : UH4 = UH4_0 │
00:01:05 verbose #2296 > │ let v114 : Mut2 = {l0 = 0UL; l1 = v113; l2 = 0L} : Mut2 │
00:01:05 verbose #2297 > │ while method18(v112, v114) do │
00:01:05 verbose #2298 > │ let v116 : uint64 = v114.l0 │
00:01:05 verbose #2299 > │ let struct (v117 : UH4, v118 : int64) = v114.l1, v114.l2 │
00:01:05 verbose #2300 > │ let v119 : int64 = v111.[int v116] │
00:01:05 verbose #2301 > │ let v120 : int64 = v118 + 1L │
00:01:05 verbose #2302 > │ let v121 : uint64 = v116 + 1UL │
00:01:05 verbose #2303 > │ let v122 : UH4 = UH4_1(v118, v119, v117) │
00:01:05 verbose #2304 > │ v114.l0 <- v121 │
00:01:05 verbose #2305 > │ v114.l1 <- v122 │
00:01:05 verbose #2306 > │ v114.l2 <- v120 │
00:01:05 verbose #2307 > │ () │
00:01:05 verbose #2308 > │ let struct (v123 : UH4, v124 : int64) = v114.l1, v114.l2 │
00:01:05 verbose #2309 > │ let v125 : UH4 = UH4_0 │
00:01:05 verbose #2310 > │ let v126 : UH4 = method19(v123, v125) │
00:01:05 verbose #2311 > │ let v127 : (struct (int64 * int64) []) = method20(v126) │
00:01:05 verbose #2312 > │ let v128 : int32 = v127.Length │
00:01:05 verbose #2313 > │ let v129 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:05 verbose #2314 > │ (int64 * int64)> (v128) │
00:01:05 verbose #2315 > │ let v130 : Mut1 = {l0 = 0} : Mut1 │
00:01:05 verbose #2316 > │ while method5(v128, v130) do │
00:01:05 verbose #2317 > │ let v132 : int32 = v130.l0 │
00:01:05 verbose #2318 > │ let struct (v133 : int64, v134 : int64) = v127.[int v132] │
00:01:05 verbose #2319 > │ let v135 : int64 = v133 + 1L │
00:01:05 verbose #2320 > │ v129.[int v132] <- struct (v135, v134) │
00:01:05 verbose #2321 > │ let v136 : int32 = v132 + 1 │
00:01:05 verbose #2322 > │ v130.l0 <- v136 │
00:01:05 verbose #2323 > │ () │
00:01:05 verbose #2324 > │ let v137 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:05 verbose #2325 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:05 verbose #2326 > │ let v138 : (struct (int64 * int64) -> int64) = closure4() │
00:01:05 verbose #2327 > │ let v139 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:05 verbose #2328 > │ ])) = v137 v138 │
00:01:05 verbose #2329 > │ let v140 : (struct (int64 * int64) []) = v139 v129 │
00:01:05 verbose #2330 > │ let struct (v141 : int64, v142 : int64) = v140.[int 0] │
00:01:05 verbose #2331 > │ let v143 : string = $"%A{struct (v141, v142)}" │
00:01:05 verbose #2332 > │ let v144 : bool = v108 = v110 │
00:01:05 verbose #2333 > │ let v149 : US0 = │
00:01:05 verbose #2334 > │ if v144 then │
00:01:05 verbose #2335 > │ let v145 : System.ConsoleColor = │
00:01:05 verbose #2336 > │ System.ConsoleColor.DarkGreen │
00:01:05 verbose #2337 > │ US0_0(v145) │
00:01:05 verbose #2338 > │ else │
00:01:05 verbose #2339 > │ let v147 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:05 verbose #2340 > │ US0_0(v147) │
00:01:05 verbose #2341 > │ let v150 : UH2 = UH2_0 │
00:01:05 verbose #2342 > │ let v151 : UH2 = UH2_1(v143, v150) │
00:01:05 verbose #2343 > │ let v152 : UH2 = UH2_1(v110, v151) │
00:01:05 verbose #2344 > │ let v153 : UH2 = UH2_1(v108, v152) │
00:01:05 verbose #2345 > │ let v154 : UH2 = UH2_1(v109, v153) │
00:01:05 verbose #2346 > │ v104.[int v107] <- struct (v154, v149) │
00:01:05 verbose #2347 > │ let v155 : uint64 = v107 + 1UL │
00:01:05 verbose #2348 > │ v105.l0 <- v155 │
00:01:05 verbose #2349 > │ () │
00:01:05 verbose #2350 > │ let v156 : string = "Input" │
00:01:05 verbose #2351 > │ let v157 : string = "Expected" │
00:01:05 verbose #2352 > │ let v158 : string = "Result" │
00:01:05 verbose #2353 > │ let v159 : string = "Best" │
00:01:05 verbose #2354 > │ let v160 : UH2 = UH2_0 │
00:01:05 verbose #2355 > │ let v161 : UH2 = UH2_1(v159, v160) │
00:01:05 verbose #2356 > │ let v162 : UH2 = UH2_1(v158, v161) │
00:01:05 verbose #2357 > │ let v163 : UH2 = UH2_1(v157, v162) │
00:01:05 verbose #2358 > │ let v164 : UH2 = UH2_1(v156, v163) │
00:01:05 verbose #2359 > │ let v165 : US0 = US0_1 │
00:01:05 verbose #2360 > │ let v166 : string = "---" │
00:01:05 verbose #2361 > │ let v167 : UH2 = UH2_0 │
00:01:05 verbose #2362 > │ let v168 : UH2 = UH2_1(v166, v167) │
00:01:05 verbose #2363 > │ let v169 : UH2 = UH2_1(v166, v168) │
00:01:05 verbose #2364 > │ let v170 : UH2 = UH2_1(v166, v169) │
00:01:05 verbose #2365 > │ let v171 : UH2 = UH2_1(v166, v170) │
00:01:05 verbose #2366 > │ let v172 : US0 = US0_1 │
00:01:05 verbose #2367 > │ let v173 : UH5 = UH5_0 │
00:01:05 verbose #2368 > │ let v174 : UH5 = UH5_1(v171, v172, v173) │
00:01:05 verbose #2369 > │ let v175 : UH5 = UH5_1(v164, v165, v174) │
00:01:05 verbose #2370 > │ let v176 : (struct (UH2 * US0) []) = method23(v175) │
00:01:05 verbose #2371 > │ let v177 : uint64 = System.Convert.ToUInt64 v176.Length │
00:01:05 verbose #2372 > │ let v178 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:05 verbose #2373 > │ let v179 : uint64 = v177 + v178 │
00:01:05 verbose #2374 > │ let v180 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:05 verbose #2375 > │ US0)> (System.Convert.ToInt32(v179)) │
00:01:05 verbose #2376 > │ let v181 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2377 > │ while method4(v179, v181) do │
00:01:05 verbose #2378 > │ let v183 : uint64 = v181.l0 │
00:01:05 verbose #2379 > │ let v184 : bool = v183 < v177 │
00:01:05 verbose #2380 > │ let struct (v190 : UH2, v191 : US0) = │
00:01:05 verbose #2381 > │ if v184 then │
00:01:05 verbose #2382 > │ let struct (v185 : UH2, v186 : US0) = v176.[int v183] │
00:01:05 verbose #2383 > │ struct (v185, v186) │
00:01:05 verbose #2384 > │ else │
00:01:05 verbose #2385 > │ let v187 : uint64 = v183 - v177 │
00:01:05 verbose #2386 > │ let struct (v188 : UH2, v189 : US0) = v104.[int v187] │
00:01:05 verbose #2387 > │ struct (v188, v189) │
00:01:05 verbose #2388 > │ v180.[int v183] <- struct (v190, v191) │
00:01:05 verbose #2389 > │ let v192 : uint64 = v183 + 1UL │
00:01:05 verbose #2390 > │ v181.l0 <- v192 │
00:01:05 verbose #2391 > │ () │
00:01:05 verbose #2392 > │ let v193 : uint64 = System.Convert.ToUInt64 v180.Length │
00:01:05 verbose #2393 > │ let v194 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:05 verbose #2394 > │ (System.Convert.ToInt32(v193)) │
00:01:05 verbose #2395 > │ let v195 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2396 > │ while method4(v193, v195) do │
00:01:05 verbose #2397 > │ let v197 : uint64 = v195.l0 │
00:01:05 verbose #2398 > │ let struct (v198 : UH2, v199 : US0) = v180.[int v197] │
00:01:05 verbose #2399 > │ let v200 : (string []) = method26(v198) │
00:01:05 verbose #2400 > │ v194.[int v197] <- v200 │
00:01:05 verbose #2401 > │ let v201 : uint64 = v197 + 1UL │
00:01:05 verbose #2402 > │ v195.l0 <- v201 │
00:01:05 verbose #2403 > │ () │
00:01:05 verbose #2404 > │ let v202 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:05 verbose #2405 > │ let v203 : ((string []) []) = v202 v194 │
00:01:05 verbose #2406 > │ let v204 : uint64 = System.Convert.ToUInt64 v203.Length │
00:01:05 verbose #2407 > │ let v205 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2408 > │ (System.Convert.ToInt32(v204)) │
00:01:05 verbose #2409 > │ let v206 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2410 > │ while method4(v204, v206) do │
00:01:05 verbose #2411 > │ let v208 : uint64 = v206.l0 │
00:01:05 verbose #2412 > │ let v209 : (string []) = v203.[int v208] │
00:01:05 verbose #2413 > │ let v210 : uint64 = System.Convert.ToUInt64 v209.Length │
00:01:05 verbose #2414 > │ let v211 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2415 > │ (System.Convert.ToInt32(v210)) │
00:01:05 verbose #2416 > │ let v212 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2417 > │ while method4(v210, v212) do │
00:01:05 verbose #2418 > │ let v214 : uint64 = v212.l0 │
00:01:05 verbose #2419 > │ let v215 : string = v209.[int v214] │
00:01:05 verbose #2420 > │ let v216 : int64 = System.Convert.ToInt64 v215.Length │
00:01:05 verbose #2421 > │ v211.[int v214] <- v216 │
00:01:05 verbose #2422 > │ let v217 : uint64 = v214 + 1UL │
00:01:05 verbose #2423 > │ v212.l0 <- v217 │
00:01:05 verbose #2424 > │ () │
00:01:05 verbose #2425 > │ let v218 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:05 verbose #2426 > │ let v219 : (int64 []) = v218 v211 │
00:01:05 verbose #2427 > │ let v220 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:05 verbose #2428 > │ let v221 : ((int64 []) -> int64 option) = v220 0 │
00:01:05 verbose #2429 > │ let v222 : int64 option = v221 v219 │
00:01:05 verbose #2430 > │ let v223 : (int64 -> US1) = method29() │
00:01:05 verbose #2431 > │ let v224 : US1 = US1_1 │
00:01:05 verbose #2432 > │ let v225 : US1 = v222 |> Option.map v223 |> Option.defaultValue v224 │
00:01:05 verbose #2433 > │ let v228 : int64 = │
00:01:05 verbose #2434 > │ match v225 with │
00:01:05 verbose #2435 > │ | US1_1 -> (* None *) │
00:01:05 verbose #2436 > │ 0L │
00:01:05 verbose #2437 > │ | US1_0(v226) -> (* Some *) │
00:01:05 verbose #2438 > │ v226 │
00:01:05 verbose #2439 > │ v205.[int v208] <- v228 │
00:01:05 verbose #2440 > │ let v229 : uint64 = v208 + 1UL │
00:01:05 verbose #2441 > │ v206.l0 <- v229 │
00:01:05 verbose #2442 > │ () │
00:01:05 verbose #2443 > │ let v230 : uint64 = System.Convert.ToUInt64 v205.Length │
00:01:05 verbose #2444 > │ let v231 : UH6 = UH6_0 │
00:01:05 verbose #2445 > │ let v232 : Mut3 = {l0 = 0UL; l1 = v231; l2 = 0} : Mut3 │
00:01:05 verbose #2446 > │ while method30(v230, v232) do │
00:01:05 verbose #2447 > │ let v234 : uint64 = v232.l0 │
00:01:05 verbose #2448 > │ let struct (v235 : UH6, v236 : int32) = v232.l1, v232.l2 │
00:01:05 verbose #2449 > │ let v237 : int64 = v205.[int v234] │
00:01:05 verbose #2450 > │ let v238 : int32 = v236 + 1 │
00:01:05 verbose #2451 > │ let v239 : uint64 = v234 + 1UL │
00:01:05 verbose #2452 > │ let v240 : UH6 = UH6_1(v236, v237, v235) │
00:01:05 verbose #2453 > │ v232.l0 <- v239 │
00:01:05 verbose #2454 > │ v232.l1 <- v240 │
00:01:05 verbose #2455 > │ v232.l2 <- v238 │
00:01:05 verbose #2456 > │ () │
00:01:05 verbose #2457 > │ let struct (v241 : UH6, v242 : int32) = v232.l1, v232.l2 │
00:01:05 verbose #2458 > │ let v243 : UH6 = UH6_0 │
00:01:05 verbose #2459 > │ let v244 : UH6 = method31(v241, v243) │
00:01:05 verbose #2460 > │ let v245 : (struct (int32 * int64) []) = method32(v244) │
00:01:05 verbose #2461 > │ let v246 : Map<int32, int64> = v245 |> Array.map (fun (struct (a, b)) -> │
00:01:05 verbose #2462 > │ a, b) |> Map.ofArray │
00:01:05 verbose #2463 > │ let v247 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:01:05 verbose #2464 > │ ((string []) * US0)> (System.Convert.ToInt32(v193)) │
00:01:05 verbose #2465 > │ let v248 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2466 > │ while method4(v193, v248) do │
00:01:05 verbose #2467 > │ let v250 : uint64 = v248.l0 │
00:01:05 verbose #2468 > │ let struct (v251 : UH2, v252 : US0) = v180.[int v250] │
00:01:05 verbose #2469 > │ let v253 : UH7 = UH7_0 │
00:01:05 verbose #2470 > │ let v254 : int32 = 0 │
00:01:05 verbose #2471 > │ let struct (v255 : UH7, v256 : int32) = method35(v251, v253, v254) │
00:01:05 verbose #2472 > │ let v257 : UH7 = UH7_0 │
00:01:05 verbose #2473 > │ let v258 : UH7 = method36(v255, v257) │
00:01:05 verbose #2474 > │ let v259 : UH2 = UH2_0 │
00:01:05 verbose #2475 > │ let v260 : UH2 = method37(v246, v258, v259) │
00:01:05 verbose #2476 > │ let v261 : (string []) = method10(v260) │
00:01:05 verbose #2477 > │ v247.[int v250] <- struct (v261, v252) │
00:01:05 verbose #2478 > │ let v262 : uint64 = v250 + 1UL │
00:01:05 verbose #2479 > │ v248.l0 <- v262 │
00:01:05 verbose #2480 > │ () │
00:01:05 verbose #2481 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2482 > │ let v263 : uint64 = System.Convert.ToUInt64 v247.Length │
00:01:05 verbose #2483 > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2484 > │ while method4(v263, v264) do │
00:01:05 verbose #2485 > │ let v266 : uint64 = v264.l0 │
00:01:05 verbose #2486 > │ let struct (v267 : (string []), v268 : US0) = v247.[int v266] │
00:01:05 verbose #2487 > │ match v268 with │
00:01:05 verbose #2488 > │ | US0_1 -> (* None *) │
00:01:05 verbose #2489 > │ let v272 : unit option = None │
00:01:05 verbose #2490 > │ let v273 : bool = true in let mutable _v272 = v272 │
00:01:05 verbose #2491 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #2492 > │ () │
00:01:05 verbose #2493 > │ #endif │
00:01:05 verbose #2494 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #2495 > │ () │
00:01:05 verbose #2496 > │ #endif │
00:01:05 verbose #2497 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #2498 > │ () │
00:01:05 verbose #2499 > │ #endif │
00:01:05 verbose #2500 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #2501 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #2502 > │ System.Console.ResetColor () │
00:01:05 verbose #2503 > │ () │
00:01:05 verbose #2504 > │ #endif │
00:01:05 verbose #2505 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #2506 > │ () │
00:01:05 verbose #2507 > │ #endif │
00:01:05 verbose #2508 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #2509 > │ FABLE_COMPILER_DART │
00:01:05 verbose #2510 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #2511 > │ () │
00:01:05 verbose #2512 > │ #endif │
00:01:05 verbose #2513 > │ |> fun x -> _v272 <- Some x │
00:01:05 verbose #2514 > │ _v272.Value │
00:01:05 verbose #2515 > │ () │
00:01:05 verbose #2516 > │ | US0_0(v269) -> (* Some *) │
00:01:05 verbose #2517 > │ let v270 : unit option = None │
00:01:05 verbose #2518 > │ let v271 : bool = true in let mutable _v270 = v270 │
00:01:05 verbose #2519 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #2520 > │ () │
00:01:05 verbose #2521 > │ #endif │
00:01:05 verbose #2522 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #2523 > │ () │
00:01:05 verbose #2524 > │ #endif │
00:01:05 verbose #2525 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #2526 > │ () │
00:01:05 verbose #2527 > │ #endif │
00:01:05 verbose #2528 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #2529 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #2530 > │ System.Console.ForegroundColor <- v269 │
00:01:05 verbose #2531 > │ () │
00:01:05 verbose #2532 > │ #endif │
00:01:05 verbose #2533 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #2534 > │ () │
00:01:05 verbose #2535 > │ #endif │
00:01:05 verbose #2536 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #2537 > │ FABLE_COMPILER_DART │
00:01:05 verbose #2538 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #2539 > │ () │
00:01:05 verbose #2540 > │ #endif │
00:01:05 verbose #2541 > │ |> fun x -> _v270 <- Some x │
00:01:05 verbose #2542 > │ _v270.Value │
00:01:05 verbose #2543 > │ () │
00:01:05 verbose #2544 > │ let v274 : string = "\t| " │
00:01:05 verbose #2545 > │ let v275 : string = System.String.Join (v274, v267) │
00:01:05 verbose #2546 > │ System.Console.WriteLine v275 │
00:01:05 verbose #2547 > │ let v276 : unit option = None │
00:01:05 verbose #2548 > │ let v277 : bool = true in let mutable _v276 = v276 │
00:01:05 verbose #2549 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #2550 > │ () │
00:01:05 verbose #2551 > │ #endif │
00:01:05 verbose #2552 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #2553 > │ () │
00:01:05 verbose #2554 > │ #endif │
00:01:05 verbose #2555 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #2556 > │ () │
00:01:05 verbose #2557 > │ #endif │
00:01:05 verbose #2558 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #2559 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #2560 > │ System.Console.ResetColor () │
00:01:05 verbose #2561 > │ () │
00:01:05 verbose #2562 > │ #endif │
00:01:05 verbose #2563 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #2564 > │ () │
00:01:05 verbose #2565 > │ #endif │
00:01:05 verbose #2566 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #2567 > │ FABLE_COMPILER_DART │
00:01:05 verbose #2568 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #2569 > │ () │
00:01:05 verbose #2570 > │ #endif │
00:01:05 verbose #2571 > │ |> fun x -> _v276 <- Some x │
00:01:05 verbose #2572 > │ _v276.Value │
00:01:05 verbose #2573 > │ let v278 : uint64 = v266 + 1UL │
00:01:05 verbose #2574 > │ v264.l0 <- v278 │
00:01:05 verbose #2575 > │ () │
00:01:05 verbose #2576 > │ let v279 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:05 verbose #2577 > │ (System.Convert.ToInt32(v103)) │
00:01:05 verbose #2578 > │ let v280 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2579 > │ while method4(v103, v280) do │
00:01:05 verbose #2580 > │ let v282 : uint64 = v280.l0 │
00:01:05 verbose #2581 > │ let struct (v283 : string, v284 : string, v285 : string, v286 : │
00:01:05 verbose #2582 > │ (int64 [])) = v24.[int v282] │
00:01:05 verbose #2583 > │ let v287 : (int64 -> float) = float │
00:01:05 verbose #2584 > │ let v288 : uint64 = System.Convert.ToUInt64 v286.Length │
00:01:05 verbose #2585 > │ let v289 : (float []) = Array.zeroCreate<float> │
00:01:05 verbose #2586 > │ (System.Convert.ToInt32(v288)) │
00:01:05 verbose #2587 > │ let v290 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2588 > │ while method4(v288, v290) do │
00:01:05 verbose #2589 > │ let v292 : uint64 = v290.l0 │
00:01:05 verbose #2590 > │ let v293 : int64 = v286.[int v292] │
00:01:05 verbose #2591 > │ let v294 : float = v287 v293 │
00:01:05 verbose #2592 > │ v289.[int v292] <- v294 │
00:01:05 verbose #2593 > │ let v295 : uint64 = v292 + 1UL │
00:01:05 verbose #2594 > │ v290.l0 <- v295 │
00:01:05 verbose #2595 > │ () │
00:01:05 verbose #2596 > │ v279.[int v282] <- v289 │
00:01:05 verbose #2597 > │ let v296 : uint64 = v282 + 1UL │
00:01:05 verbose #2598 > │ v280.l0 <- v296 │
00:01:05 verbose #2599 > │ () │
00:01:05 verbose #2600 > │ let v297 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:05 verbose #2601 > │ let v298 : ((float []) []) = v297 v279 │
00:01:05 verbose #2602 > │ let v299 : uint64 = System.Convert.ToUInt64 v298.Length │
00:01:05 verbose #2603 > │ let v300 : (float []) = Array.zeroCreate<float> │
00:01:05 verbose #2604 > │ (System.Convert.ToInt32(v299)) │
00:01:05 verbose #2605 > │ let v301 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2606 > │ while method4(v299, v301) do │
00:01:05 verbose #2607 > │ let v303 : uint64 = v301.l0 │
00:01:05 verbose #2608 > │ let v304 : (float []) = v298.[int v303] │
00:01:05 verbose #2609 > │ let v305 : ((float []) -> float) = Array.average │
00:01:05 verbose #2610 > │ let v306 : float = v305 v304 │
00:01:05 verbose #2611 > │ v300.[int v303] <- v306 │
00:01:05 verbose #2612 > │ let v307 : uint64 = v303 + 1UL │
00:01:05 verbose #2613 > │ v301.l0 <- v307 │
00:01:05 verbose #2614 > │ () │
00:01:05 verbose #2615 > │ let v308 : (float -> int64) = int64 │
00:01:05 verbose #2616 > │ let v309 : uint64 = System.Convert.ToUInt64 v300.Length │
00:01:05 verbose #2617 > │ let v310 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2618 > │ (System.Convert.ToInt32(v309)) │
00:01:05 verbose #2619 > │ let v311 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2620 > │ while method4(v309, v311) do │
00:01:05 verbose #2621 > │ let v313 : uint64 = v311.l0 │
00:01:05 verbose #2622 > │ let v314 : float = v300.[int v313] │
00:01:05 verbose #2623 > │ let v315 : int64 = v308 v314 │
00:01:05 verbose #2624 > │ v310.[int v313] <- v315 │
00:01:05 verbose #2625 > │ let v316 : uint64 = v313 + 1UL │
00:01:05 verbose #2626 > │ v311.l0 <- v316 │
00:01:05 verbose #2627 > │ () │
00:01:05 verbose #2628 > │ let v317 : uint64 = System.Convert.ToUInt64 v310.Length │
00:01:05 verbose #2629 > │ let v318 : UH6 = UH6_0 │
00:01:05 verbose #2630 > │ let v319 : Mut3 = {l0 = 0UL; l1 = v318; l2 = 0} : Mut3 │
00:01:05 verbose #2631 > │ while method30(v317, v319) do │
00:01:05 verbose #2632 > │ let v321 : uint64 = v319.l0 │
00:01:05 verbose #2633 > │ let struct (v322 : UH6, v323 : int32) = v319.l1, v319.l2 │
00:01:05 verbose #2634 > │ let v324 : int64 = v310.[int v321] │
00:01:05 verbose #2635 > │ let v325 : int32 = v323 + 1 │
00:01:05 verbose #2636 > │ let v326 : uint64 = v321 + 1UL │
00:01:05 verbose #2637 > │ let v327 : UH6 = UH6_1(v323, v324, v322) │
00:01:05 verbose #2638 > │ v319.l0 <- v326 │
00:01:05 verbose #2639 > │ v319.l1 <- v327 │
00:01:05 verbose #2640 > │ v319.l2 <- v325 │
00:01:05 verbose #2641 > │ () │
00:01:05 verbose #2642 > │ let struct (v328 : UH6, v329 : int32) = v319.l1, v319.l2 │
00:01:05 verbose #2643 > │ let v330 : UH6 = UH6_0 │
00:01:05 verbose #2644 > │ let v331 : UH6 = method31(v328, v330) │
00:01:05 verbose #2645 > │ let v332 : (struct (int32 * int64) []) = method38(v331) │
00:01:05 verbose #2646 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2647 > │ let v333 : string = "Average Ranking " │
00:01:05 verbose #2648 > │ System.Console.WriteLine v333 │
00:01:05 verbose #2649 > │ let v334 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:05 verbose #2650 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:05 verbose #2651 > │ let v335 : (struct (int32 * int64) -> int64) = closure6() │
00:01:05 verbose #2652 > │ let v336 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:05 verbose #2653 > │ = v334 v335 │
00:01:05 verbose #2654 > │ let v337 : (struct (int32 * int64) []) = v336 v332 │
00:01:05 verbose #2655 > │ let v338 : uint64 = System.Convert.ToUInt64 v337.Length │
00:01:05 verbose #2656 > │ let v339 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2657 > │ while method4(v338, v339) do │
00:01:05 verbose #2658 > │ let v341 : uint64 = v339.l0 │
00:01:05 verbose #2659 > │ let struct (v342 : int32, v343 : int64) = v337.[int v341] │
00:01:05 verbose #2660 > │ let v344 : string = $"Test case %d{v342 + 1}. Average Time: %A{v343} │
00:01:05 verbose #2661 > │ " │
00:01:05 verbose #2662 > │ System.Console.WriteLine v344 │
00:01:05 verbose #2663 > │ let v345 : uint64 = v341 + 1UL │
00:01:05 verbose #2664 > │ v339.l0 <- v345 │
00:01:05 verbose #2665 > │ () │
00:01:05 verbose #2666 > │ () │
00:01:05 verbose #2667 > │ and method0 () : unit = │
00:01:05 verbose #2668 > │ let v0 : (unit -> unit) = closure0() │
00:01:05 verbose #2669 > │ let v1 : string = nameof v0 │
00:01:05 verbose #2670 > │ let v2 : string = "" │
00:01:05 verbose #2671 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2672 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2673 > │ let v3 : string = $"Test: {v1}" │
00:01:05 verbose #2674 > │ System.Console.WriteLine v3 │
00:01:05 verbose #2675 > │ let v4 : string = "abc" │
00:01:05 verbose #2676 > │ let v5 : string = "bca cab abc" │
00:01:05 verbose #2677 > │ let v6 : string = "abcde" │
00:01:05 verbose #2678 > │ let v7 : string = "bcdea cdeab deabc eabcd abcde" │
00:01:05 verbose #2679 > │ let v8 : string = "abcdefghi" │
00:01:05 verbose #2680 > │ let v9 : string = "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:01:05 verbose #2681 > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi" │
00:01:05 verbose #2682 > │ let v10 : string = "abab" │
00:01:05 verbose #2683 > │ let v11 : string = "baba abab baba abab" │
00:01:05 verbose #2684 > │ let v12 : string = "aa" │
00:01:05 verbose #2685 > │ let v13 : string = "aa aa" │
00:01:05 verbose #2686 > │ let v14 : string = "z" │
00:01:05 verbose #2687 > │ let v15 : UH0 = UH0_0 │
00:01:05 verbose #2688 > │ let v16 : UH0 = UH0_1(v14, v14, v15) │
00:01:05 verbose #2689 > │ let v17 : UH0 = UH0_1(v12, v13, v16) │
00:01:05 verbose #2690 > │ let v18 : UH0 = UH0_1(v10, v11, v17) │
00:01:05 verbose #2691 > │ let v19 : UH0 = UH0_1(v8, v9, v18) │
00:01:05 verbose #2692 > │ let v20 : UH0 = UH0_1(v6, v7, v19) │
00:01:05 verbose #2693 > │ let v21 : UH0 = UH0_1(v4, v5, v20) │
00:01:05 verbose #2694 > │ let v22 : (struct (string * string) []) = method1(v21) │
00:01:05 verbose #2695 > │ let v23 : uint64 = System.Convert.ToUInt64 v22.Length │
00:01:05 verbose #2696 > │ let v24 : (struct (string * string * string * (int64 [])) []) = │
00:01:05 verbose #2697 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:05 verbose #2698 > │ (System.Convert.ToInt32(v23)) │
00:01:05 verbose #2699 > │ let v25 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2700 > │ while method4(v23, v25) do │
00:01:05 verbose #2701 > │ let v27 : uint64 = v25.l0 │
00:01:05 verbose #2702 > │ let struct (v28 : string, v29 : string) = v22.[int v27] │
00:01:05 verbose #2703 > │ let v30 : string = $"%A{v28}" │
00:01:05 verbose #2704 > │ System.Console.WriteLine v2 │
00:01:05 verbose #2705 > │ let v31 : string = $"Solution: {v30} " │
00:01:05 verbose #2706 > │ System.Console.WriteLine v31 │
00:01:05 verbose #2707 > │ let v32 : int32 = 0 │
00:01:05 verbose #2708 > │ let v33 : string = "F" │
00:01:05 verbose #2709 > │ let v34 : (string -> string) = closure1() │
00:01:05 verbose #2710 > │ let v35 : int32 = 1 │
00:01:05 verbose #2711 > │ let v36 : string = "FA" │
00:01:05 verbose #2712 > │ let v37 : (string -> string) = closure2() │
00:01:05 verbose #2713 > │ let v38 : UH3 = UH3_0 │
00:01:05 verbose #2714 > │ let v39 : UH3 = UH3_1(v35, v36, v37, v38) │
00:01:05 verbose #2715 > │ let v40 : UH3 = UH3_1(v32, v33, v34, v39) │
00:01:05 verbose #2716 > │ let v41 : (struct (int32 * string * (string -> string)) []) = │
00:01:05 verbose #2717 > │ method13(v40) │
00:01:05 verbose #2718 > │ let v42 : uint64 = System.Convert.ToUInt64 v41.Length │
00:01:05 verbose #2719 > │ let v43 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:01:05 verbose #2720 > │ (string * int64)> (System.Convert.ToInt32(v42)) │
00:01:05 verbose #2721 > │ let v44 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2722 > │ while method4(v42, v44) do │
00:01:05 verbose #2723 > │ let v46 : uint64 = v44.l0 │
00:01:05 verbose #2724 > │ let struct (v47 : int32, v48 : string, v49 : (string -> string)) │
00:01:05 verbose #2725 > │ = v41.[int v46] │
00:01:05 verbose #2726 > │ let v50 : unit option = None │
00:01:05 verbose #2727 > │ let v51 : bool = true in let mutable _v50 = v50 │
00:01:05 verbose #2728 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #2729 > │ () │
00:01:05 verbose #2730 > │ #endif │
00:01:05 verbose #2731 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #2732 > │ () │
00:01:05 verbose #2733 > │ #endif │
00:01:05 verbose #2734 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #2735 > │ () │
00:01:05 verbose #2736 > │ #endif │
00:01:05 verbose #2737 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #2738 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #2739 > │ System.GC.Collect () │
00:01:05 verbose #2740 > │ () │
00:01:05 verbose #2741 > │ #endif │
00:01:05 verbose #2742 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #2743 > │ () │
00:01:05 verbose #2744 > │ #endif │
00:01:05 verbose #2745 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #2746 > │ FABLE_COMPILER_DART │
00:01:05 verbose #2747 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #2748 > │ () │
00:01:05 verbose #2749 > │ #endif │
00:01:05 verbose #2750 > │ |> fun x -> _v50 <- Some x │
00:01:05 verbose #2751 > │ _v50.Value │
00:01:05 verbose #2752 > │ let v52 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:05 verbose #2753 > │ System.Diagnostics.Stopwatch │
00:01:05 verbose #2754 > │ let v53 : System.Diagnostics.Stopwatch = v52 () │
00:01:05 verbose #2755 > │ v53.Start () │
00:01:05 verbose #2756 > │ let v54 : int64 = v53.ElapsedMilliseconds │
00:01:05 verbose #2757 > │ let v55 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:01:05 verbose #2758 > │ let v56 : Mut1 = {l0 = 0} : Mut1 │
00:01:05 verbose #2759 > │ while method16(v56) do │
00:01:05 verbose #2760 > │ let v58 : int32 = v56.l0 │
00:01:05 verbose #2761 > │ v55.[int v58] <- v58 │
00:01:05 verbose #2762 > │ let v59 : int32 = v58 + 1 │
00:01:05 verbose #2763 > │ v56.l0 <- v59 │
00:01:05 verbose #2764 > │ () │
00:01:05 verbose #2765 > │ let v60 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:01:05 verbose #2766 > │ Array.Parallel.map │
00:01:05 verbose #2767 > │ let v61 : (int32 -> string) = closure3(v28, v49) │
00:01:05 verbose #2768 > │ let v62 : ((int32 []) -> (string [])) = v60 v61 │
00:01:05 verbose #2769 > │ let v63 : (string []) = v62 v55 │
00:01:05 verbose #2770 > │ let v64 : int32 = v63.Length │
00:01:05 verbose #2771 > │ let v65 : int32 = v64 - 1 │
00:01:05 verbose #2772 > │ let v66 : string = v63.[int v65] │
00:01:05 verbose #2773 > │ let v67 : int64 = v53.ElapsedMilliseconds │
00:01:05 verbose #2774 > │ let v68 : int64 = v67 - v54 │
00:01:05 verbose #2775 > │ let v69 : string = $"Test case {v47 + 1}. {v48}. Time: {v68} " │
00:01:05 verbose #2776 > │ System.Console.WriteLine v69 │
00:01:05 verbose #2777 > │ v43.[int v46] <- struct (v66, v68) │
00:01:05 verbose #2778 > │ let v70 : uint64 = v46 + 1UL │
00:01:05 verbose #2779 > │ v44.l0 <- v70 │
00:01:05 verbose #2780 > │ () │
00:01:05 verbose #2781 > │ let v71 : uint64 = System.Convert.ToUInt64 v43.Length │
00:01:05 verbose #2782 > │ let v72 : (string []) = Array.zeroCreate<string> │
00:01:05 verbose #2783 > │ (System.Convert.ToInt32(v71)) │
00:01:05 verbose #2784 > │ let v73 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2785 > │ while method4(v71, v73) do │
00:01:05 verbose #2786 > │ let v75 : uint64 = v73.l0 │
00:01:05 verbose #2787 > │ let struct (v76 : string, v77 : int64) = v43.[int v75] │
00:01:05 verbose #2788 > │ v72.[int v75] <- v76 │
00:01:05 verbose #2789 > │ let v78 : uint64 = v75 + 1UL │
00:01:05 verbose #2790 > │ v73.l0 <- v78 │
00:01:05 verbose #2791 > │ () │
00:01:05 verbose #2792 > │ let v79 : uint64 = System.Convert.ToUInt64 v72.Length │
00:01:05 verbose #2793 > │ let v80 : bool = v79 <= 1UL │
00:01:05 verbose #2794 > │ if v80 then │
00:01:05 verbose #2795 > │ () │
00:01:05 verbose #2796 > │ else │
00:01:05 verbose #2797 > │ let v81 : string = v72.[int 0UL] │
00:01:05 verbose #2798 > │ let v82 : uint64 = 0UL │
00:01:05 verbose #2799 > │ let v83 : bool = method17(v81, v72, v82) │
00:01:05 verbose #2800 > │ if v83 then │
00:01:05 verbose #2801 > │ () │
00:01:05 verbose #2802 > │ else │
00:01:05 verbose #2803 > │ let v84 : string = $"Challenge error: {v72}" │
00:01:05 verbose #2804 > │ failwith<unit> v84 │
00:01:05 verbose #2805 > │ let v85 : string = $"%A{v29}" │
00:01:05 verbose #2806 > │ let v86 : (string []) = Array.zeroCreate<string> │
00:01:05 verbose #2807 > │ (System.Convert.ToInt32(v71)) │
00:01:05 verbose #2808 > │ let v87 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2809 > │ while method4(v71, v87) do │
00:01:05 verbose #2810 > │ let v89 : uint64 = v87.l0 │
00:01:05 verbose #2811 > │ let struct (v90 : string, v91 : int64) = v43.[int v89] │
00:01:05 verbose #2812 > │ v86.[int v89] <- v90 │
00:01:05 verbose #2813 > │ let v92 : uint64 = v89 + 1UL │
00:01:05 verbose #2814 > │ v87.l0 <- v92 │
00:01:05 verbose #2815 > │ () │
00:01:05 verbose #2816 > │ let v93 : string = v86.[int 0UL] │
00:01:05 verbose #2817 > │ let v94 : string = $"%A{v93}" │
00:01:05 verbose #2818 > │ let v95 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2819 > │ (System.Convert.ToInt32(v71)) │
00:01:05 verbose #2820 > │ let v96 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2821 > │ while method4(v71, v96) do │
00:01:05 verbose #2822 > │ let v98 : uint64 = v96.l0 │
00:01:05 verbose #2823 > │ let struct (v99 : string, v100 : int64) = v43.[int v98] │
00:01:05 verbose #2824 > │ v95.[int v98] <- v100 │
00:01:05 verbose #2825 > │ let v101 : uint64 = v98 + 1UL │
00:01:05 verbose #2826 > │ v96.l0 <- v101 │
00:01:05 verbose #2827 > │ () │
00:01:05 verbose #2828 > │ v24.[int v27] <- struct (v85, v30, v94, v95) │
00:01:05 verbose #2829 > │ let v102 : uint64 = v27 + 1UL │
00:01:05 verbose #2830 > │ v25.l0 <- v102 │
00:01:05 verbose #2831 > │ () │
00:01:05 verbose #2832 > │ let v103 : uint64 = System.Convert.ToUInt64 v24.Length │
00:01:05 verbose #2833 > │ let v104 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:05 verbose #2834 > │ US0)> (System.Convert.ToInt32(v103)) │
00:01:05 verbose #2835 > │ let v105 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2836 > │ while method4(v103, v105) do │
00:01:05 verbose #2837 > │ let v107 : uint64 = v105.l0 │
00:01:05 verbose #2838 > │ let struct (v108 : string, v109 : string, v110 : string, v111 : │
00:01:05 verbose #2839 > │ (int64 [])) = v24.[int v107] │
00:01:05 verbose #2840 > │ let v112 : uint64 = System.Convert.ToUInt64 v111.Length │
00:01:05 verbose #2841 > │ let v113 : UH4 = UH4_0 │
00:01:05 verbose #2842 > │ let v114 : Mut2 = {l0 = 0UL; l1 = v113; l2 = 0L} : Mut2 │
00:01:05 verbose #2843 > │ while method18(v112, v114) do │
00:01:05 verbose #2844 > │ let v116 : uint64 = v114.l0 │
00:01:05 verbose #2845 > │ let struct (v117 : UH4, v118 : int64) = v114.l1, v114.l2 │
00:01:05 verbose #2846 > │ let v119 : int64 = v111.[int v116] │
00:01:05 verbose #2847 > │ let v120 : int64 = v118 + 1L │
00:01:05 verbose #2848 > │ let v121 : uint64 = v116 + 1UL │
00:01:05 verbose #2849 > │ let v122 : UH4 = UH4_1(v118, v119, v117) │
00:01:05 verbose #2850 > │ v114.l0 <- v121 │
00:01:05 verbose #2851 > │ v114.l1 <- v122 │
00:01:05 verbose #2852 > │ v114.l2 <- v120 │
00:01:05 verbose #2853 > │ () │
00:01:05 verbose #2854 > │ let struct (v123 : UH4, v124 : int64) = v114.l1, v114.l2 │
00:01:05 verbose #2855 > │ let v125 : UH4 = UH4_0 │
00:01:05 verbose #2856 > │ let v126 : UH4 = method19(v123, v125) │
00:01:05 verbose #2857 > │ let v127 : (struct (int64 * int64) []) = method20(v126) │
00:01:05 verbose #2858 > │ let v128 : int32 = v127.Length │
00:01:05 verbose #2859 > │ let v129 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:05 verbose #2860 > │ (int64 * int64)> (v128) │
00:01:05 verbose #2861 > │ let v130 : Mut1 = {l0 = 0} : Mut1 │
00:01:05 verbose #2862 > │ while method5(v128, v130) do │
00:01:05 verbose #2863 > │ let v132 : int32 = v130.l0 │
00:01:05 verbose #2864 > │ let struct (v133 : int64, v134 : int64) = v127.[int v132] │
00:01:05 verbose #2865 > │ let v135 : int64 = v133 + 1L │
00:01:05 verbose #2866 > │ v129.[int v132] <- struct (v135, v134) │
00:01:05 verbose #2867 > │ let v136 : int32 = v132 + 1 │
00:01:05 verbose #2868 > │ v130.l0 <- v136 │
00:01:05 verbose #2869 > │ () │
00:01:05 verbose #2870 > │ let v137 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:05 verbose #2871 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:05 verbose #2872 > │ let v138 : (struct (int64 * int64) -> int64) = closure4() │
00:01:05 verbose #2873 > │ let v139 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:05 verbose #2874 > │ ])) = v137 v138 │
00:01:05 verbose #2875 > │ let v140 : (struct (int64 * int64) []) = v139 v129 │
00:01:05 verbose #2876 > │ let struct (v141 : int64, v142 : int64) = v140.[int 0] │
00:01:05 verbose #2877 > │ let v143 : string = $"%A{struct (v141, v142)}" │
00:01:05 verbose #2878 > │ let v144 : bool = v108 = v110 │
00:01:05 verbose #2879 > │ let v149 : US0 = │
00:01:05 verbose #2880 > │ if v144 then │
00:01:05 verbose #2881 > │ let v145 : System.ConsoleColor = │
00:01:05 verbose #2882 > │ System.ConsoleColor.DarkGreen │
00:01:05 verbose #2883 > │ US0_0(v145) │
00:01:05 verbose #2884 > │ else │
00:01:05 verbose #2885 > │ let v147 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:05 verbose #2886 > │ US0_0(v147) │
00:01:05 verbose #2887 > │ let v150 : UH2 = UH2_0 │
00:01:05 verbose #2888 > │ let v151 : UH2 = UH2_1(v143, v150) │
00:01:05 verbose #2889 > │ let v152 : UH2 = UH2_1(v110, v151) │
00:01:05 verbose #2890 > │ let v153 : UH2 = UH2_1(v108, v152) │
00:01:05 verbose #2891 > │ let v154 : UH2 = UH2_1(v109, v153) │
00:01:05 verbose #2892 > │ v104.[int v107] <- struct (v154, v149) │
00:01:05 verbose #2893 > │ let v155 : uint64 = v107 + 1UL │
00:01:05 verbose #2894 > │ v105.l0 <- v155 │
00:01:05 verbose #2895 > │ () │
00:01:05 verbose #2896 > │ let v156 : string = "Input" │
00:01:05 verbose #2897 > │ let v157 : string = "Expected" │
00:01:05 verbose #2898 > │ let v158 : string = "Result" │
00:01:05 verbose #2899 > │ let v159 : string = "Best" │
00:01:05 verbose #2900 > │ let v160 : UH2 = UH2_0 │
00:01:05 verbose #2901 > │ let v161 : UH2 = UH2_1(v159, v160) │
00:01:05 verbose #2902 > │ let v162 : UH2 = UH2_1(v158, v161) │
00:01:05 verbose #2903 > │ let v163 : UH2 = UH2_1(v157, v162) │
00:01:05 verbose #2904 > │ let v164 : UH2 = UH2_1(v156, v163) │
00:01:05 verbose #2905 > │ let v165 : US0 = US0_1 │
00:01:05 verbose #2906 > │ let v166 : string = "---" │
00:01:05 verbose #2907 > │ let v167 : UH2 = UH2_0 │
00:01:05 verbose #2908 > │ let v168 : UH2 = UH2_1(v166, v167) │
00:01:05 verbose #2909 > │ let v169 : UH2 = UH2_1(v166, v168) │
00:01:05 verbose #2910 > │ let v170 : UH2 = UH2_1(v166, v169) │
00:01:05 verbose #2911 > │ let v171 : UH2 = UH2_1(v166, v170) │
00:01:05 verbose #2912 > │ let v172 : US0 = US0_1 │
00:01:05 verbose #2913 > │ let v173 : UH5 = UH5_0 │
00:01:05 verbose #2914 > │ let v174 : UH5 = UH5_1(v171, v172, v173) │
00:01:05 verbose #2915 > │ let v175 : UH5 = UH5_1(v164, v165, v174) │
00:01:05 verbose #2916 > │ let v176 : (struct (UH2 * US0) []) = method23(v175) │
00:01:05 verbose #2917 > │ let v177 : uint64 = System.Convert.ToUInt64 v176.Length │
00:01:05 verbose #2918 > │ let v178 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:05 verbose #2919 > │ let v179 : uint64 = v177 + v178 │
00:01:05 verbose #2920 > │ let v180 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:05 verbose #2921 > │ US0)> (System.Convert.ToInt32(v179)) │
00:01:05 verbose #2922 > │ let v181 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2923 > │ while method4(v179, v181) do │
00:01:05 verbose #2924 > │ let v183 : uint64 = v181.l0 │
00:01:05 verbose #2925 > │ let v184 : bool = v183 < v177 │
00:01:05 verbose #2926 > │ let struct (v190 : UH2, v191 : US0) = │
00:01:05 verbose #2927 > │ if v184 then │
00:01:05 verbose #2928 > │ let struct (v185 : UH2, v186 : US0) = v176.[int v183] │
00:01:05 verbose #2929 > │ struct (v185, v186) │
00:01:05 verbose #2930 > │ else │
00:01:05 verbose #2931 > │ let v187 : uint64 = v183 - v177 │
00:01:05 verbose #2932 > │ let struct (v188 : UH2, v189 : US0) = v104.[int v187] │
00:01:05 verbose #2933 > │ struct (v188, v189) │
00:01:05 verbose #2934 > │ v180.[int v183] <- struct (v190, v191) │
00:01:05 verbose #2935 > │ let v192 : uint64 = v183 + 1UL │
00:01:05 verbose #2936 > │ v181.l0 <- v192 │
00:01:05 verbose #2937 > │ () │
00:01:05 verbose #2938 > │ let v193 : uint64 = System.Convert.ToUInt64 v180.Length │
00:01:05 verbose #2939 > │ let v194 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:05 verbose #2940 > │ (System.Convert.ToInt32(v193)) │
00:01:05 verbose #2941 > │ let v195 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2942 > │ while method4(v193, v195) do │
00:01:05 verbose #2943 > │ let v197 : uint64 = v195.l0 │
00:01:05 verbose #2944 > │ let struct (v198 : UH2, v199 : US0) = v180.[int v197] │
00:01:05 verbose #2945 > │ let v200 : (string []) = method26(v198) │
00:01:05 verbose #2946 > │ v194.[int v197] <- v200 │
00:01:05 verbose #2947 > │ let v201 : uint64 = v197 + 1UL │
00:01:05 verbose #2948 > │ v195.l0 <- v201 │
00:01:05 verbose #2949 > │ () │
00:01:05 verbose #2950 > │ let v202 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:05 verbose #2951 > │ let v203 : ((string []) []) = v202 v194 │
00:01:05 verbose #2952 > │ let v204 : uint64 = System.Convert.ToUInt64 v203.Length │
00:01:05 verbose #2953 > │ let v205 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2954 > │ (System.Convert.ToInt32(v204)) │
00:01:05 verbose #2955 > │ let v206 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2956 > │ while method4(v204, v206) do │
00:01:05 verbose #2957 > │ let v208 : uint64 = v206.l0 │
00:01:05 verbose #2958 > │ let v209 : (string []) = v203.[int v208] │
00:01:05 verbose #2959 > │ let v210 : uint64 = System.Convert.ToUInt64 v209.Length │
00:01:05 verbose #2960 > │ let v211 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #2961 > │ (System.Convert.ToInt32(v210)) │
00:01:05 verbose #2962 > │ let v212 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #2963 > │ while method4(v210, v212) do │
00:01:05 verbose #2964 > │ let v214 : uint64 = v212.l0 │
00:01:05 verbose #2965 > │ let v215 : string = v209.[int v214] │
00:01:05 verbose #2966 > │ let v216 : int64 = System.Convert.ToInt64 v215.Length │
00:01:05 verbose #2967 > │ v211.[int v214] <- v216 │
00:01:05 verbose #2968 > │ let v217 : uint64 = v214 + 1UL │
00:01:05 verbose #2969 > │ v212.l0 <- v217 │
00:01:05 verbose #2970 > │ () │
00:01:05 verbose #2971 > │ let v218 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:05 verbose #2972 > │ let v219 : (int64 []) = v218 v211 │
00:01:05 verbose #2973 > │ let v220 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:05 verbose #2974 > │ let v221 : ((int64 []) -> int64 option) = v220 0 │
00:01:05 verbose #2975 > │ let v222 : int64 option = v221 v219 │
00:01:05 verbose #2976 > │ let v223 : (int64 -> US1) = method29() │
00:01:05 verbose #2977 > │ let v224 : US1 = US1_1 │
00:01:05 verbose #2978 > │ let v225 : US1 = v222 |> Option.map v223 |> Option.defaultValue v224 │
00:01:05 verbose #2979 > │ let v228 : int64 = │
00:01:05 verbose #2980 > │ match v225 with │
00:01:05 verbose #2981 > │ | US1_1 -> (* None *) │
00:01:05 verbose #2982 > │ 0L │
00:01:05 verbose #2983 > │ | US1_0(v226) -> (* Some *) │
00:01:05 verbose #2984 > │ v226 │
00:01:05 verbose #2985 > │ v205.[int v208] <- v228 │
00:01:05 verbose #2986 > │ let v229 : uint64 = v208 + 1UL │
00:01:05 verbose #2987 > │ v206.l0 <- v229 │
00:01:05 verbose #2988 > │ () │
00:01:05 verbose #2989 > │ let v230 : uint64 = System.Convert.ToUInt64 v205.Length │
00:01:05 verbose #2990 > │ let v231 : UH6 = UH6_0 │
00:01:05 verbose #2991 > │ let v232 : Mut3 = {l0 = 0UL; l1 = v231; l2 = 0} : Mut3 │
00:01:05 verbose #2992 > │ while method30(v230, v232) do │
00:01:05 verbose #2993 > │ let v234 : uint64 = v232.l0 │
00:01:05 verbose #2994 > │ let struct (v235 : UH6, v236 : int32) = v232.l1, v232.l2 │
00:01:05 verbose #2995 > │ let v237 : int64 = v205.[int v234] │
00:01:05 verbose #2996 > │ let v238 : int32 = v236 + 1 │
00:01:05 verbose #2997 > │ let v239 : uint64 = v234 + 1UL │
00:01:05 verbose #2998 > │ let v240 : UH6 = UH6_1(v236, v237, v235) │
00:01:05 verbose #2999 > │ v232.l0 <- v239 │
00:01:05 verbose #3000 > │ v232.l1 <- v240 │
00:01:05 verbose #3001 > │ v232.l2 <- v238 │
00:01:05 verbose #3002 > │ () │
00:01:05 verbose #3003 > │ let struct (v241 : UH6, v242 : int32) = v232.l1, v232.l2 │
00:01:05 verbose #3004 > │ let v243 : UH6 = UH6_0 │
00:01:05 verbose #3005 > │ let v244 : UH6 = method31(v241, v243) │
00:01:05 verbose #3006 > │ let v245 : (struct (int32 * int64) []) = method32(v244) │
00:01:05 verbose #3007 > │ let v246 : Map<int32, int64> = v245 |> Array.map (fun (struct (a, b)) -> │
00:01:05 verbose #3008 > │ a, b) |> Map.ofArray │
00:01:05 verbose #3009 > │ let v247 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:01:05 verbose #3010 > │ ((string []) * US0)> (System.Convert.ToInt32(v193)) │
00:01:05 verbose #3011 > │ let v248 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3012 > │ while method4(v193, v248) do │
00:01:05 verbose #3013 > │ let v250 : uint64 = v248.l0 │
00:01:05 verbose #3014 > │ let struct (v251 : UH2, v252 : US0) = v180.[int v250] │
00:01:05 verbose #3015 > │ let v253 : UH7 = UH7_0 │
00:01:05 verbose #3016 > │ let v254 : int32 = 0 │
00:01:05 verbose #3017 > │ let struct (v255 : UH7, v256 : int32) = method35(v251, v253, v254) │
00:01:05 verbose #3018 > │ let v257 : UH7 = UH7_0 │
00:01:05 verbose #3019 > │ let v258 : UH7 = method36(v255, v257) │
00:01:05 verbose #3020 > │ let v259 : UH2 = UH2_0 │
00:01:05 verbose #3021 > │ let v260 : UH2 = method37(v246, v258, v259) │
00:01:05 verbose #3022 > │ let v261 : (string []) = method10(v260) │
00:01:05 verbose #3023 > │ v247.[int v250] <- struct (v261, v252) │
00:01:05 verbose #3024 > │ let v262 : uint64 = v250 + 1UL │
00:01:05 verbose #3025 > │ v248.l0 <- v262 │
00:01:05 verbose #3026 > │ () │
00:01:05 verbose #3027 > │ System.Console.WriteLine v2 │
00:01:05 verbose #3028 > │ let v263 : uint64 = System.Convert.ToUInt64 v247.Length │
00:01:05 verbose #3029 > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3030 > │ while method4(v263, v264) do │
00:01:05 verbose #3031 > │ let v266 : uint64 = v264.l0 │
00:01:05 verbose #3032 > │ let struct (v267 : (string []), v268 : US0) = v247.[int v266] │
00:01:05 verbose #3033 > │ match v268 with │
00:01:05 verbose #3034 > │ | US0_1 -> (* None *) │
00:01:05 verbose #3035 > │ let v272 : unit option = None │
00:01:05 verbose #3036 > │ let v273 : bool = true in let mutable _v272 = v272 │
00:01:05 verbose #3037 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #3038 > │ () │
00:01:05 verbose #3039 > │ #endif │
00:01:05 verbose #3040 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #3041 > │ () │
00:01:05 verbose #3042 > │ #endif │
00:01:05 verbose #3043 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #3044 > │ () │
00:01:05 verbose #3045 > │ #endif │
00:01:05 verbose #3046 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #3047 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #3048 > │ System.Console.ResetColor () │
00:01:05 verbose #3049 > │ () │
00:01:05 verbose #3050 > │ #endif │
00:01:05 verbose #3051 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #3052 > │ () │
00:01:05 verbose #3053 > │ #endif │
00:01:05 verbose #3054 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #3055 > │ FABLE_COMPILER_DART │
00:01:05 verbose #3056 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #3057 > │ () │
00:01:05 verbose #3058 > │ #endif │
00:01:05 verbose #3059 > │ |> fun x -> _v272 <- Some x │
00:01:05 verbose #3060 > │ _v272.Value │
00:01:05 verbose #3061 > │ () │
00:01:05 verbose #3062 > │ | US0_0(v269) -> (* Some *) │
00:01:05 verbose #3063 > │ let v270 : unit option = None │
00:01:05 verbose #3064 > │ let v271 : bool = true in let mutable _v270 = v270 │
00:01:05 verbose #3065 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #3066 > │ () │
00:01:05 verbose #3067 > │ #endif │
00:01:05 verbose #3068 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #3069 > │ () │
00:01:05 verbose #3070 > │ #endif │
00:01:05 verbose #3071 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #3072 > │ () │
00:01:05 verbose #3073 > │ #endif │
00:01:05 verbose #3074 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #3075 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #3076 > │ System.Console.ForegroundColor <- v269 │
00:01:05 verbose #3077 > │ () │
00:01:05 verbose #3078 > │ #endif │
00:01:05 verbose #3079 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #3080 > │ () │
00:01:05 verbose #3081 > │ #endif │
00:01:05 verbose #3082 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #3083 > │ FABLE_COMPILER_DART │
00:01:05 verbose #3084 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #3085 > │ () │
00:01:05 verbose #3086 > │ #endif │
00:01:05 verbose #3087 > │ |> fun x -> _v270 <- Some x │
00:01:05 verbose #3088 > │ _v270.Value │
00:01:05 verbose #3089 > │ () │
00:01:05 verbose #3090 > │ let v274 : string = "\t| " │
00:01:05 verbose #3091 > │ let v275 : string = System.String.Join (v274, v267) │
00:01:05 verbose #3092 > │ System.Console.WriteLine v275 │
00:01:05 verbose #3093 > │ let v276 : unit option = None │
00:01:05 verbose #3094 > │ let v277 : bool = true in let mutable _v276 = v276 │
00:01:05 verbose #3095 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:05 verbose #3096 > │ () │
00:01:05 verbose #3097 > │ #endif │
00:01:05 verbose #3098 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:05 verbose #3099 > │ () │
00:01:05 verbose #3100 > │ #endif │
00:01:05 verbose #3101 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:05 verbose #3102 > │ () │
00:01:05 verbose #3103 > │ #endif │
00:01:05 verbose #3104 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:05 verbose #3105 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:05 verbose #3106 > │ System.Console.ResetColor () │
00:01:05 verbose #3107 > │ () │
00:01:05 verbose #3108 > │ #endif │
00:01:05 verbose #3109 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:05 verbose #3110 > │ () │
00:01:05 verbose #3111 > │ #endif │
00:01:05 verbose #3112 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:05 verbose #3113 > │ FABLE_COMPILER_DART │
00:01:05 verbose #3114 > │ Unchecked.defaultof<unit> │
00:01:05 verbose #3115 > │ () │
00:01:05 verbose #3116 > │ #endif │
00:01:05 verbose #3117 > │ |> fun x -> _v276 <- Some x │
00:01:05 verbose #3118 > │ _v276.Value │
00:01:05 verbose #3119 > │ let v278 : uint64 = v266 + 1UL │
00:01:05 verbose #3120 > │ v264.l0 <- v278 │
00:01:05 verbose #3121 > │ () │
00:01:05 verbose #3122 > │ let v279 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:05 verbose #3123 > │ (System.Convert.ToInt32(v103)) │
00:01:05 verbose #3124 > │ let v280 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3125 > │ while method4(v103, v280) do │
00:01:05 verbose #3126 > │ let v282 : uint64 = v280.l0 │
00:01:05 verbose #3127 > │ let struct (v283 : string, v284 : string, v285 : string, v286 : │
00:01:05 verbose #3128 > │ (int64 [])) = v24.[int v282] │
00:01:05 verbose #3129 > │ let v287 : (int64 -> float) = float │
00:01:05 verbose #3130 > │ let v288 : uint64 = System.Convert.ToUInt64 v286.Length │
00:01:05 verbose #3131 > │ let v289 : (float []) = Array.zeroCreate<float> │
00:01:05 verbose #3132 > │ (System.Convert.ToInt32(v288)) │
00:01:05 verbose #3133 > │ let v290 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3134 > │ while method4(v288, v290) do │
00:01:05 verbose #3135 > │ let v292 : uint64 = v290.l0 │
00:01:05 verbose #3136 > │ let v293 : int64 = v286.[int v292] │
00:01:05 verbose #3137 > │ let v294 : float = v287 v293 │
00:01:05 verbose #3138 > │ v289.[int v292] <- v294 │
00:01:05 verbose #3139 > │ let v295 : uint64 = v292 + 1UL │
00:01:05 verbose #3140 > │ v290.l0 <- v295 │
00:01:05 verbose #3141 > │ () │
00:01:05 verbose #3142 > │ v279.[int v282] <- v289 │
00:01:05 verbose #3143 > │ let v296 : uint64 = v282 + 1UL │
00:01:05 verbose #3144 > │ v280.l0 <- v296 │
00:01:05 verbose #3145 > │ () │
00:01:05 verbose #3146 > │ let v297 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:05 verbose #3147 > │ let v298 : ((float []) []) = v297 v279 │
00:01:05 verbose #3148 > │ let v299 : uint64 = System.Convert.ToUInt64 v298.Length │
00:01:05 verbose #3149 > │ let v300 : (float []) = Array.zeroCreate<float> │
00:01:05 verbose #3150 > │ (System.Convert.ToInt32(v299)) │
00:01:05 verbose #3151 > │ let v301 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3152 > │ while method4(v299, v301) do │
00:01:05 verbose #3153 > │ let v303 : uint64 = v301.l0 │
00:01:05 verbose #3154 > │ let v304 : (float []) = v298.[int v303] │
00:01:05 verbose #3155 > │ let v305 : ((float []) -> float) = Array.average │
00:01:05 verbose #3156 > │ let v306 : float = v305 v304 │
00:01:05 verbose #3157 > │ v300.[int v303] <- v306 │
00:01:05 verbose #3158 > │ let v307 : uint64 = v303 + 1UL │
00:01:05 verbose #3159 > │ v301.l0 <- v307 │
00:01:05 verbose #3160 > │ () │
00:01:05 verbose #3161 > │ let v308 : (float -> int64) = int64 │
00:01:05 verbose #3162 > │ let v309 : uint64 = System.Convert.ToUInt64 v300.Length │
00:01:05 verbose #3163 > │ let v310 : (int64 []) = Array.zeroCreate<int64> │
00:01:05 verbose #3164 > │ (System.Convert.ToInt32(v309)) │
00:01:05 verbose #3165 > │ let v311 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3166 > │ while method4(v309, v311) do │
00:01:05 verbose #3167 > │ let v313 : uint64 = v311.l0 │
00:01:05 verbose #3168 > │ let v314 : float = v300.[int v313] │
00:01:05 verbose #3169 > │ let v315 : int64 = v308 v314 │
00:01:05 verbose #3170 > │ v310.[int v313] <- v315 │
00:01:05 verbose #3171 > │ let v316 : uint64 = v313 + 1UL │
00:01:05 verbose #3172 > │ v311.l0 <- v316 │
00:01:05 verbose #3173 > │ () │
00:01:05 verbose #3174 > │ let v317 : uint64 = System.Convert.ToUInt64 v310.Length │
00:01:05 verbose #3175 > │ let v318 : UH6 = UH6_0 │
00:01:05 verbose #3176 > │ let v319 : Mut3 = {l0 = 0UL; l1 = v318; l2 = 0} : Mut3 │
00:01:05 verbose #3177 > │ while method30(v317, v319) do │
00:01:05 verbose #3178 > │ let v321 : uint64 = v319.l0 │
00:01:05 verbose #3179 > │ let struct (v322 : UH6, v323 : int32) = v319.l1, v319.l2 │
00:01:05 verbose #3180 > │ let v324 : int64 = v310.[int v321] │
00:01:05 verbose #3181 > │ let v325 : int32 = v323 + 1 │
00:01:05 verbose #3182 > │ let v326 : uint64 = v321 + 1UL │
00:01:05 verbose #3183 > │ let v327 : UH6 = UH6_1(v323, v324, v322) │
00:01:05 verbose #3184 > │ v319.l0 <- v326 │
00:01:05 verbose #3185 > │ v319.l1 <- v327 │
00:01:05 verbose #3186 > │ v319.l2 <- v325 │
00:01:05 verbose #3187 > │ () │
00:01:05 verbose #3188 > │ let struct (v328 : UH6, v329 : int32) = v319.l1, v319.l2 │
00:01:05 verbose #3189 > │ let v330 : UH6 = UH6_0 │
00:01:05 verbose #3190 > │ let v331 : UH6 = method31(v328, v330) │
00:01:05 verbose #3191 > │ let v332 : (struct (int32 * int64) []) = method38(v331) │
00:01:05 verbose #3192 > │ System.Console.WriteLine v2 │
00:01:05 verbose #3193 > │ let v333 : string = "Average Ranking " │
00:01:05 verbose #3194 > │ System.Console.WriteLine v333 │
00:01:05 verbose #3195 > │ let v334 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:05 verbose #3196 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:05 verbose #3197 > │ let v335 : (struct (int32 * int64) -> int64) = closure6() │
00:01:05 verbose #3198 > │ let v336 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:05 verbose #3199 > │ = v334 v335 │
00:01:05 verbose #3200 > │ let v337 : (struct (int32 * int64) []) = v336 v332 │
00:01:05 verbose #3201 > │ let v338 : uint64 = System.Convert.ToUInt64 v337.Length │
00:01:05 verbose #3202 > │ let v339 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:05 verbose #3203 > │ while method4(v338, v339) do │
00:01:05 verbose #3204 > │ let v341 : uint64 = v339.l0 │
00:01:05 verbose #3205 > │ let struct (v342 : int32, v343 : int64) = v337.[int v341] │
00:01:05 verbose #3206 > │ let v344 : string = $"Test case %d{v342 + 1}. Average Time: %A{v343} │
00:01:05 verbose #3207 > │ " │
00:01:05 verbose #3208 > │ System.Console.WriteLine v344 │
00:01:05 verbose #3209 > │ let v345 : uint64 = v341 + 1UL │
00:01:05 verbose #3210 > │ v339.l0 <- v345 │
00:01:05 verbose #3211 > │ () │
00:01:05 verbose #3212 > │ () │
00:01:05 verbose #3213 > │ method0() │
00:01:05 verbose #3214 > │ │
00:01:05 verbose #3215 > │ │
00:01:05 verbose #3216 > │ │
00:01:05 verbose #3217 > │ Test: v0 │
00:01:05 verbose #3218 > │ │
00:01:05 verbose #3219 > │ Solution: "abc" │
00:01:05 verbose #3220 > │ Test case 1. F. Time: 1113 │
00:01:05 verbose #3221 > │ Test case 2. FA. Time: 1533 │
00:01:05 verbose #3222 > │ │
00:01:05 verbose #3223 > │ Solution: "abcde" │
00:01:05 verbose #3224 > │ Test case 1. F. Time: 1717 │
00:01:05 verbose #3225 > │ Test case 2. FA. Time: 1717 │
00:01:05 verbose #3226 > │ │
00:01:05 verbose #3227 > │ Solution: "abcdefghi" │
00:01:05 verbose #3228 > │ Test case 1. F. Time: 2183 │
00:01:05 verbose #3229 > │ Test case 2. FA. Time: 2400 │
00:01:05 verbose #3230 > │ │
00:01:05 verbose #3231 > │ Solution: "abab" │
00:01:05 verbose #3232 > │ Test case 1. F. Time: 1065 │
00:01:05 verbose #3233 > │ Test case 2. FA. Time: 1327 │
00:01:05 verbose #3234 > │ │
00:01:05 verbose #3235 > │ Solution: "aa" │
00:01:05 verbose #3236 > │ Test case 1. F. Time: 809 │
00:01:05 verbose #3237 > │ Test case 2. FA. Time: 874 │
00:01:05 verbose #3238 > │ │
00:01:05 verbose #3239 > │ Solution: "z" │
00:01:05 verbose #3240 > │ Test case 1. F. Time: 261 │
00:01:05 verbose #3241 > │ Test case 2. FA. Time: 220 │
00:01:05 verbose #3242 > │ │
00:01:05 verbose #3243 > │ Input | Expected │
00:01:05 verbose #3244 > │ │
00:01:05 verbose #3245 > │ | Result │
00:01:05 verbose #3246 > │ │
00:01:05 verbose #3247 > │ | Best │
00:01:05 verbose #3248 > │ --- | --- │
00:01:05 verbose #3249 > │ │
00:01:05 verbose #3250 > │ | --- │
00:01:05 verbose #3251 > │ │
00:01:05 verbose #3252 > │ | --- │
00:01:05 verbose #3253 > │ "abc" | "bca cab abc" │
00:01:05 verbose #3254 > │ │
00:01:05 verbose #3255 > │ | "bca cab abc" │
00:01:05 verbose #3256 > │ │
00:01:05 verbose #3257 > │ | struct (1L, 1113L) │
00:01:05 verbose #3258 > │ "abcde" | "bcdea cdeab deabc eabcd abcde" │
00:01:05 verbose #3259 > │ | "bcdea cdeab deabc eabcd abcde" │
00:01:05 verbose #3260 > │ | struct (1L, 1717L) │
00:01:05 verbose #3261 > │ "abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:01:05 verbose #3262 > │ hiabcdefg iabcdefgh abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd │
00:01:05 verbose #3263 > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi" | struct (1L, 2183L) │
00:01:05 verbose #3264 > │ "abab" | "baba abab baba abab" │
00:01:05 verbose #3265 > │ | "baba abab baba abab" │
00:01:05 verbose #3266 > │ | struct (1L, 1065L) │
00:01:05 verbose #3267 > │ "aa" | "aa aa" │
00:01:05 verbose #3268 > │ │
00:01:05 verbose #3269 > │ | "aa aa" │
00:01:05 verbose #3270 > │ │
00:01:05 verbose #3271 > │ | struct (1L, 809L) │
00:01:05 verbose #3272 > │ "z" | "z" │
00:01:05 verbose #3273 > │ │
00:01:05 verbose #3274 > │ | "z" │
00:01:05 verbose #3275 > │ │
00:01:05 verbose #3276 > │ | struct (2L, 220L) │
00:01:05 verbose #3277 > │ │
00:01:05 verbose #3278 > │ Average Ranking │
00:01:05 verbose #3279 > │ Test case 1. Average Time: 1191L │
00:01:05 verbose #3280 > │ Test case 2. Average Time: 1345L │
00:01:05 verbose #3281 > │ │
00:01:05 verbose #3282 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 verbose #3283 >
00:01:05 verbose #3284 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:05 verbose #3285 > // // test
00:01:05 verbose #3286 > // // rust=
00:01:05 verbose #3287 > // // print_code=false
00:01:05 verbose #3288 >
00:01:05 verbose #3289 > // rotate_strings_tests ()
00:01:05 verbose #3290 > 00:01:05 debug #8 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/2baedc80fd0ccb38f314423ad51257774a895780bb4bcc5a04a1b9d6e1c38a8f/main.spi
00:01:05 verbose #3291 >
00:01:05 verbose #3292 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:05 verbose #3293 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:05 verbose #3294 > │ ## binary_search_tests │
00:01:05 verbose #3295 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 verbose #3296 >
00:01:05 verbose #3297 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:05 verbose #3298 > // // test
00:01:05 verbose #3299 > // // timeout=90000
00:01:05 verbose #3300 > // // print_code=true
00:01:05 verbose #3301 >
00:01:05 verbose #3302 > inl binary_search_semi_open_1 arr target left right =
00:01:05 verbose #3303 > inl rec body left right =
00:01:05 verbose #3304 > if left >= right
00:01:05 verbose #3305 > then None
00:01:05 verbose #3306 > else
00:01:05 verbose #3307 > inl mid = (left + right) / 2
00:01:05 verbose #3308 > inl item = index arr mid
00:01:05 verbose #3309 > if item = target
00:01:05 verbose #3310 > then Some mid
00:01:05 verbose #3311 > elif item < target
00:01:05 verbose #3312 > then loop (mid + 1) right
00:01:05 verbose #3313 > else loop left mid
00:01:05 verbose #3314 > and inl loop left right =
00:01:05 verbose #3315 > if var_is right |> not
00:01:05 verbose #3316 > then body left right
00:01:05 verbose #3317 > else
00:01:05 verbose #3318 > inl left = dyn left
00:01:05 verbose #3319 > join body left right
00:01:05 verbose #3320 > loop left right
00:01:05 verbose #3321 >
00:01:05 verbose #3322 > inl binary_search_closed_1 arr target left right =
00:01:05 verbose #3323 > inl rec body left right =
00:01:05 verbose #3324 > if left > right
00:01:05 verbose #3325 > then None
00:01:05 verbose #3326 > else
00:01:05 verbose #3327 > inl mid = (left + right) / 2
00:01:05 verbose #3328 > inl item = index arr mid
00:01:05 verbose #3329 > if item = target
00:01:05 verbose #3330 > then Some mid
00:01:05 verbose #3331 > elif item < target
00:01:05 verbose #3332 > then loop (mid + 1) right
00:01:05 verbose #3333 > else loop left (mid - 1)
00:01:05 verbose #3334 > and inl loop left right =
00:01:05 verbose #3335 > if var_is right |> not
00:01:05 verbose #3336 > then body left right
00:01:05 verbose #3337 > else
00:01:05 verbose #3338 > inl left = dyn left
00:01:05 verbose #3339 > join body left right
00:01:05 verbose #3340 > loop left right
00:01:05 verbose #3341 >
00:01:05 verbose #3342 > inl binary_search_semi_open_2 arr target left right =
00:01:05 verbose #3343 > let rec body left right =
00:01:05 verbose #3344 > if left >= right
00:01:05 verbose #3345 > then None
00:01:05 verbose #3346 > else
00:01:05 verbose #3347 > inl mid = (left + right) / 2
00:01:05 verbose #3348 > inl item = index arr mid
00:01:05 verbose #3349 > if item = target
00:01:05 verbose #3350 > then Some mid
00:01:05 verbose #3351 > elif item < target
00:01:05 verbose #3352 > then loop (mid + 1) right
00:01:05 verbose #3353 > else loop left mid
00:01:05 verbose #3354 > and inl loop left right = body left right
00:01:05 verbose #3355 > loop left right
00:01:05 verbose #3356 >
00:01:05 verbose #3357 > inl binary_search_closed_2 arr target left right =
00:01:05 verbose #3358 > let rec body left right =
00:01:05 verbose #3359 > if left > right
00:01:05 verbose #3360 > then None
00:01:05 verbose #3361 > else
00:01:05 verbose #3362 > inl mid = (left + right) / 2
00:01:05 verbose #3363 > inl item = index arr mid
00:01:05 verbose #3364 > if item = target
00:01:05 verbose #3365 > then Some mid
00:01:05 verbose #3366 > elif item < target
00:01:05 verbose #3367 > then loop (mid + 1) right
00:01:05 verbose #3368 > else loop left (mid - 1)
00:01:05 verbose #3369 > and inl loop left right = body left right
00:01:05 verbose #3370 > loop left right
00:01:05 verbose #3371 >
00:01:05 verbose #3372 > inl get_solutions () =
00:01:05 verbose #3373 > [[
00:01:05 verbose #3374 > "semi_open_1",
00:01:05 verbose #3375 > fun (arr, (target, len)) =>
00:01:05 verbose #3376 > binary_search_semi_open_1 arr target 0 len
00:01:05 verbose #3377 >
00:01:05 verbose #3378 > "closed_1",
00:01:05 verbose #3379 > fun (arr, (target, len)) =>
00:01:05 verbose #3380 > binary_search_closed_1 arr target 0 (len - 1)
00:01:05 verbose #3381 >
00:01:05 verbose #3382 > "semi_open_2",
00:01:05 verbose #3383 > fun (arr, (target, len)) =>
00:01:05 verbose #3384 > binary_search_semi_open_2 arr target 0 len
00:01:05 verbose #3385 >
00:01:05 verbose #3386 > "closed_2",
00:01:05 verbose #3387 > fun (arr, (target, len)) =>
00:01:05 verbose #3388 > binary_search_closed_2 arr target 0 (len - 1)
00:01:05 verbose #3389 > ]]
00:01:05 verbose #3390 >
00:01:05 verbose #3391 > inl rec binary_search_tests () =
00:01:05 verbose #3392 > inl arr_with_len target len arr =
00:01:05 verbose #3393 > arr, (target, (len |> optionm'.default_with fun () => length arr))
00:01:05 verbose #3394 >
00:01:05 verbose #3395 > inl test_cases = [[
00:01:05 verbose #3396 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 None), (Some 3i32)
00:01:05 verbose #3397 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 None), (Some 0i32)
00:01:05 verbose #3398 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 None), (Some 6i32)
00:01:05 verbose #3399 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 None), None
00:01:05 verbose #3400 > ((am'.init_series 1i32 100 1) |> arr_with_len 60 None), (Some 59)
00:01:05 verbose #3401 >
00:01:05 verbose #3402 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 (Some 7)), (Some
00:01:05 verbose #3403 > 3i32)
00:01:05 verbose #3404 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 (Some 7)), (Some
00:01:05 verbose #3405 > 0i32)
00:01:05 verbose #3406 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 (Some 7)), (Some
00:01:05 verbose #3407 > 6i32)
00:01:05 verbose #3408 > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 (Some 7)), None
00:01:05 verbose #3409 > ((am'.init_series 1i32 100 1) |> arr_with_len 60 (Some 100)), (Some 59)
00:01:05 verbose #3410 > ]]
00:01:05 verbose #3411 >
00:01:05 verbose #3412 > inl solutions = get_solutions ()
00:01:05 verbose #3413 >
00:01:05 verbose #3414 > // inl is_fast () = true
00:01:05 verbose #3415 >
00:01:05 verbose #3416 > inl count =
00:01:05 verbose #3417 > if is_fast ()
00:01:05 verbose #3418 > then 1000i32
00:01:05 verbose #3419 > else 8000000i32
00:01:05 verbose #3420 >
00:01:05 verbose #3421 > run_all (nameof binary_search_tests) count solutions test_cases
00:01:05 verbose #3422 > |> sort_result_list
00:01:05 verbose #3423 >
00:01:05 verbose #3424 >
00:01:05 verbose #3425 > let main () =
00:01:05 verbose #3426 > binary_search_tests ()
00:01:06 verbose #3427 > 00:01:05 debug #9 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/11813c38f8e45986382057254f110b885bd9e2b5a252c3ec6b9e7106723daadd/main.spi
00:01:38 verbose #3428 >
00:01:38 verbose #3429 > ╭─[ 33.04s - stdout ]──────────────────────────────────────────────────────────╮
00:01:38 verbose #3430 > │ type Mut0 = {mutable l0 : int32} │
00:01:38 verbose #3431 > │ and [<Struct>] US0 = │
00:01:38 verbose #3432 > │ | US0_0 of f0_0 : int32 │
00:01:38 verbose #3433 > │ | US0_1 │
00:01:38 verbose #3434 > │ and UH0 = │
00:01:38 verbose #3435 > │ | UH0_0 │
00:01:39 verbose #3436 > │ | UH0_1 of (int32 []) * int32 * int32 * US0 * UH0 │
00:01:39 verbose #3437 > │ and Mut1 = {mutable l0 : uint64} │
00:01:39 verbose #3438 > │ and UH1 = │
00:01:39 verbose #3439 > │ | UH1_0 │
00:01:39 verbose #3440 > │ | UH1_1 of int32 * string * (struct ((int32 []) * int32 * int32) -> US0) │
00:01:39 verbose #3441 > │ * UH1 │
00:01:39 verbose #3442 > │ and UH2 = │
00:01:39 verbose #3443 > │ | UH2_0 │
00:01:39 verbose #3444 > │ | UH2_1 of string * UH2 │
00:01:39 verbose #3445 > │ and [<Struct>] US1 = │
00:01:39 verbose #3446 > │ | US1_0 of f0_0 : System.ConsoleColor │
00:01:39 verbose #3447 > │ | US1_1 │
00:01:39 verbose #3448 > │ and UH3 = │
00:01:39 verbose #3449 > │ | UH3_0 │
00:01:39 verbose #3450 > │ | UH3_1 of int64 * int64 * UH3 │
00:01:39 verbose #3451 > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:01:39 verbose #3452 > │ and UH4 = │
00:01:39 verbose #3453 > │ | UH4_0 │
00:01:39 verbose #3454 > │ | UH4_1 of UH2 * US1 * UH4 │
00:01:39 verbose #3455 > │ and [<Struct>] US2 = │
00:01:39 verbose #3456 > │ | US2_0 of f0_0 : int64 │
00:01:39 verbose #3457 > │ | US2_1 │
00:01:39 verbose #3458 > │ and UH5 = │
00:01:39 verbose #3459 > │ | UH5_0 │
00:01:39 verbose #3460 > │ | UH5_1 of int32 * int64 * UH5 │
00:01:39 verbose #3461 > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:01:39 verbose #3462 > │ and UH6 = │
00:01:39 verbose #3463 > │ | UH6_0 │
00:01:39 verbose #3464 > │ | UH6_1 of int32 * string * UH6 │
00:01:39 verbose #3465 > │ let rec method1 (v0 : Mut0) : bool = │
00:01:39 verbose #3466 > │ let v1 : int32 = v0.l0 │
00:01:39 verbose #3467 > │ let v2 : bool = v1 < 100 │
00:01:39 verbose #3468 > │ v2 │
00:01:39 verbose #3469 > │ and method3 (v0 : UH0, v1 : uint64) : uint64 = │
00:01:39 verbose #3470 > │ match v0 with │
00:01:39 verbose #3471 > │ | UH0_1(v2, v3, v4, v5, v6) -> (* Cons *) │
00:01:39 verbose #3472 > │ let v7 : uint64 = v1 + 1UL │
00:01:39 verbose #3473 > │ method3(v6, v7) │
00:01:39 verbose #3474 > │ | UH0_0 -> (* Nil *) │
00:01:39 verbose #3475 > │ v1 │
00:01:39 verbose #3476 > │ and method4 (v0 : (struct ((int32 []) * int32 * int32 * US0) []), v1 : UH0, │
00:01:39 verbose #3477 > │ v2 : uint64) : uint64 = │
00:01:39 verbose #3478 > │ match v1 with │
00:01:39 verbose #3479 > │ | UH0_1(v3, v4, v5, v6, v7) -> (* Cons *) │
00:01:39 verbose #3480 > │ v0.[int v2] <- struct (v3, v4, v5, v6) │
00:01:39 verbose #3481 > │ let v8 : uint64 = v2 + 1UL │
00:01:39 verbose #3482 > │ method4(v0, v7, v8) │
00:01:39 verbose #3483 > │ | UH0_0 -> (* Nil *) │
00:01:39 verbose #3484 > │ v2 │
00:01:39 verbose #3485 > │ and method2 (v0 : UH0) : (struct ((int32 []) * int32 * int32 * US0) []) = │
00:01:39 verbose #3486 > │ let v1 : uint64 = 0UL │
00:01:39 verbose #3487 > │ let v2 : uint64 = method3(v0, v1) │
00:01:39 verbose #3488 > │ let v3 : (struct ((int32 []) * int32 * int32 * US0) []) = │
00:01:39 verbose #3489 > │ Array.zeroCreate<struct ((int32 []) * int32 * int32 * US0)> │
00:01:39 verbose #3490 > │ (System.Convert.ToInt32(v2)) │
00:01:39 verbose #3491 > │ let v4 : uint64 = 0UL │
00:01:39 verbose #3492 > │ let v5 : uint64 = method4(v3, v0, v4) │
00:01:39 verbose #3493 > │ v3 │
00:01:39 verbose #3494 > │ and method5 (v0 : uint64, v1 : Mut1) : bool = │
00:01:39 verbose #3495 > │ let v2 : uint64 = v1.l0 │
00:01:39 verbose #3496 > │ let v3 : bool = v2 < v0 │
00:01:39 verbose #3497 > │ v3 │
00:01:39 verbose #3498 > │ and method6 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:39 verbose #3499 > │ let v4 : bool = v3 >= v2 │
00:01:39 verbose #3500 > │ if v4 then │
00:01:39 verbose #3501 > │ US0_1 │
00:01:39 verbose #3502 > │ else │
00:01:39 verbose #3503 > │ let v6 : int32 = v3 + v2 │
00:01:39 verbose #3504 > │ let v7 : int32 = v6 / 2 │
00:01:39 verbose #3505 > │ let v8 : int32 = v0.[int v7] │
00:01:39 verbose #3506 > │ let v9 : bool = v8 = v1 │
00:01:39 verbose #3507 > │ if v9 then │
00:01:39 verbose #3508 > │ US0_0(v7) │
00:01:39 verbose #3509 > │ else │
00:01:39 verbose #3510 > │ let v11 : bool = v8 < v1 │
00:01:39 verbose #3511 > │ if v11 then │
00:01:39 verbose #3512 > │ let v12 : int32 = v7 + 1 │
00:01:39 verbose #3513 > │ method6(v0, v1, v2, v12) │
00:01:39 verbose #3514 > │ else │
00:01:39 verbose #3515 > │ method6(v0, v1, v7, v3) │
00:01:39 verbose #3516 > │ and closure1 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:39 verbose #3517 > │ let v3 : int32 = 0 │
00:01:39 verbose #3518 > │ method6(v0, v1, v2, v3) │
00:01:39 verbose #3519 > │ and method7 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:39 verbose #3520 > │ let v4 : bool = v3 > v2 │
00:01:39 verbose #3521 > │ if v4 then │
00:01:39 verbose #3522 > │ US0_1 │
00:01:39 verbose #3523 > │ else │
00:01:39 verbose #3524 > │ let v6 : int32 = v3 + v2 │
00:01:39 verbose #3525 > │ let v7 : int32 = v6 / 2 │
00:01:39 verbose #3526 > │ let v8 : int32 = v0.[int v7] │
00:01:39 verbose #3527 > │ let v9 : bool = v8 = v1 │
00:01:39 verbose #3528 > │ if v9 then │
00:01:39 verbose #3529 > │ US0_0(v7) │
00:01:39 verbose #3530 > │ else │
00:01:39 verbose #3531 > │ let v11 : bool = v8 < v1 │
00:01:39 verbose #3532 > │ if v11 then │
00:01:39 verbose #3533 > │ let v12 : int32 = v7 + 1 │
00:01:39 verbose #3534 > │ method7(v0, v1, v2, v12) │
00:01:39 verbose #3535 > │ else │
00:01:39 verbose #3536 > │ let v14 : int32 = v7 - 1 │
00:01:39 verbose #3537 > │ method7(v0, v1, v14, v3) │
00:01:39 verbose #3538 > │ and closure2 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:39 verbose #3539 > │ let v3 : int32 = v2 - 1 │
00:01:39 verbose #3540 > │ let v4 : int32 = 0 │
00:01:39 verbose #3541 > │ method7(v0, v1, v3, v4) │
00:01:39 verbose #3542 > │ and method8 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:39 verbose #3543 > │ let v4 : bool = v2 >= v3 │
00:01:39 verbose #3544 > │ if v4 then │
00:01:39 verbose #3545 > │ US0_1 │
00:01:39 verbose #3546 > │ else │
00:01:39 verbose #3547 > │ let v6 : int32 = v2 + v3 │
00:01:39 verbose #3548 > │ let v7 : int32 = v6 / 2 │
00:01:39 verbose #3549 > │ let v8 : int32 = v0.[int v7] │
00:01:39 verbose #3550 > │ let v9 : bool = v8 = v1 │
00:01:39 verbose #3551 > │ if v9 then │
00:01:39 verbose #3552 > │ US0_0(v7) │
00:01:39 verbose #3553 > │ else │
00:01:39 verbose #3554 > │ let v11 : bool = v8 < v1 │
00:01:39 verbose #3555 > │ if v11 then │
00:01:39 verbose #3556 > │ let v12 : int32 = v7 + 1 │
00:01:39 verbose #3557 > │ method8(v0, v1, v12, v3) │
00:01:39 verbose #3558 > │ else │
00:01:39 verbose #3559 > │ method8(v0, v1, v2, v7) │
00:01:39 verbose #3560 > │ and closure3 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:39 verbose #3561 > │ let v3 : int32 = 0 │
00:01:39 verbose #3562 > │ method8(v0, v1, v3, v2) │
00:01:39 verbose #3563 > │ and method9 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:39 verbose #3564 > │ let v4 : bool = v2 > v3 │
00:01:39 verbose #3565 > │ if v4 then │
00:01:39 verbose #3566 > │ US0_1 │
00:01:39 verbose #3567 > │ else │
00:01:39 verbose #3568 > │ let v6 : int32 = v2 + v3 │
00:01:39 verbose #3569 > │ let v7 : int32 = v6 / 2 │
00:01:39 verbose #3570 > │ let v8 : int32 = v0.[int v7] │
00:01:39 verbose #3571 > │ let v9 : bool = v8 = v1 │
00:01:39 verbose #3572 > │ if v9 then │
00:01:39 verbose #3573 > │ US0_0(v7) │
00:01:39 verbose #3574 > │ else │
00:01:39 verbose #3575 > │ let v11 : bool = v8 < v1 │
00:01:39 verbose #3576 > │ if v11 then │
00:01:39 verbose #3577 > │ let v12 : int32 = v7 + 1 │
00:01:39 verbose #3578 > │ method9(v0, v1, v12, v3) │
00:01:39 verbose #3579 > │ else │
00:01:39 verbose #3580 > │ let v14 : int32 = v7 - 1 │
00:01:39 verbose #3581 > │ method9(v0, v1, v2, v14) │
00:01:39 verbose #3582 > │ and closure4 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:39 verbose #3583 > │ let v3 : int32 = v2 - 1 │
00:01:39 verbose #3584 > │ let v4 : int32 = 0 │
00:01:39 verbose #3585 > │ method9(v0, v1, v4, v3) │
00:01:39 verbose #3586 > │ and method11 (v0 : UH1, v1 : uint64) : uint64 = │
00:01:39 verbose #3587 > │ match v0 with │
00:01:39 verbose #3588 > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:01:39 verbose #3589 > │ let v6 : uint64 = v1 + 1UL │
00:01:39 verbose #3590 > │ method11(v5, v6) │
00:01:39 verbose #3591 > │ | UH1_0 -> (* Nil *) │
00:01:39 verbose #3592 > │ v1 │
00:01:39 verbose #3593 > │ and method12 (v0 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:39 verbose #3594 > │ int32) -> US0)) []), v1 : UH1, v2 : uint64) : uint64 = │
00:01:39 verbose #3595 > │ match v1 with │
00:01:39 verbose #3596 > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:01:39 verbose #3597 > │ v0.[int v2] <- struct (v3, v4, v5) │
00:01:39 verbose #3598 > │ let v7 : uint64 = v2 + 1UL │
00:01:39 verbose #3599 > │ method12(v0, v6, v7) │
00:01:39 verbose #3600 > │ | UH1_0 -> (* Nil *) │
00:01:39 verbose #3601 > │ v2 │
00:01:39 verbose #3602 > │ and method10 (v0 : UH1) : (struct (int32 * string * (struct ((int32 []) * │
00:01:39 verbose #3603 > │ int32 * int32) -> US0)) []) = │
00:01:39 verbose #3604 > │ let v1 : uint64 = 0UL │
00:01:39 verbose #3605 > │ let v2 : uint64 = method11(v0, v1) │
00:01:39 verbose #3606 > │ let v3 : (struct (int32 * string * (struct ((int32 []) * int32 * int32) │
00:01:39 verbose #3607 > │ -> US0)) []) = Array.zeroCreate<struct (int32 * string * (struct ((int32 []) │
00:01:39 verbose #3608 > │ * int32 * int32) -> US0))> (System.Convert.ToInt32(v2)) │
00:01:39 verbose #3609 > │ let v4 : uint64 = 0UL │
00:01:39 verbose #3610 > │ let v5 : uint64 = method12(v3, v0, v4) │
00:01:39 verbose #3611 > │ v3 │
00:01:39 verbose #3612 > │ and method13 (v0 : Mut0) : bool = │
00:01:39 verbose #3613 > │ let v1 : int32 = v0.l0 │
00:01:39 verbose #3614 > │ let v2 : bool = v1 < 8000001 │
00:01:39 verbose #3615 > │ v2 │
00:01:39 verbose #3616 > │ and closure5 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : (struct ((int32 │
00:01:39 verbose #3617 > │ []) * int32 * int32) -> US0)) (v4 : int32) : US0 = │
00:01:39 verbose #3618 > │ v3 struct (v0, v1, v2) │
00:01:39 verbose #3619 > │ and method14 (v0 : US0, v1 : (US0 []), v2 : uint64) : bool = │
00:01:39 verbose #3620 > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:01:39 verbose #3621 > │ let v4 : bool = v2 < v3 │
00:01:39 verbose #3622 > │ if v4 then │
00:01:39 verbose #3623 > │ let v5 : US0 = v1.[int v2] │
00:01:39 verbose #3624 > │ let v9 : bool = │
00:01:39 verbose #3625 > │ match v0, v5 with │
00:01:39 verbose #3626 > │ | US0_1, US0_1 -> (* None *) │
00:01:39 verbose #3627 > │ true │
00:01:39 verbose #3628 > │ | US0_0(v6), US0_0(v7) -> (* Some *) │
00:01:39 verbose #3629 > │ let v8 : bool = v6 = v7 │
00:01:39 verbose #3630 > │ v8 │
00:01:39 verbose #3631 > │ | _ -> │
00:01:39 verbose #3632 > │ false │
00:01:39 verbose #3633 > │ if v9 then │
00:01:39 verbose #3634 > │ let v10 : uint64 = v2 + 1UL │
00:01:39 verbose #3635 > │ method14(v0, v1, v10) │
00:01:39 verbose #3636 > │ else │
00:01:39 verbose #3637 > │ false │
00:01:39 verbose #3638 > │ else │
00:01:39 verbose #3639 > │ true │
00:01:39 verbose #3640 > │ and method15 (v0 : uint64, v1 : Mut2) : bool = │
00:01:39 verbose #3641 > │ let v2 : uint64 = v1.l0 │
00:01:39 verbose #3642 > │ let v3 : bool = v2 < v0 │
00:01:39 verbose #3643 > │ v3 │
00:01:39 verbose #3644 > │ and method16 (v0 : UH3, v1 : UH3) : UH3 = │
00:01:39 verbose #3645 > │ match v0 with │
00:01:39 verbose #3646 > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3647 > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:01:39 verbose #3648 > │ method16(v4, v5) │
00:01:39 verbose #3649 > │ | UH3_0 -> (* Nil *) │
00:01:39 verbose #3650 > │ v1 │
00:01:39 verbose #3651 > │ and method18 (v0 : UH3, v1 : int32) : int32 = │
00:01:39 verbose #3652 > │ match v0 with │
00:01:39 verbose #3653 > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3654 > │ let v5 : int32 = v1 + 1 │
00:01:39 verbose #3655 > │ method18(v4, v5) │
00:01:39 verbose #3656 > │ | UH3_0 -> (* Nil *) │
00:01:39 verbose #3657 > │ v1 │
00:01:39 verbose #3658 > │ and method19 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:01:39 verbose #3659 > │ int32 = │
00:01:39 verbose #3660 > │ match v1 with │
00:01:39 verbose #3661 > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:01:39 verbose #3662 > │ v0.[int v2] <- struct (v3, v4) │
00:01:39 verbose #3663 > │ let v6 : int32 = v2 + 1 │
00:01:39 verbose #3664 > │ method19(v0, v5, v6) │
00:01:39 verbose #3665 > │ | UH3_0 -> (* Nil *) │
00:01:39 verbose #3666 > │ v2 │
00:01:39 verbose #3667 > │ and method17 (v0 : UH3) : (struct (int64 * int64) []) = │
00:01:39 verbose #3668 > │ let v1 : int32 = 0 │
00:01:39 verbose #3669 > │ let v2 : int32 = method18(v0, v1) │
00:01:39 verbose #3670 > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:01:39 verbose #3671 > │ int64)> (v2) │
00:01:39 verbose #3672 > │ let v4 : int32 = 0 │
00:01:39 verbose #3673 > │ let v5 : int32 = method19(v3, v0, v4) │
00:01:39 verbose #3674 > │ v3 │
00:01:39 verbose #3675 > │ and method20 (v0 : int32, v1 : Mut0) : bool = │
00:01:39 verbose #3676 > │ let v2 : int32 = v1.l0 │
00:01:39 verbose #3677 > │ let v3 : bool = v2 < v0 │
00:01:39 verbose #3678 > │ v3 │
00:01:39 verbose #3679 > │ and closure6 () struct (v0 : int64, v1 : int64) : int64 = │
00:01:39 verbose #3680 > │ v1 │
00:01:39 verbose #3681 > │ and method22 (v0 : UH4, v1 : uint64) : uint64 = │
00:01:39 verbose #3682 > │ match v0 with │
00:01:39 verbose #3683 > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3684 > │ let v5 : uint64 = v1 + 1UL │
00:01:39 verbose #3685 > │ method22(v4, v5) │
00:01:39 verbose #3686 > │ | UH4_0 -> (* Nil *) │
00:01:39 verbose #3687 > │ v1 │
00:01:39 verbose #3688 > │ and method23 (v0 : (struct (UH2 * US1) []), v1 : UH4, v2 : uint64) : uint64 │
00:01:39 verbose #3689 > │ = │
00:01:39 verbose #3690 > │ match v1 with │
00:01:39 verbose #3691 > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:01:39 verbose #3692 > │ v0.[int v2] <- struct (v3, v4) │
00:01:39 verbose #3693 > │ let v6 : uint64 = v2 + 1UL │
00:01:39 verbose #3694 > │ method23(v0, v5, v6) │
00:01:39 verbose #3695 > │ | UH4_0 -> (* Nil *) │
00:01:39 verbose #3696 > │ v2 │
00:01:39 verbose #3697 > │ and method21 (v0 : UH4) : (struct (UH2 * US1) []) = │
00:01:39 verbose #3698 > │ let v1 : uint64 = 0UL │
00:01:39 verbose #3699 > │ let v2 : uint64 = method22(v0, v1) │
00:01:39 verbose #3700 > │ let v3 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * US1)> │
00:01:39 verbose #3701 > │ (System.Convert.ToInt32(v2)) │
00:01:39 verbose #3702 > │ let v4 : uint64 = 0UL │
00:01:39 verbose #3703 > │ let v5 : uint64 = method23(v3, v0, v4) │
00:01:39 verbose #3704 > │ v3 │
00:01:39 verbose #3705 > │ and method25 (v0 : UH2, v1 : uint64) : uint64 = │
00:01:39 verbose #3706 > │ match v0 with │
00:01:39 verbose #3707 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:39 verbose #3708 > │ let v4 : uint64 = v1 + 1UL │
00:01:39 verbose #3709 > │ method25(v3, v4) │
00:01:39 verbose #3710 > │ | UH2_0 -> (* Nil *) │
00:01:39 verbose #3711 > │ v1 │
00:01:39 verbose #3712 > │ and method26 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:01:39 verbose #3713 > │ match v1 with │
00:01:39 verbose #3714 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:39 verbose #3715 > │ v0.[int v2] <- v3 │
00:01:39 verbose #3716 > │ let v5 : uint64 = v2 + 1UL │
00:01:39 verbose #3717 > │ method26(v0, v4, v5) │
00:01:39 verbose #3718 > │ | UH2_0 -> (* Nil *) │
00:01:39 verbose #3719 > │ v2 │
00:01:39 verbose #3720 > │ and method24 (v0 : UH2) : (string []) = │
00:01:39 verbose #3721 > │ let v1 : uint64 = 0UL │
00:01:39 verbose #3722 > │ let v2 : uint64 = method25(v0, v1) │
00:01:39 verbose #3723 > │ let v3 : (string []) = Array.zeroCreate<string> │
00:01:39 verbose #3724 > │ (System.Convert.ToInt32(v2)) │
00:01:39 verbose #3725 > │ let v4 : uint64 = 0UL │
00:01:39 verbose #3726 > │ let v5 : uint64 = method26(v3, v0, v4) │
00:01:39 verbose #3727 > │ v3 │
00:01:39 verbose #3728 > │ and closure7 () (v0 : int64) : US2 = │
00:01:39 verbose #3729 > │ US2_0(v0) │
00:01:39 verbose #3730 > │ and method27 () : (int64 -> US2) = │
00:01:39 verbose #3731 > │ closure7() │
00:01:39 verbose #3732 > │ and method28 (v0 : uint64, v1 : Mut3) : bool = │
00:01:39 verbose #3733 > │ let v2 : uint64 = v1.l0 │
00:01:39 verbose #3734 > │ let v3 : bool = v2 < v0 │
00:01:39 verbose #3735 > │ v3 │
00:01:39 verbose #3736 > │ and method29 (v0 : UH5, v1 : UH5) : UH5 = │
00:01:39 verbose #3737 > │ match v0 with │
00:01:39 verbose #3738 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3739 > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:01:39 verbose #3740 > │ method29(v4, v5) │
00:01:39 verbose #3741 > │ | UH5_0 -> (* Nil *) │
00:01:39 verbose #3742 > │ v1 │
00:01:39 verbose #3743 > │ and method31 (v0 : UH5, v1 : int32) : int32 = │
00:01:39 verbose #3744 > │ match v0 with │
00:01:39 verbose #3745 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3746 > │ let v5 : int32 = v1 + 1 │
00:01:39 verbose #3747 > │ method31(v4, v5) │
00:01:39 verbose #3748 > │ | UH5_0 -> (* Nil *) │
00:01:39 verbose #3749 > │ v1 │
00:01:39 verbose #3750 > │ and method32 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:01:39 verbose #3751 > │ int32 = │
00:01:39 verbose #3752 > │ match v1 with │
00:01:39 verbose #3753 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:39 verbose #3754 > │ v0.[int v2] <- struct (v3, v4) │
00:01:39 verbose #3755 > │ let v6 : int32 = v2 + 1 │
00:01:39 verbose #3756 > │ method32(v0, v5, v6) │
00:01:39 verbose #3757 > │ | UH5_0 -> (* Nil *) │
00:01:39 verbose #3758 > │ v2 │
00:01:39 verbose #3759 > │ and method30 (v0 : UH5) : (struct (int32 * int64) []) = │
00:01:39 verbose #3760 > │ let v1 : int32 = 0 │
00:01:39 verbose #3761 > │ let v2 : int32 = method31(v0, v1) │
00:01:39 verbose #3762 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:39 verbose #3763 > │ int64)> (v2) │
00:01:39 verbose #3764 > │ let v4 : int32 = 0 │
00:01:39 verbose #3765 > │ let v5 : int32 = method32(v3, v0, v4) │
00:01:39 verbose #3766 > │ v3 │
00:01:39 verbose #3767 > │ and method33 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:01:39 verbose #3768 > │ match v0 with │
00:01:39 verbose #3769 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:39 verbose #3770 > │ let v5 : int32 = v2 + 1 │
00:01:39 verbose #3771 > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:01:39 verbose #3772 > │ method33(v4, v6, v5) │
00:01:39 verbose #3773 > │ | UH2_0 -> (* Nil *) │
00:01:39 verbose #3774 > │ struct (v1, v2) │
00:01:39 verbose #3775 > │ and method34 (v0 : UH6, v1 : UH6) : UH6 = │
00:01:39 verbose #3776 > │ match v0 with │
00:01:39 verbose #3777 > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3778 > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:01:39 verbose #3779 > │ method34(v4, v5) │
00:01:39 verbose #3780 > │ | UH6_0 -> (* Nil *) │
00:01:39 verbose #3781 > │ v1 │
00:01:39 verbose #3782 > │ and method35 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:01:39 verbose #3783 > │ match v1 with │
00:01:39 verbose #3784 > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:39 verbose #3785 > │ let v6 : UH2 = method35(v0, v5, v2) │
00:01:39 verbose #3786 > │ let v7 : int64 = v0.[v3] │
00:01:39 verbose #3787 > │ let v8 : int32 = int32 v7 │
00:01:39 verbose #3788 > │ let v9 : string = v4.PadRight v8 │
00:01:39 verbose #3789 > │ UH2_1(v9, v6) │
00:01:39 verbose #3790 > │ | UH6_0 -> (* Nil *) │
00:01:39 verbose #3791 > │ v2 │
00:01:39 verbose #3792 > │ and method37 (v0 : UH2, v1 : int32) : int32 = │
00:01:39 verbose #3793 > │ match v0 with │
00:01:39 verbose #3794 > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:39 verbose #3795 > │ let v4 : int32 = v1 + 1 │
00:01:39 verbose #3796 > │ method37(v3, v4) │
00:01:39 verbose #3797 > │ | UH2_0 -> (* Nil *) │
00:01:39 verbose #3798 > │ v1 │
00:01:39 verbose #3799 > │ and method38 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:01:39 verbose #3800 > │ match v1 with │
00:01:39 verbose #3801 > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:39 verbose #3802 > │ v0.[int v2] <- v3 │
00:01:39 verbose #3803 > │ let v5 : int32 = v2 + 1 │
00:01:39 verbose #3804 > │ method38(v0, v4, v5) │
00:01:39 verbose #3805 > │ | UH2_0 -> (* Nil *) │
00:01:39 verbose #3806 > │ v2 │
00:01:39 verbose #3807 > │ and method36 (v0 : UH2) : (string []) = │
00:01:39 verbose #3808 > │ let v1 : int32 = 0 │
00:01:39 verbose #3809 > │ let v2 : int32 = method37(v0, v1) │
00:01:39 verbose #3810 > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:01:39 verbose #3811 > │ let v4 : int32 = 0 │
00:01:39 verbose #3812 > │ let v5 : int32 = method38(v3, v0, v4) │
00:01:39 verbose #3813 > │ v3 │
00:01:39 verbose #3814 > │ and method40 (v0 : UH5, v1 : uint64) : uint64 = │
00:01:39 verbose #3815 > │ match v0 with │
00:01:39 verbose #3816 > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:39 verbose #3817 > │ let v5 : uint64 = v1 + 1UL │
00:01:39 verbose #3818 > │ method40(v4, v5) │
00:01:39 verbose #3819 > │ | UH5_0 -> (* Nil *) │
00:01:39 verbose #3820 > │ v1 │
00:01:39 verbose #3821 > │ and method41 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:01:39 verbose #3822 > │ uint64 = │
00:01:39 verbose #3823 > │ match v1 with │
00:01:39 verbose #3824 > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:39 verbose #3825 > │ v0.[int v2] <- struct (v3, v4) │
00:01:39 verbose #3826 > │ let v6 : uint64 = v2 + 1UL │
00:01:39 verbose #3827 > │ method41(v0, v5, v6) │
00:01:39 verbose #3828 > │ | UH5_0 -> (* Nil *) │
00:01:39 verbose #3829 > │ v2 │
00:01:39 verbose #3830 > │ and method39 (v0 : UH5) : (struct (int32 * int64) []) = │
00:01:39 verbose #3831 > │ let v1 : uint64 = 0UL │
00:01:39 verbose #3832 > │ let v2 : uint64 = method40(v0, v1) │
00:01:39 verbose #3833 > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:39 verbose #3834 > │ int64)> (System.Convert.ToInt32(v2)) │
00:01:39 verbose #3835 > │ let v4 : uint64 = 0UL │
00:01:39 verbose #3836 > │ let v5 : uint64 = method41(v3, v0, v4) │
00:01:39 verbose #3837 > │ v3 │
00:01:39 verbose #3838 > │ and closure8 () struct (v0 : int32, v1 : int64) : int64 = │
00:01:39 verbose #3839 > │ v1 │
00:01:39 verbose #3840 > │ and closure0 () () : unit = │
00:01:39 verbose #3841 > │ let v0 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3842 > │ let v1 : int32 = v0.Length │
00:01:39 verbose #3843 > │ let v2 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3844 > │ let v3 : int32 = v2.Length │
00:01:39 verbose #3845 > │ let v4 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3846 > │ let v5 : int32 = v4.Length │
00:01:39 verbose #3847 > │ let v6 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3848 > │ let v7 : int32 = v6.Length │
00:01:39 verbose #3849 > │ let v8 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:39 verbose #3850 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #3851 > │ while method1(v9) do │
00:01:39 verbose #3852 > │ let v11 : int32 = v9.l0 │
00:01:39 verbose #3853 > │ let v12 : int32 = 1 + v11 │
00:01:39 verbose #3854 > │ v8.[int v11] <- v12 │
00:01:39 verbose #3855 > │ let v13 : int32 = v11 + 1 │
00:01:39 verbose #3856 > │ v9.l0 <- v13 │
00:01:39 verbose #3857 > │ () │
00:01:39 verbose #3858 > │ let v14 : int32 = v8.Length │
00:01:39 verbose #3859 > │ let v15 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3860 > │ let v16 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3861 > │ let v17 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3862 > │ let v18 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #3863 > │ let v19 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:39 verbose #3864 > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #3865 > │ while method1(v20) do │
00:01:39 verbose #3866 > │ let v22 : int32 = v20.l0 │
00:01:39 verbose #3867 > │ let v23 : int32 = 1 + v22 │
00:01:39 verbose #3868 > │ v19.[int v22] <- v23 │
00:01:39 verbose #3869 > │ let v24 : int32 = v22 + 1 │
00:01:39 verbose #3870 > │ v20.l0 <- v24 │
00:01:39 verbose #3871 > │ () │
00:01:39 verbose #3872 > │ let v25 : (unit -> unit) = closure0() │
00:01:39 verbose #3873 > │ let v26 : string = nameof v25 │
00:01:39 verbose #3874 > │ let v27 : string = "" │
00:01:39 verbose #3875 > │ System.Console.WriteLine v27 │
00:01:39 verbose #3876 > │ System.Console.WriteLine v27 │
00:01:39 verbose #3877 > │ let v28 : string = $"Test: {v26}" │
00:01:39 verbose #3878 > │ System.Console.WriteLine v28 │
00:01:39 verbose #3879 > │ let v29 : int32 = 6 │
00:01:39 verbose #3880 > │ let v30 : int32 = 3 │
00:01:39 verbose #3881 > │ let v31 : US0 = US0_0(v30) │
00:01:39 verbose #3882 > │ let v32 : int32 = 1 │
00:01:39 verbose #3883 > │ let v33 : int32 = 0 │
00:01:39 verbose #3884 > │ let v34 : US0 = US0_0(v33) │
00:01:39 verbose #3885 > │ let v35 : int32 = 11 │
00:01:39 verbose #3886 > │ let v36 : int32 = 6 │
00:01:39 verbose #3887 > │ let v37 : US0 = US0_0(v36) │
00:01:39 verbose #3888 > │ let v38 : int32 = 12 │
00:01:39 verbose #3889 > │ let v39 : US0 = US0_1 │
00:01:39 verbose #3890 > │ let v40 : int32 = 60 │
00:01:39 verbose #3891 > │ let v41 : int32 = 59 │
00:01:39 verbose #3892 > │ let v42 : US0 = US0_0(v41) │
00:01:39 verbose #3893 > │ let v43 : int32 = 6 │
00:01:39 verbose #3894 > │ let v44 : int32 = 7 │
00:01:39 verbose #3895 > │ let v45 : int32 = 3 │
00:01:39 verbose #3896 > │ let v46 : US0 = US0_0(v45) │
00:01:39 verbose #3897 > │ let v47 : int32 = 1 │
00:01:39 verbose #3898 > │ let v48 : int32 = 7 │
00:01:39 verbose #3899 > │ let v49 : int32 = 0 │
00:01:39 verbose #3900 > │ let v50 : US0 = US0_0(v49) │
00:01:39 verbose #3901 > │ let v51 : int32 = 11 │
00:01:39 verbose #3902 > │ let v52 : int32 = 7 │
00:01:39 verbose #3903 > │ let v53 : int32 = 6 │
00:01:39 verbose #3904 > │ let v54 : US0 = US0_0(v53) │
00:01:39 verbose #3905 > │ let v55 : int32 = 12 │
00:01:39 verbose #3906 > │ let v56 : int32 = 7 │
00:01:39 verbose #3907 > │ let v57 : US0 = US0_1 │
00:01:39 verbose #3908 > │ let v58 : int32 = 60 │
00:01:39 verbose #3909 > │ let v59 : int32 = 100 │
00:01:39 verbose #3910 > │ let v60 : int32 = 59 │
00:01:39 verbose #3911 > │ let v61 : US0 = US0_0(v60) │
00:01:39 verbose #3912 > │ let v62 : UH0 = UH0_0 │
00:01:39 verbose #3913 > │ let v63 : UH0 = UH0_1(v19, v58, v59, v61, v62) │
00:01:39 verbose #3914 > │ let v64 : UH0 = UH0_1(v18, v55, v56, v57, v63) │
00:01:39 verbose #3915 > │ let v65 : UH0 = UH0_1(v17, v51, v52, v54, v64) │
00:01:39 verbose #3916 > │ let v66 : UH0 = UH0_1(v16, v47, v48, v50, v65) │
00:01:39 verbose #3917 > │ let v67 : UH0 = UH0_1(v15, v43, v44, v46, v66) │
00:01:39 verbose #3918 > │ let v68 : UH0 = UH0_1(v8, v40, v14, v42, v67) │
00:01:39 verbose #3919 > │ let v69 : UH0 = UH0_1(v6, v38, v7, v39, v68) │
00:01:39 verbose #3920 > │ let v70 : UH0 = UH0_1(v4, v35, v5, v37, v69) │
00:01:39 verbose #3921 > │ let v71 : UH0 = UH0_1(v2, v32, v3, v34, v70) │
00:01:39 verbose #3922 > │ let v72 : UH0 = UH0_1(v0, v29, v1, v31, v71) │
00:01:39 verbose #3923 > │ let v73 : (struct ((int32 []) * int32 * int32 * US0) []) = method2(v72) │
00:01:39 verbose #3924 > │ let v74 : uint64 = System.Convert.ToUInt64 v73.Length │
00:01:39 verbose #3925 > │ let v75 : (struct (string * string * string * (int64 [])) []) = │
00:01:39 verbose #3926 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:39 verbose #3927 > │ (System.Convert.ToInt32(v74)) │
00:01:39 verbose #3928 > │ let v76 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #3929 > │ while method5(v74, v76) do │
00:01:39 verbose #3930 > │ let v78 : uint64 = v76.l0 │
00:01:39 verbose #3931 > │ let struct (v79 : (int32 []), v80 : int32, v81 : int32, v82 : US0) = │
00:01:39 verbose #3932 > │ v73.[int v78] │
00:01:39 verbose #3933 > │ let v83 : string = $"%A{struct (v79, v80, v81)}" │
00:01:39 verbose #3934 > │ System.Console.WriteLine v27 │
00:01:39 verbose #3935 > │ let v84 : string = $"Solution: {v83} " │
00:01:39 verbose #3936 > │ System.Console.WriteLine v84 │
00:01:39 verbose #3937 > │ let v85 : int32 = 0 │
00:01:39 verbose #3938 > │ let v86 : string = "semi_open_1" │
00:01:39 verbose #3939 > │ let v87 : (struct ((int32 []) * int32 * int32) -> US0) = closure1() │
00:01:39 verbose #3940 > │ let v88 : int32 = 1 │
00:01:39 verbose #3941 > │ let v89 : string = "closed_1" │
00:01:39 verbose #3942 > │ let v90 : (struct ((int32 []) * int32 * int32) -> US0) = closure2() │
00:01:39 verbose #3943 > │ let v91 : int32 = 2 │
00:01:39 verbose #3944 > │ let v92 : string = "semi_open_2" │
00:01:39 verbose #3945 > │ let v93 : (struct ((int32 []) * int32 * int32) -> US0) = closure3() │
00:01:39 verbose #3946 > │ let v94 : int32 = 3 │
00:01:39 verbose #3947 > │ let v95 : string = "closed_2" │
00:01:39 verbose #3948 > │ let v96 : (struct ((int32 []) * int32 * int32) -> US0) = closure4() │
00:01:39 verbose #3949 > │ let v97 : UH1 = UH1_0 │
00:01:39 verbose #3950 > │ let v98 : UH1 = UH1_1(v94, v95, v96, v97) │
00:01:39 verbose #3951 > │ let v99 : UH1 = UH1_1(v91, v92, v93, v98) │
00:01:39 verbose #3952 > │ let v100 : UH1 = UH1_1(v88, v89, v90, v99) │
00:01:39 verbose #3953 > │ let v101 : UH1 = UH1_1(v85, v86, v87, v100) │
00:01:39 verbose #3954 > │ let v102 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:39 verbose #3955 > │ int32) -> US0)) []) = method10(v101) │
00:01:39 verbose #3956 > │ let v103 : uint64 = System.Convert.ToUInt64 v102.Length │
00:01:39 verbose #3957 > │ let v104 : (struct (US0 * int64) []) = Array.zeroCreate<struct (US0 │
00:01:39 verbose #3958 > │ * int64)> (System.Convert.ToInt32(v103)) │
00:01:39 verbose #3959 > │ let v105 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #3960 > │ while method5(v103, v105) do │
00:01:39 verbose #3961 > │ let v107 : uint64 = v105.l0 │
00:01:39 verbose #3962 > │ let struct (v108 : int32, v109 : string, v110 : (struct ((int32 │
00:01:39 verbose #3963 > │ []) * int32 * int32) -> US0)) = v102.[int v107] │
00:01:39 verbose #3964 > │ let v111 : unit option = None │
00:01:39 verbose #3965 > │ let v112 : bool = true in let mutable _v111 = v111 │
00:01:39 verbose #3966 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #3967 > │ () │
00:01:39 verbose #3968 > │ #endif │
00:01:39 verbose #3969 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #3970 > │ () │
00:01:39 verbose #3971 > │ #endif │
00:01:39 verbose #3972 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #3973 > │ () │
00:01:39 verbose #3974 > │ #endif │
00:01:39 verbose #3975 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #3976 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #3977 > │ System.GC.Collect () │
00:01:39 verbose #3978 > │ () │
00:01:39 verbose #3979 > │ #endif │
00:01:39 verbose #3980 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #3981 > │ () │
00:01:39 verbose #3982 > │ #endif │
00:01:39 verbose #3983 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #3984 > │ FABLE_COMPILER_DART │
00:01:39 verbose #3985 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #3986 > │ () │
00:01:39 verbose #3987 > │ #endif │
00:01:39 verbose #3988 > │ |> fun x -> _v111 <- Some x │
00:01:39 verbose #3989 > │ _v111.Value │
00:01:39 verbose #3990 > │ let v113 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:39 verbose #3991 > │ System.Diagnostics.Stopwatch │
00:01:39 verbose #3992 > │ let v114 : System.Diagnostics.Stopwatch = v113 () │
00:01:39 verbose #3993 > │ v114.Start () │
00:01:39 verbose #3994 > │ let v115 : int64 = v114.ElapsedMilliseconds │
00:01:39 verbose #3995 > │ let v116 : (int32 []) = Array.zeroCreate<int32> (8000001) │
00:01:39 verbose #3996 > │ let v117 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #3997 > │ while method13(v117) do │
00:01:39 verbose #3998 > │ let v119 : int32 = v117.l0 │
00:01:39 verbose #3999 > │ v116.[int v119] <- v119 │
00:01:39 verbose #4000 > │ let v120 : int32 = v119 + 1 │
00:01:39 verbose #4001 > │ v117.l0 <- v120 │
00:01:39 verbose #4002 > │ () │
00:01:39 verbose #4003 > │ let v121 : ((int32 -> US0) -> ((int32 []) -> (US0 []))) = │
00:01:39 verbose #4004 > │ Array.Parallel.map │
00:01:39 verbose #4005 > │ let v122 : (int32 -> US0) = closure5(v79, v80, v81, v110) │
00:01:39 verbose #4006 > │ let v123 : ((int32 []) -> (US0 [])) = v121 v122 │
00:01:39 verbose #4007 > │ let v124 : (US0 []) = v123 v116 │
00:01:39 verbose #4008 > │ let v125 : int32 = v124.Length │
00:01:39 verbose #4009 > │ let v126 : int32 = v125 - 1 │
00:01:39 verbose #4010 > │ let v127 : US0 = v124.[int v126] │
00:01:39 verbose #4011 > │ let v128 : int64 = v114.ElapsedMilliseconds │
00:01:39 verbose #4012 > │ let v129 : int64 = v128 - v115 │
00:01:39 verbose #4013 > │ let v130 : string = $"Test case {v108 + 1}. {v109}. Time: {v129} │
00:01:39 verbose #4014 > │ " │
00:01:39 verbose #4015 > │ System.Console.WriteLine v130 │
00:01:39 verbose #4016 > │ v104.[int v107] <- struct (v127, v129) │
00:01:39 verbose #4017 > │ let v131 : uint64 = v107 + 1UL │
00:01:39 verbose #4018 > │ v105.l0 <- v131 │
00:01:39 verbose #4019 > │ () │
00:01:39 verbose #4020 > │ let v132 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:39 verbose #4021 > │ let v133 : (US0 []) = Array.zeroCreate<US0> │
00:01:39 verbose #4022 > │ (System.Convert.ToInt32(v132)) │
00:01:39 verbose #4023 > │ let v134 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4024 > │ while method5(v132, v134) do │
00:01:39 verbose #4025 > │ let v136 : uint64 = v134.l0 │
00:01:39 verbose #4026 > │ let struct (v137 : US0, v138 : int64) = v104.[int v136] │
00:01:39 verbose #4027 > │ v133.[int v136] <- v137 │
00:01:39 verbose #4028 > │ let v139 : uint64 = v136 + 1UL │
00:01:39 verbose #4029 > │ v134.l0 <- v139 │
00:01:39 verbose #4030 > │ () │
00:01:39 verbose #4031 > │ let v140 : uint64 = System.Convert.ToUInt64 v133.Length │
00:01:39 verbose #4032 > │ let v141 : bool = v140 <= 1UL │
00:01:39 verbose #4033 > │ if v141 then │
00:01:39 verbose #4034 > │ () │
00:01:39 verbose #4035 > │ else │
00:01:39 verbose #4036 > │ let v142 : US0 = v133.[int 0UL] │
00:01:39 verbose #4037 > │ let v143 : uint64 = 0UL │
00:01:39 verbose #4038 > │ let v144 : bool = method14(v142, v133, v143) │
00:01:39 verbose #4039 > │ if v144 then │
00:01:39 verbose #4040 > │ () │
00:01:39 verbose #4041 > │ else │
00:01:39 verbose #4042 > │ let v145 : string = $"Challenge error: {v133}" │
00:01:39 verbose #4043 > │ failwith<unit> v145 │
00:01:39 verbose #4044 > │ let v146 : string = $"%A{v82}" │
00:01:39 verbose #4045 > │ let v147 : (US0 []) = Array.zeroCreate<US0> │
00:01:39 verbose #4046 > │ (System.Convert.ToInt32(v132)) │
00:01:39 verbose #4047 > │ let v148 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4048 > │ while method5(v132, v148) do │
00:01:39 verbose #4049 > │ let v150 : uint64 = v148.l0 │
00:01:39 verbose #4050 > │ let struct (v151 : US0, v152 : int64) = v104.[int v150] │
00:01:39 verbose #4051 > │ v147.[int v150] <- v151 │
00:01:39 verbose #4052 > │ let v153 : uint64 = v150 + 1UL │
00:01:39 verbose #4053 > │ v148.l0 <- v153 │
00:01:39 verbose #4054 > │ () │
00:01:39 verbose #4055 > │ let v154 : US0 = v147.[int 0UL] │
00:01:39 verbose #4056 > │ let v155 : string = $"%A{v154}" │
00:01:39 verbose #4057 > │ let v156 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4058 > │ (System.Convert.ToInt32(v132)) │
00:01:39 verbose #4059 > │ let v157 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4060 > │ while method5(v132, v157) do │
00:01:39 verbose #4061 > │ let v159 : uint64 = v157.l0 │
00:01:39 verbose #4062 > │ let struct (v160 : US0, v161 : int64) = v104.[int v159] │
00:01:39 verbose #4063 > │ v156.[int v159] <- v161 │
00:01:39 verbose #4064 > │ let v162 : uint64 = v159 + 1UL │
00:01:39 verbose #4065 > │ v157.l0 <- v162 │
00:01:39 verbose #4066 > │ () │
00:01:39 verbose #4067 > │ v75.[int v78] <- struct (v146, v83, v155, v156) │
00:01:39 verbose #4068 > │ let v163 : uint64 = v78 + 1UL │
00:01:39 verbose #4069 > │ v76.l0 <- v163 │
00:01:39 verbose #4070 > │ () │
00:01:39 verbose #4071 > │ let v164 : uint64 = System.Convert.ToUInt64 v75.Length │
00:01:39 verbose #4072 > │ let v165 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:39 verbose #4073 > │ US1)> (System.Convert.ToInt32(v164)) │
00:01:39 verbose #4074 > │ let v166 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4075 > │ while method5(v164, v166) do │
00:01:39 verbose #4076 > │ let v168 : uint64 = v166.l0 │
00:01:39 verbose #4077 > │ let struct (v169 : string, v170 : string, v171 : string, v172 : │
00:01:39 verbose #4078 > │ (int64 [])) = v75.[int v168] │
00:01:39 verbose #4079 > │ let v173 : uint64 = System.Convert.ToUInt64 v172.Length │
00:01:39 verbose #4080 > │ let v174 : UH3 = UH3_0 │
00:01:39 verbose #4081 > │ let v175 : Mut2 = {l0 = 0UL; l1 = v174; l2 = 0L} : Mut2 │
00:01:39 verbose #4082 > │ while method15(v173, v175) do │
00:01:39 verbose #4083 > │ let v177 : uint64 = v175.l0 │
00:01:39 verbose #4084 > │ let struct (v178 : UH3, v179 : int64) = v175.l1, v175.l2 │
00:01:39 verbose #4085 > │ let v180 : int64 = v172.[int v177] │
00:01:39 verbose #4086 > │ let v181 : int64 = v179 + 1L │
00:01:39 verbose #4087 > │ let v182 : uint64 = v177 + 1UL │
00:01:39 verbose #4088 > │ let v183 : UH3 = UH3_1(v179, v180, v178) │
00:01:39 verbose #4089 > │ v175.l0 <- v182 │
00:01:39 verbose #4090 > │ v175.l1 <- v183 │
00:01:39 verbose #4091 > │ v175.l2 <- v181 │
00:01:39 verbose #4092 > │ () │
00:01:39 verbose #4093 > │ let struct (v184 : UH3, v185 : int64) = v175.l1, v175.l2 │
00:01:39 verbose #4094 > │ let v186 : UH3 = UH3_0 │
00:01:39 verbose #4095 > │ let v187 : UH3 = method16(v184, v186) │
00:01:39 verbose #4096 > │ let v188 : (struct (int64 * int64) []) = method17(v187) │
00:01:39 verbose #4097 > │ let v189 : int32 = v188.Length │
00:01:39 verbose #4098 > │ let v190 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:39 verbose #4099 > │ (int64 * int64)> (v189) │
00:01:39 verbose #4100 > │ let v191 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #4101 > │ while method20(v189, v191) do │
00:01:39 verbose #4102 > │ let v193 : int32 = v191.l0 │
00:01:39 verbose #4103 > │ let struct (v194 : int64, v195 : int64) = v188.[int v193] │
00:01:39 verbose #4104 > │ let v196 : int64 = v194 + 1L │
00:01:39 verbose #4105 > │ v190.[int v193] <- struct (v196, v195) │
00:01:39 verbose #4106 > │ let v197 : int32 = v193 + 1 │
00:01:39 verbose #4107 > │ v191.l0 <- v197 │
00:01:39 verbose #4108 > │ () │
00:01:39 verbose #4109 > │ let v198 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:39 verbose #4110 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:39 verbose #4111 > │ let v199 : (struct (int64 * int64) -> int64) = closure6() │
00:01:39 verbose #4112 > │ let v200 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:39 verbose #4113 > │ ])) = v198 v199 │
00:01:39 verbose #4114 > │ let v201 : (struct (int64 * int64) []) = v200 v190 │
00:01:39 verbose #4115 > │ let struct (v202 : int64, v203 : int64) = v201.[int 0] │
00:01:39 verbose #4116 > │ let v204 : string = $"%A{struct (v202, v203)}" │
00:01:39 verbose #4117 > │ let v205 : bool = v169 = v171 │
00:01:39 verbose #4118 > │ let v210 : US1 = │
00:01:39 verbose #4119 > │ if v205 then │
00:01:39 verbose #4120 > │ let v206 : System.ConsoleColor = │
00:01:39 verbose #4121 > │ System.ConsoleColor.DarkGreen │
00:01:39 verbose #4122 > │ US1_0(v206) │
00:01:39 verbose #4123 > │ else │
00:01:39 verbose #4124 > │ let v208 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:39 verbose #4125 > │ US1_0(v208) │
00:01:39 verbose #4126 > │ let v211 : UH2 = UH2_0 │
00:01:39 verbose #4127 > │ let v212 : UH2 = UH2_1(v204, v211) │
00:01:39 verbose #4128 > │ let v213 : UH2 = UH2_1(v171, v212) │
00:01:39 verbose #4129 > │ let v214 : UH2 = UH2_1(v169, v213) │
00:01:39 verbose #4130 > │ let v215 : UH2 = UH2_1(v170, v214) │
00:01:39 verbose #4131 > │ v165.[int v168] <- struct (v215, v210) │
00:01:39 verbose #4132 > │ let v216 : uint64 = v168 + 1UL │
00:01:39 verbose #4133 > │ v166.l0 <- v216 │
00:01:39 verbose #4134 > │ () │
00:01:39 verbose #4135 > │ let v217 : string = "Input" │
00:01:39 verbose #4136 > │ let v218 : string = "Expected" │
00:01:39 verbose #4137 > │ let v219 : string = "Result" │
00:01:39 verbose #4138 > │ let v220 : string = "Best" │
00:01:39 verbose #4139 > │ let v221 : UH2 = UH2_0 │
00:01:39 verbose #4140 > │ let v222 : UH2 = UH2_1(v220, v221) │
00:01:39 verbose #4141 > │ let v223 : UH2 = UH2_1(v219, v222) │
00:01:39 verbose #4142 > │ let v224 : UH2 = UH2_1(v218, v223) │
00:01:39 verbose #4143 > │ let v225 : UH2 = UH2_1(v217, v224) │
00:01:39 verbose #4144 > │ let v226 : US1 = US1_1 │
00:01:39 verbose #4145 > │ let v227 : string = "---" │
00:01:39 verbose #4146 > │ let v228 : UH2 = UH2_0 │
00:01:39 verbose #4147 > │ let v229 : UH2 = UH2_1(v227, v228) │
00:01:39 verbose #4148 > │ let v230 : UH2 = UH2_1(v227, v229) │
00:01:39 verbose #4149 > │ let v231 : UH2 = UH2_1(v227, v230) │
00:01:39 verbose #4150 > │ let v232 : UH2 = UH2_1(v227, v231) │
00:01:39 verbose #4151 > │ let v233 : US1 = US1_1 │
00:01:39 verbose #4152 > │ let v234 : UH4 = UH4_0 │
00:01:39 verbose #4153 > │ let v235 : UH4 = UH4_1(v232, v233, v234) │
00:01:39 verbose #4154 > │ let v236 : UH4 = UH4_1(v225, v226, v235) │
00:01:39 verbose #4155 > │ let v237 : (struct (UH2 * US1) []) = method21(v236) │
00:01:39 verbose #4156 > │ let v238 : uint64 = System.Convert.ToUInt64 v237.Length │
00:01:39 verbose #4157 > │ let v239 : uint64 = System.Convert.ToUInt64 v165.Length │
00:01:39 verbose #4158 > │ let v240 : uint64 = v238 + v239 │
00:01:39 verbose #4159 > │ let v241 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:39 verbose #4160 > │ US1)> (System.Convert.ToInt32(v240)) │
00:01:39 verbose #4161 > │ let v242 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4162 > │ while method5(v240, v242) do │
00:01:39 verbose #4163 > │ let v244 : uint64 = v242.l0 │
00:01:39 verbose #4164 > │ let v245 : bool = v244 < v238 │
00:01:39 verbose #4165 > │ let struct (v251 : UH2, v252 : US1) = │
00:01:39 verbose #4166 > │ if v245 then │
00:01:39 verbose #4167 > │ let struct (v246 : UH2, v247 : US1) = v237.[int v244] │
00:01:39 verbose #4168 > │ struct (v246, v247) │
00:01:39 verbose #4169 > │ else │
00:01:39 verbose #4170 > │ let v248 : uint64 = v244 - v238 │
00:01:39 verbose #4171 > │ let struct (v249 : UH2, v250 : US1) = v165.[int v248] │
00:01:39 verbose #4172 > │ struct (v249, v250) │
00:01:39 verbose #4173 > │ v241.[int v244] <- struct (v251, v252) │
00:01:39 verbose #4174 > │ let v253 : uint64 = v244 + 1UL │
00:01:39 verbose #4175 > │ v242.l0 <- v253 │
00:01:39 verbose #4176 > │ () │
00:01:39 verbose #4177 > │ let v254 : uint64 = System.Convert.ToUInt64 v241.Length │
00:01:39 verbose #4178 > │ let v255 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:39 verbose #4179 > │ (System.Convert.ToInt32(v254)) │
00:01:39 verbose #4180 > │ let v256 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4181 > │ while method5(v254, v256) do │
00:01:39 verbose #4182 > │ let v258 : uint64 = v256.l0 │
00:01:39 verbose #4183 > │ let struct (v259 : UH2, v260 : US1) = v241.[int v258] │
00:01:39 verbose #4184 > │ let v261 : (string []) = method24(v259) │
00:01:39 verbose #4185 > │ v255.[int v258] <- v261 │
00:01:39 verbose #4186 > │ let v262 : uint64 = v258 + 1UL │
00:01:39 verbose #4187 > │ v256.l0 <- v262 │
00:01:39 verbose #4188 > │ () │
00:01:39 verbose #4189 > │ let v263 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:39 verbose #4190 > │ let v264 : ((string []) []) = v263 v255 │
00:01:39 verbose #4191 > │ let v265 : uint64 = System.Convert.ToUInt64 v264.Length │
00:01:39 verbose #4192 > │ let v266 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4193 > │ (System.Convert.ToInt32(v265)) │
00:01:39 verbose #4194 > │ let v267 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4195 > │ while method5(v265, v267) do │
00:01:39 verbose #4196 > │ let v269 : uint64 = v267.l0 │
00:01:39 verbose #4197 > │ let v270 : (string []) = v264.[int v269] │
00:01:39 verbose #4198 > │ let v271 : uint64 = System.Convert.ToUInt64 v270.Length │
00:01:39 verbose #4199 > │ let v272 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4200 > │ (System.Convert.ToInt32(v271)) │
00:01:39 verbose #4201 > │ let v273 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4202 > │ while method5(v271, v273) do │
00:01:39 verbose #4203 > │ let v275 : uint64 = v273.l0 │
00:01:39 verbose #4204 > │ let v276 : string = v270.[int v275] │
00:01:39 verbose #4205 > │ let v277 : int64 = System.Convert.ToInt64 v276.Length │
00:01:39 verbose #4206 > │ v272.[int v275] <- v277 │
00:01:39 verbose #4207 > │ let v278 : uint64 = v275 + 1UL │
00:01:39 verbose #4208 > │ v273.l0 <- v278 │
00:01:39 verbose #4209 > │ () │
00:01:39 verbose #4210 > │ let v279 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:39 verbose #4211 > │ let v280 : (int64 []) = v279 v272 │
00:01:39 verbose #4212 > │ let v281 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:39 verbose #4213 > │ let v282 : ((int64 []) -> int64 option) = v281 0 │
00:01:39 verbose #4214 > │ let v283 : int64 option = v282 v280 │
00:01:39 verbose #4215 > │ let v284 : (int64 -> US2) = method27() │
00:01:39 verbose #4216 > │ let v285 : US2 = US2_1 │
00:01:39 verbose #4217 > │ let v286 : US2 = v283 |> Option.map v284 |> Option.defaultValue v285 │
00:01:39 verbose #4218 > │ let v289 : int64 = │
00:01:39 verbose #4219 > │ match v286 with │
00:01:39 verbose #4220 > │ | US2_1 -> (* None *) │
00:01:39 verbose #4221 > │ 0L │
00:01:39 verbose #4222 > │ | US2_0(v287) -> (* Some *) │
00:01:39 verbose #4223 > │ v287 │
00:01:39 verbose #4224 > │ v266.[int v269] <- v289 │
00:01:39 verbose #4225 > │ let v290 : uint64 = v269 + 1UL │
00:01:39 verbose #4226 > │ v267.l0 <- v290 │
00:01:39 verbose #4227 > │ () │
00:01:39 verbose #4228 > │ let v291 : uint64 = System.Convert.ToUInt64 v266.Length │
00:01:39 verbose #4229 > │ let v292 : UH5 = UH5_0 │
00:01:39 verbose #4230 > │ let v293 : Mut3 = {l0 = 0UL; l1 = v292; l2 = 0} : Mut3 │
00:01:39 verbose #4231 > │ while method28(v291, v293) do │
00:01:39 verbose #4232 > │ let v295 : uint64 = v293.l0 │
00:01:39 verbose #4233 > │ let struct (v296 : UH5, v297 : int32) = v293.l1, v293.l2 │
00:01:39 verbose #4234 > │ let v298 : int64 = v266.[int v295] │
00:01:39 verbose #4235 > │ let v299 : int32 = v297 + 1 │
00:01:39 verbose #4236 > │ let v300 : uint64 = v295 + 1UL │
00:01:39 verbose #4237 > │ let v301 : UH5 = UH5_1(v297, v298, v296) │
00:01:39 verbose #4238 > │ v293.l0 <- v300 │
00:01:39 verbose #4239 > │ v293.l1 <- v301 │
00:01:39 verbose #4240 > │ v293.l2 <- v299 │
00:01:39 verbose #4241 > │ () │
00:01:39 verbose #4242 > │ let struct (v302 : UH5, v303 : int32) = v293.l1, v293.l2 │
00:01:39 verbose #4243 > │ let v304 : UH5 = UH5_0 │
00:01:39 verbose #4244 > │ let v305 : UH5 = method29(v302, v304) │
00:01:39 verbose #4245 > │ let v306 : (struct (int32 * int64) []) = method30(v305) │
00:01:39 verbose #4246 > │ let v307 : Map<int32, int64> = v306 |> Array.map (fun (struct (a, b)) -> │
00:01:39 verbose #4247 > │ a, b) |> Map.ofArray │
00:01:39 verbose #4248 > │ let v308 : (struct ((string []) * US1) []) = Array.zeroCreate<struct │
00:01:39 verbose #4249 > │ ((string []) * US1)> (System.Convert.ToInt32(v254)) │
00:01:39 verbose #4250 > │ let v309 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4251 > │ while method5(v254, v309) do │
00:01:39 verbose #4252 > │ let v311 : uint64 = v309.l0 │
00:01:39 verbose #4253 > │ let struct (v312 : UH2, v313 : US1) = v241.[int v311] │
00:01:39 verbose #4254 > │ let v314 : UH6 = UH6_0 │
00:01:39 verbose #4255 > │ let v315 : int32 = 0 │
00:01:39 verbose #4256 > │ let struct (v316 : UH6, v317 : int32) = method33(v312, v314, v315) │
00:01:39 verbose #4257 > │ let v318 : UH6 = UH6_0 │
00:01:39 verbose #4258 > │ let v319 : UH6 = method34(v316, v318) │
00:01:39 verbose #4259 > │ let v320 : UH2 = UH2_0 │
00:01:39 verbose #4260 > │ let v321 : UH2 = method35(v307, v319, v320) │
00:01:39 verbose #4261 > │ let v322 : (string []) = method36(v321) │
00:01:39 verbose #4262 > │ v308.[int v311] <- struct (v322, v313) │
00:01:39 verbose #4263 > │ let v323 : uint64 = v311 + 1UL │
00:01:39 verbose #4264 > │ v309.l0 <- v323 │
00:01:39 verbose #4265 > │ () │
00:01:39 verbose #4266 > │ System.Console.WriteLine v27 │
00:01:39 verbose #4267 > │ let v324 : uint64 = System.Convert.ToUInt64 v308.Length │
00:01:39 verbose #4268 > │ let v325 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4269 > │ while method5(v324, v325) do │
00:01:39 verbose #4270 > │ let v327 : uint64 = v325.l0 │
00:01:39 verbose #4271 > │ let struct (v328 : (string []), v329 : US1) = v308.[int v327] │
00:01:39 verbose #4272 > │ match v329 with │
00:01:39 verbose #4273 > │ | US1_1 -> (* None *) │
00:01:39 verbose #4274 > │ let v333 : unit option = None │
00:01:39 verbose #4275 > │ let v334 : bool = true in let mutable _v333 = v333 │
00:01:39 verbose #4276 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4277 > │ () │
00:01:39 verbose #4278 > │ #endif │
00:01:39 verbose #4279 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4280 > │ () │
00:01:39 verbose #4281 > │ #endif │
00:01:39 verbose #4282 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4283 > │ () │
00:01:39 verbose #4284 > │ #endif │
00:01:39 verbose #4285 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4286 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4287 > │ System.Console.ResetColor () │
00:01:39 verbose #4288 > │ () │
00:01:39 verbose #4289 > │ #endif │
00:01:39 verbose #4290 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4291 > │ () │
00:01:39 verbose #4292 > │ #endif │
00:01:39 verbose #4293 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4294 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4295 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4296 > │ () │
00:01:39 verbose #4297 > │ #endif │
00:01:39 verbose #4298 > │ |> fun x -> _v333 <- Some x │
00:01:39 verbose #4299 > │ _v333.Value │
00:01:39 verbose #4300 > │ () │
00:01:39 verbose #4301 > │ | US1_0(v330) -> (* Some *) │
00:01:39 verbose #4302 > │ let v331 : unit option = None │
00:01:39 verbose #4303 > │ let v332 : bool = true in let mutable _v331 = v331 │
00:01:39 verbose #4304 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4305 > │ () │
00:01:39 verbose #4306 > │ #endif │
00:01:39 verbose #4307 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4308 > │ () │
00:01:39 verbose #4309 > │ #endif │
00:01:39 verbose #4310 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4311 > │ () │
00:01:39 verbose #4312 > │ #endif │
00:01:39 verbose #4313 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4314 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4315 > │ System.Console.ForegroundColor <- v330 │
00:01:39 verbose #4316 > │ () │
00:01:39 verbose #4317 > │ #endif │
00:01:39 verbose #4318 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4319 > │ () │
00:01:39 verbose #4320 > │ #endif │
00:01:39 verbose #4321 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4322 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4323 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4324 > │ () │
00:01:39 verbose #4325 > │ #endif │
00:01:39 verbose #4326 > │ |> fun x -> _v331 <- Some x │
00:01:39 verbose #4327 > │ _v331.Value │
00:01:39 verbose #4328 > │ () │
00:01:39 verbose #4329 > │ let v335 : string = "\t| " │
00:01:39 verbose #4330 > │ let v336 : string = System.String.Join (v335, v328) │
00:01:39 verbose #4331 > │ System.Console.WriteLine v336 │
00:01:39 verbose #4332 > │ let v337 : unit option = None │
00:01:39 verbose #4333 > │ let v338 : bool = true in let mutable _v337 = v337 │
00:01:39 verbose #4334 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4335 > │ () │
00:01:39 verbose #4336 > │ #endif │
00:01:39 verbose #4337 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4338 > │ () │
00:01:39 verbose #4339 > │ #endif │
00:01:39 verbose #4340 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4341 > │ () │
00:01:39 verbose #4342 > │ #endif │
00:01:39 verbose #4343 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4344 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4345 > │ System.Console.ResetColor () │
00:01:39 verbose #4346 > │ () │
00:01:39 verbose #4347 > │ #endif │
00:01:39 verbose #4348 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4349 > │ () │
00:01:39 verbose #4350 > │ #endif │
00:01:39 verbose #4351 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4352 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4353 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4354 > │ () │
00:01:39 verbose #4355 > │ #endif │
00:01:39 verbose #4356 > │ |> fun x -> _v337 <- Some x │
00:01:39 verbose #4357 > │ _v337.Value │
00:01:39 verbose #4358 > │ let v339 : uint64 = v327 + 1UL │
00:01:39 verbose #4359 > │ v325.l0 <- v339 │
00:01:39 verbose #4360 > │ () │
00:01:39 verbose #4361 > │ let v340 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:39 verbose #4362 > │ (System.Convert.ToInt32(v164)) │
00:01:39 verbose #4363 > │ let v341 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4364 > │ while method5(v164, v341) do │
00:01:39 verbose #4365 > │ let v343 : uint64 = v341.l0 │
00:01:39 verbose #4366 > │ let struct (v344 : string, v345 : string, v346 : string, v347 : │
00:01:39 verbose #4367 > │ (int64 [])) = v75.[int v343] │
00:01:39 verbose #4368 > │ let v348 : (int64 -> float) = float │
00:01:39 verbose #4369 > │ let v349 : uint64 = System.Convert.ToUInt64 v347.Length │
00:01:39 verbose #4370 > │ let v350 : (float []) = Array.zeroCreate<float> │
00:01:39 verbose #4371 > │ (System.Convert.ToInt32(v349)) │
00:01:39 verbose #4372 > │ let v351 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4373 > │ while method5(v349, v351) do │
00:01:39 verbose #4374 > │ let v353 : uint64 = v351.l0 │
00:01:39 verbose #4375 > │ let v354 : int64 = v347.[int v353] │
00:01:39 verbose #4376 > │ let v355 : float = v348 v354 │
00:01:39 verbose #4377 > │ v350.[int v353] <- v355 │
00:01:39 verbose #4378 > │ let v356 : uint64 = v353 + 1UL │
00:01:39 verbose #4379 > │ v351.l0 <- v356 │
00:01:39 verbose #4380 > │ () │
00:01:39 verbose #4381 > │ v340.[int v343] <- v350 │
00:01:39 verbose #4382 > │ let v357 : uint64 = v343 + 1UL │
00:01:39 verbose #4383 > │ v341.l0 <- v357 │
00:01:39 verbose #4384 > │ () │
00:01:39 verbose #4385 > │ let v358 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:39 verbose #4386 > │ let v359 : ((float []) []) = v358 v340 │
00:01:39 verbose #4387 > │ let v360 : uint64 = System.Convert.ToUInt64 v359.Length │
00:01:39 verbose #4388 > │ let v361 : (float []) = Array.zeroCreate<float> │
00:01:39 verbose #4389 > │ (System.Convert.ToInt32(v360)) │
00:01:39 verbose #4390 > │ let v362 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4391 > │ while method5(v360, v362) do │
00:01:39 verbose #4392 > │ let v364 : uint64 = v362.l0 │
00:01:39 verbose #4393 > │ let v365 : (float []) = v359.[int v364] │
00:01:39 verbose #4394 > │ let v366 : ((float []) -> float) = Array.average │
00:01:39 verbose #4395 > │ let v367 : float = v366 v365 │
00:01:39 verbose #4396 > │ v361.[int v364] <- v367 │
00:01:39 verbose #4397 > │ let v368 : uint64 = v364 + 1UL │
00:01:39 verbose #4398 > │ v362.l0 <- v368 │
00:01:39 verbose #4399 > │ () │
00:01:39 verbose #4400 > │ let v369 : (float -> int64) = int64 │
00:01:39 verbose #4401 > │ let v370 : uint64 = System.Convert.ToUInt64 v361.Length │
00:01:39 verbose #4402 > │ let v371 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4403 > │ (System.Convert.ToInt32(v370)) │
00:01:39 verbose #4404 > │ let v372 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4405 > │ while method5(v370, v372) do │
00:01:39 verbose #4406 > │ let v374 : uint64 = v372.l0 │
00:01:39 verbose #4407 > │ let v375 : float = v361.[int v374] │
00:01:39 verbose #4408 > │ let v376 : int64 = v369 v375 │
00:01:39 verbose #4409 > │ v371.[int v374] <- v376 │
00:01:39 verbose #4410 > │ let v377 : uint64 = v374 + 1UL │
00:01:39 verbose #4411 > │ v372.l0 <- v377 │
00:01:39 verbose #4412 > │ () │
00:01:39 verbose #4413 > │ let v378 : uint64 = System.Convert.ToUInt64 v371.Length │
00:01:39 verbose #4414 > │ let v379 : UH5 = UH5_0 │
00:01:39 verbose #4415 > │ let v380 : Mut3 = {l0 = 0UL; l1 = v379; l2 = 0} : Mut3 │
00:01:39 verbose #4416 > │ while method28(v378, v380) do │
00:01:39 verbose #4417 > │ let v382 : uint64 = v380.l0 │
00:01:39 verbose #4418 > │ let struct (v383 : UH5, v384 : int32) = v380.l1, v380.l2 │
00:01:39 verbose #4419 > │ let v385 : int64 = v371.[int v382] │
00:01:39 verbose #4420 > │ let v386 : int32 = v384 + 1 │
00:01:39 verbose #4421 > │ let v387 : uint64 = v382 + 1UL │
00:01:39 verbose #4422 > │ let v388 : UH5 = UH5_1(v384, v385, v383) │
00:01:39 verbose #4423 > │ v380.l0 <- v387 │
00:01:39 verbose #4424 > │ v380.l1 <- v388 │
00:01:39 verbose #4425 > │ v380.l2 <- v386 │
00:01:39 verbose #4426 > │ () │
00:01:39 verbose #4427 > │ let struct (v389 : UH5, v390 : int32) = v380.l1, v380.l2 │
00:01:39 verbose #4428 > │ let v391 : UH5 = UH5_0 │
00:01:39 verbose #4429 > │ let v392 : UH5 = method29(v389, v391) │
00:01:39 verbose #4430 > │ let v393 : (struct (int32 * int64) []) = method39(v392) │
00:01:39 verbose #4431 > │ System.Console.WriteLine v27 │
00:01:39 verbose #4432 > │ let v394 : string = "Average Ranking " │
00:01:39 verbose #4433 > │ System.Console.WriteLine v394 │
00:01:39 verbose #4434 > │ let v395 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:39 verbose #4435 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:39 verbose #4436 > │ let v396 : (struct (int32 * int64) -> int64) = closure8() │
00:01:39 verbose #4437 > │ let v397 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:39 verbose #4438 > │ = v395 v396 │
00:01:39 verbose #4439 > │ let v398 : (struct (int32 * int64) []) = v397 v393 │
00:01:39 verbose #4440 > │ let v399 : uint64 = System.Convert.ToUInt64 v398.Length │
00:01:39 verbose #4441 > │ let v400 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4442 > │ while method5(v399, v400) do │
00:01:39 verbose #4443 > │ let v402 : uint64 = v400.l0 │
00:01:39 verbose #4444 > │ let struct (v403 : int32, v404 : int64) = v398.[int v402] │
00:01:39 verbose #4445 > │ let v405 : string = $"Test case %d{v403 + 1}. Average Time: %A{v404} │
00:01:39 verbose #4446 > │ " │
00:01:39 verbose #4447 > │ System.Console.WriteLine v405 │
00:01:39 verbose #4448 > │ let v406 : uint64 = v402 + 1UL │
00:01:39 verbose #4449 > │ v400.l0 <- v406 │
00:01:39 verbose #4450 > │ () │
00:01:39 verbose #4451 > │ () │
00:01:39 verbose #4452 > │ and method0 () : unit = │
00:01:39 verbose #4453 > │ let v0 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4454 > │ let v1 : int32 = v0.Length │
00:01:39 verbose #4455 > │ let v2 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4456 > │ let v3 : int32 = v2.Length │
00:01:39 verbose #4457 > │ let v4 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4458 > │ let v5 : int32 = v4.Length │
00:01:39 verbose #4459 > │ let v6 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4460 > │ let v7 : int32 = v6.Length │
00:01:39 verbose #4461 > │ let v8 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:39 verbose #4462 > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #4463 > │ while method1(v9) do │
00:01:39 verbose #4464 > │ let v11 : int32 = v9.l0 │
00:01:39 verbose #4465 > │ let v12 : int32 = 1 + v11 │
00:01:39 verbose #4466 > │ v8.[int v11] <- v12 │
00:01:39 verbose #4467 > │ let v13 : int32 = v11 + 1 │
00:01:39 verbose #4468 > │ v9.l0 <- v13 │
00:01:39 verbose #4469 > │ () │
00:01:39 verbose #4470 > │ let v14 : int32 = v8.Length │
00:01:39 verbose #4471 > │ let v15 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4472 > │ let v16 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4473 > │ let v17 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4474 > │ let v18 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:39 verbose #4475 > │ let v19 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:39 verbose #4476 > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #4477 > │ while method1(v20) do │
00:01:39 verbose #4478 > │ let v22 : int32 = v20.l0 │
00:01:39 verbose #4479 > │ let v23 : int32 = 1 + v22 │
00:01:39 verbose #4480 > │ v19.[int v22] <- v23 │
00:01:39 verbose #4481 > │ let v24 : int32 = v22 + 1 │
00:01:39 verbose #4482 > │ v20.l0 <- v24 │
00:01:39 verbose #4483 > │ () │
00:01:39 verbose #4484 > │ let v25 : (unit -> unit) = closure0() │
00:01:39 verbose #4485 > │ let v26 : string = nameof v25 │
00:01:39 verbose #4486 > │ let v27 : string = "" │
00:01:39 verbose #4487 > │ System.Console.WriteLine v27 │
00:01:39 verbose #4488 > │ System.Console.WriteLine v27 │
00:01:39 verbose #4489 > │ let v28 : string = $"Test: {v26}" │
00:01:39 verbose #4490 > │ System.Console.WriteLine v28 │
00:01:39 verbose #4491 > │ let v29 : int32 = 6 │
00:01:39 verbose #4492 > │ let v30 : int32 = 3 │
00:01:39 verbose #4493 > │ let v31 : US0 = US0_0(v30) │
00:01:39 verbose #4494 > │ let v32 : int32 = 1 │
00:01:39 verbose #4495 > │ let v33 : int32 = 0 │
00:01:39 verbose #4496 > │ let v34 : US0 = US0_0(v33) │
00:01:39 verbose #4497 > │ let v35 : int32 = 11 │
00:01:39 verbose #4498 > │ let v36 : int32 = 6 │
00:01:39 verbose #4499 > │ let v37 : US0 = US0_0(v36) │
00:01:39 verbose #4500 > │ let v38 : int32 = 12 │
00:01:39 verbose #4501 > │ let v39 : US0 = US0_1 │
00:01:39 verbose #4502 > │ let v40 : int32 = 60 │
00:01:39 verbose #4503 > │ let v41 : int32 = 59 │
00:01:39 verbose #4504 > │ let v42 : US0 = US0_0(v41) │
00:01:39 verbose #4505 > │ let v43 : int32 = 6 │
00:01:39 verbose #4506 > │ let v44 : int32 = 7 │
00:01:39 verbose #4507 > │ let v45 : int32 = 3 │
00:01:39 verbose #4508 > │ let v46 : US0 = US0_0(v45) │
00:01:39 verbose #4509 > │ let v47 : int32 = 1 │
00:01:39 verbose #4510 > │ let v48 : int32 = 7 │
00:01:39 verbose #4511 > │ let v49 : int32 = 0 │
00:01:39 verbose #4512 > │ let v50 : US0 = US0_0(v49) │
00:01:39 verbose #4513 > │ let v51 : int32 = 11 │
00:01:39 verbose #4514 > │ let v52 : int32 = 7 │
00:01:39 verbose #4515 > │ let v53 : int32 = 6 │
00:01:39 verbose #4516 > │ let v54 : US0 = US0_0(v53) │
00:01:39 verbose #4517 > │ let v55 : int32 = 12 │
00:01:39 verbose #4518 > │ let v56 : int32 = 7 │
00:01:39 verbose #4519 > │ let v57 : US0 = US0_1 │
00:01:39 verbose #4520 > │ let v58 : int32 = 60 │
00:01:39 verbose #4521 > │ let v59 : int32 = 100 │
00:01:39 verbose #4522 > │ let v60 : int32 = 59 │
00:01:39 verbose #4523 > │ let v61 : US0 = US0_0(v60) │
00:01:39 verbose #4524 > │ let v62 : UH0 = UH0_0 │
00:01:39 verbose #4525 > │ let v63 : UH0 = UH0_1(v19, v58, v59, v61, v62) │
00:01:39 verbose #4526 > │ let v64 : UH0 = UH0_1(v18, v55, v56, v57, v63) │
00:01:39 verbose #4527 > │ let v65 : UH0 = UH0_1(v17, v51, v52, v54, v64) │
00:01:39 verbose #4528 > │ let v66 : UH0 = UH0_1(v16, v47, v48, v50, v65) │
00:01:39 verbose #4529 > │ let v67 : UH0 = UH0_1(v15, v43, v44, v46, v66) │
00:01:39 verbose #4530 > │ let v68 : UH0 = UH0_1(v8, v40, v14, v42, v67) │
00:01:39 verbose #4531 > │ let v69 : UH0 = UH0_1(v6, v38, v7, v39, v68) │
00:01:39 verbose #4532 > │ let v70 : UH0 = UH0_1(v4, v35, v5, v37, v69) │
00:01:39 verbose #4533 > │ let v71 : UH0 = UH0_1(v2, v32, v3, v34, v70) │
00:01:39 verbose #4534 > │ let v72 : UH0 = UH0_1(v0, v29, v1, v31, v71) │
00:01:39 verbose #4535 > │ let v73 : (struct ((int32 []) * int32 * int32 * US0) []) = method2(v72) │
00:01:39 verbose #4536 > │ let v74 : uint64 = System.Convert.ToUInt64 v73.Length │
00:01:39 verbose #4537 > │ let v75 : (struct (string * string * string * (int64 [])) []) = │
00:01:39 verbose #4538 > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:39 verbose #4539 > │ (System.Convert.ToInt32(v74)) │
00:01:39 verbose #4540 > │ let v76 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4541 > │ while method5(v74, v76) do │
00:01:39 verbose #4542 > │ let v78 : uint64 = v76.l0 │
00:01:39 verbose #4543 > │ let struct (v79 : (int32 []), v80 : int32, v81 : int32, v82 : US0) = │
00:01:39 verbose #4544 > │ v73.[int v78] │
00:01:39 verbose #4545 > │ let v83 : string = $"%A{struct (v79, v80, v81)}" │
00:01:39 verbose #4546 > │ System.Console.WriteLine v27 │
00:01:39 verbose #4547 > │ let v84 : string = $"Solution: {v83} " │
00:01:39 verbose #4548 > │ System.Console.WriteLine v84 │
00:01:39 verbose #4549 > │ let v85 : int32 = 0 │
00:01:39 verbose #4550 > │ let v86 : string = "semi_open_1" │
00:01:39 verbose #4551 > │ let v87 : (struct ((int32 []) * int32 * int32) -> US0) = closure1() │
00:01:39 verbose #4552 > │ let v88 : int32 = 1 │
00:01:39 verbose #4553 > │ let v89 : string = "closed_1" │
00:01:39 verbose #4554 > │ let v90 : (struct ((int32 []) * int32 * int32) -> US0) = closure2() │
00:01:39 verbose #4555 > │ let v91 : int32 = 2 │
00:01:39 verbose #4556 > │ let v92 : string = "semi_open_2" │
00:01:39 verbose #4557 > │ let v93 : (struct ((int32 []) * int32 * int32) -> US0) = closure3() │
00:01:39 verbose #4558 > │ let v94 : int32 = 3 │
00:01:39 verbose #4559 > │ let v95 : string = "closed_2" │
00:01:39 verbose #4560 > │ let v96 : (struct ((int32 []) * int32 * int32) -> US0) = closure4() │
00:01:39 verbose #4561 > │ let v97 : UH1 = UH1_0 │
00:01:39 verbose #4562 > │ let v98 : UH1 = UH1_1(v94, v95, v96, v97) │
00:01:39 verbose #4563 > │ let v99 : UH1 = UH1_1(v91, v92, v93, v98) │
00:01:39 verbose #4564 > │ let v100 : UH1 = UH1_1(v88, v89, v90, v99) │
00:01:39 verbose #4565 > │ let v101 : UH1 = UH1_1(v85, v86, v87, v100) │
00:01:39 verbose #4566 > │ let v102 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:39 verbose #4567 > │ int32) -> US0)) []) = method10(v101) │
00:01:39 verbose #4568 > │ let v103 : uint64 = System.Convert.ToUInt64 v102.Length │
00:01:39 verbose #4569 > │ let v104 : (struct (US0 * int64) []) = Array.zeroCreate<struct (US0 │
00:01:39 verbose #4570 > │ * int64)> (System.Convert.ToInt32(v103)) │
00:01:39 verbose #4571 > │ let v105 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4572 > │ while method5(v103, v105) do │
00:01:39 verbose #4573 > │ let v107 : uint64 = v105.l0 │
00:01:39 verbose #4574 > │ let struct (v108 : int32, v109 : string, v110 : (struct ((int32 │
00:01:39 verbose #4575 > │ []) * int32 * int32) -> US0)) = v102.[int v107] │
00:01:39 verbose #4576 > │ let v111 : unit option = None │
00:01:39 verbose #4577 > │ let v112 : bool = true in let mutable _v111 = v111 │
00:01:39 verbose #4578 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4579 > │ () │
00:01:39 verbose #4580 > │ #endif │
00:01:39 verbose #4581 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4582 > │ () │
00:01:39 verbose #4583 > │ #endif │
00:01:39 verbose #4584 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4585 > │ () │
00:01:39 verbose #4586 > │ #endif │
00:01:39 verbose #4587 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4588 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4589 > │ System.GC.Collect () │
00:01:39 verbose #4590 > │ () │
00:01:39 verbose #4591 > │ #endif │
00:01:39 verbose #4592 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4593 > │ () │
00:01:39 verbose #4594 > │ #endif │
00:01:39 verbose #4595 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4596 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4597 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4598 > │ () │
00:01:39 verbose #4599 > │ #endif │
00:01:39 verbose #4600 > │ |> fun x -> _v111 <- Some x │
00:01:39 verbose #4601 > │ _v111.Value │
00:01:39 verbose #4602 > │ let v113 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:39 verbose #4603 > │ System.Diagnostics.Stopwatch │
00:01:39 verbose #4604 > │ let v114 : System.Diagnostics.Stopwatch = v113 () │
00:01:39 verbose #4605 > │ v114.Start () │
00:01:39 verbose #4606 > │ let v115 : int64 = v114.ElapsedMilliseconds │
00:01:39 verbose #4607 > │ let v116 : (int32 []) = Array.zeroCreate<int32> (8000001) │
00:01:39 verbose #4608 > │ let v117 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #4609 > │ while method13(v117) do │
00:01:39 verbose #4610 > │ let v119 : int32 = v117.l0 │
00:01:39 verbose #4611 > │ v116.[int v119] <- v119 │
00:01:39 verbose #4612 > │ let v120 : int32 = v119 + 1 │
00:01:39 verbose #4613 > │ v117.l0 <- v120 │
00:01:39 verbose #4614 > │ () │
00:01:39 verbose #4615 > │ let v121 : ((int32 -> US0) -> ((int32 []) -> (US0 []))) = │
00:01:39 verbose #4616 > │ Array.Parallel.map │
00:01:39 verbose #4617 > │ let v122 : (int32 -> US0) = closure5(v79, v80, v81, v110) │
00:01:39 verbose #4618 > │ let v123 : ((int32 []) -> (US0 [])) = v121 v122 │
00:01:39 verbose #4619 > │ let v124 : (US0 []) = v123 v116 │
00:01:39 verbose #4620 > │ let v125 : int32 = v124.Length │
00:01:39 verbose #4621 > │ let v126 : int32 = v125 - 1 │
00:01:39 verbose #4622 > │ let v127 : US0 = v124.[int v126] │
00:01:39 verbose #4623 > │ let v128 : int64 = v114.ElapsedMilliseconds │
00:01:39 verbose #4624 > │ let v129 : int64 = v128 - v115 │
00:01:39 verbose #4625 > │ let v130 : string = $"Test case {v108 + 1}. {v109}. Time: {v129} │
00:01:39 verbose #4626 > │ " │
00:01:39 verbose #4627 > │ System.Console.WriteLine v130 │
00:01:39 verbose #4628 > │ v104.[int v107] <- struct (v127, v129) │
00:01:39 verbose #4629 > │ let v131 : uint64 = v107 + 1UL │
00:01:39 verbose #4630 > │ v105.l0 <- v131 │
00:01:39 verbose #4631 > │ () │
00:01:39 verbose #4632 > │ let v132 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:39 verbose #4633 > │ let v133 : (US0 []) = Array.zeroCreate<US0> │
00:01:39 verbose #4634 > │ (System.Convert.ToInt32(v132)) │
00:01:39 verbose #4635 > │ let v134 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4636 > │ while method5(v132, v134) do │
00:01:39 verbose #4637 > │ let v136 : uint64 = v134.l0 │
00:01:39 verbose #4638 > │ let struct (v137 : US0, v138 : int64) = v104.[int v136] │
00:01:39 verbose #4639 > │ v133.[int v136] <- v137 │
00:01:39 verbose #4640 > │ let v139 : uint64 = v136 + 1UL │
00:01:39 verbose #4641 > │ v134.l0 <- v139 │
00:01:39 verbose #4642 > │ () │
00:01:39 verbose #4643 > │ let v140 : uint64 = System.Convert.ToUInt64 v133.Length │
00:01:39 verbose #4644 > │ let v141 : bool = v140 <= 1UL │
00:01:39 verbose #4645 > │ if v141 then │
00:01:39 verbose #4646 > │ () │
00:01:39 verbose #4647 > │ else │
00:01:39 verbose #4648 > │ let v142 : US0 = v133.[int 0UL] │
00:01:39 verbose #4649 > │ let v143 : uint64 = 0UL │
00:01:39 verbose #4650 > │ let v144 : bool = method14(v142, v133, v143) │
00:01:39 verbose #4651 > │ if v144 then │
00:01:39 verbose #4652 > │ () │
00:01:39 verbose #4653 > │ else │
00:01:39 verbose #4654 > │ let v145 : string = $"Challenge error: {v133}" │
00:01:39 verbose #4655 > │ failwith<unit> v145 │
00:01:39 verbose #4656 > │ let v146 : string = $"%A{v82}" │
00:01:39 verbose #4657 > │ let v147 : (US0 []) = Array.zeroCreate<US0> │
00:01:39 verbose #4658 > │ (System.Convert.ToInt32(v132)) │
00:01:39 verbose #4659 > │ let v148 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4660 > │ while method5(v132, v148) do │
00:01:39 verbose #4661 > │ let v150 : uint64 = v148.l0 │
00:01:39 verbose #4662 > │ let struct (v151 : US0, v152 : int64) = v104.[int v150] │
00:01:39 verbose #4663 > │ v147.[int v150] <- v151 │
00:01:39 verbose #4664 > │ let v153 : uint64 = v150 + 1UL │
00:01:39 verbose #4665 > │ v148.l0 <- v153 │
00:01:39 verbose #4666 > │ () │
00:01:39 verbose #4667 > │ let v154 : US0 = v147.[int 0UL] │
00:01:39 verbose #4668 > │ let v155 : string = $"%A{v154}" │
00:01:39 verbose #4669 > │ let v156 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4670 > │ (System.Convert.ToInt32(v132)) │
00:01:39 verbose #4671 > │ let v157 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4672 > │ while method5(v132, v157) do │
00:01:39 verbose #4673 > │ let v159 : uint64 = v157.l0 │
00:01:39 verbose #4674 > │ let struct (v160 : US0, v161 : int64) = v104.[int v159] │
00:01:39 verbose #4675 > │ v156.[int v159] <- v161 │
00:01:39 verbose #4676 > │ let v162 : uint64 = v159 + 1UL │
00:01:39 verbose #4677 > │ v157.l0 <- v162 │
00:01:39 verbose #4678 > │ () │
00:01:39 verbose #4679 > │ v75.[int v78] <- struct (v146, v83, v155, v156) │
00:01:39 verbose #4680 > │ let v163 : uint64 = v78 + 1UL │
00:01:39 verbose #4681 > │ v76.l0 <- v163 │
00:01:39 verbose #4682 > │ () │
00:01:39 verbose #4683 > │ let v164 : uint64 = System.Convert.ToUInt64 v75.Length │
00:01:39 verbose #4684 > │ let v165 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:39 verbose #4685 > │ US1)> (System.Convert.ToInt32(v164)) │
00:01:39 verbose #4686 > │ let v166 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4687 > │ while method5(v164, v166) do │
00:01:39 verbose #4688 > │ let v168 : uint64 = v166.l0 │
00:01:39 verbose #4689 > │ let struct (v169 : string, v170 : string, v171 : string, v172 : │
00:01:39 verbose #4690 > │ (int64 [])) = v75.[int v168] │
00:01:39 verbose #4691 > │ let v173 : uint64 = System.Convert.ToUInt64 v172.Length │
00:01:39 verbose #4692 > │ let v174 : UH3 = UH3_0 │
00:01:39 verbose #4693 > │ let v175 : Mut2 = {l0 = 0UL; l1 = v174; l2 = 0L} : Mut2 │
00:01:39 verbose #4694 > │ while method15(v173, v175) do │
00:01:39 verbose #4695 > │ let v177 : uint64 = v175.l0 │
00:01:39 verbose #4696 > │ let struct (v178 : UH3, v179 : int64) = v175.l1, v175.l2 │
00:01:39 verbose #4697 > │ let v180 : int64 = v172.[int v177] │
00:01:39 verbose #4698 > │ let v181 : int64 = v179 + 1L │
00:01:39 verbose #4699 > │ let v182 : uint64 = v177 + 1UL │
00:01:39 verbose #4700 > │ let v183 : UH3 = UH3_1(v179, v180, v178) │
00:01:39 verbose #4701 > │ v175.l0 <- v182 │
00:01:39 verbose #4702 > │ v175.l1 <- v183 │
00:01:39 verbose #4703 > │ v175.l2 <- v181 │
00:01:39 verbose #4704 > │ () │
00:01:39 verbose #4705 > │ let struct (v184 : UH3, v185 : int64) = v175.l1, v175.l2 │
00:01:39 verbose #4706 > │ let v186 : UH3 = UH3_0 │
00:01:39 verbose #4707 > │ let v187 : UH3 = method16(v184, v186) │
00:01:39 verbose #4708 > │ let v188 : (struct (int64 * int64) []) = method17(v187) │
00:01:39 verbose #4709 > │ let v189 : int32 = v188.Length │
00:01:39 verbose #4710 > │ let v190 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:39 verbose #4711 > │ (int64 * int64)> (v189) │
00:01:39 verbose #4712 > │ let v191 : Mut0 = {l0 = 0} : Mut0 │
00:01:39 verbose #4713 > │ while method20(v189, v191) do │
00:01:39 verbose #4714 > │ let v193 : int32 = v191.l0 │
00:01:39 verbose #4715 > │ let struct (v194 : int64, v195 : int64) = v188.[int v193] │
00:01:39 verbose #4716 > │ let v196 : int64 = v194 + 1L │
00:01:39 verbose #4717 > │ v190.[int v193] <- struct (v196, v195) │
00:01:39 verbose #4718 > │ let v197 : int32 = v193 + 1 │
00:01:39 verbose #4719 > │ v191.l0 <- v197 │
00:01:39 verbose #4720 > │ () │
00:01:39 verbose #4721 > │ let v198 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:39 verbose #4722 > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:39 verbose #4723 > │ let v199 : (struct (int64 * int64) -> int64) = closure6() │
00:01:39 verbose #4724 > │ let v200 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:39 verbose #4725 > │ ])) = v198 v199 │
00:01:39 verbose #4726 > │ let v201 : (struct (int64 * int64) []) = v200 v190 │
00:01:39 verbose #4727 > │ let struct (v202 : int64, v203 : int64) = v201.[int 0] │
00:01:39 verbose #4728 > │ let v204 : string = $"%A{struct (v202, v203)}" │
00:01:39 verbose #4729 > │ let v205 : bool = v169 = v171 │
00:01:39 verbose #4730 > │ let v210 : US1 = │
00:01:39 verbose #4731 > │ if v205 then │
00:01:39 verbose #4732 > │ let v206 : System.ConsoleColor = │
00:01:39 verbose #4733 > │ System.ConsoleColor.DarkGreen │
00:01:39 verbose #4734 > │ US1_0(v206) │
00:01:39 verbose #4735 > │ else │
00:01:39 verbose #4736 > │ let v208 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:39 verbose #4737 > │ US1_0(v208) │
00:01:39 verbose #4738 > │ let v211 : UH2 = UH2_0 │
00:01:39 verbose #4739 > │ let v212 : UH2 = UH2_1(v204, v211) │
00:01:39 verbose #4740 > │ let v213 : UH2 = UH2_1(v171, v212) │
00:01:39 verbose #4741 > │ let v214 : UH2 = UH2_1(v169, v213) │
00:01:39 verbose #4742 > │ let v215 : UH2 = UH2_1(v170, v214) │
00:01:39 verbose #4743 > │ v165.[int v168] <- struct (v215, v210) │
00:01:39 verbose #4744 > │ let v216 : uint64 = v168 + 1UL │
00:01:39 verbose #4745 > │ v166.l0 <- v216 │
00:01:39 verbose #4746 > │ () │
00:01:39 verbose #4747 > │ let v217 : string = "Input" │
00:01:39 verbose #4748 > │ let v218 : string = "Expected" │
00:01:39 verbose #4749 > │ let v219 : string = "Result" │
00:01:39 verbose #4750 > │ let v220 : string = "Best" │
00:01:39 verbose #4751 > │ let v221 : UH2 = UH2_0 │
00:01:39 verbose #4752 > │ let v222 : UH2 = UH2_1(v220, v221) │
00:01:39 verbose #4753 > │ let v223 : UH2 = UH2_1(v219, v222) │
00:01:39 verbose #4754 > │ let v224 : UH2 = UH2_1(v218, v223) │
00:01:39 verbose #4755 > │ let v225 : UH2 = UH2_1(v217, v224) │
00:01:39 verbose #4756 > │ let v226 : US1 = US1_1 │
00:01:39 verbose #4757 > │ let v227 : string = "---" │
00:01:39 verbose #4758 > │ let v228 : UH2 = UH2_0 │
00:01:39 verbose #4759 > │ let v229 : UH2 = UH2_1(v227, v228) │
00:01:39 verbose #4760 > │ let v230 : UH2 = UH2_1(v227, v229) │
00:01:39 verbose #4761 > │ let v231 : UH2 = UH2_1(v227, v230) │
00:01:39 verbose #4762 > │ let v232 : UH2 = UH2_1(v227, v231) │
00:01:39 verbose #4763 > │ let v233 : US1 = US1_1 │
00:01:39 verbose #4764 > │ let v234 : UH4 = UH4_0 │
00:01:39 verbose #4765 > │ let v235 : UH4 = UH4_1(v232, v233, v234) │
00:01:39 verbose #4766 > │ let v236 : UH4 = UH4_1(v225, v226, v235) │
00:01:39 verbose #4767 > │ let v237 : (struct (UH2 * US1) []) = method21(v236) │
00:01:39 verbose #4768 > │ let v238 : uint64 = System.Convert.ToUInt64 v237.Length │
00:01:39 verbose #4769 > │ let v239 : uint64 = System.Convert.ToUInt64 v165.Length │
00:01:39 verbose #4770 > │ let v240 : uint64 = v238 + v239 │
00:01:39 verbose #4771 > │ let v241 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:39 verbose #4772 > │ US1)> (System.Convert.ToInt32(v240)) │
00:01:39 verbose #4773 > │ let v242 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4774 > │ while method5(v240, v242) do │
00:01:39 verbose #4775 > │ let v244 : uint64 = v242.l0 │
00:01:39 verbose #4776 > │ let v245 : bool = v244 < v238 │
00:01:39 verbose #4777 > │ let struct (v251 : UH2, v252 : US1) = │
00:01:39 verbose #4778 > │ if v245 then │
00:01:39 verbose #4779 > │ let struct (v246 : UH2, v247 : US1) = v237.[int v244] │
00:01:39 verbose #4780 > │ struct (v246, v247) │
00:01:39 verbose #4781 > │ else │
00:01:39 verbose #4782 > │ let v248 : uint64 = v244 - v238 │
00:01:39 verbose #4783 > │ let struct (v249 : UH2, v250 : US1) = v165.[int v248] │
00:01:39 verbose #4784 > │ struct (v249, v250) │
00:01:39 verbose #4785 > │ v241.[int v244] <- struct (v251, v252) │
00:01:39 verbose #4786 > │ let v253 : uint64 = v244 + 1UL │
00:01:39 verbose #4787 > │ v242.l0 <- v253 │
00:01:39 verbose #4788 > │ () │
00:01:39 verbose #4789 > │ let v254 : uint64 = System.Convert.ToUInt64 v241.Length │
00:01:39 verbose #4790 > │ let v255 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:39 verbose #4791 > │ (System.Convert.ToInt32(v254)) │
00:01:39 verbose #4792 > │ let v256 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4793 > │ while method5(v254, v256) do │
00:01:39 verbose #4794 > │ let v258 : uint64 = v256.l0 │
00:01:39 verbose #4795 > │ let struct (v259 : UH2, v260 : US1) = v241.[int v258] │
00:01:39 verbose #4796 > │ let v261 : (string []) = method24(v259) │
00:01:39 verbose #4797 > │ v255.[int v258] <- v261 │
00:01:39 verbose #4798 > │ let v262 : uint64 = v258 + 1UL │
00:01:39 verbose #4799 > │ v256.l0 <- v262 │
00:01:39 verbose #4800 > │ () │
00:01:39 verbose #4801 > │ let v263 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:39 verbose #4802 > │ let v264 : ((string []) []) = v263 v255 │
00:01:39 verbose #4803 > │ let v265 : uint64 = System.Convert.ToUInt64 v264.Length │
00:01:39 verbose #4804 > │ let v266 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4805 > │ (System.Convert.ToInt32(v265)) │
00:01:39 verbose #4806 > │ let v267 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4807 > │ while method5(v265, v267) do │
00:01:39 verbose #4808 > │ let v269 : uint64 = v267.l0 │
00:01:39 verbose #4809 > │ let v270 : (string []) = v264.[int v269] │
00:01:39 verbose #4810 > │ let v271 : uint64 = System.Convert.ToUInt64 v270.Length │
00:01:39 verbose #4811 > │ let v272 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #4812 > │ (System.Convert.ToInt32(v271)) │
00:01:39 verbose #4813 > │ let v273 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4814 > │ while method5(v271, v273) do │
00:01:39 verbose #4815 > │ let v275 : uint64 = v273.l0 │
00:01:39 verbose #4816 > │ let v276 : string = v270.[int v275] │
00:01:39 verbose #4817 > │ let v277 : int64 = System.Convert.ToInt64 v276.Length │
00:01:39 verbose #4818 > │ v272.[int v275] <- v277 │
00:01:39 verbose #4819 > │ let v278 : uint64 = v275 + 1UL │
00:01:39 verbose #4820 > │ v273.l0 <- v278 │
00:01:39 verbose #4821 > │ () │
00:01:39 verbose #4822 > │ let v279 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:39 verbose #4823 > │ let v280 : (int64 []) = v279 v272 │
00:01:39 verbose #4824 > │ let v281 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:39 verbose #4825 > │ let v282 : ((int64 []) -> int64 option) = v281 0 │
00:01:39 verbose #4826 > │ let v283 : int64 option = v282 v280 │
00:01:39 verbose #4827 > │ let v284 : (int64 -> US2) = method27() │
00:01:39 verbose #4828 > │ let v285 : US2 = US2_1 │
00:01:39 verbose #4829 > │ let v286 : US2 = v283 |> Option.map v284 |> Option.defaultValue v285 │
00:01:39 verbose #4830 > │ let v289 : int64 = │
00:01:39 verbose #4831 > │ match v286 with │
00:01:39 verbose #4832 > │ | US2_1 -> (* None *) │
00:01:39 verbose #4833 > │ 0L │
00:01:39 verbose #4834 > │ | US2_0(v287) -> (* Some *) │
00:01:39 verbose #4835 > │ v287 │
00:01:39 verbose #4836 > │ v266.[int v269] <- v289 │
00:01:39 verbose #4837 > │ let v290 : uint64 = v269 + 1UL │
00:01:39 verbose #4838 > │ v267.l0 <- v290 │
00:01:39 verbose #4839 > │ () │
00:01:39 verbose #4840 > │ let v291 : uint64 = System.Convert.ToUInt64 v266.Length │
00:01:39 verbose #4841 > │ let v292 : UH5 = UH5_0 │
00:01:39 verbose #4842 > │ let v293 : Mut3 = {l0 = 0UL; l1 = v292; l2 = 0} : Mut3 │
00:01:39 verbose #4843 > │ while method28(v291, v293) do │
00:01:39 verbose #4844 > │ let v295 : uint64 = v293.l0 │
00:01:39 verbose #4845 > │ let struct (v296 : UH5, v297 : int32) = v293.l1, v293.l2 │
00:01:39 verbose #4846 > │ let v298 : int64 = v266.[int v295] │
00:01:39 verbose #4847 > │ let v299 : int32 = v297 + 1 │
00:01:39 verbose #4848 > │ let v300 : uint64 = v295 + 1UL │
00:01:39 verbose #4849 > │ let v301 : UH5 = UH5_1(v297, v298, v296) │
00:01:39 verbose #4850 > │ v293.l0 <- v300 │
00:01:39 verbose #4851 > │ v293.l1 <- v301 │
00:01:39 verbose #4852 > │ v293.l2 <- v299 │
00:01:39 verbose #4853 > │ () │
00:01:39 verbose #4854 > │ let struct (v302 : UH5, v303 : int32) = v293.l1, v293.l2 │
00:01:39 verbose #4855 > │ let v304 : UH5 = UH5_0 │
00:01:39 verbose #4856 > │ let v305 : UH5 = method29(v302, v304) │
00:01:39 verbose #4857 > │ let v306 : (struct (int32 * int64) []) = method30(v305) │
00:01:39 verbose #4858 > │ let v307 : Map<int32, int64> = v306 |> Array.map (fun (struct (a, b)) -> │
00:01:39 verbose #4859 > │ a, b) |> Map.ofArray │
00:01:39 verbose #4860 > │ let v308 : (struct ((string []) * US1) []) = Array.zeroCreate<struct │
00:01:39 verbose #4861 > │ ((string []) * US1)> (System.Convert.ToInt32(v254)) │
00:01:39 verbose #4862 > │ let v309 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4863 > │ while method5(v254, v309) do │
00:01:39 verbose #4864 > │ let v311 : uint64 = v309.l0 │
00:01:39 verbose #4865 > │ let struct (v312 : UH2, v313 : US1) = v241.[int v311] │
00:01:39 verbose #4866 > │ let v314 : UH6 = UH6_0 │
00:01:39 verbose #4867 > │ let v315 : int32 = 0 │
00:01:39 verbose #4868 > │ let struct (v316 : UH6, v317 : int32) = method33(v312, v314, v315) │
00:01:39 verbose #4869 > │ let v318 : UH6 = UH6_0 │
00:01:39 verbose #4870 > │ let v319 : UH6 = method34(v316, v318) │
00:01:39 verbose #4871 > │ let v320 : UH2 = UH2_0 │
00:01:39 verbose #4872 > │ let v321 : UH2 = method35(v307, v319, v320) │
00:01:39 verbose #4873 > │ let v322 : (string []) = method36(v321) │
00:01:39 verbose #4874 > │ v308.[int v311] <- struct (v322, v313) │
00:01:39 verbose #4875 > │ let v323 : uint64 = v311 + 1UL │
00:01:39 verbose #4876 > │ v309.l0 <- v323 │
00:01:39 verbose #4877 > │ () │
00:01:39 verbose #4878 > │ System.Console.WriteLine v27 │
00:01:39 verbose #4879 > │ let v324 : uint64 = System.Convert.ToUInt64 v308.Length │
00:01:39 verbose #4880 > │ let v325 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4881 > │ while method5(v324, v325) do │
00:01:39 verbose #4882 > │ let v327 : uint64 = v325.l0 │
00:01:39 verbose #4883 > │ let struct (v328 : (string []), v329 : US1) = v308.[int v327] │
00:01:39 verbose #4884 > │ match v329 with │
00:01:39 verbose #4885 > │ | US1_1 -> (* None *) │
00:01:39 verbose #4886 > │ let v333 : unit option = None │
00:01:39 verbose #4887 > │ let v334 : bool = true in let mutable _v333 = v333 │
00:01:39 verbose #4888 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4889 > │ () │
00:01:39 verbose #4890 > │ #endif │
00:01:39 verbose #4891 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4892 > │ () │
00:01:39 verbose #4893 > │ #endif │
00:01:39 verbose #4894 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4895 > │ () │
00:01:39 verbose #4896 > │ #endif │
00:01:39 verbose #4897 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4898 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4899 > │ System.Console.ResetColor () │
00:01:39 verbose #4900 > │ () │
00:01:39 verbose #4901 > │ #endif │
00:01:39 verbose #4902 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4903 > │ () │
00:01:39 verbose #4904 > │ #endif │
00:01:39 verbose #4905 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4906 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4907 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4908 > │ () │
00:01:39 verbose #4909 > │ #endif │
00:01:39 verbose #4910 > │ |> fun x -> _v333 <- Some x │
00:01:39 verbose #4911 > │ _v333.Value │
00:01:39 verbose #4912 > │ () │
00:01:39 verbose #4913 > │ | US1_0(v330) -> (* Some *) │
00:01:39 verbose #4914 > │ let v331 : unit option = None │
00:01:39 verbose #4915 > │ let v332 : bool = true in let mutable _v331 = v331 │
00:01:39 verbose #4916 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4917 > │ () │
00:01:39 verbose #4918 > │ #endif │
00:01:39 verbose #4919 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4920 > │ () │
00:01:39 verbose #4921 > │ #endif │
00:01:39 verbose #4922 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4923 > │ () │
00:01:39 verbose #4924 > │ #endif │
00:01:39 verbose #4925 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4926 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4927 > │ System.Console.ForegroundColor <- v330 │
00:01:39 verbose #4928 > │ () │
00:01:39 verbose #4929 > │ #endif │
00:01:39 verbose #4930 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4931 > │ () │
00:01:39 verbose #4932 > │ #endif │
00:01:39 verbose #4933 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4934 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4935 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4936 > │ () │
00:01:39 verbose #4937 > │ #endif │
00:01:39 verbose #4938 > │ |> fun x -> _v331 <- Some x │
00:01:39 verbose #4939 > │ _v331.Value │
00:01:39 verbose #4940 > │ () │
00:01:39 verbose #4941 > │ let v335 : string = "\t| " │
00:01:39 verbose #4942 > │ let v336 : string = System.String.Join (v335, v328) │
00:01:39 verbose #4943 > │ System.Console.WriteLine v336 │
00:01:39 verbose #4944 > │ let v337 : unit option = None │
00:01:39 verbose #4945 > │ let v338 : bool = true in let mutable _v337 = v337 │
00:01:39 verbose #4946 > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:39 verbose #4947 > │ () │
00:01:39 verbose #4948 > │ #endif │
00:01:39 verbose #4949 > │ #if FABLE_COMPILER_RUST && WASM │
00:01:39 verbose #4950 > │ () │
00:01:39 verbose #4951 > │ #endif │
00:01:39 verbose #4952 > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:39 verbose #4953 > │ () │
00:01:39 verbose #4954 > │ #endif │
00:01:39 verbose #4955 > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:39 verbose #4956 > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:39 verbose #4957 > │ System.Console.ResetColor () │
00:01:39 verbose #4958 > │ () │
00:01:39 verbose #4959 > │ #endif │
00:01:39 verbose #4960 > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:39 verbose #4961 > │ () │
00:01:39 verbose #4962 > │ #endif │
00:01:39 verbose #4963 > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:39 verbose #4964 > │ FABLE_COMPILER_DART │
00:01:39 verbose #4965 > │ Unchecked.defaultof<unit> │
00:01:39 verbose #4966 > │ () │
00:01:39 verbose #4967 > │ #endif │
00:01:39 verbose #4968 > │ |> fun x -> _v337 <- Some x │
00:01:39 verbose #4969 > │ _v337.Value │
00:01:39 verbose #4970 > │ let v339 : uint64 = v327 + 1UL │
00:01:39 verbose #4971 > │ v325.l0 <- v339 │
00:01:39 verbose #4972 > │ () │
00:01:39 verbose #4973 > │ let v340 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:39 verbose #4974 > │ (System.Convert.ToInt32(v164)) │
00:01:39 verbose #4975 > │ let v341 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4976 > │ while method5(v164, v341) do │
00:01:39 verbose #4977 > │ let v343 : uint64 = v341.l0 │
00:01:39 verbose #4978 > │ let struct (v344 : string, v345 : string, v346 : string, v347 : │
00:01:39 verbose #4979 > │ (int64 [])) = v75.[int v343] │
00:01:39 verbose #4980 > │ let v348 : (int64 -> float) = float │
00:01:39 verbose #4981 > │ let v349 : uint64 = System.Convert.ToUInt64 v347.Length │
00:01:39 verbose #4982 > │ let v350 : (float []) = Array.zeroCreate<float> │
00:01:39 verbose #4983 > │ (System.Convert.ToInt32(v349)) │
00:01:39 verbose #4984 > │ let v351 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #4985 > │ while method5(v349, v351) do │
00:01:39 verbose #4986 > │ let v353 : uint64 = v351.l0 │
00:01:39 verbose #4987 > │ let v354 : int64 = v347.[int v353] │
00:01:39 verbose #4988 > │ let v355 : float = v348 v354 │
00:01:39 verbose #4989 > │ v350.[int v353] <- v355 │
00:01:39 verbose #4990 > │ let v356 : uint64 = v353 + 1UL │
00:01:39 verbose #4991 > │ v351.l0 <- v356 │
00:01:39 verbose #4992 > │ () │
00:01:39 verbose #4993 > │ v340.[int v343] <- v350 │
00:01:39 verbose #4994 > │ let v357 : uint64 = v343 + 1UL │
00:01:39 verbose #4995 > │ v341.l0 <- v357 │
00:01:39 verbose #4996 > │ () │
00:01:39 verbose #4997 > │ let v358 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:39 verbose #4998 > │ let v359 : ((float []) []) = v358 v340 │
00:01:39 verbose #4999 > │ let v360 : uint64 = System.Convert.ToUInt64 v359.Length │
00:01:39 verbose #5000 > │ let v361 : (float []) = Array.zeroCreate<float> │
00:01:39 verbose #5001 > │ (System.Convert.ToInt32(v360)) │
00:01:39 verbose #5002 > │ let v362 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #5003 > │ while method5(v360, v362) do │
00:01:39 verbose #5004 > │ let v364 : uint64 = v362.l0 │
00:01:39 verbose #5005 > │ let v365 : (float []) = v359.[int v364] │
00:01:39 verbose #5006 > │ let v366 : ((float []) -> float) = Array.average │
00:01:39 verbose #5007 > │ let v367 : float = v366 v365 │
00:01:39 verbose #5008 > │ v361.[int v364] <- v367 │
00:01:39 verbose #5009 > │ let v368 : uint64 = v364 + 1UL │
00:01:39 verbose #5010 > │ v362.l0 <- v368 │
00:01:39 verbose #5011 > │ () │
00:01:39 verbose #5012 > │ let v369 : (float -> int64) = int64 │
00:01:39 verbose #5013 > │ let v370 : uint64 = System.Convert.ToUInt64 v361.Length │
00:01:39 verbose #5014 > │ let v371 : (int64 []) = Array.zeroCreate<int64> │
00:01:39 verbose #5015 > │ (System.Convert.ToInt32(v370)) │
00:01:39 verbose #5016 > │ let v372 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #5017 > │ while method5(v370, v372) do │
00:01:39 verbose #5018 > │ let v374 : uint64 = v372.l0 │
00:01:39 verbose #5019 > │ let v375 : float = v361.[int v374] │
00:01:39 verbose #5020 > │ let v376 : int64 = v369 v375 │
00:01:39 verbose #5021 > │ v371.[int v374] <- v376 │
00:01:39 verbose #5022 > │ let v377 : uint64 = v374 + 1UL │
00:01:39 verbose #5023 > │ v372.l0 <- v377 │
00:01:39 verbose #5024 > │ () │
00:01:39 verbose #5025 > │ let v378 : uint64 = System.Convert.ToUInt64 v371.Length │
00:01:39 verbose #5026 > │ let v379 : UH5 = UH5_0 │
00:01:39 verbose #5027 > │ let v380 : Mut3 = {l0 = 0UL; l1 = v379; l2 = 0} : Mut3 │
00:01:39 verbose #5028 > │ while method28(v378, v380) do │
00:01:39 verbose #5029 > │ let v382 : uint64 = v380.l0 │
00:01:39 verbose #5030 > │ let struct (v383 : UH5, v384 : int32) = v380.l1, v380.l2 │
00:01:39 verbose #5031 > │ let v385 : int64 = v371.[int v382] │
00:01:39 verbose #5032 > │ let v386 : int32 = v384 + 1 │
00:01:39 verbose #5033 > │ let v387 : uint64 = v382 + 1UL │
00:01:39 verbose #5034 > │ let v388 : UH5 = UH5_1(v384, v385, v383) │
00:01:39 verbose #5035 > │ v380.l0 <- v387 │
00:01:39 verbose #5036 > │ v380.l1 <- v388 │
00:01:39 verbose #5037 > │ v380.l2 <- v386 │
00:01:39 verbose #5038 > │ () │
00:01:39 verbose #5039 > │ let struct (v389 : UH5, v390 : int32) = v380.l1, v380.l2 │
00:01:39 verbose #5040 > │ let v391 : UH5 = UH5_0 │
00:01:39 verbose #5041 > │ let v392 : UH5 = method29(v389, v391) │
00:01:39 verbose #5042 > │ let v393 : (struct (int32 * int64) []) = method39(v392) │
00:01:39 verbose #5043 > │ System.Console.WriteLine v27 │
00:01:39 verbose #5044 > │ let v394 : string = "Average Ranking " │
00:01:39 verbose #5045 > │ System.Console.WriteLine v394 │
00:01:39 verbose #5046 > │ let v395 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:39 verbose #5047 > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:39 verbose #5048 > │ let v396 : (struct (int32 * int64) -> int64) = closure8() │
00:01:39 verbose #5049 > │ let v397 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:39 verbose #5050 > │ = v395 v396 │
00:01:39 verbose #5051 > │ let v398 : (struct (int32 * int64) []) = v397 v393 │
00:01:39 verbose #5052 > │ let v399 : uint64 = System.Convert.ToUInt64 v398.Length │
00:01:39 verbose #5053 > │ let v400 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:39 verbose #5054 > │ while method5(v399, v400) do │
00:01:39 verbose #5055 > │ let v402 : uint64 = v400.l0 │
00:01:39 verbose #5056 > │ let struct (v403 : int32, v404 : int64) = v398.[int v402] │
00:01:39 verbose #5057 > │ let v405 : string = $"Test case %d{v403 + 1}. Average Time: %A{v404} │
00:01:39 verbose #5058 > │ " │
00:01:39 verbose #5059 > │ System.Console.WriteLine v405 │
00:01:39 verbose #5060 > │ let v406 : uint64 = v402 + 1UL │
00:01:39 verbose #5061 > │ v400.l0 <- v406 │
00:01:39 verbose #5062 > │ () │
00:01:39 verbose #5063 > │ () │
00:01:39 verbose #5064 > │ method0() │
00:01:39 verbose #5065 > │ │
00:01:39 verbose #5066 > │ │
00:01:39 verbose #5067 > │ │
00:01:39 verbose #5068 > │ Test: v25 │
00:01:39 verbose #5069 > │ │
00:01:39 verbose #5070 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:39 verbose #5071 > │ Test case 1. semi_open_1. Time: 621 │
00:01:39 verbose #5072 > │ Test case 2. closed_1. Time: 595 │
00:01:39 verbose #5073 > │ Test case 3. semi_open_2. Time: 702 │
00:01:39 verbose #5074 > │ Test case 4. closed_2. Time: 559 │
00:01:39 verbose #5075 > │ │
00:01:39 verbose #5076 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:39 verbose #5077 > │ Test case 1. semi_open_1. Time: 477 │
00:01:39 verbose #5078 > │ Test case 2. closed_1. Time: 466 │
00:01:39 verbose #5079 > │ Test case 3. semi_open_2. Time: 459 │
00:01:39 verbose #5080 > │ Test case 4. closed_2. Time: 468 │
00:01:39 verbose #5081 > │ │
00:01:39 verbose #5082 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:39 verbose #5083 > │ Test case 1. semi_open_1. Time: 457 │
00:01:39 verbose #5084 > │ Test case 2. closed_1. Time: 481 │
00:01:39 verbose #5085 > │ Test case 3. semi_open_2. Time: 513 │
00:01:39 verbose #5086 > │ Test case 4. closed_2. Time: 476 │
00:01:39 verbose #5087 > │ │
00:01:39 verbose #5088 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:39 verbose #5089 > │ Test case 1. semi_open_1. Time: 486 │
00:01:39 verbose #5090 > │ Test case 2. closed_1. Time: 492 │
00:01:39 verbose #5091 > │ Test case 3. semi_open_2. Time: 487 │
00:01:39 verbose #5092 > │ Test case 4. closed_2. Time: 471 │
00:01:39 verbose #5093 > │ │
00:01:39 verbose #5094 > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:39 verbose #5095 > │ 17; 18; 19; 20; │
00:01:39 verbose #5096 > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:39 verbose #5097 > │ 37; 38; │
00:01:39 verbose #5098 > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:39 verbose #5099 > │ 55; 56; │
00:01:39 verbose #5100 > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:39 verbose #5101 > │ 73; 74; │
00:01:39 verbose #5102 > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:39 verbose #5103 > │ 91; 92; │
00:01:39 verbose #5104 > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:39 verbose #5105 > │ Test case 1. semi_open_1. Time: 510 │
00:01:39 verbose #5106 > │ Test case 2. closed_1. Time: 495 │
00:01:39 verbose #5107 > │ Test case 3. semi_open_2. Time: 498 │
00:01:39 verbose #5108 > │ Test case 4. closed_2. Time: 485 │
00:01:39 verbose #5109 > │ │
00:01:39 verbose #5110 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:39 verbose #5111 > │ Test case 1. semi_open_1. Time: 459 │
00:01:39 verbose #5112 > │ Test case 2. closed_1. Time: 448 │
00:01:39 verbose #5113 > │ Test case 3. semi_open_2. Time: 451 │
00:01:39 verbose #5114 > │ Test case 4. closed_2. Time: 434 │
00:01:39 verbose #5115 > │ │
00:01:39 verbose #5116 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:39 verbose #5117 > │ Test case 1. semi_open_1. Time: 463 │
00:01:39 verbose #5118 > │ Test case 2. closed_1. Time: 474 │
00:01:39 verbose #5119 > │ Test case 3. semi_open_2. Time: 503 │
00:01:39 verbose #5120 > │ Test case 4. closed_2. Time: 557 │
00:01:39 verbose #5121 > │ │
00:01:39 verbose #5122 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:39 verbose #5123 > │ Test case 1. semi_open_1. Time: 564 │
00:01:39 verbose #5124 > │ Test case 2. closed_1. Time: 464 │
00:01:39 verbose #5125 > │ Test case 3. semi_open_2. Time: 462 │
00:01:39 verbose #5126 > │ Test case 4. closed_2. Time: 468 │
00:01:39 verbose #5127 > │ │
00:01:39 verbose #5128 > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:39 verbose #5129 > │ Test case 1. semi_open_1. Time: 462 │
00:01:39 verbose #5130 > │ Test case 2. closed_1. Time: 476 │
00:01:39 verbose #5131 > │ Test case 3. semi_open_2. Time: 464 │
00:01:39 verbose #5132 > │ Test case 4. closed_2. Time: 464 │
00:01:39 verbose #5133 > │ │
00:01:39 verbose #5134 > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:39 verbose #5135 > │ 17; 18; 19; 20; │
00:01:39 verbose #5136 > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:39 verbose #5137 > │ 37; 38; │
00:01:39 verbose #5138 > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:39 verbose #5139 > │ 55; 56; │
00:01:39 verbose #5140 > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:39 verbose #5141 > │ 73; 74; │
00:01:39 verbose #5142 > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:39 verbose #5143 > │ 91; 92; │
00:01:39 verbose #5144 > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:39 verbose #5145 > │ Test case 1. semi_open_1. Time: 487 │
00:01:39 verbose #5146 > │ Test case 2. closed_1. Time: 492 │
00:01:39 verbose #5147 > │ Test case 3. semi_open_2. Time: 488 │
00:01:39 verbose #5148 > │ Test case 4. closed_2. Time: 493 │
00:01:39 verbose #5149 > │ │
00:01:39 verbose #5150 > │ Input │
00:01:39 verbose #5151 > │ │
00:01:39 verbose #5152 > │ │
00:01:39 verbose #5153 > │ │
00:01:39 verbose #5154 > │ | Expected | Result | Best │
00:01:39 verbose #5155 > │ --- │
00:01:39 verbose #5156 > │ │
00:01:39 verbose #5157 > │ │
00:01:39 verbose #5158 > │ │
00:01:39 verbose #5159 > │ | --- | --- | --- │
00:01:39 verbose #5160 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:39 verbose #5161 > │ │
00:01:39 verbose #5162 > │ │
00:01:39 verbose #5163 > │ │
00:01:39 verbose #5164 > │ | US0_0 3 | US0_0 3 | struct (4L, 559L) │
00:01:39 verbose #5165 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:39 verbose #5166 > │ │
00:01:39 verbose #5167 > │ │
00:01:39 verbose #5168 > │ │
00:01:39 verbose #5169 > │ | US0_0 0 | US0_0 0 | struct (3L, 459L) │
00:01:39 verbose #5170 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:39 verbose #5171 > │ │
00:01:39 verbose #5172 > │ │
00:01:39 verbose #5173 > │ │
00:01:39 verbose #5174 > │ | US0_0 6 | US0_0 6 | struct (1L, 457L) │
00:01:39 verbose #5175 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:39 verbose #5176 > │ │
00:01:39 verbose #5177 > │ │
00:01:39 verbose #5178 > │ │
00:01:39 verbose #5179 > │ | US0_1 | US0_1 | struct (4L, 471L) │
00:01:39 verbose #5180 > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:39 verbose #5181 > │ 20; │
00:01:39 verbose #5182 > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:39 verbose #5183 > │ 37; 38; │
00:01:39 verbose #5184 > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:39 verbose #5185 > │ 55; 56; │
00:01:39 verbose #5186 > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:39 verbose #5187 > │ 73; 74; │
00:01:39 verbose #5188 > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:39 verbose #5189 > │ 91; 92; │
00:01:39 verbose #5190 > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:39 verbose #5191 > │ struct (4L, 485L) │
00:01:39 verbose #5192 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:39 verbose #5193 > │ │
00:01:39 verbose #5194 > │ │
00:01:39 verbose #5195 > │ │
00:01:39 verbose #5196 > │ | US0_0 3 | US0_0 3 | struct (4L, 434L) │
00:01:39 verbose #5197 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:39 verbose #5198 > │ │
00:01:39 verbose #5199 > │ │
00:01:39 verbose #5200 > │ │
00:01:39 verbose #5201 > │ | US0_0 0 | US0_0 0 | struct (1L, 463L) │
00:01:39 verbose #5202 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:39 verbose #5203 > │ │
00:01:39 verbose #5204 > │ │
00:01:39 verbose #5205 > │ │
00:01:39 verbose #5206 > │ | US0_0 6 | US0_0 6 | struct (3L, 462L) │
00:01:39 verbose #5207 > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:39 verbose #5208 > │ │
00:01:39 verbose #5209 > │ │
00:01:39 verbose #5210 > │ │
00:01:39 verbose #5211 > │ | US0_1 | US0_1 | struct (1L, 462L) │
00:01:39 verbose #5212 > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:39 verbose #5213 > │ 20; │
00:01:39 verbose #5214 > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:39 verbose #5215 > │ 37; 38; │
00:01:39 verbose #5216 > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:39 verbose #5217 > │ 55; 56; │
00:01:39 verbose #5218 > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:39 verbose #5219 > │ 73; 74; │
00:01:39 verbose #5220 > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:39 verbose #5221 > │ 91; 92; │
00:01:39 verbose #5222 > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:39 verbose #5223 > │ struct (1L, 487L) │
00:01:39 verbose #5224 > │ │
00:01:39 verbose #5225 > │ Average Ranking │
00:01:39 verbose #5226 > │ Test case 4. Average Time: 487L │
00:01:39 verbose #5227 > │ Test case 2. Average Time: 488L │
00:01:39 verbose #5228 > │ Test case 1. Average Time: 498L │
00:01:39 verbose #5229 > │ Test case 3. Average Time: 502L │
00:01:39 verbose #5230 > │ │
00:01:39 verbose #5231 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #5232 >
00:01:39 verbose #5233 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:39 verbose #5234 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:39 verbose #5235 > │ ## returnLettersWithOddCountTests │
00:01:39 verbose #5236 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #5237 >
00:01:39 verbose #5238 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:39 verbose #5239 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:39 verbose #5240 > │ Test: ReturnLettersWithOddCount │
00:01:39 verbose #5241 > │ │
00:01:39 verbose #5242 > │ Solution: 1 │
00:01:39 verbose #5243 > │ Test case 1. A. Time: 645L │
00:01:39 verbose #5244 > │ │
00:01:39 verbose #5245 > │ Solution: 2 │
00:01:39 verbose #5246 > │ Test case 1. A. Time: 663L │
00:01:39 verbose #5247 > │ │
00:01:39 verbose #5248 > │ Solution: 3 │
00:01:39 verbose #5249 > │ Test case 1. A. Time: 680L │
00:01:39 verbose #5250 > │ │
00:01:39 verbose #5251 > │ Solution: 9 │
00:01:39 verbose #5252 > │ Test case 1. A. Time: 730L │
00:01:39 verbose #5253 > │ │
00:01:39 verbose #5254 > │ Solution: 10 │
00:01:39 verbose #5255 > │ Test case 1. A. Time: 815L │
00:01:39 verbose #5256 > │ │
00:01:39 verbose #5257 > │ Input | Expected | Result | Best │
00:01:39 verbose #5258 > │ --- | --- | --- | --- │
00:01:39 verbose #5259 > │ 1 | a | a | (1, 645) │
00:01:39 verbose #5260 > │ 2 | ba | ba | (1, 663) │
00:01:39 verbose #5261 > │ 3 | aaa | aaa | (1, 680) │
00:01:39 verbose #5262 > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 730) │
00:01:39 verbose #5263 > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 815) │
00:01:39 verbose #5264 > │ │
00:01:39 verbose #5265 > │ Averages │
00:01:39 verbose #5266 > │ Test case 1. Average Time: 706L │
00:01:39 verbose #5267 > │ │
00:01:39 verbose #5268 > │ Ranking │
00:01:39 verbose #5269 > │ Test case 1. Average Time: 706L │
00:01:39 verbose #5270 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #5271 >
00:01:39 verbose #5272 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:39 verbose #5273 > //// test
00:01:39 verbose #5274 >
00:01:39 verbose #5275 > let solutions = [[
00:01:39 verbose #5276 > "A",
00:01:39 verbose #5277 > fun n ->
00:01:39 verbose #5278 > let mutable _builder = StringBuilder (new string('a', n))
00:01:39 verbose #5279 > if n % 2 = 0 then
00:01:39 verbose #5280 > _builder.[[0]] <- 'b'
00:01:39 verbose #5281 >
00:01:39 verbose #5282 > _builder.ToString ()
00:01:39 verbose #5283 > ]]
00:01:39 verbose #5284 > let testCases = seq {
00:01:39 verbose #5285 > 1, "a"
00:01:39 verbose #5286 > 2, "ba"
00:01:39 verbose #5287 > 3, "aaa"
00:01:39 verbose #5288 > 9, "aaaaaaaaa"
00:01:39 verbose #5289 > 10, "baaaaaaaaa"
00:01:39 verbose #5290 > }
00:01:39 verbose #5291 > let rec returnLettersWithOddCountTests =
00:01:39 verbose #5292 > runAll (nameof returnLettersWithOddCountTests) _count solutions testCases
00:01:39 verbose #5293 > returnLettersWithOddCountTests
00:01:39 verbose #5294 > |> sortResultList
00:01:40 verbose #5295 >
00:01:40 verbose #5296 > ╭─[ 885.39ms - stdout ]────────────────────────────────────────────────────────╮
00:01:40 verbose #5297 > │ │
00:01:40 verbose #5298 > │ │
00:01:40 verbose #5299 > │ Test: returnLettersWithOddCountTests │
00:01:40 verbose #5300 > │ │
00:01:40 verbose #5301 > │ Solution: 1 │
00:01:40 verbose #5302 > │ Test case 1. A. Time: 0L │
00:01:40 verbose #5303 > │ │
00:01:40 verbose #5304 > │ Solution: 2 │
00:01:40 verbose #5305 > │ Test case 1. A. Time: 0L │
00:01:40 verbose #5306 > │ │
00:01:40 verbose #5307 > │ Solution: 3 │
00:01:40 verbose #5308 > │ Test case 1. A. Time: 0L │
00:01:40 verbose #5309 > │ │
00:01:40 verbose #5310 > │ Solution: 9 │
00:01:40 verbose #5311 > │ Test case 1. A. Time: 0L │
00:01:40 verbose #5312 > │ │
00:01:40 verbose #5313 > │ Solution: 10 │
00:01:40 verbose #5314 > │ Test case 1. A. Time: 2L │
00:01:40 verbose #5315 > │ │
00:01:40 verbose #5316 > │ Input | Expected | Result | Best │
00:01:40 verbose #5317 > │ --- | --- | --- | --- │
00:01:40 verbose #5318 > │ 1 | a | a | (1, 0) │
00:01:40 verbose #5319 > │ 2 | ba | ba | (1, 0) │
00:01:40 verbose #5320 > │ 3 | aaa | aaa | (1, 0) │
00:01:40 verbose #5321 > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 0) │
00:01:40 verbose #5322 > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 2) │
00:01:40 verbose #5323 > │ │
00:01:40 verbose #5324 > │ Average Ranking │
00:01:40 verbose #5325 > │ Test case 1. Average Time: 0L │
00:01:40 verbose #5326 > │ │
00:01:40 verbose #5327 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #5328 >
00:01:40 verbose #5329 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 verbose #5330 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 verbose #5331 > │ ## hasAnyPairCloseToEachotherTests │
00:01:40 verbose #5332 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #5333 >
00:01:40 verbose #5334 > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 verbose #5335 > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 verbose #5336 > │ Test: HasAnyPairCloseToEachother │
00:01:40 verbose #5337 > │ │
00:01:40 verbose #5338 > │ Solution: 0 │
00:01:40 verbose #5339 > │ Test case 1. A. Time: 137L │
00:01:40 verbose #5340 > │ │
00:01:40 verbose #5341 > │ Solution: 1,2 │
00:01:40 verbose #5342 > │ Test case 1. A. Time: 186L │
00:01:40 verbose #5343 > │ │
00:01:40 verbose #5344 > │ Solution: 3,5 │
00:01:40 verbose #5345 > │ Test case 1. A. Time: 206L │
00:01:40 verbose #5346 > │ │
00:01:40 verbose #5347 > │ Solution: 3,4,6 │
00:01:40 verbose #5348 > │ Test case 1. A. Time: 149L │
00:01:40 verbose #5349 > │ │
00:01:40 verbose #5350 > │ Solution: 2,4,6 │
00:01:40 verbose #5351 > │ Test case 1. A. Time: 150L │
00:01:40 verbose #5352 > │ │
00:01:40 verbose #5353 > │ Input | Expected | Result | Best │
00:01:40 verbose #5354 > │ --- | --- | --- | --- │
00:01:40 verbose #5355 > │ 0 | False | False | (1, 137) │
00:01:40 verbose #5356 > │ 1,2 | True | True | (1, 186) │
00:01:40 verbose #5357 > │ 3,5 | False | False | (1, 206) │
00:01:40 verbose #5358 > │ 3,4,6 | True | True | (1, 149) │
00:01:40 verbose #5359 > │ 2,4,6 | False | False | (1, 150) │
00:01:40 verbose #5360 > │ │
00:01:40 verbose #5361 > │ Averages │
00:01:40 verbose #5362 > │ Test case 1. Average Time: 165L │
00:01:40 verbose #5363 > │ │
00:01:40 verbose #5364 > │ Ranking │
00:01:40 verbose #5365 > │ Test case 1. Average Time: 165L │
00:01:40 verbose #5366 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #5367 >
00:01:40 verbose #5368 > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:40 verbose #5369 > //// test
00:01:40 verbose #5370 >
00:01:40 verbose #5371 > let solutions = [[
00:01:40 verbose #5372 > "A",
00:01:40 verbose #5373 > fun (a: int[[]]) ->
00:01:40 verbose #5374 > let indices = System.Linq.Enumerable.Range(0, a.Length) |>
00:01:40 verbose #5375 > System.Linq.Enumerable.ToArray
00:01:40 verbose #5376 > System.Array.Sort (a, indices)
00:01:40 verbose #5377 >
00:01:40 verbose #5378 > indices
00:01:40 verbose #5379 > |> Array.take (a.Length - 1)
00:01:40 verbose #5380 > |> Array.exists (fun i -> a.[[i + 1]] - a.[[i]] = 1)
00:01:40 verbose #5381 > ]]
00:01:40 verbose #5382 > let testCases = seq {
00:01:40 verbose #5383 > [[| 0 |]], false
00:01:40 verbose #5384 > [[| 1; 2 |]], true
00:01:40 verbose #5385 > [[| 3; 5 |]], false
00:01:40 verbose #5386 > [[| 3; 4; 6 |]], true
00:01:40 verbose #5387 > [[| 2; 4; 6 |]], false
00:01:40 verbose #5388 > }
00:01:40 verbose #5389 > let rec hasAnyPairCloseToEachotherTests =
00:01:40 verbose #5390 > runAll (nameof hasAnyPairCloseToEachotherTests) _count solutions testCases
00:01:40 verbose #5391 > hasAnyPairCloseToEachotherTests
00:01:40 verbose #5392 > |> sortResultList
00:01:41 verbose #5393 >
00:01:41 verbose #5394 > ╭─[ 862.79ms - stdout ]────────────────────────────────────────────────────────╮
00:01:41 verbose #5395 > │ │
00:01:41 verbose #5396 > │ │
00:01:41 verbose #5397 > │ Test: hasAnyPairCloseToEachotherTests │
00:01:41 verbose #5398 > │ │
00:01:41 verbose #5399 > │ Solution: 0 │
00:01:41 verbose #5400 > │ Test case 1. A. Time: 2L │
00:01:41 verbose #5401 > │ │
00:01:41 verbose #5402 > │ Solution: 1,2 │
00:01:41 verbose #5403 > │ Test case 1. A. Time: 0L │
00:01:41 verbose #5404 > │ │
00:01:41 verbose #5405 > │ Solution: 3,5 │
00:01:41 verbose #5406 > │ Test case 1. A. Time: 0L │
00:01:41 verbose #5407 > │ │
00:01:41 verbose #5408 > │ Solution: 3,4,6 │
00:01:41 verbose #5409 > │ Test case 1. A. Time: 0L │
00:01:41 verbose #5410 > │ │
00:01:41 verbose #5411 > │ Solution: 2,4,6 │
00:01:41 verbose #5412 > │ Test case 1. A. Time: 0L │
00:01:41 verbose #5413 > │ │
00:01:41 verbose #5414 > │ Input | Expected | Result | Best │
00:01:41 verbose #5415 > │ --- | --- | --- | --- │
00:01:41 verbose #5416 > │ 0 | False | False | (1, 2) │
00:01:41 verbose #5417 > │ 1,2 | True | True | (1, 0) │
00:01:41 verbose #5418 > │ 3,5 | False | False | (1, 0) │
00:01:41 verbose #5419 > │ 3,4,6 | True | True | (1, 0) │
00:01:41 verbose #5420 > │ 2,4,6 | False | False | (1, 0) │
00:01:41 verbose #5421 > │ │
00:01:41 verbose #5422 > │ Average Ranking │
00:01:41 verbose #5423 > │ Test case 1. Average Time: 0L │
00:01:41 verbose #5424 > │ │
00:01:41 verbose #5425 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #5426 >
00:01:41 verbose #5427 > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 verbose #5428 > // // test
00:01:41 verbose #5429 >
00:01:41 verbose #5430 > ()
00:01:41 verbose #5431 > 00:01:40 debug #10 Building c:/home/git/polyglot/target/polyglot/spiral_eval/packages/8014057efde7e134b1cff739bd09ed6e4a1f298b31dc495e67550ecb034721ec/main.spi
00:01:41 verbose #5432 >
00:01:41 verbose #5433 > ╭─[ 277.49ms - stdout ]────────────────────────────────────────────────────────╮
00:01:41 verbose #5434 > │ let rec method0 () : unit = │
00:01:41 verbose #5435 > │ () │
00:01:41 verbose #5436 > │ method0() │
00:01:41 verbose #5437 > │ │
00:01:41 verbose #5438 > │ │
00:01:41 verbose #5439 > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #5440 > [NbConvertApp] Converting notebook Perf.dib.ipynb to html
00:01:43 verbose #5441 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:43 verbose #5442 > validate(nb)
00:01:44 verbose #5443 > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:44 verbose #5444 > return _pygments_highlight(
00:01:45 verbose #5445 > [NbConvertApp] Writing 566743 bytes to Perf.dib.html
00:01:45 debug #5446 execute_with_options_async / exit_code: 0 / output.Length: 378047
00:01:45 debug #3 main / executeCommand / exitCode: 0
00:01:45 verbose #4 wait_for_port_access / port: 13805 / retry: 0
00:01:47 debug #5 run_with_timeout_async / timeout: 2000
00:00:00 debug #1 writeDibCode / output: Fs / path: Perf.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: Perf.dib
In [ ]:
{ . "$ScriptDir/../apps/dir-tree-html/build.ps1" } | Invoke-Block
core.Invoke-Dib / Get-Location: C:\home\git\polyglot\apps\dir-tree-html / path: DirTreeHtml.dib / _args: null
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DirTreeHtml (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // common.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase;...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and method1 () : string =
let v0 : string = ""
v0
and closure0 () (v0 : string) : string =
let v1 : string option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : string = null |> unbox<string>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = null |> unbox<string>
v5
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COM...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // async.types
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] type
std_future_Future<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] type
futures_future_TryJoinAll<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] type
rayon_vec_IntoIter<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] type
rayon_iter_Map<'T> = class end
#endif // async.types
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST ...
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 () (v0 : System.Threading.CancellationToken) : US0 =
US0_0(v0)
and method0 () : (System.Threading.CancellationToken -> US0) =
closure1()
and closure2 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : unit option = None
let v2 : bool = true in let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && WASM
null |> unbox<unit>
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
null |> unbox<unit>
()
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // networking.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Er...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // runtime.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // trace.types
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] type Func0<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] type Func0<'T, 'U> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] type Box<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] type Dyn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("$0 + Send")>]] type Send<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] type Fn<'T> = class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] type FnUnit = class end
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] type FnOnce<'T> =
class end
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] type ActionFn<'T> = class end
[[<Fable.Core.Erase; ...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module Spi...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/falco.markup/1.1.1/lib/netstandard2.0/Fal
co.Markup.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> Spir...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitArgs
let inline splitArgs commandLine =
commandLine
|> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.R...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Syst...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open SpiralFileSystem.Operators
open Falco.Markup
── fsharp ──────────────────────────────────────────────────────────────────────
type FileSystemNode =
| File of string * string * int64
| Folder of string * string * FileSystemNode list
| Root of FileSystemNode list
let rec scanDirectory isRoot (basePath : string) (path : string) =
let relativePath =
path
|> SpiralSm.replace basePath ""
|> SpiralSm.replace "\\" "/"
|> SpiralSm.replace "//" "/"
|> SpiralSm.trim_start [[| '/' |]]
let directories =
path
|> System.IO.Directory.GetDirectories
|> Array.toList
|> List.sort
|> List.map (scanDirectory false basePath)
let files =
path
|> System.IO.Directory.GetFiles
|> Array.toList
|> List.sort
|> List.map (fun f -> File (System.IO.Path.GetFileName f, relativePath,
System.IO.FileInfo(f).Length))
let children = directories @ files
if isRoot
then Root children
else Folder (path |> System.IO.Path.GetFileName, relativePath, children)
let rec generateHtml fsNode =
let sizeLabel size =
match float size with
| size when size > 1024.0 * 1024.0 -> $"%.2f{size / 1024.0 / 1024.0} MB"
| size when size > 1024.0 -> $"%.2f{size / 1024.0} KB"
| size -> $"%.2f{size} B"
match fsNode with
| File (fileName, relativePath, size) ->
Elem.div [[]] [[
Text.raw "📄 "
Elem.a [[
Attr.href $"""{relativePath}{if relativePath = "" then "" else
"/"}{fileName}"""
]] [[
Text.raw fileName
]]
Elem.span [[]] [[
Text.raw $" ({size |> sizeLabel})"
]]
]]
| Folder (folderName, relativePath, children) ->
let size =
let rec loop children =
children
|> List.sumBy (function
| File (_, _, size) -> size
| Folder (_, _, children)
| Root children -> loop children
)
loop children
Elem.details [[
Attr.open' "true"
]] [[
Elem.summary [[]] [[
Text.raw "📂 "
Elem.a [[
Attr.href relativePath
]] [[
Text.raw folderName
]]
Elem.span [[]] [[
Text.raw $" ({size |> sizeLabel})"
]]
]]
Elem.div [[]] [[
yield! children |> List.map generateHtml
]]
]]
| Root children ->
Elem.div [[]] [[
yield! children |> List.map generateHtml
]]
let generateHtmlForFileSystem root =
$"""<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<style>
body {{
background-color: #222;
color: #ccc;
}}
a {{
color: #777;
font-size: 15px;
}}
span {{
font-size: 11px;
}}
div > div {{
padding-left: 10px;
}}
details > div {{
padding-left: 19px;
}}
</style>
</head>
<body>
{root |> generateHtml |> renderNode}
</body>
</html>
"""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let struct (tempFolder, disposable) = SpiralFileSystem.create_temp_directory ()
let rec loop d n = async {
if n >= 0 then
tempFolder </> d |> System.IO.Directory.CreateDirectory |> ignore
do!
n
|> string
|> String.replicate (n + 1)
|> SpiralFileSystem.write_all_text_async (tempFolder </> d </>
$"file.txt")
do! loop $"{d}/{n}" (n - 1)
}
loop "_.root" 3
|> Async.RunSynchronously
let html =
scanDirectory true tempFolder tempFolder
|> generateHtmlForFileSystem
html
|> _assertEqual """<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<style>
body {
background-color: #222;
color: #ccc;
}
a {
color: #777;
font-size: 15px;
}
span {
font-size: 11px;
}
div > div {
padding-left: 10px;
}
details > div {
padding-left: 19px;
}
</style>
</head>
<body>
<div><details open="true"><summary>📂 <a href="_.root">_.root</a><span>
(10.00 B)</span></summary><div><details open="true"><summary>📂 <a
href="_.root/3">3</a><span> (6.00 B)</span></summary><div><details
open="true"><summary>📂 <a href="_.root/3/2">2</a><span> (3.00
B)</span></summary><div><details open="true"><summary>📂 <a
href="_.root/3/2/1">1</a><span> (1.00 B)</span></summary><div><div>📄 <a
href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00
B)</span></div></div></details><div>📄 <a
href="_.root/3/2/file.txt">file.txt</a><span> (2.00
B)</span></div></div></details><div>📄 <a
href="_.root/3/file.txt">file.txt</a><span> (3.00
B)</span></div></div></details><div>📄 <a
href="_.root/file.txt">file.txt</a><span> (4.00
B)</span></div></div></details></div>
</body>
</html>
"""
html |> Microsoft.DotNet.Interactive.Formatting.Html.ToHtmlContent
disposable.Dispose ()
╭─[ 165.24ms - stdout ]────────────────────────────────────────────────────────╮
│ <!DOCTYPE html> │
│ <html lang="en"> │
│ <head> │
│ <meta charset="UTF-8"> │
│ <style> │
│ body { │
│ background-color: #222; │
│ color: #ccc; │
│ } │
│ a { │
│ color: #777; │
│ font-size: 15px; │
│ } │
│ span { │
│ font-size: 11px; │
│ } │
│ div > div { │
│ padding-left: 10px; │
│ } │
│ details > div { │
│ padding-left: 19px; │
│ } │
│ </style> │
│ </head> │
│ <body> │
│ <div><details open="true"><summary>📂 <a │
│ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
│ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
│ B)</span></summary><div><details open="true"><summary>📂 <a │
│ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
│ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
│ B)</span></summary><div><div>📄 <a │
│ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/file.txt">file.txt</a><span> (4.00 │
│ B)</span></div></div></details></div> │
│ </body> │
│ </html> │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.ExactlyOnce>]] Dir of string
| [[<Argu.ArguAttributes.ExactlyOnce>]] Html of string
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Dir _ -> nameof Dir
| Html _ -> nameof Html
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 118.51ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] --dir <string> --html <string> │
│ │
│ OPTIONS: │
│ │
│ --dir <string> Dir │
│ --html <string> Html │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let dir =
match argsMap.[[nameof Arguments.Dir]] with
| [[ Arguments.Dir dir ]] -> Some dir
| _ -> None
|> Option.get
let htmlPath =
match argsMap.[[nameof Arguments.Html]] with
| [[ Arguments.Html html ]] -> Some html
| _ -> None
|> Option.get
let fileSystem = scanDirectory true dir dir
let html = generateHtmlForFileSystem fileSystem
html |> SpiralFileSystem.write_all_text_async htmlPath
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 83.19ms - return value ]───────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook DirTreeHtml.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 308451 bytes to DirTreeHtml.dib.html
00:00:00 debug #1 writeDibCode / output: Fs / path: DirTreeHtml.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: DirTreeHtml.dib
00:00:00 debug #1 persistCodeProject / packages: [Argu; Falco.Markup; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DirTreeHtml / code.Length: 4638
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj
00:00:00 debug #1 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime linux-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:03 verbose #4 > Restored C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj (in 1.24 sec).
00:00:03 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:11 verbose #6 > DirTreeHtml -> C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\bin\Release\net9.0\linux-x64\DirTreeHtml.dll
00:00:13 verbose #7 > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:14 debug #8 execute_with_options_async / exit_code: 0 / output.Length: 732
00:00:14 debug #9 execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime win-x64",
None, Some "C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml")
00:00:14 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:14 verbose #11 > Determining projects to restore...
00:00:15 verbose #12 > Restored C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj (in 384 ms).
00:00:15 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:23 verbose #14 > DirTreeHtml -> C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\bin\Release\net9.0\win-x64\DirTreeHtml.dll
00:00:31 verbose #15 > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:31 debug #16 execute_with_options_async / exit_code: 0 / output.Length: 728
In [ ]:
{ . "$ScriptDir/../apps/ipfs/build.ps1" } | Invoke-Block
bun install v1.1.0 (5903a614)
Done! Checked 220 packages (no changes) [1.62s]
In [ ]:
{ . "$ScriptDir/outdated.ps1" } | Invoke-Block
Paket version 8.1.0-alpha001+8e77fe66ac27ddecf519e0df5a4d3327ca9250e2
Resolving dependency graph...
Outdated packages found:
Group: Main
* Argu 6.2.2 -> 6.2.3
* Expecto.FsCheck 10.2.1-fscheck3 -> 10.2.1
* FsCheck 3.0.0-rc3 -> 2.16.6
* FSharp.Core 8.0.300-beta.24080.5 -> 8.0.300-beta.24178.1
* Microsoft.AspNetCore.Connections.Abstractions 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.Http.Connections.Client 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.Http.Connections.Common 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Client 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Client.Core 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Common 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Protocols.Json 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.Extensions.DependencyInjection 8.0 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.DependencyInjection.Abstractions 8.0.1 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Features 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.Extensions.Logging 8.0 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Logging.Abstractions 8.0.1 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Options 8.0.2 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Primitives 8.0 -> 9.0.0-preview.3.24172.9
* System.CodeDom 8.0 -> 9.0.0-preview.3.24172.9
* System.IO.Pipelines 8.0 -> 9.0.0-preview.3.24172.9
* System.Management 7.0 -> 9.0.0-preview.3.24172.9
* System.Threading.Channels 8.0 -> 9.0.0-preview.3.24172.9
Total time taken: 1 minute, 2 seconds
CheckToml / toml: C:\home\git\polyglot\Cargo.toml
chat_contract_tests
================
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
autocfg 1.2.0 Removed Removed Build ---
hashbrown 0.12.3 0.14.3 0.14.3 Normal ---
indexmap 1.9.3 2.2.6 2.2.6 Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\Cargo.toml
All dependencies are up to date, yay!
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\tests\Cargo.toml
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
ahash->cfg-if 1.0.0 Removed --- Normal ---
ahash->once_cell 1.19.0 Removed --- Normal cfg(not(all(target_arch = "arm", target_os = "none")))
ahash->version_check 0.9.4 Removed --- Build ---
ahash->zerocopy 0.7.32 Removed --- Normal ---
hashbrown->ahash 0.8.11 Removed --- Normal ---
hashbrown->allocator-api2 0.2.18 Removed --- Normal ---
indexmap->autocfg 1.2.0 --- Removed Build ---
indexmap->equivalent 1.0.1 Removed --- Normal ---
indexmap->hashbrown 0.12.3 --- 0.14.3 Normal ---
indexmap->hashbrown 0.14.3 0.12.3 --- Normal ---
proc-macro2->unicode-ident 1.0.12 Removed --- Normal ---
quote->proc-macro2 1.0.81 Removed --- Normal ---
serde_with->indexmap 1.9.3 --- 2.2.6 Normal ---
serde_with->indexmap 2.2.6 1.9.3 --- Normal ---
syn->proc-macro2 1.0.81 Removed --- Normal ---
syn->quote 1.0.36 Removed --- Normal ---
syn->unicode-ident 1.0.12 Removed --- Normal ---
zerocopy->zerocopy-derive 0.7.32 Removed --- Normal ---
zerocopy-derive->proc-macro2 1.0.81 Removed --- Normal ---
zerocopy-derive->quote 1.0.36 Removed --- Normal ---
zerocopy-derive->syn 2.0.60 Removed --- Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\plot\Cargo.toml
All dependencies are up to date, yay!
CheckJson / json: C:/home/git/polyglot
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\package.json
All dependencies match the greatest package versions :)
CheckJson / json: C:/home/git/polyglot/apps/ipfs
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\ipfs\package.json
All dependencies match the greatest package versions :)
CheckJson / json: C:/home/git/polyglot/apps/spiral/temp/extension
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\temp\extension\package.json
@playwright/test 1.42.1 → 1.44.0-alpha-2024-04-19
@types/chrome ~0.0.263 → ~0.0.266
Run ncu --target greatest -u to upgrade package.json